10 DEFFNS="PDrv" 40 IF ?&22B<&80 THEN360 50 IF PAGE<>&1C00:PAGE=&1C00:CHAIN"PDrv" 60 OSCLI"FX20,1" 70 X%=&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-?&96,255-?&97,255-?&98,23,l%+10,?&91,?&92,?&93,?&94,?&95,?&96,?&97,255:NEXT 80 OSCLI"FX225 140":OSCLI"*FX226 150":OSCLI"*FX227 160" 90 FORL=0TO2STEP2:P%=PAGE-&100 100 [OPTL:SEI:LDA&22A:STA u+1:LDA&22B:STA 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:JSRs:LDA#35:JMPs 140 .z:LDA#27:JSRs:LDA#82:JSRs:LDA#0:JSRs:LDA#35:JMPs 150 .v:CMP#96:BEQy:CMP#35:BEQz:CMP#140:BCSw:JMPs:.w:CMP#160:BCC x:JMPs:.x:PHA:LDA#27:JSRs:PLA 160 CMP#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:RTS 350 ]:NEXT:CALL PAGE-&100 360 CHAIN"WORDPR+"