-5'HÈ ÁÂ>F >ÿÿt ~zJ1wÉd © 100 n 280 x ˜ ‚& Š X=63488+(16*65) ™ 63488+(16*75)-1 Œ “ Y ‘ Š A=1 ™ 10:‹ A – Ÿ X,Y   ‹ X ª* ” 0,0,0,0,0,0,0,0,8,4,2,7,255,127,63,31 ´/ ” 1,1,3,1,1,1,1,3,7,15,31,63,255,255,255,255 ¾8 ” 0,0,128,0,0,0,0,128,192,224,240,248,255,255,255,255 È1 ” 0,0,0,0,0,0,0,4,8,48,120,120,255,255,255,255 Ò* ” 0,0,0,0,0,0,0,0,0,0,3,2,2,255,255,255 Ü5 ” 0,0,108,56,16,56,124,124,124,124,124,56,16,0,0,0 æ0 ” 0,0,0,0,0,0,255,0,0,56,68,71,143,191,127,63 ð5 ” 0,0,0,0,0,0,255,64,64,64,240,224,255,255,224,128 ú* ” 0,0,0,0,0,0,224,0,0,0,9,2,255,196,9,0 $ ” 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0  •  ° " · ,, ± 17,4:ƒ"GHIJGHIJGHIJGHIJGHIJGHIJGHIJGHI" 6 ± 16,5:ƒ "F"[A31 74]"F" @? ± 16,6:ƒ "F";:ª:ƒ " P.C.G. ";:°:ƒ "F" J ± 16,7:ƒ "F"[A31 74]"F" T? ± 16,8:ƒ "F";:ª:ƒ " TUTORIAL ";:°:ƒ "F" ^ ± 16,9:ƒ "F"[A31 74]"F" h2 ± 15,10:ƒ "ABCDEJABCDEJABCDEJABCDEJABCDEJABCDE" r ª t ƒ v ƒ:ƒ:ƒ:ƒ x: ƒ " * * * Copyright by Adam Pierce * * * " | Š X=1 ™ 500:‹ X † ’ 120 ‹! ƒ "Press any key to continue";  „ Þ$=""‰ 400 š ¯:ª ¤$ Š X=63488+(33*16) ™ 63487+(36*16) ® “ G ¸ Ÿ X,G  ‹ X ÌD ” 255,128,128,128,128,128,128,128,128,128,128,128,128,128,128,255 Ö( ” 255,0,0,0,0,0,0,0,0,0,0,0,0,0,0,255 à( ” 255,1,1,1,1,1,1,1,1,1,1,1,1,1,1,255 ê · ô( ƒ " P.C.G. TUTORIAL" þ ƒ:ƒ < ƒ "This program shows how to generate P.C.G. Characters."  ƒ ; ƒ "P.C.G. Stands for `Programmable Character Generator'" & ƒ 0O ƒ "P.C.G. characters are made up of 16 rows of dots with 8 dots in each row" :F ƒ \:°:ƒ " ";:ª:ƒ " This is the full size of one P.C.G. character " D ƒ I! ƒ "Press any key to continue"; N „ Þ$="" ‰ 590 X © 0 b · l ° v Š X=1 ™ 16 € Š Y=1 ™ 24 š 3 Š ± Y+39,X:ƒ "!";ß$(34);"#"; ” ‹ Y ž ‹ X ¨ ª ²" ± 0:ƒ " P.C.G." ¼ © 100 Æ' ƒ "This grid represents the 16 rows" Ð' ƒ "by 8 colums of dots which form a" Ú ƒ "P.C.G. character." ä ƒ î' ƒ "The character generator requires" ø ƒ "data in the form of one" ( ƒ "decimal number(between 0 and 255)"   ƒ "for each row." % ƒ "This number is the sum of the "  $ ƒ "value of each dot in the row " * ƒ "as shown on the grid." 4 © 200 >( ± 39:°:ƒ "128 64 32 16 8 4 2 1 ":ª H © 0 R ª \ ± 1,14 f) ƒ "Using this grid, we will now form" p ƒ "our own P.C.G. character." u! ƒ "Press any key to continue"; z „ Þ$="" ‰ 890 „ © 0 Ž · ˜ ° ¢ Š X=1 ™ 16 ¬ Š Y=1 ™ 24 š 3 ¶ ± Y+39,X:ƒ "!";ß$(34);"#"; À ‹ Y Ê ‹ X Ô ª Þ ± 0:ƒ" P.C.G" è © 100 ò# ƒ:ƒ "Now, type in any letter(s)" ü< ƒ "that you want to change into":ƒ "P.C.G. character(s)."  – A0$  ƒ & ƒ "Press `1' to fill in the square" $" ƒ "where indicated by the `*' " .' ƒ "(to form a P.C.G. dot), or press" 8 ƒ "`0' to leave it blank" B ƒ :ƒ A0$;"=";:°:ƒ A0$ G ª L ± 28:ƒ "Data ="; Q ° V ƒ ` T=1 j ° t Y=Å(A0$(;T,T)) ~ X=63488+(Y*16) ˆ B=0 ’ Z=8 œ ¡ ¦ Q=9-Z ° D=1 º „ Z=1 ‰ 1250 Ä Š O=1 ™ (Z-1) Î D=2*D Ø ‹ O âL L=(3*(Q-1))+40:U=X-63487-(16*Y):„ L>39 ³ L<63 ³ U>0 ³ U<17 ‰ ± L,U ˆ ± 40 ì © 20:ƒ " * ";[A3 08]; ö ƒ " ";[A3 08];:© 0  A2$=Þ$   „ A2$="" ‰ 1260  „ A2$="C" ‰ 1150 - „ Å(A2$)=8 ³ Z=8 ‰ Z=8:B=0 :X=X-1: 1190 (" „ Å(A2$)=8 ‰ Z=8: B=0: 1190 2. „ A2$="1" ³ D=128 ‰ ƒ "128";: B=B+D: 1350 <4 „ A2$="0" ‰ ƒ "!";ß$(34);"#"; ˆ ƒ [I3 D];: B=B+D F „ Z>1 ‰ Z=Z-1: 1180 PH „ U>0 ‰ ± 35,U:ª:ƒ " ";[A4 08];B;:° ˆ ± 35:ª:ƒ " ";[A4 08];B;:° Z Ÿ X,B d* „ X<63488+(16*(Y+1)-1) ‰ X=X+1: 1160 n ± 0: 1420 x „ Þ$="" ‰ 1400 ˆ · ‚ ª Œ „ T<À(A0$) ‰ T=T+1: 1130 – „ Þ$="" ‰ 1430   ª:· ª ƒ " P.C.G." ´ ƒ:ƒ ¾E ƒ "This is a typical program for generating a P.C.G. character |-" È ƒ Ò5 ƒ "00010 FOR X=63488+(16*65) TO 63488+(16*65)+15 " Ü ƒ "00020 READ Y" æ ƒ "00030 POKE X,Y" ð ƒ "00040 NEXT X" úA ƒ "00050 DATA 24,60,24,24,16,56,92,90,57,24,24,60,36,34,34,51"  ƒ / ƒ " X = current address of P.C.G. memory" - ƒ "63488 = start address of P.C.G. memory" "> ƒ " 65 = ASCII value of the character (in this case `A')" ,0 ƒ " Y = decimal value for the current row" 1( ƒ "Press any key to re-run tutorial"; 6 „ Þ$="" ‰ 1590 @ — ÿPCGTUT€Íè¿;Í°¬ÕÍÂ¥Ñ!(åͱáÜó¡ëå͘8©Í‚áëÍ°¬0ëÍ°¬ë8àÍJÍŒ€ÍŒ€ÕÍÂ¥ÑÍñ>>2áÍè¿;ÔJ!:äþÊmÒƒ“á–*Ê|µ( ÍH†##N +ëÃÁƒ! #