home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_87-12_1987_-_de_Side_A.d64 / beispielprogramm (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  699b  |  31 lines
  1. 10 onresetgoto1000
  2. 20 onnmigoto1100
  3. 30 onbrkgoto1100
  4. 40 onrunstopgoto1200
  5. 50 onlistgoto1300
  6. 60 onerrgoto1400
  7. 100 poke53280,12:poke53281,12:print"[147]";:x=30
  8. 110 a$=" magic disk 64 [157][157][157][157][157][157][157][157][157][157][157][157][157]"
  9. 120 b$="               [157][157][157][157][157][157][157][157][157][157][157][157][157]"
  10. 130 goto200
  11. 135 print""tab(i)a$
  12. 140 print""tab(28-i)a$
  13. 150 print""tab(i)a$
  14. 160 print""tab(28-i)a$
  15. 170 print""tab(i)a$
  16. 180 print""tab(28-i)a$
  17. 190 print""tab(i)a$
  18. 195 print""tab(28-i)a$:return
  19. 200 fori=2to24
  20. 205 gosub135:next
  21. 210 fori=24to2step-1
  22. 215 gosub135:next:print"[144]":end
  23. 1000 print"[147]":fori=0to64:poke53280,i:poke53281,i:next:run100
  24. 1100 printchr$(13)"[144]oh schreck !!!":end
  25. 1200 print"[144]     run/stop ist leider defekt.":fori=0to1000:next
  26. 1210 poke157,0:poke204,0:run100
  27. 1300 print"10 move 'magic disk 64' back and forth
  28. 1310 [153]"20 goto 10":[128]
  29. 1400 [153]"loadein fehler hat sich eingeschlichen !!!"
  30. 1410 [129]i[178]0[164]1000:[130]:[138]100
  31.