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"