Listing of file='GENFILE ' on disk='vmedia/701-2653B.wvd.zip'
# Sector 247, program filename = 'GENFILE'
0010 REM GENFILE
0170 COM O$Q5,O1$1,O2$(5)3,O3$1,O4$1,O5$30,P1$1,P2$1,P0,P,P2,P3,P4,P5,P0(12),P
(12)
: COM L5$32
0199 L5$=HEX(A0)&BIN(Q5)&HEX(A001A003A001A001A01EA001A001500352065206520652065
20652065206)
: GOSUB '99
3558 DEFFN'65(N)
: $PACK(F=L5$)M$()FROMO$,O1$,O2$(),O3$,O4$,O5$,P1$,P2$,P0,P2,P3,P4,P5,P0(),
P(),P
: DATA SAVE DC #N,M$()
: RETURN
3568 DEFFN'75(N)
: DATA LOAD DC #N,M$()
: $UNPACK(F=L5$)M$()TO O$,O1$,O2$(),O3$,O4$,O5$,P1$,P2$,P0,P2,P3,P4,P5,P0()
,P(),P
: RETURN
9999 DEFFN'29"Q$=";HEX(22);"GENFILE";HEX(22);":SCRATCHTQ$:SAVET()Q$";HEX(0D)