home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 68 / 068.d81 / bits (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  782 b   |  23 lines
  1. 100 poke53280,0:poke53281,0
  2. 110 poke52,48:poke56,48
  3. 120 sys57812"cc.font",8,0:poke780,0:poke781,0:poke782,56:sys65493
  4. 130 sys57812"cc.data",8,0:poke780,0:poke781,0:poke782,64:sys65493
  5. 140 sys57812"cc.o",8,0:poke780,0:poke781,0:poke782,65:sys65493
  6. 150 :
  7. 160 print"[147]" : poke53272,31
  8. 170 :
  9. 180 print"[156]     @@@@ [159][202]ust a little example [156]@@@@"
  10. 200 print"[156]       @@@@@@@@@@@@@@@@@@@@@@@@@@@"
  11. 210 print"       @                         @"
  12. 220 print"       @  [154][208]ress [211][208][193][195][197][154] to return  [156]@"
  13. 230 print"       @      [154]to [204][207][193][196][211][212][193][210]        [156]@"
  14. 240 print"       @                         @"
  15. 250 print"       @@@@@@@@@@@@@@@@@@@@@@@@@@@"
  16. 260 sys65*256
  17. 280 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  18. 290 ifer<>63thenpoke52,160:poke56,160:poke53272,21:end
  19. 300 print"[147][144]load"chr$(34)"hello connect"chr$(34)",8"
  20. 310 print"run"
  21. 320 poke631,13:poke632,13:poke198,2:end
  22. 10000 open15,8,15,"s0:bits":close15:save"bits",8:end
  23.