home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 64
/
064.d81
/
bits
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
966b
|
32 lines
10 poke53281,9:poke53280,9:print"[147][158]"
15 c=49152
20 print" [198]ender and [211]cott's [201]ncredible [195]lock"
30 sys57812"tod.o",8,0:poke780,0:poke781,0:poke782,192:sys65493
100 poke214,6:print
110 printtab(13)"[144][176][192][192][192][192][192][192][192][192][174]"
120 printtab(13)"[221] [221]"
130 printtab(13)"[173][192][192][192][192][192][192][192][192][189]"
140 poke214,12:print:print"[158] [208]ress a number between 1 and 8"
150 print" to select how many digits of the"
160 print" clock will be displayed. [210]emember,"
170 print" the colons are 'digits' too.
180 [153]" peekreak out of the program by pressing"
185 [153]" (NULL)(NULL)(NULL)/(NULL)(NULL)(NULL)(NULL) to verify that the clock is"
188 [153]" indeed 'interrupt-driven'."
190 [153]" (NULL) quits to (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)"
200 x$[178]"":[151]214,7:[153]:[153][163]14)" "
210 [161]a$:[139]a$[179]"1"[176]a$[177]"8"[175]a$[179][177]"q"[167]210
220 [139]a$[178]"q"[167]500
230 d[178][197](a$)
250 [129]i[178]1[164]d:x$[178]x$[170]"x":[130]
260 [158]c,22[171]d,8,1,x$:[143] turn on clock
270 [137]200
500 [158]49155:[143] turn off clock
505 [153]"load"
510 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er:[160]15
520 [139]er[179][177]63[167][128]
530 [153]"loadverifyload"[199](34)"hello connect"[199](34)",8"
540 [153]"run"
550 [151]631,13:[151]632,13:[151]198,2:[128]
10000 [159]15,8,15,"s0:bits":[160]15:[148]"bits",8