home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 149.lha / ColorTerm / about.4th < prev    next >
Encoding:
Text File  |  1988-04-26  |  2.4 KB  |  70 lines
  1. \ This file Copyright 1988 by Warren Block.
  2.  
  3. \ about.f
  4.  
  5. DECIMAL
  6.  
  7. CREATE Hi1$     0," cOLORtERM/aMIGA"
  8. CREATE Hi2$     0,"  BY wARREN bLOCK"
  9.  
  10. CREATE About1$  0," tHIS TERMINAL PROGRAM DISPLAYS THE c64"
  11. CREATE About2$  0," SCREEN COLORS AND GRAPHICS CHARACTERS,"
  12. CREATE About3$  0," AND RESPONDS TO CURSOR MOVES.  tHAT"
  13. CREATE About4$  0," MEANS YOU CAN CALL A cOLOR-64 bbs AND"
  14. CREATE About5$  0," SEE IT AS IT WAS MEANT TO BE SEEN."
  15. CREATE About6$  0," wRITTEN IN mULTI-fORTH, (cOPYRIGHT 1986"
  16. CREATE About7$  0," cREATIVE sOLUTIONS, iNC.) BY:"
  17. CREATE About8$  0,"           wARREN bLOCK"
  18. CREATE About9$  0,"           1921 fIFTH, aPT. 3"
  19. CREATE About10$ 0,"           rAPID cITY, sd  57701"
  20. CREATE About11$ 0,"     cOPYRIGHT 1988 BY wARREN bLOCK"
  21. CREATE About12$ 0," tHIS PROGRAM IS FREELY REDISTRIBUTABLE."
  22. CREATE About13$ 0,"         cALL THE pc wORLDS bbs!"
  23. CREATE About14$ 0,"             (605) 348-2357"
  24.  
  25. : EmitScr0$   ( 0$addr --- )  \ Print a string.
  26.    LOCALS| str |
  27.    str 0$LEN str + str DO
  28.      IC@ EmitScrChar
  29.    LOOP ;
  30.  
  31. : EmitColor$   ( 0$addr --- )  \ Print a string on the screen with colors.
  32.    LOCALS| str |
  33.    str 0$LEN str + str DO
  34.      I 8 MOD 1+ MakeTextColor
  35.      IC@ EmitScrChar
  36.    LOOP ;
  37.  
  38. : ShowSpaces   ( n --- )
  39.    3 0 DO  32 EmitScrChar  LOOP ;
  40.  
  41. : ShowBorder   ( --- )
  42.    31 0 DO  96 EmitScrChar  LOOP ;
  43.  
  44. : Greetings   ( --- )  \ Show opening greeting message.
  45.    PrintCR Yellow MakeTextColor
  46.    ShowSpaces 176 EmitScrChar ShowBorder 174 EmitScrChar PrintCr
  47.    ShowSpaces 125 EmitScrChar
  48.    SetReversed Hi1$ EmitColor$ SetNormal
  49.    Red MakeTextColor Hi2$ EmitScr0$
  50.    Yellow MakeTextColor 125 EmitScrChar PrintCR
  51.    ShowSpaces 173 EmitScrChar ShowBorder 189 EmitScrChar
  52.    PrintCR PrintCr ;
  53.  
  54. : TalkAbout   ( --- )  \ Show something neat.
  55.    CurrentColor @ ClearScr
  56.    Greetings Blue MakeTextColor
  57.    About1$ EmitScr0$ PrintCR About2$ EmitScr0$ PrintCR
  58.    About3$ EmitScr0$ PrintCR About4$ EmitScr0$ PrintCR
  59.    About5$ EmitScr0$ PrintCR PrintCR
  60.    Green MakeTextColor
  61.    About6$ EmitScr0$ PrintCR About7$ EmitScr0$ PrintCR PrintCR
  62.    Cyan MakeTextColor
  63.    About8$ EmitScr0$ PrintCR About9$ EmitScr0$ PrintCR
  64.    About10$ EmitScr0$ PrintCR PrintCR
  65.    Yellow MakeTextColor About11$ EmitScr0$ PrintCR PrintCR
  66.    Orange MakeTextColor About12$ EmitScr0$ PrintCR PrintCR
  67.    Purple MakeTextColor About13$ EmitScr0$ PrintCR
  68.    Red MakeTextColor About14$ EmitScr0$ PrintCR
  69.    MakeTextColor ;
  70.