home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 20
/
020.d81
/
scrambler
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
491b
|
20 lines
10 rem scrambler boot
20 poke53281,0:poke53280,6:print""
30 :
40 print"[147]"spc(10)"[211][195][210][193][205][194][204][197][210][160][205][197][206][213]"
50 :
60 print" 1 ==> [196]emonstration #1"
62 print" 2 ==> [196]emonstration #2"
64 print" 3 ==> [210]eturn to [204]oadstar"
70 :
80 print"[215]hich?";
90 poke198,0:wait198,1:geta$:ifa$<>"1"anda$<>"2"anda$<>"3"then90
91 printa$"[144]"
92 ifa$="1"thenf$="scrambler demo1"
94 ifa$="2"thenf$="scrambler demo2"
96 ifa$="3"thenf$="hello connect":print""
98 :
100 :
110 print"load"chr$(34)f$chr$(34)",8":print"run"
120 poke631,13:poke632,13:poke198,2:end