3amscpm set to 1 for cpm2.2 on amstrad 2amscpm set to 0 for cpm2.2 on amstradA MBXREF.BAS MBASIC 5.2 [CP/M ver] Cross Reference Utility= Downloaded from Prodigy Systems CBBS 5/17/81 T.E.M.! amscpm CL( )& amscpm CL()"E" CL7 ();"MICROSOFT BASIC CROSS REFERENCE UTILITY."< ();"LISTS ALL VARIABLES AND REFERENCED LINE #S."= ();"MBASIC FILES MUST BE ASCII FOR THIS PROGRAM."? ();"ENTER ONE OR MORE FILE NAMES, THEN JUST RETURN". ();"TO END THE LIST OF FILENAMES."7  ();" ---> BE SURE LINE PRINTER IS READY."2#<   I-J  LP  F %P R(~), P(), ( )^Z  VNX(), (), FRS(), LS(), RF(), NX()!x ...RESERVED WORDS - - - -F ABS,AND,ASC,AS,ATN,AUTO,CDBL,CHR$,CINT,CLEAR,CLOSE,CONSOLE,CONT COS,CSNG,CVD,CVI,CVS,DATAI DEFDBL,DEFINT,DEFSNG,DEFSTR,DEFUSR,DEF,DELETE,DIM,DSKI$,DSKO$,DSKFB EDIT,ELSE,END,EOF,EQV,ERASE,ERL,ERR,EXP,FIELD,FILES,FIX,FOR FRE,GET,GOSUB,GOTO,HEX$9 IF,IMP,INPUT,INP,INSTR,INT,KILL,LEFT$,LEN,LET,LINEC LIST,LLIST,LOAD,LOC,LOF,LOG,LPRINT,LSET,MERGE,MID$,MKD$,MKI$@ MKS$,MOD,MOUNT,NAME,NEW,NEXT,NOT,NULL,OCT$,ON,OPEN,OR,OUT PEEK,POKE,POS,PRINT,PUTE READ,REM,RENUM,RESET,RESTORE,RESUME,RETURN,RIGHT$,RND,RSET,RUN? SAVE,SGN,SIN,SPACE$,SPC(,SQR,STEP,STOP,STR$,STRING$,SWAP) TAB(,TAN,THEN,TO,TROFF,TRON,UNLOAD. USING,USR,VAL,VARPTR,WAIT,WIDTH,XOR,"\"(...FILL ARRAY WITH RESERVED WORDS "R , R;6RR  R(R)R  R"\" ^A@(R)("A")  P() P()R J ,T8^    P() P()R h r|...GET LIST OF NAMES FJ  ();" ---> ASCII SAVED PROGRAM #" F " = ";  ' "" F :    %FF  (F)  * (); " ---> DATE = "; / ();"NOW INDICATE WHETHER YOU WISH:"5 ();"- A PRINTED CROSS-REFERENCE LISTING(S)"4 ();"- A PRINTED PROGRAM SOURCE LISTING(S)" ();"......OR BOTH."B (); "1) CROSS REFERENCE 2) LIST 3) BOTH "; $...PROCESS LIST OF NAME FILES  FK  "I",,()  PR"'"()"' - "  b & 0 (AL,( )):D$N...INITIALIZE CROSS REFERENCEXJbL  B  P  ""  ""  V[  R.l  [  VNX()  v  ,...INPUT LINE AND EXTRACT LINE NUMBER () 3 ,       OL()  BRNC  E""  LL  BBL=Lw(," ")  L&(x(,L))  L,$ L LL...PARSE REST OF LINE2LL  LL   (,L,)? "A" "Z" z  "0" "9" ~0  " "   "," BRNCQ (")   Lw(L,,)  L     "'"   +* "&"     @4 "$" "!" "%" "#" j  > "(" j"H   "," E"" R \f...TEST FOR COMMANDp:z()  P(("A"))  BRNC! (R()) = w(L,,R())L      RR()G R"DATA" Lw(L,,":")  L    R"REM" _ R"GOTO" R"GOSUB" R"THEN" R"ELSE" R"RESUME" BRNC, R"ERASE" E"("  E""$LL(R)  ...END VARIABLE "" w "A" E  ()  "0" |(" ",)  &(x(,))  BI  P () I  VNX()     $x () LS([)  RF()L B  RR  NX()R  85$VV  I VNX(I)Vb.(V)  VNX(V)  RR  FRS(V[)R  VC8RF(R)L  NX(R)  LS([)RB""  LV...EXPAND VARIABLE`j "" t!~ "" BRNC   ...LIST VARIABLES  P  x  [  (VNX()   << L8 x  SS  S 4R  FRS([)  (); R ();7LRF()  L LL " #####";L, RRA R R   LL  L8 x'NX()   "( R  LL 2  < FP (P,"=")aZ "LINES: " L " BYTES: " B " SYMBOLS: " V[ " REFERENCES: " RdLL  n>x   "SYMBOL" () "REFERENCE LINE"  LL/ (P,"-")  LL  S   * L< |(,)"'PG" jw(,,( ))   (,,)  LL    X (,,L)  LL  L  ()   , 5  "FILE NOT FOUND"   :  (AL,( )))PP  (H) "PAGE" P PR  4L   ------- END OF PROGRAM --------L,( ))