Listing of file='LIST020A' on disk='vmedia/701-2048D.wvd.zip'
# Sector 534, program filename = 'LIST020A'
0010 REM LIST020A,00-00(02/18/76),12003A - COPYRIGHT WANG LABS. INC., 1976
0030 COM R1$8,R2$1,R3$2,R9$8,R9$(16),I$(8)3,N$8,H$32
: COM A$(64),B$(2)2,A1$(11)1,L$(1)4,C$1,W$(109)11
: FOR I=1TO 108
: READ W$(I)
: NEXT I
: W$(109)=HEX(0D2020202020203A)
: A1$(1)=HEX(FF)
: A1$(2)=HEX(FD)
: A1$(3)=HEX(80)
0150 A1$(4)=HEX(9A)
: A1$(5)=HEX(CE)
: A1$(6)=HEX(20)
: A1$(7)=HEX(22)
: A1$(8)=HEX(27)
: A1$(9)=HEX(A2)
: A1$(10)=HEX(D8)
: A1$(11)=HEX(0D)
: LOAD DC T#0,"LIST030A"
0260 DATA "LIST","CLEAR","RUN","RENUMBER","CONTINUE"
: DATA "SAVE","LIMITS","COPY","KEYIN","DSKIP","AND","OR"
: DATA "XOR","TEMP","DISK","TAPE","TRACE","LET","DRAM"
0290 DATA "DIM","ON","STOP","END","DATA","READ","INPUT"
: DATA "GOSUB","RETURN","GOTO","NEXT","FOR","IF","PRINT"
: DATA "LOAD","REM","RESTORE","PLOT","SELECT","COM"
0320 DATA "PRINTUSING","MAT","REWIND","SKIP","BACKSPACE"
: DATA "SCRATCH","MOVE","CONVERT","PLOT"," STEP"," THEN"
: DATA " TO","BEG","OPEN","CI","R","D","CO","!B9!"
0350 DATA "OFF","DBACKSPACE","VERIFY","DA","BA","DC","FN"
: DATA "ABS(","SQR(","COS(","EXP(","INT(","LOG(","SIN("
: DATA "SGN(","RND(","TAN(","ARC","#PI","TAB(","DEFFN"
0380 DATA "TAN(","SIN(","COS(","HEX(","STR(","ATN("
: DATA "LEN(","RE","#","%","P","BT","G","VAL(","NUM("
: DATA "BIN(","POS(","LS=","ALL","PACK","CLOSE","INIT"
0410 DATA "HEX","UNPACK","BOOL","ADD","ROTATE","$","RC"