home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib28b.dsk / PRINTER.DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  24 lines

  1. 10  REM  **********************
  2. 20  REM  * PRINTER.DEMO       *
  3. 30  REM  * BY KEVIN KNOX      *
  4. 40  REM  *                    *
  5. 50  REM  * COPYRIGHT 1986 BY  *
  6. 60  REM  * MICROSPARC, INC.   *
  7. 70  REM  * CONCORD, MA  01742 *
  8. 80  REM  **********************
  9. 90  IF  PEEK(104) < >64  THEN  POKE 104,64: POKE 103,1: POKE 16384,0: PRINT  CHR$(4)"RUN PRINTER.DEMO"
  10. 100  PRINT  CHR$(4)"BLOAD PRINTER": PRINT  CHR$(4)"BLOAD PTABLE": IF  PEEK(48896) = 76  THEN  POKE 2050,216: PRINT  CHR$(4)"PR# A$802": GOTO 120
  11. 110  POKE 54,3: POKE 55,8
  12. 120  HGR : HOME 
  13. 130  PRINT "THE PRINTER ROUTINES WILL---"
  14. 140  VTAB 3: PRINT "PRINT IN CAPITALS"
  15. 150  POKE 8,1: PRINT "PRINT IN LOWERCASE"
  16. 160  POKE 8,0: INVERSE : VTAB 7: PRINT " PRINT IN INVERSE": NORMAL 
  17. 170  POKE 7,1: VTAB 9: PRINT "PRINT NUMBERS AS SUBSCRIPTS -->A5"
  18. 180  POKE 7,2: VTAB 11: PRINT "PRINT NUMBERS AS SUPERSCRIPTS -->A6"
  19. 190  POKE 7,0: VTAB 13: PRINT "USE CHR$ --> CHR$(91) = "; CHR$(91)
  20. 200 P$ = "A CHARACTER STRING":V = 10
  21. 210  VTAB 15: PRINT "AND PRINT VARIABLES:"
  22. 220  VTAB 17: PRINT "P$ = ";P$: PRINT "AND V = "V
  23. 230  PRINT 
  24. 240  PRINT "PRESS <RETURN> FOR TEXT SCREEN";: GET Z$: PRINT : TEXT