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

ANIMAL.INSP.LOGO

FILE INFORMATION

FILENAME(S): ANIMAL.INSP.LOGO

FILE TYPE(S): PRG

FILE SIZE: 389b

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

APPEARS ON: 1 disk(s)

FILE HASH

6c42b5c6b3704a24dc7f81b4fb13f9d93f72459a42b83f00d8c0b34caebe6b1d

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
NG USERS 11A ANIMAL.INSP.LOGO PRG Treasure Chest - OzzyC64 11 1 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 00 20 54 4F 20 49 50 52  49 4E 54 20 3A 54 48 49  |. TO IPRINT :THI|
00000010: 4E 47 20 3A 4C 45 56 45  4C 0D 20 52 45 50 45 41  |NG :LEVEL. REPEA|
00000020: 54 20 32 20 2A 20 3A 4C  45 56 45 4C 20 5B 50 52  |T 2 * :LEVEL [PR|
00000030: 49 4E 54 31 20 22 27 20  27 5D 0D 20 50 52 49 4E  |INT1 "' ']. PRIN|
00000040: 54 20 3A 54 48 49 4E 47  0D 45 4E 44 0D 0D 54 4F  |T :THING.END..TO|
00000050: 20 49 4E 53 50 45 43 54  31 20 3A 4B 4E 4F 57 4C  | INSPECT1 :KNOWL|
00000060: 45 44 47 45 20 3A 4C 45  56 45 4C 0D 20 49 46 20  |EDGE :LEVEL. IF |
00000070: 57 4F 52 44 3F 20 3A 4B  4E 4F 57 4C 45 44 47 45  |WORD? :KNOWLEDGE|
00000080: 20 49 50 52 49 4E 54 20  3A 4B 4E 4F 57 4C 45 44  | IPRINT :KNOWLED|
00000090: 47 45 20 3A 4C 45 56 45  4C 20 53 54 4F 50 0D 20  |GE :LEVEL STOP. |
000000A0: 49 50 52 49 4E 54 20 28  20 51 55 45 53 54 49 4F  |IPRINT ( QUESTIO|
000000B0: 4E 20 3A 4B 4E 4F 57 4C  45 44 47 45 20 29 20 3A  |N :KNOWLEDGE ) :|
000000C0: 4C 45 56 45 4C 0D 20 49  50 52 49 4E 54 20 5B 49  |LEVEL. IPRINT [I|
000000D0: 46 20 59 45 53 3A 5D 20  3A 4C 45 56 45 4C 0D 20  |F YES:] :LEVEL. |
000000E0: 49 4E 53 50 45 43 54 31  20 59 45 53 2E 42 52 41  |INSPECT1 YES.BRA|
000000F0: 4E 43 48 20 3A 4B 4E 4F  57 4C 45 44 47 45 20 3A  |NCH :KNOWLEDGE :|
00000100: 4C 45 56 45 4C 20 2B 20  31 0D 20 49 50 52 49 4E  |LEVEL + 1. IPRIN|
00000110: 54 20 5B 49 46 20 4E 4F  3A 5D 20 3A 4C 45 56 45  |T [IF NO:] :LEVE|
00000120: 4C 0D 20 49 4E 53 50 45  43 54 31 20 4E 4F 2E 42  |L. INSPECT1 NO.B|
00000130: 52 41 4E 43 48 20 3A 4B  4E 4F 57 4C 45 44 47 45  |RANCH :KNOWLEDGE|
00000140: 20 3A 4C 45 56 45 4C 20  2B 20 31 0D 45 4E 44 0D  | :LEVEL + 1.END.|
00000150: 0D 54 4F 20 49 4E 53 50  45 43 54 2E 4B 4E 4F 57  |.TO INSPECT.KNOW|
00000160: 4C 45 44 47 45 0D 20 49  4E 53 50 45 43 54 31 20  |LEDGE. INSPECT1 |
00000170: 3A 4B 4E 4F 57 4C 45 44  47 45 20 30 0D 45 4E 44  |:KNOWLEDGE 0.END|
00000180: 0D 0D 52 45 4E                                    |..REN           |

. TO IPRINT :THING :LEVEL. REPEAT 2 * :L
EVEL [PRINT1 "' ']. PRINT :THING.END..TO
 INSPECT1 :KNOWLEDGE :LEVEL. IF WORD? :K
NOWLEDGE IPRINT :KNOWLEDGE :LEVEL STOP. 
IPRINT ( QUESTION :KNOWLEDGE ) :LEVEL. I
PRINT [IF YES:] :LEVEL. INSPECT1 YES.BRA
NCH :KNOWLEDGE :LEVEL + 1. IPRINT [IF NO
:] :LEVEL. INSPECT1 NO.BRANCH :KNOWLEDGE
 :LEVEL + 1.END..TO INSPECT.KNOWLEDGE. I
NSPECT1 :KNOWLEDGE 0.END..REN
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL