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

Multiple names: LG-ANINSPECT, ANIMAL.INSPECTOR

FILE INFORMATION

FILENAME(S):
• LG-ANINSPECT<br>• ANIMAL.INSPECTOR

FILE TYPE(S): PRG

FILE SIZE: 386b

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

APPEARS ON: 2 disk(s)

FILE HASH

36def4a2da309986d9e02f16e6f96bcf7e4adcaf94f3e0e05b152ce733755063

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
LOGO FILES LG-ANINSPECT PRG DuncanTwain 15 1 DOWNLOAD FILE
CBM 64 LOGO ANIMAL.INSPECTOR PRG DuncanTwain 21 6 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 00 20 54 4F 20 49 4E 53  50 45 43 54 2E 4B 4E 4F  |. TO INSPECT.KNO|
00000010: 57 4C 45 44 47 45 0D 20  49 4E 53 50 45 43 54 31  |WLEDGE. INSPECT1|
00000020: 20 3A 4B 4E 4F 57 4C 45  44 47 45 20 30 0D 45 4E  | :KNOWLEDGE 0.EN|
00000030: 44 0D 0D 54 4F 20 49 4E  53 50 45 43 54 31 20 3A  |D..TO INSPECT1 :|
00000040: 4B 4E 4F 57 4C 45 44 47  45 20 3A 4C 45 56 45 4C  |KNOWLEDGE :LEVEL|
00000050: 0D 20 49 46 20 57 4F 52  44 3F 20 3A 4B 4E 4F 57  |. IF WORD? :KNOW|
00000060: 4C 45 44 47 45 20 49 50  52 49 4E 54 20 3A 4B 4E  |LEDGE IPRINT :KN|
00000070: 4F 57 4C 45 44 47 45 20  3A 4C 45 56 45 4C 20 53  |OWLEDGE :LEVEL S|
00000080: 54 4F 50 0D 20 49 50 52  49 4E 54 20 28 20 51 55  |TOP. IPRINT ( QU|
00000090: 45 53 54 49 4F 4E 20 3A  4B 4E 4F 57 4C 45 44 47  |ESTION :KNOWLEDG|
000000A0: 45 20 29 20 3A 4C 45 56  45 4C 0D 20 49 50 52 49  |E ) :LEVEL. IPRI|
000000B0: 4E 54 20 5B 49 46 20 59  45 53 3A 5D 20 3A 4C 45  |NT [IF YES:] :LE|
000000C0: 56 45 4C 0D 20 49 4E 53  50 45 43 54 31 20 59 45  |VEL. INSPECT1 YE|
000000D0: 53 2E 42 52 41 4E 43 48  20 3A 4B 4E 4F 57 4C 45  |S.BRANCH :KNOWLE|
000000E0: 44 47 45 20 3A 4C 45 56  45 4C 20 2B 20 31 0D 20  |DGE :LEVEL + 1. |
000000F0: 49 50 52 49 4E 54 20 5B  49 46 20 4E 4F 3A 5D 20  |IPRINT [IF NO:] |
00000100: 3A 4C 45 56 45 4C 0D 20  49 4E 53 50 45 43 54 31  |:LEVEL. INSPECT1|
00000110: 20 4E 4F 2E 42 52 41 4E  43 48 20 3A 4B 4E 4F 57  | NO.BRANCH :KNOW|
00000120: 4C 45 44 47 45 20 3A 4C  45 56 45 4C 20 2B 20 31  |LEDGE :LEVEL + 1|
00000130: 0D 45 4E 44 0D 0D 54 4F  20 49 50 52 49 4E 54 20  |.END..TO IPRINT |
00000140: 3A 54 48 49 4E 47 20 3A  4C 45 56 45 4C 0D 20 52  |:THING :LEVEL. R|
00000150: 45 50 45 41 54 20 32 20  2A 20 3A 4C 45 56 45 4C  |EPEAT 2 * :LEVEL|
00000160: 20 5B 50 52 49 4E 54 31  20 22 27 20 27 5D 0D 20  | [PRINT1 "' ']. |
00000170: 50 52 49 4E 54 20 3A 54  48 49 4E 47 0D 45 4E 44  |PRINT :THING.END|
00000180: 0D 0D                                             |..              |

. TO INSPECT.KNOWLEDGE. INSPECT1 :KNOWLE
DGE 0.END..TO INSPECT1 :KNOWLEDGE :LEVEL
. IF WORD? :KNOWLEDGE IPRINT :KNOWLEDGE 
:LEVEL STOP. IPRINT ( QUESTION :KNOWLEDG
E ) :LEVEL. IPRINT [IF YES:] :LEVEL. INS
PECT1 YES.BRANCH :KNOWLEDGE :LEVEL + 1. 
IPRINT [IF NO:] :LEVEL. INSPECT1 NO.BRAN
CH :KNOWLEDGE :LEVEL + 1.END..TO IPRINT 
:THING :LEVEL. REPEAT 2 * :LEVEL [PRINT1
 "' ']. PRINT :THING.END..
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL