Listing of file='@GBSFILE' on disk='vmedia/701-2606C.wvd.zip'
# Sector 132, program filename = '@GBSFILE'
0010 REM @GBSFILE
3102 DEFFN'40(N,A$)
: IF A$="1"THEN $PACK(F=STR(L$,,16))M$()FROMC$,A1$(),A2$(),A3$(),A4$(),A5$(
),E$()
: ELSE $PACK(F=L$)M$()FROMC$,A1$,A2$,A3$,A4$,A5$,C3$,C4$,B0,N1$,G$,P$,P2$,P
3$,P5$,B,P2,P3,M,M1,P4,P5,C0
: DATA SAVE DC #N,M$()
: RETURN
3112 DEFFN'50(N,A$)
: DATA LOAD DC #N,M$()
: IF A$="1"THEN $UNPACK(F=STR(L$,,16))M$()TO C$,A1$(),A2$(),A3$(),A4$(),A5$
(),E$()
: ELSE $UNPACK(F=L$)M$()TO C$,A1$,A2$,A3$,A4$,A5$,C3$,C4$,B0,N1$,G$,P$,P2$,
P3$,P5$,B,P2,P3,M,M1,P4,P5,C0
: RETURN
3148 DEFFN'42(N)
: $PACK(F=L3$)M$()FROMF1$,F$,F2$,F3$,H0,G2$,G3$,I5$,E,E1,E2,E3,E4,E5,F,F1,H
,H2,F3,H1,H3,H4,H(),H5,C3,E0,F5,H5$,D3(),H4$,B4,B5,H1()
: DATA SAVE DC #N,M$()
: RETURN
3158 DEFFN'52(N)
: DATA LOAD DC #N,M$()
: $UNPACK(F=L3$)M$()TO F1$,F$,F2$,F3$,H0,G2$,G3$,I5$,E,E1,E2,E3,E4,E5,F,F1,
H,H2,F3,H1,H3,H4,H(),H5,C3,E0,F5,H5$,D3(),H4$,B4,B5,H1()
: RETURN
3234 DEFFN'43(N)
: $PACK(F=L4$)M$()FROME$,E1$,E2$,G,G1,G2,G3
: DATA SAVE DC #N,M$()
: RETURN
3244 DEFFN'53(N)
: DATA LOAD DC #N,M$()
: $UNPACK(F=L4$)M$()TO E$,E1$,E2$,G,G1,G2,G3
: RETURN
3254 DEFFN'44(N,Q9)
3256 IF Q9=1THEN $PACK(F=M4$)M$()FROMB$,O2$,C1$,B0$,C0$,D0$,E0$,F0$,L0$,M0$,N0
$,O0$,P0$,G0$,H0$,H1$,N4$,D3,D4,O3$,D2,D5,P4$,A0$,H$,H2$,A0
: ELSE IF Q9=2THEN $PACK(F=L5$)M$()FROMB$,P$(),P1$(),B0$(),C0$(),D0$(),B5()
,B(),B1(),B2(),B4()
: ELSE $PACK(F=I1$)M$()FROMB$,G$(),A,A1,A2,G(),D,D1
3258 DATA SAVE DC #N,M$()
: RETURN
3264 DEFFN'54(N,Q9)
: DATA LOAD DC #N,M$()
3268 IF Q9=1THEN $UNPACK(F=M4$)M$()TO B$,O2$,C1$,B0$,C0$,D0$,E0$,F0$,L0$,M0$,N
0$,O0$,P0$,G0$,H0$,H1$,N4$,D3,D4,O3$,D2,D5,P4$,A0$,H$,H2$,A0
: ELSE IF Q9=2THEN $UNPACK(F=L5$)M$()TO B$,P$(),P1$(),B0$(),C0$(),D0$(),B5(
),B(),B1(),B2(),B4()
: ELSE $UNPACK(F=I1$)M$()TO B$,G$(),A,A1,A2,G(),D,D1
3270 I2$=STR(B$,5,1)
: RETURN
3276 DEFFN'46(N,Q9,Q8)
: Q9=MOD(Q9,1E3)
: IF Q9>0THEN Q9=Q9+1
: DBACKSPACE #N,BEG
: DSKIP #N,Q9S
: DATA LOAD DC #N,M$()
: IF Q8=0THEN $PACK(F=M2$)M$()FROMM3$,M()
: DBACKSPACE #N,1S
: IF Q8=0THEN DATA SAVE DC #N,M$()
: ELSE $UNPACK(F=M2$)M$()TO M3$,M()
: RETURN
3294 DEFFN'47(N,Q9)
: IF Q9=1THEN $PACK(F=G5$)M$()FROMO2$,C1$,B0$,C0$,D0$,E0$,F0$,L0$,M0$,N0$,O
0$,P0$,G0$,H0$,H1$,N4$,D4,O3$,D2,D5,B5$(),D0,H$,H2$,A0$,D4$(),H3$,A0
: ELSE $PACK(F=E4$)M$()FROMO2$,C2$(),C3$(),C4$(),C5$(),D1$(),D2$(),C2(),C3(
),C4(),C5(),D2()
: DATA SAVE DC #N,M$()
: RETURN
3304 DEFFN'57(N,Q9)
: DATA LOAD DC #N,M$()
: IF Q9=1THEN $UNPACK(F=G5$)M$()TO O2$,C1$,B0$,C0$,D0$,E0$,F0$,L0$,M0$,N0$,
O0$,P0$,G0$,H0$,H1$,N4$,D4,O3$,D2,D5,B5$(),D0,H$,H2$,A0$,D4$(),H3$,A0
: ELSE $UNPACK(F=E4$)M$()TO O2$,C2$(),C3$(),C4$(),C5$(),D1$(),D2$(),C2(),C3
(),C4(),C5(),D2()
: RETURN
3314 DEFFN'48(N)
: MAT REDIM M$(2)124
: IF STR(S$(N),,4)="AUDI"THEN $PACK(F=HEX(6003A031))M$()FROMQ1,N1$()
: ELSE MAT REDIM M$(4)62
: GOTO 3338
3324 DEFFN'49(N)
: MAT REDIM M$(3)83
: Q6$=G1$()
: $TRAN(Q6$,"0 ")R
: HEXPACKQ6$FROMQ6$
: STR(Q6$,3)=BIN(S2)
: $PACK(F=L1$)M$()FROMG0$(),Q6$,G2$(),G3$(),G5$()
3338 $OPEN #N
: DSKIP #N,END
: LIMITS T#N,Q6,Q7,Q8
: Q9=(Q8-Q6)/(Q7-Q6-1)
: IF Q9>.8THEN PRINT AT(3,0,80);HEX(07);S$(N);" file is";INT(Q9*100);"% ful
l."
: IF Q8>Q7-2THEN RETURN
: IF STR(S$(N),,7)="AUDIF02"THEN DATA SAVE DC #N,B$(),M$()
: ELSE DATA SAVE DC #N,M$()
: GOSUB '218(S$(N),N," ",0)
: RETURN