home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib27a.dsk / JANUARY.1986 / PROCURSOR.INST.bas < prev   
BASIC Source File  |  2023-02-26  |  2KB  |  26 lines
  1. 10  REM  **********************
  2. 20  REM  *   PROCURSOR.INST   *
  3. 30  REM  *    BY JIM LAZAR    *
  4. 40  REM  * COPYRIGHT (C) 1986 *
  5. 50  REM  * BY MICROSPARC, INC *
  6. 60  REM  * CONCORD, MA  01742 *
  7. 70  REM  **********************
  8. 80  REM 
  9. 90  IF  PEEK(64435) < >6  THEN  HOME : VTAB 12: PRINT "THIS IS NOT A //E OR A //C.": END 
  10. 100  IF  PEEK(48694) = 0  AND  PEEK(48695) = 3  THEN  POKE 48694, PEEK(899): POKE 48695, PEEK(900)
  11. 110  HOME : PRINT "ProCursor": PRINT : PRINT "By Jim Lazar": PRINT : PRINT : PRINT "Copyright 1986": PRINT "by MicroSPARC, Inc.": PRINT : PRINT : PRINT 
  12. 120  PRINT "1-Solid Blinking Box": PRINT "2-Custom Character": PRINT 
  13. 130  PRINT : INPUT "Enter version to install: ";A$: IF  VAL(A$) <1  OR  VAL(A$) >2  THEN  PRINT  CHR$(7);: GOTO 130
  14. 140 VER = 3 *(A$ = "2") +(A$ = "1") *(2 -( PEEK(64448) = 234)): IF VER < >3  THEN 170
  15. 150  PRINT : INPUT "Enter blink character number: ";A$: IF  VAL(A$) <0  OR  VAL(A$) >255  THEN  PRINT  CHR$(7);: GOTO 150
  16. 160 CHAR =  VAL(A$)
  17. 170  FOR A = 745 TO 962: READ B: POKE A,B: NEXT 
  18. 180  IF VER = 1  THEN  POKE 828,76: POKE 829,88: POKE 830,3: FOR A = 831 TO 855: POKE A,234: NEXT : GOTO 210
  19. 190  IF VER = 2  THEN 210
  20. 200  FOR A = 828 TO 838: READ B: POKE A,B: NEXT : POKE 833,CHAR: FOR A = 839 TO 855: POKE A,234: NEXT 
  21. 210  CALL 745: HOME : PRINT "ProCursor 1."VER" is installed"
  22. 220  DATA  173,54,190,141,131,3,173,55,190,141,132,3,169,0,141,54,190,169,3,141,55,190,96,44,68,190,48,5,44,67,190,16,3,76,130,3,72,133,252,138,72,152,72,169,0,133,254,44,31,192,16,31,164,36,165,252,145,40
  23. 230  DATA  173,123,5,74,168,8,120,173,85,192,144,3,173,84,192,177,40,133,252,133,253,173,84,192,40,165,252,201,224,176,22,201,192,144,4,233,64,133,252,201,96,176,10,201,64,144,6,169,160,133,254,133,255,32,133,3,230,78
  24. 240  DATA  208,2,230,79,162,255,134,251,44,0,192,48,9,202,208,253,198,251,208,244,240,229,44,31,192,16,5,165,253,32,171,3,104,168,104,170,104,76,0,0,141,15,192,36,254,16,11,166,255,165,252,133,255,138,133
  25. 250  DATA  252,208,6,165,252,73,128,133,252,44,31,192,48,7,164,36,165,252,145,40,96,165,252,72,173,123,5,74,168,104,8,120,44,85,192,144,3,44,84,192,145,40,44,84,192,40,96
  26. 260  DATA  169,128,133,254,169,0,133,255,76,88,3