Senior Member
Joined: 15/03/2021
Location: AustraliaPosts: 114
| Posted: 05:57am 16 Nov 2022 |
Add this little bit of code to the above between the lines in bold:
t=t+.025
select case k
case 128
inc scrh,-4
case 129
inc scrh,4
case 130
inc scrw,-4
case 131
inc scrw,4
case 65,97
inc offset,4
case 90,122
inc offset,-4
end select
page copy 1 to 0,Bcase 128
inc scrh,-4
case 129
inc scrh,4
case 130
inc scrw,-4
case 131
inc scrw,4
case 65,97
inc offset,4
case 90,122
inc offset,-4
end select
... to add zoom with [A] and [Z] and move display with the arrow keys.
note: no error checking!!