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

LG-FOR

FILE INFORMATION

FILENAME(S): LG-FOR

FILE TYPE(S): PRG

FILE SIZE: 372b

FIRST SEEN: 2025-11-30 21:14:31

APPEARS ON: 1 disk(s)

FILE HASH

a4292d90dcb85c81ddd27e5cf3a5f16b2027dfdcdb7c2ca35760584a2134a6bf

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
LOGO FILES LG-FOR PRG DuncanTwain 19 7 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 00 20 54 4F 20 46 4F 52  20 3A 46 4F 52 2E 56 41  |. TO FOR :FOR.VA|
00000010: 52 20 3A 46 4F 52 2E 53  54 41 52 54 20 3A 46 4F  |R :FOR.START :FO|
00000020: 52 2E 45 4E 44 20 3A 46  4F 52 2E 54 48 49 4E 47  |R.END :FOR.THING|
00000030: 53 0D 20 4C 4F 43 41 4C  20 3A 46 4F 52 2E 56 41  |S. LOCAL :FOR.VA|
00000040: 52 0D 20 4D 41 4B 45 20  3A 46 4F 52 2E 56 41 52  |R. MAKE :FOR.VAR|
00000050: 20 3A 46 4F 52 2E 53 54  41 52 54 0D 20 46 4F 52  | :FOR.START. FOR|
00000060: 2E 4C 4F 4F 50 0D 45 4E  44 0D 0D 54 4F 20 48 45  |.LOOP.END..TO HE|
00000070: 4C 50 0D 20 50 52 49 4E  54 20 5B 5D 0D 20 50 52  |LP. PRINT []. PR|
00000080: 49 4E 54 20 5B 45 58 41  4D 50 4C 45 3A 5D 0D 20  |INT [EXAMPLE:]. |
00000090: 50 52 49 4E 54 20 5B 46  4F 52 20 22 49 20 31 20  |PRINT [FOR "I 1 |
000000A0: 31 30 20 5B 28 50 52 49  4E 54 20 3A 49 20 3A 49  |10 [(PRINT :I :I|
000000B0: 2A 3A 49 29 5D 5D 0D 20  50 52 49 4E 54 20 5B 54  |*:I)]]. PRINT [T|
000000C0: 48 45 20 49 54 45 52 41  54 49 4F 4E 20 56 41 52  |HE ITERATION VAR|
000000D0: 49 41 42 4C 45 20 49 53  20 4C 4F 43 41 4C 2E 5D  |IABLE IS LOCAL.]|
000000E0: 0D 45 4E 44 0D 0D 54 4F  20 46 4F 52 2E 4C 4F 4F  |.END..TO FOR.LOO|
000000F0: 50 0D 20 49 46 20 28 20  54 48 49 4E 47 20 3A 46  |P. IF ( THING :F|
00000100: 4F 52 2E 56 41 52 20 29  20 3E 20 3A 46 4F 52 2E  |OR.VAR ) > :FOR.|
00000110: 45 4E 44 20 53 54 4F 50  0D 20 52 55 4E 20 3A 46  |END STOP. RUN :F|
00000120: 4F 52 2E 54 48 49 4E 47  53 0D 20 4D 41 4B 45 20  |OR.THINGS. MAKE |
00000130: 3A 46 4F 52 2E 56 41 52  20 28 20 54 48 49 4E 47  |:FOR.VAR ( THING|
00000140: 20 3A 46 4F 52 2E 56 41  52 20 29 20 2B 20 31 0D  | :FOR.VAR ) + 1.|
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 :FOR.VAR :FOR.START :FOR.END :F
OR.THINGS. LOCAL :FOR.VAR. MAKE :FOR.VAR
 :FOR.START. FOR.LOOP.END..TO HELP. PRIN
T []. PRINT [EXAMPLE:]. PRINT [FOR "I 1 
10 [(PRINT :I :I*:I)]]. PRINT [THE ITERA
TION VARIABLE IS LOCAL.].END..TO FOR.LOO
P. IF ( THING :FOR.VAR ) > :FOR.END STOP
. RUN :FOR.THINGS. MAKE :FOR.VAR ( THING
 :FOR.VAR ) + 1. FOR.LOOP.END..MAKE "STA
RTUP [HELP].
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL