Listing of file='@GBSKFAM' on disk='vmedia/701-2606C.wvd.zip'
# Sector 225, program filename = '@GBSKFAM'
0579 $BREAK1
0580 IF @T=0THEN @T=S2
: ELSE GOTO 579
: RETURN
0590 @T=0
: RETURN
0609 ADDC(V9$,V0$)
: DATA LOAD DA T#T1,(V9$)T9$,T0$()
: RETURN
0645 T7$=T1$
0648 V9$=T2$
: FOR T3=T0TO 1STEP -1
: GOSUB 609
: T2$(T3)=T9$
: MAT SEARCHSTR(T0$(),,V7),>STR(T7$,,T4)TO V9$STEP T5
: T=VAL(V9$,2)-T5
: IF T<1THEN T=V1
: $UNPACK(F=V4$)T0$()<T>TO T1$,T4$
: V9$=T4$
: IF V>6THEN Q2=SGN(255-VAL(STR(T0$(),V1)))*(Q2+1)
: BIN(STR(T$,T3))=T
: NEXT T3
: RETURN
0723 V=4
0726 SELECT @PARTS$
: IF T9>0AND T6=T9THEN 750
: IF V0$(T6)=" "THEN 2908
: GOSUB 858
: T9=T6
: $UNPACK(F=@Q8$)V0$(T9)TO V0$,V6,V4$,V0,T2,T4,T5,V7,V1
: SELECT #T1<V4$>
: $UNPACK(F=@T5$)T5$(T9)TO T4$,T7$,T8$,T$,T2$()
: V4$=HEX(A0)&BIN(T4)&HEX(A003)
: GOSUB 818
: T9$=HEX(FF)
0750 $CLOSE#T1,#T2
: IF MOD(V0,2)=0THEN 812
: Q$=BIN(V6)
: Q2$=BIN(S2)&Q$
: MAT SEARCH@V4$(),=STR(Q2$)TO V9$STEP 5
: T=VAL(V9$,2)
: IF T>0THEN STR(@V4$(),T,5)=ALL(FF)
: GOSUB 580
: STR(@Q$,@Q)=STR(Q2$,,1)
: STR(@Q9$,@Q)=Q$
: STR(@Q0$,@Q*3-2)=STR(@T$(V6),4,3)
: @Q=@Q+1
0784 MAT SEARCH@Q0$,=STR(@T$(V6),4,3)TO V7$STEP 3
: IF VAL(STR(@Q$,(VAL(V7$,2)+2)/3))=S2THEN 794
: @T=0
: $BREAK1
: GOSUB 580
: GOTO 784
0794 @T=0
: HEXUNPACKSTR(@T$(V6),10)TO V7$
: T8$=STR(V7$,S2)
: HEXPACKQ$FROMT8$
: Q$=AND HEX(60)
: IF Q$>HEX(20)THEN GOSUB 818
: Q$=AND HEX(20)
: IF Q$=HEX(20)THEN T6$=BIN(0)
0812 IF V>4AND VAL(T6$)<>T9THEN 873
: RETURN
0818 $UNPACK(F=@V$)STR(@T$(V6),7)TO T0,T2$
: RETURN
0824 HEXUNPACKSTR(@T$(V6),10)TO V7$
: STR(V7$,S2,1)=T8$
: HEXPACKSTR(@T$(V6),10)FROMV7$
: RETURN
0858 IF T9>0THEN $PACK(F=@T5$)T5$(T9)FROMT4$,T7$,T8$,T$,T2$()
: RETURN
0873 DATA LOAD DA T#T1,(V0$)Q2,T$()
: T6$=BIN(T9)
: RETURN
0888 IF MOD(Q,2)=0THEN 901
: Q2$=STR(@T$(V6),4,2)SUBCSTR(T4$,,2)
0890 MAT SEARCH@V4$(),=HEX(FFFF)TO V9$STEP 5
: T=VAL(V9$,2)
: IF T>0THEN 898
: $BREAK1
: GOTO 890
0898 IF STR(@V4$(),T,2)=HEX(FFFF)THEN STR(@V4$(),T,5)=BIN(S2)&BIN(V6)&STR(@T$(
V6),6,1)&Q2$
: ELSE GOTO 890
0901 GOSUB 580
: GOSUB 824
: Q2$=BIN(S2)
: T=POS(@Q$=Q2$)
: STR(@Q9$,T)=STR(@Q9$,T+1)
: STR(@Q$,T)=STR(@Q$,T+1)
: STR(@Q0$,T*3-2)=STR(@Q0$,T*3+1)
: @Q=@Q-1
: GOTO 590
0927 Q$=" "
: Q=VAL(STR(T4$,3))
: T6=VAL(T4$,2)
: DBACKSPACE #T2,BEG
: DSKIP #T2,T6S
: RETURN
0954 IF MOD(V0,2)=0THEN RETURN
: V9$=STR(@T$(V6),4,2)SUBCSTR(T4$,,2)
: V7$=STR(@T$(V6),6,1)&V9$
: MAT SEARCHSTR(@V4$(),3),=STR(V7$,,3)TO V9$STEP 5
: IF V9$=HEX(0000)OR VAL(STR(@V4$(),VAL(V9$,2)))=S2THEN RETURN
: Q$="B"
: T8$="1"
: RETURN CLEAR
0972 GOSUB 901
: $BREAK5
: GOTO 1435
0984 DEFFN'232(T6,Q,T1$)
: GOSUB 723
: GOSUB 645
: IF T1$<>T7$THEN 2947
: IF T4$>HEX(FF)THEN 2947
: GOSUB 954
: GOTO 1116
1014 DEFFN'235(T6,Q)
: GOSUB 723
: INIT(00)T7$
: GOTO 1059
1032 DEFFN'237(T6,Q)
: V=1
: GOSUB 726
: IF T8$="0"THEN 1068
: IF T8$>"7"THEN 2974
1059 GOSUB 648
: GOTO 1083
1068 T=VAL(T$)
: IF T2$(1)=T9$THEN 1083
: V9$=T2$(1)
: GOSUB 609
1083 T=T+T5
: IF T>V1THEN 1131
: $UNPACK(F=V4$)T0$()<T>TO T1$,T4$
: IF T1$>HEX(FF)THEN 1131
1105 BIN(T$)=T
: GOSUB 954
: T7$=T1$
1116 T8$="0"
: IF MOD(V0,2)=1THEN GOSUB 888
: GOSUB 927
: GOTO 1435
1131 T3=1
1134 T3=T3+1
: IF T3>T0THEN 2989
: V9$=T2$(T3)
: GOSUB 609
: T=VAL(STR(T$,T3))
: T=T+T5
: IF T>V1THEN 1134
: $UNPACK(F=V4$)T0$()<T>TO T1$,T4$
: IF T1$>HEX(FF)THEN 1134
1167 BIN(STR(T$,T3))=T
: IF T3=1THEN 1105
: V9$=T4$
: GOSUB 609
: $UNPACK(F=V4$)T0$()TO T1$,T4$
: T3=T3-1
: T=1
: T2$(T3)=T9$
: GOTO 1167
1410 DEFFN'238(T6)
: Q=0
: GOSUB 723
: Q$=" "
1431 ON V0GOSUB 901,,901
1435 SELECT @PARTS0$
: RETURN
1443 IF T3=1THEN GOSUB 1524
: IF T=V1THEN 1461
: T6=V1-T
: MAT COPY -T0$()<T,T6>TO -T0$()<T+T5,T6>
1461 $PACK(F=V4$)T0$()<T,T5>FROMT1$,T3$
: RETURN
1473 $UNPACK(F=STR(@V$,5))T$(2)<4>TO Q2$,V2$,T8,V6$,V3$,Q3$,V8$
: RETURN
1480 V9$=T9$ADDCV0$
: DATA SAVE DA T$#T1,(V9$)T9$,T0$()
: RETURN
1490 V9$=V2$ADDCV0$
: T0$()=M$()
: DATA SAVE DA T$#T1,(V9$,V9$)V2$,T0$()
: DATA SAVE DA T$#T1,(V9$)END
: V9$=V2$ADDCHEX(03)
: M$()=HEX(A0)&V9$&HEX(FD)
: V9$=V3$ADDCV0$ADDCHEX(02)
: DATA SAVE BA T$#T1,(V9$)M$()
: RETURN
1524 IF V=7THEN 1602
: ADDC(T3$,01)
: IF STR(T3$,3)<=V8$THEN 1596
: Q2$=ADDCV6$
: T3$=STR(Q2$)&HEX(01)
1596 STR(T$(3),3*S2-2,3)=T3$
1602 T4$=T3$
: RETURN
1626 DEFFN'234(T6,Q,T1$,V)
: V=7
: GOSUB 726
: GOSUB 1473
: IF STR(T4$,1,2)>Q3$THEN 2974
: IF STR(T4$,3,1)>V8$THEN 2974
: T3$=T4$
: GOTO 1686
1662 DEFFN'233(T6,Q,T1$,V)
: V=8
: GOSUB 726
: GOSUB 1473
: T4$,T3$=STR(T$(3),3*S2-2)
: IF STR(T3$,3)<V8$THEN 1686
: IF Q2$<Q3$THEN 1688
: IF VAL(Q2$)<255THEN 2923
: GOTO 1688
1686 GOSUB 954
1688 IF V0<3THEN 2974
: IF VAL(T1$)=255THEN 2974
: Q2=1
: GOSUB 645
: IF T1$=T7$THEN 2935
: T1$=T7$
: T=T+T5
: T8$="1"
: IF Q2=0THEN 1905
: IF Q2>8THEN 2923
: V9$=V2$ADDCBIN(Q2)
: IF V3$<V9$THEN 2923
1761 ADDC(V2$,01)
: INIT(FF)M$()
: Q2,T6=INT(V8*V7/T5+.6)*T5
: IF T<V7-Q2+T5THEN 1791
: Q2=Q2-T5
1791 Q3=V7-Q2+1
: STR(M$(),,Q2)=STR(T0$(),Q3)
: STR(T0$(),Q3)=ALL(FF)
: IF Q2=T6THEN 1845
: T=T-(V7-Q2)
: IF T<>Q2+1THEN MAT COPY -M$()<T,Q2+1-T>TO -M$()<T+T5,Q2+1-T>
: IF T3=1THEN GOSUB 1524
: $PACK(F=V4$)M$()<T,T5>FROMT1$,T3$
: GOTO 1851
1845 GOSUB 1443
1851 T1$=STR(M$(),,T4)
: T3$=V2$
: GOSUB 1480
: GOSUB 1490
: T3=T3+1
: IF T3>T0THEN 1944
: V9$=T2$(T3)
: GOSUB 609
: T=VAL(STR(T$,T3))+T5
: IF STR(T0$(),V1)<HEX(FF)THEN 1761
1905 GOSUB 1443
: GOSUB 1480
1912 T8=T8+1
1916 $PACK(F=@V$)T$(2)FROMT0,T2$,Q2$,V2$,T8
: DATA SAVE DA T$#T1,(V0$)0,T$()
: IF V0>3THEN 1928
: STR(@T$(V6),10)=OR ALL(22)
: GOSUB 888
1928 GOSUB 927
: GOTO 1435
1944 ADDC(V2$,01)
: M$()=ALL(FF)
: STR(M$(),,T5)=ALL(00)
: STR(M$(),T4+1,2)=T2$
: $PACK(F=V4$)STR(M$(),T5+1,T5)FROMT1$,T3$
: GOSUB 1490
: T0=T3
: T2$=V2$
: IF V6=0THEN 1974
: $PACK(F=@V$)STR(@T$(V6),7,3)FROMT0,T2$
: STR(@T$(V6),10)=OR ALL(44)
1974 T8$="5"
: GOTO 1912
1986 DEFFN'231(T6,Q,T1$)
: V=6
: GOSUB 726
: IF V0<3THEN 2974
: IF VAL(T1$)=255THEN 2974
: GOSUB 645
: IF T1$<>T7$THEN 2953
: IF T4$>HEX(FF)THEN 2974
: GOSUB 954
2013 IF T<V1THEN STR(T0$(),T)=STR(T0$(),T+T5)
: STR(T0$(),V1)=ALL(FF)
2028 GOSUB 1480
: IF T=1THEN 2052
: GOSUB 1473
: T8=T8-1
: T8$="1"
: GOTO 1916
2052 T1$=T0$(1)
: T3=T3+1
: V9$=T2$(T3)
: GOSUB 609
: T=VAL(STR(T$,T3))
: IF VAL(T1$)=255THEN 2013
: $PACK(F=V4$)T0$()<T,T4>FROMT1$
: GOTO 2028
2626 IF T8=0THEN $CLOSE#Q3
: SELECT @PARTS0$
: RETURN
2646 DEFFN'218(V7$,Q3,V9$,T8)
: $OPEN #Q3
: LIMITS T#Q3,Q6,Q7,Q8
: Q$="F"
: IF Q7<=Q8THEN 2626
: Q$=" "
: IF Q8=Q7-1THEN Q$="S"
: Q6=Q8-Q6+2
: MAT REDIM M$(4)64
: M$()=HEX(A0)
: DATA SAVE BA T#Q3,(Q8)M$()
: DATA LOAD BA T#Q3,(Q7)M$()
: STR(M$(),2,2)=BIN(Q6,2)
: DATA SAVE BA T#Q3,(Q7)M$()
: MAT REDIM M$(4)62
: DATA LOAD DC OPEN T#Q3,V7$
: DSKIP #Q3,END
: GOTO 2626
2890 T8$="8"
: GOTO 1431
2908 RETURN CLEAR
2911 Q$="X"
: GOTO 1435
2923 Q$="S"
: GOTO 2890
2935 Q$="D"
: GOTO 2890
2947 T8$="1"
: Q$="N"
: GOTO 1431
2953 Q$="N"
: GOTO 2890
2974 Q$="X"
: GOTO 2890
2989 IF V=4THEN 2953
: Q$="E"
: GOTO 2890