home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib28b.dsk
/
PRINTER.DEMO.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
1KB
|
24 lines
10 REM **********************
20 REM * PRINTER.DEMO *
30 REM * BY KEVIN KNOX *
40 REM * *
50 REM * COPYRIGHT 1986 BY *
60 REM * MICROSPARC, INC. *
70 REM * CONCORD, MA 01742 *
80 REM **********************
90 IF PEEK(104) < >64 THEN POKE 104,64: POKE 103,1: POKE 16384,0: PRINT CHR$(4)"RUN PRINTER.DEMO"
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
110 POKE 54,3: POKE 55,8
120 HGR : HOME
130 PRINT "THE PRINTER ROUTINES WILL---"
140 VTAB 3: PRINT "PRINT IN CAPITALS"
150 POKE 8,1: PRINT "PRINT IN LOWERCASE"
160 POKE 8,0: INVERSE : VTAB 7: PRINT " PRINT IN INVERSE": NORMAL
170 POKE 7,1: VTAB 9: PRINT "PRINT NUMBERS AS SUBSCRIPTS -->A5"
180 POKE 7,2: VTAB 11: PRINT "PRINT NUMBERS AS SUPERSCRIPTS -->A6"
190 POKE 7,0: VTAB 13: PRINT "USE CHR$ --> CHR$(91) = "; CHR$(91)
200 P$ = "A CHARACTER STRING":V = 10
210 VTAB 15: PRINT "AND PRINT VARIABLES:"
220 VTAB 17: PRINT "P$ = ";P$: PRINT "AND V = "V
230 PRINT
240 PRINT "PRESS <RETURN> FOR TEXT SCREEN";: GET Z$: PRINT : TEXT