Listing of file='ATOM030A' on disk='vmedia/701-2110C.wvd.zip'
# Sector 158, program filename = 'ATOM030A' 0010 REM ATOM030A,00-00(04/21/78),12014 0030 COM E$8 : PRINT HEX(03) : GOSUB '248(6,0,0) : PRINT ,"DE-ATOMIZE 2200 PROGRAM" : PRINT : PRINT "FILE NAME =";TAB(32);"INPUT ADDRESS =" : PRINT TAB(32);"OUTPUT ADDRESS =" : PRINT : PRINT ,"ADDRESSES AVAILABLE" : PRINT ," 1 - 310 5 - B10" 0130 PRINT ," 2 - 320 6 - B20" : PRINT ," 3 - 330 7 - B30" : PRINT ," 4 - 350 8 - 360";HEX(01) 0180 GOSUB '245("ENTER THE NUMBER OF THE DESIRED INPUT ADDRESS",1,0) : GOSUB '248(8,49,0) : ON Q9GOTO 260,300,340,380,420,460,500,540 : GOSUB '55 : GOTO 180 0260 SELECT #2310 : PRINT "310" : GOTO 570 0300 SELECT #2320 : PRINT "320" : GOTO 570 0340 SELECT #2330 : PRINT "330" : GOTO 570 0380 SELECT #2350 : PRINT "350" : GOTO 570 0420 SELECT #2B10 : PRINT "B10" : GOTO 570 0460 SELECT #2B20 : PRINT "B20" : GOTO 570 0500 SELECT #2B30 : PRINT "B30" : GOTO 570 0540 SELECT #2360 : PRINT "360" 0570 GOSUB '245("ENTER THE NUMBER OF THE OUTPUT ADDRESS.",1,0) : GOSUB '248(9,49,0) : ON Q9GOTO 610,650,690,730,770,810,850,890 0610 SELECT #3310 : PRINT "310" : GOTO 930 0650 SELECT #3320 : PRINT "320" : GOTO 930 0690 SELECT #3330 : PRINT "330" : GOTO 930 0730 SELECT #3350 : PRINT "350" : GOTO 930 0770 SELECT #3B10 : PRINT "B10" : GOTO 930 0810 SELECT #3B20 : PRINT "B20" : GOTO 930 0850 SELECT #3B30 : PRINT "B30" : GOTO 930 0890 SELECT #3360 : PRINT "360" 0930 GOSUB '248(10,0,6) : GOSUB '248(0,0,4) : PRINT HEX(010A);"MOUNT INPUT AND OUTPUT DISK.";TAB(64) : GOSUB '254 0990 GOSUB '243("ENTER THE NAME OF THE FILE TO BE PROCESSED.",8) : E$=Q6$ : GOSUB '229(2,E$) : IF R2$=HEX(00)THEN 1040 : IF STR(R9$(R6),1,2)=HEX(1080)THEN 1080 1040 PRINT HEX(010A0A0A);"ERROR - FILE DOES NOT EXIST ON INPUT DISK" : GOTO 990 1080 GOSUB '229(3,E$) : IF R2$=HEX(00)THEN 1130 : PRINT HEX(010A0A0A);"ERROR - FILE ALREADY EXIST ON OUTPUT DISK" : GOTO 990 1130 GOSUB '248(8,12,0) : PRINT E$ : PRINT HEX(010A);"RE-MOUNT SYSTEM PLATTER IF REMOVED.";TAB(64) : GOSUB '254 : LOAD DC T#1,"ATOM030B"10,6999 1220 DEFFN '31 : COM CLEAR E$ : LOAD DC T#1,"MENU010A"