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

Data update

Browse source
This commit is contained in:
Ingy döt Net 2024-10-16 18:07:41 -07:00
parent 81fd053722
commit 52a6ef48dd
10248 changed files with 63654 additions and 6775 deletions
Download patch file Download diff file Expand all files Collapse all files

9
Task/Enumerations/Applesoft-BASIC/enumerations-2.basic Normal file
View file

@ -0,0 +1,9 @@
REM "In software, everything is possible but nothing is free." --Ryan Singer
0 ENUM$ = CHR$ (165) + CHR$ (157) + CHR$ (168) + CHR$ (240) + CHR$ (9) + CHR$ (164) + CHR$ (236) + CHR$ (166) + CHR$ (237) + CHR$ (200) + CHR$ (208) + CHR$ (1) + CHR$ (232) + CHR$ (138) + CHR$ (132) + CHR$ (236)
1 ENUM$ = ENUM$ + CHR$ (133) + CHR$ (237) + CHR$ (76) + CHR$ (242) + CHR$ (226): POKE 11, PEEK (131): POKE 12, PEEK (132):ENUM = PEEK (11) + PEEK (12) * 256: POKE 11, PEEK (ENUM + 1): POKE 12, PEEK (ENUM + 2)
2 DEF FN ENUM(INC) = USR (INC)
RUN
APPLE = FN ENUM(0) : BANANA = FN ENUM(1) : CHERRY = FN ENUM(1)
? APPLE, BANANA, CHERRY