home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware 1 2 the Maxx
/
sw_1.zip
/
sw_1
/
PROGRAM
/
FORTHCMP.ZIP
/
DISPLAY1.4TH
< prev
next >
Wrap
Text File
|
1992-03-30
|
1KB
|
43 lines
\ FORTH COMPILER DISPLAY LIBRARY 18:35 11/30/91
0 #IF
COPYRIGHT 1985 (C) BY THOMAS ALMY. ALL RIGHTS RESERVED
Permission is granted to registered users of ForthCMP to sell or distribute
computer programs incorporating the compiled contents of this file.
Fast Terminal output for IBM pc or compatibles.
Works with monochrome or color monitors, 80 column text only!
EMIT generates all 256 characters -- no control functions.
Include this file at start of program.
Include the file DISPLAY2 before FORTHLIB
Define constant VID-DELAY non-zero for vertical retrace blanking
Execute SETUP-VID at program start, and UNSETUP-VID at finish
This library defines EMIT, TYPE, CS:TYPE, CLS, GOTOXY, FOREGROUND,
BACKGROUND, INTENSITY, -INTENSITY, BLINK, -BLINK, as in
PC/Forth. DO NOT use CONSOLE PRINTER and/or MESSAGES!
#THEN
10 HEX
VARIABLE vidseg \ VIDEO SEGMENT
VARIABLE style \ DISPLAY STYLE
VARIABLE cursor \ CURSOR POSITION
VARIABLE crtport \ CRT PORT
B800 vidseg ! 7 style ! 0 cursor ! 3D4 crtport !
50 CONSTANT c/l \ Characters per line
19 EQU l/s \ lines per screen
0 EQU c/s 0 EQU c/sm1 0 EQU crtstart
0 0 IN/OUT NEED CLS
1 0 IN/OUT NEED FOREGROUND
1 0 IN/OUT NEED BACKGROUND
0 0 IN/OUT NEED BLINK
0 0 IN/OUT NEED -BLINK
0 0 IN/OUT NEED INTENSITY
0 0 IN/OUT NEED -INTENSITY
0A = #IF DECIMAL #THEN