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