CLEVER BOD

FILE INFORMATION

FILENAME(S): CLEVER BOD

FILE TYPE(S): PRG

FILE SIZE: 2.5K

FIRST SEEN: 2025-11-30 18:05:30

APPEARS ON: 1 disk(s)

FILE HASH

5df7cae4c7f0bcbfa9c05e8fcded930ca355d85a369ced19c48b53771341b8c6

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
CDU JULY V4 N9	CLEVER BOD	PRG	Xii	16	6	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 01 1C 19 1C 0A 00 99 C7  28 31 34 32 29 3B C7 28  |........(142);.(|
00000010: 38 29 3B C7 28 31 31 29  3A 00 2D 1C 14 00 99 22  |8);.(11):.-...."|
00000020: 93 50 4C 45 41 53 45 20  57 41 49 54 22 00 3C 1C  |.PLEASE WAIT".<.|
00000030: 1E 00 86 41 24 28 32 30  30 2C 33 29 00 7F 1C 28  |...A$(200,3)...(|
00000040: 00 81 4C B2 30 20 A4 20  32 30 30 3A 41 24 28 4C  |..L.0 . 200:A$(L|
00000050: 2C 30 29 B2 22 22 3A 41  24 28 4C 2C 31 29 B2 22  |,0)."":A$(L,1)."|
00000060: 2D 31 22 3A 41 24 28 4C  2C 32 29 B2 22 2D 31 22  |-1":A$(L,2)."-1"|
00000070: 3A 41 24 28 4C 2C 33 29  B2 22 2D 31 22 3A 82 00  |:A$(L,3)."-1":..|
00000080: 97 1C 32 00 8F 20 4F 50  45 4E 38 2C 38 2C 38 2C  |..2.. OPEN8,8,8,|
00000090: 22 44 41 54 41 31 22 00  A8 1C 3C 00 8F 20 49 4E  |"DATA1"...<.. IN|
000000A0: 50 55 54 23 38 2C 4E 4E  00 EA 1C 46 00 8F 20 46  |PUT#8,NN...F.. F|
000000B0: 4F 52 4C 3D 30 54 4F 4E  4E 3A 46 4F 52 53 3D 30  |ORL=0TONN:FORS=0|
000000C0: 54 4F 33 3A 49 4E 50 55  54 23 38 2C 41 24 28 4C  |TO3:INPUT#8,A$(L|
000000D0: 2C 53 29 3A 4E 45 58 54  3A 4E 45 58 54 3A 43 4C  |,S):NEXT:NEXT:CL|
000000E0: 4F 53 45 38 3A 46 49 3D  2D 31 00 F5 1C 50 00 99  |OSE8:FI=-1...P..|
000000F0: 22 93 9E 22 3B 00 0B 1D  5A 00 97 35 33 32 38 30  |"..";...Z..53280|
00000100: 2C 32 3A 97 35 33 32 38  31 2C 32 00 3C 1D 64 00  |,2:.53281,2.<.d.|
00000110: 99 22 B0 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |."..............|
00000120: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |................|
00000130: C0 C0 C0 C0 C0 C0 C0 C0  C0 AE 22 3B 00 6D 1D 6E  |..........";.m.n|
00000140: 00 99 22 DD 20 20 20 20  20 20 43 4F 4D 50 55 54  |..".      COMPUT|
00000150: 45 52 20 49 4E 54 45 4C  4C 49 47 45 4E 43 45 20  |ER INTELLIGENCE |
00000160: 44 45 4D 4F 20 20 20 20  20 20 DD 22 3B 00 9E 1D  |DEMO      .";...|
00000170: 78 00 99 22 AD C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |x.."............|
00000180: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |................|
00000190: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 BD 22 3B 00 C2  |............";..|
000001A0: 1D 82 00 99 22 11 11 11  31 2E 2E 2E 41 44 44 20  |...."...1...ADD |
000001B0: 54 4F 20 4B 4E 4F 57 4C  45 44 47 45 20 42 41 53  |TO KNOWLEDGE BAS|
000001C0: 45 22 00 DA 1D 8C 00 99  22 11 32 2E 2E 2E 49 4E  |E"......".2...IN|
000001D0: 54 45 52 52 4F 47 41 54  45 22 00 F7 1D 96 00 99  |TERROGATE"......|
000001E0: 22 11 33 2E 2E 2E 44 49  53 50 4C 41 59 20 41 4C  |".3...DISPLAY AL|
000001F0: 4C 20 49 4E 46 4F 22 00  0D 1E A0 00 99 22 11 34  |L INFO"......".4|
00000200: 2E 2E 2E 4C 4F 41 44 20  42 41 53 45 22 00 23 1E  |...LOAD BASE".#.|
00000210: AA 00 99 22 11 35 2E 2E  2E 53 41 56 45 20 42 41  |...".5...SAVE BA|
00000220: 53 45 22 00 33 1E B4 00  99 22 11 36 2E 2E 2E 45  |SE".3....".6...E|
00000230: 4E 44 22 00 46 1E BE 00  A1 41 24 3A 8B 41 24 B2  |ND".F....A$:.A$.|
00000240: 22 22 A7 31 39 30 00 6D  1E C8 00 8B 41 24 B2 22  |"".190.m....A$."|
00000250: 36 22 A7 97 35 33 32 38  30 2C 37 3A 97 35 33 32  |6"..53280,7:.532|
00000260: 38 31 2C 37 3A 99 22 1C  93 22 3B 3A 80 00 84 1E  |81,7:."..";:....|
00000270: D2 00 8B 41 24 B3 22 31  22 B0 41 24 B1 22 35 22  |...A$."1".A$."5"|
00000280: A7 31 39 30 00 95 1E DC  00 8B 41 24 B2 22 31 22  |.190......A$."1"|
00000290: A7 8D 33 31 30 00 A3 1E  E6 00 8B 46 49 B2 30 A7  |..310......FI.0.|
000002A0: 32 36 30 00 B4 1E F0 00  8B 41 24 B2 22 32 22 A7  |260......A$."2".|
000002B0: 8D 34 37 30 00 C5 1E FA  00 8B 41 24 B2 22 33 22  |.470......A$."3"|
000002C0: A7 8D 37 34 30 00 D6 1E  04 01 8B 41 24 B2 22 34  |..740......A$."4|
000002D0: 22 A7 8D 39 34 30 00 E4  1E 0E 01 8B 46 49 B2 30  |"..940......FI.0|
000002E0: A7 32 39 30 00 F6 1E 18  01 8B 41 24 B2 22 35 22  |.290......A$."5"|
000002F0: A7 8D 31 30 35 30 00 FF  1E 22 01 89 20 38 30 00  |..1050...".. 80.|
00000300: 05 1F 2C 01 AA 00 11 1F  36 01 8F 20 2A 41 44 44  |..,.....6.. *ADD|
00000310: 2A 00 1B 1F 40 01 46 49  B2 AB 31 00 25 1F 4A 01  |*...@.FI..1.%.J.|
00000320: 99 22 93 22 3B 00 8D 1F  54 01 99 22 45 4E 54 45  |.".";...T.."ENTE|
00000330: 52 20 41 4E 53 57 45 52  53 20 41 4E 44 20 51 55  |R ANSWERS AND QU|
00000340: 45 53 54 49 4F 4E 53 20  49 4E 20 4F 4E 45 20 57  |ESTIONS IN ONE W|
00000350: 4F 52 44 20 49 46 20 50  4F 53 53 49 42 4C 45 20  |ORD IF POSSIBLE |
00000360: 2D 20 4F 4E 4C 59 20 54  4F 20 4D 41 4B 45 20 50  |- ONLY TO MAKE P|
00000370: 41 52 53 45 52 49 4E 47  20 20 20 20 4D 4F 52 45  |ARSERING    MORE|
00000380: 20 53 49 4D 50 4C 49 53  54 49 43 2E 22 00 98 1F  | SIMPLISTIC."...|
00000390: 5E 01 99 22 11 11 22 3B  00 AC 1F 68 01 99 22 50  |^.."..";...h.."P|
000003A0: 4F 53 49 54 49 4F 4E 53  3A 22 4E 4E 00 C6 1F 72  |OSITIONS:"NN...r|
000003B0: 01 85 22 11 45 4E 54 45  52 20 43 4F 4E 54 45 4E  |..".ENTER CONTEN|
000003C0: 54 53 22 3B 43 24 00 D6  1F 7C 01 41 24 28 4E 4E  |TS";C$...|.A$(NN|
000003D0: 2C 30 29 B2 43 24 00 F5  1F 86 01 85 22 11 45 4E  |,0).C$......".EN|
000003E0: 54 45 52 20 54 52 55 54  48 20 50 4F 49 4E 54 45  |TER TRUTH POINTE|
000003F0: 52 22 3B 50 24 00 05 20  90 01 41 24 28 4E 4E 2C  |R";P$.. ..A$(NN,|
00000400: 31 29 B2 50 24 00 24 20  9A 01 85 22 11 45 4E 54  |1).P$.$ ...".ENT|
00000410: 45 52 20 46 41 4C 53 45  20 50 4F 49 4E 54 45 52  |ER FALSE POINTER|
00000420: 22 3B 46 24 00 34 20 A4  01 41 24 28 4E 4E 2C 32  |";F$.4 ..A$(NN,2|
00000430: 29 B2 46 24 00 57 20 AE  01 85 22 11 45 4E 54 45  |).F$.W ...".ENTE|
00000440: 52 20 42 41 43 4B 54 52  41 43 4B 20 50 4F 49 4E  |R BACKTRACK POIN|
00000450: 54 45 52 22 3B 42 24 00  67 20 B8 01 41 24 28 4E  |TER";B$.g ..A$(N|
00000460: 4E 2C 33 29 B2 42 24 00  73 20 C2 01 4E 4E B2 4E  |N,3).B$.s ..NN.N|
00000470: 4E AA 31 00 79 20 CC 01  8E 00 8B 20 D6 01 8F 2A  |N.1.y ..... ...*|
00000480: 49 4E 54 45 52 52 4F 47  41 54 45 00 B1 20 E0 01  |INTERROGATE.. ..|
00000490: 46 B2 30 3A 48 B2 30 3A  42 24 B2 22 22 3A 43 24  |F.0:H.0:B$."":C$|
000004A0: B2 22 22 3A 4C B2 30 3A  4A 4C B2 30 3A 4F 4A B2  |."":L.0:JL.0:OJ.|
000004B0: 30 00 BB 20 EA 01 99 22  93 22 3B 00 2C 21 F4 01  |0.. ...".";.,!..|
000004C0: 99 22 45 4E 54 45 52 20  49 4E 54 45 52 52 4F 47  |."ENTER INTERROG|
000004D0: 41 54 49 4F 4E 20 53 54  52 49 4E 47 20 49 4E 20  |ATION STRING IN |
000004E0: 54 48 45 20 20 20 20 20  20 20 46 4F 4C 4C 4F 57  |THE       FOLLOW|
000004F0: 49 4E 47 20 46 4F 52 4D  41 54 2E 20 46 4F 52 20  |ING FORMAT. FOR |
00000500: 54 48 45 20 51 55 45 53  54 49 4F 4E 20 49 53 20  |THE QUESTION IS |
00000510: 20 20 54 48 41 54 43 48  45 52 20 46 55 4E 4E 59  |  THATCHER FUNNY|
00000520: 20 59 4F 55 20 45 4E 54  45 52 3A 22 00 45 21 FE  | YOU ENTER:".E!.|
00000530: 01 99 22 11 11 54 48 41  54 43 48 45 52 2E 46 55  |.."..THATCHER.FU|
00000540: 4E 4E 59 3F 22 00 5F 21  08 02 99 22 11 11 41 4E  |NNY?"._!..."..AN|
00000550: 44 20 50 52 45 53 53 20  52 45 54 55 52 4E 2E 00  |D PRESS RETURN..|
00000560: 6E 21 12 02 99 22 11 11  22 3B 3A 85 53 24 00 7E  |n!..."..";:.S$.~|
00000570: 21 1C 02 48 B2 D4 28 53  24 2C 22 2E 22 29 00 8C  |!..H..(S$,".")..|
00000580: 21 26 02 8B 20 48 B2 30  A7 34 39 30 00 9D 21 30  |!&.. H.0.490..!0|
00000590: 02 42 24 B2 C8 28 53 24  2C 48 AB 31 29 00 B2 21  |.B$..(S$,H.1)..!|
000005A0: 3A 02 43 24 B2 C9 28 53  24 2C C3 28 53 24 29 AB  |:.C$..(S$,.(S$).|
000005B0: 48 29 00 BF 21 44 02 99  42 24 22 2E 22 43 24 00  |H)..!D..B$"."C$.|
000005C0: E0 21 4E 02 99 22 11 11  50 4C 45 41 53 45 20 57  |.!N.."..PLEASE W|
000005D0: 41 49 54 20 2D 20 54 48  49 4E 4B 49 4E 47 21 22  |AIT - THINKING!"|
000005E0: 00 F2 21 58 02 46 B2 30  3A 81 4C B2 30 A4 4E 4E  |..!X.F.0:.L.0.NN|
000005F0: AB 31 00 0C 22 62 02 8B  41 24 28 4C 2C 30 29 B2  |.1.."b..A$(L,0).|
00000600: 42 24 A7 20 46 B2 31 3A  89 36 33 30 00 12 22 6C  |B$. F.1:.630.."l|
00000610: 02 82 00 46 22 76 02 8B  46 B2 30 A7 99 22 11 57  |...F"v..F.0..".W|
00000620: 45 4C 4C 20 49 20 44 4F  4E 27 54 20 52 45 41 4C  |ELL I DON'T REAL|
00000630: 4C 59 20 4B 4E 4F 57 22  3A 81 4C B2 31 A4 32 30  |LY KNOW":.L.1.20|
00000640: 30 30 3A 82 3A 8E 00 55  22 80 02 4F 4A B2 4C 3A  |00:.:..U"..OJ.L:|
00000650: 89 20 36 36 30 00 5F 22  8A 02 4F 4A B2 4A 4C 00  |. 660._"..OJ.JL.|
00000660: 72 22 94 02 4A 4C B2 C5  28 41 24 28 4F 4A 2C 33  |r"..JL..(A$(OJ,3|
00000670: 29 29 00 89 22 9E 02 8B  20 41 24 28 4A 4C 2C 30  |)).."... A$(JL,0|
00000680: 29 B2 43 24 A7 20 37 32  30 00 9A 22 A8 02 4F 46  |).C$. 720.."..OF|
00000690: 24 B2 41 24 28 4A 4C 2C  30 29 00 B3 22 B2 02 4F  |$.A$(JL,0).."..O|
000006A0: 4A B2 4A 4C 3A 4A 4C B2  C5 28 41 24 28 4A 4C 2C  |J.JL:JL..(A$(JL,|
000006B0: 33 29 29 00 E3 22 BC 02  8B 4A 4C B2 AB 31 A7 99  |3)).."...JL..1..|
000006C0: 22 49 20 44 4F 4E 27 54  20 52 45 41 4C 4C 59 20  |"I DON'T REALLY |
000006D0: 4B 4E 4F 57 22 3A 81 4C  B2 31 A4 32 30 30 30 3A  |KNOW":.L.1.2000:|
000006E0: 82 3A 8E 00 ED 22 C6 02  89 20 36 37 30 00 32 23  |.:..."... 670.2#|
000006F0: D0 02 8B 41 24 28 C5 28  41 24 28 4A 4C 2C 31 29  |...A$(.(A$(JL,1)|
00000700: 29 2C 30 29 B2 41 24 28  4F 4A 2C 30 29 AF 4F 4A  |),0).A$(OJ,0).OJ|
00000710: B2 C5 28 41 24 28 4A 4C  2C 31 29 29 A7 20 99 22  |..(A$(JL,1)). ."|
00000720: 59 45 53 22 3A 81 4C B2  31 A4 32 30 30 30 3A 82  |YES":.L.1.2000:.|
00000730: 3A 8E 00 4A 23 DA 02 99  22 4E 4F 22 3A 81 4C B2  |:..J#..."NO":.L.|
00000740: 31 A4 32 30 30 30 3A 82  3A 8E 00 54 23 E4 02 99  |1.2000:.:..T#...|
00000750: 22 93 22 3B 00 73 23 EE  02 99 22 44 49 53 50 4C  |".";.s#..."DISPL|
00000760: 41 59 20 41 4C 4C 20 49  4E 46 4F 52 4D 41 54 49  |AY ALL INFORMATI|
00000770: 4F 4E 22 00 88 23 F8 02  99 22 11 11 41 42 4F 55  |ON"..#..."..ABOU|
00000780: 54 20 57 48 4F 4D 3F 22  00 95 23 02 03 85 22 11  |T WHOM?"..#...".|
00000790: 11 22 3B 41 24 00 A7 23  0C 03 46 B2 30 3A 81 4C  |.";A$..#..F.0:.L|
000007A0: B2 30 A4 4E 4E AB 31 00  C1 23 16 03 8B 41 24 28  |.0.NN.1..#...A$(|
000007B0: 4C 2C 30 29 B2 41 24 A7  46 B2 31 3A 89 20 38 31  |L,0).A$.F.1:. 81|
000007C0: 30 00 C7 23 20 03 82 00  F1 23 2A 03 8B 46 B2 30  |0..# ....#*..F.0|
000007D0: A7 99 22 11 4E 4F 20 53  55 43 48 20 50 45 52 53  |..".NO SUCH PERS|
000007E0: 4F 4E 22 3A 81 4C B2 31  A4 32 30 30 30 3A 82 3A  |ON":.L.1.2000:.:|
000007F0: 8E 00 FA 23 34 03 4F 4A  B2 4C 00 0B 24 3E 03 99  |...#4.OJ.L..$>..|
00000800: 22 11 11 22 41 24 22 20  49 53 22 00 23 24 48 03  |".."A$" IS".#$H.|
00000810: 4A 4C B2 C5 28 41 24 28  4C 2C 33 29 29 3A 89 20  |JL..(A$(L,3)):. |
00000820: 38 35 30 00 34 24 52 03  4F 46 24 B2 41 24 28 4A  |850.4$R.OF$.A$(J|
00000830: 4C 2C 30 29 00 4B 24 5C  03 8B 20 4A 4C B2 AB 31  |L,0).K$\.. JL..1|
00000840: A7 4A 4C B2 30 3A 46 4C  B2 AB 31 00 65 24 66 03  |.JL.0:FL..1.e$f.|
00000850: 8B 20 4F 4A B2 C5 28 41  24 28 4A 4C 2C 31 29 29  |. OJ..(A$(JL,1))|
00000860: A7 99 4F 46 24 00 86 24  70 03 8B 20 4F 4A B3 B1  |..OF$..$p.. OJ..|
00000870: C5 28 41 24 28 4A 4C 2C  31 29 29 A7 99 22 4E 4F  |.(A$(JL,1)).."NO|
00000880: 54 20 22 4F 46 24 00 9C  24 7A 03 8B 46 4C B2 AB  |T "OF$..$z..FL..|
00000890: 31 A7 46 4C B2 30 3A 4A  4C B2 AB 31 00 A6 24 84  |1.FL.0:JL..1..$.|
000008A0: 03 4F 4A B2 4A 4C 00 B9  24 8E 03 4A 4C B2 C5 28  |.OJ.JL..$..JL..(|
000008B0: 41 24 28 4A 4C 2C 33 29  29 00 D5 24 98 03 8B 20  |A$(JL,3))..$... |
000008C0: 4A 4C B2 AB 31 20 A7 20  81 4C B2 31 A4 32 30 30  |JL..1 . .L.1.200|
000008D0: 30 3A 82 3A 8E 00 DF 24  A2 03 89 20 38 35 30 00  |0:.:...$... 850.|
000008E0: EA 24 AC 03 8F 20 4C 4F  41 44 00 03 25 B6 03 85  |.$... LOAD..%...|
000008F0: 22 45 4E 54 45 52 20 46  49 4C 45 4E 41 4D 45 22  |"ENTER FILENAME"|
00000900: 3B 46 24 00 18 25 C0 03  9F 38 2C 38 2C 38 2C 46  |;F$..%...8,8,8,F|
00000910: 24 AA 22 2C 53 2C 52 22  00 22 25 CA 03 84 38 2C  |$.",S,R"."%...8,|
00000920: 4E 4E 00 2E 25 D4 03 81  4C B2 30 A4 4E 4E 00 39  |NN..%...L.0.NN.9|
00000930: 25 DE 03 81 53 B2 30 A4  33 00 48 25 E8 03 84 38  |%...S.0.3.H%...8|
00000940: 2C 41 24 28 4C 2C 53 29  00 50 25 F2 03 82 3A 82  |,A$(L,S).P%...:.|
00000950: 00 57 25 FC 03 A0 38 00  61 25 06 04 46 49 B2 AB  |.W%...8.a%..FI..|
00000960: 31 00 67 25 10 04 8E 00  72 25 1A 04 8F 20 53 41  |1.g%....r%... SA|
00000970: 56 45 00 8B 25 24 04 85  22 45 4E 54 45 52 20 46  |VE..%$.."ENTER F|
00000980: 49 4C 45 4E 41 4D 45 22  3B 46 24 00 A0 25 2E 04  |ILENAME";F$..%..|
00000990: 9F 38 2C 38 2C 38 2C 46  24 AA 22 2C 53 2C 57 22  |.8,8,8,F$.",S,W"|
000009A0: 00 AA 25 38 04 98 38 2C  4E 4E 00 B6 25 42 04 81  |..%8..8,NN..%B..|
000009B0: 4C B2 30 A4 4E 4E 00 C1  25 4C 04 81 53 B2 30 A4  |L.0.NN..%L..S.0.|
000009C0: 33 00 D0 25 56 04 98 38  2C 41 24 28 4C 2C 53 29  |3..%V..8,A$(L,S)|
000009D0: 00 D8 25 60 04 82 3A 82  00 DF 25 6A 04 A0 38 00  |..%`..:...%j..8.|
000009E0: E5 25 74 04 8E 00 00 00                           |.%t.....        |

.......G(142);G(8);G(11):.-....".PLEASE 
WAIT".<....A$(200,3)..(..L.0 . 200:A$(L
,0)."":A$(L,1)."-1":A$(L,2)."-1":A$(L,3)
."-1":....2.. OPEN8,8,8,"DATA1"...<.. IN
PUT#8,NN...F.. FORL=0TONN:FORS=0TO3:INPU
T#8,A$(L,S):NEXT:NEXT:CLOSE8:FI=-1...P..
"..";...Z..53280,2:.53281,2.<.D.."......
..................................";.M.N
..".      COMPUTER INTELLIGENCE DEMO    
  .";...X.."............................
............";.B...."...1...ADD TO KNOWL
EDGE BASE".Z....".2...INTERROGATE"......
".3...DISPLAY ALL INFO"... ..".4...LOAD 
BASE".#....".5...SAVE BASE".3....".6...E
ND".F....A$:.A$."".190.M.H..A$."6"..5328
0,7:.53281,7:."..";:....R..A$."1".A$."5"
.190......A$."1"..310......FI.0.260.....
.A$."2"..470.E....A$."3"..740.V....A$."4
"..940......FI.0.290......A$."5"..1050..
.".. 80...,.....6.. *ADD*...@.FI..1.%.J.
.".";...T.."ENTER ANSWERS AND QUESTIONS 
IN ONE WORD IF POSSIBLE - ONLY TO MAKE P
ARSERING    MORE SIMPLISTIC."...^.."..";
...H.."POSITIONS:"NN.F.R..".ENTER CONTEN
TS";C$.V.|.A$(NN,0).C$......".ENTER TRUT
H POINTER";P$.. ..A$(NN,1).P$.$ ...".ENT
ER FALSE POINTER";F$.4 ..A$(NN,2).F$.W .
..".ENTER BACKTRACK POINTER";B$.G ..A$(N
N,3).B$.S B.NN.NN.1.Y L.... V..*INTERROG
ATE.. ..F.0:H.0:B$."":C$."":L.0:JL.0:OJ.
0.. ...".";.,!..."ENTER INTERROGATION ST
RING IN THE       FOLLOWING FORMAT. FOR 
THE QUESTION IS   THATCHER FUNNY YOU ENT
ER:".E!..."..THATCHER.FUNNY?"._!..."..AN
D PRESS RETURN..N!..."..";:.S$.~!..H.T(S
$,".")..!&.. H.0.490..!0.B$.H(S$,H.1)..!
:.C$.I(S$,C(S$).H)..!D..B$"."C$..!N.."..
PLEASE WAIT - THINKING!"..!X.F.0:.L.0.NN
.1.."B..A$(L,0).B$. F.1:.630.."L...F"V..
F.0..".WELL I DON'T REALLY KNOW":.L.1.20
00:.:..U"..OJ.L:. 660._"..OJ.JL.R"..JL.E
(A$(OJ,3)).."... A$(JL,0).C$. 720.."..OF
$.A$(JL,0).."..OJ.JL:JL.E(A$(JL,3)).."..
.JL..1.."I DON'T REALLY KNOW":.L.1.2000:
.:..."F.. 670.2#P..A$(E(A$(JL,1)),0).A$(
OJ,0).OJ.E(A$(JL,1)). ."YES":.L.1.2000:.
:..J#Z.."NO":.L.1.2000:.:..T#...".";.S#.
.."DISPLAY ALL INFORMATION"..#..."..ABOU
T WHOM?"..#..."..";A$..#..F.0:.L.0.NN.1.
A#...A$(L,0).A$.F.1:. 810.G# ....#*..F.0
..".NO SUCH PERSON":.L.1.2000:.:...#4.OJ
.L..$>..".."A$" IS".#$H.JL.E(A$(L,3)):. 
850.4$R.OF$.A$(JL,0).K$\.. JL..1.JL.0:FL
..1.E$F.. OJ.E(A$(JL,1))..OF$..$P.. OJ..
E(A$(JL,1)).."NOT "OF$..$Z..FL..1.FL.0:J
L..1..$..OJ.JL..$..JL.E(A$(JL,3)).U$... 
JL..1 . .L.1.2000:.:...$... 850..$... LO
AD..%..."ENTER FILENAME";F$..%...8,8,8,F
$.",S,R"."%J..8,NN..%T..L.0.NN.9%...S.0.
3.H%...8,A$(L,S).P%...:..W%.. 8.A%..FI..
1.G%....R%... SAVE..%$.."ENTER FILENAME"
;F$. %...8,8,8,F$.",S,W"..%8..8,NN..%B..
L.0.NN.A%L..S.0.3.P%V..8,A$(L,S).X%`..:.
..%J. 8..%T.....

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL