home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 94xx / 9411a.d64 / sze (.txt) < prev   
Commodore BASIC  |  1995-03-30  |  996b  |  27 lines
  1. 30 POKE646,1:W=14336:V=54272:PRINT"[147][150][211][212][193][210] [218][197][201][195][200][197][206][211][193][212][218] [197][196][201][212][207][210] [194][217] [208][207][197][199][207][212] [146]1992"
  2. 31 GOSUB55:M=P+V:PRINT"[155] SPACE-[211][197][212]+[213][206][211][197][212] / S-[211][193][214][197] / CRSR+RETURN":POKEM,7
  3. 32 PRINTTAB(14)"Q-[211][212][193][210][212][197][216][212][197][210]"
  4. 33 POKE53272,31:FORX=0TO9:POKE1199+X,96
  5. 34 POKE1559+X,96:POKE1199+40*X,96:POKE1208+40*X,96:NEXTX:POKE1644,31
  6. 35 FORX=0TO7:FORY=0TO31:POKE1708+X*40+Y,X*32+Y:NEXTY:NEXTX:R=31
  7. 36 GETA$:IFA$<>""THEN39
  8. 37 IFS=2THENPOKEP+V,13:POKEP,96
  9. 38 GOTO36
  10. 39 IFC=GANDA$="[157]"ORC=0ANDA$=""ORD=0ANDA$="[145]"ORD=EANDA$=""THEN36
  11. 40 IFA$=""ORA$="[145]"THENA=(ASC(A$)-17)/64-1:Q=-A*40:D=D-A
  12. 41 IF A$=""ORA$="[157]"THENA=(ASC(A$)-29)/64-1:Q=-A:C=C+A
  13. 42 IFA$="S"THENOPEN1,8,2,"T0,P,W":PRINT#1,CHR$(0);"8";:GOTO51
  14. 43 IFA$="Q"THENEND
  15. 44 ONSGOSUB45,47:GOTO36
  16. 45 IFA$=CHR$(13)THENGOSUB52
  17. 46 POKEM,1:M=M+Q:POKEM,7:R=ASC(CHR$(PEEK(M-V))):POKE1644,R:RETURN
  18. 47 IFA$=CHR$(13)THENPOKEP+V,1:POKEP,Z:GOSUB55:POKEM,7:POKE1644,31:RETURN
  19. 48 IFA$<>" "THENPOKEP+V,1:POKEP,Z:P=P+Q:Z=PEEK(P):RETURN
  20. 49 Z=42+10*(Z=42):POKEP,Z:O=PEEK(F+D):H=(2^C)
  21. 50 POKEF+D,(OORH)-(OANDH):RETURN
  22. 51 FORX=WTOW+2048:PRINT#1,CHR$(PEEK(X));:NEXT:CLOSE1:END
  23. 52 S=2:Q=0:E=7:G=7:P=1247:C=0:D=0
  24. 53 F=W+R*8:FORX=0TO7:FORY=0TO7
  25. 54 POKEP-Y+X*40,(PEEK(F+X)AND2^Y)/2^Y*10+32:NEXTY:NEXTX:Z=PEEK(P):RETURN
  26. 55 S=1:Q=0:E=7:G=31:P=1739:Z=2:C=0:D=0:POKEM,1:M=P+V:RETURN
  27.