home *** CD-ROM | disk | FTP | other *** search
1 REM **** REPEAT !! **** 2 REM BY JOHN CURRIE 3 REM * ORIGINAL VERSION, DEC. 1982 * 4 REM * THIS VERSION, FEBRUARY 1984 * 5 : 10 CLR:DIMB(25),D(25):POKE53248+21,.:POKE808,234 20 DATA169,1,160,0,153,0,216,153,0,217,153,0,218,153,0,219,200,208,241,96,0 21 FORP=679TO699:READPP:POKEP,PP:NEXT 100 PRINTCHR$(142)CHR$(8)"[147]";SPC(7);"WELCOME TO THE GAME CALLED" 101 PRINT"[158] PRESS THE SPACE[146] BAR[146] TO CONTINUE." 103 POKE53280,6:POKE53281,6 104 POKE646,RND(1)*15 105 PRINT" [169] [223] [169] [223] [169] [223] [169] [223] [169] [223] [169] [223] [146]" 108 PRINT" [209][146][169] [146][169] [209] [146][169] [209] [146]" 110 PRINT" [223] [146][169] [146]" 113 PRINT" [146][223][223] [223] [223] [162] [162][146]" 116 PRINT" [146][223] [146][169] [146][223] [146][169] [146][209] [209]" 130 GETC$:IFC$=" "THEN134 132 GOTO104 134 PRINT"[154][147]";TAB(7);" DO YOU WANT INSTRUCTIONS ?"; 136 GETC$:IFC$<>"Y"ANDC$<>"N"THENPRINT"[157] ";:GOSUB5100:PRINT"[157]?";:GOSUB5100:GOTO136 137 PRINTCHR$(32);C$:IFC$="N"THEN405 138 PRINT"[147]";SPC(8);"[156][210][197][208][197][193][212]!![146] ([201]NSTRUCTIONS)":POKE53280,3:POKE53281,3 140 PRINTCHR$(14)" [215]HEN YOU ARE READY, A PATTERN OF 4" 144 PRINT"NUMBERS WILL BE DISPLAYED. [201]MMEDIATELY" 146 PRINT"ONE WILL QUICKLY FLASH. [217]OU MUST REPEAT"; 148 PRINT"THAT SAME NUMBER BY PRESSING THE SAME" 150 PRINT"KEY AS THAT NUMBER. [201]F YOU GET THE" 152 PRINT"CORRECT NUMBER, IT WILL BE DISPLAYED" 154 PRINT"AGAIN, FOLLOWED BY ANOTHER NUMBER (WATCH"; 156 PRINT"CLOSELY BECAUSE THE SECOND NUMBER COULD" 158 PRINT"BE THE SAME AS THE FIRST). [207]NCE AGAIN" 160 PRINT"YOU MUST REPEAT THE SEQUENCE--THE FIRST" 162 PRINT"AND[146] THE SECOND. [197][212][195].." 164 PRINT" [212]HIS CONTINUES UNTIL YOU'VE MADE 20"; 166 PRINT"CORRECT NUMBERS IN A ROW. [212]HE COMPUTER" 168 PRINT"PLAYS THE SEQUENCE ONLY ONCE A TURN.[144]" 170 PRINT" [206][207][212][197][192][212]HIS VERSION OF [210][197][208][197][193][212]!![146] IS MADE"SPC(8)"FOR THE [195][207][205][205][207][196][207][210][197] 64." 173 PRINTTAB(4);" [208]RESS THE [211][208][193][195][197][146] [194][193][210][146] TO CONTINUE."; 174 GET C$:IFC$<>" "THEN174 405 PRINTCHR$(142)" [147] GET READY!!!!![159]":POKE53280,14:POKE53281,14:FORA=1TO5 406 FORA1=1TO14:B=PEEK(1145+A1):POKE1145+A1,B+128:GOSUB5010:POKE1145+A1,B 407 NEXTA1:FORA2=9TO-2STEP-1:B=PEEK(1149+A2):POKE1149+A2,B+128:GOSUB5010 408 POKE1149+A2,B:NEXTA2,A 410 PRINT"[147]":A1=1003:A2=1509:A3=1537:A4=2043:POKE680,7:SYS679 412 FORA=0TO10:POKEA1,32:POKEA2,32:POKEA3,32:POKEA4,32 414 A1=A1+40:A2=A2+1:A3=A3-1:A4=A4-40 416 POKEA1,56:POKEA2,52:POKEA3,54:POKEA4,50:GOSUB5100:NEXTA:FORD=1TO1100:NEXTD 440 FORA=1TO25:B(A)=INT((RND(1)*4)+1)*2:NEXTA:A=0 480 A=A+1:T$=" MISTAKE!![146]":FORC1=1TOA 500 ONB(C1)/2GOSUB2400,2200,2300,2100:NEXTC1 515 FORC=1TOA:T=TI 518 GETC$:IFC$<>""THEN518 520 GETC$:IFTI-T>=500THENT$=" OUT OF TIME!!":A=A-1:GOTO3000 525 IFC$<>"2"ANDC$<>"4"ANDC$<>"6"ANDC$<>"8"THEN520 530 D(C)=VAL(C$) 540 OND(C)/2GOSUB2400,2200,2300,2100 560 IFD(C)<>B(C)THENA=A-1:GOTO3000 580 NEXTC 590 IFA<>20THENFORD=1TO1100:NEXTD:GOTO480 600 PRINT"[147] [144]WAY TO GO!! YOU FINISHED!!":GOSUB9000 610 GOTO3030 2100 POKE1443,184:G=17:GG=37:GOSUB4000:POKE1443,56:RETURN 2200 POKE1520,180:G=19:GG=63:GOSUB4000:POKE1520,52:RETURN 2300 POKE1526,182:G=21:GG=154:GOSUB4000:POKE1526,54:RETURN 2400 POKE1603,178:G=22:GG=227:GOSUB4000:POKE1603,50:RETURN 3000 PRINT""T$CHR$(13),:FORD1=1TO30 3003 POKE54296,15:POKE54277,64:POKE54276,33 3004 POKE54273,17:POKE54272,37:GOSUB5010 3005 POKE54276,0:POKE54277,0:POKE54272,0:NEXTD1 3010 FORD1=1TO24:PRINTMID$("THE CORRECT SEQUENCE IS:",D1,1);:GOSUB5100:NEXTD1 3020 FORD1=1TOA+1:ONB(D1)/2GOSUB2400,2200,2300,2100:NEXTD1:FORD=1TO900:NEXTD 3030 IFA>ZTHENZ=A 3031 PRINT"[147]"TAB(6)"HIGH SCORE IS:";Z;"OUT OF 20.":POKE53280,0:POKE53281,0 3032 PRINTTAB(6)"YOUR SCORE IS:";A;"OUT OF 20.":T$="" 3034 IFA<=4THENPRINT" C'MON, YOU CAN DO BETTER THAN THAT!!" 3035 IFA>4ANDA<14THENPRINTSPC(4)"NOT BAD, BUT YOU NEED PRACTICE!!" 3036 IFA>=14ANDA<17THENPRINT" VERY[146] GOOD[146]!! **EXCELLENT SCORE**" 3038 IFA>16THENPRINT"HOLY COW!! I MIGHT BLOW A CIRCUT!!!!!!!" 3039 PRINT"";SPC(6);"DO YOU WANT TO PLAY AGAIN ?"; 3040 GETC$:IFC$<>"Y"ANDC$<>"N"THENPRINT"[157] ";:GOSUB5100:PRINT"[157]?";:GOSUB5100:GOTO3040 3045 PRINTCHR$(32);C$:IFC$="Y"THEN405 3060 D$="THIS PROGRAM HAS BEEN BROUGHT TO YOU BY: ...JOHN CURRIE.":PRINT"[158]" 3070 FORD1=1TOLEN(D$):PRINTMID$(D$,D1,1);:GOSUB5100:NEXTD1:PRINT"[159]" 3080 FORP=1TO18:PRINTSPC(P+1)" ^"CHR$(13)SPC(P)" _[203][145][145]":GOSUB5100:NEXT 3090 FORP=1TO2000:NEXT:PRINT"[147]"CHR$(9):POKE808,237:END 4000 POKE54296,15:POKE54277,64:POKE54276,17 4020 POKE54273,G:POKE54272,GG:GOSUB5000 4040 POKE54276,0:POKE54277,0:POKE54272,0:RETURN 5000 FORD=1TO250:NEXTD:RETURN 5010 FORD=1TO10:NEXTD:RETURN 5100 FORD=1TO100:NEXTD:RETURN 9000 FORP=1TO90:POKE646,RND(1)*15:PRINT" WHAT A MEMORY !![145]":GOSUB5010:NEXT 9005 PRINT" WHAT A MEMORY !!" 9010 PRINTSPC(18)"[158][213][196][196][201]"SPC(36)"[221] [215][215][158][221]"SPC(36)"[199] [202][203][158][200]"SPC(36)"[202][198][198][203]" 9020 PRINT"[145][145][145][145]":FORP=1TO30:PRINTSPC(19)"[215][215]"SPC(38)" [213][201][145][145]":GOSUB5100 9030 PRINTSPC(19)" [215][215]"SPC(38)" [202][203][145][145]":GOSUB5100:NEXT 9040 FORP=1TO50:PP=RND(1)*15:POKE53280,PP:POKE53281,PP:NEXT:RETURN 10000 REM :: A PET VERSION OF THIS :: 10001 REM :: GAME IS AVAILABLE. :: 
(.txt)