_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\

FOR.LOGO

FILE INFORMATION

FILENAME(S): FOR.LOGO

FILE TYPE(S): PRG

FILE SIZE: 375b

FIRST SEEN: 2025-11-02 16:30:34

APPEARS ON: 1 disk(s)

FILE HASH

e97c10229bf1aa03a40dd8b09334d052739be8e45e1b991ea7fd5b2ddd66ea8a

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
NG USERS 11A FOR.LOGO PRG Treasure Chest - OzzyC64 17 9 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 00 20 54 4F 20 46 4F 52  2E 4C 4F 4F 50 0D 20 49  |. TO FOR.LOOP. I|
00000010: 46 20 28 20 54 48 49 4E  47 20 3A 46 4F 52 2E 56  |F ( THING :FOR.V|
00000020: 41 52 20 29 20 3E 20 3A  46 4F 52 2E 45 4E 44 20  |AR ) > :FOR.END |
00000030: 53 54 4F 50 0D 20 52 55  4E 20 3A 46 4F 52 2E 54  |STOP. RUN :FOR.T|
00000040: 48 49 4E 47 53 0D 20 4D  41 4B 45 20 3A 46 4F 52  |HINGS. MAKE :FOR|
00000050: 2E 56 41 52 20 28 20 54  48 49 4E 47 20 3A 46 4F  |.VAR ( THING :FO|
00000060: 52 2E 56 41 52 20 29 20  2B 20 31 0D 20 46 4F 52  |R.VAR ) + 1. FOR|
00000070: 2E 4C 4F 4F 50 0D 45 4E  44 0D 0D 54 4F 20 48 45  |.LOOP.END..TO HE|
00000080: 4C 50 0D 20 50 52 49 4E  54 20 5B 5D 0D 20 50 52  |LP. PRINT []. PR|
00000090: 49 4E 54 20 5B 45 58 41  4D 50 4C 45 3A 5D 0D 20  |INT [EXAMPLE:]. |
000000A0: 50 52 49 4E 54 20 5B 46  4F 52 20 22 49 20 31 20  |PRINT [FOR "I 1 |
000000B0: 31 30 20 5B 28 50 52 49  4E 54 20 3A 49 20 3A 49  |10 [(PRINT :I :I|
000000C0: 2A 3A 49 29 5D 5D 0D 20  50 52 49 4E 54 20 5B 54  |*:I)]]. PRINT [T|
000000D0: 48 45 20 49 54 45 52 41  54 49 4F 4E 20 56 41 52  |HE ITERATION VAR|
000000E0: 49 41 42 4C 45 20 49 53  20 4C 4F 43 41 4C 2E 5D  |IABLE IS LOCAL.]|
000000F0: 0D 45 4E 44 0D 0D 54 4F  20 46 4F 52 20 3A 46 4F  |.END..TO FOR :FO|
00000100: 52 2E 56 41 52 20 3A 46  4F 52 2E 53 54 41 52 54  |R.VAR :FOR.START|
00000110: 20 3A 46 4F 52 2E 45 4E  44 20 3A 46 4F 52 2E 54  | :FOR.END :FOR.T|
00000120: 48 49 4E 47 53 0D 20 4C  4F 43 41 4C 20 3A 46 4F  |HINGS. LOCAL :FO|
00000130: 52 2E 56 41 52 0D 20 4D  41 4B 45 20 3A 46 4F 52  |R.VAR. MAKE :FOR|
00000140: 2E 56 41 52 20 3A 46 4F  52 2E 53 54 41 52 54 0D  |.VAR :FOR.START.|
00000150: 20 46 4F 52 2E 4C 4F 4F  50 0D 45 4E 44 0D 0D 4D  | FOR.LOOP.END..M|
00000160: 41 4B 45 20 22 53 54 41  52 54 55 50 20 5B 48 45  |AKE "STARTUP [HE|
00000170: 4C 50 5D 0D 00 10 FF                              |LP]....         |

. TO FOR.LOOP. IF ( THING :FOR.VAR ) > :
FOR.END STOP. RUN :FOR.THINGS. MAKE :FOR
.VAR ( THING :FOR.VAR ) + 1. FOR.LOOP.EN
D..TO HELP. PRINT []. PRINT [EXAMPLE:]. 
PRINT [FOR "I 1 10 [(PRINT :I :I*:I)]]. 
PRINT [THE ITERATION VARIABLE IS LOCAL.]
.END..TO FOR :FOR.VAR :FOR.START :FOR.EN
D :FOR.THINGS. LOCAL :FOR.VAR. MAKE :FOR
.VAR :FOR.START. FOR.LOOP.END..MAKE "STA
RTUP [HELP]....
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL