home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
games
/
eamon0.zip
/
INIT.BAS
< prev
next >
Wrap
BASIC Source File
|
1986-06-23
|
384b
|
17 lines
10 CLS
20 FOR I=1 TO 15
30 PRINT"WARNING WARNING WARNING WARNING"
40 NEXT I
50 PRINT:PRINT:PRINT
60 INPUT"DO YOU WISH TO ERASE CHARACTER FILE ";A$
70 IF A$<>"Y" THEN CLS:END
80 ON ERROR GOTO 160
90 KILL"CHARACTE.RS"
100 OPEN"R",#1,"CHARACTE.RS",255
110 FIELD 1,255 AS B$
120 LSET B$="0"
130 PUT#1,1
140 CLOSE#1
150 END
160 RESUME NEXT