1000 REM ******************************
1010 REM *                            *
1020 REM *     MAGIC BORDER BEAMS     *
1030 REM *                            *
1040 REM *   INTERRUPT  VERSION #02   *
1050 REM *                            *
1060 REM *    BY MATTHIAS FICHTNER    *
1070 REM *                            *
1080 REM ******************************
1090 A=A+1:IFA=2THEN1280
1100 PRINT"[147][142]":POKE53280,15:POKE53265,11:POKE53281,0
1110 PRINT"                   [214]"
1120 PRINT"                  [214][214][214]"
1130 PRINT"                 [214][214][150][214][214][214]"
1140 PRINT"                [214][214][150][214][214][214][214][214]"
1150 PRINT"               [214][214][150][214][214][155][214][150][214][214][214][214]"
1160 PRINT"              [214] [214][214][150][214][214][214][214][214] [151][214]"
1170 PRINT"             [214][214][214] [214][214][150][214][214][214] [151][214][214][214]"
1180 PRINT"            [214][214][154][214][214][214] [214][214][214] [151][214][214][152][214][151][214][214]"
1190 PRINT"           [214][214][154][214][214][214][214][214] [214] [151][214][214][152][214][214][214][151][214][214]"
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]"
1210 PRINT"           [214][214][154][214][214][214][214][214]   [151][214][214][152][214][214][214][151][214][214]"
1220 PRINT"            [214][214][154][214][214][214]     [151][214][214][152][214][151][214][214]"
1230 PRINT"             [214][214][214]       [151][214][214][214]"
1240 PRINT"              [214] [155]T R A X [151][214]"
1250 PRINT"            [155]S O F T W A R E"
1260 POKE53265,27
1270 LOAD"MBB-IRQ.CDE",8,1
1280 C(0)=0:C(1)=11:C(2)=12:C(3)=15:C(4)=1
1290 READA$:IFA$="*"THENRESTORE:GOTO1290
1300 FORT=0TO4
1310 POKE646,C(T):PRINT"[145]"A$
1320 FORI=1TO20:NEXTI,T:T=0
1330 GETB$:IFB$=CHR$(13)THEN1450
1340 T=T+1:IFT<90THEN1330
1350 FORT=4TO0STEP-1
1360 POKE646,C(T):PRINT"[145]"A$
1370 FORI=1TO20:NEXTI,T
1380 GOTO1290
1390 DATA"     MAGIC BORDER BEAMS  INTERRUPT"
1400 DATA"              VERSION #02"
1410 DATA"   WRITTEN 1987 BY MATTHIAS FICHTNER"
1420 DATA"       (C) 1987 BY TRAX SOFTWARE"
1430 DATA"   HIT RETURN TO USE BASIC EXTENSION"
1440 DATA"*"
1450 SYS49152:PRINT"[147]";:FORT=0TO3:POKE2048+T,0:NEXT:NEW