10 DV=PEEK(186):IFDV<8THENDV=8
20 DIMA(12,8),OA(12*8),OB(12*8)
25 PRINT"[147]"
30 GOSUB1000 :
35 CT=0
40 GETA$:IFA$=""THEN40
41 IFA$=CHR$(13)THEN200
42 IFA$>="A"ANDA$<="C"THENA=ASC(A$)-55:GOTO45
43 A=VAL(A$)
44 IFA=0THEN40
45 PRINTA;
50 GETB$:IFB$=""THEN50
51 IFB$>="A"ANDB$<="C"THENB=ASC(B$)-55:GOTO55
52 B=VAL(B$)
53 IFB=0THEN50
55 PRINTB;
60 GETC$:IFC$=""THEN60
65 IFC$=CHR$(13)THEN90
66 IFC$<"1"ORC$>"5"THEN60
70 PRINTC$
75 IFA(A,B)>0THENGOSUB100:IFER>0THEN90
77 OA(CT)=A:OB(CT)=B:CT=CT+1
80 A(A,B)=VAL(C$)
90 GOSUB1000:GOTO40
100 ER=0:IFB<2THENER=1:RETURN
105 FORY=1TOB-1:A(A,Y)=A(A,Y+1):NEXT
110 RETURN
200 PRINT"1. REMOVE":PRINT"2. SAVE":PRINT"3. LOAD"
210 GETZ$:IFZ$=""THEN210
220 IFZ$<"1"ORZ$>"3"THEN210
230 ONVAL(Z$)GOTO300,400,500
300 IFCT=0THEN340
310 CT=CT-1
320 FORY=OB(CT)TO1STEP-1:A(OA(CT),Y)=A(OA(CT),Y-1):NEXT
340 PRINT"[147]":GOSUB1000:GOTO40
400 INPUTF$
410 OPEN1,DV,15,"R0:"+F$+"="+F$:INPUT#1,EN:CLOSE1
420 IFEN=62THEN450
430 PRINTF$" EXISTS. REPLACE (Y/N)
435 [161]Z$:[139]Z$[178]""[167]435
440 [139]Z$[179][177]"Y"[167]340
445 [159]1,DV,15,"S0:"[170]F$:[160]1
450 [159]4,DV,4,F$[170]",S,W"
460 [129]Y[178]1[164]8:[129]X[178]1[164]12:[152]4,A(X,Y):[130]:[130]:[152]4,CT
470 [129]X[178]0[164]CT:[152]4,OA(X):[152]4,OB(X):[130]:[160]4:[137]340
500 [133]F$:[159]1,DV,15,"R0:"[170]F$[170]"="[170]F$:[132]1,EN:[160]1
510 [139]EN[178]62[167][153]"FILE NOT FOUND":[151]198,0:[146]198,1:[137]340
520 [159]4,DV,4,F$
530 [129]Y[178]1[164]8:[129]X[178]1[164]12:[132]4,A(X,Y):[130]:[130]:[132]4,CT
535 [129]X[178]0[164]CT:[132]4,OA(X):[132]4,OB(X):[130]:[160]4:[137]340
999 [128]
1000 [153]"SYS    1  2  3  4  5  6  7  8  9  A  B  C
1005 FORY=1TO8:PRINT"[158]"Y"[154]";:    FORX=1TO12
1010 PRINTA(X,Y);:NEXT:PRINT:NEXT
1030 PRINT"          ":PRINT"         [145][145]":RETURN
9999 END
10000 D=PEEK(186):N$="SHOTZ.MAK":OPEN1,D,15,"S0:"+N$:CLOSE1:SAVEN$,D:END