Scr#1
\ Graphic routines PLOT,DRAW
\ Assembler is required.

CODE PLOT H POP B POP L B LD
  D PUSH 22E5 CALL D POP JPIX ;C

CODE DRAW H POP B POP D PUSH
 1 E LD# 7 B BIT NZ IF C A LD
NEG -1 E LD# A C LD THEN 1 D LD#
 L B LD 7 H BIT NZ IF B A LD NEG
 -1 D LD# A B LD THEN
 24BA CALL D POP JPIX ;C

CODE POINT H POP B POP D PUSH
 L B LD 22AA CALL A B LD B INR
 M A LD BEGIN RLCA DSZ RRA
 0 A LD# 0 SBC# A H LD A L LD
 D POP H PUSH JPIX ;C

CODE HARDCOPY D PUSH DI C0 B LD#
 0EAF CALL D POP JPIX ;C

HEX
: ATTR SWAP C/L * + 5800 + C@ ;
DECIMAL

-->






Scr#2
\ Graphic routines COLOR

: SCREENSAVE 16384 6912 GETFN
  0 0 AT 50 BCAL 22 0 AT ;
: SCREENLOAD 16384    0 GETFN
  55 BCAL ;

: COLOR CREATE C, DOES> C@ EMIT
  EMIT 23695 @ 23693 ! ;
16 COLOR INK
17 COLOR PAPER
18 COLOR FLASH
19 COLOR BRIGHT

: INV 23697 DUP C@ 243 AND
  ROT 12 * OR SWAP C! ;
: GOVER 23697 DUP C@ 252 AND ROT
  3 * OR SWAP C! ;

: BORDER DUP DUP 4 < 7 AND SWAP
  8 * + 23624 C! 254 P! ;

: NORMAL 0 INK 7 PAPER 0 FLASH
  0 BRIGHT 7 BORDER 0 GOVER 0 IN
V  ;

