home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FreeWare Collection 3
/
FreeSoftwareCollection3pd199x-jp.img
/
oh_fm
/
townsfos
/
edit.bas
< prev
next >
Wrap
BASIC Source File
|
1980-01-02
|
590b
|
29 lines
10000 '
10010 ' EDIT for TownsFOS
10020 '
10030 ' Filename "EDIT.BAS"
10040 '
10050 ' Last Update 1989. 5.19 Version 1.01
10060 '
10070 '
10080 DEFINT A-Z
10090 IF ARGC>1 THEN *PARA
10100 PRINT : PRINT "***** F-BASIC386 Editor *****"
10110 PRINT
10120 INPUT " Source Filename ? ",SFL$
10130 IF SFL$="" THEN RETURN
10140 GOTO *MAIN
10150 '
10160 *PARA
10170 SFL$=ARGV$(1)
10180 '
10190 ' MAIN
10200 '
10210 *MAIN : ON ERROR GOTO *M_ERROR
10220 LOAD SFL$
10230 END
10240 '
10250 *M_ERROR
10260 S_ERR=ERR: IF S_ERR=63 THEN NEW
10270 RESUME *S_T_RETURN