home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh2x
/
sh21a.d64
/
mbb-irq.bot
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
1KB
|
47 lines
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