1 REM SNAKEOIL
2 REM PRINT-OUT ORDER FORM
3 IFA=.THENA=1:LOAD"SUBSCRIBE FORM",8,1
4 POKE16998,.:REM POKE BYTE AFTER END OF                  FILE WITH A ZERO
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 SYS51137,16384
220 PRINT#4
250 CLOSE4
260 RUN5
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 POKE178,.:POKE631,13:POKE632,13:POKE198,2:END