1 REM    COMP.EYES.ORDER
2 PRINT"[147][193]RE YOU SURE YOU HAVE A PRINTER?"
3 POKE198,0:WAIT198,1:GETA$:IFA$<>"Y"ANDA$<>"N"THEN3
4 IFA$="N"THEN150
5 OPEN4,4,7:CMD4
10 PRINT"          [195]OMPUTER[197]YES [195]OUPON"
20 PRINT
30 PRINT"[208]LEASE SEND ME:"
40 PRINT
50 PRINT"[195]-64 [194]LACK [194]OX WITH [211]PECIAL $20 HOOKUP"
52 PRINT" CABLE AND STANDARD SOFTWARE ----------------------- $119.00"
60 PRINT:PRINT"[195]USTOM [201]NTERFACE [211]OFTWARE"
62 PRINT" [208]LEASE SPECIFY [196]OODLE, [208]RINTSHOP, OR [203]OALA -------- $ 11.00"
70 PRINT:PRINT"[194]/[215] [208]ANASONIC OR [201]KEGAMI [195]AMERA -------------------  $139.00"
80 :
90 PRINT
91 PRINT"          <[206]EW [202]ERSEY [210]ESIDENTS ADD 6% SALES TAX>"
92 PRINT"                                          [212]OTAL:     $"
94 PRINT:PRINT
100 PRINT"[205]AIL TO:"
110 PRINT
120 PRINT" [200][193][204] [211]YSTEMS"
122 PRINT" [208].[207]. [194]OX 293"
124 PRINT" [211]COTCH [208]LAINS, [206][202]  07076"
126 PRINT:PRINT
128 PRINT"[195]HECK     [214]ISA       [205]ASTER[195]ARD  <== [195]IRCLE ONE"
130 PRINT
132 PRINT"   [195]ARD #:"
134 PRINT" [197]XP [196]ATE:"
135 PRINT#4
140 CLOSE4
150 PRINT"[147]LOAD"CHR$(34)"COMP.EYES.MENU"CHR$(34)",8":PRINT"RUN"
160 POKE631,13:POKE632,13:POKE198,2:END