1 REM SNAKEOIL
2 REM PRINT-OUT ORDER FORM
3 :
5 PRINT"[147][144]":POKE53281,1:POKE53280,5
10 PRINT"  [212]O PRINT-OUT A [204][207][193][196][211][212][193][210] [207]RDER FORM,"
20 PRINT"TURN ON YOUR PRINTER AND PRESS [[211][208][193][195][197]]."
30 PRINT:PRINTSPC(15)"- [207][210] -"
40 PRINT" [208]RESS [[210][197][212][213][210][206]] TO RETURN TO [204][207][193][196][211][212][193][210]."
50 :
60 POKE198,0:WAIT198,1:GETA$
62 IFA$=CHR$(13)THEN60000
64 IFA$=CHR$(32)THEN100
70 GOTO60
80 :
100 OPEN15,4,15:CLOSE15:IFST=0THEN200
110 PRINT"  !! [197]RROR...[208]RINTER NOT READY... !!"
120 FORDL=1TO3000:NEXTDL
130 GOTO5
140 :
200 OPEN4,4,7
210 OPEN2,8,2,"T.MAIL.FORM"
220 GET#2,A$,A$
230 FORI=0TO1:GET#2,A$:I=ST
240 PRINT#4,A$;:NEXT
250 PRINT#4:PRINT#4:CLOSE4:CLOSE2
260 GOTO61000
270 :
60000 PRINT"[147]  [193]RE YOU SURE YOU WANT TO QUIT [[217]/[206]]?"
60010 POKE198,0:WAIT198,1:GETA$
60020 IFA$="N"THEN5
60030 IFA$<>"Y"THEN60000
60040 :
61000 PRINT"[147]"SPC(8)"[210]ETURNING TO [204]OADSTAR..."
61060 :
61070 PRINT"LOAD"CHR$(34)"HELLO CONNECT"CHR$(34)",8":PRINT"RUN"
61080 POKE631,13:POKE632,13:POKE198,2:END