-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathremember.bas
9 lines (9 loc) · 2.29 KB
/
remember.bas
1
2
3
4
5
6
7
8
9
1RESTORE:CLR:DATA2,10,8,7,5,13,6,14,207,34,18,39,219,43,118,46,160,100,212,147,160,194,107,147:V=53248:F=17:DIMR(100),A(2,4),O(4),K(4),NH(5),NL(5):NL(4)=78:NH(4)=12:FORI=0TO3:READX:A(0,I)=X:READY:A(1,I)=Y:O(I)=I:K(I)=I:POKEV+39+I,A(0,I):POKE2040+I,13:NEXT:FORI=0TO62:POKE832+I,255:NEXT
2J1=1:M=0:B=170:Q=0:POKEV+32,0:POKEV+33,0:POKEV+29,15:POKEV+23,15:POKEV+21,15:FORI=0TO3:READL:NL(I)=L:READH:NH(I)=H:NEXT:FORI=0TO7:READX:POKEV+I,X:NEXT:PRINT"{clr}{wht} {CBM-T}{CBM-Y}{CBM-Y}{CBM-U}{CBM-U} REMEMBER BY DRAZIL 2017 {CBM-U}{CBM-U}{CBM-Y}{CBM-Y}{CBM-T}{down} PRESS BUTTON TO START":P=70:FORI=0TO2:S=I:GOSUB9:NEXT:P=200:S=3:GOSUB9:P=70
3J=NOT(INT((NOT(PEEK(56320))AND31)/24))AND1ANDJ1:ONJGOTO3:PRINT"{home}{down}{down} ":N$=STR$(PEEK(2)):N$=STR$(M+1):N$=RIGHT$(N$,LEN(N$)-1):N$=RIGHT$("0"+N$,2):PRINT"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down} "N$
4N$=STR$(PEEK(2)):N$=RIGHT$(N$,LEN(N$)-1):N$=RIGHT$("0"+N$,2):PRINT"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down} MAX:"N$:X=PEEK(V+18):R(M)=(X-INT(X/4)*4):FORI=0TOM:FORW=1TO10:NEXTW:OF=K(R(I)):S=R(I)
5GOSUB9:POKEV+39+OF,A(1,R(I)):FORW=1TO100:NEXTW:POKEV+39+OF,A(0,R(I)):NEXT:FORW=1TO150:NEXTW:O0=O(0):FORI=0TO3:O(I)=O(I+1):NEXT:O(3)=O0:K3=K(3):FORI=3TO1STEP-1:K(I)=K(I-1):NEXT:K(0)=K3:FORC=0TO3:POKEV+39+C,A(0,O(C)):NEXT:FORI=0TOM:OF=K(R(I))
6S=NOT(PEEK(56320))AND15:IF(S=1ANDOF=0)OR(S=8ANDOF=1)OR(S=2ANDOF=2)OR(S=4ANDOF=3)THENS=R(I):Q=S:POKEV+39+OF,A(1,R(I)):GOSUB9:POKEV+39+OF,A(0,R(I)):NEXT:FORW=1TO1000:NEXT:M=M+1:J1=0:ON-(M<PEEK(2))GOTO3:POKE2,(M):GOTO3
7ON-(S=0)GOTO6:N$=STR$(M+1):N$=RIGHT$(N$,LEN(N$)-1):N$=RIGHT$("0"+N$,2):PRINT"{home}{yel}{down}{down} HA HA,YOU LOOSE IN ROUND "N$"{down}{wht} UP=RESTART DOWN=QUIT":P=300:S=4:F=33:GOSUB9:IFM+1>PEEK(2)THENF=17:P=60:FORI=0TO3:S=I:GOSUB9:NEXT:FORI=2TO1STEP-1:S=I:GOSUB9:NEXT:S=0:P=200:GOSUB9
8X=INT((NOT(PEEK(56320))AND3)):ON-(X=1)GOTO1:ON-(X=0)GOTO8:FORI=0TO60STEP3:POKE832+I,0:POKE832+I+2,0:POKE832+I+1,0:NEXT:PRINT"{clr}BYE BYE DUDE...":POKEV+21,0:END
9SI=54272:POKE54296,15:POKESI+5,20:POKESI+12,20:POKESI+6,200:POKESI+13,255:POKESI+0,NL(S):POKESI+1,NH(S):POKESI+2,200:POKESI+3,0:POKESI+4,F:FORT=1TOP:NEXT:POKESI+4,0:RETURN