home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 January / Ahoy_Magazine_86-01_1986_Double_L.d64 / receiver (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  742 b   |  27 lines
  1. 0 rem << rr25-1 >>
  2. 30000 rem -=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  3. 30001 rem   - rs-232 receiver -
  4. 30002 rem    rupert report #25
  5. 30003 rem =-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  6. 30004 rem receive an ascii program from
  7. 30005 rem the rs-232 port into memory
  8. 30006 rem =-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  9. 30030 print chr$(147);
  10. 30040 open 2,2,0,chr$(8)+chr$(0)
  11. 30050 rem - get up to 80 characters -
  12. 30060 gosub 30120
  13. 30070 print l$
  14. 30080 print "run 30000"
  15. 30090 poke 631,19 : poke 632,13 : poke 633,13 : poke 198,3 :rem fill kbd buffer
  16. 30100 close 2 : end
  17. 30110 rem == get up to 80 characters ==
  18. 30120 get#2,c$ : if c$="" then 30120
  19. 30130 if c$=chr$(13) then 30160
  20. 30140 if c$=chr$(26) then print#2 : close 2 : goto 30180
  21. 30150 l$=l$+c$ : goto 30120
  22. 30160 l$=left$(l$,79)
  23. 30170 return
  24. 30180 rem  delete lines of this program
  25. 30190 for n=30000 to 30200 step 10 :print n : next
  26. 30200 print"press <home> and 21 <returns> to delete these lines";
  27.