Listing of file='@TO.CRE0' on disk='vmedia/734-8446-A.wvd.zip'
# Sector 1734, program filename = '@TO.CRE0'
0010 REM !.@TO.CRE0 04/13/90 Load Create Reference file
0030 COM E
0032 IF E>0THEN 128
0035 REM %.Entry from @MENU
0040 F$=$PSTAT(1)
: IF STR(F$,9,1)="W"OR STR(F$,9,1)="T"THEN E=26000
: ELSE E=13000
0080 F$="@TO.CREF"
0090 PRINT AT(3,9,8);HEX(0E);F$;HEX(0F)
0100 REM .Based on Partition size set E for DIM stmts
0110 E=INT(MIN((SPACEK*1024-E)/20,4096))
0120 LOAD T#0,F$
0125 REM %.Entry from @TO.CREF to use a PROGRAM file of DATA stmts
0127 REM .Make alot of tests to verify the entry.
0128 IF D0=0THEN 40
: IF F$=" "THEN 40
0130 INIT("D")D$
: IF LEN(D$)>3THEN 40
0131 IF D0<0THEN M=2
: ELSE M=3
0136 D$=SELECT #M
0140 LIMITS T#M,F$,A,B,C,D
: ERRORGOTO 40
0146 C=C*256
: REM .Text space for DATA stmts
0147 E=INT(MIN((SPACEK*1024-13000-C)/19,4096))
0150 IF D0<0THEN 300
0166 IF D<>2THEN 40
: IF A<>D0THEN 40
0168 PRINT "Program reference file of DATA statements ";HEX(0E22);F$;HEX(220F)
;" on disk ";HEX(0E);D$
0170 LOAD DA T#3,(D0)9000,9999BEG 180
0180 RESAVE DC T#3,F$9000,9999
0190 LOAD T#0,"@TO.CREF"
0300 LOAD T#0,"@TO.CREF"BEG 1210