Listing of file='ATOM010A' on disk='vmedia/701-2110C.wvd.zip'
# Sector 181, program filename = 'ATOM010A'
0010 REM ATOM010A,00-00(04/21/78),12014
0030 COM A$(124)16
: PRINT HEX(030A0A0A0A0A);,"INITIALIZING ATOMIZATION TABLE"
: FOR I=1TO 124
: READ STR(A$(I),2)
: BIN(STR(A$(I),1,1))=LEN(A$(I))-1
: BIN(STR(A$(I),12))=I+127
: NEXT I
: STR(A$(80),12,2)=HEX(CBCF)
: STR(A$(81),12,2)=HEX(CBD0)
0160 STR(A$(82),12,2)=HEX(CBD1)
: STR(A$(62),12)="DA"
: STR(A$(63),12)="BA"
: STR(A$(64),12)="DC"
: STR(A$(108),12)="ERROR"
: STR(A$(87),12)="RE"
: STR(A$(123),12)="SORT"
: STR(A$(124),12)="CON"
: STR(A$(91),12)="BT"
0230 DATA LOAD DC OPEN T#1,"ATOMF010"
: DATA SAVE DC #1,A$()
: DATA SAVE DC #1,END
: DATA SAVE DC CLOSE#1
0270 DEFFN '15
: LOAD DC T#1,"MENU010A"
0310 DATA "LIST","CLEAR","RUN","RENUMBER","CONTINUE"
: DATA "SAVE","LIMITS","COPY","KEYIN","DSKIP","AND","OR"
: DATA "XOR","TEMP","DISK","TAPE","TRACE","LET","FIX("
0340 DATA "DIM","ON","STOP","END","DATA","READ","INPUT"
: DATA "GOSUB","RETURN","GOTO","NEXT","FOR","IF","PRINT"
: DATA "LOAD","REM","RESTORE","PLOT","SELECT","COM"
0370 DATA "PRINTUSING","MAT","REWIND","SKIP","BACKSPACE"
: DATA "SCRATCH","MOVE","CONVERT","PLOT","STEP","THEN"
: DATA "TO","BEG","OPEN","CI","R","D","CO","LGT("
0400 DATA "OFF","DBACKSPACE","VERIFY","DA","BA","DC","FN"
: DATA "ABS(","SQR(","COS(","EXP(","INT(","LOG(","SIN("
: DATA "SGN(","RND(","TAN("," ","#PI","TAB(","DEFFN"
0430 DATA "ARCTAN(","ARCSIN(","ARCCOS(","HEX(","STR(","ATN("
: DATA "LEN(","RE","#","%","P","BT","G","VAL(","NUM("
: DATA "BIN(","POS(","LS=","ALL","PACK","CLOSE","INIT"
0460 DATA "HEX","UNPACK","BOOL","ADD","ROTATE","$"
: DATA "ERROR","ERR","DAC","DSC","SUB","LINPUT","VER(","ELSE"
: DATA "SPACE","ROUND","AT(","HEXOF(","MAX(","MIN(","MOD("
: DATA "SORT","CON"