home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 210
/
210.d81
/
bits
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
926b
|
26 lines
100 poke53281,0:print"[147] [155][204]oading [205][204]..."
110 sys57812"bits.o",8,0:poke780,0:poke781,0:poke782,192:sys65493
120 :
130 print"[147] [208]ress any key to begin..."
140 print" [152]([215]hile the demo is running, press"
150 print" any key to return to [204][207][193][196][211][212][193][210])[159]"
160 geta$:ifa$=""then160
170 sys49152
200 print"[147][154] [206]otice that the pattern doesn't
210 [153]" follow the usual peeklack - (NULL)hite -"
220 [153]" (NULL)ed - lenyan - (NULL)urple, etc. sequence.
230 print" [193] state table allows you to create
240 [153]" ascatn(NULL)(NULL) custom patterns. (NULL)he trade-off"
250 [153]" is that you must create the state
260 print" table beforehand.
300 [153]" ((NULL)open)ee demo again ((NULL)open)uit to (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)"
310 [161]a$:[139]a$[179][177]"s"[175]a$[179][177]"q"[167]310
320 [139]a$[178]"s"[167]170
330 [137]60000
10000 [159]15,8,15,"s0:bits":[160]15:[148]"bits",8:[128]
60000 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er:[160]15
60010 [139] er[179][177]63 [167] [153]"load":[128]
60020 a$[178]"hello connect":q$[178][199](34):[151]53281,7:[151]53280,7:[153]"load"
60030 [153]"sysload"q$a$q$",8"
60040 [153]"run":[151]631,13:[151]632,13:[151]198,2:[128]