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