ALBERT
FILE INFORMATION
FILENAME(S): ALBERT
FILE TYPE(S): PRG
FILE SIZE: 11.8K
FIRST SEEN: 2025-11-30 21:08:50
APPEARS ON: 1 disk(s)
FILE HASH
32c8af032fda108617da9cb4524853c72b79ce7e5986ceb0bf6bafb05f403224
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SPELLEN | ALBERT | PRG | DuncanTwain | 10 | 1 | 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: 44 08 EA 03 8F 20 2A 2A 2A 20 43 4F 4E 47 52 41 |D.... *** CONGRA|
00000030: 54 55 4C 41 54 49 4F 4E 20 21 21 21 20 20 20 20 |TULATION !!! |
00000040: 20 2A 2A 2A 00 69 08 EC 03 8F 20 2A 2A 2A 20 54 | ***.i.... *** T|
00000050: 48 45 20 48 55 4D 42 4C 45 20 41 55 54 48 4F 52 |HE HUMBLE AUTHOR|
00000060: 53 20 41 52 45 20 2A 2A 2A 00 8E 08 EE 03 8F 20 |S ARE ***...... |
00000070: 2A 2A 2A 20 41 4C 42 45 52 54 20 59 45 4F 20 41 |*** ALBERT YEO A|
00000080: 4E 44 20 20 20 20 20 20 20 20 20 2A 2A 2A 00 B3 |ND ***..|
00000090: 08 F0 03 8F 20 2A 2A 2A 20 57 4F 4E 47 20 43 48 |.... *** WONG CH|
000000A0: 45 45 20 4D 45 4E 47 20 20 20 20 20 20 20 20 20 |EE MENG |
000000B0: 2A 2A 2A 00 D8 08 F2 03 8F 20 2A 2A 2A 20 44 41 |***...... *** DA|
000000C0: 54 45 20 30 33 31 30 38 34 20 20 20 20 20 20 20 |TE 031084 |
000000D0: 20 20 20 20 20 2A 2A 2A 00 10 09 FC 03 97 37 37 | ***......77|
000000E0: 34 2C 32 32 36 3A 97 37 37 35 2C 32 35 32 3A 97 |4,226:.775,252:.|
000000F0: 38 31 38 2C 32 32 36 3A 97 38 31 39 2C 32 35 32 |818,226:.819,252|
00000100: 3A 97 38 30 38 2C 32 35 31 3A 99 C7 28 31 34 29 |:.808,251:..(14)|
00000110: 00 53 09 06 04 9C 3A 43 44 24 B2 22 13 11 11 11 |.S....:CD$."....|
00000120: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000130: 11 11 11 11 11 22 3A 55 24 B2 C7 28 31 33 29 3A |.....":U$..(13):|
00000140: 58 58 B2 35 3A 9F 31 35 2C 38 2C 31 35 3A 4B 46 |XX.5:.15,8,15:KF|
00000150: B2 32 30 00 99 09 10 04 42 53 B2 31 30 30 3A 81 |.20.....BS.100:.|
00000160: 49 B2 31 A4 34 30 3A 53 31 24 B2 53 31 24 AA 22 |I.1.40:S1$.S1$."|
00000170: 3D 22 3A 53 32 24 B2 53 32 24 AA 22 2D 22 3A 42 |=":S2$.S2$."-":B|
00000180: 4C 24 B2 42 4C 24 AA 22 20 22 3A 43 4C 24 B2 43 |L$.BL$." ":CL$.C|
00000190: 4C 24 AA 22 9D 22 3A 82 49 00 B4 09 1A 04 8F 20 |L$.".":.I...... |
000001A0: 3C 2D 2D 2D 2D 3C 3C 20 4D 45 4E 55 20 50 52 4F |<----<< MENU PRO|
000001B0: 47 20 3E 3E 00 CA 09 1F 04 97 35 33 32 38 30 2C |G >>......53280,|
000001C0: 38 3A 97 35 33 32 38 31 2C 31 00 EA 09 24 04 99 |8:.53281,1...$..|
000001D0: 22 93 22 3A 4D 24 B2 22 20 CD 41 49 4E 20 CD 45 |".":M$." .AIN .E|
000001E0: 4E 55 20 22 3A 8D 31 38 35 30 00 14 0A 2E 04 99 |NU ":.1850......|
000001F0: 22 11 11 11 11 20 20 20 20 20 12 31 2E 92 20 D3 |".... .1.. .|
00000200: 54 55 44 45 4E 54 27 53 20 C1 53 53 45 53 53 4D |TUDENT'S .SSESSM|
00000210: 45 4E 54 22 00 39 0A 38 04 99 22 11 20 20 20 20 |ENT".9.8..". |
00000220: 20 12 32 2E 92 20 D1 55 45 53 54 49 4F 4E 53 20 | .2.. .UESTIONS |
00000230: C3 52 45 41 54 49 4F 4E 22 00 5B 0A 42 04 99 22 |.REATION".[.B.."|
00000240: 11 20 20 20 20 20 12 33 2E 92 20 D2 45 50 4F 52 |. .3.. .EPOR|
00000250: 54 20 D0 52 49 4E 54 49 4E 47 22 00 72 0A 47 04 |T .RINTING".r.G.|
00000260: 99 22 11 20 20 20 20 20 12 34 2E 92 20 D1 55 49 |.". .4.. .UI|
00000270: 54 22 00 85 0A 4C 04 99 C8 28 43 44 24 2C 32 33 |T"...L...(CD$,23|
00000280: 29 53 32 24 3B 00 B8 0A 56 04 4D 24 B2 22 20 D0 |)S2$;...V.M$." .|
00000290: 4C 45 41 53 45 20 D3 45 4C 45 43 54 20 D9 4F 55 |LEASE .ELECT .OU|
000002A0: 52 20 CF 50 54 49 4F 4E 20 5B 20 5D 22 3A 58 B2 |R .PTION [ ]":X.|
000002B0: 32 34 3A 8D 31 38 38 30 00 D8 0A 60 04 4B 53 B2 |24:.1880...`.KS.|
000002C0: 31 3A 4B 58 B2 32 34 3A 4B 59 B2 33 33 3A 4B 4E |1:KX.24:KY.33:KN|
000002D0: B2 31 3A 8D 31 34 36 30 00 06 0B 6A 04 8B 4B 4E |.1:.1460...j..KN|
000002E0: 24 B3 B1 22 31 22 AF 4B 4E 24 B3 B1 22 32 22 AF |$.."1".KN$.."2".|
000002F0: 4B 4E 24 B3 B1 22 33 22 AF 4B 4E 24 B3 B1 22 34 |KN$.."3".KN$.."4|
00000300: 22 A7 31 31 32 30 00 1D 0B 74 04 8B 4B 4E 24 B2 |".1120...t..KN$.|
00000310: 22 31 22 A7 A0 31 35 3A 89 33 32 31 30 00 2F 0B |"1"..15:.3210./.|
00000320: 7E 04 8B 4B 4E 24 B2 22 32 22 A7 31 31 38 30 00 |~..KN$."2".1180.|
00000330: 41 0B 88 04 8B 4B 4E 24 B2 22 33 22 A7 32 38 35 |A....KN$."3".285|
00000340: 30 00 4C 0B 92 04 9E 36 34 37 33 38 00 74 0B 9C |0.L....64738.t..|
00000350: 04 8F 20 3C 2D 2D 2D 2D 3C 3C 20 45 4E 54 45 52 |.. <----<< ENTER|
00000360: 20 51 55 45 53 54 49 4F 4E 20 50 52 4F 47 52 41 | QUESTION PROGRA|
00000370: 4D 20 3E 3E 00 99 0B A6 04 99 22 93 22 3A 4D 24 |M >>......".":M$|
00000380: B2 22 20 C5 4E 54 45 52 20 D1 55 45 53 54 49 4F |." .NTER .UESTIO|
00000390: 4E 20 22 3A 8D 31 38 35 30 00 BE 0B B0 04 8D 32 |N ":.1850......2|
000003A0: 30 30 30 3A 8F 20 3C 2D 2D 3C 3C 20 53 43 52 45 |000:. <--<< SCRE|
000003B0: 45 4E 20 46 4F 52 4D 41 54 20 31 20 3E 3E 00 EF |EN FORMAT 1 >>..|
000003C0: 0B BA 04 8D 32 32 35 30 3A 8B 46 31 24 B2 22 30 |....2250:.F1$."0|
000003D0: 22 A7 31 30 35 30 3A 8F 20 3C 2D 2D 3C 3C 20 46 |".1050:. <--<< F|
000003E0: 49 45 4C 44 20 31 20 45 4E 54 52 59 20 3E 3E 00 |IELD 1 ENTRY >>.|
000003F0: 1E 0C C4 04 8D 32 31 36 30 3A 8B 4D 4D B2 31 A7 |.....2160:.MM.1.|
00000400: 31 32 31 30 3A 8F 20 3C 2D 2D 3C 3C 20 43 48 45 |1210:. <--<< CHE|
00000410: 43 4B 20 46 4F 52 20 46 49 4C 45 20 3E 3E 00 4E |CK FOR FILE >>.N|
00000420: 0C CE 04 8D 32 33 31 30 3A 8B 41 24 B2 22 91 22 |....2310:.A$."."|
00000430: A7 31 32 31 30 3A 8F 20 3C 2D 2D 3C 3C 20 46 49 |.1210:. <--<< FI|
00000440: 45 4C 44 20 32 20 45 4E 54 52 59 20 3E 3E 00 7E |ELD 2 ENTRY >>.~|
00000450: 0C D8 04 8D 32 33 36 30 3A 8B 41 24 B2 22 91 22 |....2360:.A$."."|
00000460: A7 31 32 33 30 3A 8F 20 3C 2D 2D 3C 3C 20 46 49 |.1230:. <--<< FI|
00000470: 45 4C 44 20 33 20 45 4E 54 52 59 20 3E 3E 00 A4 |ELD 3 ENTRY >>..|
00000480: 0C E2 04 8D 32 32 31 30 3A 8F 20 3C 2D 2D 3C 3C |....2210:. <--<<|
00000490: 20 55 50 44 41 54 45 20 49 4E 54 4F 20 46 49 4C | UPDATE INTO FIL|
000004A0: 45 20 3E 3E 00 C9 0C EC 04 8D 32 30 36 30 3A 8F |E >>......2060:.|
000004B0: 20 3C 2D 2D 3C 3C 20 53 43 52 45 45 4E 20 46 4F | <--<< SCREEN FO|
000004C0: 52 4D 41 54 AA 2B 08 3E 3E 00 EE 0C F6 04 81 5A |RMAT.+.>>......Z|
000004D0: 5A B2 31 A4 C5 28 46 32 24 29 3A 99 22 13 11 11 |Z.1..(F2$):."...|
000004E0: 11 22 A6 32 32 29 5A 5A 3A 8D 32 36 36 30 00 0C |.".22)ZZ:.2660..|
000004F0: 0D 00 05 8D 32 34 32 30 3A 8F 20 3C 20 46 49 45 |....2420:. < FIE|
00000500: 4C 44 20 34 20 45 4E 54 52 59 20 3E 00 4C 0D 0A |LD 4 ENTRY >.L..|
00000510: 05 4B 58 B2 37 3A 59 59 24 B2 46 35 24 3A 8D 32 |.KX.7:YY$.F5$:.2|
00000520: 34 37 30 3A 46 35 24 B2 59 59 24 3A 8B 41 24 B2 |470:F5$.YY$:.A$.|
00000530: 22 91 22 A7 31 32 38 30 3A 8F 20 3C 20 46 49 45 |".".1280:. < FIE|
00000540: 4C 44 20 35 20 45 4E 54 52 59 20 3E 00 8D 0D 14 |LD 5 ENTRY >....|
00000550: 05 4B 58 B2 38 3A 59 59 24 B2 47 35 24 3A 8D 32 |.KX.8:YY$.G5$:.2|
00000560: 34 37 30 3A 47 35 24 B2 59 59 24 3A 8B 41 24 B2 |470:G5$.YY$:.A$.|
00000570: 22 91 22 A7 31 32 39 30 3A 8F 20 3C 20 46 49 45 |".".1290:. < FIE|
00000580: 4C 44 20 35 41 20 45 4E 54 52 59 20 3E 00 CE 0D |LD 5A ENTRY >...|
00000590: 1E 05 4B 58 B2 39 3A 59 59 24 B2 47 36 24 3A 8D |..KX.9:YY$.G6$:.|
000005A0: 32 34 37 30 3A 47 36 24 B2 59 59 24 3A 8B 41 24 |2470:G6$.YY$:.A$|
000005B0: B2 22 91 22 A7 31 33 30 30 3A 8F 20 3C 20 46 49 |.".".1300:. < FI|
000005C0: 45 4C 44 20 35 42 20 45 4E 54 52 59 20 3E 00 10 |ELD 5B ENTRY >..|
000005D0: 0E 28 05 4B 58 B2 31 30 3A 59 59 24 B2 47 37 24 |.(.KX.10:YY$.G7$|
000005E0: 3A 8D 32 34 37 30 3A 47 37 24 B2 59 59 24 3A 8B |:.2470:G7$.YY$:.|
000005F0: 41 24 B2 22 91 22 A7 31 33 31 30 3A 8F 20 3C 20 |A$.".".1310:. < |
00000600: 46 49 45 4C 44 20 35 43 20 45 4E 54 52 59 20 3E |FIELD 5C ENTRY >|
00000610: 00 52 0E 32 05 4B 58 B2 31 31 3A 59 59 24 B2 47 |.R.2.KX.11:YY$.G|
00000620: 38 24 3A 8D 32 34 37 30 3A 47 38 24 B2 59 59 24 |8$:.2470:G8$.YY$|
00000630: 3A 8B 41 24 B2 22 91 22 A7 31 33 32 30 3A 8F 20 |:.A$.".".1320:. |
00000640: 3C 20 46 49 45 4C 44 20 35 44 20 45 4E 54 52 59 |< FIELD 5D ENTRY|
00000650: 20 3E 00 94 0E 3C 05 4B 58 B2 31 32 3A 59 59 24 | >...<.KX.12:YY$|
00000660: B2 47 39 24 3A 8D 32 34 37 30 3A 47 39 24 B2 59 |.G9$:.2470:G9$.Y|
00000670: 59 24 3A 8B 41 24 B2 22 91 22 A7 31 33 33 30 3A |Y$:.A$.".".1330:|
00000680: 8F 20 3C 20 46 49 45 4C 44 20 35 45 20 45 4E 54 |. < FIELD 5E ENT|
00000690: 52 59 20 3E 00 D5 0E 46 05 4B 58 B2 31 34 3A 59 |RY >...F.KX.14:Y|
000006A0: 59 24 B2 46 36 24 3A 8D 32 35 32 30 3A 46 36 24 |Y$.F6$:.2520:F6$|
000006B0: B2 59 59 24 3A 8B 41 24 B2 22 91 22 A7 31 33 34 |.YY$:.A$.".".134|
000006C0: 30 3A 8F 20 3C 20 46 49 45 4C 44 20 36 20 45 4E |0:. < FIELD 6 EN|
000006D0: 54 52 59 20 3E 00 16 0F 50 05 4B 58 B2 31 36 3A |TRY >...P.KX.16:|
000006E0: 59 59 24 B2 46 37 24 3A 8D 32 35 32 30 3A 46 37 |YY$.F7$:.2520:F7|
000006F0: 24 B2 59 59 24 3A 8B 41 24 B2 22 91 22 A7 31 33 |$.YY$:.A$.".".13|
00000700: 35 30 3A 8F 20 3C 20 46 49 45 4C 44 20 37 20 45 |50:. < FIELD 7 E|
00000710: 4E 54 52 59 20 3E 00 57 0F 5A 05 4B 58 B2 31 38 |NTRY >.W.Z.KX.18|
00000720: 3A 59 59 24 B2 46 38 24 3A 8D 32 35 32 30 3A 46 |:YY$.F8$:.2520:F|
00000730: 38 24 B2 59 59 24 3A 8B 41 24 B2 22 91 22 A7 31 |8$.YY$:.A$.".".1|
00000740: 33 36 30 3A 8F 20 3C 20 46 49 45 4C 44 20 38 20 |360:. < FIELD 8 |
00000750: 45 4E 54 52 59 20 3E 00 98 0F 64 05 4B 58 B2 32 |ENTRY >...d.KX.2|
00000760: 30 3A 59 59 24 B2 46 39 24 3A 8D 32 35 32 30 3A |0:YY$.F9$:.2520:|
00000770: 46 39 24 B2 59 59 24 3A 8B 41 24 B2 22 91 22 A7 |F9$.YY$:.A$.".".|
00000780: 31 33 37 30 3A 8F 20 3C 20 46 49 45 4C 44 20 41 |1370:. < FIELD A|
00000790: 20 45 4E 54 52 59 20 3E 00 AB 0F 6E 05 8B C5 28 | ENTRY >...n...(|
000007A0: 46 33 24 29 B2 34 A7 31 34 31 30 00 EC 0F 78 05 |F3$).4.1410...x.|
000007B0: 4B 58 B2 32 32 3A 59 59 24 B2 46 41 24 3A 8D 32 |KX.22:YY$.FA$:.2|
000007C0: 35 32 30 3A 46 41 24 B2 59 59 24 3A 8B 41 24 B2 |520:FA$.YY$:.A$.|
000007D0: 22 91 22 A7 31 33 38 30 3A 8F 20 3C 20 46 49 45 |".".1380:. < FIE|
000007E0: 4C 44 20 42 20 45 4E 54 52 59 20 3E 00 2F 10 82 |LD B ENTRY >./..|
000007F0: 05 4D 24 B2 22 C4 4F 20 59 4F 55 20 57 41 4E 54 |.M$.".O YOU WANT|
00000800: 20 54 4F 20 43 48 41 4E 47 45 20 54 48 45 20 41 | TO CHANGE THE A|
00000810: 42 4F 56 45 20 D9 2F CE 20 5B 20 5D 22 3A 4B 58 |BOVE ./. [ ]":KX|
00000820: B2 32 34 3A 4B 59 B2 33 37 3A 8D 31 39 31 30 00 |.24:KY.37:.1910.|
00000830: 41 10 8C 05 8B 4B 4E 24 B2 22 59 22 A7 31 32 38 |A....KN$."Y".128|
00000840: 30 00 67 10 96 05 8D 32 35 37 30 3A 8F 20 3C 2D |0.g....2570:. <-|
00000850: 2D 3C 3C 20 55 50 44 41 54 45 20 49 4E 54 4F 20 |-<< UPDATE INTO |
00000860: 46 49 4C 45 20 3E 3E 00 87 10 A0 05 8D 32 36 31 |FILE >>......261|
00000870: 30 3A 8F 20 3C 2D 2D 3C 3C 20 43 4C 45 41 52 20 |0:. <--<< CLEAR |
00000880: 44 41 54 41 20 3E 3E 00 9D 10 AA 05 82 5A 5A 3A |DATA >>......ZZ:|
00000890: 99 22 93 22 3A A0 32 3A 89 31 30 36 30 00 C5 10 |.".":.2:.1060...|
000008A0: B4 05 8F 20 3C 2D 2D 2D 2D 3C 3C 20 4B 45 59 42 |... <----<< KEYB|
000008B0: 4F 41 52 44 20 45 4E 54 52 59 20 52 4F 55 54 49 |OARD ENTRY ROUTI|
000008C0: 4E 45 20 3E 3E 00 FB 10 BE 05 4B 4C B2 C3 28 4B |NE >>.....KL..(K|
000008D0: 4E 24 29 3A 99 C8 28 43 44 24 2C 4B 58 29 A6 4B |N$):..(CD$,KX).K|
000008E0: 59 29 4B 4E 24 C8 28 42 4C 24 2C 4B 4E AB 4B 4C |Y)KN$.(BL$,KN.KL|
000008F0: 29 C8 28 43 4C 24 2C 4B 4E 29 3B 00 04 11 C8 05 |).(CL$,KN);.....|
00000900: 4B 50 B2 31 00 39 11 D2 05 4B 52 B2 32 3A 8B CA |KP.1.9...KR.2:..|
00000910: 28 4B 4E 24 2C 4B 50 2C 31 29 B2 22 22 A7 99 22 |(KN$,KP,1)."".."|
00000920: 12 20 92 9D 22 3B 3A 8D 31 37 34 30 3A 8B 41 24 |. ..";:.1740:.A$|
00000930: B3 B1 22 22 A7 31 35 36 30 00 6D 11 DC 05 4B 52 |.."".1560.m...KR|
00000940: B2 33 3A 8B CA 28 4B 4E 24 2C 4B 50 2C 31 29 B2 |.3:..(KN$,KP,1).|
00000950: 22 22 A7 99 22 92 20 9D 22 3B 3A 8D 31 37 34 30 |""..". .";:.1740|
00000960: 3A 8B 41 24 B3 B1 22 22 A7 31 35 36 30 00 9C 11 |:.A$.."".1560...|
00000970: E6 05 4B 52 B2 34 3A 8B CA 28 4B 4E 24 2C 4B 50 |..KR.4:..(KN$,KP|
00000980: 2C 31 29 B3 B1 22 22 A7 99 22 12 22 CA 28 4B 4E |,1)..""..".".(KN|
00000990: 24 2C 4B 50 2C 31 29 22 92 9D 22 3B 00 C4 11 F0 |$,KP,1)"..";....|
000009A0: 05 8B CA 28 4B 4E 24 2C 4B 50 2C 31 29 B3 B1 22 |...(KN$,KP,1).."|
000009B0: 22 A7 8D 31 37 34 30 3A 8B 41 24 B3 B1 22 22 A7 |"..1740:.A$.."".|
000009C0: 31 35 36 30 00 F2 11 FA 05 4B 52 B2 31 3A 8B CA |1560.....KR.1:..|
000009D0: 28 4B 4E 24 2C 4B 50 2C 31 29 B3 B1 22 22 A7 99 |(KN$,KP,1)..""..|
000009E0: 22 92 22 CA 28 4B 4E 24 2C 4B 50 2C 31 29 22 9D |".".(KN$,KP,1)".|
000009F0: 22 3B 00 1A 12 04 06 8B CA 28 4B 4E 24 2C 4B 50 |";.......(KN$,KP|
00000A00: 2C 31 29 B3 B1 22 22 A7 8D 31 37 34 30 3A 8B 41 |,1)..""..1740:.A|
00000A10: 24 B3 B1 22 22 A7 31 35 36 30 00 36 12 0E 06 91 |$.."".1560.6....|
00000A20: 4B 52 89 31 34 39 30 2C 31 35 30 30 2C 31 35 31 |KR.1490,1500,151|
00000A30: 30 2C 31 35 33 30 00 59 12 18 06 4B 4C B2 C3 28 |0,1530.Y...KL..(|
00000A40: 4B 4E 24 29 3A 8B 41 24 B2 22 93 22 A7 4B 4E 24 |KN$):.A$.".".KN$|
00000A50: B2 22 22 3A 89 31 34 37 30 00 7A 12 22 06 8B 41 |."":.1470.z."..A|
00000A60: 24 B2 C7 28 31 34 38 29 AF 4B 4C B3 4B 4E A7 8D |$..(148).KL.KN..|
00000A70: 31 38 31 30 3A 89 31 35 35 30 00 99 12 2C 06 8B |1810:.1550...,..|
00000A80: 41 24 B2 C7 28 32 30 29 AF 4B 50 B1 31 A7 8D 31 |A$..(20).KP.1..1|
00000A90: 37 38 30 3A 89 31 35 35 30 00 C7 12 36 06 8B 41 |780:.1550...6..A|
00000AA0: 24 B2 22 9D 22 AF 4B 50 B1 4B 4C AF 4B 50 B1 31 |$.".".KP.KL.KP.1|
00000AB0: A7 4B 50 B2 4B 50 AB 31 3A 99 22 92 20 9D 9D 22 |.KP.KP.1:.". .."|
00000AC0: 3B 3A 89 31 35 35 30 00 FB 12 40 06 8B 41 24 B2 |;:.1550...@..A$.|
00000AD0: 22 9D 22 AF 4B 50 B1 31 A7 99 22 92 22 CA 28 4B |".".KP.1..".".(K|
00000AE0: 4E 24 2C 4B 50 2C 31 29 22 9D 9D 22 3B 3A 4B 50 |N$,KP,1)"..";:KP|
00000AF0: B2 4B 50 AB 31 3A 89 31 35 35 30 00 30 13 4A 06 |.KP.1:.1550.0.J.|
00000B00: 8B 41 24 B2 22 1D 22 AF 4B 50 B3 B2 4B 4C AF 4B |.A$.".".KP..KL.K|
00000B10: 50 B3 4B 4E A7 99 CA 28 4B 4E 24 2C 4B 50 2C 31 |P.KN...(KN$,KP,1|
00000B20: 29 3B 3A 4B 50 B2 4B 50 AA 31 3A 89 31 38 33 30 |);:KP.KP.1:.1830|
00000B30: 00 4F 13 54 06 8B 41 24 B2 22 09 22 AF 4B 4C B1 |.O.T..A$.".".KL.|
00000B40: B2 4B 50 A7 8D 31 37 36 30 3A 89 31 35 35 30 00 |.KP..1760:.1550.|
00000B50: 80 13 5E 06 8B 41 24 B2 C7 28 33 34 29 A7 31 35 |..^..A$..(34).15|
00000B60: 35 30 3A 8F 20 3C 2D 2D 3C 3C 20 53 4B 49 50 20 |50:. <--<< SKIP |
00000B70: 55 4E 57 41 4E 54 45 44 20 43 48 41 52 20 3E 3E |UNWANTED CHAR >>|
00000B80: 00 C2 13 68 06 8B 4B 53 B2 31 AF 28 28 41 24 B1 |...h..KS.1.((A$.|
00000B90: B2 22 30 22 AF 41 24 B3 B2 22 39 22 29 B0 41 24 |."0".A$.."9").A$|
00000BA0: B2 22 2E 22 B0 41 24 B2 22 2D 22 29 A7 31 36 39 |.".".A$."-").169|
00000BB0: 30 3A 8F 20 3C 2D 3C 3C 20 4E 55 4D 42 45 52 20 |0:. <-<< NUMBER |
00000BC0: 3E 3E 00 FC 13 72 06 8B 4B 53 B1 B2 32 AF 28 41 |>>...r..KS..2.(A|
00000BD0: 24 B1 B2 22 20 22 AF 41 24 B3 B2 22 5F 22 29 A7 |$.." ".A$.."_").|
00000BE0: 31 36 39 30 3A 8F 20 3C 2D 2D 3C 3C 20 41 4C 50 |1690:. <--<< ALP|
00000BF0: 48 41 20 54 49 4C 4C 20 5F 20 3E 3E 00 39 14 7C |HA TILL _ >>.9.||
00000C00: 06 8B 4B 53 B2 33 AF 28 41 24 B1 B2 22 C1 22 AF |..KS.3.(A$..".".|
00000C10: 41 24 B3 B2 22 DA 22 29 A7 31 36 39 30 3A 8F 20 |A$..".").1690:. |
00000C20: 3C 2D 2D 3C 3C 20 41 4C 50 48 41 20 54 49 4C 4C |<--<< ALPHA TILL|
00000C30: 20 43 41 50 2D 5A 20 3E 3E 00 61 14 86 06 8B 41 | CAP-Z >>.a....A|
00000C40: 24 B2 C7 28 31 33 29 B0 41 24 B2 22 91 22 B0 41 |$..(13).A$.".".A|
00000C50: 24 B2 22 11 22 B0 41 24 B2 22 13 22 A7 31 37 32 |$.".".A$.".".172|
00000C60: 30 00 6B 14 90 06 89 31 35 35 30 00 99 14 9A 06 |0.k....1550.....|
00000C70: 4D B2 C3 28 4B 4E 24 29 3A 4B 4E 24 B2 C8 28 4B |M..(KN$):KN$..(K|
00000C80: 4E 24 2C 4B 50 AB 31 29 AA 41 24 AA CA 28 4B 4E |N$,KP.1).A$..(KN|
00000C90: 24 2C 4B 50 AA 31 2C 4D 29 00 B8 14 A4 06 4B 50 |$,KP.1,M).....KP|
00000CA0: B2 4B 50 AA 31 3A 99 41 24 3B 3A 8B 4B 50 B2 36 |.KP.1:.A$;:.KP.6|
00000CB0: 36 A7 99 C7 28 37 29 3B 00 C9 14 AE 06 8B 4B 50 |6...(7);......KP|
00000CC0: B3 B2 4B 4E A7 31 35 35 30 00 F1 14 B8 06 99 C8 |..KN.1550.......|
00000CD0: 28 43 44 24 2C 4B 58 29 A6 4B 59 29 4B 4E 24 3B |(CD$,KX).KY)KN$;|
00000CE0: 3A 8B C3 28 4B 4E 24 29 B3 4B 4E A7 99 22 20 22 |:..(KN$).KN.." "|
00000CF0: 3B 00 F7 14 C2 06 8E 00 13 15 CC 06 81 4B 49 B2 |;............KI.|
00000D00: 31 A4 4B 46 3A A1 41 24 3A 8B 41 24 B2 22 22 A7 |1.KF:.A$:.A$."".|
00000D10: 82 4B 49 00 19 15 D6 06 8E 00 49 15 E0 06 99 CA |.KI.......I.....|
00000D20: 28 4B 4E 24 2C 4B 50 2C 4B 4C 29 3B 3A 4B 50 B2 |(KN$,KP,KL);:KP.|
00000D30: 4B 4C AA 31 3A 8B 4B 4E B2 4B 4C A7 99 22 9D 22 |KL.1:.KN.KL.."."|
00000D40: 3B 3A 4B 50 B2 4B 50 AB 31 00 4F 15 EA 06 8E 00 |;:KP.KP.1.O.....|
00000D50: 80 15 F4 06 8B 4B 50 B1 C3 28 4B 4E 24 29 A7 99 |.....KP..(KN$)..|
00000D60: 22 20 9D 9D 22 3B 3A 4B 50 B2 4B 50 AB 31 3A 4B |" ..";:KP.KP.1:K|
00000D70: 4E 24 B2 C8 28 4B 4E 24 2C 4B 50 AB 31 29 3A 8E |N$..(KN$,KP.1):.|
00000D80: 00 B1 15 FE 06 4D B2 C3 28 4B 4E 24 29 3A 4B 4E |.....M..(KN$):KN|
00000D90: 24 B2 C8 28 4B 4E 24 2C 4B 50 AB 32 29 AA CA 28 |$..(KN$,KP.2)..(|
00000DA0: 4B 4E 24 2C 4B 50 2C 4D 29 3A 4B 50 B2 4B 50 AB |KN$,KP,M):KP.KP.|
00000DB0: 31 00 DF 15 08 07 99 C8 28 43 44 24 2C 4B 58 29 |1.......(CD$,KX)|
00000DC0: A6 4B 59 29 4B 4E 24 22 20 22 C8 28 43 44 24 2C |.KY)KN$" ".(CD$,|
00000DD0: 4B 58 29 A6 4B 59 AA 4B 50 AB 31 29 3B 3A 8E 00 |KX).KY.KP.1);:..|
00000DE0: 0C 16 12 07 4D B2 C3 28 4B 4E 24 29 3A 4B 4E 24 |....M..(KN$):KN$|
00000DF0: B2 C8 28 4B 4E 24 2C 4B 50 AB 31 29 AA 22 20 22 |..(KN$,KP.1)." "|
00000E00: AA CA 28 4B 4E 24 2C 4B 50 2C 4D 29 00 37 16 1C |..(KN$,KP,M).7..|
00000E10: 07 99 C8 28 43 44 24 2C 4B 58 29 A6 4B 59 29 4B |...(CD$,KX).KY)K|
00000E20: 4E 24 C8 28 43 44 24 2C 4B 58 29 A6 4B 59 AA 4B |N$.(CD$,KX).KY.K|
00000E30: 50 AB 31 29 3B 3A 8E 00 49 16 26 07 8B 4B 50 B2 |P.1);:..I.&..KP.|
00000E40: 36 36 A7 99 C7 28 37 29 3B 00 53 16 30 07 89 31 |66...(7);.S.0..1|
00000E50: 35 35 30 00 75 16 3A 07 8F 20 3C 2D 2D 2D 2D 3C |550.u.:.. <----<|
00000E60: 3C 20 44 49 53 50 4C 41 59 20 4D 45 53 53 41 47 |< DISPLAY MESSAG|
00000E70: 45 53 20 3E 3E 00 9A 16 44 07 99 22 13 22 53 31 |ES >>...D.."."S1|
00000E80: 24 A6 28 34 30 AB C3 28 4D 24 29 29 AD 32 29 22 |$.(40..(M$)).2)"|
00000E90: 12 22 4D 24 3A 99 53 31 24 3B 00 A0 16 4E 07 8E |."M$:.S1$;...N..|
00000EA0: 00 CA 16 58 07 8F 20 3C 2D 2D 2D 2D 3C 3C 20 44 |...X.. <----<< D|
00000EB0: 49 53 50 4C 41 59 20 52 45 4D 41 52 4B 53 20 4D |ISPLAY REMARKS M|
00000EC0: 45 53 53 41 47 45 53 20 3E 3E 00 FA 16 62 07 99 |ESSAGES >>...b..|
00000ED0: C8 28 43 44 24 2C 58 29 C8 28 42 4C 24 2C 33 39 |.(CD$,X).(BL$,39|
00000EE0: 29 C8 28 43 44 24 2C 58 29 A6 28 34 30 AB C3 28 |).(CD$,X).(40..(|
00000EF0: 4D 24 29 29 AD 32 29 4D 24 3B 00 00 17 6C 07 8E |M$)).2)M$;...l..|
00000F00: 00 3A 17 76 07 8F 20 3C 2D 2D 2D 2D 3C 3C 20 44 |.:.v.. <----<< D|
00000F10: 49 53 50 4C 41 59 20 4D 45 53 53 41 47 45 53 20 |ISPLAY MESSAGES |
00000F20: 41 4E 44 20 57 41 49 54 20 46 4F 52 20 44 41 54 |AND WAIT FOR DAT|
00000F30: 41 20 45 4E 54 52 59 20 3E 3E 00 53 17 80 07 99 |A ENTRY >>.S....|
00000F40: C8 28 43 44 24 2C 4B 58 29 C8 28 42 4C 24 2C 33 |.(CD$,KX).(BL$,3|
00000F50: 39 29 3B 00 8A 17 8A 07 99 C8 28 43 44 24 2C 4B |9);.......(CD$,K|
00000F60: 58 29 A6 28 34 30 AB C3 28 4D 24 29 29 AD 32 29 |X).(40..(M$)).2)|
00000F70: 4D 24 3B 3A 4B 4E B2 31 3A 4B 53 B2 32 3A 4B 4E |M$;:KN.1:KS.2:KN|
00000F80: 24 B2 22 22 3A 8D 31 34 36 30 00 9B 17 94 07 8B |$."":.1460......|
00000F90: 4B 4E 24 B2 22 22 A7 31 39 33 30 00 B7 17 9E 07 |KN$."".1930.....|
00000FA0: 8B 4B 4E 24 B3 B1 22 59 22 AF 4B 4E 24 B3 B1 22 |.KN$.."Y".KN$.."|
00000FB0: 4E 22 A7 31 39 33 30 00 BD 17 A8 07 8E 00 E4 17 |N".1930.........|
00000FC0: B2 07 8F 20 3C 2D 2D 2D 2D 3C 3C 20 52 45 44 49 |... <----<< REDI|
00000FD0: 53 50 4C 41 59 20 44 41 54 41 20 53 54 52 49 4E |SPLAY DATA STRIN|
00000FE0: 47 20 3E 3E 00 0F 18 BC 07 99 C8 28 43 44 24 2C |G >>.......(CD$,|
00000FF0: 4B 58 29 A6 4B 59 29 C8 28 42 4C 24 2C 42 29 C8 |KX).KY).(BL$,B).|
00001000: 28 43 44 24 2C 4B 58 29 A6 4B 59 29 4D 24 3B 00 |(CD$,KX).KY)M$;.|
00001010: 15 18 C6 07 8E 00 36 18 D0 07 8F 20 3C 2D 2D 2D |......6.... <---|
00001020: 2D 3C 3C 20 53 43 52 45 45 4E 20 46 4F 52 4D 41 |-<< SCREEN FORMA|
00001030: 54 20 31 20 3E 3E 00 5A 18 DA 07 99 22 11 11 11 |T 1 >>.Z...."...|
00001040: 12 31 2E 92 20 C2 4F 4F 4B 20 D4 49 54 4C 45 20 |.1.. .OOK .ITLE |
00001050: 20 20 20 20 20 20 3A 22 3A 99 00 7B 18 E4 07 99 | :":..{....|
00001060: 22 12 32 2E 92 20 CE 4F 2E 20 4F 46 20 D1 55 45 |".2.. .O. OF .UE|
00001070: 53 54 49 4F 4E 53 20 3A 22 3A 99 00 9A 18 EE 07 |STIONS :":......|
00001080: 99 22 12 33 2E 92 20 CE 4F 2E 20 4F 46 20 C3 48 |.".3.. .O. OF .H|
00001090: 4F 49 43 45 53 20 20 20 3A 22 00 AD 18 F8 07 99 |OICES :"......|
000010A0: C8 28 43 44 24 2C 32 33 29 53 32 24 3B 00 B3 18 |.(CD$,23)S2$;...|
000010B0: 02 08 8E 00 D4 18 0C 08 8F 20 3C 2D 2D 2D 2D 3C |......... <----<|
000010C0: 3C 20 53 43 52 45 45 4E 20 46 4F 52 4D 41 54 20 |< SCREEN FORMAT |
000010D0: 32 20 3E 3E 00 FA 18 16 08 99 22 93 13 22 3A 4D |2 >>......"..":M|
000010E0: 24 B2 22 20 C5 4E 54 45 52 20 D1 55 45 53 54 49 |$." .NTER .UESTI|
000010F0: 4F 4E 20 22 3A 8D 31 38 35 30 00 16 19 20 08 99 |ON ":.1850... ..|
00001100: A6 35 29 22 D1 D5 C5 D3 D4 C9 CF CE 20 CE D5 CD |.5)"........ ...|
00001110: C2 C5 D2 20 3A 22 00 34 19 2A 08 99 22 12 20 31 |... :".4.*..". 1|
00001120: 2E 92 20 C3 4F 52 52 45 43 54 20 C1 4E 53 57 45 |.. .ORRECT .NSWE|
00001130: 52 20 3A 22 00 52 19 34 08 99 22 12 20 32 2E 92 |R :".R.4..". 2..|
00001140: 20 D1 55 45 53 54 49 4F 4E 20 C9 53 20 20 20 20 | .UESTION .S |
00001150: 3A 22 00 62 19 3E 08 99 3A 99 3A 99 3A 99 3A 99 |:".b.>..:.:.:.:.|
00001160: 3A 99 00 95 19 48 08 81 4E B2 31 A4 C5 28 46 33 |:....H..N.1..(F3|
00001170: 24 29 3A 99 22 12 22 AA C4 28 4E AA 32 29 AA 22 |$):."."..(N.2)."|
00001180: 2E 92 20 C3 48 4F 49 43 45 22 AA C4 28 4E 29 AA |.. .HOICE"..(N).|
00001190: 22 20 20 3A 22 00 9E 19 52 08 99 3A 82 4E 00 B1 |" :"...R..:.N..|
000011A0: 19 5C 08 99 C8 28 43 44 24 2C 32 33 29 53 32 24 |.\...(CD$,23)S2$|
000011B0: 3B 00 B7 19 66 08 8E 00 DA 19 70 08 8F 20 3C 2D |;...f.....p.. <-|
000011C0: 2D 2D 2D 3C 3C 20 43 48 45 43 4B 20 46 49 4C 45 |---<< CHECK FILE|
000011D0: 20 45 58 49 53 54 53 20 3E 3E 00 FD 19 7A 08 4D | EXISTS >>...z.M|
000011E0: 4D B2 30 3A 4D 4F 24 B2 46 31 24 AA 22 2C 53 2C |M.0:MO$.F1$.",S,|
000011F0: 52 22 3A 9F 32 2C 38 2C 32 2C 4D 4F 24 00 08 1A |R":.2,8,2,MO$...|
00001200: 84 08 84 31 35 2C 45 53 00 3A 1A 8E 08 8B 45 53 |...15,ES.:....ES|
00001210: B3 B1 36 32 A7 4D 4D B2 31 3A 4D 24 B2 22 20 C5 |..62.MM.1:M$." .|
00001220: 52 52 4F 52 20 2D 20 C6 49 4C 45 20 C5 58 49 53 |RROR - .ILE .XIS|
00001230: 54 53 20 22 3A 8D 32 37 35 30 00 43 1A 98 08 A0 |TS ":.2750.C....|
00001240: 32 3A 8E 00 65 1A A2 08 8F 20 3C 2D 2D 2D 2D 3C |2:..e.... <----<|
00001250: 3C 20 55 50 44 41 54 45 20 49 4E 54 4F 20 46 49 |< UPDATE INTO FI|
00001260: 4C 45 20 3E 3E 00 83 1A AC 08 4D 4F 24 B2 46 31 |LE >>.....MO$.F1|
00001270: 24 AA 22 2C 53 2C 57 22 3A 9F 32 2C 38 2C 32 2C |$.",S,W":.2,8,2,|
00001280: 4D 4F 24 00 99 1A B6 08 98 32 2C 46 32 24 3B 55 |MO$......2,F2$;U|
00001290: 24 3B 46 33 24 3B 55 24 3B 00 9F 1A C0 08 8E 00 |$;F3$;U$;.......|
000012A0: C5 1A CA 08 8F 20 3C 2D 2D 2D 2D 3C 3C 20 45 4E |..... <----<< EN|
000012B0: 54 52 59 20 31 20 2D 20 42 4F 4F 4B 20 54 49 54 |TRY 1 - BOOK TIT|
000012C0: 4C 45 20 3E 3E 00 FC 1A D4 08 4D 24 B2 22 C5 4E |LE >>.....M$.".N|
000012D0: 54 45 52 20 C2 4F 4F 4B 20 D4 49 54 4C 45 20 28 |TER .OOK .ITLE (|
000012E0: 20 31 35 20 43 48 41 52 41 43 54 45 52 53 20 29 | 15 CHARACTERS )|
000012F0: 22 3A 58 B2 32 34 3A 8D 31 38 38 30 00 35 1B DE |":X.24:.1880.5..|
00001300: 08 4B 53 B2 33 3A 4B 4E 24 B2 46 31 24 3A 4B 4E |.KS.3:KN$.F1$:KN|
00001310: B2 31 35 3A 4B 58 B2 37 3A 4B 59 B2 32 32 3A 8D |.15:KX.7:KY.22:.|
00001320: 31 34 36 30 3A 8B 4B 4E 24 B3 B1 22 22 A7 46 31 |1460:.KN$.."".F1|
00001330: 24 B2 4B 4E 24 00 4D 1B E8 08 4D 24 B2 46 31 24 |$.KN$.M...M$.F1$|
00001340: 3A 8B 46 31 24 B2 22 22 A7 32 32 37 30 00 5C 1B |:.F1$."".2270.\.|
00001350: F2 08 42 B2 31 35 3A 8D 31 39 37 30 00 62 1B FC |..B.15:.1970.b..|
00001360: 08 8E 00 8C 1B 06 09 8F 20 3C 2D 2D 2D 2D 3C 3C |........ <----<<|
00001370: 20 45 4E 54 52 59 20 32 20 2D 20 4E 4F 20 4F 46 | ENTRY 2 - NO OF|
00001380: 20 51 55 45 53 54 49 4F 4E 20 3E 3E 00 C4 1B 10 | QUESTION >>....|
00001390: 09 4B 53 B2 31 3A 4B 4E 24 B2 46 32 24 3A 4B 4E |.KS.1:KN$.F2$:KN|
000013A0: B2 33 3A 4B 58 B2 39 3A 4B 59 B2 32 32 3A 8D 31 |.3:KX.9:KY.22:.1|
000013B0: 34 36 30 3A 8B 4B 4E 24 B3 B1 22 22 A7 46 32 24 |460:.KN$.."".F2$|
000013C0: B2 4B 4E 24 00 DC 1B 1A 09 4D 24 B2 46 32 24 3A |.KN$.....M$.F2$:|
000013D0: 8B 46 32 24 B2 22 22 A7 32 33 32 30 00 EA 1B 24 |.F2$."".2320...$|
000013E0: 09 42 B2 33 3A 8D 31 39 37 30 00 F0 1B 2E 09 8E |.B.3:.1970......|
000013F0: 00 18 1C 38 09 8F 20 3C 2D 2D 2D 2D 3C 3C 20 45 |...8.. <----<< E|
00001400: 4E 54 52 59 20 33 20 2D 20 4E 4F 20 4F 46 20 43 |NTRY 3 - NO OF C|
00001410: 48 4F 49 43 45 20 3E 3E 00 51 1C 42 09 4B 53 B2 |HOICE >>.Q.B.KS.|
00001420: 31 3A 4B 4E 24 B2 46 33 24 3A 4B 4E B2 31 3A 4B |1:KN$.F3$:KN.1:K|
00001430: 58 B2 31 31 3A 4B 59 B2 32 32 3A 8D 31 34 36 30 |X.11:KY.22:.1460|
00001440: 3A 8B 4B 4E 24 B3 B1 22 22 A7 46 33 24 B2 4B 4E |:.KN$.."".F3$.KN|
00001450: 24 00 6D 1C 4C 09 8B 46 33 24 B3 B1 22 34 22 AF |$.m.L..F3$.."4".|
00001460: 46 33 24 B3 B1 22 35 22 A7 32 33 37 30 00 85 1C |F3$.."5".2370...|
00001470: 56 09 4D 24 B2 46 33 24 3A 8B 46 33 24 B2 22 22 |V.M$.F3$:.F3$.""|
00001480: A7 32 33 37 30 00 93 1C 60 09 42 B2 31 3A 8D 31 |.2370...`.B.1:.1|
00001490: 39 37 30 00 99 1C 6A 09 8E 00 BB 1C 74 09 8F 20 |970...j.....t.. |
000014A0: 3C 2D 2D 2D 2D 3C 3C 20 45 4E 54 52 59 20 34 20 |<----<< ENTRY 4 |
000014B0: 2D 20 41 4E 53 57 45 52 20 3E 3E 00 F3 1C 7E 09 |- ANSWER >>...~.|
000014C0: 4B 53 B2 31 3A 4B 4E 24 B2 46 34 24 3A 4B 4E B2 |KS.1:KN$.F4$:KN.|
000014D0: 31 3A 4B 58 B2 35 3A 4B 59 B2 32 31 3A 8D 31 34 |1:KX.5:KY.21:.14|
000014E0: 36 30 3A 8B 4B 4E 24 B3 B1 22 22 A7 46 34 24 B2 |60:.KN$.."".F4$.|
000014F0: 4B 4E 24 00 0B 1D 88 09 4D 24 B2 46 34 24 3A 8B |KN$.....M$.F4$:.|
00001500: 46 34 24 B2 22 22 A7 32 34 33 30 00 19 1D 92 09 |F4$."".2430.....|
00001510: 42 B2 31 3A 8D 31 39 37 30 00 1F 1D 9C 09 8E 00 |B.1:.1970.......|
00001520: 44 1D A6 09 8F 20 3C 2D 2D 2D 2D 3C 3C 20 45 4E |D.... <----<< EN|
00001530: 54 52 59 20 35 20 2D 20 51 55 45 53 54 49 4F 4E |TRY 5 - QUESTION|
00001540: 53 20 3E 3E 00 77 1D B0 09 4B 53 B2 33 3A 4B 4E |S >>.w...KS.3:KN|
00001550: 24 B2 59 59 24 3A 4B 4E B2 34 30 3A 4B 59 B2 30 |$.YY$:KN.40:KY.0|
00001560: 3A 8D 31 34 36 30 3A 8B 4B 4E 24 B3 B1 22 22 A7 |:.1460:.KN$.."".|
00001570: 59 59 24 B2 4B 4E 24 00 8F 1D BA 09 4D 24 B2 59 |YY$.KN$.....M$.Y|
00001580: 59 24 3A 8B 59 59 24 B2 22 22 A7 32 34 38 30 00 |Y$:.YY$."".2480.|
00001590: 9E 1D C4 09 42 B2 34 30 3A 8D 31 39 37 30 00 A4 |....B.40:.1970..|
000015A0: 1D CE 09 8E 00 C6 1D D8 09 8F 20 3C 2D 2D 2D 2D |.......... <----|
000015B0: 3C 3C 20 45 4E 54 52 59 20 36 20 2D 20 43 48 4F |<< ENTRY 6 - CHO|
000015C0: 49 43 45 20 3E 3E 00 F9 1D E2 09 4B 53 B2 33 3A |ICE >>.....KS.3:|
000015D0: 4B 4E 24 B2 59 59 24 3A 4B 4E B2 33 38 3A 4B 59 |KN$.YY$:KN.38:KY|
000015E0: B2 31 3A 8D 31 34 36 30 3A 8B 4B 4E 24 B3 B1 22 |.1:.1460:.KN$.."|
000015F0: 22 A7 59 59 24 B2 4B 4E 24 00 11 1E EC 09 4D 24 |".YY$.KN$.....M$|
00001600: B2 59 59 24 3A 8B 59 59 24 B2 22 22 A7 32 35 33 |.YY$:.YY$."".253|
00001610: 30 00 20 1E F6 09 42 B2 33 38 3A 8D 31 39 37 30 |0. ...B.38:.1970|
00001620: 00 26 1E 00 0A 8E 00 51 1E 0A 0A 8F 20 3C 2D 2D |.&.....Q.... <--|
00001630: 2D 2D 3C 3C 20 55 50 44 41 54 45 20 54 48 45 20 |--<< UPDATE THE |
00001640: 52 45 53 54 20 49 4E 54 4F 20 46 49 4C 45 20 3E |REST INTO FILE >|
00001650: 3E 00 8A 1E 14 0A 98 32 2C 46 34 24 3B 55 24 3B |>......2,F4$;U$;|
00001660: 46 35 24 3B 55 24 3B 47 35 24 3B 55 24 3B 47 36 |F5$;U$;G5$;U$;G6|
00001670: 24 3B 55 24 3B 47 37 24 3B 55 24 3B 47 38 24 3B |$;U$;G7$;U$;G8$;|
00001680: 55 24 3B 47 39 24 3B 55 24 3B 00 B5 1E 1E 0A 98 |U$;G9$;U$;......|
00001690: 32 2C 46 36 24 3B 55 24 3B 46 37 24 3B 55 24 3B |2,F6$;U$;F7$;U$;|
000016A0: 46 38 24 3B 55 24 3B 46 39 24 3B 55 24 3B 46 41 |F8$;U$;F9$;U$;FA|
000016B0: 24 3B 55 24 3B 00 BB 1E 28 0A 8E 00 D7 1E 32 0A |$;U$;...(.....2.|
000016C0: 8F 20 3C 2D 2D 2D 2D 3C 3C 20 43 4C 45 41 52 20 |. <----<< CLEAR |
000016D0: 44 41 54 41 20 3E 3E 00 F5 1E 3C 0A 99 22 13 11 |DATA >>...<.."..|
000016E0: 11 11 22 A6 32 31 29 C8 28 42 4C 24 2C 31 37 29 |..".21).(BL$,17)|
000016F0: 3A 99 22 11 22 00 0F 1F 46 0A 81 4D B2 31 A4 36 |:."."...F..M.1.6|
00001700: 3A 99 C8 28 42 4C 24 2C 34 30 29 3B 3A 82 4D 00 |:..(BL$,40);:.M.|
00001710: 30 1F 50 0A 81 4D B2 31 A4 C5 28 46 33 24 29 3A |0.P..M.1..(F3$):|
00001720: 99 22 11 22 C8 28 42 4C 24 2C 33 39 29 3A 82 4D |.".".(BL$,39):.M|
00001730: 00 5E 1F 5A 0A 46 34 24 B2 22 22 3A 46 36 24 B2 |.^.Z.F4$."":F6$.|
00001740: 22 22 3A 46 37 24 B2 22 22 3A 46 38 24 B2 22 22 |"":F7$."":F8$.""|
00001750: 3A 46 39 24 B2 22 22 3A 46 41 24 B2 22 22 00 94 |:F9$."":FA$.""..|
00001760: 1F 64 0A 46 35 24 B2 C7 28 33 32 29 3A 47 35 24 |.d.F5$..(32):G5$|
00001770: B2 46 35 24 3A 47 36 24 B2 46 35 24 3A 47 37 24 |.F5$:G6$.F5$:G7$|
00001780: B2 46 35 24 3A 47 38 24 B2 46 35 24 3A 47 39 24 |.F5$:G8$.F5$:G9$|
00001790: B2 46 35 24 00 9A 1F 6E 0A 8E 00 C6 1F 78 0A 8F |.F5$...n.....x..|
000017A0: 20 3C 2D 2D 2D 2D 3C 3C 20 43 4C 45 41 52 20 53 | <----<< CLEAR S|
000017B0: 43 52 45 45 4E 20 46 4F 52 20 4E 45 58 54 20 50 |CREEN FOR NEXT P|
000017C0: 41 47 45 20 3E 3E 00 FA 1F 82 0A 43 43 B2 30 3A |AGE >>.....CC.0:|
000017D0: 59 59 B2 30 3A 4D 24 B2 22 20 20 20 20 20 20 20 |YY.0:M$." |
000017E0: D0 52 45 53 53 20 43 20 54 4F 20 43 4F 4E 54 49 |.RESS C TO CONTI|
000017F0: 4E 55 45 22 3A 8D 31 38 38 30 00 10 20 8C 0A A1 |NUE":.1880.. ...|
00001800: 41 24 3A 8B 41 24 B3 B1 22 43 22 A7 32 37 30 30 |A$:.A$.."C".2700|
00001810: 00 42 20 96 0A 8B 4B 4E 24 B2 22 47 22 B0 4B 4E |.B ...KN$."G".KN|
00001820: 24 B2 22 C7 22 A7 99 22 13 22 3A 81 4D B2 31 A4 |$."."..".":.M.1.|
00001830: 32 30 3A 99 A3 37 29 C8 28 42 4C 24 2C 33 31 29 |20:..7).(BL$,31)|
00001840: 3A 82 00 5C 20 A0 0A 8B 4B 4E 24 B2 22 47 22 B0 |:..\ ...KN$."G".|
00001850: 4B 4E 24 B2 22 C7 22 89 31 37 33 30 00 87 20 AA |KN$.".".1730.. .|
00001860: 0A 99 22 13 11 11 11 11 11 11 22 3A 81 4D B2 31 |..".......":.M.1|
00001870: A4 31 31 3A 99 42 4C 24 3B 3A 82 4D 3A 99 22 13 |.11:.BL$;:.M:.".|
00001880: 11 11 11 11 11 11 22 00 8D 20 B4 0A 8E 00 B5 20 |......".. ..... |
00001890: BE 0A 8F 20 3C 2D 2D 2D 2D 3C 3C 20 45 52 52 4F |... <----<< ERRO|
000018A0: 52 20 4D 45 53 53 41 47 45 53 20 44 49 53 50 4C |R MESSAGES DISPL|
000018B0: 41 59 20 3E 3E 00 D4 20 C8 0A 99 C8 28 43 44 24 |AY >>.. ....(CD$|
000018C0: 2C 58 29 C8 28 42 4C 24 2C 33 39 29 3A 81 42 42 |,X).(BL$,39):.BB|
000018D0: B2 31 A4 34 00 00 21 D2 0A 99 C8 28 43 44 24 2C |.1.4..!....(CD$,|
000018E0: 58 29 A6 28 34 30 AB C3 28 4D 24 29 29 AD 32 29 |X).(40..(M$)).2)|
000018F0: 22 12 22 4D 24 3B 3A 81 54 B2 31 A4 42 53 3A 82 |"."M$;:.T.1.BS:.|
00001900: 00 2E 21 DC 0A 99 C8 28 43 44 24 2C 58 29 A6 28 |..!....(CD$,X).(|
00001910: 34 30 AB C3 28 4D 24 29 29 AD 32 29 22 92 22 4D |40..(M$)).2)"."M|
00001920: 24 3B 3A 81 54 B2 31 A4 42 53 AD 32 3A 82 00 36 |$;:.T.1.BS.2:..6|
00001930: 21 E6 0A 82 42 42 00 48 21 F0 0A 99 C8 28 43 44 |!...BB.H!....(CD|
00001940: 24 2C 58 29 42 4C 24 3B 00 4E 21 FA 0A 8E 00 69 |$,X)BL$;.N!....i|
00001950: 21 04 0B 8F 20 3C 2D 2D 2D 2D 3C 3C 20 52 45 41 |!... <----<< REA|
00001960: 44 20 44 41 54 41 20 3E 3E 00 7C 21 0E 0B 84 32 |D DATA >>.|!...2|
00001970: 2C 41 31 24 2C 41 32 24 2C 41 33 24 00 82 21 18 |,A1$,A2$,A3$..!.|
00001980: 0B 8E 00 A8 21 22 0B 8F 20 3C 2D 2D 2D 2D 3C 3C |....!".. <----<<|
00001990: 20 52 45 50 4F 52 54 20 50 52 49 4E 54 49 4E 47 | REPORT PRINTING|
000019A0: 20 4D 45 4E 55 20 3E 3E 00 CA 21 2C 0B 99 22 93 | MENU >>..!,..".|
000019B0: 22 3A 4D 24 B2 22 20 D2 45 50 4F 52 54 20 CD 45 |":M$." .EPORT .E|
000019C0: 4E 55 20 22 3A 8D 31 38 35 30 00 FA 21 36 0B 99 |NU ":.1850..!6..|
000019D0: 22 20 CE 41 4D 45 20 3A 22 3A 99 A3 39 29 22 12 |" .AME :":..9)".|
000019E0: CC 92 49 53 54 49 4E 47 20 2F 20 12 C7 92 52 41 |..ISTING / ...RA|
000019F0: 50 48 20 3A 22 3A 99 53 32 24 00 2E 22 40 0B 4B |PH :":.S2$.."@.K|
00001A00: 4E 24 B2 22 22 3A 4B 58 B2 34 3A 4B 59 B2 39 3A |N$."":KX.4:KY.9:|
00001A10: 4B 53 B2 33 3A 4B 4E B2 32 34 3A 8D 31 34 36 30 |KS.3:KN.24:.1460|
00001A20: 3A 8B 4B 4E 24 B2 22 30 22 A7 31 30 33 30 00 4B |:.KN$."0".1030.K|
00001A30: 22 4A 0B 9F 32 2C 38 2C 32 2C 4B 4E 24 AA 22 2C |"J..2,8,2,KN$.",|
00001A40: 53 2C 52 22 3A 84 31 35 2C 45 53 00 88 22 54 0B |S,R":.15,ES.."T.|
00001A50: 8B 45 53 B2 36 32 A7 4D 24 B2 22 20 C5 52 52 4F |.ES.62.M$." .RRO|
00001A60: 52 20 2D 20 C6 49 4C 45 20 4E 4F 54 20 C6 4F 55 |R - .ILE NOT .OU|
00001A70: 4E 44 20 22 3A 58 B2 32 33 3A 8D 32 37 35 30 3A |ND ":X.23:.2750:|
00001A80: A0 32 3A 89 32 38 38 30 00 AE 22 5E 0B 4B 4E 24 |.2:.2880.."^.KN$|
00001A90: B2 22 22 3A 4B 58 B2 35 3A 4B 59 B2 32 38 3A 4B |."":KX.5:KY.28:K|
00001AA0: 53 B2 33 3A 4B 4E B2 31 3A 8D 31 34 36 30 00 DC |S.3:KN.1:.1460..|
00001AB0: 22 68 0B 8B 4B 4E 24 B3 B1 22 4C 22 AF 4B 4E 24 |"h..KN$.."L".KN$|
00001AC0: B3 B1 22 CC 22 AF 4B 4E 24 B3 B1 22 47 22 AF 4B |..".".KN$.."G".K|
00001AD0: 4E 24 B3 B1 22 C7 22 A7 32 39 31 30 00 FD 22 72 |N$..".".2910.."r|
00001AE0: 0B 84 32 2C 43 43 24 3A 8B 4B 4E 24 B2 22 47 22 |..2,CC$:.KN$."G"|
00001AF0: B0 4B 4E 24 B2 22 C7 22 A7 33 30 32 30 00 2E 23 |.KN$.".".3020..#|
00001B00: 7C 0B 99 22 11 22 3A 99 22 20 20 20 C2 4F 4F 4B ||..".":." .OOK|
00001B10: 20 D4 49 54 4C 45 20 20 20 20 20 C4 41 54 45 20 | .ITLE .ATE |
00001B20: 20 20 20 20 CD 41 52 4B 53 20 28 25 29 22 00 52 | .ARKS (%)".R|
00001B30: 23 86 0B 43 43 B2 30 3A 81 5A 5A B2 31 A4 C5 28 |#..CC.0:.ZZ.1..(|
00001B40: 43 43 24 29 3A 8D 32 38 32 30 3A 43 43 B2 43 43 |CC$):.2820:CC.CC|
00001B50: AA 31 00 85 23 90 0B 50 50 24 B2 C8 28 41 31 24 |.1..#..PP$..(A1$|
00001B60: AA 42 4C 24 2C 31 35 29 AA 22 20 20 22 AA C8 28 |.BL$,15)." "..(|
00001B70: 41 32 24 2C 32 29 AA 22 2F 22 AA CA 28 41 32 24 |A2$,2)."/"..(A2$|
00001B80: 2C 33 2C 32 29 00 AB 23 9A 0B 50 50 24 B2 50 50 |,3,2)..#..PP$.PP|
00001B90: 24 AA C9 28 41 32 24 2C 32 29 AA 22 20 20 20 20 |$..(A2$,2)." |
00001BA0: 20 22 AA 41 33 24 3A 99 50 50 24 00 BC 23 A4 0B | ".A3$:.PP$..#..|
00001BB0: 8B 43 43 B2 31 30 A7 8D 32 36 38 30 00 CA 23 AE |.CC.10..2680..#.|
00001BC0: 0B 82 5A 5A 3A 8D 32 36 38 30 00 D7 23 B8 0B A0 |..ZZ:.2680..#...|
00001BD0: 32 3A 89 31 30 36 30 00 FC 23 C2 0B 8F 20 3C 2D |2:.1060..#... <-|
00001BE0: 2D 3C 3C 20 45 4E 44 20 4F 46 20 4C 49 53 54 49 |-<< END OF LISTI|
00001BF0: 4E 47 20 52 45 50 4F 52 54 20 3E 3E 00 1A 24 CC |NG REPORT >>..$.|
00001C00: 0B 8F 20 3C 2D 2D 2D 2D 3C 3C 20 47 52 41 50 48 |.. <----<< GRAPH|
00001C10: 20 52 45 50 4F 52 54 20 3E 3E 00 2C 24 D6 0B 99 | REPORT >>.,$...|
00001C20: 22 93 22 3A 81 5A 5A B2 31 A4 31 30 00 40 24 E0 |".":.ZZ.1.10.@$.|
00001C30: 0B 99 A3 35 29 22 B3 22 3A 99 A3 35 29 22 DD 22 |...5)".":..5)"."|
00001C40: 00 4E 24 EA 0B 82 3A 99 A3 35 29 22 DB 22 00 66 |.N$...:..5)".".f|
00001C50: 24 F4 0B 99 22 91 22 A3 35 29 3A 99 22 1D 22 C7 |$...".".5):.".".|
00001C60: 28 31 39 32 29 3B 00 80 24 FE 0B 81 5A 5A B2 31 |(192);..$...ZZ.1|
00001C70: A4 33 30 3A 99 C7 28 31 39 32 29 3B 3A 82 5A 5A |.30:..(192);:.ZZ|
00001C80: 00 95 24 08 0C 99 22 13 22 3A 81 5A 5A B2 31 30 |..$...".":.ZZ.10|
00001C90: A4 31 A9 AB 31 00 A5 24 12 0C 99 A3 31 29 5A 5A |.1..1..$....1)ZZ|
00001CA0: AC 31 30 3A 99 00 B3 24 1C 0C 82 3A 99 A3 33 29 |.10:...$...:..3)|
00001CB0: 22 30 22 00 D1 24 26 0C 43 43 B2 30 3A 81 5A 5A |"0"..$&.CC.0:.ZZ|
00001CC0: B2 31 A4 C5 28 43 43 24 29 3A 43 43 B2 43 43 AA |.1..(CC$):CC.CC.|
00001CD0: 31 00 E6 24 30 0C 8D 32 38 32 30 3A 99 C8 28 43 |1..$0..2820:..(C|
00001CE0: 44 24 2C 32 30 29 00 FB 24 3A 0C 81 4D B2 31 A4 |D$,20)..$:..M.1.|
00001CF0: B5 28 C5 28 41 33 24 29 AD 35 29 00 17 25 44 0C |.(.(A3$).5)..%D.|
00001D00: 99 A3 37 AA 59 59 29 22 1C 12 20 20 92 22 3A 99 |..7.YY)".. .":.|
00001D10: 22 91 91 9D 9D 9D 22 00 26 25 4E 0C 82 4D 3A 59 |".....".&%N..M:Y|
00001D20: 59 B2 59 59 AA 34 00 3C 25 58 0C 99 C8 28 43 44 |Y.YY.4.<%X...(CD|
00001D30: 24 2C 32 30 AB C3 28 41 31 24 29 29 00 6B 25 62 |$,20..(A1$)).k%b|
00001D40: 0C 81 51 51 B2 31 A4 C3 28 41 31 24 29 3A 99 A3 |..QQ.1..(A1$):..|
00001D50: 38 AA 59 59 AB 33 29 CA 28 41 31 24 2C 51 51 2C |8.YY.3).(A1$,QQ,|
00001D60: 31 29 3A 99 22 9D 22 3A 82 51 51 00 7B 25 6C 0C |1):.".":.QQ.{%l.|
00001D70: 8B 43 43 B2 38 A7 8D 32 36 38 30 00 92 25 76 0C |.CC.8..2680..%v.|
00001D80: 82 5A 5A 3A 8D 32 36 38 30 3A A0 32 3A 89 31 30 |.ZZ:.2680:.2:.10|
00001D90: 36 30 00 B3 25 80 0C 8F 20 3C 2D 2D 3C 3C 20 45 |60..%... <--<< E|
00001DA0: 4E 44 20 4F 46 20 47 52 41 50 48 20 50 52 4F 47 |ND OF GRAPH PROG|
00001DB0: 20 3E 3E 00 C8 25 8A 0C 8F 20 3C 2D 2D 2D 2D 3C | >>..%... <----<|
00001DC0: 3C 20 41 53 53 20 3E 3E 00 D5 25 94 0C 9C 3A 99 |< ASS >>..%...:.|
00001DD0: 22 13 13 93 22 00 13 26 9E 0C 43 44 24 B2 22 13 |"..."..&..CD$.".|
00001DE0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001DF0: 11 11 11 11 11 11 11 11 22 3A 43 52 24 B2 C7 28 |........":CR$..(|
00001E00: 31 33 29 3A 58 58 B2 30 3A 4D 4D B2 30 3A 4B 46 |13):XX.0:MM.0:KF|
00001E10: B2 32 30 00 3B 26 A8 0C 99 C8 28 43 44 24 2C 32 |.20.;&....(CD$,2|
00001E20: 35 29 A6 33 39 29 C7 28 31 34 33 29 3A 42 53 B2 |5).39).(143):BS.|
00001E30: 31 30 30 3A 56 B2 35 34 32 37 32 00 7A 26 B2 0C |100:V.54272.z&..|
00001E40: 81 49 B2 31 A4 34 30 3A 53 31 24 B2 53 31 24 AA |.I.1.40:S1$.S1$.|
00001E50: 22 3D 22 3A 53 32 24 B2 53 32 24 AA 22 2D 22 3A |"=":S2$.S2$."-":|
00001E60: 42 4C 24 B2 42 4C 24 AA 22 20 22 3A 43 4C 24 B2 |BL$.BL$." ":CL$.|
00001E70: 43 4C 24 AA 22 9D 22 3A 82 49 00 A5 26 BC 0C 99 |CL$.".":.I..&...|
00001E80: 22 93 22 3A 9F 31 35 2C 38 2C 31 35 3A 4D 24 B2 |".":.15,8,15:M$.|
00001E90: 22 20 C1 53 53 45 53 53 4D 45 4E 54 53 20 22 3A |" .SSESSMENTS ":|
00001EA0: 8D 31 38 35 30 00 C3 26 C6 0C 8D 33 33 34 30 3A |.1850..&...3340:|
00001EB0: 8D 33 37 39 30 3A 8B 4D 4D 24 B2 22 30 22 A7 33 |.3790:.MM$."0".3|
00001EC0: 32 36 30 00 CD 26 D0 0C 89 31 30 33 30 00 F5 26 |260..&...1030..&|
00001ED0: DA 0C 8F 20 3C 2D 2D 2D 2D 3C 3C 20 45 52 52 4F |... <----<< ERRO|
00001EE0: 52 20 4D 45 53 53 41 47 45 53 20 44 49 53 50 4C |R MESSAGES DISPL|
00001EF0: 41 59 20 3E 3E 00 14 27 E4 0C 99 C8 28 43 44 24 |AY >>..'....(CD$|
00001F00: 2C 58 29 C8 28 42 4C 24 2C 33 39 29 3A 81 42 42 |,X).(BL$,39):.BB|
00001F10: B2 31 A4 34 00 40 27 EE 0C 99 C8 28 43 44 24 2C |.1.4.@'....(CD$,|
00001F20: 58 29 A6 28 34 30 AB C3 28 4D 24 29 29 AD 32 29 |X).(40..(M$)).2)|
00001F30: 22 12 22 4D 24 3B 3A 81 54 B2 31 A4 42 53 3A 82 |"."M$;:.T.1.BS:.|
00001F40: 00 6E 27 F8 0C 99 C8 28 43 44 24 2C 58 29 A6 28 |.n'....(CD$,X).(|
00001F50: 34 30 AB C3 28 4D 24 29 29 AD 32 29 22 92 22 4D |40..(M$)).2)"."M|
00001F60: 24 3B 3A 81 54 B2 31 A4 42 53 AD 32 3A 82 00 76 |$;:.T.1.BS.2:..v|
00001F70: 27 02 0D 82 42 42 00 95 27 0C 0D 8F 20 3C 2D 2D |'...BB..'... <--|
00001F80: 2D 2D 3C 3C 20 53 43 52 45 45 4E 20 46 4F 52 4D |--<< SCREEN FORM|
00001F90: 41 54 20 3E 3E 00 BC 27 16 0D 99 22 13 11 11 11 |AT >>..'..."....|
00001FA0: 11 11 11 11 22 A6 58 58 29 22 20 CE 41 4D 45 20 |....".XX)" .AME |
00001FB0: 20 20 20 20 20 20 20 20 3A 22 3A 99 00 D9 27 20 | :":...' |
00001FC0: 0D 99 A6 58 58 29 22 20 C4 41 54 45 20 28 44 44 |...XX)" .ATE (DD|
00001FD0: 4D 4D 59 59 29 3A 22 3A 99 00 F4 27 2A 0D 99 A6 |MMYY):":...'*...|
00001FE0: 58 58 29 22 20 D4 45 53 54 20 C6 49 4C 45 4E 41 |XX)" .EST .ILENA|
00001FF0: 4D 45 3A 22 00 12 28 34 0D 99 C8 28 43 44 24 2C |ME:"..(4...(CD$,|
00002000: 31 38 29 53 32 24 C8 28 43 44 24 2C 32 30 29 53 |18)S2$.(CD$,20)S|
00002010: 32 24 00 18 28 3E 0D 8E 00 3E 28 48 0D 8F 20 3C |2$..(>...>(H.. <|
00002020: 2D 2D 2D 2D 3C 3C 20 46 49 45 4C 44 20 31 20 45 |----<< FIELD 1 E|
00002030: 4E 54 52 59 20 2D 20 4E 41 4D 45 20 3E 3E 00 79 |NTRY - NAME >>.y|
00002040: 28 52 0D 4D 24 B2 22 D0 4C 45 41 53 45 20 45 4E |(R.M$.".LEASE EN|
00002050: 54 45 52 20 59 4F 55 52 20 CE 41 4D 45 20 28 32 |TER YOUR .AME (2|
00002060: 34 20 43 48 41 52 41 43 54 45 52 53 29 22 3A 58 |4 CHARACTERS)":X|
00002070: B2 31 39 3A 8D 31 38 38 30 00 B6 28 5C 0D 4D 24 |.19:.1880..(\.M$|
00002080: B2 22 20 C5 4E 54 45 52 20 27 30 27 20 54 4F 20 |." .NTER '0' TO |
00002090: D1 55 49 54 2E 20 20 20 20 20 20 20 20 20 20 20 |.UIT. |
000020A0: 20 20 20 20 20 20 20 20 20 20 22 3A 58 B2 32 30 | ":X.20|
000020B0: 3A 8D 31 38 38 30 00 CC 28 66 0D 4D 24 B2 53 32 |:.1880..(f.M$.S2|
000020C0: 24 3A 58 B2 32 31 3A 8D 31 38 38 30 00 EE 28 70 |$:X.21:.1880..(p|
000020D0: 0D 4B 53 B2 33 3A 4B 58 B2 38 3A 4B 59 B2 31 35 |.KS.3:KX.8:KY.15|
000020E0: 3A 4B 4E 24 B2 46 31 24 3A 4B 4E B2 32 34 00 F8 |:KN$.F1$:KN.24..|
000020F0: 28 7A 0D 8D 31 34 36 30 00 0D 29 84 0D 8B 4B 4E |(z..1460..)...KN|
00002100: 24 B3 B1 22 22 A7 46 31 24 B2 4B 4E 24 00 1E 29 |$.."".F1$.KN$..)|
00002110: 89 0D 8B 4B 4E 24 B2 22 22 A7 33 34 35 30 00 43 |...KN$."".3450.C|
00002120: 29 8E 0D 4D 24 B2 46 31 24 3A 8B 46 31 24 B2 22 |)..M$.F1$:.F1$."|
00002130: 30 22 A7 4D 24 B2 22 D1 55 49 54 22 3A A0 32 3A |0".M$.".UIT":.2:|
00002140: A0 31 35 00 52 29 98 0D 42 B2 31 32 3A 8D 31 39 |.15.R)..B.12:.19|
00002150: 37 30 00 58 29 A2 0D 8E 00 84 29 AC 0D 8F 20 3C |70.X).....)... <|
00002160: 2D 2D 2D 2D 3C 3C 20 46 49 45 4C 44 20 32 20 45 |----<< FIELD 2 E|
00002170: 4E 54 52 59 20 2D 20 44 41 54 45 20 45 4E 54 52 |NTRY - DATE ENTR|
00002180: 59 20 3E 3E 00 B3 29 B6 0D 4D 24 B2 22 D0 4C 45 |Y >>..)..M$.".LE|
00002190: 41 53 45 20 C5 4E 54 45 52 20 D4 4F 44 41 59 27 |ASE .NTER .ODAY'|
000021A0: 53 20 C4 41 54 45 20 22 3A 58 B2 31 39 3A 8D 31 |S .ATE ":X.19:.1|
000021B0: 38 38 30 00 C9 29 C0 0D 4D 24 B2 53 32 24 3A 58 |880..)..M$.S2$:X|
000021C0: B2 32 30 3A 8D 31 38 38 30 00 DF 29 CA 0D 4D 24 |.20:.1880..)..M$|
000021D0: B2 42 4C 24 3A 58 B2 32 31 3A 8D 31 38 38 30 00 |.BL$:X.21:.1880.|
000021E0: 01 2A D4 0D 4B 53 B2 31 3A 4B 58 B2 31 30 3A 4B |.*..KS.1:KX.10:K|
000021F0: 59 B2 31 35 3A 4B 4E 24 B2 46 32 24 3A 4B 4E B2 |Y.15:KN$.F2$:KN.|
00002200: 38 00 0B 2A DE 0D 8D 31 34 36 30 00 20 2A E8 0D |8..*...1460. *..|
00002210: 8B 4B 4E 24 B3 B1 22 22 A7 46 32 24 B2 4B 4E 24 |.KN$.."".F2$.KN$|
00002220: 00 38 2A F2 0D 4D 24 B2 46 32 24 3A 8B 46 32 24 |.8*..M$.F2$:.F2$|
00002230: B2 22 22 A7 33 35 35 30 00 65 2A FC 0D 44 44 24 |."".3550.e*..DD$|
00002240: B2 C8 28 4B 4E 24 2C 32 29 3A 4D 4D 24 B2 CA 28 |..(KN$,2):MM$..(|
00002250: 4B 4E 24 2C 33 2C 32 29 3A 59 59 24 B2 C9 28 4B |KN$,3,2):YY$..(K|
00002260: 4E 24 2C 32 29 00 82 2A 06 0E 8B C5 28 44 44 24 |N$,2)..*....(DD$|
00002270: 29 B3 31 B0 C5 28 44 44 24 29 B1 33 31 A7 33 35 |).1..(DD$).31.35|
00002280: 35 30 00 9F 2A 10 0E 8B C5 28 4D 4D 24 29 B3 31 |50..*....(MM$).1|
00002290: B0 C5 28 4D 4D 24 29 B1 31 32 A7 33 35 35 30 00 |..(MM$).12.3550.|
000022A0: BD 2A 1A 0E 8B C5 28 59 59 24 29 B3 38 33 B0 C3 |.*....(YY$).83..|
000022B0: 28 4B 4E 24 29 B3 B1 36 A7 33 35 35 30 00 E3 2A |(KN$)..6.3550..*|
000022C0: 24 0E 42 B2 31 32 3A 4D 24 B2 44 44 24 AA 22 2F |$.B.12:M$.DD$."/|
000022D0: 22 AA 4D 4D 24 AA 22 2F 22 AA 59 59 24 3A 8D 31 |".MM$."/".YY$:.1|
000022E0: 39 37 30 00 E9 2A 2E 0E 8E 00 18 2B 38 0E 8F 20 |970..*.....+8.. |
000022F0: 3C 2D 2D 2D 2D 3C 3C 20 46 49 45 4C 44 20 33 20 |<----<< FIELD 3 |
00002300: 45 4E 54 52 59 20 2D 20 54 45 53 54 20 46 49 4C |ENTRY - TEST FIL|
00002310: 45 4E 41 4D 45 20 3E 3E 00 4B 2B 42 0E 4D 24 B2 |ENAME >>.K+B.M$.|
00002320: 22 D0 4C 45 41 53 45 20 45 4E 54 45 52 20 54 48 |".LEASE ENTER TH|
00002330: 45 20 D4 45 53 54 20 C6 49 4C 45 4E 41 4D 45 22 |E .EST .ILENAME"|
00002340: 3A 58 B2 31 39 3A 8D 31 38 38 30 00 6E 2B 4C 0E |:X.19:.1880.n+L.|
00002350: 4B 53 B2 33 3A 4B 58 B2 31 32 3A 4B 59 B2 31 35 |KS.3:KX.12:KY.15|
00002360: 3A 4B 4E B2 31 35 3A 4B 4E 24 B2 46 33 24 00 78 |:KN.15:KN$.F3$.x|
00002370: 2B 56 0E 8D 31 34 36 30 00 8D 2B 60 0E 8B 4B 4E |+V..1460..+`..KN|
00002380: 24 B3 B1 22 22 A7 46 33 24 B2 4B 4E 24 00 A5 2B |$.."".F3$.KN$..+|
00002390: 6A 0E 4D 24 B2 46 33 24 3A 8B 46 33 24 B2 22 22 |j.M$.F3$:.F3$.""|
000023A0: A7 33 36 37 30 00 B4 2B 74 0E 42 B2 31 32 3A 8D |.3670..+t.B.12:.|
000023B0: 31 39 37 30 00 BA 2B 7E 0E 8E 00 E2 2B 88 0E 8F |1970..+~....+...|
000023C0: 20 3C 2D 2D 2D 2D 3C 3C 20 41 44 4A 55 53 54 20 | <----<< ADJUST |
000023D0: 32 20 44 45 43 49 4D 41 4C 20 50 4C 41 43 45 20 |2 DECIMAL PLACE |
000023E0: 3E 3E 00 17 2C 92 0E 50 49 B2 C5 28 49 50 24 29 |>>..,..PI..(IP$)|
000023F0: 3A 49 50 24 B2 CA 28 C4 28 B5 28 C5 28 49 50 24 |:IP$..(.(.(.(IP$|
00002400: 29 AC 31 30 30 AA 2E 35 29 29 2C 32 29 3A 49 50 |).100..5)),2):IP|
00002410: B2 C3 28 49 50 24 29 00 35 2C 9C 0E 8B 49 50 B2 |..(IP$).5,...IP.|
00002420: 31 A7 49 50 24 B2 22 30 2E 30 22 AA 49 50 24 3A |1.IP$."0.0".IP$:|
00002430: 89 33 37 37 30 00 52 2C A6 0E 8B 49 50 B2 32 A7 |.3770.R,...IP.2.|
00002440: 49 50 24 B2 22 30 2E 22 AA 49 50 24 3A 89 33 37 |IP$."0.".IP$:.37|
00002450: 37 30 00 77 2C B0 0E 49 50 24 B2 C8 28 49 50 24 |70.w,..IP$..(IP$|
00002460: 2C C3 28 49 50 24 29 AB 32 29 AA 22 2E 22 AA C9 |,.(IP$).2)."."..|
00002470: 28 49 50 24 2C 32 29 00 8D 2C BA 0E 8B 50 49 B3 |(IP$,2)..,...PI.|
00002480: 30 A7 49 50 24 B2 22 2D 22 AA 49 50 24 00 93 2C |0.IP$."-".IP$..,|
00002490: C4 0E 8E 00 B9 2C CE 0E 8F 20 3C 2D 2D 2D 2D 3C |.....,... <----<|
000024A0: 3C 20 46 49 45 4C 44 53 20 2D 20 47 52 4F 55 50 |< FIELDS - GROUP|
000024B0: 20 45 4E 54 52 59 20 3E 3E 00 EC 2C D8 0E 8D 33 | ENTRY >>..,...3|
000024C0: 34 30 30 3A 8B 46 31 24 B2 22 30 22 A7 4D 4D 24 |400:.F1$."0".MM$|
000024D0: B2 22 31 22 3A 8E 3A 8F 20 3C 2D 2D 3C 3C 20 49 |."1":.:. <--<< I|
000024E0: 4E 50 55 54 20 4E 41 4D 45 20 3E 3E 00 19 2D E2 |NPUT NAME >>..-.|
000024F0: 0E 8D 33 35 30 30 3A 8B 41 24 B2 22 91 22 A7 33 |..3500:.A$.".".3|
00002500: 38 30 30 3A 8F 20 3C 2D 2D 3C 3C 20 49 4E 50 55 |800:. <--<< INPU|
00002510: 54 20 44 41 54 45 20 3E 3E 00 4A 2D EC 0E 8D 33 |T DATE >>.J-...3|
00002520: 36 34 30 3A 8B 41 24 B2 22 91 22 A7 33 38 31 30 |640:.A$.".".3810|
00002530: 3A 8F 20 3C 2D 2D 3C 3C 20 49 4E 50 55 54 20 46 |:. <--<< INPUT F|
00002540: 49 4C 45 4E 41 4D 45 20 3E 3E 00 6C 2D F6 0E 4D |ILENAME >>.l-..M|
00002550: 24 B2 22 C1 52 45 20 59 4F 55 20 53 55 52 45 20 |$.".RE YOU SURE |
00002560: 3F 20 D9 2F CE 20 5B 20 5D 9D 9D 22 00 82 2D 00 |? ./. [ ].."..-.|
00002570: 0F 4B 58 B2 31 39 3A 4B 59 B2 32 38 3A 8D 31 39 |.KX.19:KY.28:.19|
00002580: 31 30 00 94 2D 0A 0F 8B 4B 4E 24 B2 22 59 22 A7 |10..-...KN$."Y".|
00002590: 33 38 37 30 00 9E 2D 14 0F 89 33 38 30 30 00 B9 |3870..-...3800..|
000025A0: 2D 1E 0F 8F 20 3C 2D 2D 2D 2D 3C 3C 20 4F 50 45 |-... <----<< OPE|
000025B0: 4E 20 46 49 4C 45 20 3E 3E 00 E2 2D 28 0F 4D 24 |N FILE >>..-(.M$|
000025C0: B2 22 4C 4F 41 44 49 4E 47 20 51 55 45 53 54 49 |."LOADING QUESTI|
000025D0: 4F 4E 53 2E 2E 2E 22 3A 58 B2 31 39 3A 8D 31 38 |ONS...":X.19:.18|
000025E0: 38 30 00 14 2E 32 0F 9F 32 2C 38 2C 32 2C 46 33 |80...2..2,8,2,F3|
000025F0: 24 AA 22 2C 53 2C 52 22 3A 8D 34 33 36 30 3A 8B |$.",S,R":.4360:.|
00002600: 4D 4D B2 31 A7 A0 32 3A 46 33 24 B2 22 22 3A 89 |MM.1..2:F3$."":.|
00002610: 33 38 32 30 00 3B 2E 50 0F 4E 41 24 B2 46 31 24 |3820.;.P.NA$.F1$|
00002620: 3A 44 41 24 B2 46 32 24 3A 54 54 24 B2 46 33 24 |:DA$.F2$:TT$.F3$|
00002630: 3A 84 32 2C 4E 51 24 2C 4E 43 24 00 5B 2E 5A 0F |:.2,NQ$,NC$.[.Z.|
00002640: 99 22 93 22 3A 43 4F B2 30 3A 57 52 B2 30 3A 4D |.".":CO.0:WR.0:M|
00002650: 24 B2 54 54 24 3A 8D 31 38 35 30 00 83 2E 64 0F |$.TT$:.1850...d.|
00002660: 4D 24 B2 53 32 24 3A 58 B2 32 31 3A 8D 31 38 38 |M$.S2$:X.21:.188|
00002670: 30 3A 4D 24 B2 53 32 24 3A 58 B2 32 33 3A 8D 31 |0:M$.S2$:X.23:.1|
00002680: 38 38 30 00 AC 2E 6E 0F 81 4B B2 31 A4 C5 28 4E |880...n..K.1..(N|
00002690: 51 24 29 3A 81 49 B2 34 A4 32 30 3A 99 C8 28 43 |Q$):.I.4.20:..(C|
000026A0: 44 24 2C 49 29 42 4C 24 3B 3A 82 49 00 CB 2E 78 |D$,I)BL$;:.I...x|
000026B0: 0F 84 32 2C 43 4E 24 3A 81 4A B2 31 A4 36 3A 84 |..2,CN$:.J.1.6:.|
000026C0: 32 2C 51 4E 24 28 4A 29 3A 82 4A 00 E8 2E 82 0F |2,QN$(J):.J.....|
000026D0: 81 49 B2 31 A4 C5 28 4E 43 24 29 3A 84 32 2C 43 |.I.1..(NC$):.2,C|
000026E0: 48 24 28 49 29 3A 82 49 00 02 2F 8C 0F 99 C8 28 |H$(I):.I../....(|
000026F0: 43 44 24 2C 35 29 22 D1 55 45 53 54 49 4F 4E 20 |CD$,5)".UESTION |
00002700: 22 4B 00 0D 2F 96 0F 81 49 B2 31 A4 36 00 38 2F |"K../...I.1.6.8/|
00002710: 99 0F 8B C3 28 51 4E 24 28 49 29 29 B3 B1 34 30 |....(QN$(I))..40|
00002720: A7 51 4E 24 28 49 29 B2 C8 28 51 4E 24 28 49 29 |.QN$(I)..(QN$(I)|
00002730: AA 42 4C 24 2C 34 30 29 00 48 2F 9B 0F 99 51 4E |.BL$,40).H/...QN|
00002740: 24 28 49 29 3B 3A 82 49 00 63 2F A0 0F 81 49 B2 |$(I);:.I.c/...I.|
00002750: 31 A4 C5 28 4E 43 24 29 3A 99 43 48 24 28 49 29 |1..(NC$):.CH$(I)|
00002760: 3A 82 49 00 9F 2F AA 0F 4D 24 B2 22 20 20 D0 4C |:.I../..M$." .L|
00002770: 45 41 53 45 20 45 4E 54 45 52 20 54 48 45 20 C3 |EASE ENTER THE .|
00002780: 4F 52 52 45 43 54 20 CE 55 4D 42 45 52 20 5B 20 |ORRECT .UMBER [ |
00002790: 5D 9D 9D 22 3A 58 B2 32 32 3A 8D 31 38 38 30 00 |]..":X.22:.1880.|
000027A0: C1 2F B4 0F 4B 53 B2 31 3A 4B 58 B2 32 32 3A 4B |./..KS.1:KX.22:K|
000027B0: 59 B2 33 35 3A 4B 4E B2 31 3A 4B 4E 24 B2 46 34 |Y.35:KN.1:KN$.F4|
000027C0: 24 00 CB 2F BE 0F 8D 31 34 36 30 00 FE 2F C8 0F |$../...1460../..|
000027D0: 8B 28 4B 4E 24 B2 22 22 B0 C5 28 4B 4E 24 29 B2 |.(KN$.""..(KN$).|
000027E0: 30 B0 C5 28 4B 4E 24 29 B3 30 B0 C5 28 4B 4E 24 |0..(KN$).0..(KN$|
000027F0: 29 B1 C5 28 4E 43 24 29 29 A7 34 30 33 30 00 1B |)..(NC$)).4030..|
00002800: 30 D2 0F 46 34 24 B2 4B 4E 24 3A 4D 24 B2 46 34 |0..F4$.KN$:M$.F4|
00002810: 24 3A 42 B2 31 3A 8D 31 39 37 30 00 53 30 DC 0F |$:B.1:.1970.S0..|
00002820: 4D 24 B2 22 12 20 C8 49 54 20 D3 50 41 43 45 20 |M$.". .IT .PACE |
00002830: C2 41 52 20 46 4F 52 20 4E 45 58 54 20 D1 55 45 |.AR FOR NEXT .UE|
00002840: 53 54 49 4F 4E 20 92 22 3A 58 B2 32 32 3A 8D 31 |STION .":X.22:.1|
00002850: 38 38 30 00 6C 30 E6 0F 8B 46 34 24 B2 43 4E 24 |880.l0...F4$.CN$|
00002860: A7 8D 34 33 39 30 3A 89 34 30 39 30 00 76 30 F0 |..4390:.4090.v0.|
00002870: 0F 8D 34 34 33 30 00 84 30 FA 0F 46 34 24 B2 22 |..4430..0..F4$."|
00002880: 22 3A 82 4B 00 A4 30 04 10 A0 32 3A 81 49 B2 35 |":.K..0...2:.I.5|
00002890: A4 32 30 3A 99 C8 28 43 44 24 2C 49 29 42 4C 24 |.20:..(CD$,I)BL$|
000028A0: 3B 3A 82 49 00 DC 30 0E 10 50 45 B2 28 31 30 30 |;:.I..0..PE.(100|
000028B0: AD C5 28 4E 51 24 29 29 AC 28 C5 28 4E 51 24 29 |..(NQ$)).(.(NQ$)|
000028C0: AB 57 52 29 3A 49 50 24 B2 C4 28 50 45 29 3A 8D |.WR):IP$..(PE):.|
000028D0: 33 37 32 30 3A 50 45 24 B2 49 50 24 00 05 31 18 |3720:PE$.IP$..1.|
000028E0: 10 99 C8 28 43 44 24 2C 37 29 22 20 CE 55 4D 42 |...(CD$,7)" .UMB|
000028F0: 45 52 20 4F 46 20 D1 55 45 53 54 49 4F 4E 53 20 |ER OF .UESTIONS |
00002900: 22 AA 4E 51 24 00 30 31 22 10 99 C8 28 43 44 24 |".NQ$.01"...(CD$|
00002910: 2C 39 29 22 20 CE 55 4D 42 45 52 20 4F 46 20 D7 |,9)" .UMBER OF .|
00002920: 52 4F 4E 47 20 C1 4E 53 57 45 52 53 20 22 57 52 |RONG .NSWERS "WR|
00002930: 00 65 31 2C 10 99 C8 28 43 44 24 2C 31 31 29 22 |.e1,...(CD$,11)"|
00002940: 20 CE 55 4D 42 45 52 20 4F 46 20 C3 4F 52 52 45 | .UMBER OF .ORRE|
00002950: 43 54 20 C1 4E 53 57 45 52 53 20 22 C5 28 4E 51 |CT .NSWERS ".(NQ|
00002960: 24 29 AB 57 52 00 9E 31 36 10 99 C8 28 43 44 24 |$).WR..16...(CD$|
00002970: 2C 31 33 29 22 20 D0 45 52 43 45 4E 54 41 47 45 |,13)" .ERCENTAGE|
00002980: 20 4F 46 20 C3 4F 52 52 45 43 54 20 C1 4E 53 57 | OF .ORRECT .NSW|
00002990: 45 52 53 20 22 AA 50 45 24 AA 22 20 25 22 00 C4 |ERS ".PE$." %"..|
000029A0: 31 40 10 4D 24 B2 22 D4 52 59 20 41 4E 4F 54 48 |1@.M$.".RY ANOTH|
000029B0: 45 52 20 D4 45 53 54 20 3F 20 D9 2F CE 20 5B 20 |ER .EST ? ./. [ |
000029C0: 5D 9D 9D 22 00 DA 31 4A 10 4B 58 B2 32 32 3A 4B |].."..1J.KX.22:K|
000029D0: 59 B2 33 30 3A 8D 31 39 31 30 00 F9 31 54 10 43 |Y.30:.1910..1T.C|
000029E0: B2 31 3A 8B 4B 4E 24 B2 22 59 22 A7 4D 4D 24 B2 |.1:.KN$."Y".MM$.|
000029F0: 22 30 22 3A 89 34 32 30 30 00 05 32 5E 10 4D 4D |"0":.4200..2^.MM|
00002A00: 24 B2 22 31 22 00 2F 32 68 10 9F 33 2C 38 2C 33 |$."1"./2h..3,8,3|
00002A10: 2C 46 31 24 AA 22 2C 53 2C 52 22 3A 84 31 35 2C |,F1$.",S,R":.15,|
00002A20: 44 45 3A 8B 44 45 B2 36 32 A7 8D 34 34 39 30 00 |DE:.DE.62..4490.|
00002A30: 45 32 6C 10 9F 34 2C 38 2C 34 2C 22 46 49 4C 45 |E2l..4,8,4,"FILE|
00002A40: 2C 53 2C 57 22 00 4F 32 6D 10 84 33 2C 41 24 00 |,S,W".O2m..3,A$.|
00002A50: 7B 32 6F 10 41 24 B2 C4 28 C5 28 41 24 29 AA 31 |{2o.A$..(.(A$).1|
00002A60: 29 3A 98 34 2C 41 24 3B 43 52 24 3B 3A 8B C5 28 |):.4,A$;CR$;:..(|
00002A70: 41 24 29 B2 31 A7 89 34 32 33 30 00 AA 32 72 10 |A$).1..4230..2r.|
00002A80: 84 33 2C 41 31 24 2C 41 32 24 2C 41 33 24 3A 98 |.3,A1$,A2$,A3$:.|
00002A90: 34 2C 41 31 24 3B 43 52 24 3B 41 32 24 3B 43 52 |4,A1$;CR$;A2$;CR|
00002AA0: 24 3B 41 33 24 3B 43 52 24 3B 00 C3 32 7C 10 43 |$;A3$;CR$;..2|.C|
00002AB0: B2 43 AA 31 3A 8B 43 B3 B1 C5 28 41 24 29 89 34 |.C.1:.C...(A$).4|
00002AC0: 32 31 30 00 E3 32 86 10 98 34 2C 54 54 24 3B 43 |210..2...4,TT$;C|
00002AD0: 52 24 3B 44 41 24 3B 43 52 24 3B 50 45 24 3B 43 |R$;DA$;CR$;PE$;C|
00002AE0: 52 24 3B 00 F1 32 90 10 A0 33 3A A0 34 3A A0 31 |R$;..2...3:.4:.1|
00002AF0: 35 00 2D 33 9A 10 9F 31 35 2C 38 2C 31 35 2C 22 |5.-3...15,8,15,"|
00002B00: 53 30 3A 22 AA 4E 41 24 3A A0 31 35 3A 9F 31 35 |S0:".NA$:.15:.15|
00002B10: 2C 38 2C 31 35 2C 22 52 30 3A 22 AA 4E 41 24 AA |,8,15,"R0:".NA$.|
00002B20: 22 3D 30 3A 46 49 4C 45 22 3A A0 31 35 00 48 33 |"=0:FILE":.15.H3|
00002B30: A4 10 9F 31 35 2C 38 2C 31 35 2C 22 53 30 3A 46 |...15,8,15,"S0:F|
00002B40: 49 4C 45 22 3A A0 31 35 00 54 33 AE 10 8D 34 32 |ILE":.15.T3...42|
00002B50: 38 30 3A 8E 00 77 33 B8 10 8F 20 3C 2D 2D 2D 2D |80:..w3... <----|
00002B60: 3C 3C 20 43 4C 45 41 52 20 44 41 54 41 20 53 54 |<< CLEAR DATA ST|
00002B70: 52 49 4E 47 20 3E 3E 00 97 33 C2 10 4E 41 24 B2 |RING >>..3..NA$.|
00002B80: 22 22 3A 44 41 24 B2 22 22 3A 54 54 24 B2 22 22 |"":DA$."":TT$.""|
00002B90: 3A 46 31 24 B2 22 22 00 CC 33 CC 10 46 32 24 B2 |:F1$.""..3..F2$.|
00002BA0: 22 22 3A 46 33 24 B2 22 22 3A 46 34 24 B2 22 22 |"":F3$."":F4$.""|
00002BB0: 3A 46 35 24 B2 22 22 3A 46 36 24 B2 22 22 3A 46 |:F5$."":F6$."":F|
00002BC0: 37 24 B2 22 22 3A 46 38 24 B2 22 22 00 D2 33 D6 |7$."":F8$.""..3.|
00002BD0: 10 8E 00 F5 33 E0 10 8F 20 3C 2D 2D 2D 2D 3C 3C |....3... <----<<|
00002BE0: 20 43 4C 45 41 52 20 44 41 54 41 20 46 49 45 4C | CLEAR DATA FIEL|
00002BF0: 44 53 20 3E 3E 00 1C 34 EA 10 99 22 13 22 3A 59 |DS >>..4...".":Y|
00002C00: B2 33 38 3A 81 49 B2 33 A4 31 37 3A 99 A3 59 29 |.38:.I.3.17:..Y)|
00002C10: C8 28 42 4C 24 2C 33 35 29 3A 82 49 00 22 34 F4 |.(BL$,35):.I."4.|
00002C20: 10 8E 00 44 34 FE 10 8F 20 3C 2D 2D 2D 2D 3C 3C |...D4... <----<<|
00002C30: 20 52 45 41 44 20 44 49 53 4B 20 53 54 41 54 55 | READ DISK STATU|
00002C40: 53 20 3E 3E 00 5B 34 08 11 84 31 35 2C 44 45 2C |S >>.[4...15,DE,|
00002C50: 45 44 24 2C 54 45 24 2C 53 45 24 00 93 34 12 11 |ED$,TE$,SE$..4..|
00002C60: 8B 44 45 B3 B1 30 A7 4D 24 B2 22 44 49 53 4B 20 |.DE..0.M$."DISK |
00002C70: 45 52 52 4F 52 20 2D 20 22 AA 45 44 24 3A 4D 4D |ERROR - ".ED$:MM|
00002C80: B2 31 3A 58 B2 31 39 3A 8D 33 32 39 30 3A 89 34 |.1:X.19:.3290:.4|
00002C90: 33 38 30 00 9C 34 17 11 4D 4D B2 30 00 A2 34 1C |380..4..MM.0..4.|
00002CA0: 11 8E 00 CC 34 26 11 8F 20 3C 2D 2D 2D 2D 3C 3C |....4&.. <----<<|
00002CB0: 20 4B 45 45 50 49 4E 47 20 54 52 41 43 4B 20 4F | KEEPING TRACK O|
00002CC0: 46 20 41 4E 53 57 45 52 53 20 3E 3E 00 02 35 30 |F ANSWERS >>..50|
00002CD0: 11 4D 24 B2 22 12 20 C3 4F 52 52 45 43 54 20 92 |.M$.". .ORRECT .|
00002CE0: 22 3A 99 C8 28 43 44 24 2C 32 30 29 C8 28 42 4C |":..(CD$,20).(BL|
00002CF0: 24 2C 28 34 30 AB C3 28 4D 24 29 29 AD 32 29 4D |$,(40..(M$)).2)M|
00002D00: 24 3B 00 0E 35 32 11 43 4F B2 43 4F AA 31 00 26 |$;..52.CO.CO.1.&|
00002D10: 35 3A 11 A1 41 24 3A 8B 41 24 B3 B1 C7 28 33 32 |5:..A$:.A$...(32|
00002D20: 29 A7 34 34 31 30 00 2C 35 44 11 8E 00 4D 35 4E |).4410.,5D...M5N|
00002D30: 11 54 58 24 B2 22 C3 4F 52 52 45 43 54 20 C1 4E |.TX$.".ORRECT .N|
00002D40: 53 57 45 52 20 49 53 20 22 AA 43 4E 24 00 7B 35 |SWER IS ".CN$.{5|
00002D50: 58 11 57 52 B2 57 52 AA 31 3A 59 59 B2 32 30 3A |X.WR.WR.1:YY.20:|
00002D60: 54 59 24 B2 C8 28 42 4C 24 2C 59 59 29 AA 54 58 |TY$..(BL$,YY).TX|
00002D70: 24 AA C8 28 42 4C 24 2C 59 59 29 00 95 35 62 11 |$..(BL$,YY)..5b.|
00002D80: 58 59 B2 B5 28 28 34 30 AB 59 59 29 AD 32 29 3A |XY..((40.YY).2):|
00002D90: 8D 34 35 31 30 00 CB 35 6C 11 81 49 B2 31 A4 28 |.4510..5l..I.1.(|
00002DA0: 59 59 AA C3 28 54 58 24 29 29 3A 99 C8 28 43 44 |YY..(TX$)):..(CD|
00002DB0: 24 2C 32 30 29 A6 58 59 29 22 12 22 CA 28 54 59 |$,20).XY)".".(TY|
00002DC0: 24 2C 49 2C 59 59 29 22 92 22 3B 00 DF 35 76 11 |$,I,YY)".";..5v.|
00002DD0: A1 41 24 3A 8B 41 24 B2 C7 28 33 32 29 A7 8E 00 |.A$:.A$..(32)...|
00002DE0: FD 35 80 11 81 58 B2 31 A4 32 30 3A 82 58 3A 82 |.5...X.1.20:.X:.|
00002DF0: 49 3A 8D 34 35 31 30 3A 89 34 34 36 30 00 22 36 |I:.4510:.4460."6|
00002E00: 8A 11 A0 33 3A 9F 33 2C 38 2C 33 2C 46 31 24 AA |...3:.3,8,3,F1$.|
00002E10: 22 2C 53 2C 57 22 3A 98 33 2C 22 30 22 3B 43 52 |",S,W":.3,"0";CR|
00002E20: 24 3B 00 3D 36 8F 11 A0 33 3A 9F 33 2C 38 2C 33 |$;.=6...3:.3,8,3|
00002E30: 2C 46 31 24 AA 22 2C 53 2C 52 22 3A 8E 00 58 36 |,F1$.",S,R":..X6|
00002E40: 94 11 A0 34 3A 9F 34 2C 38 2C 34 2C 22 46 49 4C |...4:.4,8,4,"FIL|
00002E50: 45 2C 53 2C 57 22 3A 8E 00 76 36 9E 11 8F 20 3C |E,S,W":..v6... <|
00002E60: 2D 2D 2D 2D 3C 3C 20 43 52 45 41 54 45 20 53 4F |----<< CREATE SO|
00002E70: 55 4E 44 20 3E 3E 00 9F 36 A8 11 97 35 34 32 39 |UND >>..6...5429|
00002E80: 36 2C 31 35 3A 81 49 49 B2 33 39 AB C3 28 4D 24 |6,15:.II.39..(M$|
00002E90: 29 A4 32 30 AB C3 28 4D 24 29 AD 32 A9 AB 31 00 |).20..(M$).2..1.|
00002EA0: BB 36 B2 11 97 56 AA 34 2C 30 3A 97 56 AA 34 2C |.6...V.4,0:.V.4,|
00002EB0: 31 32 39 3A 97 56 AA 31 2C 49 49 00 C1 36 BC 11 |129:.V.1,II..6..|
00002EC0: 82 00 D2 36 C6 11 81 49 49 B2 32 33 A4 46 46 A9 |...6...II.23.FF.|
00002ED0: AB 31 00 E0 36 D0 11 81 4A B2 31 A4 35 30 3A 82 |.1..6...J.1.50:.|
00002EE0: 00 13 37 DA 11 97 56 AA 34 2C 30 3A 97 56 AA 31 |..7...V.4,0:.V.1|
00002EF0: 2C 49 49 3A 97 56 AA 34 2C 31 32 39 3A 97 35 33 |,II:.V.4,129:.53|
00002F00: 32 38 30 2C 49 49 3A 82 3A 97 35 33 32 38 30 2C |280,II:.:.53280,|
00002F10: 38 3A 8E 00 00 00 |8:.... |
....... << 64 ENTER QUESTION >>.D.... **
* CONGRATULATION !!! ***.I.... *** T
HE HUMBLE AUTHORS ARE ***...... *** ALBE
RT YEO AND ***...... *** WONG CH
EE MENG ***.X.... *** DATE 03108
4 ***......774,226:.775,252:.
818,226:.819,252:.808,251:.G(14).S....:C
D$.".........................":U$.G(13):
XX.5:.15,8,15:KF.20.....BS.100:.I.1.40:S
1$.S1$."=":S2$.S2$."-":BL$.BL$." ":CL$.C
L$.".":.I...... <----<< MENU PROG >>.J..
..53280,8:.53281,1...$..".":M$." MAIN ME
NU ":.1850......".... .1.. STUDENT'S
ASSESSMENT".9.8..". .2.. QUESTIONS
CREATION".[.B..". .3.. REPORT PRINTI
NG".R.G..". .4.. QUIT"...L..H(CD$,23
)S2$;...V.M$." PLEASE SELECT YOUR OPTION
[ ]":X.24:.1880.X.`.KS.1:KX.24:KY.33:KN
.1:.1460...J..KN$.."1".KN$.."2".KN$.."3"
.KN$.."4".1120...T..KN$."1". 15:.3210./.
~..KN$."2".1180.A....KN$."3".2850.L....6
4738.T.... <----<< ENTER QUESTION PROGRA
M >>......".":M$." ENTER QUESTION ":.185
0......2000:. <--<< SCREEN FORMAT 1 >>..
....2250:.F1$."0".1050:. <--<< FIELD 1 E
NTRY >>...D..2160:.MM.1.1210:. <--<< CHE
CK FOR FILE >>.N.N..2310:.A$.".".1210:.
<--<< FIELD 2 ENTRY >>.~.X..2360:.A$."."
.1230:. <--<< FIELD 3 ENTRY >>......2210
:. <--<< UPDATE INTO FILE >>.I....2060:.
<--<< SCREEN FORMAT.+.>>......ZZ.1.E(F2
$):."....".22)ZZ:.2660......2420:. < FIE
LD 4 ENTRY >.L...KX.7:YY$.F5$:.2470:F5$.
YY$:.A$.".".1280:. < FIELD 5 ENTRY >....
.KX.8:YY$.G5$:.2470:G5$.YY$:.A$.".".1290
:. < FIELD 5A ENTRY >.N...KX.9:YY$.G6$:.
2470:G6$.YY$:.A$.".".1300:. < FIELD 5B E
NTRY >...(.KX.10:YY$.G7$:.2470:G7$.YY$:.
A$.".".1310:. < FIELD 5C ENTRY >.R.2.KX.
11:YY$.G8$:.2470:G8$.YY$:.A$.".".1320:.
< FIELD 5D ENTRY >...<.KX.12:YY$.G9$:.24
70:G9$.YY$:.A$.".".1330:. < FIELD 5E ENT
RY >.U.F.KX.14:YY$.F6$:.2520:F6$.YY$:.A$
.".".1340:. < FIELD 6 ENTRY >...P.KX.16:
YY$.F7$:.2520:F7$.YY$:.A$.".".1350:. < F
IELD 7 ENTRY >.W.Z.KX.18:YY$.F8$:.2520:F
8$.YY$:.A$.".".1360:. < FIELD 8 ENTRY >.
..D.KX.20:YY$.F9$:.2520:F9$.YY$:.A$.".".
1370:. < FIELD A ENTRY >...N..E(F3$).4.1
410...X.KX.22:YY$.FA$:.2520:FA$.YY$:.A$.
".".1380:. < FIELD B ENTRY >./...M$."DO
YOU WANT TO CHANGE THE ABOVE Y/N [ ]":KX
.24:KY.37:.1910.A....KN$."Y".1280.G....2
570:. <--<< UPDATE INTO FILE >>... ..261
0:. <--<< CLEAR DATA >>......ZZ:.".": 2:
.1060.E.... <----<< KEYBOARD ENTRY ROUTI
NE >>.....KL.C(KN$):.H(CD$,KX).KY)KN$H(B
L$,KN.KL)H(CL$,KN);...H.KP.1.9.R.KR.2:.J
(KN$,KP,1).""..". ..";:.1740:.A$.."".156
0.M...KR.3:.J(KN$,KP,1).""..". .";:.1740
:.A$.."".1560.....KR.4:.J(KN$,KP,1).."".
."."J(KN$,KP,1)"..";.D....J(KN$,KP,1).."
"..1740:.A$.."".1560.....KR.1:.J(KN$,KP,
1).."".."."J(KN$,KP,1)".";......J(KN$,KP
,1)..""..1740:.A$.."".1560.6....KR.1490,
1500,1510,1530.Y...KL.C(KN$):.A$.".".KN$
."":.1470.Z."..A$.G(148).KL.KN..1810:.15
50...,..A$.G(20).KP.1..1780:.1550.G.6..A
$.".".KP.KL.KP.1.KP.KP.1:.". ..";:.1550.
..@..A$.".".KP.1.."."J(KN$,KP,1)"..";:KP
.KP.1:.1550.0.J..A$.".".KP..KL.KP.KN..J(
KN$,KP,1);:KP.KP.1:.1830.O.T..A$.".".KL.
.KP..1760:.1550...^..A$.G(34).1550:. <--
<< SKIP UNWANTED CHAR >>.B.H..KS.1.((A$.
."0".A$.."9").A$.".".A$."-").1690:. <-<<
NUMBER >>...R..KS..2.(A$.." ".A$.."_").
1690:. <--<< ALPHA TILL _ >>.9.|..KS.3.(
A$.."A".A$.."Z").1690:. <--<< ALPHA TILL
CAP-Z >>.A....A$.G(13).A$.".".A$.".".A$
.".".1720.K....1550.....M.C(KN$):KN$.H(K
N$,KP.1).A$.J(KN$,KP.1,M).....KP.KP.1:.A
$;:.KP.66..G(7);.I....KP..KN.1550......H
(CD$,KX).KY)KN$;:.C(KN$).KN.." ";...B...
..L..KI.1.KF:.A$:.A$.""..KI...V...I....J
(KN$,KP,KL);:KP.KL.1:.KN.KL..".";:KP.KP.
1.O..........KP.C(KN$).." ..";:KP.KP.1:K
N$.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).7..
..H(CD$,KX).KY)KN$H(CD$,KX).KY.KP.1);:..
I.&..KP.66..G(7);.S.0..1550.U.:.. <----<
< DISPLAY MESSAGES >>...D.."."S1$.(40.C(
M$)).2)"."M$:.S1$;. .N...J.X.. <----<< D
ISPLAY REMARKS MESSAGES >>...B..H(CD$,X)
H(BL$,39)H(CD$,X).(40.C(M$)).2)M$;...L..
.:.V.. <----<< DISPLAY MESSAGES AND WAIT
FOR DATA ENTRY >>.S....H(CD$,KX)H(BL$,3
9);......H(CD$,KX).(40.C(M$)).2)M$;:KN.1
:KS.2:KN$."":.1460......KN$."".1930.....
.KN$.."Y".KN$.."N".1930............ <---
-<< REDISPLAY DATA STRING >>......H(CD$,
KX).KY)H(BL$,B)H(CD$,KX).KY)M$;...F...6.
P.. <----<< SCREEN FORMAT 1 >>.Z.Z.."...
.1.. BOOK TITLE :":..{....".2.. NO
. OF QUESTIONS :":.......".3.. NO. OF CH
OICES :"......H(CD$,23)S2$;.......T...
. <----<< SCREEN FORMAT 2 >>......"..":M
$." ENTER QUESTION ":.1850... ...5)"QUES
TION NUMBER :".4.*..". 1.. CORRECT ANSWE
R :".R.4..". 2.. QUESTION IS :".B.>..
:.:.:.:.:....H..N.1.E(F3$):.".".D(N.2)."
.. CHOICE".D(N)." :"...R..:.N...\..H(CD
$,23)S2$;...F...Z.P.. <----<< CHECK FILE
EXISTS >>...Z.MM.0:MO$.F1$.",S,R":.2,8,
2,MO$......15,ES.:....ES..62.MM.1:M$." E
RROR - FILE EXISTS ":.2750.C... 2:..E...
. <----<< UPDATE INTO FILE >>.....MO$.F1
$.",S,W":.2,8,2,MO$......2,F2$;U$;F3$;U$
;.......E.J.. <----<< ENTRY 1 - BOOK TIT
LE >>...T.M$."ENTER BOOK TITLE ( 15 CHAR
ACTERS )":X.24:.1880.5...KS.3:KN$.F1$:KN
.15:KX.7:KY.22:.1460:.KN$.."".F1$.KN$.M.
..M$.F1$:.F1$."".2270.\...B.15:.1970.B..
........ <----<< ENTRY 2 - NO OF QUESTIO
N >>.D...KS.1:KN$.F2$:KN.3:KX.9:KY.22:.1
460:.KN$.."".F2$.KN$.....M$.F2$:.F2$."".
2320...$.B.3:.1970.........8.. <----<< E
NTRY 3 - NO OF CHOICE >>.Q.B.KS.1:KN$.F3
$:KN.1:KX.11:KY.22:.1460:.KN$.."".F3$.KN
$.M.L..F3$.."4".F3$.."5".2370...V.M$.F3$
:.F3$."".2370...`.B.1:.1970...J.....T..
<----<< ENTRY 4 - ANSWER >>...~.KS.1:KN$
.F4$:KN.1:KX.5:KY.21:.1460:.KN$.."".F4$.
KN$.....M$.F4$:.F4$."".2430.....B.1:.197
0.......D.... <----<< ENTRY 5 - QUESTION
S >>.W...KS.3:KN$.YY$:KN.40:KY.0:.1460:.
KN$.."".YY$.KN$.....M$.YY$:.YY$."".2480.
..D.B.40:.1970...N...F.X.. <----<< ENTRY
6 - CHOICE >>.....KS.3:KN$.YY$:KN.38:KY
.1:.1460:.KN$.."".YY$.KN$.....M$.YY$:.YY
$."".2530. ...B.38:.1970.&.....Q.... <--
--<< UPDATE THE REST INTO FILE >>......2
,F4$;U$;F5$;U$;G5$;U$;G6$;U$;G7$;U$;G8$;
U$;G9$;U$;......2,F6$;U$;F7$;U$;F8$;U$;F
9$;U$;FA$;U$;...(...W.2.. <----<< CLEAR
DATA >>...<.."....".21)H(BL$,17):."."...
F..M.1.6:.H(BL$,40);:.M.0.P..M.1.E(F3$):
."."H(BL$,39):.M.^.Z.F4$."":F6$."":F7$."
":F8$."":F9$."":FA$.""...D.F5$.G(32):G5$
.F5$:G6$.F5$:G7$.F5$:G8$.F5$:G9$.F5$...N
...F.X.. <----<< CLEAR SCREEN FOR NEXT P
AGE >>.....CC.0:YY.0:M$." PRESS C
TO CONTINUE":.1880.. ...A$:.A$.."C".2700
.B ...KN$."G".KN$."G"..".":.M.1.20:..7)H
(BL$,31):..\ ..KN$."G".KN$."G".1730.. .
..".......":.M.1.11:.BL$;:.M:.".......".
. ..... ... <----<< ERROR MESSAGES DISPL
AY >>.T H..H(CD$,X)H(BL$,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:..6!...BB.H!...H(CD$,X)BL$;.N!....I
!... <----<< READ DATA >>.|!...2,A1$,A2$
,A3$..!.....!".. <----<< REPORT PRINTING
MENU >>.J!,..".":M$." REPORT MENU ":.18
50..!6.." NAME :":..9)".L.ISTING / .G.RA
PH :":.S2$.."@.KN$."":KX.4:KY.9:KS.3:KN.
24:.1460:.KN$."0".1030.K"J..2,8,2,KN$.",
S,R":.15,ES.."T..ES.62.M$." ERROR - FILE
NOT FOUND ":X.23:.2750: 2:.2880.."^.KN$
."":KX.5:KY.28:KS.3:KN.1:.1460.."H..KN$.
."L".KN$.."L".KN$.."G".KN$.."G".2910.."R
..2,CC$:.KN$."G".KN$."G".3020..#|..".":.
" BOOK TITLE DATE MARKS (%)".R
#..CC.0:.ZZ.1.E(CC$):.2820:CC.CC.1..#..P
P$.H(A1$.BL$,15)." ".H(A2$,2)."/".J(A2$
,3,2)..#..PP$.PP$.I(A2$,2)." ".A3$:.
PP$..#...CC.10..2680.J#...ZZ:.2680.W#..
2:.1060..#B.. <--<< END OF LISTING REPOR
T >>..$L.. <----<< GRAPH REPORT >>.,$V..
".":.ZZ.1.10.@$....5)".":..5)".".N$...:.
.5)".".F$...".".5):."."G(192);..$...ZZ.1
.30:.G(192);:.ZZ..$...".":.ZZ.10.1..1..$
....1)ZZ.10:...$...:..3)"0".Q$&.CC.0:.ZZ
.1.E(CC$):CC.CC.1..$0..2820:.H(CD$,20)..
$:..M.1..(E(A3$).5)..%D...7.YY)".. .":.
".....".&%N..M:YY.YY.4.<%X..H(CD$,20.C(A
1$)).K%B..QQ.1.C(A1$):..8.YY.3)J(A1$,QQ,
1):.".":.QQ.{%L..CC.8..2680..%V..ZZ:.268
0: 2:.1060..%... <--<< END OF GRAPH PROG
>>.H%... <----<< ASS >>.U%...:."..."..&
..CD$.".........................":CR$.G(
13):XX.0:MM.0:KF.20.;&...H(CD$,25).39)G(
143):BS.100:V.54272.Z&...I.1.40:S1$.S1$.
"=":S2$.S2$."-":BL$.BL$." ":CL$.CL$.".":
.I..&...".":.15,8,15:M$." ASSESSMENTS ":
.1850.C&F..3340:.3790:.MM$."0".3260.M&P.
.1030..&Z.. <----<< ERROR MESSAGES DISPL
AY >>..'...H(CD$,X)H(BL$,39):.BB.1.4.@'.
..H(CD$,X).(40.C(M$)).2)"."M$;:.T.1.BS:.
.N'...H(CD$,X).(40.C(M$)).2)"."M$;:.T.1.
BS.2:..V'...BB..'... <----<< SCREEN FORM
AT >>..'..."........".XX)" NAME
:":..Y' ...XX)" DATE (DDMMYY):":...'*...
XX)" TEST FILENAME:"..(4..H(CD$,18)S2$H(
CD$,20)S2$..(>...>(H.. <----<< FIELD 1 E
NTRY - NAME >>.Y(R.M$."PLEASE ENTER YOUR
NAME (24 CHARACTERS)":X.19:.1880..(\.M$
." ENTER '0' TO QUIT.
":X.20:.1880.L(F.M$.S2$:X.21:.1880..(P
.KS.3:KX.8:KY.15:KN$.F1$:KN.24..(Z..1460
..)...KN$.."".F1$.KN$..)...KN$."".3450.C
)..M$.F1$:.F1$."0".M$."QUIT": 2: 15.R)..
B.12:.1970.X).....)... <----<< FIELD 2 E
NTRY - DATE ENTRY >>..)..M$."PLEASE ENTE
R TODAY'S DATE ":X.19:.1880.I)..M$.S2$:X
.20:.1880..)J.M$.BL$:X.21:.1880..*T.KS.1
:KX.10:KY.15:KN$.F2$:KN.8..*...1460. *..
.KN$.."".F2$.KN$.8*..M$.F2$:.F2$."".3550
.E*..DD$.H(KN$,2):MM$.J(KN$,3,2):YY$.I(K
N$,2)..*...E(DD$).1.E(DD$).31.3550..*...
E(MM$).1.E(MM$).12.3550..*...E(YY$).83.C
(KN$)..6.3550..*$.B.12:M$.DD$."/".MM$."/
".YY$:.1970..*.....+8.. <----<< FIELD 3
ENTRY - TEST FILENAME >>.K+B.M$."PLEASE
ENTER THE TEST FILENAME":X.19:.1880.N+L.
KS.3:KX.12:KY.15:KN.15:KN$.F3$.X+V..1460
..+`..KN$.."".F3$.KN$..+J.M$.F3$:.F3$.""
.3670..+T.B.12:.1970..+~....+... <----<<
ADJUST 2 DECIMAL PLACE >>..,..PI.E(IP$)
:IP$.J(D(.(E(IP$).100..5)),2):IP.C(IP$).
5,...IP.1.IP$."0.0".IP$:.3770.R,...IP.2.
IP$."0.".IP$:.3770.W,..IP$.H(IP$,C(IP$).
2).".".I(IP$,2)..,...PI.0.IP$."-".IP$..,
D....,N.. <----<< FIELDS - GROUP ENTRY >
>..,X..3400:.F1$."0".MM$."1":.:. <--<< I
NPUT NAME >>..-...3500:.A$.".".3800:. <-
-<< INPUT DATE >>.J-...3640:.A$.".".3810
:. <--<< INPUT FILENAME >>.L-..M$."ARE Y
OU SURE ? Y/N [ ].."..-..KX.19:KY.28:.19
10..-...KN$."Y".3870..-...3800..-... <--
--<< OPEN FILE >>..-(.M$."LOADING QUESTI
ONS...":X.19:.1880...2..2,8,2,F3$.",S,R"
:.4360:.MM.1. 2:F3$."":.3820.;.P.NA$.F1$
:DA$.F2$:TT$.F3$:.2,NQ$,NC$.[.Z..".":CO.
0:WR.0:M$.TT$:.1850...D.M$.S2$:X.21:.188
0:M$.S2$:X.23:.1880...N..K.1.E(NQ$):.I.4
.20:.H(CD$,I)BL$;:.I.K.X..2,CN$:.J.1.6:.
2,QN$(J):.J......I.1.E(NC$):.2,CH$(I):.I
../...H(CD$,5)"QUESTION "K../...I.1.6.8/
...C(QN$(I))..40.QN$(I).H(QN$(I).BL$,40)
.H/...QN$(I);:.I.C/ ..I.1.E(NC$):.CH$(I)
:.I../..M$." PLEASE ENTER THE CORRECT N
UMBER [ ]..":X.22:.1880.A/..KS.1:KX.22:K
Y.35:KN.1:KN$.F4$.K/...1460../H..(KN$.""
.E(KN$).0.E(KN$).0.E(KN$).E(NC$)).4030..
0R.F4$.KN$:M$.F4$:B.1:.1970.S0..M$.". HI
T SPACE BAR FOR NEXT QUESTION .":X.22:.1
880.L0...F4$.CN$..4390:.4090.V0...4430..
0..F4$."":.K..0.. 2:.I.5.20:.H(CD$,I)BL$
;:.I..0..PE.(100.E(NQ$)).(E(NQ$).WR):IP$
.D(PE):.3720:PE$.IP$..1...H(CD$,7)" NUMB
ER OF QUESTIONS ".NQ$.01"..H(CD$,9)" NUM
BER OF WRONG ANSWERS "WR.E1,..H(CD$,11)"
NUMBER OF CORRECT ANSWERS "E(NQ$).WR..1
6..H(CD$,13)" PERCENTAGE OF CORRECT ANSW
ERS ".PE$." %".D1@.M$."TRY ANOTHER TEST
? Y/N [ ]..".Z1J.KX.22:KY.30:.1910..1T.C
.1:.KN$."Y".MM$."0":.4200..2^.MM$."1"./2
H..3,8,3,F1$.",S,R":.15,DE:.DE.62..4490.
E2L..4,8,4,"FILE,S,W".O2M..3,A$.{2O.A$.D
(E(A$).1):.4,A$;CR$;:.E(A$).1..4230..2R.
.3,A1$,A2$,A3$:.4,A1$;CR$;A2$;CR$;A3$;CR
$;.C2|.C.C.1:.C..E(A$).4210..2...4,TT$;C
R$;DA$;CR$;PE$;CR$;..2.. 3: 4: 15.-3...1
5,8,15,"S0:".NA$: 15:.15,8,15,"R0:".NA$.
"=0:FILE": 15.H3...15,8,15,"S0:FILE": 15
.T3...4280:..W3... <----<< CLEAR DATA ST
RING >>..3B.NA$."":DA$."":TT$."":F1$."".
L3L.F2$."":F3$."":F4$."":F5$."":F6$."":F
7$."":F8$."".R3V....3... <----<< CLEAR D
ATA FIELDS >>..4...".":Y.38:.I.3.17:..Y)
H(BL$,35):.I."4....D4... <----<< READ DI
SK STATUS >>.[4...15,DE,ED$,TE$,SE$..4..
.DE..0.M$."DISK ERROR - ".ED$:MM.1:X.19:
.3290:.4380..4..MM.0..4....L4&.. <----<<
KEEPING TRACK OF ANSWERS >>..50.M$.". C
ORRECT .":.H(CD$,20)H(BL$,(40.C(M$)).2)M
$;..52.CO.CO.1.&5:..A$:.A$..G(32).4410.,
5D...M5N.TX$."CORRECT ANSWER IS ".CN$.{5
X.WR.WR.1:YY.20:TY$.H(BL$,YY).TX$.H(BL$,
YY)..5B.XY..((40.YY).2):.4510.K5L..I.1.(
YY.C(TX$)):.H(CD$,20).XY)"."J(TY$,I,YY)"
.";..5V..A$:.A$.G(32)....5...X.1.20:.X:.
I:.4510:.4460."6.. 3:.3,8,3,F1$.",S,W":.
3,"0";CR$;.=6.. 3:.3,8,3,F1$.",S,R":..X6
.. 4:.4,8,4,"FILE,S,W":..V6... <----<< C
REATE SOUND >>..6...54296,15:.II.39.C(M$
).20.C(M$).2..1..6...V.4,0:.V.4,129:.V.1
,II.A6....R6F..II.23.FF..1..6P..J.1.50:.
..7Z..V.4,0:.V.1,II:.V.4,129:.53280,II:.
:.53280,8:....
> CLICK IMAGE PREVIEW FOR FULL MODAL