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 [159]15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":[132]15,ER:[160]15
16 [139]ER[179][177]63[167] [128]
18 [153]"LOADSTOPLOAD"[199](34)"HELLO CONNECT"[199](34)",8
20 PRINT"RUN"
22 POKE631,13:POKE632,13:POKE198,2:END
24 OPEN4,4,7:CLOSE4
26 IFST<>-128THEN34
28 POKE646,2+D:POKE214,10:PRINT:PRINT"   [212]URN YOUR PRINTER ON - PRESS A KEY[145]"
30 GETA$:D=5-D:IFA$=""THEN28
32 GOTO24
34 POKE214,10:PRINT:PRINT"[158]   [211]ET TOP OF FORM AND PRESS ANY KEY."
36 GETA$:IFA$=""THEN36
40 OPEN4,4,7:CMD4
42 SP$="                                                              "
44 D$="-----------------------------------------------------------------"
48 GOTO100
50 PRINTLEFT$(SP$,40-(LEN(M$)/2))M$
52 RETURN
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
102 PRINT
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]
104 [153][200](SP$,38)"((null)(null) FUNDS ONLY)  ((null)(null) FUNDS ONLY)
105 PRINT"    "D$
118 PRINT
120 M$="[204][207][193][196][211][212][193][210] ([205]ONTHLY) [210][193][212][197][211]":GOSUB50
122 M$="[208]AY AS LITTLE AS $6.25 [208][197][210] [201][211][211][213][197]!":GOSUB50
124 PRINT"      3         3        $  29.95         $  34.95        $  39.95
126 [153]"      6         6        $  49.95         $  59.95        $  69.95
128 PRINT"     12        12        $  89.95         $ 109.95        $ 129.95
130 [153]"     24        24        $ 149.95         $ 189.95        $ 229.95
132 PRINT
134 M$="[204][207][193][196][211][212][193][210] 128 ([209]UARTERLY) [210]ATES":GOSUB50
136 M$="[208]AY AS LITTLE AS $8.33 [208][197][210] [201][211][211][213][197]!":GOSUB50
138 PRINT"      6         2        $  24.95         $  29.95        $  34.95
140 [153]"     12         4        $  39.95         $  49.95        $  59.95
142 PRINT"     24         8        $  69.95         $  89.95        $ 109.95
144 [153]"     36        12        $  99.95         $ 129.95        $ 159.95
146 PRINT
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
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!
154 [153]"      6         8        $  64.95         $  79.95        $  94.95
156 PRINT"     12        16        $ 119.95         $ 149.95        $ 179.95
158 [153]"     24        32        $ 199.95         $ 259.95        $ 319.95
255 PRINT
257 PRINT"  [195]IRCLE THE PRICE(S) OF THE SUBSCRIPTION(S) YOU WANT.
325 [153]
330 [153][200](SP$,49)"(null)(null)(null)ATN(null) $"
335 [153][200](SP$,56)"---------------"
340 [153]"  (null)ATN(null)VAL:"
345 [153]"       "[200](D$,64)
350 [153]"  (null)ATNRIGHT$(null)RIGHT$(null)CHR$ ATNSTR$STR$(null)VAL(null)(null):"
360 [153]"                  "[200](D$,53)
370 [153]"  (null)(null)(null)VALVAL(null) ATNSTR$STR$(null)VAL(null)(null):"
380 [153]"                 "[200](D$,54)
390 [153]"  LENRIGHT$(null)(null):                                    ";
400 [153]"(null)(null)ATN(null)VAL:        (null)RIGHT$(null):"
405 [153]"       "[200](D$,36);
407 [153]"      --------    ----------"
410 [153]"  (null)LEFT$(null)(null)VAL: (     )"
415 [153]"        "[200](D$,20)
420 M$[178]"(null)VAL(null)LEFT$(null)STR$ (null)ASC (null)ATN(null)(null)VAL(null)(null):":[141]50
430 [153]"         LENLEFT$VALLEN(null) (null)(null) (null)(null)(null)VAL(null) (null)(null)STR$VAL(null)"
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).)"
450 [153]
460 [153]"          STR$RIGHT$(null)LEN(null)(null)VAL(null)        (null)LEN        (null)RIGHT$(null)ATN        ATN(null)VAL(null)
465 PRINT"  --------        --------  --------    --------"
470 PRINT"  [193][195][195][207][213][206][212] #:"
475 PRINT"            "LEFT$(D$,60)
480 PRINT"  [197][216][208][201][210][193][212][201][207][206] [196][193][212][197]:"
485 PRINT"                  "LEFT$(D$,54)
490 PRINT"  [211][201][199][206][193][212][213][210][197]:"
495 PRINT"            "LEFT$(D$,60)
497 PRINT
500 PRINT"  [205][193][201][204] [212][207]:";
510 PRINTLEFT$(SP$,13)"[211]OFTDISK [208]UBLISHING, [208].[207]. [194]OX 30008,
520 M$[178]"(null)HREVEPORT, (null)ATN  71130-0008":[141]50
530 M$[178]"1 - 8 0 0 - 8 3 1 - 2 6 9 4":[141]50
540 M$[178]"(null)LEFT$(null)(null)VAL 1-318-221-8718  ASCATN(null) 1-318-221-8870":[141]50
600 [152]4:[160]4
610 [138]
10000 [159]15,8,15,"S0:SUBSCRIPTIONS":[160]15:[148]"SUBSCRIPTIONS",8:[128]