image of READY prompt

Wang2200.org

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)