TI FORTH --- a fig-FORTH extension
SCR #108 
  0 ( BLUEBIRD/4  BIT-MAP SCREEN PAGE 1)   BASE->R  HEX SPLIT2
  1 : LINES     0 DO 2OVER 2OVER I + ROT I + ROT ROT LINE LOOP ;
  2 : SMBL      0 DO 2DUP I + VSBW LOOP 2DROP ;
  3 B0 DCOLOR ! 00 82 10 89 15 LINES  11 89 1A 8A 05 LINES
  4 3B DCOLOR ! 00 96 09 8E 0A LINES  10 8F 1A 8A 16 LINES
  5 30 DCOLOR ! 1B 89 1F 8B 18 LINES
  6 00 97 1F 97 29 LINES 20 8B 2B 8A 2E LINES 2C 8A 34 8A 2E LINES
  7 35 8A 3F 8C 2D LINES 40 8C 4B 92 2B LINES
  8 4C 92 4F 92 21 LINES 50 92 5F 95 28 LINES 20 B3 60 B3 0D LINES
  9 E0 DCOLOR ! 60 93 6C 8C 14 LINES
 10 6D 8C 79 80 20 LINES 7A 80 7C 82 20 LINES 7D 82 7F 80 20 LINES
 11 3E DCOLOR ! 62 93 7F A0 10 LINES
 12 30 DCOLOR ! 60 A0 7F A0 20 LINES
 13 F0 DCOLOR ! 80 80 87 7B 16 LINES 88 7A 8F 77 18 LINES
 14 90 77 91 79 18 LINES 92 7A 94 77 18 LINES 95 77 97 76 16 LINES
 15 98 75 9F 7D 18 LINES A0 7D A7 87 18 LINES                  -->


SCR #109 
  0 ( BLUEBIRD/5   BIT-MAP SCREEN PAGE 2)
  1 63 1240 8 SMBL 63 1340 8 SMBL 63 1440 8 SMBL 63 1438 8 SMBL
  2 63 1448 8 SMBL 63 1145 3 SMBL 00 3447 VSBW C3 3446 VSBW
  3 01 3438 VSBW 01 3439 VSBW 03 343A VSBW 07 343B VSBW
  4 06 343C VSBW 0E 343D VSBW E0 343E VSBW EF 3347 VSBW
  5 FC 3341 VSBW FE 3340 VSBW 61 1341 VSBW C3 343F VSBW
  6 FE 333F VSBW 80 3449 3 SMBL E0 344C VSBW FC 344D VSBW
  7 07 344E VSBW 01 344F VSBW   40 3145 VSBW C0 3146 VSBW
  8 C3 3147 VSBW E7 3240 VSBW   80 3448 VSBW
  9 C0 0F38 8 SMBL C0 0F40 8 SMBL C0 0F48 8 SMBL C0 1038 8 SMBL
 10 C0 1040 8 SMBL C0 1048 8 SMBL C6 1138 8 SMBL 6C 1140 8 SMBL
 11 20 1148 8 SMBL 90 114C VSBW
 12 46 3140 VSBW C9 3141 VSBW 23 3142 VSBW 87 3143 VSBW
 13 A5 3144 VSBW E7 3145 VSBW 05 2F38 VSBW 02 2F39 VSBW
 14 B5 2F3A VSBW 35 2F3B VSBW F5 2F3C VSBW DB 2F3D VSBW
 15 DF 2F3E VSBW B7 2F3F VSBW                                   -->


SCR #110 
  0 ( BLUEBIRD/5   BIT-MAP SCREEN PAGE 3)
  1 DD 3038 VSBW BB 3039 VSBW DF 303A VSBW FD 303B VSBW
  2 67 303C VSBW 3F 303D VSBW 4A 303E VSBW 1D 303F VSBW
  3 C0 1138 2 SMBL 36 113D 4 SMBL AF 3139 VSBW B0 313A VSBW
  4 34 313B VSBW FC 313C VSBW FE 313D 3 SMBL
  5 3C 2F40 VSBW 7E 2F41 VSBW AB 2F42 VSBW B6 2F43 VSBW
  6 DB 2F44 VSBW FF 2F45 VSBW BF 2F46 VSBW FD 2F47 VSBW
  7 BB 3040 VSBW DD 3041 VSBW 66 3042 VSBW BB 3043 VSBW
  8 BA 3044 VSBW DF 3045 VSBW FE 3046 VSBW 47 4047 VSBW
  9 AC 2F48 VSBW D8 2F49 VSBW 5C 2F4A VSBW D8 2F4B VSBW
 10 76 2F4C VSBW BB 2F4D VSBW BA 2F4E VSBW 7C 2F4F VSBW
 11 DA 3048 VSBW EE 3049 VSBW EC 304A VSBW 70 304B VSBW
 12 A0 304C VSBW D0 304D VSBW B0 304E VSBW E0 304F VSBW
 13 70 3148 VSBW A0 3149 VSBW C0 314A 2 SMBL C0 314C VSBW
 14 40 314D VSBW 02 114E 2 SMBL C0 1030 8 SMBL C0 0F30 8 SMBL
 15 C0 0E45 3 SMBL 10 2E45 VSBW 42 2E46 VSBW 99 2E47 VSBW   -->


TI FORTH --- a fig-FORTH extension
SCR #111 
  0 ( BLUEBIRD/6  BIT-MAP SCREEN PAGE 4)
  1 BE 3047 VSBW FF 314E 2 SMBL 02 3030 VSBW 07 3031 VSBW
  2 02 3033 VSBW 05 2F37 VSBW 02 2F36 VSBW 01 2F35 VSBW 36 113B 5
  3 SMBL 00 314D VSBW 40 314C VSBW 80 314B VSBW FC 313B VSBW
  4 FF 313C VSBW FF 313E VSBW     EF DCOLOR ! 80 80 89 8A 20 LINES
  5 8A 8A 8F 87 20 LINES 90 88 97 8A 26 LINES 98 8A A7 87 20 LINES
  6 BE DCOLOR ! 80 A0 93 93 16 LINES 92 93 9F 90 16 LINES
  7 A0 90 B0 8A 20 LINES B0 DCOLOR ! B1 8A C0 86 28 LINES
  8 BF 86 D3 80 30 LINES D2 80 E0 7D 32 LINES
  9 8D 309D VSBW FE 109D VSBW 00 309E VSBW FE 109E VSBW
 10 00 309F VSBW FE 109F VSBW 0D 3097 VSBW FE 1097 VSBW
 11 DF 3081 VSBW FE 1081 VSBW F0 1078 VSBW 61 3078 VSBW
 12 24 3080 VSBW BE 3083 VSBW EF 1088 8 SMBL
 13 F8 308D VSBW 10 308C VSBW 00 308A VSBW 80 308B VSBW
 14 00 3089 VSBW 00 3088 VSBW E0 10AE VSBW E0 10AF VSBW
 15 E0 11A8 VSBW 80 30AE VSBW C0 30AF VSBW E0 31A8 VSBW        -->


SCR #112 
  0 ( BLUEBIRD/7   BIT-MAP SCREEN PAGE 5)
  1 
  2 FF 30A5 VSBW F4 3082 VSBW EF 10A5 VSBW FE 109C VSBW
  3 A5 30A5 VSBW FE 309C VSBW
  4 3B DCOLOR ! 80 A0 9F A7 14 LINES A0 A7 BF A9 16 LINES
  5 B0 DCOLOR ! DF 7D F5 7C 36 LINES F4 7C FF 7C 36 LINES
  6 3B DCOLOR ! C0 AB CF AC 08 LINES D0 AC EF B0 09 LINES
  7 F0 B0 FF B4 09 LINES
  8 30 DCOLOR ! 80 B3 FF B3 0D LINES
  9 9B DCOLOR ! C0 8D CF 87 08 LINES D0 86 DF 8C 08 LINES
 10 1B DCOLOR ! C0 8D DF 8D LINE
 11 8B DCOLOR ! C0 8E DF 8E 0F LINES 07 30CE VSBW 3F 30CF VSBW
 12 E0 30D6 VSBW FC 30D7 VSBW 03 31C1 VSBW 3F 31C2 VSBW
 13 03 31C1 VSBW 3F 31C2 VSBW C0 31D9 VSBW FC 31DA VSBW
 14 
 15                                                            -->


SCR #113 
  0 (  BLUEBIRD/8    BIT-MAP SCREEN PAGE 6)
  1 BE 1380 VSBW BE 1381 VSBW BE 1382 VSBW 3B 1384 VSBW
  2 03 3380 VSBW 0F 3381 VSBW 3F 3382 VSBW C0 3384 VSBW
  3 E3 1379 VSBW E3 137A VSBW E3 137B VSBW E3 137C VSBW
  4 FF 3379 VSBW 0F 337A VSBW 00 337B VSBW 00 337C VSBW
  5 3E 1370 VSBW 3E 1371 VSBW E3 1277 VSBW E3 1276 VSBW
  6 E3 1275 VSBW 3E 126C VSBW F8 3370 VSBW FE 3371 VSBW
  7 0F 3277 VSBW 1F 3276 VSBW 7F 3275 VSBW 0F 326C VSBW
  8 E3 126C VSBW EB 1285 VSBW EB 1286 VSBW EB 1287 VSBW
  9 FF 3285 VSBW FE 3286 VSBW FC 3287 VSBW 0F 319F VSBW
 10 BE 1290 VSBW 0F 3290 VSBW 0F 31A6 VSBW 07 31A5 VSBW
 11 EB 1289 VSBW EB 128A VSBW EB 128B VSBW EB 128C VSBW
 12 FE 3289 VSBW F0 328A VSBW E0 328B VSBW C0 328C VSBW
 13 B3 1489 VSBW 0F 3489 VSBW B3 1492 VSBW B3 1493 VSBW
 14 7F 3492 VSBW 0F 3493 VSBW B3 149C VSBW B3 149D VSBW
 15 0F 349C VSBW 03 349D VSBW BE 1383 VSBW 3F 3383 VSBW         -->


TI FORTH --- a fig-FORTH extension
SCR #114 
  0 ( BLUEBIRD/9    BIT-MAP SCREEN PAGE 7)
  1 
  2 B3 1385 VSBW B3 1386 VSBW B3 1387 VSBW
  3 0F 3385 VSBW 03 3386 VSBW 01 3387 VSBW
  4 01 337C VSBW
  5 0F 3106 VSBW 0F 310C VSBW 3B 1106 VSBW 3B 110C VSBW
  6 81 12DB VSBW 84 12DC 3 SMBL 0F 32D8 7 SMBL 81 12CC 4 SMBL
  7 81 12C3 VSBW 84 12C4 3 SMBL F0 32C0 7 SMBL FC 32CC 4 SMBL
  8 81 12D4 4 SMBL 3F 32D4 4 SMBL BF 33D0 VSBW 3F 33D1 4 SMBL
  9 81 13D0 5 SMBL FC 33C8 5 SMBL 81 13C8 5 SMBL B8 13D5 VSBW
 10 B8 13CD VSBW 0F 33D5 VSBW F0 33CD VSBW
 11 
 12 -->
 13 
 14 
 15 


SCR #115 
  0 ( TEST)                   HEX
  1 
  2 0 VARIABLE SCREEN.COLOR 9FE ALLOT SCREEN.COLOR A00 ERASE
  3 0 VARIABLE SCREEN.PATTS 9FE ALLOT SCREEN.PATTS A00 ERASE
  4 
  5 0E00 SCREEN.COLOR A00 VMBR
  6 2E00 SCREEN.PATTS A00 VMBR
  7 
  8 
  9 
 10 
 11 
 12    R->BASE
 13 
 14 
 15