home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 21 / 64er_Magazin_Sonderheft_21_19xx_Markt__Technik_de_Side_A.d64 / mbb-irq.bot (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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.