Listing of file='GENL105B' on disk='vmedia/701-2653B.wvd.zip'
# Sector 361, program filename = 'GENL105B'
0010 REM GENL105B, RELEASE 2.0, (06/01/79) THIS PROGRAM IS A COPYRIGHT PRODUCT
OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED
0170 COM N2$60
4000 SELECT @PARTS0$
: PRINT HEX(03);"GENERAL LEDGER FILE REORGANIZATION"
: LIMITS T#1,S$(1),Q6,Q7,Q8
: Q9=Q7-Q6-Q8+1
: PRINT AT(1,0,0);"There is room for";
: PRINT Q9;"accounts in the general ledger file."
: LINPUT "Key 'RETURN' to resume",?Q$
: N2$=STR(M$(),25)
: LOAD TSTR(M$(),241)
: ERRORLOAD T"START"
9998 DEFFN'29"Q$=";HEX(22);"GENL105B";HEX(22);":SCRATCH TQ$:SAVET$()Q$";HEX(0D
)