home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / NEW33MAS.DSK / START13.bas < prev   
BASIC Source File  |  2014-09-09  |  637b  |  16 lines
  1. 10  ONERR  GOTO 2000
  2. 20  TEXT : HOME 
  3. 30 D$ =  CHR$(4): REM  CTRL-D 
  4. 33 QUOTE$ =  CHR$(34): REM  QUOTE
  5. 36 BEL$ =  CHR$(7): REM  CAUSES BELL SOUND
  6. 40  VTAB 10: INVERSE :A$ = "EXECUTING BOOT13": GOSUB 1000: NORMAL 
  7. 50  PRINT D$"BRUN BOOT13"
  8. 1000  REM  CENTER STRING A$
  9. 1010  HTAB  INT(20 -( LEN(A$)/2)): PRINT A$: RETURN 
  10. 2000  VTAB 10: IF  PEEK(222) < >6  THEN  GOTO 2040
  11. 2010  PRINT "THIS PROGRAM REQUIRES THAT THE FILE"
  12. 2020  PRINT : PRINT QUOTE$"BOOT13"QUOTE$" BE PRESENT ON THIS DISK"
  13. 2030  PRINT BEL$: END 
  14. 2040  PRINT "PLEASE CONSULT THE DOS 3.3 PROGRAMMING"
  15. 2050  PRINT : PRINT "MANUAL FOR ERROR #" PEEK(222)
  16. 2060  PRINT BEL$: END