
new


rem this is one way of finding where the screen is
100 locate 0,0:print"az";
108 s=49152+512:if peek(s)=97 and peek(s+1)=122 then 120
110 s=57344+512:if peek(s)=97 and peek(s+1)=122 then 120
112 s=32768+512:if peek(s)=97 and peek(s+1)=122 then 120
114 s=40960+512
120 a=s-512


125 cls
130 for j=0 to 255
140 poke j+s,j
150 next
160 locate 2,13:print"Extended character set";
170 gosub 4000

200 for j=0 to 255
210 poke j+a,32+1
220 next
230 locate 2,13:print"Extended inverse";
240 gosub 4000

300 for j=0 to 255
310 poke j+a,32+2
320 next
330 locate 2,13:print"Extended, color select";
340 gosub 4000

400 for j=0 to 255
410 poke j+a,32+3
420 next
430 locate 2,13:print"Extended, color, inverse";
440 gosub 4000


600 for j=0 to 63
610 poke j+a,0
620 next
630 for j=0 to 63
640 poke j+a+64,1
650 next
660 for j=0 to 63
670 poke j+a+128,2
680 next
690 for j=0 to 63
700 poke j+a+192,3
710 next
730 locate 2,13:print"Built-in characters all modes";
740 gosub 4000


1000 for j=0 to 255
1010 poke j+a,64
1020 next
1030 locate 2,13:print"Semigraphics SG4";
1040 gosub 4000

1100 for j=0 to 255
1110 poke j+a,64+32
1120 next
1130 locate 2,13:print"Semigraphics SG6";
1140 gosub 4000

1200 for j=0 to 255
1210 poke j+a,64+32+2
1220 next
1230 locate 2,13:print"Semigraphics SG6, color";
1240 gosub 4000



3900 end
4000 locate 2,14
4010 print"Hit Space Bar";
4020 k$=inkey$:if k$=""then4020
4030 locate 2,13:print"                               ";
4040 locate 2,14:print"             ";
4050 return






