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