home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1994 November / 64er_Magazin_94-11_1994_Markt__Technik_de_Side_A.d64 / sze (.txt) < prev   
Commodore BASIC  |  2022-10-26  |  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.