Compucolor.org – Virtual Media

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