home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 231 / 231.d81 / connect (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  569b  |  20 lines
  1. 10 rem connect
  2. 15 dq=peek(186)
  3. 20 poke53280,14:poke53281,6:print""
  4. 30 ifpeek(169)=1andpeek(170)=2then100
  5. 40 print"[147]  [205]aybe going to [196]ispute?'s [199]azelle or"
  6. 42 printspc(13)"maybe not...":poke198,.:poke204,1
  7. 45 print"        load"chr$(34)"disputes gazelle"chr$(34)","dq
  8. 47 print"run":poke631,13:poke632,13:poke198,2:end
  9. 50 :
  10. 100 print"[147][196]o you want to see how [193]lfredo's doing?"
  11. 110 poke198,0:wait198,1:geta$
  12. 120 ifa$="y"then200
  13. 130 goto40
  14. 140 :
  15. 200 print"           load"chr$(34)"alf.connect"chr$(34)","dq:print"run"
  16. 202 poke631,13:poke632,13:poke198,2:end
  17. 59999 end
  18. 60000 d=peek(186):open1,d,15,"i0":n$="connect"
  19. 60001 print#1,"s0:"+n$:close1:saven$,d:end
  20.