image of READY prompt

Wang2200.org

Listing of file='A/PCONT' on disk='vmedia/701-2654C.wvd.zip'

# Sector 5, program filename = 'A/PCONT'
0010 REM A/PCONT
0020 REM PROGRAM NAME      = A/PCONT
0030 REM DATE WRITTEN      = 11/28/78
0035 REM DATE LAST REVISION= 10/06/80 MAF
0040 REM *************************************************
0050 REM *     THIS PROGRAM IS PART OF A GENERALIZED     *
0060 REM *   APPLICATION. COPYRIGHT WANG LABS INC. 1978  *
0065 REM THIS PROGRAM WAS UPDATED TO 2.3 BY ERRATA 1174
0070 REM *************************************************
0080 REM SYSTEM NAME      = GBS/MVP
0090 REM MODULE NAME      = CONTROL FILE PUT/GET
0100 REM PROGRAM FUNCTION = PUT & GET CONTROL FILE RECORDS
0110 REM *************************************************
0159 REM
0170 COM M3$1,M4$Q5,M(17),F5$(3)1,G2$Q5,G$(5)Q5
0173 REM
0199 GOSUB '99
3576 REM A/PCONT 'PUT/GET' ROUTINE
3578     DEFFN'66(N,Q8,Q9)
3580     Q8=MOD(Q8,1E3)+1
3582     DBACKSPACE #N,BEG
3584     DSKIP #N,Q8S
3586     DATA LOAD DC #N,M$()
3587     DBACKSPACE #N,1S
3588     IF Q8>1 THEN 3598
3589     Q7$=STR(Q0$(5),,1)
3590     Q6$=HEX(A001A0)&Q7$&HEX(A001A0)&Q7$&HEX(5206A0)&Q7$
3592     IF Q9=1 THEN $UNPACK(F=Q6$)M$()TO M3$,M4$,F5$(),G2$,M(),G$()
   : ELSE $PACK(F=Q6$)M$()FROMM3$,M4$,F5$(),G2$,M(),G$()
3594     IF Q9=0 THEN DATA SAVE DC #N,M$()
3596     RETURN
3598     Q6$=HEX(00675206)
3599     IF Q9=1 THEN $UNPACK(F=Q6$)M$() TO M()
   : ELSE $PACK(F=Q6$)M$() FROM M()
3600     IF Q9=0 THEN DATA SAVE DC #N,M$()
3601     RETURN
9999 DEFFN'29"Q$=";HEX(22);"A/PCONT";HEX(22);":SCRATCHTQ$:SAVET()Q$";HEX(0D)