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

LG-WHILE

FILE INFORMATION

FILENAME(S): LG-WHILE

FILE TYPE(S): PRG

FILE SIZE: 789b

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

APPEARS ON: 1 disk(s)

FILE HASH

4ee4f643466bf1d26fd33c230fb075abeb9d3c635a20d38150dbb2bfe9f7ec1d

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
LOGO FILES LG-WHILE PRG DuncanTwain 20 5 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 00 20 54 4F 20 55 4E 54  49 4C 20 3A 43 4F 4E 44  |. TO UNTIL :COND|
00000010: 20 3A 41 43 54 49 4F 4E  0D 20 49 46 20 52 55 4E  | :ACTION. IF RUN|
00000020: 20 3A 43 4F 4E 44 20 53  54 4F 50 0D 20 52 55 4E  | :COND STOP. RUN|
00000030: 20 3A 41 43 54 49 4F 4E  0D 20 55 4E 54 49 4C 20  | :ACTION. UNTIL |
00000040: 3A 43 4F 4E 44 20 3A 41  43 54 49 4F 4E 0D 45 4E  |:COND :ACTION.EN|
00000050: 44 0D 0D 54 4F 20 57 48  49 4C 45 20 3A 43 4F 4E  |D..TO WHILE :CON|
00000060: 44 20 3A 41 43 54 0D 20  49 46 20 4E 4F 54 20 52  |D :ACT. IF NOT R|
00000070: 55 4E 20 3A 43 4F 4E 44  20 53 54 4F 50 0D 20 52  |UN :COND STOP. R|
00000080: 55 4E 20 3A 41 43 54 0D  20 57 48 49 4C 45 20 3A  |UN :ACT. WHILE :|
00000090: 43 4F 4E 44 20 3A 41 43  54 0D 45 4E 44 0D 0D 54  |COND :ACT.END..T|
000000A0: 4F 20 48 45 4C 50 0D 20  4E 44 0D 20 50 52 20 5B  |O HELP. ND. PR [|
000000B0: 57 48 49 4C 45 20 41 4E  44 20 55 4E 54 49 4C 20  |WHILE AND UNTIL |
000000C0: 41 52 45 20 50 52 4F 43  45 44 55 52 45 53 20 46  |ARE PROCEDURES F|
000000D0: 4F 52 5D 0D 20 50 52 20  5B 52 45 50 45 41 54 49  |OR]. PR [REPEATI|
000000E0: 4E 47 20 41 20 4C 49 53  54 20 4F 46 20 43 4F 4D  |NG A LIST OF COM|
000000F0: 4D 41 4E 44 53 20 57 48  49 4C 45 20 4F 52 5D 0D  |MANDS WHILE OR].|
00000100: 20 50 52 20 5B 55 4E 54  49 4C 20 41 20 43 45 52  | PR [UNTIL A CER|
00000110: 54 41 49 4E 20 43 4F 4E  44 49 54 49 4F 4E 20 49  |TAIN CONDITION I|
00000120: 53 20 4D 45 54 2E 5D 0D  20 50 52 20 5B 5D 0D 20  |S MET.]. PR []. |
00000130: 50 52 20 5B 57 48 49 4C  45 3A 5D 0D 20 50 52 20  |PR [WHILE:]. PR |
00000140: 5B 57 48 49 4C 45 20 52  45 50 45 41 54 53 20 41  |[WHILE REPEATS A|
00000150: 53 20 4C 4F 4E 47 20 41  53 20 54 48 45 20 50 52  |S LONG AS THE PR|
00000160: 45 44 49 43 41 54 45 5D  0D 20 50 52 20 5B 28 46  |EDICATE]. PR [(F|
00000170: 49 52 53 54 20 49 4E 50  55 54 29 20 4F 55 54 50  |IRST INPUT) OUTP|
00000180: 55 54 53 20 54 52 55 45  2E 5D 0D 20 50 52 20 5B  |UTS TRUE.]. PR [|
00000190: 5D 0D 20 50 52 20 5B 57  48 45 4E 20 49 54 20 4F  |]. PR [WHEN IT O|
000001A0: 55 54 50 55 54 53 20 46  41 4C 53 45 2C 20 54 48  |UTPUTS FALSE, TH|
000001B0: 45 20 57 48 49 4C 45 5D  0D 20 50 52 20 5B 50 52  |E WHILE]. PR [PR|
000001C0: 4F 43 45 44 55 52 45 20  52 45 54 55 52 4E 53 2E  |OCEDURE RETURNS.|
000001D0: 5D 0D 20 50 52 20 5B 5D  0D 20 50 52 20 5B 55 4E  |]. PR []. PR [UN|
000001E0: 54 49 4C 3A 5D 0D 20 50  52 20 5B 55 4E 54 49 4C  |TIL:]. PR [UNTIL|
000001F0: 20 52 45 50 45 41 54 53  20 55 4E 54 49 4C 20 54  | REPEATS UNTIL T|
00000200: 48 45 20 50 52 45 44 49  43 41 54 45 5D 0D 20 50  |HE PREDICATE]. P|
00000210: 52 20 5B 4F 55 54 50 55  54 53 20 54 52 55 45 2E  |R [OUTPUTS TRUE.|
00000220: 5D 0D 20 50 52 20 5B 5D  0D 20 50 52 20 5B 45 58  |]. PR []. PR [EX|
00000230: 41 4D 50 4C 45 53 3A 5D  0D 20 50 52 20 5B 55 4E  |AMPLES:]. PR [UN|
00000240: 54 49 4C 20 5B 52 43 3F  5D 20 5B 50 52 49 4E 54  |TIL [RC?] [PRINT|
00000250: 20 5B 50 52 45 53 53 20  41 4E 59 20 4B 45 59 21  | [PRESS ANY KEY!|
00000260: 5D 5D 5D 0D 20 50 52 20  5B 5D 0D 20 50 52 20 5B  |]]]. PR []. PR [|
00000270: 55 4E 54 49 4C 20 5B 58  43 4F 52 2A 58 43 4F 52  |UNTIL [XCOR*XCOR|
00000280: 20 2B 20 59 43 4F 52 2A  59 43 4F 52 20 3E 20 39  | + YCOR*YCOR > 9|
00000290: 30 30 5D 20 5B 46 44 20  31 30 20 52 49 47 48 54  |00] [FD 10 RIGHT|
000002A0: 20 52 41 4E 44 4F 4D 20  31 38 30 5D 5D 0D 20 50  | RANDOM 180]]. P|
000002B0: 52 20 5B 5D 0D 20 50 52  20 5B 57 48 49 4C 45 20  |R []. PR [WHILE |
000002C0: 5B 4A 4F 59 42 55 54 54  4F 4E 20 31 5D 20 5B 46  |[JOYBUTTON 1] [F|
000002D0: 44 20 31 5D 5D 0D 20 50  52 20 5B 5D 0D 20 50 52  |D 1]]. PR []. PR|
000002E0: 49 4E 54 31 20 5B 57 48  49 4C 45 20 5B 28 50 41  |INT1 [WHILE [(PA|
000002F0: 44 44 4C 45 20 30 29 3E  31 30 5D 20 5B 46 44 20  |DDLE 0)>10] [FD |
00000300: 33 20 52 54 20 50 41 44  44 4C 45 20 31 5D 5D 0D  |3 RT PADDLE 1]].|
00000310: 45 4E 44 0D 0D                                    |END..           |

. TO UNTIL :COND :ACTION. IF RUN :COND S
TOP. RUN :ACTION. UNTIL :COND :ACTION.EN
D..TO WHILE :COND :ACT. IF NOT RUN :COND
 STOP. RUN :ACT. WHILE :COND :ACT.END..T
O HELP. ND. PR [WHILE AND UNTIL ARE PROC
EDURES FOR]. PR [REPEATING A LIST OF COM
MANDS WHILE OR]. PR [UNTIL A CERTAIN CON
DITION IS MET.]. PR []. PR [WHILE:]. PR 
[WHILE REPEATS AS LONG AS THE PREDICATE]
. PR [(FIRST INPUT) OUTPUTS TRUE.]. PR [
]. PR [WHEN IT OUTPUTS FALSE, THE WHILE]
. PR [PROCEDURE RETURNS.]. PR []. PR [UN
TIL:]. PR [UNTIL REPEATS UNTIL THE PREDI
CATE]. PR [OUTPUTS TRUE.]. PR []. PR [EX
AMPLES:]. PR [UNTIL [RC?] [PRINT [PRESS 
ANY KEY!]]]. PR []. PR [UNTIL [XCOR*XCOR
 + YCOR*YCOR > 900] [FD 10 RIGHT RANDOM 
180]]. PR []. PR [WHILE [JOYBUTTON 1] [F
D 1]]. PR []. PRINT1 [WHILE [(PADDLE 0)>
10] [FD 3 RT PADDLE 1]].END..
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL