Listing of file='@TO.CRE0' on disk='vmedia/mvp-cs386-1.30-disk2.wvd.zip'
# Sector 395, 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