image of READY prompt

Wang2200.org

Listing of file='ATOM010A' on disk='vmedia/701-2110C.wvd.zip'

# Sector 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"