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