10 POKE53281,0:POKE53280,0
20 DV=PEEK(186):IFDV<8THENDV=8
30 PRINT"[147]"
50 D=4
60 PRINT"    [129][195][210][193][218][217] [198][197][206][196][197][210]'[211] [194][207][216] [207]' [195]= [194][207][207][203][211]
62 [153]"  CHR$ET YOUR PRINTER READY AND PRESS
64 PRINT" [211][208][193][195][197] TO PRINT OUT [195]RAZY [198]ENDER'S
66 [153]" (null)RIGHT$(null)(null) (null)' LEN-64/128 PEEK(null)(null)(null)(null). (null)O ORDER, SEND
68 PRINT" A LETTER TO:
70 [153]"CONT     LENRAZY ASCENDER
72 PRINT"     606 [195]OMMON [211]TREET
74 [153]"     (null)HREVEPORT (null)ATN 71101
75 PRINT"  [208]LEASE DO NOT CALL!
76 [153]"  (null)HE BOOKS HAVE BEEN PRICED ACCORDING
78 PRINT"  TO [195]RAZY [198]ENDER'S DUBIOUS JUDGMENT.
80 [153]"      (null)(null)ATNLENVAL - (null)RINT THE (null)IST
82 PRINT"          [204] - [209]UIT TO [204][207][193][196][211][212][193][210]
86 [161]A$:[139]A$[179][177]" "[175]A$[179][177]"L"[167]86
88 [139]A$[178]"L"[167]40000
90 DT$[178]"......................................."
92 T$[178]"     "
100 [159]2,DV,2,"BOOKLIST 1,P,R"
101 [159]4,D,7:[152]4:[152]4
102 [152]4,,,"LEN(null)ATN(null)(null) ASCVAL(null)STR$VAL(null)'(null) (null)RIGHT$(null)(null) (null)' LEN(null)(null)(null)(null)STR$(null)(null)VAL PEEK(null)(null)(null)(null)":[152]4
103 [152]4,T$"(null)HIPPING IN THE (null).(null). IS $1.00 PER BOOK.":[152]4
104 [152]4,T$"LEN(null)(null)RIGHT$VAL(null)     PEEK(null)(null)(null)                        (null)(null)PEEK(null)RIGHT$(null)LEFT$VAL(null)";
105 [152]4,"      # (null)ASC (null)ATNCHR$VAL(null)    (null)(null)RIGHT$LENVAL"
106 [152]4,T$"-------------------------------------------------";
107 [152]4,"------------------------"
109 [161]#2,A$:[161]#2,A$
110 [132]2,A$:[139]A$[178]""[167]190
120 A$[178][200](A$,38):[152]4,T$A$;[200](DT$,39[171][195](A$));
130 [132]2,A$
140 A$[178][200](A$,19):[152]4,A$;[200](DT$,20[171][195](A$));
150 [132]2,A$
152 [152]4,A$;[200](DT$,10[171][195](A$));
154 [132]2,A$
160 [152]4,A$
180 [137]110
190 [129]I[178]0[164]5:[152]4:[130]
200 [160]4:[160]2
210 [151]186,DV
220 [138]
10000 D[178][194](186):N$[178]"B.BOOKPRINT":[159]15,D,15,"S0:"[170]N$:[160]15:[148]N$,D:[128]
40000 [129]I[178]8[164]29:[151]820[170]I,I:[130]:[139]DV[177]8[175]DV[179]30[167][151]828,DV:[151]820[170]DV,8
40010 A$[178]"PRESENTER":[141]40030:A$[178]"HELLO CONNECT":[141]40030
40020 [153]"LOAD":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
40030 [129]J[178]8[164]29:I[178][194](820[170]J):[139]I[178]14[167][130]
40040 [160]2:[159]2,I,2:[160]2:[139]ST[167]40060
40050 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167]40070
40060 [130]:[142]
40070 A$[178]"HELLO CONNECT":Q$[178][199](34):[151]646,[194](53281):[153]"LOAD":[151]53272,23
40080 [153]"LOADP(null)2048,0:P(null)44,8:P(null)43,1:P(null)56,160:P(null)55,0:CLR:L(null)"Q$A$Q$","I
40090 [153]"RUN:":[151]631,13:[151]632,13:[151]198,2:[128]