' Education
CLS:CLEAR,25000
SCREEN 4,316,200,4,1
WINDOW 2,"",,2,4
PALETTE 0,0,0,0
PALETTE 1,0,0,0
PALETTE 15,1,1,1
COLOR 15,0
ON BREAK GOSUB ender2
BREAK ON
OPEN "J:educationtex" FOR INPUT AS 1
getit:
LINE INPUT #1,a$
q=INSTR(a$,"]")
IF q=5 THEN GOSUB set: GOTO chisel:
a$=a$+STRING$(40-LEN(a$),32)
chisel:
PRINT a$
l=l+1
IF l=22 THEN GOSUB pause
IF EOF(1) THEN ender:
GOTO getit
pause:
LOCATE 23,1
COLOR 9,0
PRINT "LEFT MOUSE = Continue   CTRL-C = End";
COLOR a,b
WHILE MOUSE(0)<1
WEND
CLS
l=0
RETURN

set:
a=VAL(LEFT$(a$,2))
b=VAL(MID$(a$,3,2))
COLOR a,b
a$=MID$(a$,6)
a$=a$+STRING$(40-LEN(a$),32)
RETURN

ender:
LOCATE 23,1
COLOR 2,9
PRINT "        Click left mouse to end.       ";
WHILE MOUSE(0)<1
WEND
ender2:
WINDOW CLOSE 2
SCREEN CLOSE 4
SYSTEM
END