0 'SCHEME.BA  E. Carmody  15 NOV 1986 
1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE 
10 CLS:CALL16959
15 PRINT@X+40*Y,"+"
20 K$=INKEY$
25 IFK$=""THEN20
27 PRINT ASC(K$)
30 IFK$=CHR$(27)THENPRINT@X+40*Y," ":GOTO480
35 IFK$=CHR$(28)ORK$=CHR$(29)ORK$=CHR$(30)ORK$=CHR$(31)THENGOTO155
40 IFK$>CHR$(31)ANDK$<CHR$(123)THENPRINT@X+40*Y,K$:IFX<>39THENX=X+1
45 IFK$=CHR$(234)THENGOSUB210:GOSUB235
50 IFK$=CHR$(170)THENGOSUB210:GOSUB250
55 IFK$=CHR$(255)THENGOSUB210:GOSUB260
60 IFK$=CHR$(171)THENGOSUB210:GOSUB270
65 IFK$=CHR$(253)THENGOSUB210:GOSUB280
70 IFK$=CHR$(252)THENGOSUB210:GOSUB290
75 IFK$=CHR$(186)THENGOSUB210:GOSUB300
80 IFK$=CHR$(231)THENGOSUB210:GOSUB310
85 IFK$=CHR$(237)THENGOSUB210:GOSUB330
90 IFK$=CHR$(215)THENGOSUB210:GOSUB340
95 IFK$=CHR$(135)THENGOSUB210:GOSUB355
100 IFK$=CHR$(239)THENGOSUB210:GOSUB365
105 IFK$=CHR$(223)THENGOSUB210:GOSUB380
110 IFK$=CHR$(143)THENGOSUB210:GOSUB395
115 IFK$=CHR$(224)THENGOSUB210:GOSUB410
120 IFK$=CHR$(216)THENGOSUB210:GOSUB420
125 IFK$=CHR$(198)THENGOSUB210:GOSUB435
130 IFK$=CHR$(142)THENGOSUB210:GOSUB450:GOSUB460
135 IFK$=CHR$(199)THENGOSUB210:GOSUB450:GOSUB470
140 IFK$>CHR$(151)ANDK$<CHR$(156)THENPRINT@X+40*Y,K$:IFX<>39THENX=X+1
145 IFK$>CHR$(239)ANDK$<CHR$(251)THENPRINT@X+40*Y,K$:IFX<>39THENX=X+1
150 PRINT@X+40*Y,"+":GOTO20
155 PRINT@X+40*Y," "
160 IFK$=CHR$(28)THENX=X+1
165 IFK$=CHR$(29)THENX=X-1
170 IFK$=CHR$(30)THENY=Y-1
175 IFK$=CHR$(31)THENY=Y+1
180 IFX<0THENX=0
185 IFX>39THENX=39
190 IFY<0THENY=0
195 IFY>7THENY=7
200 PRINT@X+40*Y,"+"
205 GOTO 20
210 PRINT@X+40*Y," "
215 IFX=0THENX=1
220 IFX=39THENX=37
225 IFY=7THENY=6
230 X1=6*X:Y1=8*Y:RETURN
235 LINE(X1,Y+3)-(X1+1,Y1+3):LINE-(X1+2,Y1+2):LINE-(X1+4,Y1+4)
240 LINE-(X1+6,Y1+2):LINE-(X1+8,Y1+4):LINE-(X1+9,Y1+3)
245 LINE-(X1+11,Y1+3):X=X+2:RETURN
250 LINE(X1+2,Y1)-(X1+3,Y1+1):LINE-(X1+1,Y1+3):LINE-(X1+3,Y1+5)
255 LINE-(X1+1,Y1+7):X=X+1:RETURN
260 LINE(X1,Y1+1)-(X1,Y1+5):LINE(X1+3,Y1+1)-(X1+2,Y1+2):LINE-(X1+2,Y1+4)
265 LINE-(X1+3,Y1+5):LINE(X1+3,Y1+3)-(X1+5,Y1+3):X=X+1:RETURN
270 PSET(X1+2,Y1):LINE(X1,Y1+1)-(X1+4,Y1+1):LINE(X1,Y1+4)-(X1+1,Y1+3)
275 LINE-(X1+3,Y1+3):LINE-(X1+4,Y1+4):LINE(X1+2,Y1+4)-(X1+2,Y1+7):X=X+1:RETURN
280 LINE(X1+2,Y1)-(X1+2,Y1+7):LINE-(X1,Y1+5):LINE-(X1+4,Y1+5)
285 LINE-(X1+2,Y1+7):X=X+1:RETURN
290 LINE(X1,Y1+2)-(X1+2,Y1+2):LINE-(X1+2,Y1+4):LINE-(X1,Y1+4)
295 LINE-(X1,Y1+2):LINE(X1+3,Y1+3)-(X1+5,Y1+3):X=X+1:RETURN
300 LINE(X1+1,Y1)-(X1+3,Y1):LINE-(X1+3,Y1+2):LINE-(X1+1,Y1+2)
305 LINE-(X1+1,Y1):LINE(X1+2,Y1+3)-(X1+2,Y1+7):X=X+1:RETURN
310 LINE(X1,Y1+3)-(X1+2,Y1+3):LINE(X1+3,Y1)-(X1+3,Y1+7)
315 LINE(X1+4,Y1)-(X1+4,Y1+7):LINE(X1+5,Y1+2)-(X1+7,Y1)
320 LINE(X1+5,Y1+4)-(X1+8,Y1+7):LINE-(X1+8,Y1+5):LINE-(X1+6,Y1+7)
325 LINE-(X1+8,Y1+7):X=X+2:RETURN
330 LINE(X1,Y1+3)-(X1+3,Y1+3):LINE-(X1+1,Y1+1):LINE-(X1+1,Y1+5)
335 LINE-(X1+3,Y1+3):LINE(X1+4,Y1+1)-(X1+4,Y1+5):LINE(X1+5,Y1+1)-(X1+5,Y1+5):X=X+1:RETURN
340 LINE(X1+2,Y1)-(X1+2,Y1+7):LINE(X1,Y1+1)-(X1+4,Y1+1)
345 LINE(X1,Y1+2)-(X1+4,Y1+2):LINE(X1+1,Y1+4)-(X1+3,Y1+4)
350 LINE(X1,Y1+5)-(X1+4,Y1+5):X=X+1:RETURN
355 LINE(X1,Y1+3)-(X1+3,Y1+3):LINE-(X1+3,Y1+2):LINE-(X1+5,Y1+2)
360 LINE-(X1+5,Y1+4):LINE-(X1+3,Y1+4):X=X+1:RETURN
365 LINE(X1,Y1+3)-(X1+1,Y1+3):PSET(X1+1,Y1+2):LINE(X1+2,Y1+1)-(X1+9,Y1+1)
370 PRESET(X1+4,Y1+1):PRESET(X1+7,Y1+1):LINE(X1+4,Y1+2)-(X1+4,Y1+4)
375 LINE(X1+7,Y1+2)-(X1+7,Y1+4):PSET(X1+10,Y1+2):LINE(X1+10,Y1+3)-(X1+11,Y1+3):X=X+2:RETURN
380 LINE(X1+2,Y1)-(X1+2,Y1+3):PSET(X1+3,Y1+3):LINE(X1+4,Y1+4)-(X1+4,Y1+11)
385 PRESET(X1+4,Y1+6):PRESET(X1+4,Y1+9):LINE(X1+1,Y1+6)-(X1+3,Y1+6):LINE(X1+1,Y1+9)-X1+3,Y1+9)
390 PSET(X1+3,Y1+12):LINE(X1+2,Y1+12)-(X1+2,Y1+15):X=X+1:RETURN
395 LINE(X1-1,Y1+2)-(X1+5,Y1+2):LINE(X1+1,Y1+3)-(X1+3,Y1+3)
400 LINE(X1-1,Y1+4)-(X1+5,Y1+4):LINE(X1+1,Y1+5)-(X1+3,Y1+5)
405 LINE(X1+2,Y1)-(X1+2,Y1+7):X=X+1:RETURN
410 PSET(X1,Y1+6):LINE(X1+1,Y1+6)-(X1+1,Y1+3):LINE(X1+2,Y1+2)-(X1+3,Y1+2)
415 LINE(X1+4,Y1+3)-(X1+4,Y1+6):PSET(X1+5,Y1+6):X=X+1:RETURN
420 LINE(X1,Y1+3)-(X1+2,Y1+3):LINE(X1+3,Y1)-(X1+3,Y1+7):LINE(X1+4,Y1)-(X1+4,Y1+7)
425 LINE(X1+5,Y1+2)-(X1+7,Y1):LINE(X1+5,Y1+4)-(X1+8,Y1+7):PSET(X1+7,Y1+5)
430 PSET(X1+8,Y1+5):PSET(X1+6,Y1+6):PSET(X1+6,Y1+7):X=X+2:RETURN
435 LINE(X1+1,Y1+2)-(X1+3,Y1+2):LINE(X1-1,Y1+3)-(X1+5,Y1+3)
440 LINE(X1+1,Y1+4)-(X1+3,Y1+4):LINE(X1-1,Y1+5)-(X1+5,Y1+5)
445 LINE(X1+2,Y1)-(X1+2,Y1+7):X=X+1:RETURN
450 LINE(X1,Y1)-(X1+4,Y1):LINE-(X1+6,Y1+2):LINE-(X1+6,Y1+5):LINE-(X1+4,Y1+7)
455 LINE-(X1,Y1+7):LINE-(X1-2,Y1+5):LINE-(X1-2,Y1+2):LINE-(X1,Y1):RETURN
460 LINE(X1,Y1+4)-(X1+2,Y1+2):LINE-(X1+4,Y1+4):LINE(X1+2,Y1+2)-(X1+2,Y1+5)
465 X=X+2:RETURN
470 LINE(X1,Y1+3)-(X1+2,Y1+5):LINE-(X1+4,Y1+3):LINE(X1+2,Y1+2)-(X1+2,Y1+5)
475 X=X+2:RETURN
480 K$="":K$=INKEY$:IFK$=CHR$(27)THENPRINT@X+40*Y,">":GOTO20
485 GOTO 480