home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 98 / 098.d81 / subscriptions (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  88 lines
  1. 2 poke53281,0:poke53280,0
  2. 4 print"[147][129]           [204][207][193][196][211][212][193][210] [211][213][194][211][195][210][201][208][212][201][207][206][211]
  3. 6 [153]"    1  cont(NULL)rint (NULL)ubscription (NULL)rder ascorm
  4. 8 print"    2  [154][210]eturn to [204][207][193][196][211][212][193][210]
  5. 10 [161]a$:[139]a$[179]"1"[176]a$[177]"2"[167]10
  6. 12 [139]a$[178]"1"[167]24
  7. 14 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er:[160]15
  8. 16 [139]er[179][177]63[167] [128]
  9. 18 [153]"loadstopload"[199](34)"hello connect"[199](34)",8
  10. 20 print"run"
  11. 22 poke631,13:poke632,13:poke198,2:end
  12. 24 open4,4,7:close4
  13. 26 ifst<>-128then34
  14. 28 poke646,2+d:poke214,10:print:print"   [212]urn your printer on - press a key[145]"
  15. 30 geta$:d=5-d:ifa$=""then28
  16. 32 goto24
  17. 34 poke214,10:print:print"[158]   [211]et top of form and press any key."
  18. 36 geta$:ifa$=""then36
  19. 40 open4,4,7:cmd4
  20. 42 sp$="                                                              "
  21. 44 d$="-----------------------------------------------------------------"
  22. 48 goto100
  23. 50 printleft$(sp$,40-(len(m$)/2))m$
  24. 52 return
  25. 100 m$="[204][207][193][196][211][212][193][210] [211][213][194][211][195][210][201][208][212][201][207][206] [207][210][196][197][210] [198][207][210][205]":gosub50
  26. 102 print
  27. 103 print"    [205][207][206][212][200][211]    [201][211][211][213][197][211]    [213]. [211]. [208][210][201][195][197]    [195][193][206]/[205][197][216] [208][210][201][195][197]    [207][212][200][197][210] [208][210][201][195][197]
  28. 104 [153][200](sp$,38)"((NULL)(NULL) funds only)  ((NULL)(NULL) funds only)
  29. 105 print"    "d$
  30. 118 print
  31. 120 m$="[204][207][193][196][211][212][193][210] ([205]onthly) [210][193][212][197][211]":gosub50
  32. 122 m$="[208]ay as little as $6.25 [208][197][210] [201][211][211][213][197]!":gosub50
  33. 124 print"      3         3        $  29.95         $  34.95        $  39.95
  34. 126 [153]"      6         6        $  49.95         $  59.95        $  69.95
  35. 128 print"     12        12        $  89.95         $ 109.95        $ 129.95
  36. 130 [153]"     24        24        $ 149.95         $ 189.95        $ 229.95
  37. 132 print
  38. 134 m$="[204][207][193][196][211][212][193][210] 128 ([209]uarterly) [210]ates":gosub50
  39. 136 m$="[208]ay as little as $8.33 [208][197][210] [201][211][211][213][197]!":gosub50
  40. 138 print"      6         2        $  24.95         $  29.95        $  34.95
  41. 140 [153]"     12         4        $  39.95         $  49.95        $  59.95
  42. 142 print"     24         8        $  69.95         $  89.95        $ 109.95
  43. 144 [153]"     36        12        $  99.95         $ 129.95        $ 159.95
  44. 146 print
  45. 150 m$="[204][207][193][196][211][212][193][210]/[204][207][193][196][211][212][193][210] 128 [211]uper [211]aver [195]ombo":gosub50
  46. 152 print"  [210]eceive both [204][207][193][196][211][212][193][210] and [204][207][193][196][211][212][193][210] 128 for as little as $6.25 per issue!
  47. 154 [153]"      6         8        $  64.95         $  79.95        $  94.95
  48. 156 print"     12        16        $ 119.95         $ 149.95        $ 179.95
  49. 158 [153]"     24        32        $ 199.95         $ 259.95        $ 319.95
  50. 255 print
  51. 257 print"  [195]ircle the price(s) of the subscription(s) you want.
  52. 325 [153]
  53. 330 [153][200](sp$,49)"(NULL)(NULL)(NULL)atn(NULL) $"
  54. 335 [153][200](sp$,56)"---------------"
  55. 340 [153]"  (NULL)atn(NULL)val:"
  56. 345 [153]"       "[200](d$,64)
  57. 350 [153]"  (NULL)atnright$(NULL)right$(NULL)chr$ atnstr$str$(NULL)val(NULL)(NULL):"
  58. 360 [153]"                  "[200](d$,53)
  59. 370 [153]"  (NULL)(NULL)(NULL)valval(NULL) atnstr$str$(NULL)val(NULL)(NULL):"
  60. 380 [153]"                 "[200](d$,54)
  61. 390 [153]"  lenright$(NULL)(NULL):                                    ";
  62. 400 [153]"(NULL)(NULL)atn(NULL)val:        (NULL)right$(NULL):"
  63. 405 [153]"       "[200](d$,36);
  64. 407 [153]"      --------    ----------"
  65. 410 [153]"  (NULL)left$(NULL)(NULL)val: (     )"
  66. 415 [153]"        "[200](d$,20)
  67. 420 m$[178]"(NULL)val(NULL)left$(NULL)str$ (NULL)asc (NULL)atn(NULL)(NULL)val(NULL)(NULL):":[141]50
  68. 430 [153]"         lenleft$vallen(NULL) (NULL)(NULL) (NULL)(NULL)(NULL)val(NULL) (NULL)(NULL)str$val(NULL)"
  69. 440 [153]"  ------ ((NULL)ake payment to (NULL)(NULL)asc(NULL)str$right$(NULL)(NULL) (NULL)(NULL)peek(NULL)right$(NULL)left$right$(NULL)chr$ right$(NULL) (NULL).(NULL). asc(NULL)(NULL)str$(NULL) (NULL)(NULL)(NULL)(NULL).)"
  70. 450 [153]
  71. 460 [153]"          str$right$(NULL)len(NULL)(NULL)val(NULL)        (NULL)len        (NULL)right$(NULL)atn        atn(NULL)val(NULL)
  72. 465 print"  --------        --------  --------    --------"
  73. 470 print"  [193][195][195][207][213][206][212] #:"
  74. 475 print"            "left$(d$,60)
  75. 480 print"  [197][216][208][201][210][193][212][201][207][206] [196][193][212][197]:"
  76. 485 print"                  "left$(d$,54)
  77. 490 print"  [211][201][199][206][193][212][213][210][197]:"
  78. 495 print"            "left$(d$,60)
  79. 497 print
  80. 500 print"  [205][193][201][204] [212][207]:";
  81. 510 printleft$(sp$,13)"[211]oftdisk [208]ublishing, [208].[207]. [194]ox 30008,
  82. 520 m$[178]"(NULL)hreveport, (NULL)atn  71130-0008":[141]50
  83. 530 m$[178]"1 - 8 0 0 - 8 3 1 - 2 6 9 4":[141]50
  84. 540 m$[178]"(NULL)left$(NULL)(NULL)val 1-318-221-8718  ascatn(NULL) 1-318-221-8870":[141]50
  85. 600 [152]4:[160]4
  86. 610 [138]
  87. 10000 [159]15,8,15,"s0:subscriptions":[160]15:[148]"subscriptions",8:[128]
  88.