image of READY prompt

Wang2200.org

Listing of file='XREF010B' on disk='vmedia/701-2048D.wvd.zip'

# Sector 391, program filename = 'XREF010B'
0010 REM XREF010B,00-00(11/08/76),12003A - COPYRIGHT WANG LABS. INC., 1976
0290 COM D,H,V(3),H$32,A1$1,A2$1
   : COM L4,A1$(7)6,A$(55)10,S0$1,L$(1)2,D$1,B,R0$1
   : COM T$1,G,A,E(2),T$(16)16,U,F,R$(16,16)1,L,I,A$16
   : COM C,N$(1)2,S$1,T,E,W$(1)2,R$1
   : DIM B$(4)64
0340 PRINT HEX(01);"INITIALIZING TABLES FOR NEXT MODULE",TAB(64),TAB(64),TAB(6
     4)
   : J=1
   : INIT(FF)A$()
   : FOR I=1TO 108
   : BIN(B$(1))=127+I
   : READ STR(B$(1),2)
   : K=LEN(B$(1))
   : MAT COPY B$()<1,K>TO A$()<J,K>
   : J=J+K
   : NEXT I
   : A1$(1)="FROM"
0480 A1$(2)="GIO"
   : A1$(3)="TRAN"
   : A1$(4)="SORT"
   : A1$(5)="SEARCH"
   : A1$(6)="MERGE"
   : A1$(7)="ERROR"
   : DIM T1$(1)1
   : INIT(00)T$()
   : T1$(1)=HEX(01)
   : FOR I=66TO 91
   : MAT COPY T1$()TO T$()<I,1>
   : NEXT I
   : T1$(1)=HEX(02)
   : FOR I=49TO 58
0730 MAT COPY T1$()TO T$()<I,1>
   : NEXT I
   : STR(T$(3),5,1)=HEX(03)
   : STR(T$(3),9,1)=HEX(04)
   : STR(T$(10),11,2),STR(T$(13),15,1)=HEX(05)
   : STR(T$(11),3,1),STR(T$(14),9,1)=HEX(06)
   : STR(T$(3),1,1)=HEX(07)
   : STR(T$(3),3,1),STR(T$(3),8,1)=HEX(08)
0830 H$=HEX(003010312020)
   : FOR I=1TO 16
   : READ A$
   : $TRAN(A$,H$)R
   : OR (T$(I),A$)
   : NEXT I
   : H$=" "
   : B$(1)="     V$(000,000)00:"
   : STR(B$(1),1,5)=HEX(20FF0010A6)
0940 STR(B$(1),20)=HEX(A1BF5423302C225852454630313044220D0000FE)
   : L4=(S-12)*1024+3000
   : L3=INT(L4^(1/3))
   : L2=INT(L4/(L3*L3))
   : L4=L3*L3*L2
   : CONVERT L2TO STR(B$(1),17,2),(##)
   : CONVERT L3TO STR(B$(1),13,3),(###)
1030 CONVERT L3TO STR(B$(1),9,3),(###)
   : LIMITS T#0,"XREF010C",X,Y,Z
   : DATA SAVE BA T#0,(X+1,Z)B$()
   : DATA LOAD BA T#0,(Y,Z)B$()
   : STR(B$(1),2,2)=HEX(0003)
   : DATA SAVE BA T#0,(Y,Z)B$()
   : PRINT HEX(010A0A0A0A0A0A0A0A0A0A)
1140 PRINT TAB(13);"ERROR RECOVERY FOR PROCESSING MODULE";TAB(64)
   : PRINT TAB(64)
   : PRINT "S.F. 0  - RE-START EXECUTION AT BEGINNING OF CURRENT FILE"
   : IF P9=2THEN 1190
   : PRINT "S.F. 1  - RE-PRINT CROSS REFERENCE TABLES"
1190 PRINT "KEY ";HEX(22);"H";HEX(22);" TO INTERRUPT EXECUTION AT THE END OF T
     HE CURRENT FILE"
   : PRINT "KEY ";HEX(22);"P";HEX(22);" TO INTERRUPT EXECUTION AT THE END OF T
     HE CURRENT PAGE";HEX(01)
1230 PRINT HEX(01);,"LOADING NEXT MODULE",TAB(64)
   : LOAD DC T#0,"XREF010C"
1270 DATA "LIST","CLEAR","RUN","RENUMBER","CONTINUE"
   : DATA "SAVE","LIMITS","COPY","KEYIN","DSKIP","AND","OR"
   : DATA "XOR","TEMP","DISK","TAPE","TRACE","LET","DRAM"
1300 DATA "DIM","ON","STOP","END","DATA","READ","INPUT"
   : DATA "GOSUB","RETURN","GOTO","NEXT","FOR","IF","PRINT"
   : DATA "LOAD","REM","RESTORE","PLOT","SELECT","COM"
1330 DATA "PRINTUSING","MAT","REWIND","SKIP","BACKSPACE"
   : DATA "SCRATCH","MOVE","CONVERT","PLOT"," STEP"," THEN"
   : DATA " TO","BEG","OPEN","CI","R","D","CO","!B9!"
1360 DATA "OFF","DBACKSPACE","VERIFY","DA","BA","DC","FN"
   : DATA "ABS(","SQR(","COS(","EXP(","INT(","LOG(","SIN("
   : DATA "SGN(","RND(","TAN(","ARC","#PI","TAB(","DEFFN"
1390 DATA "TAN(","SIN(","COS(","HEX(","STR(","ATN("
   : DATA "LEN(","RE","#","%","P","BT","G","VAL(","NUM("
   : DATA "BIN(","POS(","LS=","ALL","PACK","CLOSE","INIT"
1420 DATA "HEX","UNPACK","BOOL","ADD","ROTATE","$","RC"
   : DATA "0000000000000000","0000000000000000"
   : DATA "0001000011111101","0000000000111111"
   : DATA "1000000000000000","0000000000000010"
1500 DATA "0000000000000000","0000000000000000"
   : DATA "0100010110000000","0101100011000111"
   : DATA "1101101010110110","1010000000000001"
   : DATA "0111111111100101","1101110000101111"
1540 DATA "0010000100000000","1111111000000001"