10 lines
651 B
Plaintext
10 lines
651 B
Plaintext
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
|