I don't have PW or PL commands on my system so this fails to run. jim
On Jan 7, 2008, at 8:06 PM, Marcel Kilgus wrote: > [EMAIL PROTECTED] wrote: >> Much faster than on Windows. On a very unscientific test, I counted >> about 20 cursor on-off cycles in about 8 seconds. > > Could you (and anybody else having increased cursor blink frequency) > run this Basic program? Tell me what values it's printing (47 to 50 is > normal). > > 100 Init > 110 a = DATE > 120 REPeat > 130 IF DATE <> a THEN > 140 PRINT PEEK(Base + $30) > 150 POKE Base + $30,0 > 160 a = DATE > 170 END IF > 180 END REPeat > 990 : > 1000 DEFine PROCedure Init > 1010 IF Base = 0 THEN > 1020 Base = ALCHP(400) > 1030 Offset = 0 > 1040 PW $2F0E > 1050 PW $701C > 1060 PW $207C: PL Base + $16 > 1070 PW $2C7C: PL $28000 > 1080 PW $4E41 > 1090 PW $2C5F > 1100 PW $4E75 > 1110 PL $0 > 1120 PL Base + $1E > 1130 PW $5239: PL Base + $30 > 1140 PW $4E75 > 1150 CALL Base > 1160 END IF > 1170 END DEFine > 1180 : > 1190 DEFine PROCedure PW(V) > 1200 POKE_W Base + Offset,V > 1210 Offset = Offset + 2 > 1220 END DEFine > 1230 : > 1240 DEFine PROCedure PL(V) > 1250 POKE_L Base + Offset,V > 1260 Offset = Offset + 4 > 1270 END DEFine > > Marcel > > _______________________________________________ > QL-Users Mailing List > http://www.q-v-d.demon.co.uk/smsqe.htm _______________________________________________ QL-Users Mailing List http://www.q-v-d.demon.co.uk/smsqe.htm
