Loadstar 101/101.d81/subscriptions

Commodore BASIC | 1992-01-01 | 3.3 KB | 90 lines

2 poke53281,0:poke53280,0
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]
6 [153]"    1  cont(NULL)rint (NULL)ubscription (NULL)rder ascorm
8 print"    2  [154][210]eturn to [204][207][193][196][211][212][193][210]
10 [161]a$:[139]a$[179]"1"[176]a$[177]"2"[167]10
12 [139]a$[178]"1"[167]24
14 [137]60000
24 [159]4,4,7:[160]4
26 [139]st[179][177][171]128[167]34
28 [151]646,2[170]d:[151]214,10:[153]:[153]"   (NULL)urn your printer on - press a keyon"
30 [161]a$:d[178]5[171]d:[139]a$[178]""[167]28
32 [137]24
34 [151]214,10:[153]:[153]"sys   (NULL)et top of form and press any key."
36 [161]a$:[139]a$[178]""[167]36
40 [159]4,4,7:[157]4
42 sp$[178]"                                                              "
44 d$[178]"-----------------------------------------------------------------"
48 [137]100
50 [153][200](sp$,40[171]([195](m$)[173]2))m$
52 [142]
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
102 [153]
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
104 printleft$(sp$,38)"([213][211] funds only)  ([213][211] funds only)
105 [153]"    "d$
118 [153]
120 m$[178]"(NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) ((NULL)onthly) (NULL)atn(NULL)val(NULL)":[141]50
122 m$[178]"(NULL)ay as little as $6.25 (NULL)val(NULL) right$(NULL)(NULL)(NULL)val!":[141]50
124 [153]"      3         3        $  29.95         $  34.95        $  39.95
126 print"      6         6        $  49.95         $  59.95        $  69.95
128 [153]"     12        12        $  89.95         $ 109.95        $ 129.95
130 print"     24        24        $ 149.95         $ 189.95        $ 229.95
132 [153]
134 m$[178]"(NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) 128 ((NULL)uarterly) (NULL)ates":[141]50
136 m$[178]"(NULL)ay as little as $8.33 (NULL)val(NULL) right$(NULL)(NULL)(NULL)val!":[141]50
138 [153]"      6         2        $  24.95         $  29.95        $  34.95
140 print"     12         4        $  39.95         $  49.95        $  59.95
142 [153]"     24         8        $  69.95         $  89.95        $ 109.95
144 print"     36        12        $  99.95         $ 129.95        $ 159.95
146 [153]
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
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!
154 print"      6         8        $  64.95         $  79.95        $  94.95
156 [153]"     12        16        $ 119.95         $ 149.95        $ 179.95
158 print"     24        32        $ 199.95         $ 259.95        $ 319.95
255 [153]
257 [153]"  lenircle the price(s) of the subscription(s) you want.
325 print
330 printleft$(sp$,49)"[212][207][212][193][204] $"
335 printleft$(sp$,56)"---------------"
340 print"  [206][193][205][197]:"
345 print"       "left$(d$,64)
350 print"  [205][193][201][204][201][206][199] [193][196][196][210][197][211][211]:"
360 print"                  "left$(d$,53)
370 print"  [211][212][210][197][197][212] [193][196][196][210][197][211][211]:"
380 print"                 "left$(d$,54)
390 print"  [195][201][212][217]:                                    ";
400 print"[211][212][193][212][197]:        [218][201][208]:"
405 print"       "left$(d$,36);
407 print"      --------    ----------"
410 print"  [208][200][207][206][197]: (     )"
415 print"        "left$(d$,20)
420 m$="[205][197][212][200][207][196] [207][198] [208][193][217][205][197][206][212]:":gosub50
430 print"         [195][200][197][195][203] [207][210] [205][207][206][197][217] [207][210][196][197][210]"
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].)"
450 print
460 print"          [196][201][211][195][207][214][197][210]        [205][195]        [214][201][211][193]        [193][205][197][216]
465 [153]"  --------        --------  --------    --------"
470 [153]"  atnlenlen(NULL)(NULL)(NULL)(NULL) #:"
475 [153]"            "[200](d$,60)
480 [153]"  val(NULL)(NULL)right$(NULL)atn(NULL)right$(NULL)(NULL) str$atn(NULL)val:"
485 [153]"                  "[200](d$,54)
490 [153]"  (NULL)right$chr$(NULL)atn(NULL)(NULL)(NULL)val:"
495 [153]"            "[200](d$,60)
497 [153]
500 [153]"  (NULL)atnright$(NULL) (NULL)(NULL):";
510 [153][200](sp$,13)"(NULL)oftdisk (NULL)ublishing, (NULL).(NULL). peekox 30008,
520 m$="[211]hreveport, [204][193]  71130-0008":gosub50
530 m$="1 - 8 0 0 - 8 3 1 - 2 6 9 4":gosub50
540 m$="[208][200][207][206][197] 1-318-221-8718  [198][193][216] 1-318-221-8870":gosub50
600 print#4:close4
610 run
10000 open15,8,15,"s0:subscriptions":close15:save"subscriptions",8:end
60000 a$="hello connect":fori=8to9:close2:open2,i,2:close2:ifstthen60020
60010 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then60030
60020 next:print"[147]":end
60030 q$=chr$(34):poke646,peek(53281):print"[147]"
60040 print"[147]load"q$a$q$","i
60050 print"run":poke631,13:poke632,13:poke198,2:end