Listing of file='MAIN.BAS;01' on disk='vmedia/compuwriter_2-sector.ccvf'
120 CLEAR 500:PLOT 29,14,6,2,12,27,11,3,9,0 130 PRINT 140 PLOT 14:PRINT 150 PRINT " COMPU - WRITER VERS. 3.4 ,3.5 & FRONT END ":PRINT 170 PLOT 15:RESTORE 300 180 FOR I= 1TO 100:READ P$,T$ 190 IF T$= "END"THEN E= I- 1:I= 100:GOTO 220 200 T= 5:IF I> 14THEN T= T- 1 210 PRINT TAB( T);"";I;" -"TAB( 9)" ";T$;"" 220 PRINT :NEXT I:PLOT 14:PRINT 230 INPUT " MENU SELECTION (TYPE NUMBER AND HIT RETURN KEY): ";N$ 240 N= VAL (N$):IF N< 1OR N> ETHEN PLOT 28,11:GOTO 230 250 PLOT 15:RESTORE 300:FOR I= 1TO N:READ P$,T$:NEXT I 260 IF N> 0THEN PLOT 6,2,12,27,4:PRINT P$:PLOT 27,27 300 IF N> 4THEN LOAD P$:RUN 310 320 330 DATA "RUN EXTMML","VERSION 3.4 MAILMERGE (EXTMML) FOR AMUST PRINTER 340 350 DATA "RUN CW35","VERSION 3.5 (SPECIAL PRINTING / NON MAILMERGE) 360 370 DATA "RUN CW35S","VERSION 3.5S (DOUBLE CAPACITY) - USE CAREFULLY 380 390 DATA "RUN CW35SP","VERSION 3.5SP (TRIPLE CAPACITY) - TAKE EXTRA CARE 400 410 DATA "TYPER","FOR TYPING DIRECT TO PRINTER" 420 510 DATA "END","END"