Listing of file='@TO.CRE0' on disk='vmedia/731-8009-F.wvd.zip'
# Sector 1199, program filename = '@TO.CRE0' 0010 REM !.@TO.CRE0 01/20/89 Load Create Reference file 0030 COM E 0032 IF E>0THEN 128 0035 REM %.Entry from @MENU 0040 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-13000)/19,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=(B-A)*256 : REM .Text space for DATA stmts 0147 E=INT(MIN((SPACEK*1024-13000-C)/19,4096)) 0150 IF D0<0 THEN 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