image of READY prompt

Wang2200.org

Listing of file='609FG130' on disk='vmedia/731-0071G.wvd.zip'

# Sector 314, program filename = '609FG130'
0010 REM '609FG130' - CREATE FILE ROUTINE
0030 B2$=" "
   : A1=-1
   : J$=HEX(0D)
   : GOSUB '210(B0$,B9$,B4$)
   : ON VAL(R1$)+1GOTO 190,115,130,160
   : IF R1$>HEX(29)THEN CONVERT (VAL(R1$))TO T2$,(##)
   : ELSE HEXUNPACKR1$TO T2$
   : GOSUB 2505
   : GOTO 190
0115 GOSUB 2507
   : GOTO 190
0130 GOSUB 2510
   : GOTO 190
0160 GOSUB 2515
   : GOTO 190
0190 LOAD TA5$
2500 % DO NOT RENUMBER THE FOLLOWING
2505 B2$="Error occurred during create = "&T2$
   : RETURN
2507 B2$="Volume Full"
   : RETURN
2510 B2$="File Already Exists"
   : RETURN
2515 B2$="Volume Does Not Exist"
   : RETURN