Inverse text routine

Hardware Hacking, Programming and Game Solutions/Cheats
Post Reply
zephyr
Posts: 1474
Joined: Mon Jul 21, 2008 1:18 am

Inverse text routine

Post by zephyr »

Listed below is an inverse text routine which you can use in your own BASIC programs. This is a slightly modified version of the routine I used for Jim Gerrie's METEOR game.

Notes:
(1) The routine includes a PRINT CHR$(12) feature for clearing the text screen in inverse (inverse CLS).
(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 CLEAR 200,32568
20 GOSUB 10000
30 PRINT CHR$(12): REM CLEAR THE SCREEN (CLS)
40 END
10000 ' POKE-IN THE MACHINE CODE
10010 FOR I=32568 TO 32764:READ A$:POKEI,VAL("&H"+A$):NEXT
10020 ' ENABLE INVERSE TEXT
10030 EXEC 32568:RETURN
10040 ' DISABLE INVERSE TEXT
10050 EXEC 32598:RETURN
10060 DATA CE,1,67,30,8D,0,44,AC,41,27,12,A6,C4,A7,8D,0,B4,EC,41,ED,8D,0,AF,86,7E,A7,C4,AF,41,39,30,8D,0,29,BC,1
10062 DATA 68,26,E,A6,8D,0,9A,B7,1,67,EC,8D,0,94,FD,1,68,39,CC,20,27,8E,4,0,9F,88,A7,80,8C,5,FF,23,F9,E7,8D,0,12
10064 DATA 35,F6,D,6F,26,76,32,62,34,76,9E,88,81,20,24,2D,81,D,26,C,86,20,A7,80,1F,10,C4,1F,26,F6,20,2E,81,8,26,D
10066 DATA 8C,84,0,27,51,86,20,A7,84,A7,82,20,1D,81,C,27,B8,81,D,26,41,C6,26,20,BF,4D,2B,C,81,40,25,8,81,60,25,2
10068 DATA 84,9F,88,40,A7,80,9F,88,8C,5,FF,23,25,8E,4,0,EE,88,20,10,AE,88,22,EC,88,24,EF,81,10,AF,81,ED,81,8C,5
10070 DATA E0,25,EA,9F,88,CE,20,20,C6,10,EF,81,5A,26,FB,35,F6
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.
Attachments
INVTEXT.zip
(2.07 KiB) Downloaded 285 times
Post Reply