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