home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Transactor
/
Transactor_06_1985_Transactor_Publishing.d64
/
varptr
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
837b
|
34 lines
0 rem the transactor volume 6 issue 01 page 40
1 rem run 100 for c64
2 rem run 200 for vic 20
3 rem run 300 for pets with basic 2.0
4 rem run 400 for cbms with basic 4.0
5 rem varptr: "[213][211][210](var)"
6 rem eg: v=usr(ml$):printv gives length of ml$
7 rem print peek(v+1)+256*peek(v) returns start address of string itself
8 rem for numeric variables v points at variable data, not variable name
9 :
100 rem c64 version
110 fori=828to834:read a:pokei,a:next
120 poke785,60:poke786,3
130 data 165,72,164,71,76,145,179
140 end
150 :
200 rem vic 20 version
210 fori=828to834:read a:pokei,a:next
220 poke785,60:poke786,3
230 data 165,72,164,71,76,145,211
240 end
250 :
300 rem basic 2.0 pet version
310 fori=828to834:read a:pokei,a:next
320 poke1,60:poke2,3
330 data 165,69,164,68,76,109,210
340 end
350 :
400 rem basic 4.0 cbm version
410 fori=828to834:read a:pokei,a:next
420 poke785,60:poke786,3
430 data 165,69,164,68,76,188,196
440 end