How to 'PCLEAR 0' from within a BASIC program

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

How to 'PCLEAR 0' from within a BASIC program

Post by zephyr »

Here are two ways to do the equivalent of a 'PCLEAR 0' from within a BASIC program. The second (Dragon only) routine also allows you to PCLEAR more than 8 pages.

Code: Select all

0 ' PCLEAR0 FOR THE DRAGON 32/64
1 ' AND TANDY COLOR COMPUTER
2 ' BY STEPHEN J WOOLHAM
3 '
4 POKE188,PEEK(188)-6:POKE183,PEEK(188):PCLEAR1:POKE188,PEEK(188)+6:POKE183,PEEK(188)

Code: Select all

10 'DRAGON PCLEAR X V1.0
20 'FOR THE DRAGON 32/64
30 'BY STEPHEN J WOOLHAM
40 '***************************
50 'BASIC EXAMPLE PROGRAM
60 '***************************
70 MC$="8606D6763DDBBC1E895C1F027EAA35"
80 X=1:FOR I=1004TO1019:POKE I,VAL("&H"+MID$(MC$,X,2)):X=X+2:NEXT
90 '
100 'LOCATION 118 DETERMINES HOW
110 'MANY PAGES ARE CLEARED
120 '
130 'PCLEAR0 = POKE118,0:EXEC1004
140 '
150 POKE118,0:EXEC1004
Post Reply