5 'PATCH-MAN ALT NAMES V1.0 / 2014 TotO
10 MEMORY &3FFF:LOAD"PACMAN.6J",&4000 20 DIM col$(3,2),name$(3,2),nick$(3,2) 30 FOR j=0 TO 2:FOR i=0 TO 3:READ col$(i,j),name$(i,j),nick$(i,j):NEXT i,j 40 PRINT:PRINT"PAC-MAN ALTERNATE NAMES":PRINT 50 PRINT"1- Enter your own incredible names" 60 PRINT"2- Use my better names than yours" 70 PRINT"3- Use the MIDWAY alternate names" 80 PRINT"4- Use the NAMCO alternate names":PRINT 90 a$=INKEY$ 100 IF a$="1" THEN d=2:GOTO 150 110 IF a$="2" THEN d=2:GOTO 200 120 IF a$="3" THEN d=0:GOTO 200 130 IF a$="4" THEN d=1:GOTO 200 140 GOTO 90 150 'enter your names 160 FOR i=0 TO 3 170 PRINT col$(i,d);:INPUT" ghost name: ",name$(i,d) 180 PRINT col$(i,d);:INPUT" ghost nick: ",nick$(i,d) 190 NEXT i 200 'format strings 210 FOR i=0 TO 3 220 WHILE LEN(name$(i,d))<8 : name$(i,d)=name$(i,d)+"à" : WEND 230 t$=nick$(i,d) : IF LEN(t$)>6 THEN t$=MID$(t$,1,6) 240 t$="&"+t$+"&" : WHILE LEN(t$)<8 : t$=t$+"à" : WEND : nick$(i,d)=t$ 250 NEXT i 260 'patch rom 270 FOR i=0 TO 3 280 addr=&4DD6+(i*31) 290 FOR c=0 TO 7 300 POKE addr+c,ASC(MID$(name$(i,d),c+1,1)) 310 POKE addr+15+c,ASC(MID$(nick$(i,d),c+1,1)) 320 NEXT c,i 330 SAVE"PACMAN.6J",b,&4000,4096 340 PRINT:PRINT"PATCH DONE!":PRINT 350 END 360 ' MIDWAY 370 DATA "RED","AAAAAAAA","BBBBBB" 380 DATA "PURPLE","CCCCCCCC","DDDDDD" 390 DATA "BLUE","EEEEEEEE","FFFFFF" 400 DATA "ORANGE","GGGGGGGG","HHHHHH" 410 ' NAMCO 420 DATA "RED","URCHIN","MACKY" 430 DATA "PURPLE","ROMP","MICKY" 440 DATA "BLUE","STYLIST","MUCKY" 450 DATA "ORANGE","CRYBABY","MOCKY" 460 ' CUSTOM 470 DATA "RED","REDMOND","ASCII" 480 DATA "PURPLE","COLCLASH","SPECCY" 490 DATA "BLUE","COMMODO","BREADY" 500 DATA "ORANGE","POKEY","NOISE" |