1 REM *********************************
2 REM *                               *
3 REM *   'SCREEN BOOTER' (C) 1985    *
4 REM *                               *
5 REM *   BY DOUG SMOAK               *
6 REM *      303 HEYWARD ST.          *
7 REM *      COLUMBIA, S.C.  29201    *
8 REM *                               *
9 REM *********************************
10 POKE53280,11:POKE53281,11:POKE646,12:PRINT"[147]SCREEN BOOTER"
20 PRINT"ONE MOMENT PLEASE...";
30 DIMA(392)
40 FORI=1TO2:READA(I):PRINT".";:NEXT
50 FORI=3TO258:A(I)=2:PRINT".";:NEXT
60 FORI=259TO392:READA(I):PRINT".";:NEXT
70 INPUT"[147]SCREEN NAME ";SN$:IFLEN(SN$)>16ORSN$=""THEN70
80 A(282)=LEN(SN$)
90 FORI=1TOLEN(SN$):A(362+I)=ASC(MID$(SN$,I,1)):NEXT
100 INPUT"PROGRAM NAME ";PN$:IFLEN(PN$)>16ORPN$=""THEN100
110 IFPN$=SN$THENPRINT"FILENAMES ARE THE SAME!!":GOTO70
120 FORI=1TOLEN(PN$):A(378+I)=ASC(MID$(PN$,I,1)):NEXT:A(337)=LEN(PN$)
130 INPUT"[147]IS THIS A BASIC PROGRAM";BS$:IFBS$=""THEN130
140 BS$=LEFT$(BS$,1):IFBS$<>"Y"ANDBS$<>"[217]"THEN170
160 GOTO190
170 INPUT"SYS ADDRESS FOR ML PRG.";SY:HI=INT(SY/256):LO=SY-256*HI
180 A(357)=76:A(358)=LO:A(359)=HI
190 INPUT"BORDER COLOR (0-15)";BC:BC=15ANDBC:A(296)=BC
200 INPUT"SCREEN COLOR (0-15)";SC:SC=15ANDSC:A(298)=SC
210 INPUT"CHARACTER COLOR (0-15)";CC:CC=15ANDCC:A(300)=CC:IFCC=SCTHEN210
220 INPUT"[147]BOOT NAME ";BN$
230 BN$="0:"+BN$+",P,W"
240 OPEN15,8,15,"I":OPEN8,8,8,BN$
250 INPUT#15,A,B$,C,D:IFATHENCLOSE8:CLOSE15:PRINTA,B$:END
260 PRINT"WORKING...";
270 FORI=1TO392:PRINT#8,CHR$(A(I));:PRINT".";:NEXT
280 CLOSE8:CLOSE15:END
290 DATA0,1,0,0,0,120
300 DATA169,147,32,210,255,169,0,133,157,169
310 DATA8,162,8,160,1,32,186,255,169,6
320 DATA162,104,160,2,32,189,255,169,0,32
330 DATA213,255,162,0,160,0,169,1,142,32
340 DATA208,140,33,208,162,0,157,0,216,157
350 DATA0,217,157,0,218,157,0,219,202,208
360 DATA241,138,133,157,169,8,162,8,160,1
370 DATA32,186,255,169,6,162,120,160,2,32
380 DATA189,255,169,0,32,213,255,134,45,132
390 DATA46,88,169,1,32,89,166,76,174,167,0,0,0
400 DATA0,0,0,0,0,0,0,0,0,0
410 DATA0,0,0,0,0,0,0,0,0,0
420 DATA0,0,0,0,0,0,0,0,0,255