home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib29b.dsk / MOUSETEXT.DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  2KB  |  34 lines
  1. 10  REM **********************
  2. 20  REM *   MOUSETEXT.DEMO   *
  3. 30  REM *   BY LEH-WEN YAU   *
  4. 40  REM * COPYRIGHT (C) 1986 *
  5. 50  REM * BY MICROSPARC, INC *
  6. 60  REM * CONCORD, MA  01742 *
  7. 70  REM **********************
  8. 80  ONERR  GOTO 280
  9. 90  PRINT : PRINT  CHR$(4)"PR#3": REM TURN ON ENHANCED VIDEO
  10. 100  PRINT : PRINT  CHR$(17): REM SET 40-COLUMN MODE
  11. 110  PRINT : PRINT  CHR$(4);"BLOAD IMBED"
  12. 120  PRINT : IF  PEEK(48896) = 76  THEN  PRINT  CHR$(4)"PR# A$300": GOTO 140: REM  ENABLE MOUSEIMBED
  13. 130  POKE 54,0: POKE 55,3: CALL 1002: REM  FOR DOS 3.3
  14. 140  HOME :A$ = "MOUSEIMBED  DEMO": VTAB 1: GOSUB 260
  15. 150 A$ = "BY LEH-WEN YAU": VTAB 3: GOSUB 260
  16. 160 A$ = "** COPYRIGHT 1986 BY MICROSPARC, INC **": VTAB 5: GOSUB 260
  17. 170  VTAB 8
  18. 180  PRINT "PRESS K TO MOVE UP": REM  DELETE CHAR ON EACH SIDE OF K
  19. 190  PRINT "      H TO MOVE LEFT": REM  DELETE CHAR ON EACH SIDE OF H
  20. 200  PRINT "      U TO MOVE RIGHT": REM  DELETE CHAR ON EACH SIDE OF U
  21. 210  PRINT "      J TO MOVE DOWN": REM  DELETE CHAR ON EACH SIDE OF J
  22. 220  PRINT "      A OR @ TO FIRE": REM  DELETE CHAR ON EACH SIDE OF A AND EACH SIDE OF @
  23. 230  PRINT : PRINT "FG HERE COMES THE MOUSETEXT MAN!": REM  DELETE CHAR BEFORE F AND AFTER G
  24. 240  PRINT : PRINT "@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_ THE SET": REM  DELETE CHAR BEFORE @ AND AFTER _
  25. 250  END 
  26. 260  HTAB 21 - LEN(A$)/2: PRINT A$: REM  CENTER TEXT
  27. 270  RETURN 
  28. 280 ER =  PEEK(222):EL =  PEEK(219) *256 + PEEK(218): REM  ERROR HANDLER
  29. 290  POKE 216,0: TEXT : HOME : VTAB 7: PRINT  CHR$(4)"CLOSE"
  30. 300  IF ER = 6  THEN  PRINT "FILE NOT FOUND": PRINT "THIS PROGRAM REQUIRES THE BINARY FILE   'IMBED' TO BE ON THE SAME DISK";: GOTO 340
  31. 310  IF ER = 8  THEN  PRINT "I/O ERROR": GOTO 340
  32. 320  IF ER = 16  THEN  PRINT "SYNTAX ERROR IN LINE "EL: GOTO 340
  33. 330  PRINT "UNANTICIPATED ERROR IN LINE "EL
  34. 340  VTAB 23: CALL  -3288: END