home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 July / 64er_Magazin_91-07_1991_Markt__Technik_de_Side_A.d64 / codify (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1991-01-01  |  1.2 KB  |  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.