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