home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh21a.d64 / demo-boot (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.