home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh21a.d64 / mbb-irq.bot (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  47 lines
  1. 1000 REM ******************************
  2. 1010 REM *                            *
  3. 1020 REM *     MAGIC BORDER BEAMS     *
  4. 1030 REM *                            *
  5. 1040 REM *   INTERRUPT  VERSION #02   *
  6. 1050 REM *                            *
  7. 1060 REM *    BY MATTHIAS FICHTNER    *
  8. 1070 REM *                            *
  9. 1080 REM ******************************
  10. 1090 A=A+1:IFA=2THEN1280
  11. 1100 PRINT"[147][142]":POKE53280,15:POKE53265,11:POKE53281,0
  12. 1110 PRINT"                   [214]"
  13. 1120 PRINT"                  [214][214][214]"
  14. 1130 PRINT"                 [214][214][150][214][214][214]"
  15. 1140 PRINT"                [214][214][150][214][214][214][214][214]"
  16. 1150 PRINT"               [214][214][150][214][214][155][214][150][214][214][214][214]"
  17. 1160 PRINT"              [214] [214][214][150][214][214][214][214][214] [151][214]"
  18. 1170 PRINT"             [214][214][214] [214][214][150][214][214][214] [151][214][214][214]"
  19. 1180 PRINT"            [214][214][154][214][214][214] [214][214][214] [151][214][214][152][214][151][214][214]"
  20. 1190 PRINT"           [214][214][154][214][214][214][214][214] [214] [151][214][214][152][214][214][214][151][214][214]"
  21. 1200 PRINT"          [214][214][154][214][214][155][214][154][214][214][214][214] [151][214][214][152][214][214][155][214][152][214][214][151][214][214]"
  22. 1210 PRINT"           [214][214][154][214][214][214][214][214]   [151][214][214][152][214][214][214][151][214][214]"
  23. 1220 PRINT"            [214][214][154][214][214][214]     [151][214][214][152][214][151][214][214]"
  24. 1230 PRINT"             [214][214][214]       [151][214][214][214]"
  25. 1240 PRINT"              [214] [155]T R A X [151][214]"
  26. 1250 PRINT"            [155]S O F T W A R E"
  27. 1260 POKE53265,27
  28. 1270 LOAD"MBB-IRQ.CDE",8,1
  29. 1280 C(0)=0:C(1)=11:C(2)=12:C(3)=15:C(4)=1
  30. 1290 READA$:IFA$="*"THENRESTORE:GOTO1290
  31. 1300 FORT=0TO4
  32. 1310 POKE646,C(T):PRINT"[145]"A$
  33. 1320 FORI=1TO20:NEXTI,T:T=0
  34. 1330 GETB$:IFB$=CHR$(13)THEN1450
  35. 1340 T=T+1:IFT<90THEN1330
  36. 1350 FORT=4TO0STEP-1
  37. 1360 POKE646,C(T):PRINT"[145]"A$
  38. 1370 FORI=1TO20:NEXTI,T
  39. 1380 GOTO1290
  40. 1390 DATA"     MAGIC BORDER BEAMS  INTERRUPT"
  41. 1400 DATA"              VERSION #02"
  42. 1410 DATA"   WRITTEN 1987 BY MATTHIAS FICHTNER"
  43. 1420 DATA"       (C) 1987 BY TRAX SOFTWARE"
  44. 1430 DATA"   HIT RETURN TO USE BASIC EXTENSION"
  45. 1440 DATA"*"
  46. 1450 SYS49152:PRINT"[147]";:FORT=0TO3:POKE2048+T,0:NEXT:NEW
  47.