aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
Task/Address-of-a-variable/Applesoft-BASIC/address-of-a-variable-1.basic Normal file
View file

@ -0,0 +1 @@
N = N : PRINT PEEK (131) + PEEK (132) * 256

3
Task/Address-of-a-variable/Applesoft-BASIC/address-of-a-variable-2.basic Normal file
View file

@ -0,0 +1,3 @@
0 DEF FN F(X) = 0
1 FOR A = PEEK(105) + PEEK(106) * 256 TO PEEK(107) + PEEK(108) * 256 STEP 7 : IF PEEK(A) <> ASC("F") + 128 OR PEEK(A + 1) <> 0 THEN NEXT A : A = 0 : PRINT "FN F NOT FOUND"
2 IF A THEN PRINT A

2
Task/Address-of-a-variable/Applesoft-BASIC/address-of-a-variable-3.basic Normal file
View file

@ -0,0 +1,2 @@
LOMEM: 4096
I% = I% : PRINT PEEK (131) + PEEK (132) * 256

4
Task/Address-of-a-variable/Applesoft-BASIC/address-of-a-variable-4.basic Normal file
View file

@ -0,0 +1,4 @@
S$ = "HELLO" : POKE 768, PEEK (131) : POKE 769, PEEK (132) : A = PEEK(768) + PEEK(769) * 256
PRINT S$ : PRINT A "- " PEEK(A) " " PEEK(A + 1) + PEEK(A + 2) * 256
POKE 768, ASC("H") : POKE 769, ASC("I") : POKE A, 2: POKE A + 1, 0 : POKE A + 2, 3
PRINT S$ : PRINT A "- " PEEK(A) " " PEEK(A + 1) + PEEK(A + 2) * 256

10
Task/Address-of-a-variable/Applesoft-BASIC/address-of-a-variable-5.basic Normal file
View file

@ -0,0 +1,10 @@
0 DEF FN F(X) = 1
1 DEF FN B(X) = 2
2 N$ = "F" : GOSUB 8 : FA = A
3 N$ = "B" : GOSUB 8 : BA = A
4 PRINT FN F(0)
5 POKE FA, PEEK(BA) : POKE FA + 1, PEEK(BA + 1)
6 PRINT FN F(0)
7 END
8 FOR A = PEEK(105) + PEEK(106) * 256 TO PEEK(107) + PEEK(108) * 256 STEP 7 : IF PEEK(A) = ASC(LEFT$(N$,1)) + 128 AND PEEK(A + 1) = ASC(MID$(N$ + CHR$(0), 2, 1)) THEN A = A + 2 : RETURN
9 NEXT A : PRINT "FN " N$ " NOT FOUND"