home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Club Amiga de Montreal - CAM
/
CAM_CD_1.iso
/
files
/
149.lha
/
ColorTerm
/
about.4th
< prev
next >
Wrap
Text File
|
1988-04-25
|
2KB
|
70 lines
\ This file Copyright 1988 by Warren Block.
\ about.f
DECIMAL
CREATE Hi1$ 0," cOLORtERM/aMIGA"
CREATE Hi2$ 0," BY wARREN bLOCK"
CREATE About1$ 0," tHIS TERMINAL PROGRAM DISPLAYS THE c64"
CREATE About2$ 0," SCREEN COLORS AND GRAPHICS CHARACTERS,"
CREATE About3$ 0," AND RESPONDS TO CURSOR MOVES. tHAT"
CREATE About4$ 0," MEANS YOU CAN CALL A cOLOR-64 bbs AND"
CREATE About5$ 0," SEE IT AS IT WAS MEANT TO BE SEEN."
CREATE About6$ 0," wRITTEN IN mULTI-fORTH, (cOPYRIGHT 1986"
CREATE About7$ 0," cREATIVE sOLUTIONS, iNC.) BY:"
CREATE About8$ 0," wARREN bLOCK"
CREATE About9$ 0," 1921 fIFTH, aPT. 3"
CREATE About10$ 0," rAPID cITY, sd 57701"
CREATE About11$ 0," cOPYRIGHT 1988 BY wARREN bLOCK"
CREATE About12$ 0," tHIS PROGRAM IS FREELY REDISTRIBUTABLE."
CREATE About13$ 0," cALL THE pc wORLDS bbs!"
CREATE About14$ 0," (605) 348-2357"
: EmitScr0$ ( 0$addr --- ) \ Print a string.
LOCALS| str |
str 0$LEN str + str DO
IC@ EmitScrChar
LOOP ;
: EmitColor$ ( 0$addr --- ) \ Print a string on the screen with colors.
LOCALS| str |
str 0$LEN str + str DO
I 8 MOD 1+ MakeTextColor
IC@ EmitScrChar
LOOP ;
: ShowSpaces ( n --- )
3 0 DO 32 EmitScrChar LOOP ;
: ShowBorder ( --- )
31 0 DO 96 EmitScrChar LOOP ;
: Greetings ( --- ) \ Show opening greeting message.
PrintCR Yellow MakeTextColor
ShowSpaces 176 EmitScrChar ShowBorder 174 EmitScrChar PrintCr
ShowSpaces 125 EmitScrChar
SetReversed Hi1$ EmitColor$ SetNormal
Red MakeTextColor Hi2$ EmitScr0$
Yellow MakeTextColor 125 EmitScrChar PrintCR
ShowSpaces 173 EmitScrChar ShowBorder 189 EmitScrChar
PrintCR PrintCr ;
: TalkAbout ( --- ) \ Show something neat.
CurrentColor @ ClearScr
Greetings Blue MakeTextColor
About1$ EmitScr0$ PrintCR About2$ EmitScr0$ PrintCR
About3$ EmitScr0$ PrintCR About4$ EmitScr0$ PrintCR
About5$ EmitScr0$ PrintCR PrintCR
Green MakeTextColor
About6$ EmitScr0$ PrintCR About7$ EmitScr0$ PrintCR PrintCR
Cyan MakeTextColor
About8$ EmitScr0$ PrintCR About9$ EmitScr0$ PrintCR
About10$ EmitScr0$ PrintCR PrintCR
Yellow MakeTextColor About11$ EmitScr0$ PrintCR PrintCR
Orange MakeTextColor About12$ EmitScr0$ PrintCR PrintCR
Purple MakeTextColor About13$ EmitScr0$ PrintCR
Red MakeTextColor About14$ EmitScr0$ PrintCR
MakeTextColor ;