home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 54 / 054.d81 / loadstar forms (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  1.0 KB  |  44 lines
  1. 5 ifa=.thena=1:load"subscribe form",8,1
  2. 10 poke53280,7:poke53281,7
  3. 20 print"[147]         [204][207][193][196][211][212][193][210] [198][207][210][205][211] [208][210][201][206][212][197][210]"
  4. 30 print"        1) [208]rint [211]ubmission [198]orm"
  5. 40 print"        2) [208]rint [211]ubscription [198]orm"
  6. 50 print"        3) [210]eturn to [204]oadstar":poke198,.
  7. 60 geta$:ifa$<"1"ora$>"3"then60
  8. 70 ifa$="2"then2000
  9. 80 ifa$="3"then60000
  10. 90 :
  11. 1000 gosub3000:ifnot(ok)then10
  12. 1010 gosub4000:if(ab)then10
  13. 1020 open4,4,7:open3,8,3,"submission form":print#4,"          ";
  14. 1030 fori=.to1:get#3,a$:i=st
  15. 1040 ifa$=chr$(13)thenprint#4:print#4,"          ";:goto1060
  16. 1050 print#4,a$;
  17. 1060 next:close3
  18. 1070 fora=1to7:print#4:next
  19. 1080 close4:goto10
  20. 1090 :
  21. 2000 gosub3000:ifnot(ok)then10
  22. 2010 gosub4000:if(ab)then10
  23. 2020 open4,4,7:sys51137,32768:print#4
  24. 2030 close4:goto10
  25. 2040 :
  26. 3000 open15,4,15:close15
  27. 3010 ifst=.thenok=-1:return
  28. 3020 ok=.
  29. 3030 print"      [197]rror:  [208]rinter [206]ot [210]eady!"
  30. 3040 fora=1to2000:next:return
  31. 3050 :
  32. 4000 print"       [211]et printer to top of paper."
  33. 4010 print" [208]ress [211][208][193][195][197] to continue or [193] to [193][194][207][210][212]."
  34. 4020 a=peek(203):ifa<>60anda<>10then4020
  35. 4030 ab=.:ifa=10thenab=-1
  36. 4040 return
  37. 4050 :
  38. 60000 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  39. 60010 ifer<>63thenend
  40. 60020 print"[147]"
  41. 60030 print"[158]load"chr$(34)"hello connect"chr$(34)",8"
  42. 60040 print"run"
  43. 60050 poke631,13:poke632,13:poke198,2
  44.