image of READY prompt

Wang2200.org

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

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