Listing of file='HORIZ.BAS;01' on disk='vmedia/colorcue-sector.ccvf'
100 PLOT 12 110 PRINT "ENTER MESSAGE:":INPUT "";QM$ 120 QC = 1:QX = 13:QY = 15:QS = 40 130 GOSUB 50000 140 GOTO 100 50000 REM *** DISPLAY ROUTINE *** 50100 IF QL= 0THEN GOSUB 51100 50110 QL= LEN (QM$) 50120 FOR QI= 1TO QL 50130 QR= QL- QI 50140 PLOT 3,128,QX,QY,QC 50150 PRINT MID$ (QM$,QI,QS); 50160 PLOT 8 50170 IF QR< QSTHEN PRINT MID$ (QM$,1,QS- 1- QR); 50180 FOR I= 1TO 60:NEXT 50190 NEXT QI 50200 PLOT 27,27:RETURN 51100 PLOT 12,6,4 51110 Q1= QX* 2:Q2= 136- QY* 4:Q3= Q1+ 2* QS:Q4= Q2- 16 51120 PLOT 2,Q1,Q2,242,Q3,Q2,Q3,Q4,Q1,Q4,Q1,Q2,255 51130 PLOT 6,2:RETURN