home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 102 / 102.d81 / subscriptions (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  90 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 [137]60000
  8. 24 [159]4,4,7:[160]4
  9. 26 [139]st[179][177][171]128[167]34
  10. 28 [151]646,2[170]d:[151]214,10:[153]:[153]"   (NULL)urn your printer on - press a keyon"
  11. 30 [161]a$:d[178]5[171]d:[139]a$[178]""[167]28
  12. 32 [137]24
  13. 34 [151]214,10:[153]:[153]"sys   (NULL)et top of form and press any key."
  14. 36 [161]a$:[139]a$[178]""[167]36
  15. 40 [159]4,4,7:[157]4
  16. 42 sp$[178]"                                                              "
  17. 44 d$[178]"-----------------------------------------------------------------"
  18. 48 [137]100
  19. 50 [153][200](sp$,40[171]([195](m$)[173]2))m$
  20. 52 [142]
  21. 100 m$[178]"(NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) (NULL)(NULL)peek(NULL)len(NULL)right$(NULL)(NULL)right$(NULL)(NULL) (NULL)(NULL)str$val(NULL) asc(NULL)(NULL)(NULL)":[141]50
  22. 102 [153]
  23. 103 [153]"    (NULL)(NULL)(NULL)(NULL)left$(NULL)    right$(NULL)(NULL)(NULL)val(NULL)    (NULL). (NULL). (NULL)(NULL)right$lenval    lenatn(NULL)/(NULL)val(NULL) (NULL)(NULL)right$lenval    (NULL)(NULL)left$val(NULL) (NULL)(NULL)right$lenval
  24. 104 printleft$(sp$,38)"([213][211] funds only)  ([213][211] funds only)
  25. 105 [153]"    "d$
  26. 118 [153]
  27. 120 m$[178]"(NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) ((NULL)onthly) (NULL)atn(NULL)val(NULL)":[141]50
  28. 122 m$[178]"(NULL)ay as little as $6.25 (NULL)val(NULL) right$(NULL)(NULL)(NULL)val!":[141]50
  29. 124 [153]"      3         3        $  29.95         $  34.95        $  39.95
  30. 126 print"      6         6        $  49.95         $  59.95        $  69.95
  31. 128 [153]"     12        12        $  89.95         $ 109.95        $ 129.95
  32. 130 print"     24        24        $ 149.95         $ 189.95        $ 229.95
  33. 132 [153]
  34. 134 m$[178]"(NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) 128 ((NULL)uarterly) (NULL)ates":[141]50
  35. 136 m$[178]"(NULL)ay as little as $8.33 (NULL)val(NULL) right$(NULL)(NULL)(NULL)val!":[141]50
  36. 138 [153]"      6         2        $  24.95         $  29.95        $  34.95
  37. 140 print"     12         4        $  39.95         $  49.95        $  59.95
  38. 142 [153]"     24         8        $  69.95         $  89.95        $ 109.95
  39. 144 print"     36        12        $  99.95         $ 129.95        $ 159.95
  40. 146 [153]
  41. 150 m$[178]"(NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)/(NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) 128 (NULL)uper (NULL)aver lenombo":[141]50
  42. 152 [153]"  (NULL)eceive both (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) and (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) 128 for as little as $6.25 per issue!
  43. 154 print"      6         8        $  64.95         $  79.95        $  94.95
  44. 156 [153]"     12        16        $ 119.95         $ 149.95        $ 179.95
  45. 158 print"     24        32        $ 199.95         $ 259.95        $ 319.95
  46. 255 [153]
  47. 257 [153]"  lenircle the price(s) of the subscription(s) you want.
  48. 325 print
  49. 330 printleft$(sp$,49)"[212][207][212][193][204] $"
  50. 335 printleft$(sp$,56)"---------------"
  51. 340 print"  [206][193][205][197]:"
  52. 345 print"       "left$(d$,64)
  53. 350 print"  [205][193][201][204][201][206][199] [193][196][196][210][197][211][211]:"
  54. 360 print"                  "left$(d$,53)
  55. 370 print"  [211][212][210][197][197][212] [193][196][196][210][197][211][211]:"
  56. 380 print"                 "left$(d$,54)
  57. 390 print"  [195][201][212][217]:                                    ";
  58. 400 print"[211][212][193][212][197]:        [218][201][208]:"
  59. 405 print"       "left$(d$,36);
  60. 407 print"      --------    ----------"
  61. 410 print"  [208][200][207][206][197]: (     )"
  62. 415 print"        "left$(d$,20)
  63. 420 m$="[205][197][212][200][207][196] [207][198] [208][193][217][205][197][206][212]:":gosub50
  64. 430 print"         [195][200][197][195][203] [207][210] [205][207][206][197][217] [207][210][196][197][210]"
  65. 440 print"  ------ ([205]ake payment to [211][207][198][212][196][201][211][203] [208][213][194][204][201][211][200][201][206][199] [201][206] [213].[211]. [198][213][206][196][211] [207][206][204][217].)"
  66. 450 print
  67. 460 print"          [196][201][211][195][207][214][197][210]        [205][195]        [214][201][211][193]        [193][205][197][216]
  68. 465 [153]"  --------        --------  --------    --------"
  69. 470 [153]"  atnlenlen(NULL)(NULL)(NULL)(NULL) #:"
  70. 475 [153]"            "[200](d$,60)
  71. 480 [153]"  val(NULL)(NULL)right$(NULL)atn(NULL)right$(NULL)(NULL) str$atn(NULL)val:"
  72. 485 [153]"                  "[200](d$,54)
  73. 490 [153]"  (NULL)right$chr$(NULL)atn(NULL)(NULL)(NULL)val:"
  74. 495 [153]"            "[200](d$,60)
  75. 497 [153]
  76. 500 [153]"  (NULL)atnright$(NULL) (NULL)(NULL):";
  77. 510 [153][200](sp$,13)"(NULL)oftdisk (NULL)ublishing, (NULL).(NULL). peekox 30008,
  78. 520 m$="[211]hreveport, [204][193]  71130-0008":gosub50
  79. 530 m$="1 - 8 0 0 - 8 3 1 - 2 6 9 4":gosub50
  80. 540 m$="[208][200][207][206][197] 1-318-221-8718  [198][193][216] 1-318-221-8870":gosub50
  81. 600 print#4:close4
  82. 610 run
  83. 10000 open15,8,15,"s0:subscriptions":close15:save"subscriptions",8:end
  84. 60000 a$="hello connect":fori=8to9:close2:open2,i,2:close2:ifstthen60020
  85. 60010 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then60030
  86. 60020 next:print"[147]":end
  87. 60030 q$=chr$(34):poke646,peek(53281):print"[147]"
  88. 60040 print"[147]load"q$a$q$","i
  89. 60050 print"run":poke631,13:poke632,13:poke198,2:end
  90.