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

WHILE.LOGO

FILE INFORMATION

FILENAME(S): WHILE.LOGO

FILE TYPE(S): PRG

FILE SIZE: 792b

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

APPEARS ON: 1 disk(s)

FILE HASH

6c1784ec69b4621ad2d802890ec16706b412372c208322ce818835369be9ef82

FOUND ON DISKS (1 DISKS)

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

FILE CONTENT & ANALYSIS

00000000: 00 20 54 4F 20 48 45 4C  50 0D 20 4E 44 0D 20 50  |. TO HELP. ND. P|
00000010: 52 20 5B 57 48 49 4C 45  20 41 4E 44 20 55 4E 54  |R [WHILE AND UNT|
00000020: 49 4C 20 41 52 45 20 50  52 4F 43 45 44 55 52 45  |IL ARE PROCEDURE|
00000030: 53 20 46 4F 52 5D 0D 20  50 52 20 5B 52 45 50 45  |S FOR]. PR [REPE|
00000040: 41 54 49 4E 47 20 41 20  4C 49 53 54 20 4F 46 20  |ATING A LIST OF |
00000050: 43 4F 4D 4D 41 4E 44 53  20 57 48 49 4C 45 20 4F  |COMMANDS WHILE O|
00000060: 52 5D 0D 20 50 52 20 5B  55 4E 54 49 4C 20 41 20  |R]. PR [UNTIL A |
00000070: 43 45 52 54 41 49 4E 20  43 4F 4E 44 49 54 49 4F  |CERTAIN CONDITIO|
00000080: 4E 20 49 53 20 4D 45 54  2E 5D 0D 20 50 52 20 5B  |N IS MET.]. PR [|
00000090: 5D 0D 20 50 52 20 5B 57  48 49 4C 45 3A 5D 0D 20  |]. PR [WHILE:]. |
000000A0: 50 52 20 5B 57 48 49 4C  45 20 52 45 50 45 41 54  |PR [WHILE REPEAT|
000000B0: 53 20 41 53 20 4C 4F 4E  47 20 41 53 20 54 48 45  |S AS LONG AS THE|
000000C0: 20 50 52 45 44 49 43 41  54 45 5D 0D 20 50 52 20  | PREDICATE]. PR |
000000D0: 5B 28 46 49 52 53 54 20  49 4E 50 55 54 29 20 4F  |[(FIRST INPUT) O|
000000E0: 55 54 50 55 54 53 20 54  52 55 45 2E 5D 0D 20 50  |UTPUTS TRUE.]. P|
000000F0: 52 20 5B 5D 0D 20 50 52  20 5B 57 48 45 4E 20 49  |R []. PR [WHEN I|
00000100: 54 20 4F 55 54 50 55 54  53 20 46 41 4C 53 45 2C  |T OUTPUTS FALSE,|
00000110: 20 54 48 45 20 57 48 49  4C 45 5D 0D 20 50 52 20  | THE WHILE]. PR |
00000120: 5B 50 52 4F 43 45 44 55  52 45 20 52 45 54 55 52  |[PROCEDURE RETUR|
00000130: 4E 53 2E 5D 0D 20 50 52  20 5B 5D 0D 20 50 52 20  |NS.]. PR []. PR |
00000140: 5B 55 4E 54 49 4C 3A 5D  0D 20 50 52 20 5B 55 4E  |[UNTIL:]. PR [UN|
00000150: 54 49 4C 20 52 45 50 45  41 54 53 20 55 4E 54 49  |TIL REPEATS UNTI|
00000160: 4C 20 54 48 45 20 50 52  45 44 49 43 41 54 45 5D  |L THE PREDICATE]|
00000170: 0D 20 50 52 20 5B 4F 55  54 50 55 54 53 20 54 52  |. PR [OUTPUTS TR|
00000180: 55 45 2E 5D 0D 20 50 52  20 5B 5D 0D 20 50 52 20  |UE.]. PR []. PR |
00000190: 5B 45 58 41 4D 50 4C 45  53 3A 5D 0D 20 50 52 20  |[EXAMPLES:]. PR |
000001A0: 5B 55 4E 54 49 4C 20 5B  52 43 3F 5D 20 5B 50 52  |[UNTIL [RC?] [PR|
000001B0: 49 4E 54 20 5B 50 52 45  53 53 20 41 4E 59 20 4B  |INT [PRESS ANY K|
000001C0: 45 59 21 5D 5D 5D 0D 20  50 52 20 5B 5D 0D 20 50  |EY!]]]. PR []. P|
000001D0: 52 20 5B 55 4E 54 49 4C  20 5B 58 43 4F 52 2A 58  |R [UNTIL [XCOR*X|
000001E0: 43 4F 52 20 2B 20 59 43  4F 52 2A 59 43 4F 52 20  |COR + YCOR*YCOR |
000001F0: 3E 20 39 30 30 5D 20 5B  46 44 20 31 30 20 52 49  |> 900] [FD 10 RI|
00000200: 47 48 54 20 52 41 4E 44  4F 4D 20 31 38 30 5D 5D  |GHT RANDOM 180]]|
00000210: 0D 20 50 52 20 5B 5D 0D  20 50 52 20 5B 57 48 49  |. PR []. PR [WHI|
00000220: 4C 45 20 5B 4A 4F 59 42  55 54 54 4F 4E 20 31 5D  |LE [JOYBUTTON 1]|
00000230: 20 5B 46 44 20 31 5D 5D  0D 20 50 52 20 5B 5D 0D  | [FD 1]]. PR [].|
00000240: 20 50 52 49 4E 54 31 20  5B 57 48 49 4C 45 20 5B  | PRINT1 [WHILE [|
00000250: 28 50 41 44 44 4C 45 20  30 29 3E 31 30 5D 20 5B  |(PADDLE 0)>10] [|
00000260: 46 44 20 33 20 52 54 20  50 41 44 44 4C 45 20 31  |FD 3 RT PADDLE 1|
00000270: 5D 5D 0D 45 4E 44 0D 0D  54 4F 20 55 4E 54 49 4C  |]].END..TO UNTIL|
00000280: 20 3A 43 4F 4E 44 20 3A  41 43 54 49 4F 4E 0D 20  | :COND :ACTION. |
00000290: 49 46 20 52 55 4E 20 3A  43 4F 4E 44 20 53 54 4F  |IF RUN :COND STO|
000002A0: 50 0D 20 52 55 4E 20 3A  41 43 54 49 4F 4E 0D 20  |P. RUN :ACTION. |
000002B0: 55 4E 54 49 4C 20 3A 43  4F 4E 44 20 3A 41 43 54  |UNTIL :COND :ACT|
000002C0: 49 4F 4E 0D 45 4E 44 0D  0D 54 4F 20 57 48 49 4C  |ION.END..TO WHIL|
000002D0: 45 20 3A 43 4F 4E 44 20  3A 41 43 54 0D 20 49 46  |E :COND :ACT. IF|
000002E0: 20 4E 4F 54 20 52 55 4E  20 3A 43 4F 4E 44 20 53  | NOT RUN :COND S|
000002F0: 54 4F 50 0D 20 52 55 4E  20 3A 41 43 54 0D 20 57  |TOP. RUN :ACT. W|
00000300: 48 49 4C 45 20 3A 43 4F  4E 44 20 3A 41 43 54 0D  |HILE :COND :ACT.|
00000310: 45 4E 44 0D 0D FF FF 99                           |END.....        |

. TO HELP. ND. PR [WHILE AND UNTIL ARE P
ROCEDURES FOR]. PR [REPEATING A LIST OF 
COMMANDS WHILE OR]. PR [UNTIL A CERTAIN 
CONDITION IS MET.]. PR []. PR [WHILE:]. 
PR [WHILE REPEATS AS LONG AS THE PREDICA
TE]. PR [(FIRST INPUT) OUTPUTS TRUE.]. P
R []. PR [WHEN IT OUTPUTS FALSE, THE WHI
LE]. PR [PROCEDURE RETURNS.]. PR []. PR 
[UNTIL:]. PR [UNTIL REPEATS UNTIL THE PR
EDICATE]. PR [OUTPUTS TRUE.]. PR []. PR 
[EXAMPLES:]. PR [UNTIL [RC?] [PRINT [PRE
SS ANY KEY!]]]. PR []. PR [UNTIL [XCOR*X
COR + YCOR*YCOR > 900] [FD 10 RIGHT RAND
OM 180]]. PR []. PR [WHILE [JOYBUTTON 1]
 [FD 1]]. PR []. PRINT1 [WHILE [(PADDLE 
0)>10] [FD 3 RT PADDLE 1]].END..TO UNTIL
 :COND :ACTION. IF RUN :COND STOP. RUN :
ACTION. UNTIL :COND :ACTION.END..TO WHIL
E :COND :ACT. IF NOT RUN :COND STOP. RUN
 :ACT. WHILE :COND :ACT.END.....
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL