Listing of file='MENU.BAS;01' on disk='vmedia/compuwriter_1-sector.ccvf'
10 PLOT 6,2,12,15,29,3,15,3:PRINT "COMP-U-WRITER VERS. 3.4 & 3.5" 20 PLOT 15,3,13,5:PRINT "1. EXECUTIVE COMP-U-WRITER (3.5)" 30 PLOT 3,13,6:PRINT "2. MAILMERGE COMP-U-WRITER (3.4)" 35 PLOT 3,13,7:PRINT "3. COMP-U-WRITER IBM/ADLER (3.5)" 36 PLOT 3,13,8:PRINT "4. MAILMERGE FOR IBM/ADLER (3.4)" 40 PLOT 3,13,9:PRINT "SELECT NUMBER AND TOUCH ENTER ->" 50 PLOT 3,2,12:PRINT "NOTE: ENSURE PRINTER IS TURNED ON AND ON-LINE" 60 PLOT 3,2,14:PRINT "PRINT IN CONDENSED MODE (132 COL) : Y/N ->" 90 PLOT 3,2,16:PRINT "PRINT IN STANDARD MODE (80 COL) : Y/N ->" 100 PLOT 3,2,18:PRINT "EMPHASIZED PRINT MODE (LETTER QUALITY) : Y/N ->" 110 PLOT 3,2,19:PRINT "( NOTE: NOT VALID IN CONDENSED MODE )" 120 PLOT 3,2,22:PRINT "DOUBLE PRINT MODE (BOLD FACE) : Y/N ->" 130 PLOT 3,2,24:PRINT "COMBINED EMPHASIZED & DOUBLE PRINT MODE : Y/N ->" 140 PLOT 3,2,25:PRINT "( NOTE: NOT VALID IN CONDENSED MODE )" 280 PLOT 15,29,21,2,0,126,242,0,2,126,2,126,126,0,126,255 290 PLOT 20,2,22,122,242,22,86,96,86,96,122,22,122,255 300 PLOT 6,2,3,46,9:INPUT "";A$ 305 IF A$= "3"THEN PLOT 12,27,4:PRINT "RUN CW35I":PLOT 27,27 306 IF A$= "4"THEN PLOT 12,27,4:PRINT "RUN MMCWI":PLOT 27,27 310 IF A$< > "1"AND A$< > "2"THEN PLOT 3,46,9,32:GOTO 300 360 PLOT 6,3,3,45,14:INPUT "";D$ 370 IF D$< > "Y"AND D$< > "N"THEN PLOT 3,45,14,32:GOTO 360 380 PLOT 6,3,3,43,16:INPUT "";E$ 390 IF E$< > "Y"AND E$< > "N"THEN PLOT 3,43,16,32:GOTO 380 400 PLOT 6,3,3,50,18:INPUT "";F$ 410 IF F$< > "Y"AND F$< > "N"THEN PLOT 3,50,18,32:GOTO 400 420 PLOT 6,3,3,41,22:INPUT "";G$ 430 IF G$< > "Y"AND G$< > "N"THEN PLOT 3,41,22,32:GOTO 420 440 PLOT 6,3,3,51,24:INPUT "";H$ 450 IF H$< > "Y"AND H$< > "N"THEN PLOT 3,51,24,32:GOTO 440 460 PLOT 27,13 490 IF D$= "Y"THEN PLOT 15 510 IF F$= "Y"THEN PLOT 27,69:PLOT 18 520 IF G$= "Y"THEN PLOT 27,71 530 IF H$= "Y"THEN PLOT 27,69:PLOT 27,71:PLOT 18 531 POKE 33265,0 540 IF A$= "1"THEN PLOT 27,4:PRINT "RUN CW35":PLOT 27,27 541 IF A$= "2"THEN PLOT 27,4:PRINT "RUN MMCW":PLOT 27,27