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

FOR.LOGO

FILE INFORMATION

FILENAME(S): FOR.LOGO

FILE TYPE(S): PRG

FILE SIZE: 372b

FIRST SEEN: 2025-10-19 22:48:23

APPEARS ON: 7 disk(s)

FILE HASH

40604ab66fed1f04d3a778b14bbaef36709b9ddf37a6ab73d9788ed911cf6593

FOUND ON DISKS (7 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
UTILITIES DISK FOR.LOGO PRG Radd Maxx 17 16 DOWNLOAD FILE
COMMODORE LOGO FOR.LOGO PRG High Voltage Complete C64 Collection 19 9 DOWNLOAD FILE
LOGO FOR.LOGO PRG Curtcool, LPN 19 9 DOWNLOAD FILE
BLACKSOFT 025 A FOR.LOGO PRG DuncanTwain 19 9 DOWNLOAD FILE
HENNIE 521 FOR.LOGO PRG DuncanTwain 17 16 DOWNLOAD FILE
TIGA FOR.LOGO PRG DuncanTwain 17 15 DOWNLOAD FILE
0076B FOR.LOGO PRG hedning, Kaevlinge 28 6 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                                       |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