Compucolor.org – Virtual Media

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"