home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 20 / 64er_Magazin_Sonderheft_20_19xx_Markt__Technik_de_Side_A.d64 / editor (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  39 lines
  1. 10 print"[147]":poke56576,(peek(56576)and252)or3
  2. 20 poke53265,59
  3. 30 geta$:ifval(a$)>0andval(a$)<9then50
  4. 35 ifa$="q"ora$="w"ora$="e"ora$="r"ora$="t"ora$="y"ora$="u"ora$="i"then200
  5. 36 ifa$="n"ora$="m"then400
  6. 37 ifa$="[133]"ora$="[137]"ora$="[134]"ora$="[138]"ora$="[135]"ora$="[139]"ora$="[136]"ora$="[140]"then500
  7. 40 goto30
  8. 50 on val(a$)gosub 70,80,90,100,110,120,130,140
  9. 60 goto30
  10. 70 poke56576,(peek(56576)and252)or3:poke53272,(peek(53272)and240):return
  11. 80 poke56576,(peek(56576)and252)or3:poke53272,(peek(53272)and240)or8:return
  12. 90 poke56576,(peek(56576)and252)or2:poke53272,(peek(53272)and240):return
  13. 100 poke56576,(peek(56576)and252)or2:poke53272,(peek(53272)and240)or8:return
  14. 110 poke56576,(peek(56576)and252)or1:poke53272,(peek(53272)and240):return
  15. 120 poke56576,(peek(56576)and252)or1:poke53272,(peek(53272)and240)or8:return
  16. 130 poke56576,(peek(56576)and252)or0:poke53272,(peek(53272)and240):return
  17. 140 poke56576,(peek(56576)and252)or0:poke53272,(peek(53272)and240)or8:return
  18. 200 ifa$="q"thenpoke53272,(peek(53272)and15)or16
  19. 205 ifa$="w"thenpoke53272,(peek(53272)and15)or32
  20. 210 ifa$="e"thenpoke53272,(peek(53272)and15)or48
  21. 215 ifa$="r"thenpoke53272,(peek(53272)and15)or64
  22. 220 ifa$="t"thenpoke53272,(peek(53272)and15)or80
  23. 225 ifa$="y"thenpoke53272,(peek(53272)and15)or96
  24. 230 ifa$="u"thenpoke53272,(peek(53272)and15)or112
  25. 235 ifa$="i"thenpoke53272,(peek(53272)and15)or128
  26. 300 goto30
  27. 400 ifa$="n"thenpoke53270,peek(53270)or16
  28. 410 ifa$="m"thenpoke53270,peek(53270)and239
  29. 420 goto30
  30. 500 ifa$="[133]"thencr=cr+1:ifcr=16thencr=0
  31. 510 ifa$="[137]"thencr=cr-1:ifcr=-1thencr=15
  32. 520 ifa$="[134]"thencb=cb+1:ifcb=16thencb=0
  33. 530 ifa$="[138]"thencb=cb-1:ifcb=-1thencb=15
  34. 540 ifa$="[135]"thenc1=c1+1:ifc1=16thenc1=0
  35. 550 ifa$="[139]"thenc1=c1-1:ifc1=-1thenc1=15
  36. 560 ifc2<>c1thenc2=c1:gosub580
  37. 570 poke53280,cr:poke53281,cb:goto30
  38. 580 poke646,c1:print"[147]":return
  39.