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