home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 69 / 64er_Magazin_Sonderheft_69_19xx_Markt__Technik_de_Side_B.d64 / basic-befehle (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  505b  |  22 lines
  1. 1 rem print-demo
  2. 2 rem die basic-befehle im interpreter
  3. 3 rem --------------------------------
  4. 9 z=0:x=0:tb=2:print"[147]"
  5. 10 fori=41118to41372:a$=chr$(peek(i))
  6. 11 ifa$="[163]"thena$="#"
  7. 12 ifa$="[164]"thena$="$"
  8. 13 ifa$="[168]"thena$="("
  9. 14 ifa$="[171]"thena$="+"
  10. 15 ifa$="[173]"thena$="-"
  11. 16 ifa$="[170]"thena$="*"
  12. 17 ifa$="[175]"thena$="/"
  13. 18 ifa$=chr$(222)thena$="^"
  14. 19 ifa$="[190]"thena$="<"
  15. 20 ifa$="[189]"thena$="="
  16. 21 ifa$="[188]"thena$=">"
  17. 28 ifz=23thenz=0:x=x+1:tb=10*x:poke214,1:poke211,tb:sys58640
  18. 29 ifpeek(i)>127thena$=a$+chr$(13):z=z+1
  19. 39 printtab(tb)a$;
  20. 40 next
  21. 50 print""tab(tb)"taste!":poke198,0:wait198,1:end
  22.