Listing of file='ISS.021U' on disk='vmedia/701-2423D.wvd.zip'
# Sector 252, program filename = 'ISS.021U'
0010 REM ISS.021U, RELEASE 5-1, (11/07/79) - COPYRIGHT WANG LABS. INC.
0050 COM D,H,F(3),H$34,A1$1,A2$2,A3$20,L4,A1$(10)7,A$(57)12
: COM C0$1,D$1,B0$1,C1$1,G,A,E(2),D$(16)16,U,F,B$(16,16)1
: COM L$2,L,A$16,C,N$2,C$1,M,E,F$2,B$1,S
0070 DIM B1$(4)64
0120 % THIS MUST BE STATEMENT 120
0130 PRINT HEX(010A);"INITIALIZING TABLES FOR NEXT MODULE",TAB(80),TAB(80),TAB
(80)
: J=1
: INIT(FF)A$()
: FOR I=1TO 122
: BIN(B1$(1))=127+I
: READ STR(B1$(1),2)
: K=LEN(B1$(1))
: MAT COPY B1$()<1,K>TO A$()<J,K>
: J=J+K
: NEXT I
: H$=HEX(002E2020)
: $TRAN(A$(),H$)R
: FOR I=1TO 10
: READ A1$(I)
: INIT(FC)STR(A1$(I),LEN(A1$(I))+1)
: NEXT I
0350 H$=HEX(00300131023203330434053506360737083809392020)
: FOR I=1TO 16
: READ D$(I)
: NEXT I
: $TRAN(D$(),H$)R
: H$=HEX(00301031203230332020)
: FOR I=1TO 16
: READ A$
: $TRAN(A$,H$)R
: OR (D$(I),A$)
: NEXT I
: H$=" "
: L4=1
: PRINT HEX(010A);,"LOADING NEXT MODULE",TAB(80)
: LOAD DC T#0,"ISS.022U"
0580 DEFFN'31
: COM CLEAR Z9$
: LOAD DC T#0,"ISS.100M"
0640 DATA "LIST.","CLEAR.","RUN.","RENUMBER.","CONTINUE."
: DATA "SAVE.","LIMITS.","COPY.","KEYIN.","DSKIP.","AND.","OR."
: DATA "XOR.","TEMP.","DISK.","TAPE.","TRACE.","LET.","FIX("
: DATA "DIM.","ON.","STOP.","END.","DATA.","READ.","INPUT."
0680 DATA "GOSUB.","RETURN.","GOTO.","NEXT.","FOR.","IF.","PRINT."
: DATA "LOAD.","REM.","RESTORE.","PLOT.","SELECT.","COM."
: DATA "PRINTUSING.","MAT.","REWIND.","SKIP.","BACKSPACE."
: DATA "SCRATCH.","MOVE.","CONVERT.","PLOT."," STEP."," THEN."
0720 DATA " TO.","BEG.","OPEN.","CI.","R","D","CO.","LGT("
: DATA "OFF.","DBACKSPACE.","VERIFY.","DA.","BA.","DC.","FN"
: DATA "ABS(","SQR(","COS(","EXP(","INT(","LOG(","SIN("
: DATA "SGN(","RND(","TAN(","ARC","#PI","TAB(","DEFFN"
: DATA "TAN(","SIN(","COS(","HEX(","STR(","ATN("
0770 DATA "LEN(","RE.","#","%","P","BT.","G","VAL(","NUM("
: DATA "BIN(","POS(","LS=","ALL","PACK","CLOSE.","INIT"
: DATA "HEX","UNPACK","BOOL","ADD","ROTATE","$","ERROR."
: DATA "ERR","DAC","DSC","SUB","LINPUT.","VER(","ELSE."
: DATA "SPACE","ROUND","AT(","HEXOF(","MAX(","MIN("
0820 DATA "MOD("
: DATA "FROM","GIO","TRAN","SORT","SEARCH","MERGE","ERROR","FORMAT","@PART"
,"BREAK"
: DATA "0000000000000000","0000000000000000"
: DATA "7080300840000000","2222222222000000"
: DATA "1111111111111111","1111111111100000"
: DATA "0000000000000000","0000000000000000"
1050 DATA "0000000000000000","0000000000500000"
: DATA "0060000000000000","0000000000000000"
: DATA "0000000000000050","0000000060000000"
: DATA "0000000000000000","0000000000000000"
: DATA "0000000000000000","0000000000000000"
: DATA "0001003033333303","0000000000333333"
1190 DATA "3000000000000000","0000000000000030"
: DATA "0000000000000000","0000000000000000"
: DATA "0300030333333000","0333300033000313"
: DATA "3303303330330330","3330000003030003"
: DATA "0333333333300303","3303330100303333"
: DATA "3030003220030332","3330333333003003"