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] [193][195][210][197][211] [207]' [211][207][198][212][215][193][210][197]
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)' (null)(null)VALSTR$ (null)(null)ASC(null)(null)ATN(null)VAL. (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]"  VALACH (null)RODUCT IS $10. (null)UMBERS IN
78 PRINT"  PARENTHESES SHOW HOW MANY COPIES
79 [153]"  WE HAVE ON HAND.
80 PRINT"      [211][208][193][195][197] - [208]RINT THE [204]IST
82 [153]"          (null) - (null)UIT TO (null)(null)ATNSTR$(null)(null)ATN(null)
84 POKE198,0
86 GETA$:IFA$<>" "ANDA$<>"L"THEN86
88 IFA$="L"THEN40000
90 DT$="........................................................."
92 T$="      "
100 OPEN2,DV,2,"SOFTWARE 2,P,R"
101 OPEN4,D,7
102 PRINT#4,T$T$T$T$"[195][210][193][218][217] [198][197][206][196][197][210]'[211] [204][201][211][212] [207]' [213][211][197][196] [211][207][198][212][215][193][210][197]":PRINT#4
104 PRINT#4,T$"[208][210][207][199][210][193][205]                                     [208][213][194][204][201][211][200][197][210]"
106 PRINT#4,T$"---------------------------------------------------------"
109 GET#2,A$:GET#2,A$:J=0
110 J=J+1:INPUT#2,A$:E=ST:IFE=66THEN200
120 PRINT#4,T$A$;LEFT$(DT$,42-LEN(A$));
130 INPUT#2,A$
140 PRINT#4,A$
150 IFJ=58THENJ=0:FORI=1TO8:PRINT#4:NEXT
180 GOTO110
200 CLOSE4:CLOSE2
210 POKE186,DV
220 RUN
10000 D=PEEK(186):N$="B.SOFTWAREPRINT":OPEN15,D,15,"S0:"+N$:CLOSE15:SAVEN$,D:END
40000 FORI=8TO29:POKE820+I,I:NEXT:IFDV>8ANDDV<30THENPOKE828,DV:POKE820+DV,8
40010 A$="PRESENTER":GOSUB40030:A$="HELLO CONNECT":GOSUB40030
40020 PRINT"[147]":POKE53272,23:POKE186,8:POKE2048,0:POKE44,8:POKE43,1:END
40030 FORJ=8TO29:I=PEEK(820+J):IFI=14THENNEXT
40040 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40060
40050 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40070
40060 NEXT:RETURN
40070 A$="HELLO CONNECT":Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]":POKE53272,23
40080 PRINT"[147]P[207]2048,0:P[207]44,8:P[207]43,1:P[207]56,160:P[207]55,0:CLR:L[207]"Q$A$Q$","I
40090 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END