SCREEN 0,1 (orange text) hold routine

[zephyr]

Listed below is SCREEN 0,1 (orange text) hold routine which you can use in your own BASIC programs. This routine lets you use SCREEN 0,1 without automatically switching back to the normal green screen. This is a slightly modified version of the routine I used for Jim Gerrie's METEOR game.

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

I have also attached a copy of the BASIC example program in .CAS and .WAV format. I recommend using Audacity 1.2.6 to convert the included wave (.WAV) file to a real audio cassette recording.