home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1993 June / 64er_Magazin_93-06_1993_Markt__Technik_de_Side_B.d64 / install (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  43 lines
  1. 100 print "[147][152]":poke 808,225:goto 150
  2. 110 for k=c to c+2:poke k,q:next:return
  3. 120 poke b,peek(b)+1+256*(peek(b)=255):goto 140
  4. 130 poke b,peek(b)-1-256*(peek(b)=0)
  5. 140 poke 781,y:poke 782,x:sys 58636:print right$(" "+str$(peek(b)),3):return
  6. 150 s$=" [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]":b=37064:poke 650,128
  7. 160 print " [199][160][210][160][213][160][206][160][196][160]- [197][160][201][160][206][160][211][160][212][160][197][160][204][160][204][160][213][160][206][160][199][160][197][160][206]":print s$
  8. 170 print " [218]eilenabstand:
  9. 180 [153] " (NULL)chriftart:
  10. 190 print " [199]rafikmodus:
  11. 200 [129] y[178]9 [164] 17 [169] 4:[129] x[178]7 [164] 35 [169] 4:[141] 140:b[178]b[170]1:[130] x,y
  12. 210 [153]:[153] s$:[151] 646,1
  13. 220 f[178]55296:a[178]37064:x[178]7:y[178]9
  14. 230 c[178]f[170]x[170]40[172]y:b[178]a[170]2[172](y[171]9)[170].25[172](x[171]7):[158] 46374
  15. 240 q[178]1:[141] 110
  16. 250 [146] 198,1:[161] d$
  17. 260 [139] d$[178]"+" [167] [141] 120:[137] 250
  18. 270 [139] d$[178]"-" [167] [141] 130:[137] 250
  19. 280 [139] d$[178][199](3) [167] 510
  20. 290 q[178]12:[141] 110:[139] d$[178]"" [167] y[178]y[170]4[170]12[172](y[178]17):[137] 230
  21. 300 [139] d$[178]"on" [167] y[178]y[171]4[171]12[172](y[178]9):[137] 230
  22. 310 [139] d$[178]"" [167] x[178]x[170]4[170]32[172](x[178]35):[137] 230
  23. 320 [139] d$[178]"cmd" [167] x[178]x[171]4[171]32[172](x[178]7):[137] 230
  24. 330 [139] d$[179][177][199](13) [167] 240
  25. 340 [153]"loadprint# str$close(NULL)close(NULL)closelenclose(NULL)closevalclose(NULL)closeclose-  ascclose(NULL)close(NULL)close(NULL)close(NULL)closeright$close(NULL)close(NULL)closevalclose(NULL)
  26. 350 print"      [197][146]inschalten        [193][146]usschalten"
  27. 360 print s$:b=36904
  28. 370 for y=4 to 23:print chr$(32)chr$(93+y)chr$(58)
  29. 380 for x=4 to 35 step 4:x=x-3*(x=20):gosub 140:b=b+1:next x,y:print s$;
  30. 390 f=55296:a=36871:x=4:y=4:poke 646,1
  31. 400 c=f+x+40*y:b=a+8*y+(x/4):sys 46374
  32. 410 q=1:gosub 110
  33. 420 wait 198,1:get d$
  34. 430 if d$="+" then gosub 120:goto 420
  35. 440 if d$="-" then gosub 130:goto 420
  36. 450 if d$=chr$(13) then run
  37. 460 q=12:gosub 110:if d$="" then y=y+1+20*(y=23):goto 400
  38. 470 if d$="[145]" then y=y-1-20*(y=4):goto 400
  39. 480 if d$="" then x=x+4+35*(x=35)-3*(x=16):goto 400
  40. 490 if d$="[157]" then x=x-4-35*(x=4)+3*(x=23):goto 400
  41. 500 if d$<>chr$(3) then 410
  42. 510 wait 203,64:poke 631,13:poke 198,1:poke 808,237
  43.