home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Run Magazine ReRun 1985 Winter
/
rerun-1985-winter.d64
/
screenbooter
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
2KB
|
51 lines
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