Listing of file='MENU.BAS;01' on disk='vmedia/compuwriter_2-sector.ccvf'
10 PLOT 6,2,12,15,29,3,15,3:PRINT " COMP-U-WRITER VERSION 3.51" 20 PLOT 15 30 40 PRINT TAB( 15)" FOR AMUST PRINTER" 50 PLOT 3,12,7:PRINT " NOTE: ENSURE PRINTER ON AND ON-LINE" 55 PLOT 3,12,9:INPUT "DO YOU WANT FRONT END PROGRAM (Y/N) ";Y$ 57 IF Y$= "N"THEN LOAD "MAIN":RUN 60 PLOT 3,2,12:PRINT "PRINT IN CONDENSED MODE (132 COL) : Y/N ->" 80 PLOT 3,2,14:PRINT "PRINT IN ENL/COND MODE (71 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 ->" 120 PLOT 3,2,20:PRINT "DOUBLE PRINT MODE (BOLD FACE) : Y/N ->" 130 PLOT 3,2,22:PRINT "PRINT IN ITALICS MODE : Y/N ->" 150 PLOT 3,2,24:PRINT "LINES PER PAGE : (Default 66) ->" 160 PLOT 3,2,26:PRINT "PAGE LENGTH : (Default 11 inches) ->" 170 PLOT 3,2,28:PRINT "LINE FEED N/216 : (Default 36) ->" 180 PLOT 3,2,30:PRINT "PRINT RATE FOR PRINTER : ( 3 or 7 ) ->" 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 REM 310 REM 360 PLOT 6,3,3,45,12:INPUT "";D$ 370 IF D$< > "Y"AND D$< > "N"THEN PLOT 3,45,12,32:GOTO 360 375 IF D$= "Y"THEN GOTO 420 376 PLOT 6,3,3,43,14:INPUT "";DE$ 377 IF DE$< > "Y"AND DE$< > "N"THEN PLOT 3,43,14,32:GOTO 376 378 IF DE$= "Y"THEN GOTO 400 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,20:INPUT "";G$ 430 IF G$< > "Y"AND G$< > "N"THEN PLOT 3,41,20,32:GOTO 420 440 PLOT 6,3,3,33,22:INPUT "";H$ 450 IF H$< > "Y"AND H$< > "N"THEN PLOT 3,33,22,32:GOTO 440 452 PLOT 6,3,3,35,24:INPUT "";N1:GOTO 457 455 PLOT 6,3,3,39,26:INPUT "";N2 457 PLOT 6,3,3,36,28:INPUT "";N3 459 PLOT 6,3,3,41,30:INPUT "";C3 460 PLOT 27,18,C3:POKE 33265,14:PLOT 27,13,27,64 490 IF D$= "N"THEN GOTO 503:IF D$= "Y"THEN GOTO 500 500 PLOT 143 503 IF DE$= "Y"THEN PLOT 143:PLOT 27,87:PLOT 1 505 IF H$= "Y"THEN PLOT 27,52 510 IF F$= "Y"THEN PLOT 27,69:PLOT 146 520 IF G$= "Y"THEN PLOT 27,71 522 PLOT 27,67:PLOT N1 523 REM PLOT 27,67:PLOT N2 524 PLOT 27,51:PLOT N3 525 REM IF E$="Y" THEN PLOT 27,64 531 POKE 33265,0 540 REM 541 PLOT 27,18,7,27,27:LOAD "MAIN":RUN