Listing of file='ATOM020A' on disk='vmedia/701-2110C.wvd.zip'
# Sector 5, program filename = 'ATOM020A' 0010 REM ATOM020A,00-00(04/21/78),12014 0030 COM E$8 : PRINT HEX(03) : GOSUB '248(6,0,0) : PRINT ,"ATOMIZE 'BASIC' TEXT" : PRINT : PRINT "FILE NAME =";TAB(32);"INPUT ADDRESS =" : PRINT TAB(32);"OUTPUT ADDRESS =" : PRINT : PRINT ,"ADDRESSES AVAILABLE" : PRINT ," 1 - 310 5 - B10" 0150 PRINT ," 2 - 320 6 - B20" : PRINT ," 3 - 330 7 - B30" : PRINT ," 4 - 350 8 - 360";HEX(01) 0200 GOSUB '245("ENTER THE NUMBER OF THE DESIRED INPUT ADDRESS",1,0) : GOSUB '248(8,49,0) : ON Q9GOTO 280,320,360,400,440,480,520,560 : GOSUB '55 : GOTO 200 0280 SELECT #2310 : PRINT "310" : GOTO 590 0320 SELECT #2320 : PRINT "320" : GOTO 590 0360 SELECT #2330 : PRINT "330" : GOTO 590 0400 SELECT #2350 : PRINT "350" : GOTO 590 0440 SELECT #2B10 : PRINT "B10" : GOTO 590 0480 SELECT #2B20 : PRINT "B20" : GOTO 590 0520 SELECT #2B30 : PRINT "B30" : GOTO 590 0560 SELECT #2360 : PRINT "360" 0590 GOSUB '245("ENTER THE NUMBER OF THE OUTPUT ADDRESS.",1,0) : GOSUB '248(9,49,0) : ON Q9GOTO 630,670,710,750,790,830,870,910 0630 SELECT #3310 : PRINT "310" : GOTO 950 0670 SELECT #3320 : PRINT "320" : GOTO 950 0710 SELECT #3330 : PRINT "330" : GOTO 950 0750 SELECT #3350 : PRINT "350" : GOTO 950 0790 SELECT #3B10 : PRINT "B10" : GOTO 950 0830 SELECT #3B20 : PRINT "B20" : GOTO 950 0870 SELECT #3B30 : PRINT "B30" : GOTO 950 0910 SELECT #3360 : PRINT "360" 0950 GOSUB '248(10,0,6) : GOSUB '248(0,0,4) : PRINT HEX(010A);"MOUNT INPUT AND OUTPUT DISK.";TAB(64) : GOSUB '254 1010 GOSUB '243("ENTER THE NAME OF THE FILE TO BE PROCESSED.",8) : E$=Q6$ : GOSUB '229(2,E$) : IF R2$=HEX(00)THEN 1060 : IF STR(R9$(R6),1,2)=HEX(1000)THEN 1100 1060 PRINT HEX(010A0A0A);"ERROR - FILE DOES NOT EXIST ON INPUT DISK" : GOTO 1010 1100 GOSUB '229(3,E$) : IF R2$=HEX(00)THEN 1150 : PRINT HEX(010A0A0A);"ERROR - FILE ALREADY EXIST ON OUTPUT DISK" : GOTO 1010 1150 GOSUB '248(8,12,0) : PRINT E$ : PRINT HEX(010A);"RE-MOUNT SYSTEM PLATTER IF REMOVED.";TAB(64) : GOSUB '254 : LOAD DC T#1,"ATOM020B"10,6999 1240 DEFFN '31 : COM CLEAR E$ : LOAD DC T#1,"MENU010A"