10DEFFNS="PDrv" 40IF ?&22B<&80 THEN360 50IF PAGE<>&1C00:PAGE=&1C00:CHAIN"PDr v" 60OSCLI"FX20,1" 70X%=&90:Y%=0:A%=10:FORl%=140TO149:?& 90=l%-92:CALL&FFF1:VDU23,l%,255-?&91,255 -?&92,255-?&93,255-?&94,255-?&95,255-?&9 6,255-?&97,255-?&98,23,l%+10,?&91,?&92,? &93,?&94,?&95,?&96,?&97,255:NEXT 80OSCLI"FX225 140":OSCLI"*FX226 150": OSCLI"*FX227 160" 90FORL=0TO2STEP2:P%=PAGE-&100 100[OPTL:SEI:LDA&22A:STA u+1:LDA&22B:S TA u+2:LDA#t MOD256:STA&22A:LDA#t DIV256 :STA&22B:CLI:RTS 110.t:CPX#3:BEQ v 120.u:JMP&0000 130.y:LDA#27:JSRs:LDA#82:JSRs:LDA#3:JS Rs:LDA#35:JMPs 140.z:LDA#27:JSRs:LDA#82:JSRs:LDA#0:JS Rs:LDA#35:JMPs 150.v:CMP#96:BEQy:CMP#35:BEQz:CMP#140: BCSw:JMPs:.w:CMP#160:BCC x:JMPs:.x:PHA:L DA#27:JSRs:PLA 160CMP#140:BNEa:LDA#104 170.a:CMP#150:BNEb:LDA#117 180.b:CMP#141:BNEc:LDA#83:JSRs:LDA#0 190.c:CMP#151:BNEe:LDA#84 200.e:CMP#142:BNEf:LDA#52 210.f:CMP#152:BNEg:LDA#53 220.g:CMP#143:BNEh:LDA#45:JSRs:LDA#1 230.h:CMP#153:BNEi:LDA#45:JSRs:LDA#0 240.i:CMP#144:BNEj:LDA#14 250.j:CMP#154:BNEk:LDA#20 260.k:CMP#145:BNEl:LDA#15 270.l:CMP#155:BNEm:LDA#18 280.m:CMP#146:BNEn:LDA#69 290.n:CMP#156:BNEo:LDA#70 300.o:CMP#147:BNEp:LDA#120:JSRs:LDA#1 310.p:CMP#157:BNEq:LDA#120:JSRs:LDA#0 320.q:CMP#148:BNEr:LDA#72:JSRs:LDA#27: JSRs:LDA#114 330.r:CMP#158:BNEs:LDA#116 340.s:JSRu:PHP:CLI:NOP:NOP:PLP:BCSs:RT S 350]:NEXT:CALL PAGE-&100 360CHAIN"WORDPR+"