This is non-commercial site, its content is based on Atari 8-bit home computer contents and references.
If you feel your rights are violated by showing/using any part of contents of your product represented on this page,
please contact me immediatelly so I can remove it!
Atari 8-bit Source code
|
|
-
Entry name:STRing PUTter
-
Category:Programming utilities
-
Publisher/Developer:SoftSide Publications
-
Year:1983
Listing 1
30000 VNTP=PEEK(130)+PEEK(131)*256 30010 VNTD=PEEK(132)+PEEK(133)*256 30020 VVTP=PEEK(134)+PEEK(135)*256 30030 STARP=PEEK(140)+PEEK(141)*256 30040 AZ1=-1 30050 AZ1=AZ1+1:FOR AZ=1 TO LEN(VAR$) 30060 AZ2=PEEK(VNTP):IF AZ2>127 AND AZ<LEN(VAR$) THEN 30080 30070 IF AZ2-128*(AZ2>127)=ASC(VAR$(AZ)) THEN VNTP=VNTP+1:NEXT AZ:GOTO 30110 30080 IF PEEK(VNTP)<128 THEN VNTP=VNTP+1:GOTO 30080 30090 VNTP=VNTP+1:IF VNTP<VNTD THEN 30050 30100 GRAPHICS 0:? VAR$;" ISN'T A LEGAL VARIABLE":END 30110 AZ=VVTP+AZ1*8+2:IF PEEK(AZ-2)<>129 THEN 30090 30120 AZ1=LOC-STARP:GOSUB 30140:AZ1=LEN:GOSUB 30140:AZ1=LEN:GOSUB 30140 30130 RETURN 30140 AZ2=INT(AZ1/256):AZ1=AZ1-AZ2*256:POKE AZ,AZ1:POKE AZ+1,AZ2:AZ=AZ+2:RETURN
References
Downloads
Copyright holder