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"