home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 21 / 64er_Magazin_Sonderheft_21_19xx_Markt__Technik_de_Side_A.d64 / demo-boot (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  636b  |  28 lines
  1. 1090 a=a+1
  2. 1100 ifa=1thenload"mbb-irq.cde",8,1
  3. 1110 sys49152
  4. 1120 rem ------------------------------
  5. 1130 !c,0,0
  6. 1140 print"[155][147][142][169][223]"tab(37)"[169][223]"
  7. 1150 print" [167][165]"tab(37)"[167][165]"
  8. 1160 printtab(11)"magic border beams"
  9. 1170 printtab(11)"------------------"
  10. 1180 print
  11. 1190 printtab(6)"written by matthias fichtner"
  12. 1200 printtab(17)"lortzingstr.10c"
  13. 1210 printtab(17)"6729 woerth/rh.1"
  14. 1220 printtab(17)"tel.: 07271/6622"
  15. 1230 printtab(20)"[218][155]"
  16. 1240 printtab(7)"(c) 1987 by [218][155]markt & technik"
  17. 1250 printtab(6)"'return' fuer naechste demo."
  18. 1260 print" [167][165]"tab(37)"[167][165]"
  19. 1270 print" [223][169]"tab(37)"[223][169]"
  20. 1280 restore:fort=1to6
  21. 1290 n$="mbb.demo #0"+right$(str$(t),1)
  22. 1300 print"[145]"tab(14)n$
  23. 1310 readc
  24. 1320 !h:!l,n$:!c,c:!g
  25. 1330 geta$:ifa$<>chr$(13)then1330
  26. 1340 next:goto1280
  27. 1350 data 0,0,15,0,0,15
  28.