96 Delta User’s Manual
139 Pl=l:M$=CHR$(179)+
STRING$(2,32):N$=STRING$(2,196)+
CHR$(197):L$=STRING$(2,196)+CHR$(193)
llt(Tl LOCATE 4,lp:PRINT CHR$(218);CHR$(196);
15pI FOR I=1 TO la:PRINT
CHR$(l96);CHR$(l94);CHR$(196); :NEXT I _-
16g PRINT CHR$(l96);CHR$(l9l):LOCATE 5,lg:FOR K=l TO
12:PRINT M$;:NEXT K:PRINT
17@ FOR J=l TO 6:LOCATE 5+Pl,l@:Pl=Pl+l:PRINT
CHR$(195);
lS@ FOR K=l TO l@:PRINT N$;:NEXT K
19@ PRINT CHR$(l96);CHR$(l96);CHR$(l8@):LOCATE
s+Pl,lp:Pl=Pl+l -
2@g FOR K=l TO 12:PRINT M$;:NEXT K
21@ PRINT:NEXT J:LOCATE 18,la:PRINT CHR$(192);
22@ FOR I=1 TO l@:PRINT L$;:NEXT I
238 PRINT CHR$(l96);CHR$(l96);CHR$(217)
24pl FOR I=@ TO 6:LOCATE 5+1*2,6:PRINT 2"I;:NEXT I
25$l RETURN : REM **** END OF MATRIX SUBROUTINE
****
26@ REM **** SINGLE CHARACTER INPUT @ EDIT LEVEL
****
27pI LOCATE 5,ll:PRINT CS$;:GOSUB 59p
289 A$=INKEY$:IF A$="" THEN 28g
299 B$=RIGHT$(A$,l)
3@@ IF B$=CHR$(75) THEN GOSUB 39g:GOTO 37&J
319 IF B$=CHR$(77) THEN GOSUB 4lpl:GOTO 37@
32~ IF B$=cHR$(~~) THEN GOSUB 4y:GoTo 37g
338 IF B$=CHR$(72) THEN GOSUB 45p:GOTO 370
340 IF B$=CHR$(82) THEN GOSUB 470:GOTO 370
350 IF B$=CHR$(83) THEN GOSUB 49ja:GOTO 370
360 IF B$=CHR$(79) THEN GOSUB 50B:GOTO 380
370 GOT0 280
380 RETURN :
REM **** END OF INPUT ****
390 GOSUB 920:Y=Y-3:H=H-l:IF Y(l THEN BEEP:Y=l:H=l
400 GOSUB 950:RETURN
410 GOSUB 920:Y=Y+3:H=H+l:IF Y)31 THEN
BEEP:Y=31:H=ll
420 GOSUB 950:RETURN
430 GOSUB 920:X=X+2:G=G+l:IF X)13 THEN BEEP:X=13:G=7
440 GOSUB 950:RETURN
-
450 GOSUB 920:X=X-2:G=G-l:IF X(1 THEN BEEP:X=l:G=l -
460 GOSUB 950:RETURN
470 IF Z(G,H-l)=l OR Z(G,H+l)=l THEN BEEP:RETURN -