AMEND ALBERT
FILE INFORMATION
FILENAME(S): AMEND ALBERT
FILE TYPE(S): PRG
FILE SIZE: 6.2K
FIRST SEEN: 2025-11-30 21:08:50
APPEARS ON: 1 disk(s)
FILE HASH
2eba764b91ba4c938509d386f8be8631eb9073facf80e65955bb0a77613267a1
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SPELLEN | AMEND ALBERT | PRG | DuncanTwain | 27 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1F 08 E8 03 8F 20 3C 3C 20 36 34 20 45 4E |....... << 64 EN|
00000010: 54 45 52 20 51 55 45 53 54 49 4F 4E 20 3E 3E 00 |TER QUESTION >>.|
00000020: 4B 08 F2 03 8F 20 50 4F 4B 45 34 35 2C 50 45 45 |K.... POKE45,PEE|
00000030: 4B 28 31 37 34 29 3A 50 4F 4B 45 34 36 2C 50 45 |K(174):POKE46,PE|
00000040: 45 4B 28 31 37 35 29 3A 43 4C 52 00 8E 08 06 04 |EK(175):CLR.....|
00000050: 9C 3A 43 44 24 B2 22 13 11 11 11 11 11 11 11 11 |.:CD$.".........|
00000060: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000070: 22 3A 55 24 B2 C7 28 31 33 29 3A 58 58 B2 35 3A |":U$..(13):XX.5:|
00000080: 9F 31 35 2C 38 2C 31 35 3A 4B 46 B2 32 30 00 9B |.15,8,15:KF.20..|
00000090: 08 0B 04 86 47 47 24 28 31 31 29 00 E1 08 10 04 |....GG$(11).....|
000000A0: 42 53 B2 31 30 30 3A 81 49 B2 31 A4 34 30 3A 53 |BS.100:.I.1.40:S|
000000B0: 31 24 B2 53 31 24 AA 22 3D 22 3A 53 32 24 B2 53 |1$.S1$."=":S2$.S|
000000C0: 32 24 AA 22 2D 22 3A 42 4C 24 B2 42 4C 24 AA 22 |2$."-":BL$.BL$."|
000000D0: 20 22 3A 43 4C 24 B2 43 4C 24 AA 22 9D 22 3A 82 | ":CL$.CL$.".":.|
000000E0: 49 00 09 09 9C 04 8F 20 3C 2D 2D 2D 2D 3C 3C 20 |I...... <----<< |
000000F0: 45 4E 54 45 52 20 51 55 45 53 54 49 4F 4E 20 50 |ENTER QUESTION P|
00000100: 52 4F 47 52 41 4D 20 3E 3E 00 40 09 A6 04 97 35 |ROGRAM >>.@....5|
00000110: 33 32 38 30 2C 39 3A 97 35 33 32 38 31 2C 31 3A |3280,9:.53281,1:|
00000120: 99 22 93 22 3A 4D 24 B2 22 20 C5 4E 54 45 52 20 |.".":M$." .NTER |
00000130: D1 55 45 53 54 49 4F 4E 20 22 3A 8D 31 38 35 30 |.UESTION ":.1850|
00000140: 00 65 09 B0 04 8D 32 30 30 30 3A 8F 20 3C 2D 2D |.e....2000:. <--|
00000150: 3C 3C 20 53 43 52 45 45 4E 20 46 4F 52 4D 41 54 |<< SCREEN FORMAT|
00000160: 20 31 20 3E 3E 00 96 09 BA 04 8D 32 32 35 30 3A | 1 >>......2250:|
00000170: 8B 46 31 24 B2 22 30 22 A7 31 30 35 30 3A 8F 20 |.F1$."0".1050:. |
00000180: 3C 2D 2D 3C 3C 20 46 49 45 4C 44 20 31 20 45 4E |<--<< FIELD 1 EN|
00000190: 54 52 59 20 3E 3E 00 C5 09 C4 04 8D 32 31 36 30 |TRY >>......2160|
000001A0: 3A 8B 4D 4D B2 31 A7 31 32 31 30 3A 8F 20 3C 2D |:.MM.1.1210:. <-|
000001B0: 2D 3C 3C 20 43 48 45 43 4B 20 46 4F 52 20 46 49 |-<< CHECK FOR FI|
000001C0: 4C 45 20 3E 3E 00 EA 09 C9 04 8D 35 30 30 30 3A |LE >>......5000:|
000001D0: 8F 20 3C 2D 2D 3C 3C 20 44 49 53 50 4C 41 59 20 |. <--<< DISPLAY |
000001E0: 4D 45 53 53 41 47 45 20 3E 3E 00 06 0A CA 04 8D |MESSAGE >>......|
000001F0: 36 30 30 30 3A 8B 4B 4E 24 B2 22 4E 22 A7 A0 31 |6000:.KN$."N"..1|
00000200: 35 3A A0 32 3A 80 00 2C 0A E2 04 8D 32 32 31 30 |5:.2:..,....2210|
00000210: 3A 8F 20 3C 2D 2D 3C 3C 20 55 50 44 41 54 45 20 |:. <--<< UPDATE |
00000220: 49 4E 54 4F 20 46 49 4C 45 20 3E 3E 00 4F 0A EC |INTO FILE >>.O..|
00000230: 04 8D 32 30 36 30 3A 8F 20 3C 2D 2D 3C 3C 20 53 |..2060:. <--<< S|
00000240: 43 52 45 45 4E 20 46 4F 52 4D 41 54 20 3E 3E 00 |CREEN FORMAT >>.|
00000250: 74 0A F6 04 81 5A 5A B2 31 A4 C5 28 46 32 24 29 |t....ZZ.1..(F2$)|
00000260: 3A 99 22 13 11 11 11 22 A6 32 32 29 5A 5A 3A 8D |:."....".22)ZZ:.|
00000270: 32 36 36 30 00 9C 0A FB 04 8D 37 30 30 30 3A 8F |2660......7000:.|
00000280: 20 3C 2D 2D 3C 3C 20 44 49 53 50 4C 41 59 20 4D | <--<< DISPLAY M|
00000290: 45 53 53 41 47 45 53 20 32 20 3E 3E 00 BA 0A 00 |ESSAGES 2 >>....|
000002A0: 05 8D 32 34 32 30 3A 8F 20 3C 20 46 49 45 4C 44 |..2420:. < FIELD|
000002B0: 20 34 20 45 4E 54 52 59 20 3E 00 FA 0A 0A 05 4B | 4 ENTRY >.....K|
000002C0: 58 B2 37 3A 59 59 24 B2 46 35 24 3A 8D 32 34 37 |X.7:YY$.F5$:.247|
000002D0: 30 3A 46 35 24 B2 59 59 24 3A 8B 41 24 B2 22 91 |0:F5$.YY$:.A$.".|
000002E0: 22 A7 31 32 38 30 3A 8F 20 3C 20 46 49 45 4C 44 |".1280:. < FIELD|
000002F0: 20 35 20 45 4E 54 52 59 20 3E 00 3B 0B 14 05 4B | 5 ENTRY >.;...K|
00000300: 58 B2 38 3A 59 59 24 B2 47 35 24 3A 8D 32 34 37 |X.8:YY$.G5$:.247|
00000310: 30 3A 47 35 24 B2 59 59 24 3A 8B 41 24 B2 22 91 |0:G5$.YY$:.A$.".|
00000320: 22 A7 31 32 39 30 3A 8F 20 3C 20 46 49 45 4C 44 |".1290:. < FIELD|
00000330: 20 35 41 20 45 4E 54 52 59 20 3E 00 7C 0B 1E 05 | 5A ENTRY >.|...|
00000340: 4B 58 B2 39 3A 59 59 24 B2 47 36 24 3A 8D 32 34 |KX.9:YY$.G6$:.24|
00000350: 37 30 3A 47 36 24 B2 59 59 24 3A 8B 41 24 B2 22 |70:G6$.YY$:.A$."|
00000360: 91 22 A7 31 33 30 30 3A 8F 20 3C 20 46 49 45 4C |.".1300:. < FIEL|
00000370: 44 20 35 42 20 45 4E 54 52 59 20 3E 00 BE 0B 28 |D 5B ENTRY >...(|
00000380: 05 4B 58 B2 31 30 3A 59 59 24 B2 47 37 24 3A 8D |.KX.10:YY$.G7$:.|
00000390: 32 34 37 30 3A 47 37 24 B2 59 59 24 3A 8B 41 24 |2470:G7$.YY$:.A$|
000003A0: B2 22 91 22 A7 31 33 31 30 3A 8F 20 3C 20 46 49 |.".".1310:. < FI|
000003B0: 45 4C 44 20 35 43 20 45 4E 54 52 59 20 3E 00 00 |ELD 5C ENTRY >..|
000003C0: 0C 32 05 4B 58 B2 31 31 3A 59 59 24 B2 47 38 24 |.2.KX.11:YY$.G8$|
000003D0: 3A 8D 32 34 37 30 3A 47 38 24 B2 59 59 24 3A 8B |:.2470:G8$.YY$:.|
000003E0: 41 24 B2 22 91 22 A7 31 33 32 30 3A 8F 20 3C 20 |A$.".".1320:. < |
000003F0: 46 49 45 4C 44 20 35 44 20 45 4E 54 52 59 20 3E |FIELD 5D ENTRY >|
00000400: 00 42 0C 3C 05 4B 58 B2 31 32 3A 59 59 24 B2 47 |.B.<.KX.12:YY$.G|
00000410: 39 24 3A 8D 32 34 37 30 3A 47 39 24 B2 59 59 24 |9$:.2470:G9$.YY$|
00000420: 3A 8B 41 24 B2 22 91 22 A7 31 33 33 30 3A 8F 20 |:.A$.".".1330:. |
00000430: 3C 20 46 49 45 4C 44 20 35 45 20 45 4E 54 52 59 |< FIELD 5E ENTRY|
00000440: 20 3E 00 83 0C 46 05 4B 58 B2 31 34 3A 59 59 24 | >...F.KX.14:YY$|
00000450: B2 46 36 24 3A 8D 32 35 32 30 3A 46 36 24 B2 59 |.F6$:.2520:F6$.Y|
00000460: 59 24 3A 8B 41 24 B2 22 91 22 A7 31 33 34 30 3A |Y$:.A$.".".1340:|
00000470: 8F 20 3C 20 46 49 45 4C 44 20 36 20 45 4E 54 52 |. < FIELD 6 ENTR|
00000480: 59 20 3E 00 C4 0C 50 05 4B 58 B2 31 36 3A 59 59 |Y >...P.KX.16:YY|
00000490: 24 B2 46 37 24 3A 8D 32 35 32 30 3A 46 37 24 B2 |$.F7$:.2520:F7$.|
000004A0: 59 59 24 3A 8B 41 24 B2 22 91 22 A7 31 33 35 30 |YY$:.A$.".".1350|
000004B0: 3A 8F 20 3C 20 46 49 45 4C 44 20 37 20 45 4E 54 |:. < FIELD 7 ENT|
000004C0: 52 59 20 3E 00 05 0D 5A 05 4B 58 B2 31 38 3A 59 |RY >...Z.KX.18:Y|
000004D0: 59 24 B2 46 38 24 3A 8D 32 35 32 30 3A 46 38 24 |Y$.F8$:.2520:F8$|
000004E0: B2 59 59 24 3A 8B 41 24 B2 22 91 22 A7 31 33 36 |.YY$:.A$.".".136|
000004F0: 30 3A 8F 20 3C 20 46 49 45 4C 44 20 38 20 45 4E |0:. < FIELD 8 EN|
00000500: 54 52 59 20 3E 00 46 0D 64 05 4B 58 B2 32 30 3A |TRY >.F.d.KX.20:|
00000510: 59 59 24 B2 46 39 24 3A 8D 32 35 32 30 3A 46 39 |YY$.F9$:.2520:F9|
00000520: 24 B2 59 59 24 3A 8B 41 24 B2 22 91 22 A7 31 33 |$.YY$:.A$.".".13|
00000530: 37 30 3A 8F 20 3C 20 46 49 45 4C 44 20 41 20 45 |70:. < FIELD A E|
00000540: 4E 54 52 59 20 3E 00 59 0D 6E 05 8B C5 28 46 33 |NTRY >.Y.n...(F3|
00000550: 24 29 B2 34 A7 31 34 31 30 00 9A 0D 78 05 4B 58 |$).4.1410...x.KX|
00000560: B2 32 32 3A 59 59 24 B2 46 41 24 3A 8D 32 35 32 |.22:YY$.FA$:.252|
00000570: 30 3A 46 41 24 B2 59 59 24 3A 8B 41 24 B2 22 91 |0:FA$.YY$:.A$.".|
00000580: 22 A7 31 33 38 30 3A 8F 20 3C 20 46 49 45 4C 44 |".1380:. < FIELD|
00000590: 20 42 20 45 4E 54 52 59 20 3E 00 B2 0D 82 05 8D | B ENTRY >......|
000005A0: 36 30 30 30 3A 8B 4B 4E 24 B2 22 59 22 A7 31 32 |6000:.KN$."Y".12|
000005B0: 38 30 00 D8 0D 96 05 8D 32 35 37 30 3A 8F 20 3C |80......2570:. <|
000005C0: 2D 2D 3C 3C 20 55 50 44 41 54 45 20 49 4E 54 4F |--<< UPDATE INTO|
000005D0: 20 46 49 4C 45 20 3E 3E 00 F8 0D A0 05 8D 32 36 | FILE >>......26|
000005E0: 31 30 3A 8F 20 3C 2D 2D 3C 3C 20 43 4C 45 41 52 |10:. <--<< CLEAR|
000005F0: 20 44 41 54 41 20 3E 3E 00 08 0E AA 05 82 5A 5A | DATA >>......ZZ|
00000600: 3A 99 22 93 22 3A A0 32 00 27 0E AF 05 A0 31 35 |:.".":.2.'....15|
00000610: 3A 9F 31 35 2C 38 2C 31 35 2C 22 53 30 3A 22 AA |:.15,8,15,"S0:".|
00000620: 46 31 24 3A A0 31 35 00 50 0E B0 05 9F 31 35 2C |F1$:.15.P....15,|
00000630: 38 2C 31 35 2C 22 52 30 3A 22 AA 46 31 24 AA 22 |8,15,"R0:".F1$."|
00000640: 3D 30 3A 22 AA 46 31 24 AA 22 31 22 3A A0 31 35 |=0:".F1$."1":.15|
00000650: 00 71 0E B1 05 9F 31 35 2C 38 2C 31 35 2C 22 53 |.q....15,8,15,"S|
00000660: 30 3A 22 AA 46 31 24 AA 22 31 22 3A A0 31 35 3A |0:".F1$."1":.15:|
00000670: 80 00 99 0E B4 05 8F 20 3C 2D 2D 2D 2D 3C 3C 20 |....... <----<< |
00000680: 4B 45 59 42 4F 41 52 44 20 45 4E 54 52 59 20 52 |KEYBOARD ENTRY R|
00000690: 4F 55 54 49 4E 45 20 3E 3E 00 CF 0E BE 05 4B 4C |OUTINE >>.....KL|
000006A0: B2 C3 28 4B 4E 24 29 3A 99 C8 28 43 44 24 2C 4B |..(KN$):..(CD$,K|
000006B0: 58 29 A6 4B 59 29 4B 4E 24 C8 28 42 4C 24 2C 4B |X).KY)KN$.(BL$,K|
000006C0: 4E AB 4B 4C 29 C8 28 43 4C 24 2C 4B 4E 29 3B 00 |N.KL).(CL$,KN);.|
000006D0: D8 0E C8 05 4B 50 B2 31 00 0D 0F D2 05 4B 52 B2 |....KP.1.....KR.|
000006E0: 32 3A 8B CA 28 4B 4E 24 2C 4B 50 2C 31 29 B2 22 |2:..(KN$,KP,1)."|
000006F0: 22 A7 99 22 12 20 92 9D 22 3B 3A 8D 31 37 34 30 |"..". ..";:.1740|
00000700: 3A 8B 41 24 B3 B1 22 22 A7 31 35 36 30 00 41 0F |:.A$.."".1560.A.|
00000710: DC 05 4B 52 B2 33 3A 8B CA 28 4B 4E 24 2C 4B 50 |..KR.3:..(KN$,KP|
00000720: 2C 31 29 B2 22 22 A7 99 22 92 20 9D 22 3B 3A 8D |,1).""..". .";:.|
00000730: 31 37 34 30 3A 8B 41 24 B3 B1 22 22 A7 31 35 36 |1740:.A$.."".156|
00000740: 30 00 70 0F E6 05 4B 52 B2 34 3A 8B CA 28 4B 4E |0.p...KR.4:..(KN|
00000750: 24 2C 4B 50 2C 31 29 B3 B1 22 22 A7 99 22 12 22 |$,KP,1).."".."."|
00000760: CA 28 4B 4E 24 2C 4B 50 2C 31 29 22 92 9D 22 3B |.(KN$,KP,1)"..";|
00000770: 00 98 0F F0 05 8B CA 28 4B 4E 24 2C 4B 50 2C 31 |.......(KN$,KP,1|
00000780: 29 B3 B1 22 22 A7 8D 31 37 34 30 3A 8B 41 24 B3 |)..""..1740:.A$.|
00000790: B1 22 22 A7 31 35 36 30 00 C6 0F FA 05 4B 52 B2 |."".1560.....KR.|
000007A0: 31 3A 8B CA 28 4B 4E 24 2C 4B 50 2C 31 29 B3 B1 |1:..(KN$,KP,1)..|
000007B0: 22 22 A7 99 22 92 22 CA 28 4B 4E 24 2C 4B 50 2C |""..".".(KN$,KP,|
000007C0: 31 29 22 9D 22 3B 00 EE 0F 04 06 8B CA 28 4B 4E |1)".";.......(KN|
000007D0: 24 2C 4B 50 2C 31 29 B3 B1 22 22 A7 8D 31 37 34 |$,KP,1)..""..174|
000007E0: 30 3A 8B 41 24 B3 B1 22 22 A7 31 35 36 30 00 0A |0:.A$.."".1560..|
000007F0: 10 0E 06 91 4B 52 89 31 34 39 30 2C 31 35 30 30 |....KR.1490,1500|
00000800: 2C 31 35 31 30 2C 31 35 33 30 00 2D 10 18 06 4B |,1510,1530.-...K|
00000810: 4C B2 C3 28 4B 4E 24 29 3A 8B 41 24 B2 22 93 22 |L..(KN$):.A$."."|
00000820: A7 4B 4E 24 B2 22 22 3A 89 31 34 37 30 00 4E 10 |.KN$."":.1470.N.|
00000830: 22 06 8B 41 24 B2 C7 28 31 34 38 29 AF 4B 4C B3 |"..A$..(148).KL.|
00000840: 4B 4E A7 8D 31 38 31 30 3A 89 31 35 35 30 00 6D |KN..1810:.1550.m|
00000850: 10 2C 06 8B 41 24 B2 C7 28 32 30 29 AF 4B 50 B1 |.,..A$..(20).KP.|
00000860: 31 A7 8D 31 37 38 30 3A 89 31 35 35 30 00 9B 10 |1..1780:.1550...|
00000870: 36 06 8B 41 24 B2 22 9D 22 AF 4B 50 B1 4B 4C AF |6..A$.".".KP.KL.|
00000880: 4B 50 B1 31 A7 4B 50 B2 4B 50 AB 31 3A 99 22 92 |KP.1.KP.KP.1:.".|
00000890: 20 9D 9D 22 3B 3A 89 31 35 35 30 00 CF 10 40 06 | ..";:.1550...@.|
000008A0: 8B 41 24 B2 22 9D 22 AF 4B 50 B1 31 A7 99 22 92 |.A$.".".KP.1..".|
000008B0: 22 CA 28 4B 4E 24 2C 4B 50 2C 31 29 22 9D 9D 22 |".(KN$,KP,1)".."|
000008C0: 3B 3A 4B 50 B2 4B 50 AB 31 3A 89 31 35 35 30 00 |;:KP.KP.1:.1550.|
000008D0: 04 11 4A 06 8B 41 24 B2 22 1D 22 AF 4B 50 B3 B2 |..J..A$.".".KP..|
000008E0: 4B 4C AF 4B 50 B3 4B 4E A7 99 CA 28 4B 4E 24 2C |KL.KP.KN...(KN$,|
000008F0: 4B 50 2C 31 29 3B 3A 4B 50 B2 4B 50 AA 31 3A 89 |KP,1);:KP.KP.1:.|
00000900: 31 38 33 30 00 23 11 54 06 8B 41 24 B2 22 09 22 |1830.#.T..A$."."|
00000910: AF 4B 4C B1 B2 4B 50 A7 8D 31 37 36 30 3A 89 31 |.KL..KP..1760:.1|
00000920: 35 35 30 00 5B 11 5E 06 8B 41 24 B2 C7 28 33 34 |550.[.^..A$..(34|
00000930: 29 B0 41 24 B2 22 2C 22 A7 31 35 35 30 3A 8F 20 |).A$.",".1550:. |
00000940: 3C 2D 2D 3C 3C 20 53 4B 49 50 20 55 4E 57 41 4E |<--<< SKIP UNWAN|
00000950: 54 45 44 20 43 48 41 52 20 3E 3E 00 9D 11 68 06 |TED CHAR >>...h.|
00000960: 8B 4B 53 B2 31 AF 28 28 41 24 B1 B2 22 30 22 AF |.KS.1.((A$.."0".|
00000970: 41 24 B3 B2 22 39 22 29 B0 41 24 B2 22 2E 22 B0 |A$.."9").A$.".".|
00000980: 41 24 B2 22 2D 22 29 A7 31 36 39 30 3A 8F 20 3C |A$."-").1690:. <|
00000990: 2D 3C 3C 20 4E 55 4D 42 45 52 20 3E 3E 00 D7 11 |-<< NUMBER >>...|
000009A0: 72 06 8B 4B 53 B1 B2 32 AF 28 41 24 B1 B2 22 20 |r..KS..2.(A$.." |
000009B0: 22 AF 41 24 B3 B2 22 5F 22 29 A7 31 36 39 30 3A |".A$.."_").1690:|
000009C0: 8F 20 3C 2D 2D 3C 3C 20 41 4C 50 48 41 20 54 49 |. <--<< ALPHA TI|
000009D0: 4C 4C 20 5F 20 3E 3E 00 14 12 7C 06 8B 4B 53 B2 |LL _ >>...|..KS.|
000009E0: 33 AF 28 41 24 B1 B2 22 C1 22 AF 41 24 B3 B2 22 |3.(A$..".".A$.."|
000009F0: DA 22 29 A7 31 36 39 30 3A 8F 20 3C 2D 2D 3C 3C |.").1690:. <--<<|
00000A00: 20 41 4C 50 48 41 20 54 49 4C 4C 20 43 41 50 2D | ALPHA TILL CAP-|
00000A10: 5A 20 3E 3E 00 3C 12 86 06 8B 41 24 B2 C7 28 31 |Z >>.<....A$..(1|
00000A20: 33 29 B0 41 24 B2 22 91 22 B0 41 24 B2 22 11 22 |3).A$.".".A$."."|
00000A30: B0 41 24 B2 22 13 22 A7 31 37 32 30 00 46 12 90 |.A$.".".1720.F..|
00000A40: 06 89 31 35 35 30 00 74 12 9A 06 4D B2 C3 28 4B |..1550.t...M..(K|
00000A50: 4E 24 29 3A 4B 4E 24 B2 C8 28 4B 4E 24 2C 4B 50 |N$):KN$..(KN$,KP|
00000A60: AB 31 29 AA 41 24 AA CA 28 4B 4E 24 2C 4B 50 AA |.1).A$..(KN$,KP.|
00000A70: 31 2C 4D 29 00 93 12 A4 06 4B 50 B2 4B 50 AA 31 |1,M).....KP.KP.1|
00000A80: 3A 99 41 24 3B 3A 8B 4B 50 B2 36 36 A7 99 C7 28 |:.A$;:.KP.66...(|
00000A90: 37 29 3B 00 A4 12 AE 06 8B 4B 50 B3 B2 4B 4E A7 |7);......KP..KN.|
00000AA0: 31 35 35 30 00 CC 12 B8 06 99 C8 28 43 44 24 2C |1550.......(CD$,|
00000AB0: 4B 58 29 A6 4B 59 29 4B 4E 24 3B 3A 8B C3 28 4B |KX).KY)KN$;:..(K|
00000AC0: 4E 24 29 B3 4B 4E A7 99 22 20 22 3B 00 D2 12 C2 |N$).KN.." ";....|
00000AD0: 06 8E 00 EE 12 CC 06 81 4B 49 B2 31 A4 4B 46 3A |........KI.1.KF:|
00000AE0: A1 41 24 3A 8B 41 24 B2 22 22 A7 82 4B 49 00 F4 |.A$:.A$.""..KI..|
00000AF0: 12 D6 06 8E 00 24 13 E0 06 99 CA 28 4B 4E 24 2C |.....$.....(KN$,|
00000B00: 4B 50 2C 4B 4C 29 3B 3A 4B 50 B2 4B 4C AA 31 3A |KP,KL);:KP.KL.1:|
00000B10: 8B 4B 4E B2 4B 4C A7 99 22 9D 22 3B 3A 4B 50 B2 |.KN.KL..".";:KP.|
00000B20: 4B 50 AB 31 00 2A 13 EA 06 8E 00 5B 13 F4 06 8B |KP.1.*.....[....|
00000B30: 4B 50 B1 C3 28 4B 4E 24 29 A7 99 22 20 9D 9D 22 |KP..(KN$).." .."|
00000B40: 3B 3A 4B 50 B2 4B 50 AB 31 3A 4B 4E 24 B2 C8 28 |;:KP.KP.1:KN$..(|
00000B50: 4B 4E 24 2C 4B 50 AB 31 29 3A 8E 00 8C 13 FE 06 |KN$,KP.1):......|
00000B60: 4D B2 C3 28 4B 4E 24 29 3A 4B 4E 24 B2 C8 28 4B |M..(KN$):KN$..(K|
00000B70: 4E 24 2C 4B 50 AB 32 29 AA CA 28 4B 4E 24 2C 4B |N$,KP.2)..(KN$,K|
00000B80: 50 2C 4D 29 3A 4B 50 B2 4B 50 AB 31 00 BA 13 08 |P,M):KP.KP.1....|
00000B90: 07 99 C8 28 43 44 24 2C 4B 58 29 A6 4B 59 29 4B |...(CD$,KX).KY)K|
00000BA0: 4E 24 22 20 22 C8 28 43 44 24 2C 4B 58 29 A6 4B |N$" ".(CD$,KX).K|
00000BB0: 59 AA 4B 50 AB 31 29 3B 3A 8E 00 E7 13 12 07 4D |Y.KP.1);:......M|
00000BC0: B2 C3 28 4B 4E 24 29 3A 4B 4E 24 B2 C8 28 4B 4E |..(KN$):KN$..(KN|
00000BD0: 24 2C 4B 50 AB 31 29 AA 22 20 22 AA CA 28 4B 4E |$,KP.1)." "..(KN|
00000BE0: 24 2C 4B 50 2C 4D 29 00 12 14 1C 07 99 C8 28 43 |$,KP,M).......(C|
00000BF0: 44 24 2C 4B 58 29 A6 4B 59 29 4B 4E 24 C8 28 43 |D$,KX).KY)KN$.(C|
00000C00: 44 24 2C 4B 58 29 A6 4B 59 AA 4B 50 AB 31 29 3B |D$,KX).KY.KP.1);|
00000C10: 3A 8E 00 24 14 26 07 8B 4B 50 B2 36 36 A7 99 C7 |:..$.&..KP.66...|
00000C20: 28 37 29 3B 00 2E 14 30 07 89 31 35 35 30 00 50 |(7);...0..1550.P|
00000C30: 14 3A 07 8F 20 3C 2D 2D 2D 2D 3C 3C 20 44 49 53 |.:.. <----<< DIS|
00000C40: 50 4C 41 59 20 4D 45 53 53 41 47 45 53 20 3E 3E |PLAY MESSAGES >>|
00000C50: 00 75 14 44 07 99 22 13 22 53 31 24 A6 28 34 30 |.u.D.."."S1$.(40|
00000C60: AB C3 28 4D 24 29 29 AD 32 29 22 12 22 4D 24 3A |..(M$)).2)"."M$:|
00000C70: 99 53 31 24 3B 00 7B 14 4E 07 8E 00 A5 14 58 07 |.S1$;.{.N.....X.|
00000C80: 8F 20 3C 2D 2D 2D 2D 3C 3C 20 44 49 53 50 4C 41 |. <----<< DISPLA|
00000C90: 59 20 52 45 4D 41 52 4B 53 20 4D 45 53 53 41 47 |Y REMARKS MESSAG|
00000CA0: 45 53 20 3E 3E 00 D5 14 62 07 99 C8 28 43 44 24 |ES >>...b...(CD$|
00000CB0: 2C 58 29 C8 28 42 4C 24 2C 33 39 29 C8 28 43 44 |,X).(BL$,39).(CD|
00000CC0: 24 2C 58 29 A6 28 34 30 AB C3 28 4D 24 29 29 AD |$,X).(40..(M$)).|
00000CD0: 32 29 4D 24 3B 00 DB 14 6C 07 8E 00 15 15 76 07 |2)M$;...l.....v.|
00000CE0: 8F 20 3C 2D 2D 2D 2D 3C 3C 20 44 49 53 50 4C 41 |. <----<< DISPLA|
00000CF0: 59 20 4D 45 53 53 41 47 45 53 20 41 4E 44 20 57 |Y MESSAGES AND W|
00000D00: 41 49 54 20 46 4F 52 20 44 41 54 41 20 45 4E 54 |AIT FOR DATA ENT|
00000D10: 52 59 20 3E 3E 00 2E 15 80 07 99 C8 28 43 44 24 |RY >>.......(CD$|
00000D20: 2C 4B 58 29 C8 28 42 4C 24 2C 33 39 29 3B 00 65 |,KX).(BL$,39);.e|
00000D30: 15 8A 07 99 C8 28 43 44 24 2C 4B 58 29 A6 28 33 |.....(CD$,KX).(3|
00000D40: 39 AB C3 28 4D 24 29 29 AD 32 29 4D 24 3B 3A 4B |9..(M$)).2)M$;:K|
00000D50: 4E B2 31 3A 4B 53 B2 32 3A 4B 4E 24 B2 22 22 3A |N.1:KS.2:KN$."":|
00000D60: 8D 31 34 36 30 00 76 15 94 07 8B 4B 4E 24 B2 22 |.1460.v....KN$."|
00000D70: 22 A7 31 39 33 30 00 92 15 9E 07 8B 4B 4E 24 B3 |".1930......KN$.|
00000D80: B1 22 59 22 AF 4B 4E 24 B3 B1 22 4E 22 A7 31 39 |."Y".KN$.."N".19|
00000D90: 33 30 00 98 15 A8 07 8E 00 BF 15 B2 07 8F 20 3C |30............ <|
00000DA0: 2D 2D 2D 2D 3C 3C 20 52 45 44 49 53 50 4C 41 59 |----<< REDISPLAY|
00000DB0: 20 44 41 54 41 20 53 54 52 49 4E 47 20 3E 3E 00 | DATA STRING >>.|
00000DC0: EA 15 BC 07 99 C8 28 43 44 24 2C 4B 58 29 A6 4B |......(CD$,KX).K|
00000DD0: 59 29 C8 28 42 4C 24 2C 42 29 C8 28 43 44 24 2C |Y).(BL$,B).(CD$,|
00000DE0: 4B 58 29 A6 4B 59 29 4D 24 3B 00 F0 15 C6 07 8E |KX).KY)M$;......|
00000DF0: 00 11 16 D0 07 8F 20 3C 2D 2D 2D 2D 3C 3C 20 53 |...... <----<< S|
00000E00: 43 52 45 45 4E 20 46 4F 52 4D 41 54 20 31 20 3E |CREEN FORMAT 1 >|
00000E10: 3E 00 35 16 DA 07 99 22 11 11 11 12 31 2E 92 20 |>.5...."....1.. |
00000E20: C2 4F 4F 4B 20 D4 49 54 4C 45 20 20 20 20 20 20 |.OOK .ITLE |
00000E30: 20 3A 22 3A 99 00 56 16 E4 07 99 22 12 32 2E 92 | :":..V....".2..|
00000E40: 20 CE 4F 2E 20 4F 46 20 D1 55 45 53 54 49 4F 4E | .O. OF .UESTION|
00000E50: 53 20 3A 22 3A 99 00 75 16 EE 07 99 22 12 33 2E |S :":..u....".3.|
00000E60: 92 20 CE 4F 2E 20 4F 46 20 C3 48 4F 49 43 45 53 |. .O. OF .HOICES|
00000E70: 20 20 20 3A 22 00 88 16 F8 07 99 C8 28 43 44 24 | :".......(CD$|
00000E80: 2C 32 33 29 53 32 24 3B 00 8E 16 02 08 8E 00 AF |,23)S2$;........|
00000E90: 16 0C 08 8F 20 3C 2D 2D 2D 2D 3C 3C 20 53 43 52 |.... <----<< SCR|
00000EA0: 45 45 4E 20 46 4F 52 4D 41 54 20 32 20 3E 3E 00 |EEN FORMAT 2 >>.|
00000EB0: D5 16 16 08 99 22 93 13 22 3A 4D 24 B2 22 20 C5 |....."..":M$." .|
00000EC0: 4E 54 45 52 20 D1 55 45 53 54 49 4F 4E 20 22 3A |NTER .UESTION ":|
00000ED0: 8D 31 38 35 30 00 F1 16 20 08 99 A6 35 29 22 D1 |.1850... ...5)".|
00000EE0: D5 C5 D3 D4 C9 CF CE 20 CE D5 CD C2 C5 D2 20 3A |....... ...... :|
00000EF0: 22 00 0F 17 2A 08 99 22 12 20 31 2E 92 20 C3 4F |"...*..". 1.. .O|
00000F00: 52 52 45 43 54 20 C1 4E 53 57 45 52 20 3A 22 00 |RRECT .NSWER :".|
00000F10: 2D 17 34 08 99 22 12 20 32 2E 92 20 D1 55 45 53 |-.4..". 2.. .UES|
00000F20: 54 49 4F 4E 20 C9 53 20 20 20 20 3A 22 00 3D 17 |TION .S :".=.|
00000F30: 3E 08 99 3A 99 3A 99 3A 99 3A 99 3A 99 00 70 17 |>..:.:.:.:.:..p.|
00000F40: 48 08 81 4E B2 31 A4 C5 28 46 33 24 29 3A 99 22 |H..N.1..(F3$):."|
00000F50: 12 22 AA C4 28 4E AA 32 29 AA 22 2E 92 20 C3 48 |."..(N.2).".. .H|
00000F60: 4F 49 43 45 22 AA C4 28 4E 29 AA 22 20 20 3A 22 |OICE"..(N)." :"|
00000F70: 00 79 17 52 08 99 3A 82 4E 00 8C 17 5C 08 99 C8 |.y.R..:.N...\...|
00000F80: 28 43 44 24 2C 32 33 29 53 32 24 3B 00 92 17 66 |(CD$,23)S2$;...f|
00000F90: 08 8E 00 B5 17 70 08 8F 20 3C 2D 2D 2D 2D 3C 3C |.....p.. <----<<|
00000FA0: 20 43 48 45 43 4B 20 46 49 4C 45 20 45 58 49 53 | CHECK FILE EXIS|
00000FB0: 54 53 20 3E 3E 00 D8 17 7A 08 4D 4D B2 30 3A 4D |TS >>...z.MM.0:M|
00000FC0: 4F 24 B2 46 31 24 AA 22 2C 53 2C 52 22 3A 9F 32 |O$.F1$.",S,R":.2|
00000FD0: 2C 38 2C 32 2C 4D 4F 24 00 E3 17 84 08 84 31 35 |,8,2,MO$......15|
00000FE0: 2C 45 53 00 20 18 8E 08 8B 45 53 B2 36 32 A7 4D |,ES. ....ES.62.M|
00000FF0: 4D B2 31 3A 4D 24 B2 22 20 C5 52 52 4F 52 20 2D |M.1:M$." .RROR -|
00001000: 20 C6 49 4C 45 20 C4 4F 45 53 20 CE 4F 54 20 C5 | .ILE .OES .OT .|
00001010: 58 49 53 54 53 20 22 3A A0 32 3A 8D 32 37 35 30 |XISTS ":.2:.2750|
00001020: 00 26 18 98 08 8E 00 48 18 A2 08 8F 20 3C 2D 2D |.&.....H.... <--|
00001030: 2D 2D 3C 3C 20 55 50 44 41 54 45 20 49 4E 54 4F |--<< UPDATE INTO|
00001040: 20 46 49 4C 45 20 3E 3E 00 5F 18 AC 08 9F 33 2C | FILE >>._....3,|
00001050: 38 2C 33 2C 46 31 24 AA 22 31 2C 53 2C 57 22 00 |8,3,F1$."1,S,W".|
00001060: 75 18 B6 08 98 33 2C 46 32 24 3B 55 24 3B 46 33 |u....3,F2$;U$;F3|
00001070: 24 3B 55 24 3B 00 7B 18 C0 08 8E 00 A1 18 CA 08 |$;U$;.{.........|
00001080: 8F 20 3C 2D 2D 2D 2D 3C 3C 20 45 4E 54 52 59 20 |. <----<< ENTRY |
00001090: 31 20 2D 20 42 4F 4F 4B 20 54 49 54 4C 45 20 3E |1 - BOOK TITLE >|
000010A0: 3E 00 D8 18 D4 08 4D 24 B2 22 C5 4E 54 45 52 20 |>.....M$.".NTER |
000010B0: C2 4F 4F 4B 20 D4 49 54 4C 45 20 28 20 31 35 20 |.OOK .ITLE ( 15 |
000010C0: 43 48 41 52 41 43 54 45 52 53 20 29 22 3A 58 B2 |CHARACTERS )":X.|
000010D0: 32 34 3A 8D 31 38 38 30 00 11 19 DE 08 4B 53 B2 |24:.1880.....KS.|
000010E0: 33 3A 4B 4E 24 B2 46 31 24 3A 4B 4E B2 31 35 3A |3:KN$.F1$:KN.15:|
000010F0: 4B 58 B2 37 3A 4B 59 B2 32 32 3A 8D 31 34 36 30 |KX.7:KY.22:.1460|
00001100: 3A 8B 4B 4E 24 B3 B1 22 22 A7 46 31 24 B2 4B 4E |:.KN$.."".F1$.KN|
00001110: 24 00 29 19 E8 08 4D 24 B2 46 31 24 3A 8B 46 31 |$.)...M$.F1$:.F1|
00001120: 24 B2 22 22 A7 32 32 37 30 00 38 19 F2 08 42 B2 |$."".2270.8...B.|
00001130: 31 35 3A 8D 31 39 37 30 00 3E 19 FC 08 8E 00 60 |15:.1970.>.....`|
00001140: 19 74 09 8F 20 3C 2D 2D 2D 2D 3C 3C 20 45 4E 54 |.t.. <----<< ENT|
00001150: 52 59 20 34 20 2D 20 41 4E 53 57 45 52 20 3E 3E |RY 4 - ANSWER >>|
00001160: 00 98 19 7E 09 4B 53 B2 31 3A 4B 4E 24 B2 46 34 |...~.KS.1:KN$.F4|
00001170: 24 3A 4B 4E B2 31 3A 4B 58 B2 35 3A 4B 59 B2 32 |$:KN.1:KX.5:KY.2|
00001180: 31 3A 8D 31 34 36 30 3A 8B 4B 4E 24 B3 B1 22 22 |1:.1460:.KN$..""|
00001190: A7 46 34 24 B2 4B 4E 24 00 B0 19 88 09 4D 24 B2 |.F4$.KN$.....M$.|
000011A0: 46 34 24 3A 8B 46 34 24 B2 22 22 A7 32 34 33 30 |F4$:.F4$."".2430|
000011B0: 00 BE 19 92 09 42 B2 31 3A 8D 31 39 37 30 00 C4 |.....B.1:.1970..|
000011C0: 19 9C 09 8E 00 E9 19 A6 09 8F 20 3C 2D 2D 2D 2D |.......... <----|
000011D0: 3C 3C 20 45 4E 54 52 59 20 35 20 2D 20 51 55 45 |<< ENTRY 5 - QUE|
000011E0: 53 54 49 4F 4E 53 20 3E 3E 00 1C 1A B0 09 4B 53 |STIONS >>.....KS|
000011F0: B2 33 3A 4B 4E 24 B2 59 59 24 3A 4B 4E B2 34 30 |.3:KN$.YY$:KN.40|
00001200: 3A 4B 59 B2 30 3A 8D 31 34 36 30 3A 8B 4B 4E 24 |:KY.0:.1460:.KN$|
00001210: B3 B1 22 22 A7 59 59 24 B2 4B 4E 24 00 34 1A BA |.."".YY$.KN$.4..|
00001220: 09 4D 24 B2 59 59 24 3A 8B 59 59 24 B2 22 22 A7 |.M$.YY$:.YY$."".|
00001230: 32 34 38 30 00 43 1A C4 09 42 B2 34 30 3A 8D 31 |2480.C...B.40:.1|
00001240: 39 37 30 00 49 1A CE 09 8E 00 6B 1A D8 09 8F 20 |970.I.....k.... |
00001250: 3C 2D 2D 2D 2D 3C 3C 20 45 4E 54 52 59 20 36 20 |<----<< ENTRY 6 |
00001260: 2D 20 43 48 4F 49 43 45 20 3E 3E 00 9E 1A E2 09 |- CHOICE >>.....|
00001270: 4B 53 B2 33 3A 4B 4E 24 B2 59 59 24 3A 4B 4E B2 |KS.3:KN$.YY$:KN.|
00001280: 33 38 3A 4B 59 B2 31 3A 8D 31 34 36 30 3A 8B 4B |38:KY.1:.1460:.K|
00001290: 4E 24 B3 B1 22 22 A7 59 59 24 B2 4B 4E 24 00 B6 |N$.."".YY$.KN$..|
000012A0: 1A EC 09 4D 24 B2 59 59 24 3A 8B 59 59 24 B2 22 |...M$.YY$:.YY$."|
000012B0: 22 A7 32 35 33 30 00 C5 1A F6 09 42 B2 33 38 3A |".2530.....B.38:|
000012C0: 8D 31 39 37 30 00 CB 1A 00 0A 8E 00 F6 1A 0A 0A |.1970...........|
000012D0: 8F 20 3C 2D 2D 2D 2D 3C 3C 20 55 50 44 41 54 45 |. <----<< UPDATE|
000012E0: 20 54 48 45 20 52 45 53 54 20 49 4E 54 4F 20 46 | THE REST INTO F|
000012F0: 49 4C 45 20 3E 3E 00 2F 1B 14 0A 98 33 2C 46 34 |ILE >>./....3,F4|
00001300: 24 3B 55 24 3B 46 35 24 3B 55 24 3B 47 35 24 3B |$;U$;F5$;U$;G5$;|
00001310: 55 24 3B 47 36 24 3B 55 24 3B 47 37 24 3B 55 24 |U$;G6$;U$;G7$;U$|
00001320: 3B 47 38 24 3B 55 24 3B 47 39 24 3B 55 24 3B 00 |;G8$;U$;G9$;U$;.|
00001330: 5A 1B 1E 0A 98 33 2C 46 36 24 3B 55 24 3B 46 37 |Z....3,F6$;U$;F7|
00001340: 24 3B 55 24 3B 46 38 24 3B 55 24 3B 46 39 24 3B |$;U$;F8$;U$;F9$;|
00001350: 55 24 3B 46 41 24 3B 55 24 3B 00 60 1B 28 0A 8E |U$;FA$;U$;.`.(..|
00001360: 00 7C 1B 32 0A 8F 20 3C 2D 2D 2D 2D 3C 3C 20 43 |.|.2.. <----<< C|
00001370: 4C 45 41 52 20 44 41 54 41 20 3E 3E 00 9A 1B 3C |LEAR DATA >>...<|
00001380: 0A 99 22 13 11 11 11 22 A6 32 31 29 C8 28 42 4C |.."....".21).(BL|
00001390: 24 2C 31 37 29 3A 99 22 11 22 00 B4 1B 46 0A 81 |$,17):."."...F..|
000013A0: 4D B2 31 A4 36 3A 99 C8 28 42 4C 24 2C 34 30 29 |M.1.6:..(BL$,40)|
000013B0: 3B 3A 82 4D 00 D5 1B 50 0A 81 4D B2 31 A4 C5 28 |;:.M...P..M.1..(|
000013C0: 46 33 24 29 3A 99 22 11 22 C8 28 42 4C 24 2C 33 |F3$):.".".(BL$,3|
000013D0: 39 29 3A 82 4D 00 03 1C 5A 0A 46 34 24 B2 22 22 |9):.M...Z.F4$.""|
000013E0: 3A 46 36 24 B2 22 22 3A 46 37 24 B2 22 22 3A 46 |:F6$."":F7$."":F|
000013F0: 38 24 B2 22 22 3A 46 39 24 B2 22 22 3A 46 41 24 |8$."":F9$."":FA$|
00001400: B2 22 22 00 39 1C 64 0A 46 35 24 B2 C7 28 33 32 |."".9.d.F5$..(32|
00001410: 29 3A 47 35 24 B2 46 35 24 3A 47 36 24 B2 46 35 |):G5$.F5$:G6$.F5|
00001420: 24 3A 47 37 24 B2 46 35 24 3A 47 38 24 B2 46 35 |$:G7$.F5$:G8$.F5|
00001430: 24 3A 47 39 24 B2 46 35 24 00 3F 1C 6E 0A 8E 00 |$:G9$.F5$.?.n...|
00001440: 67 1C BE 0A 8F 20 3C 2D 2D 2D 2D 3C 3C 20 45 52 |g.... <----<< ER|
00001450: 52 4F 52 20 4D 45 53 53 41 47 45 53 20 44 49 53 |ROR MESSAGES DIS|
00001460: 50 4C 41 59 20 3E 3E 00 86 1C C8 0A 99 C8 28 43 |PLAY >>.......(C|
00001470: 44 24 2C 58 29 C8 28 42 4C 24 2C 33 39 29 3A 81 |D$,X).(BL$,39):.|
00001480: 42 42 B2 31 A4 34 00 B2 1C D2 0A 99 C8 28 43 44 |BB.1.4.......(CD|
00001490: 24 2C 58 29 A6 28 34 30 AB C3 28 4D 24 29 29 AD |$,X).(40..(M$)).|
000014A0: 32 29 22 12 22 4D 24 3B 3A 81 54 B2 31 A4 42 53 |2)"."M$;:.T.1.BS|
000014B0: 3A 82 00 E0 1C DC 0A 99 C8 28 43 44 24 2C 58 29 |:........(CD$,X)|
000014C0: A6 28 34 30 AB C3 28 4D 24 29 29 AD 32 29 22 92 |.(40..(M$)).2)".|
000014D0: 22 4D 24 3B 3A 81 54 B2 31 A4 42 53 AD 32 3A 82 |"M$;:.T.1.BS.2:.|
000014E0: 00 E8 1C E6 0A 82 42 42 00 FA 1C F0 0A 99 C8 28 |......BB.......(|
000014F0: 43 44 24 2C 58 29 42 4C 24 3B 00 00 1D FA 0A 8E |CD$,X)BL$;......|
00001500: 00 28 1D 88 0E 8F 20 3C 2D 2D 2D 2D 3C 3C 20 41 |.(.... <----<< A|
00001510: 44 4A 55 53 54 20 32 20 44 45 43 49 4D 41 4C 20 |DJUST 2 DECIMAL |
00001520: 50 4C 41 43 45 20 3E 3E 00 5D 1D 92 0E 50 49 B2 |PLACE >>.]...PI.|
00001530: C5 28 49 50 24 29 3A 49 50 24 B2 CA 28 C4 28 B5 |.(IP$):IP$..(.(.|
00001540: 28 C5 28 49 50 24 29 AC 31 30 30 AA 2E 35 29 29 |(.(IP$).100..5))|
00001550: 2C 32 29 3A 49 50 B2 C3 28 49 50 24 29 00 7B 1D |,2):IP..(IP$).{.|
00001560: 9C 0E 8B 49 50 B2 31 A7 49 50 24 B2 22 30 2E 30 |...IP.1.IP$."0.0|
00001570: 22 AA 49 50 24 3A 89 33 37 37 30 00 98 1D A6 0E |".IP$:.3770.....|
00001580: 8B 49 50 B2 32 A7 49 50 24 B2 22 30 2E 22 AA 49 |.IP.2.IP$."0.".I|
00001590: 50 24 3A 89 33 37 37 30 00 BD 1D B0 0E 49 50 24 |P$:.3770.....IP$|
000015A0: B2 C8 28 49 50 24 2C C3 28 49 50 24 29 AB 32 29 |..(IP$,.(IP$).2)|
000015B0: AA 22 2E 22 AA C9 28 49 50 24 2C 32 29 00 D3 1D |."."..(IP$,2)...|
000015C0: BA 0E 8B 50 49 B3 30 A7 49 50 24 B2 22 2D 22 AA |...PI.0.IP$."-".|
000015D0: 49 50 24 00 D9 1D C4 0E 8E 00 FC 1D 88 13 8F 20 |IP$............ |
000015E0: 3C 2D 2D 2D 2D 3C 3C 20 44 49 53 50 4C 41 59 20 |<----<< DISPLAY |
000015F0: 4D 45 53 53 41 47 45 20 31 20 3E 3E 00 0B 1E 9C |MESSAGE 1 >>....|
00001600: 13 84 32 2C 46 32 24 2C 46 33 24 00 2F 1E A6 13 |..2,F2$,F3$./...|
00001610: 54 4D 24 B2 46 32 24 3A 4D 24 B2 46 32 24 3A 4B |TM$.F2$:M$.F2$:K|
00001620: 58 B2 39 3A 4B 59 B2 32 32 3A 8D 31 39 37 30 00 |X.9:KY.22:.1970.|
00001630: 4E 1E B0 13 54 4E 24 B2 46 33 24 3A 4D 24 B2 46 |N...TN$.F3$:M$.F|
00001640: 33 24 3A 4B 58 B2 31 31 3A 8D 31 39 37 30 00 54 |3$:KX.11:.1970.T|
00001650: 1E BA 13 8E 00 72 1E 70 17 8F 20 3C 2D 2D 2D 2D |.....r.p.. <----|
00001660: 3C 3C 20 41 53 4B 20 51 55 45 53 54 49 4F 4E 20 |<< ASK QUESTION |
00001670: 3E 3E 00 B5 1E 7A 17 4D 24 B2 22 C4 4F 20 59 4F |>>...z.M$.".O YO|
00001680: 55 20 57 41 4E 54 20 54 4F 20 43 48 41 4E 47 45 |U WANT TO CHANGE|
00001690: 20 54 48 45 20 41 42 4F 56 45 20 D9 2F CE 20 5B | THE ABOVE ./. [|
000016A0: 20 5D 22 3A 4B 58 B2 32 34 3A 4B 59 B2 33 37 3A | ]":KX.24:KY.37:|
000016B0: 8D 31 39 31 30 00 BB 1E 84 17 8E 00 DE 1E 58 1B |.1910.........X.|
000016C0: 8F 20 3C 2D 2D 2D 2D 3C 3C 20 44 49 53 50 4C 41 |. <----<< DISPLA|
000016D0: 59 20 4D 45 53 53 41 47 45 20 32 20 3E 3E 00 FA |Y MESSAGE 2 >>..|
000016E0: 1E 6C 1B 81 52 52 B2 31 A4 31 31 3A 84 32 2C 47 |.l..RR.1.11:.2,G|
000016F0: 47 24 28 52 52 29 3A 82 52 52 00 1C 1F 71 1B 4D |G$(RR):.RR...q.M|
00001700: 24 B2 C4 28 5A 5A 29 3A 4B 58 B2 34 3A 4B 59 B2 |$..(ZZ):KX.4:KY.|
00001710: 32 32 3A 42 B2 33 3A 8D 31 39 37 30 00 41 1F 72 |22:B.3:.1970.A.r|
00001720: 1B 46 34 24 B2 47 47 24 28 31 29 3A 46 35 24 B2 |.F4$.GG$(1):F5$.|
00001730: 47 47 24 28 32 29 3A 47 35 24 B2 47 47 24 28 33 |GG$(2):G5$.GG$(3|
00001740: 29 00 66 1F 73 1B 47 36 24 B2 47 47 24 28 34 29 |).f.s.G6$.GG$(4)|
00001750: 3A 47 37 24 B2 47 47 24 28 35 29 3A 47 38 24 B2 |:G7$.GG$(5):G8$.|
00001760: 47 47 24 28 36 29 00 8B 1F 74 1B 47 39 24 B2 47 |GG$(6)...t.G9$.G|
00001770: 47 24 28 37 29 3A 46 36 24 B2 47 47 24 28 38 29 |G$(7):F6$.GG$(8)|
00001780: 3A 46 37 24 B2 47 47 24 28 39 29 00 A7 1F 75 1B |:F7$.GG$(9)...u.|
00001790: 46 38 24 B2 47 47 24 28 31 30 29 3A 46 39 24 B2 |F8$.GG$(10):F9$.|
000017A0: 47 47 24 28 31 31 29 00 C3 1F 76 1B 4D 24 B2 46 |GG$(11)...v.M$.F|
000017B0: 34 24 3A 4B 58 B2 35 3A 4B 59 B2 32 31 3A 8D 31 |4$:KX.5:KY.21:.1|
000017C0: 39 37 30 00 DE 1F 80 1B 4D 24 B2 46 35 24 3A 4B |970.....M$.F5$:K|
000017D0: 58 B2 37 3A 4B 59 B2 30 3A 8D 31 39 37 30 00 F4 |X.7:KY.0:.1970..|
000017E0: 1F 8A 1B 4D 24 B2 47 35 24 3A 4B 58 B2 38 3A 8D |...M$.G5$:KX.8:.|
000017F0: 31 39 37 30 00 0A 20 94 1B 4D 24 B2 47 36 24 3A |1970.. ..M$.G6$:|
00001800: 4B 58 B2 39 3A 8D 31 39 37 30 00 21 20 9E 1B 4D |KX.9:.1970.! ..M|
00001810: 24 B2 47 37 24 3A 4B 58 B2 31 30 3A 8D 31 39 37 |$.G7$:KX.10:.197|
00001820: 30 00 38 20 A8 1B 4D 24 B2 47 38 24 3A 4B 58 B2 |0.8 ..M$.G8$:KX.|
00001830: 31 31 3A 8D 31 39 37 30 00 4F 20 B2 1B 4D 24 B2 |11:.1970.O ..M$.|
00001840: 47 39 24 3A 4B 58 B2 31 32 3A 8D 31 39 37 30 00 |G9$:KX.12:.1970.|
00001850: 6B 20 BC 1B 4D 24 B2 46 36 24 3A 4B 58 B2 31 34 |k ..M$.F6$:KX.14|
00001860: 3A 4B 59 B2 31 3A 8D 31 39 37 30 00 82 20 C6 1B |:KY.1:.1970.. ..|
00001870: 4D 24 B2 46 37 24 3A 4B 58 B2 31 36 3A 8D 31 39 |M$.F7$:KX.16:.19|
00001880: 37 30 00 99 20 D0 1B 4D 24 B2 46 38 24 3A 4B 58 |70.. ..M$.F8$:KX|
00001890: B2 31 38 3A 8D 31 39 37 30 00 B0 20 DA 1B 4D 24 |.18:.1970.. ..M$|
000018A0: B2 46 39 24 3A 4B 58 B2 32 30 3A 8D 31 39 37 30 |.F9$:KX.20:.1970|
000018B0: 00 C3 20 DF 1B 8B 46 33 24 B3 B1 22 35 22 A7 37 |.. ...F3$.."5".7|
000018C0: 31 35 30 00 E1 20 E4 1B 84 32 2C 46 41 24 3A 4D |150.. ...2,FA$:M|
000018D0: 24 B2 46 41 24 3A 4B 58 B2 32 32 3A 8D 31 39 37 |$.FA$:KX.22:.197|
000018E0: 30 00 E7 20 EE 1B 8E 00 00 00 |0.. ...... |
....... << 64 ENTER QUESTION >>.K.... PO
KE45,PEEK(174):POKE46,PEEK(175):CLR.....
.:CD$.".........................":U$.G(1
3):XX.5:.15,8,15:KF.20......GG$(11).....
BS.100:.I.1.40:S1$.S1$."=":S2$.S2$."-":B
L$.BL$." ":CL$.CL$.".":.I...... <----<<
ENTER QUESTION PROGRAM >>.@....53280,9:.
53281,1:.".":M$." ENTER QUESTION ":.1850
.E....2000:. <--<< SCREEN FORMAT 1 >>...
...2250:.F1$."0".1050:. <--<< FIELD 1 EN
TRY >>.E.D..2160:.MM.1.1210:. <--<< CHEC
K FOR FILE >>...I..5000:. <--<< DISPLAY
MESSAGE >>...J..6000:.KN$."N". 15: 2:..,
....2210:. <--<< UPDATE INTO FILE >>.O..
..2060:. <--<< SCREEN FORMAT >>.T....ZZ.
1.E(F2$):."....".22)ZZ:.2660......7000:.
<--<< DISPLAY MESSAGES 2 >>......2420:.
< FIELD 4 ENTRY >.....KX.7:YY$.F5$:.247
0:F5$.YY$:.A$.".".1280:. < FIELD 5 ENTRY
>.;...KX.8:YY$.G5$:.2470:G5$.YY$:.A$.".
".1290:. < FIELD 5A ENTRY >.|...KX.9:YY$
.G6$:.2470:G6$.YY$:.A$.".".1300:. < FIEL
D 5B ENTRY >...(.KX.10:YY$.G7$:.2470:G7$
.YY$:.A$.".".1310:. < FIELD 5C ENTRY >..
.2.KX.11:YY$.G8$:.2470:G8$.YY$:.A$.".".1
320:. < FIELD 5D ENTRY >.B.<.KX.12:YY$.G
9$:.2470:G9$.YY$:.A$.".".1330:. < FIELD
5E ENTRY >...F.KX.14:YY$.F6$:.2520:F6$.Y
Y$:.A$.".".1340:. < FIELD 6 ENTRY >.D.P.
KX.16:YY$.F7$:.2520:F7$.YY$:.A$.".".1350
:. < FIELD 7 ENTRY >...Z.KX.18:YY$.F8$:.
2520:F8$.YY$:.A$.".".1360:. < FIELD 8 EN
TRY >.F.D.KX.20:YY$.F9$:.2520:F9$.YY$:.A
$.".".1370:. < FIELD A ENTRY >.Y.N..E(F3
$).4.1410...X.KX.22:YY$.FA$:.2520:FA$.YY
$:.A$.".".1380:. < FIELD B ENTRY >......
6000:.KN$."Y".1280.X....2570:. <--<< UPD
ATE INTO FILE >>... ..2610:. <--<< CLEAR
DATA >>......ZZ:.".": 2.'... 15:.15,8,1
5,"S0:".F1$: 15.P....15,8,15,"R0:".F1$."
=0:".F1$."1": 15.Q....15,8,15,"S0:".F1$.
"1": 15:....... <----<< KEYBOARD ENTRY R
OUTINE >>.O...KL.C(KN$):.H(CD$,KX).KY)KN
$H(BL$,KN.KL)H(CL$,KN);.X.H.KP.1...R.KR.
2:.J(KN$,KP,1).""..". ..";:.1740:.A$..""
.1560.A...KR.3:.J(KN$,KP,1).""..". .";:.
1740:.A$.."".1560.P...KR.4:.J(KN$,KP,1).
."".."."J(KN$,KP,1)"..";......J(KN$,KP,1
)..""..1740:.A$.."".1560.F...KR.1:.J(KN$
,KP,1).."".."."J(KN$,KP,1)".";......J(KN
$,KP,1)..""..1740:.A$.."".1560......KR.1
490,1500,1510,1530.-...KL.C(KN$):.A$."."
.KN$."":.1470.N."..A$.G(148).KL.KN..1810
:.1550.M.,..A$.G(20).KP.1..1780:.1550...
6..A$.".".KP.KL.KP.1.KP.KP.1:.". ..";:.1
550.O.@..A$.".".KP.1.."."J(KN$,KP,1)".."
;:KP.KP.1:.1550...J..A$.".".KP..KL.KP.KN
..J(KN$,KP,1);:KP.KP.1:.1830.#.T..A$."."
.KL..KP..1760:.1550.[.^..A$.G(34).A$.","
.1550:. <--<< SKIP UNWANTED CHAR >>...H.
.KS.1.((A$.."0".A$.."9").A$.".".A$."-").
1690:. <-<< NUMBER >>.W.R..KS..2.(A$.."
".A$.."_").1690:. <--<< ALPHA TILL _ >>.
..|..KS.3.(A$.."A".A$.."Z").1690:. <--<<
ALPHA TILL CAP-Z >>.<....A$.G(13).A$.".
".A$.".".A$.".".1720.F....1550.T...M.C(K
N$):KN$.H(KN$,KP.1).A$.J(KN$,KP.1,M)....
.KP.KP.1:.A$;:.KP.66..G(7);......KP..KN.
1550.L....H(CD$,KX).KY)KN$;:.C(KN$).KN..
" ";.R.B.....L..KI.1.KF:.A$:.A$.""..KI..
.V...$....J(KN$,KP,KL);:KP.KL.1:.KN.KL..
".";:KP.KP.1.*.....[....KP.C(KN$).." .."
;:KP.KP.1:KN$.H(KN$,KP.1):......M.C(KN$)
:KN$.H(KN$,KP.2).J(KN$,KP,M):KP.KP.1....
..H(CD$,KX).KY)KN$" "H(CD$,KX).KY.KP.1);
:......M.C(KN$):KN$.H(KN$,KP.1)." ".J(KN
$,KP,M)......H(CD$,KX).KY)KN$H(CD$,KX).K
Y.KP.1);:..$.&..KP.66..G(7);...0..1550.P
.:.. <----<< DISPLAY MESSAGES >>.U.D..".
"S1$.(40.C(M$)).2)"."M$:.S1$;.{.N.....X.
. <----<< DISPLAY REMARKS MESSAGES >>.U.
B..H(CD$,X)H(BL$,39)H(CD$,X).(40.C(M$)).
2)M$;...L.....V.. <----<< DISPLAY MESSAG
ES AND WAIT FOR DATA ENTRY >>......H(CD$
,KX)H(BL$,39);.E....H(CD$,KX).(39.C(M$))
.2)M$;:KN.1:KS.2:KN$."":.1460.V....KN$."
".1930......KN$.."Y".KN$.."N".1930......
...... <----<< REDISPLAY DATA STRING >>.
.....H(CD$,KX).KY)H(BL$,B)H(CD$,KX).KY)M
$;...F.....P.. <----<< SCREEN FORMAT 1 >
>.5.Z.."....1.. BOOK TITLE :":..V.
...".2.. NO. OF QUESTIONS :":..U....".3.
. NO. OF CHOICES :"......H(CD$,23)S2$;
............ <----<< SCREEN FORMAT 2 >>.
U...."..":M$." ENTER QUESTION ":.1850...
...5)"QUESTION NUMBER :"...*..". 1.. CO
RRECT ANSWER :".-.4..". 2.. QUESTION IS
:".=.>..:.:.:.:.:..P.H..N.1.E(F3$):."
.".D(N.2).".. CHOICE".D(N)." :".Y.R..:.
N...\..H(CD$,23)S2$;...F.....P.. <----<<
CHECK FILE EXISTS >>.X.Z.MM.0:MO$.F1$."
,S,R":.2,8,2,MO$......15,ES. ....ES.62.M
M.1:M$." ERROR - FILE DOES NOT EXISTS ":
2:.2750.&.....H.... <----<< UPDATE INTO
FILE >>._....3,8,3,F1$."1,S,W".U....3,F
2$;U$;F3$;U$;.{.......J.. <----<< ENTRY
1 - BOOK TITLE >>.X.T.M$."ENTER BOOK TIT
LE ( 15 CHARACTERS )":X.24:.1880.....KS.
3:KN$.F1$:KN.15:KX.7:KY.22:.1460:.KN$.."
".F1$.KN$.)...M$.F1$:.F1$."".2270.8...B.
15:.1970.>.....`.T.. <----<< ENTRY 4 - A
NSWER >>...~.KS.1:KN$.F4$:KN.1:KX.5:KY.2
1:.1460:.KN$.."".F4$.KN$.....M$.F4$:.F4$
."".2430.....B.1:.1970.D.......... <----
<< ENTRY 5 - QUESTIONS >>.....KS.3:KN$.Y
Y$:KN.40:KY.0:.1460:.KN$.."".YY$.KN$.4..
.M$.YY$:.YY$."".2480.C.D.B.40:.1970.I.N.
..K.X.. <----<< ENTRY 6 - CHOICE >>.....
KS.3:KN$.YY$:KN.38:KY.1:.1460:.KN$.."".Y
Y$.KN$.....M$.YY$:.YY$."".2530.E...B.38:
.1970.K.......... <----<< UPDATE THE RES
T INTO FILE >>./....3,F4$;U$;F5$;U$;G5$;
U$;G6$;U$;G7$;U$;G8$;U$;G9$;U$;.Z....3,F
6$;U$;F7$;U$;F8$;U$;F9$;U$;FA$;U$;.`.(..
.|.2.. <----<< CLEAR DATA >>...<.."...."
.21)H(BL$,17):."."...F..M.1.6:.H(BL$,40)
;:.M.U.P..M.1.E(F3$):."."H(BL$,39):.M...
Z.F4$."":F6$."":F7$."":F8$."":F9$."":FA$
."".9.D.F5$.G(32):G5$.F5$:G6$.F5$:G7$.F5
$:G8$.F5$:G9$.F5$.?.N...G.... <----<< ER
ROR MESSAGES DISPLAY >>...H..H(CD$,X)H(B
L$,39):.BB.1.4...R..H(CD$,X).(40.C(M$)).
2)"."M$;:.T.1.BS:.......H(CD$,X).(40.C(M
$)).2)"."M$;:.T.1.BS.2:.......BB......H(
CD$,X)BL$;.......(.... <----<< ADJUST 2
DECIMAL PLACE >>.]...PI.E(IP$):IP$.J(D(.
(E(IP$).100..5)),2):IP.C(IP$).{....IP.1.
IP$."0.0".IP$:.3770......IP.2.IP$."0.".I
P$:.3770.....IP$.H(IP$,C(IP$).2).".".I(I
P$,2).S....PI.0.IP$."-".IP$.Y.D........
<----<< DISPLAY MESSAGE 1 >>......2,F2$,
F3$./...TM$.F2$:M$.F2$:KX.9:KY.22:.1970.
N...TN$.F3$:M$.F3$:KX.11:.1970.T.....R.P
.. <----<< ASK QUESTION >>...Z.M$."DO YO
U WANT TO CHANGE THE ABOVE Y/N [ ]":KX.2
4:KY.37:.1910.........X.. <----<< DISPLA
Y MESSAGE 2 >>...L..RR.1.11:.2,GG$(RR):.
RR...Q.M$.D(ZZ):KX.4:KY.22:B.3:.1970.A.R
.F4$.GG$(1):F5$.GG$(2):G5$.GG$(3).F.S.G6
$.GG$(4):G7$.GG$(5):G8$.GG$(6)...T.G9$.G
G$(7):F6$.GG$(8):F7$.GG$(9)...U.F8$.GG$(
10):F9$.GG$(11).C.V.M$.F4$:KX.5:KY.21:.1
970.....M$.F5$:KX.7:KY.0:.1970.....M$.G5
$:KX.8:.1970.. ..M$.G6$:KX.9:.1970.! ..M
$.G7$:KX.10:.1970.8 ..M$.G8$:KX.11:.1970
.O ..M$.G9$:KX.12:.1970.K ..M$.F6$:KX.14
:KY.1:.1970.. F.M$.F7$:KX.16:.1970.. P.M
$.F8$:KX.18:.1970.. Z.M$.F9$:KX.20:.1970
.C ...F3$.."5".7150.. ...2,FA$:M$.FA$:KX
.22:.1970.. ......
> CLICK IMAGE PREVIEW FOR FULL MODAL