home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib31b.dsk / MOUSETEXT.PRINT.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  20 lines
  1. 1  REM  **********************
  2. 2  REM  *  MOUSETEXT.PRINT   *
  3. 3  REM  * BY SHANE M. KEYSER *
  4. 4  REM  * COPYRIGHT (C) 1987 *
  5. 5  REM  * BY MICROSPARC, INC *
  6. 6  REM  * CONCORD, MA  01742 *
  7. 7  REM  **********************
  8. 8  GOTO 80
  9. 10  PRINT  CHR$(4);"PR#1": PRINT  CHR$(9);"255N"
  10. 20  FOR Z1 = 1024 TO 1104  STEP 40: FOR Z2 = Z1 TO Z1 +896  STEP 128: FOR Z3 = Z2 TO Z2 +39
  11. 30 Z4 =  PEEK(Z3): IF Z4 <31  THEN Z4 = 32
  12. 40  IF Z4 >63  AND Z4 <96  THEN  PRINT  CHR$(27) CHR$(38) CHR$(Z4) CHR$(27) CHR$(36);: GOTO 60
  13. 50  PRINT  CHR$(Z4);
  14. 60  NEXT Z3: PRINT : NEXT Z2,Z1
  15. 70  PRINT  CHR$(4);"PR#0": RETURN 
  16. 80  PRINT  CHR$(3);"PR#3": PRINT  CHR$(17): HOME :M1$ =  CHR$(15) + CHR$(27):M0$ =  CHR$(14) + CHR$(24): REM  MOUSETEXT ON AND OFF
  17. 90  FOR I = 0 TO 22:K = 1 +3 *( INT(I/2) = I/2): FOR J = 1 TO 20: PRINT  MID$ (M0$ +" " +M1$ + CHR$(64 +I) +M0$ +" ",K,6);: NEXT J,I
  18. 100  POKE 32,9: POKE 33,21: POKE 34,6: POKE 35,15: HOME 
  19. 110  PRINT : PRINT "  MOUSETEXT.PRINT": PRINT : PRINT " THE IMAGEWRITER II": PRINT " SCREEN DUMP PROGRAM": PRINT " BY:": PRINT : PRINT  SPC( 4)"SHANE KEYSER"
  20. 120  GOSUB 10: TEXT : HOME : END