home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 105
/
105.d81
/
main
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
1KB
|
40 lines
0 poke 53280,5:poke 53281,5:if fl=0 then fl=1:load"load",8,1
1 if fl=1 then fl=2:df=peek(53272):load"maze",8,1
120 cr=4*4096+1023:poke 53280,6:poke 53281,1
121 sn=(4*4096)-1:poke 53265,peek(53265)and 239
123 for t=1 to 1024
124 poke 1023+t,peek(sn+t)
125 next t
130 for t=1 to 1024
131 poke 55295+t,peek(cr+t)
133 next t
150 poke 53272,peek(53272)or 8
151 poke 53265,peek(53265)or32
152 poke 53270,216:poke 53265,peek(53265)or16
200 get a$:if a$="" then 200
202 if a$="1" then gosub4000:goto 1000
203 if a$="2" then gosub4000:goto 2000
204 if a$="3" then gosub4000:goto 3000
210 goto 200
1000 print"[147]":print"[144]";tab(10)"loading....please wait!"
1001 for t=1 to 1000:next t:sys 49152
2000 poke 646,5:print"[147]load";chr$(34)"direct";chr$(34);",8,1"
2001 print"run"
2005 poke 646,0
2006 print:print:print:print:printtab(10)"loading instructions"
2010 print"":poke 631,13:poke 632,13:poke 633,13:poke 198,3:end
3000 print:print"[147]":print:print:print:printtab(14)" please "
3001 printtab(14)" insert "
3002 printtab(14)" loadstar "
3003 printtab(14)" side 1 "
3004 printtab(14)" then "
3005 printtab(14)" press "
3006 printtab(14)" return "
3007 get a$:if a$<>chr$(13) then 3007
3008 print:printtab(9)"returning to loadstar"
3012 load"!",8,1
4000 poke 53265,peek(53265)and 223
4001 poke 53270,peek(53270)and 239
4002 poke 53272,peek(53272)and 247
4003 return