home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib24b.dsk / BOOT.MESSAGE.bas < prev    next >
BASIC Source File  |  2023-02-26  |  2KB  |  25 lines
  1. 10  REM  **********************
  2. 20  REM  *                    *
  3. 30  REM  *    BOOT.MESSAGE    *
  4. 40  REM  * BY   DOUG  KILMESH *
  5. 50  REM  * COPYRIGHT (C) 1985 *
  6. 60  REM  * BY MICROSPARC, INC *
  7. 70  REM  * CONCORD, MA  01742 *
  8. 80  REM  *                    *
  9. 90  REM  **********************
  10. 100  HOME : HTAB 10: PRINT "BOOT MESSAGE MAKER": PRINT : PRINT "INPUT YOUR MESSAGE USING 40 CHARACTERS  OR LESS. THE MESSAGE WILL AUTOMATICALLY BE CENTERED.": PRINT : INVERSE : PRINT  SPC( 40): PRINT : PRINT  SPC( 40): NORMAL 
  11. 110  VTAB 22: PRINT "**  COPYRIGHT 1985, MICROSPARC, INC. **": VTAB 8: HTAB 1: INPUT "";M$:L =  LEN(M$): IF L >40  OR L <1  THEN 100
  12. 120  IF L <39  THEN  FOR X = 1 TO  INT((40 -L)/2):M$ = " " +M$: NEXT X: VTAB 8: HTAB 1: PRINT M$
  13. 130  VTAB 13: HTAB 1: INVERSE : PRINT "  INSERT TARGET DISK AND PRESS RETURN  ";: NORMAL : GET A$: IF  ASC(A$) < >13  THEN 130
  14. 140  PRINT : PRINT : GOSUB 200
  15. 150  POKE 4103,32: POKE 4104,179: POKE 4105,8: FOR X = 4275 TO 4294: READ Y: POKE X,Y: NEXT X
  16. 160  FOR X = 1 TO 40: IF  LEN(M$) =  >X  THEN  POKE X +4297, ASC( MID$ (M$,X,1)) +128: GOTO 180
  17. 170  POKE X +4297,160
  18. 180  NEXT X
  19. 190  POKE 788,2: GOSUB 220: PRINT : PRINT "BOOT MESSAGE SAVED.": END 
  20. 200  FOR X = 768 TO 796: READ Y: POKE X,Y: NEXT X
  21. 210  DATA  169,3,160,8,32,217,3,96,1,96,1,0,0,0,25,3,0,16,0,0,1,0,0,96,1,0,1,239,216
  22. 220  CALL 768: IF  PEEK(789) = 16  THEN  PRINT : PRINT "UNWRITE PROTECT DISK AND PRESS A KEY";: GET A$: PRINT : GOTO 220
  23. 230  IF  PEEK(789) = 64  THEN  PRINT : PRINT "FIX DISK DRIVE ERROR AND PRESS A KEY";: GET A$: PRINT : GOTO 220
  24. 240  RETURN 
  25. 250  DATA  32,88,252,162,0,189,202,8,157,128,5,232,224,40,208,245,165,43,74,96