Notes:
(1) The routine also speeds-up printing to the text screen.
(2) Use SCREEN 0,0 or SCREEN 0,1 (orange text) to switch back to text mode after using PMODE graphics.
Code: Select all
10 CLEAR200,32685
20 GOSUB 10000
30 END
10000 ' POKE-IN THE MACHINE CODE
10010 FOR I=32685 TO 32762:READ A$:POKEI,VAL("&H"+A$):NEXT
10020 ' ENABLE QPRINT
10030 EXEC 32685:RETURN
10040 ' DISABLE QPRINT
10050 EXEC 32732:RETURN
10060 DATA CE,1,67,30,8D,0,40,AC,41,27,23,A6,C4,A7,8D,0,3F,EC,41,ED,8D,0,3A,86,7E,A7,C4,AF,41,8E,BC,AB,B6,FF,FF,81,B4
10070 DATA 27,3,8E,A3,A,AF,8D,0,20,39,30,8D,0,14,BC,1,68,26,E,A6,8D,0,14,B7,1,67,EC,8D,0,E,FD,1,68,39,D,6F,26,5,32,62,7E