home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh2x
/
sh21a.d64
/
demo-boot
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
636b
|
28 lines
1090 A=A+1
1100 IFA=1THENLOAD"MBB-IRQ.CDE",8,1
1110 SYS49152
1120 REM ------------------------------
1130 !C,0,0
1140 PRINT"[155][147][142][169][223]"TAB(37)"[169][223]"
1150 PRINT" [167][165]"TAB(37)"[167][165]"
1160 PRINTTAB(11)"MAGIC BORDER BEAMS"
1170 PRINTTAB(11)"------------------"
1180 PRINT
1190 PRINTTAB(6)"WRITTEN BY MATTHIAS FICHTNER"
1200 PRINTTAB(17)"LORTZINGSTR.10C"
1210 PRINTTAB(17)"6729 WOERTH/RH.1"
1220 PRINTTAB(17)"TEL.: 07271/6622"
1230 PRINTTAB(20)"[218][155]"
1240 PRINTTAB(7)"(C) 1987 BY [218][155]MARKT & TECHNIK"
1250 PRINTTAB(6)"'RETURN' FUER NAECHSTE DEMO."
1260 PRINT" [167][165]"TAB(37)"[167][165]"
1270 PRINT" [223][169]"TAB(37)"[223][169]"
1280 RESTORE:FORT=1TO6
1290 N$="MBB.DEMO #0"+RIGHT$(STR$(T),1)
1300 PRINT"[145]"TAB(14)N$
1310 READC
1320 !H:!L,N$:!C,C:!G
1330 GETA$:IFA$<>CHR$(13)THEN1330
1340 NEXT:GOTO1280
1350 DATA 0,0,15,0,0,15