home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 55 / 055.d81 / pokeless (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  37 lines
  1. 100 poke53280, 0:poke53281, 0:print"[147][142]";
  2. 101 print"[155][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  3. 102 print"[152]    loadstar proudly presents    "
  4. 103 print"[151][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  5. 104 print"                            "
  6. 105 print" Q                        Q "
  7. 106 print"      p o k e l e s s       "
  8. 107 print" Q                        Q "
  9. 108 print"       s p r i t e s        "
  10. 109 print" [209] ---------------------- [209] "
  11. 110 print"                            "
  12. 113 print" Q  15 p%(1)=255          Q "
  13. 114 print"    20 c%(1)=1              "
  14. 115 print" Q  25 x%(1)=100          Q "
  15. 116 print"    30 y%(1)=100            "
  16. 117 print" Q  35 e%(1)=1            Q "
  17. 118 print"                            "
  18. 119 print" [209]  this routine doesn't  [209] "
  19. 120 print"   reconnect to loadstar.   "
  20. 121 print" [209]                        [209] "
  21. 122 print"   press space to load it   "
  22. 123 print" [209]  or return to go back  [209] "
  23. 124 print"       to loadstar.         "
  24. 125 print" [209]                        [209] "
  25. 126 print"                            "
  26. 210 geta$:ifa$<>chr$(13)anda$<>" "then210
  27. 220 ifa$=" "then300
  28. 250 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  29. 255 ifer<>63 then print"[147]":end
  30. 256 poke53281,0:poke53280,0:print"[147][144]load"chr$(34)"hello connect"chr$(34)",8"
  31. 257 print"run"
  32. 258 poke631,13:poke632,13:poke198,2:end
  33. 300 print"[147]":poke214,10:print:print"              [208]lease wait..."
  34. 310 poke147,0:sys57812"pokeless.o",8,1:sys62631
  35. 320 print"[147] [208][207][203][197][204][197][211][211] [211][208][210][201][212][197][211] [193][195][212][201][214][193][212][197][196]!"
  36. 325 sys 52850
  37.