home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 42 / 042.d81 / print select (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  4.8 KB  |  167 lines
  1. 5 ns=2
  2. 10 gosub285
  3. 15 b=198
  4. 20 bl$="                                       ":gosub 25:goto35
  5. 25 open15,8,15,"i0":close15:open2,8,2,"$":forx=0to156:get#2,a$:next
  6. 30 get#2,a$:si=val(a$):close2:return
  7. 35 poke53281,.:poke53280,5
  8. 40 :
  9. 45 gosub 500
  10. 46 ifx=1 then pa=4:sa=7:c8%=-1:goto80
  11. 47 ifx=2 then pa=6:sa=0:goto80
  12. 48 ifx=3 then pa=4:sa=7:goto80
  13. 50 ifx=5 then 600
  14. 54 :
  15. 55 print"[147][154]             [195][213][211][212][207][205] [208][210][201][206][212][197][210]"
  16. 56 print"             [152][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  17. 60 print"[208]lease enter the correct information forthe printer you are using."
  18. 65 print"[155]     [207][208][197][206] # , [208][210][201][205][193][210][217] , [211][197][195][207][206][196][193][210][217]
  19. 70 [153]"cont(NULL)lease enter the (NULL)(NULL)right$(NULL)atn(NULL)(NULL)closeaddress :";:[141]700:pa[178][197](a$):
  20. 75 [153]"contclrenter the (NULL)vallen(NULL)(NULL)str$atn(NULL)(NULL) address :"; :[141]700:sa[178][197](a$)
  21. 80 [151]53280,6:[151]53281,6:[153]"load             len(NULL)(NULL)(NULL)(NULL)(NULL) (NULL)(NULL)right$(NULL)(NULL)val(NULL)"
  22. 81 [153]"             print#tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
  23. 85 :
  24. 86 [153]"           cont (NULL)(NULL)val(NULL) # ,print#"pa"cont,print#"sa
  25. 90 [153]"          print(NULL)rimary address ofprint#"pa"cmdcont."
  26. 95 [153]"         def(NULL)econdary address ofprint#"sa"cmdcont."
  27. 100 :
  28. 105 [153]"            right$s (NULL)his lenorrect?"
  29. 110 [153]"           cont(NULL)open)conteslist, cont(NULL)open)conto list(NULL)(NULL) cont(NULL)open)contuit":[151]198,.
  30. 115 [161]a$:[139]a$[178]""[167]115
  31. 120 [139]a$[179][177]"y"[175]a$[179][177]"n"[175]a$[179][177]"q"[167]115
  32. 125 :
  33. 130 [139]a$[178]"q"[167]245
  34. 135 [139]a$[178]"n"[167]40
  35. 140 [137]216
  36. 145 :
  37. 150 [153]"":[129]x[178]0[164]20:[153]bl$:[130]
  38. 155 [153]"    (NULL)lease insert (NULL)right$str$val"ag"of sys(NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)"
  39. 160 [153]"     in the drive and press (NULL)val(NULL)(NULL)(NULL)(NULL)"
  40. 165 [153]"     when you are ready to continue."
  41. 170 [153]"          ((NULL)ress (NULL) to (NULL)uit)"
  42. 175 [161]a$:[139]a$[178]"q"[167]280
  43. 176 [139]a$[179][177][199](13) [167] 175
  44. 180 [141] 25:[139]ag[178]si[167]195
  45. 185 [153]"":[129]x[178]1[164]20:[153]bl$:[130]
  46. 190 [153]"(NULL)ide"ag"not found...":[129]dl[178]1[164]2000:[130]:[137]150
  47. 195 [141]325
  48. 200 [153]"   (NULL)rint file is now on this side"
  49. 205 [153]"            of the disk."
  50. 210 [153]" (NULL)ress (NULL)val(NULL)(NULL)(NULL)(NULL) when ready to continue."
  51. 211 [161]a$:[139]a$[179][177][199](13) [167] 211
  52. 215 [142]
  53. 216 [151]53280,6:[151]53281,6:[153]"load"
  54. 217 [153]"   (NULL)ow a (NULL)val(NULL)(NULL) message will be sent to"
  55. 218 [153]"  your printer.  (NULL)atn(NULL)val (NULL)(NULL)(NULL)val (NULL)left$valclose(NULL)(NULL)right$(NULL)(NULL)val(NULL)"
  56. 219 [153]"      right$(NULL) (NULL)(NULL)-(NULL)right$(NULL)val atn(NULL)str$ (NULL)(NULL)(NULL)chr$chr$valstr$ right$(NULL)."
  57. 220 [153]" (NULL)ress (NULL)val(NULL)(NULL)(NULL)(NULL) when ready to continue."
  58. 221 [161]a$:[139]a$[179][177][199](13) [167] 221
  59. 222 [159]15,pa,15:[160]15:[139]st[179][177]0 [167] 231
  60. 223 [159]4,pa,sa:[152]4,[199](13)[199](13)[199](13)
  61. 224 [129]x[178]1[164]80:[152]4,".";:[130]:[152]4
  62. 225 [152]4,[199](13)[163]30)"(NULL)elcome (NULL)o (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)!":[152]4:[160]4
  63. 226 [153]"load  str$o you which to return to the menu?"
  64. 228 [161]a$:[139]a$[179][177]"y"[175]a$[179][177]"n"[167]228
  65. 229 [139]a$[178]"y" [167] 45
  66. 230 [139] a$[178]"n" [167] 239
  67. 231 [153]"load sys (NULL)he (NULL)rinter was (NULL)(NULL)(NULL) str$val(NULL)vallen(NULL)valstr$.  (NULL)his"
  68. 232 [153]"  can be from it not being plugged in"
  69. 233 [153]"    or an inproper printer setup."
  70. 234 [153]" (NULL)ould you like to try the (NULL)val(NULL)(NULL) again?"
  71. 235 [161]a$:[139]a$[178]""[167] 235
  72. 236 [139] a$[178]"y"[167] 216
  73. 237 [139] a$[178]"n"[167] 226
  74. 238 [137] 235
  75. 239 [129]ag[178]1[164]ns:[141]150:[130]ag
  76. 240 :
  77. 245 [153]"":[129]x[178]0[164]20:[153]bl$:[130]
  78. 250 [153]""
  79. 255 [153]"   (NULL)lease place side"ns"of sys(NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)"
  80. 260 [153]"   in the drive and press (NULL)val(NULL)(NULL)(NULL)(NULL)."
  81. 265 [161]a$:[139]a$[179][177][199](13)[167]265
  82. 266 [151]53281,6:[151]53280,6
  83. 267 [153]"load       (NULL)lease (NULL)ait (NULL)hile (NULL)oading..."
  84. 268 [151]646,[194](53281)
  85. 270 [159]15,8,15,"r0:custom ls boot=custom ls boot":[132]15,er:[160]15
  86. 275 [139]er[179][177]63[167]245
  87. 280 [147]"custom ls boot",8
  88. 285 cr$[178][199](13)
  89. 290 [159]15,8,15
  90. 295 [159]3,8,4,"setup"
  91. 300 [132]3,d$(1),d$(2),d$(3),d$(4),d$(5),d$(6),d$(7)
  92. 305 [160]3
  93. 310 [160]15
  94. 315 pa[178][197](d$(4)):sa[178][197](d$(5))
  95. 320 [142]
  96. 325 [160]15:[159]15,8,15
  97. 330 d$(4)[178][202]([196](pa),2)
  98. 335 d$(5)[178][202]([196](sa),2)
  99. 340 [159]3,8,4,"setup":cr$[178][199](13)
  100. 345 [152]15,"p"[199](0)"";
  101. 350 [152]3,d$(1)cr$d$(2)cr$d$(3)cr$d$(4)cr$d$(5)cr$d$(6)cr$d$(7)cr$
  102. 355 [160]3
  103. 360 [160]15
  104. 365 [142]
  105. 370 [153]"on  contatnre you sure you want to quit? ((NULL)cont/(NULL)cont)":[151]198,.
  106. 375 a[178][194](203):[139]a[179][177]25[175]a[179][177]39[167]375
  107. 380 [139]a[178]39[167][153]"on                                      on":[142]
  108. 385 [137]245
  109. 500 [151]53281,241:[151]53280,254
  110. 501 [153]"load"
  111. 502 [153]" stopor{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}^"
  112. 503 mm$[178]" (NULL)                                    (NULL)":[153]mm$
  113. 504 [153]" (NULL)    (NULL)hich (NULL)rinter peekest str$escribes    stop(NULL)"
  114. 505 [153]" (NULL)       (NULL)he (NULL)rinter (NULL)ou (NULL)se?         stop(NULL)"
  115. 506 [129]a[178]1[164]15
  116. 507 [153]mm$
  117. 508 [130]
  118. 509 [153]" {$7d}   clrUse Your CRSR clrKeys To Move The   stop{$7d}"
  119. 510 [153]" {$7d}  cont SELECTOR BOX listwaitrnd clrand press RETURN  stop{$7d}"
  120. 511 [153]" {$7d}   listnewnewnewnewnewnewnewnewnewnewnewnewnewwaitcos                   stop{$7d}"
  121. 512 [153]" /{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}exp"
  122. 513 [153]"";
  123. 514 a$(1)[178]"  len(NULL)(NULL)(NULL)(NULL)str$(NULL)(NULL)val 1525 (NULL)r lenommpatable  "
  124. 515 a$(2)[178]"         len(NULL)(NULL)(NULL)(NULL)str$(NULL)(NULL)val 1520          "
  125. 516 a$(3)[178]"         len(NULL)(NULL)(NULL)(NULL)str$(NULL)(NULL)val 1515          "
  126. 517 a$(4)[178]"          (NULL)(NULL)left$val(NULL) (NULL)(NULL)right$(NULL)(NULL)val(NULL)          "
  127. 518 a$(5)[178]"           *  (NULL)(NULL)right$(NULL)  *            "
  128. 519 s$[178]   "                                   "
  129. 520 p$[178]""
  130. 521 [153]p$;:[129]x[178]1 [164] 5
  131. 522 [153]a$(x)[199](13)s$
  132. 523 [130]:x[178]1:[141]524:[137]527
  133. 524 pt$[178]"cont"[170]a$(x)[170]"waitlistrnd"
  134. 525 pt$[178]pt$[170][199](13)[170]"listlognewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewwaitcos"
  135. 526 [142]
  136. 527 [153]p$pt$
  137. 528 [161]a$:[139]a$[178]""[167]528
  138. 529 [139]a$[178]""[175]x[179]5 [167] a[178]1:[137] 533
  139. 530 [139]a$[178]"on"[175]x[177]1 [167] a[178][171]1:[137] 533
  140. 531 [139]a$[178][199](13) [167] 538
  141. 532 [137] 528
  142. 533 [153]p$"stop"a$(x)" "[199](13)s$
  143. 534 [139]a[178]1 [167] p$[178]p$[170]""
  144. 535 [139]a[179]1 [167] p$[178][200](p$,[195](p$)[171]2)
  145. 536 x[178]x[170]a:[141] 524
  146. 537 [137] 527
  147. 538 [142]
  148. 600 [153]""
  149. 601 [153]"                      print#
  150. 602 print" [196]o you wish to quit? [151] [146]
  151. 603 [153]"                      poke wait
  152. 604 print"       [217])es [207]r [206])o    [151] [146]
  153. 605 [153]"                      poke wait
  154. 607 print"[151]                      [146]
  155. 608 [161]a$:[139]a$[178]""[167]608
  156. 610 [139]a$[178]"y"[176]a$[178]"(NULL)"[167] [151]53280,6:[151]53281,6:[153]"load":[137]245
  157. 611 [139]a$[178]"n"[176]a$[178]"(NULL)"[167] 45
  158. 612 [137] 608
  159. 700 a$[178]"":[129]x[178]1[164]3
  160. 701 [161]b$:[139]b$[178]""[167]701
  161. 702 [139]b$[178][199](20)[175]x[178]1[167]701
  162. 703 [139]b$[178][199](20)[167]x[178]x[171]1:[153]b$"tocmd";:a$[178][200](a$,x[171]1):[137]701
  163. 704 [139]b$[178][199](13) [167] [153]" ":[142]
  164. 705 [139]b$[179]"0"[176]b$[177]"9"[167] 701
  165. 706 [139]x[178]2 [167] 701
  166. 710 a$[178]a$[170]b$:[153]b$"tocmd";:[130]
  167.