home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9107a.d64 / codify (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  21 lines
  1. 0 PRINT"[147]";:POKE56334,PEEK(56334)AND254:POKE1,PEEK(1)AND251:RE=20:RE$="STEFAN"
  2. 1 FORQ=49152TO49172:READX:POKEQ,X:NEXT:SYS49152:POKE1,PEEK(1)OR4
  3. 2 POKE 56334,PEEK(56334)OR1:DATA 162,0,189,0,208,157,0,32,189,255,208,157,255
  4. 3 POKE 788,123:DATA 32,232,224,255,208,239,96,0
  5. 4 POKE53272,24:FORQ=280TO351:READI:POKE8192+Q,I:NEXTQ:GOTO19
  6. 5 PRINT""TAB(15)"- CODIFY -":FORQ=1TO5:W(Q)=INT(4*RND(0)+1):NEXTQ:PRINTTAB(9);
  7. 6 PRINT"F1-(  F3-)  F5-*  F7-+":FORQ=1TO20:FORI=1TO5:POKE53281,0:POKE53280,0
  8. 7 FORX=1TO4:POKE1114+Q*40+I,X+34:FORXX=1TO10:GETA$:IFA$=""THENNEXTXX,X:GOTO 7
  9. 8 POKE54276,0:POKE54296,15:POKE54277,25:POKE54273,10:POKE54272,10:POKE54276,33
  10. 9 FORQQ=1TO4:IFA$=CHR$(QQ+132)THENR(I)=QQ:POKE1114+Q*40+I,39+QQ:NEXTI:GOTO11
  11. 10 NEXTQQ:GOTO7:DATA255,129,129,129,129,129,129,255,0,126,66,66,66,66,126,0,0
  12. 11 E=0:FORWW=1TO5:IFR(WW)=W(WW)THENE=E+1:DATA 0,60,36,36,60,0,0,0,0,0,24,24,0,0
  13. 12 NEXTWW:IFE<5ANDE>0THENFORWW=1TOE:POKE1124+Q*40+WW,39:NEXTWW,Q:GOTO 17
  14. 13 IF E=0 THEN NEXTQ:GOTO17:DATA0,60,126,219,255,189,195,126,60,0,24,36,66,66
  15. 14 PRINT"[147] GESCHAFT !!!!  VERSUCHE-"Q:PRINT:PRINT:IFQ>RETHENGOTO18:DATA36,24,0
  16. 15 PRINT" OLD RECORD-"RE"   "RE$:PRINT" NEW RECORD-"Q"   ";:POKE 19,1:RESTORE
  17. 16 INPUT RE$:RE=Q:GOTO19:DATA0,126,66,66,66,66,126,0,0,24,60,126,126,60,24,0,0
  18. 17 FORQ=1TO5:POKE1954+Q,39+W(Q):NEXT:FORQ=1TO5000:NEXT:PRINT"[147]":DATA126,126,126
  19. 18 PRINT" RECORD-"RE"     "RE$:GETA$:IFA$=""THEN18:DATA126,126,126,0
  20. 19 PRINT"[147]";:FORQ=1TO20:PRINT"     "Q TAB(11)"-----     -----":NEXTQ:GOTO5
  21.