image of READY prompt

Wang2200.org

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