CODEGEN
FILE INFORMATION
FILENAME(S): CODEGEN
FILE TYPE(S): PRG
FILE SIZE: 25.9K
FIRST SEEN: 2025-11-30 16:18:11
APPEARS ON: 1 disk(s)
FILE HASH
7d799fe56e33f2801ddb8997c81b0e7b6ef03e60307d1341e904dcfa49224818
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| T 1 | CODEGEN | PRG | BrainSkull, Leopold Zyka | 17 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0B 08 00 00 9E 32 30 37 33 00 00 00 20 52 |.......2073... R|
00000010: 08 4C 45 B7 20 52 08 4C 99 A4 20 52 08 AD FF 02 |.LE. R.L.. R....|
00000020: C9 64 F0 17 A9 3F 85 BB A9 08 85 BC A9 06 85 B7 |.d...?..........|
00000030: A9 00 85 B9 A2 00 A0 A0 20 D5 FF 68 68 4C 48 A0 |........ ..hhLH.|
00000040: 52 54 4C 2D 36 34 20 52 08 20 71 AF 20 5F 08 60 |RTL-64 R. q. _.`|
00000050: A2 01 60 A9 03 05 00 85 00 A9 FE 25 01 85 01 60 |..`........%...`|
00000060: 48 A9 03 05 00 85 00 A5 01 09 01 85 01 68 60 20 |H............h` |
00000070: 5F 08 20 47 A3 20 52 08 60 40 00 02 87 00 CD 00 |_. G. R.`@......|
00000080: E8 00 00 00 C6 6F 00 01 00 83 20 22 43 4F 53 22 |.....o.... "COS"|
00000090: 2C 22 41 54 4E 22 2C 22 41 42 53 22 2C 22 45 58 |,"ATN","ABS","EX|
000000A0: 50 22 2C 22 4C 4F 47 22 2C 22 49 4E 54 22 2C 22 |P","LOG","INT","|
000000B0: 53 49 4E 22 2C 22 41 4E 44 22 2C 22 4E 4F 54 22 |SIN","AND","NOT"|
000000C0: 2C 22 54 41 4E 22 2C 22 53 51 52 22 00 00 00 54 |,"TAN","SQR"...T|
000000D0: 5B 0A 56 4C 2D 43 4F 44 45 47 45 4E 00 86 45 53 |[.VL-CODEGEN..ES|
000000E0: 24 28 31 30 29 3A 41 00 04 57 4A 93 F4 90 02 81 |$(10):A..WJ.....|
000000F0: 2B 4F 06 49 81 D0 02 8D 03 C8 B8 0E B8 10 82 89 |+O.I............|
00000100: FF B8 16 D2 09 8D 03 C9 B8 0E D0 10 8D 02 86 B8 |................|
00000110: 0E D0 17 00 A0 31 35 00 9F 31 35 2C 44 56 2C 31 |.....15..15,DV,1|
00000120: 35 3A 92 09 8A 01 31 2B 4F 0A 8A 01 30 D2 09 48 |5:....1+O...0..H|
00000130: F6 B9 92 09 8A 01 32 2B 4F 0A 8A 01 31 D2 09 48 |......2+O...1..H|
00000140: F6 B9 8A 01 30 D2 09 8A 1C 13 11 11 11 11 11 11 |....0...........|
00000150: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000160: 11 11 11 11 11 D2 1E 8A 28 1D 1D 1D 1D 1D 1D 1D |........(.......|
00000170: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000180: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000190: 1D D2 25 8A 00 D2 2C 81 D0 33 89 27 42 00 33 92 |..%...,..3.'B.3.|
000001A0: 2C 8A 01 20 01 D2 2C 46 8A 00 D2 3A 81 D0 33 89 |,.. ..,F...:..3.|
000001B0: 27 42 00 33 92 3A 8A 01 2E 01 D2 3A 46 81 8A 17 |'B.3.:.....:F...|
000001C0: 2A 20 CE 55 4D 42 45 52 53 20 4F 4E 4C 59 20 50 |* .UMBERS ONLY P|
000001D0: 4C 45 41 53 45 20 2A E2 04 82 8A 15 2A 20 CE 4F |LEASE *.....* .O|
000001E0: 20 4E 55 4D 42 45 52 53 20 50 4C 45 41 53 45 20 | NUMBERS PLEASE |
000001F0: 2A E2 04 83 8A 1C 2A 20 D9 4F 55 20 4D 55 53 54 |*.....* .OU MUST|
00000200: 20 45 4E 54 45 52 20 53 4F 4D 45 54 48 49 4E 47 | ENTER SOMETHING|
00000210: 20 2A E2 04 84 8A 1E 2A 20 C6 4F 52 42 49 44 44 | *.....* .ORBIDD|
00000220: 45 4E 20 43 48 41 52 41 43 54 45 52 20 53 54 52 |EN CHARACTER STR|
00000230: 49 4E 47 20 2A E2 04 85 8A 13 2A 20 C9 4D 50 52 |ING *.....* .MPR|
00000240: 4F 50 45 52 20 4C 45 4E 47 54 48 20 2A E2 04 86 |OPER LENGTH *...|
00000250: 8A 16 2A 20 D6 41 4C 55 45 20 4F 55 54 20 4F 46 |..* .ALUE OUT OF|
00000260: 20 52 41 4E 47 45 20 2A E2 04 00 99 C7 28 31 34 | RANGE *.....(14|
00000270: 29 3A 90 02 81 2B 4F 05 48 F3 13 00 99 22 93 11 |):...+O.H...."..|
00000280: 12 A1 C3 4F 44 45 D7 52 49 54 45 52 20 C4 41 54 |...ODE.RITER .AT|
00000290: 41 20 C1 50 50 4C 49 43 41 54 49 4F 4E 20 C7 45 |A .PPLICATION .E|
000002A0: 4E 45 52 41 54 4F 52 20 92 22 00 99 C8 28 59 24 |NERATOR ."...(Y$|
000002B0: 2C 37 29 3B 22 20 D0 4C 41 43 45 20 54 48 45 20 |,7);" .LACE THE |
000002C0: 22 3B 3A 8D 03 C5 B8 0E 81 2B 4F 12 00 99 22 41 |";:......+O..."A|
000002D0: 50 50 4C 49 43 41 54 49 4F 4E 22 3B 3A 8D 03 C5 |PPLICATION";:...|
000002E0: B8 0E 82 2B 4F 0F 00 99 22 20 20 44 41 54 41 20 |...+O..." DATA |
000002F0: 20 22 3B 00 99 22 20 44 49 53 4B 2C 20 43 4F 4E | ";.." DISK, CON|
00000300: 54 41 49 4E 49 4E 47 22 00 99 22 20 54 48 45 20 |TAINING".." THE |
00000310: 53 43 52 45 45 4E 20 4C 41 59 4F 55 54 20 46 49 |SCREEN LAYOUT FI|
00000320: 4C 45 2C 20 49 4E 54 4F 20 44 52 49 56 45 22 3B |LE, INTO DRIVE";|
00000330: B6 28 C2 28 39 36 38 29 AB 31 29 3B 22 2E 22 00 |.(.(968).1);".".|
00000340: 99 22 11 11 20 D0 52 45 53 53 20 12 D2 C5 D4 D5 |.".. .RESS .....|
00000350: D2 CE 92 20 54 4F 20 43 4F 4E 54 49 4E 55 45 20 |... TO CONTINUE |
00000360: 4F 52 20 54 59 50 45 20 12 58 92 20 54 4F 22 00 |OR TYPE .X. TO".|
00000370: 99 22 20 52 45 54 55 52 4E 20 54 4F 20 54 48 45 |." RETURN TO THE|
00000380: 20 53 59 53 54 45 4D 20 43 52 45 41 54 49 4F 4E | SYSTEM CREATION|
00000390: 20 4D 45 4E 55 22 3A 89 24 D1 41 89 0C D1 48 81 | MENU":.$.A...H.|
000003A0: D1 4F 4A D3 87 92 56 8A 01 58 2E 4F 05 48 F4 08 |.OJ...V..X.O.H..|
000003B0: 4A 99 20 00 99 22 93 22 3B C8 28 59 24 2C 31 30 |J. ..".";.(Y$,10|
000003C0: 29 3B 22 20 20 D0 52 4F 47 52 41 4D 20 CC 4F 41 |);" .ROGRAM .OA|
000003D0: 44 49 4E 47 20 50 4C 45 41 53 45 20 57 41 49 54 |DING PLEASE WAIT|
000003E0: 2E 2E 2E 22 3A 8D 03 C6 89 60 50 00 93 22 4E 45 |...":....`P.."NE|
000003F0: 57 4D 45 4E 55 22 2C 38 3A 92 56 B8 0F 80 2A 4F |WMENU",8:.V...*O|
00000400: 05 48 F4 6A 00 99 22 93 D9 4F 55 52 20 27 C3 4F |.H.j.."..OUR '.O|
00000410: 44 45 D7 52 49 54 45 52 27 20 57 49 4C 4C 20 50 |DE.RITER' WILL P|
00000420: 52 4F 44 55 43 45 20 54 48 45 20 C2 C1 D3 C9 C3 |RODUCE THE .....|
00000430: 20 43 4F 44 45 20 46 4F 52 20 41 20 50 52 4F 47 | CODE FOR A PROG|
00000440: 52 41 4D 20 59 4F 55 20 44 45 53 49 47 4E 2E 22 |RAM YOU DESIGN."|
00000450: 00 99 22 11 11 D0 4C 45 41 53 45 20 45 4E 54 45 |.."...LEASE ENTE|
00000460: 52 20 54 48 45 20 4E 41 4D 45 20 59 4F 55 20 57 |R THE NAME YOU W|
00000470: 4F 55 4C 44 20 4C 49 4B 45 20 54 4F 20 41 50 50 |OULD LIKE TO APP|
00000480: 45 41 52 20 41 46 54 45 52 20 54 48 45 22 3B 00 |EAR AFTER THE";.|
00000490: 99 22 20 53 43 52 45 45 4E 20 43 52 45 44 49 54 |." SCREEN CREDIT|
000004A0: 3A 22 00 99 22 11 D0 52 4F 47 52 41 4D 20 C4 45 |:".."..ROGRAM .E|
000004B0: 53 49 47 4E 20 42 59 20 12 32 30 20 43 48 41 52 |SIGN BY .20 CHAR|
000004C0: 41 43 54 45 52 53 20 4D 41 58 49 4D 55 4D 92 22 |ACTERS MAXIMUM."|
000004D0: 00 99 22 3F 22 3B 3A 81 D1 41 89 D6 B8 0E 81 01 |.."?";:..A......|
000004E0: D1 48 89 14 D1 4F 4A D3 87 92 56 D2 5D 00 99 22 |.H...OJ...V.].."|
000004F0: 93 D7 48 41 54 20 49 53 20 54 48 45 20 4E 41 4D |..HAT IS THE NAM|
00000500: 45 20 4F 46 20 59 4F 55 52 20 53 43 52 45 45 4E |E OF YOUR SCREEN|
00000510: 20 46 49 4C 45 3F 22 00 99 C8 28 59 24 2C 32 30 | FILE?"...(Y$,20|
00000520: 29 3B 22 20 D4 59 50 45 20 12 44 92 20 41 4E 44 |);" .YPE .D. AND|
00000530: 20 12 D2 C5 D4 D5 D2 CE 92 20 46 4F 52 20 44 49 | ........ FOR DI|
00000540: 52 45 43 54 4F 52 59 22 00 99 C8 28 59 24 2C 33 |RECTORY"...(Y$,3|
00000550: 29 53 50 24 3B 00 99 C8 28 59 24 2C 33 29 22 53 |)SP$;...(Y$,3)"S|
00000560: 43 52 45 45 4E 20 46 49 4C 45 20 4E 41 4D 45 20 |CREEN FILE NAME |
00000570: 3D 20 22 3B 3A 89 13 D1 41 89 D6 B8 0E 81 01 D1 |= ";:...A.......|
00000580: 48 89 0A D1 4F 8A 00 D2 64 4A D3 87 92 56 8A 01 |H...O...dJ...V..|
00000590: 44 2B 4F 08 4A 97 03 48 F3 13 92 56 8A 00 2B 4F |D+O.J..H...V..+O|
000005A0: 05 48 F5 85 92 56 D2 64 92 64 8A 02 2F 53 01 D2 |.H...V.d.d../S..|
000005B0: 6B 4A D6 21 90 72 89 3E 2B 4F 20 00 99 22 11 D3 |kJ.!.r.>+O .."..|
000005C0: 43 52 45 45 4E 20 46 49 4C 45 20 4E 4F 54 20 46 |CREEN FILE NOT F|
000005D0: 4F 55 4E 44 22 3A 48 F2 B8 90 72 80 2B 4F 05 48 |OUND":H...r.+O.H|
000005E0: F1 D2 00 99 00 99 22 11 C4 49 53 4B 20 45 52 52 |......"..ISK ERR|
000005F0: 4F 52 20 23 22 3B 45 53 3B 00 99 22 2D 20 D0 52 |OR #";ES;.."- .R|
00000600: 45 53 53 20 12 D2 C5 D4 D5 D2 CE 92 20 54 4F 20 |ESS ........ TO |
00000610: 43 4F 4E 54 49 4E 55 45 22 00 A1 41 41 24 3A 92 |CONTINUE"..AA$:.|
00000620: 79 89 0D B8 13 2E 4F 05 48 F1 E7 48 F5 85 00 86 |y.....O.H..H....|
00000630: 46 24 28 5A 46 29 3A 41 00 06 00 86 44 25 28 5A |F$(ZF):A....D%(Z|
00000640: 46 29 3A 41 00 08 00 86 46 49 25 28 5A 46 29 3A |F):A....FI%(ZF):|
00000650: 41 00 0A 00 99 22 93 22 3A 81 D0 33 90 87 42 00 |A....".":..3..B.|
00000660: 33 00 99 C8 28 59 24 2C 59 25 28 49 29 29 3B C8 |3...(Y$,Y%(I));.|
00000670: 28 58 24 2C 58 25 28 49 29 29 3B 50 52 24 28 49 |(X$,X%(I));PR$(I|
00000680: 29 3B 53 44 24 28 49 29 3A 46 90 8E 4F 2E 81 D0 |);SD$(I):F..O...|
00000690: 33 90 8E 42 00 33 00 99 C8 28 59 24 2C 43 59 25 |3..B.3...(Y$,CY%|
000006A0: 28 49 29 29 3B C8 28 58 24 2C 43 58 25 28 49 29 |(I));.(X$,CX%(I)|
000006B0: 29 3B 43 50 24 28 49 29 3A 46 90 95 4F 2E 81 D0 |);CP$(I):F..O...|
000006C0: 33 90 95 42 00 33 00 99 C8 28 59 24 2C 47 59 25 |3..B.3...(Y$,GY%|
000006D0: 28 49 29 29 3B C8 28 58 24 2C 47 58 25 28 49 29 |(I));.(X$,GX%(I)|
000006E0: 29 3B 47 50 24 28 49 29 3A 46 90 9C 4F 30 81 D0 |);GP$(I):F..O0..|
000006F0: 33 90 9C 42 00 33 00 99 C8 28 59 24 2C 54 59 25 |3..B.3...(Y$,TY%|
00000700: 28 49 29 29 3B C8 28 58 24 2C 54 58 25 28 49 29 |(I));.(X$,TX%(I)|
00000710: AA 31 29 3B 54 50 24 28 49 29 3A 46 00 99 C8 28 |.1);TP$(I):F...(|
00000720: 59 24 2C 32 34 29 3B 22 C9 53 20 54 48 49 53 20 |Y$,24);".S THIS |
00000730: 59 4F 55 52 20 53 43 52 45 45 4E 20 46 4F 52 4D |YOUR SCREEN FORM|
00000740: 41 54 20 28 59 2F 4E 29 3F 22 3A 89 22 D1 41 89 |AT (Y/N)?":.".A.|
00000750: 18 D1 48 81 D1 4F 4A D3 87 92 56 8A 01 59 2B 4F |..H..OJ...V..Y+O|
00000760: 05 48 F0 76 92 56 8A 01 4E 2B 4F 0E 00 99 22 93 |.H.v.V..N+O...".|
00000770: 22 3A 81 D0 02 48 F7 13 92 56 8A 01 59 2E 92 56 |":...H...V..Y..V|
00000780: 8A 01 4E 2E 06 4F 05 48 F0 E4 92 64 8A 02 2F 58 |..N..O.H...d../X|
00000790: 01 D2 A3 92 64 8A 02 2F 42 01 D2 AA 92 64 8A 04 |....d../B....d..|
000007A0: 2F 47 4C 42 01 D2 B1 00 98 31 35 2C 22 53 22 AA |/GLB.....15,"S".|
000007B0: 44 52 24 AA 22 3A 22 AA 28 50 4E 24 29 00 9F 32 |DR$.":".(PN$)..2|
000007C0: 2C 44 56 2C 32 2C 44 52 24 AA 22 3A 22 AA 28 50 |,DV,2,DR$.":".(P|
000007D0: 4E 24 29 AA 22 2C 53 2C 57 22 3A 89 22 B8 13 D2 |N$).",S,W":."...|
000007E0: B8 00 98 32 2C 22 31 52 45 4D 20 2A 50 52 4F 47 |...2,"1REM *PROG|
000007F0: 52 41 4D 20 4E 41 4D 45 20 49 53 20 22 3B 50 24 |RAM NAME IS ";P$|
00000800: 3B 22 2F 54 2A 22 00 98 32 2C 22 37 20 44 46 24 |;"/T*"..2,"7 DF$|
00000810: 3D 22 3B 51 24 3B 50 24 3B 22 30 2F 44 22 3B 51 |=";Q$;P$;"0/D";Q|
00000820: 24 3B 22 3A 52 45 4D 20 44 41 54 41 20 46 49 4C |$;":REM DATA FIL|
00000830: 45 20 4E 41 4D 45 22 00 98 32 2C 22 33 20 48 46 |E NAME"..2,"3 HF|
00000840: 24 3D 22 3B 51 24 3B 50 24 3B 22 2F 58 22 3B 51 |$=";Q$;P$;"/X";Q|
00000850: 24 3B 22 3A 52 45 4D 20 48 41 53 48 20 46 49 4C |$;":REM HASH FIL|
00000860: 45 22 00 98 32 2C 22 38 20 53 46 24 3D 22 3B 51 |E"..2,"8 SF$=";Q|
00000870: 24 3B 53 46 24 3B 51 24 3B 22 3A 52 45 4D 20 53 |$;SF$;Q$;":REM S|
00000880: 43 52 45 45 4E 20 46 49 4C 45 22 00 98 31 35 2C |CREEN FILE"..15,|
00000890: 22 53 22 AA 44 52 24 AA 22 3A 22 AA 28 50 24 AA |"S".DR$.":".(P$.|
000008A0: 22 2F 50 43 46 22 29 00 9F 33 2C 44 56 2C 33 2C |"/PCF")..3,DV,3,|
000008B0: 44 52 24 AA 22 3A 22 AA 28 50 24 AA 22 2F 50 43 |DR$.":".(P$."/PC|
000008C0: 46 22 29 AA 22 2C 53 2C 57 22 3A 90 95 80 2B 4F |F").",S,W":...+O|
000008D0: 05 48 EF 29 4A EA AC 80 D0 BF 4A E8 14 00 98 33 |.H.)J.....J....3|
000008E0: 2C C4 28 4E 53 AA 4E 46 29 00 A0 33 3A 80 D0 C6 |,.(NS.NF)..3:...|
000008F0: 90 95 80 2B 4F 07 8D 02 00 D0 C6 90 CD 89 0F 90 |...+O...........|
00000900: BF 03 01 D0 CD 8D 03 C5 B8 0E 82 2B 4F 0A 88 92 |...........+O...|
00000910: 1E 34 00 00 D0 D4 8D 03 C5 B8 0E 81 2B 4F 0A 88 |.4..........+O..|
00000920: 91 07 0E 00 00 D0 D4 90 D4 90 C6 01 90 CD 89 28 |...............(|
00000930: 01 04 B8 01 D0 DB 00 99 22 93 11 D7 48 41 54 20 |........"...HAT |
00000940: 49 53 20 54 48 45 20 4D 41 58 49 4D 55 4D 20 4E |IS THE MAXIMUM N|
00000950: 55 4D 42 45 52 20 4F 46 20 52 45 43 4F 52 44 53 |UMBER OF RECORDS|
00000960: 20 20 20 59 4F 55 20 57 41 4E 54 20 49 4E 20 54 | YOU WANT IN T|
00000970: 48 45 20 44 41 54 41 20 46 49 4C 45 20 22 3B 00 |HE DATA FILE ";.|
00000980: 99 22 12 28 31 2D 22 AA C4 28 4D 58 29 AA 22 12 |.".(1-"..(MX).".|
00000990: 29 92 20 22 00 99 22 11 3F 20 20 20 20 20 20 20 |). "..".? |
000009A0: 20 22 3B 3A 85 D1 4F 81 D1 41 89 D6 B8 0E 81 01 | ";:..O..A......|
000009B0: D1 48 4A D3 87 92 56 B8 11 D0 E2 90 E2 80 2A 90 |.HJ...V.......*.|
000009C0: E2 90 DB 81 01 2D 06 4F 05 48 EE 08 00 99 22 11 |.....-.O.H....".|
000009D0: C9 4E 56 41 4C 49 44 20 4E 55 4D 42 45 52 20 4F |.NVALID NUMBER O|
000009E0: 46 20 52 45 43 4F 52 44 53 22 3A 81 D0 33 8D 01 |F RECORDS":..3..|
000009F0: F4 42 00 33 46 48 EE CA 88 92 32 98 00 00 D0 E9 |.B.3FH....2.....|
00000A00: 90 E9 89 50 04 B8 01 D0 F0 90 CD 90 E2 03 90 E9 |...P............|
00000A10: 04 B8 01 D0 F7 90 87 90 BF 01 D0 FE 00 99 22 93 |..............".|
00000A20: 22 C8 28 59 24 2C 32 29 22 D0 4C 45 41 53 45 20 |".(Y$,2)".LEASE |
00000A30: 45 4E 54 45 52 20 54 48 45 20 54 49 54 4C 45 20 |ENTER THE TITLE |
00000A40: 59 4F 55 20 57 41 4E 54 22 00 99 22 44 49 53 50 |YOU WANT".."DISP|
00000A50: 4C 41 59 45 44 20 46 4F 52 20 59 4F 55 52 20 50 |LAYED FOR YOUR P|
00000A60: 52 4F 47 52 41 4D 20 57 48 45 4E 20 52 55 4E 2E |ROGRAM WHEN RUN.|
00000A70: 22 00 99 22 11 D9 4F 55 20 41 52 45 20 4C 49 4D |".."..OU ARE LIM|
00000A80: 49 54 45 44 20 54 4F 20 32 32 20 43 48 41 52 41 |ITED TO 22 CHARA|
00000A90: 43 54 45 52 53 2E 22 00 99 22 11 D4 49 54 4C 45 |CTERS.".."..ITLE|
00000AA0: 20 3D 20 22 3B 3A 89 08 D1 41 89 D6 B8 0E 81 01 | = ";:...A......|
00000AB0: D1 48 89 16 D1 4F 4A D3 87 8A 01 20 92 56 01 8A |.H...OJ.... .V..|
00000AC0: 01 20 01 D6 01 05 00 98 32 2C 22 34 20 4D 53 3D |. ......2,"4 MS=|
00000AD0: 22 3B 4D 53 3B 22 3A 50 CF 39 36 35 2C 22 3B C2 |";MS;":P.965,";.|
00000AE0: 28 39 36 35 29 3B 22 3A 52 45 4D 20 2A 4E 55 4D |(965);":REM *NUM|
00000AF0: 42 45 52 20 4F 46 20 52 45 43 4F 52 44 53 20 41 |BER OF RECORDS A|
00000B00: 4E 44 20 44 49 53 4B 53 22 00 98 32 2C 22 39 46 |ND DISKS"..2,"9F|
00000B10: 53 3D 22 3B 46 53 3A 90 95 80 2F 4F 05 48 EC 25 |S=";FS:.../O.H.%|
00000B20: 00 98 32 2C 22 33 32 31 33 35 4F D0 33 2C 38 2C |..2,"32135O.3,8,|
00000B30: 33 2C 22 3B 51 24 3B 22 30 3A 22 3B 47 46 24 3B |3,";Q$;"0:";GF$;|
00000B40: 22 2C 4C 2C 22 3B 51 24 3B 22 2B 43 C8 28 31 35 |",L,";Q$;"+C.(15|
00000B50: 29 22 00 98 32 2C 22 33 32 31 34 30 46 4F 52 49 |)"..2,"32140FORI|
00000B60: 3D 31 54 4F 4E 47 22 00 98 32 2C 22 33 32 31 34 |=1TONG"..2,"3214|
00000B70: 35 50 D2 33 2C 53 54 52 24 28 30 29 22 00 98 32 |5P.3,STR$(0)"..2|
00000B80: 2C 22 33 32 31 35 30 47 4C 28 49 29 3D 30 22 00 |,"32150GL(I)=0".|
00000B90: 98 32 2C 22 33 32 31 35 35 4E C5 49 22 00 98 32 |.2,"32155N.I"..2|
00000BA0: 2C 22 33 32 31 36 30 43 4C CF 33 22 00 98 32 2C |,"32160CL.3"..2,|
00000BB0: 22 36 38 47 4F D3 31 33 30 30 30 3A 52 45 4D 20 |"68GO.13000:REM |
00000BC0: 47 45 54 20 47 4C 4F 42 41 4C 53 20 46 52 4F 4D |GET GLOBALS FROM|
00000BD0: 20 2F 47 4C 42 20 46 49 4C 45 22 3A 89 5A D4 01 | /GLB FILE":.Z..|
00000BE0: 0C 94 01 0C D4 01 13 00 98 32 2C 22 31 31 30 3F |.........2,"110?|
00000BF0: 3A 3F 54 C1 32 30 2D 28 39 2B 22 3B C3 28 4E 41 |:?T.20-(9+";.(NA|
00000C00: 24 29 3B 22 2F 32 29 29 3B 22 3B 51 24 3B 22 D0 |$);"/2));";Q$;".|
00000C10: 52 4F 47 52 41 4D 20 C4 45 53 49 47 4E 20 42 59 |ROGRAM .ESIGN BY|
00000C20: 20 22 3B 4E 41 24 3B 51 24 00 98 32 2C 22 31 30 | ";NA$;Q$..2,"10|
00000C30: 30 3F 54 C1 32 30 2D 28 22 3B C3 28 54 54 24 29 |0?T.20-(";.(TT$)|
00000C40: 3B 22 2F 32 29 29 3B 22 3B 51 24 3B 22 12 22 3B |;"/2));";Q$;".";|
00000C50: 54 54 24 3B 22 92 22 3B 51 24 3A 90 95 80 2B 4F |TT$;".";Q$:...+O|
00000C60: 0B 00 98 32 2C 22 31 39 35 22 3A 90 95 80 2B 4F |...2,"195":...+O|
00000C70: 0B 00 98 32 2C 22 33 30 35 22 3A 8D 01 5E D4 01 |...2,"305":..^..|
00000C80: 0C 94 01 21 D4 01 1A 00 99 22 93 22 00 99 22 13 |...!....."."..".|
00000C90: 22 C8 28 59 24 2C 33 29 22 20 D7 48 49 43 48 20 |".(Y$,3)" .HICH |
00000CA0: 46 49 45 4C 44 20 49 53 20 59 4F 55 52 20 4B 45 |FIELD IS YOUR KE|
00000CB0: 59 20 46 49 45 4C 44 20 3F 22 00 99 22 28 D4 59 |Y FIELD ?".."(.Y|
00000CC0: 50 45 20 31 20 2D 22 3B 4E 46 3B 22 4F 52 20 4C |PE 1 -";NF;"OR L|
00000CD0: 49 53 54 29 22 3B 3A 89 13 90 87 B8 10 B8 0F 01 |IST)";:.........|
00000CE0: D1 41 89 D6 B8 0E 81 01 D1 48 84 D1 4F 4A D3 87 |.A.......H..OJ..|
00000CF0: 92 56 8A 04 4C 49 53 54 2B 4F 08 4A D7 7A 48 EB |.V..LIST+O.J.zH.|
00000D00: 86 92 56 B8 11 D4 01 28 94 01 28 81 2D 94 01 28 |..V....(..(.-..(|
00000D10: 90 87 2A 07 4F 24 00 99 22 D4 48 49 53 20 46 49 |..*.O$..".HIS FI|
00000D20: 45 4C 44 20 44 4F 45 53 20 4E 4F 54 20 45 58 49 |ELD DOES NOT EXI|
00000D30: 53 54 2E 22 3A 48 EB 74 00 98 32 2C 22 35 20 4B |ST.":H.t..2,"5 K|
00000D40: 46 3D 22 3B 4B 46 3B 22 3A 52 53 3D 22 3B 52 53 |F=";KF;":RS=";RS|
00000D50: 3A 48 CE 72 84 D5 01 2F 90 87 B8 10 82 89 FF B8 |:H.r.../........|
00000D60: 16 D6 01 36 90 8E B8 10 82 89 FF B8 16 D6 01 3D |...6...........=|
00000D70: 81 D4 01 44 90 95 42 01 44 00 99 22 93 D0 4C 45 |...D..B.D.."..LE|
00000D80: 41 53 45 20 53 50 45 43 49 46 59 20 57 48 49 43 |ASE SPECIFY WHIC|
00000D90: 48 20 46 49 45 4C 44 20 49 53 20 54 4F 20 42 45 |H FIELD IS TO BE|
00000DA0: 20 20 20 20 20 41 43 43 55 4D 55 4C 41 54 45 44 | ACCUMULATED|
00000DB0: 20 49 4E 20 54 48 49 53 22 00 99 22 20 47 52 41 | IN THIS".." GRA|
00000DC0: 4E 44 20 54 4F 54 41 4C 20 46 49 45 4C 44 2E 22 |ND TOTAL FIELD."|
00000DD0: 00 99 22 4B 45 31 20 2D 20 4B 45 22 3B 4E 46 24 |.."KE1 - KE";NF$|
00000DE0: 3B 3A 90 8E 80 2A 4F 15 00 99 22 2C 20 50 43 31 |;:...*O...", PC1|
00000DF0: 20 2D 20 50 43 22 3B 4E 43 24 3B 00 99 22 20 4F | - PC";NC$;.." O|
00000E00: 52 20 27 4C 49 53 54 27 22 00 99 C8 28 59 24 2C |R 'LIST'"...(Y$,|
00000E10: 4F 46 25 AA 31 29 3B 47 50 24 28 4A 4B 29 3B 22 |OF%.1);GP$(JK);"|
00000E20: 3A 22 3B 3A 95 01 2F 81 01 D1 48 94 01 44 A2 1E |:";:../...H..D..|
00000E30: B8 0F 82 01 D1 41 87 D1 4F 4A D3 87 92 56 8A 04 |.....A..OJ...V..|
00000E40: 4C 49 53 54 2B 4F 08 4A D9 59 48 EA 87 92 56 83 |LIST+O.J.YH...V.|
00000E50: 89 FF B8 16 B8 11 D5 01 4B 92 56 82 B8 14 D6 01 |........K.V.....|
00000E60: 52 00 99 C8 28 59 24 2C 4F 46 25 29 3B A3 33 37 |R...(Y$,OF%);.37|
00000E70: 29 3B 3A 96 01 52 8A 02 4B 45 2B 95 01 4B 80 2A |);:..R..KE+..K.*|
00000E80: 06 95 01 4B 90 87 2F 06 4F 05 48 E9 23 96 01 52 |...K../.O.H.#..R|
00000E90: 8A 02 50 43 2B 95 01 4B 80 2A 06 95 01 4B 90 8E |..PC+..K.*...K..|
00000EA0: 2F 06 4F 05 48 E8 DD 00 99 C8 28 59 24 2C 32 32 |/.O.H.....(Y$,22|
00000EB0: 29 22 2A 20 49 4E 56 41 4C 49 44 20 56 41 4C 55 |)"* INVALID VALU|
00000EC0: 45 20 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 |E * |
00000ED0: 20 20 20 20 20 20 20 20 22 3A 48 E9 F7 80 D5 01 | ":H.....|
00000EE0: 59 95 01 4B A2 26 8A 01 44 2E 95 01 4B A2 26 8A |Y..K.&..D...K.&.|
00000EF0: 01 41 2E 06 4F 05 48 E8 D8 00 99 C8 28 59 24 2C |.A..O.H.....(Y$,|
00000F00: 32 32 29 22 CD 55 53 54 20 42 45 20 44 4F 4C 4C |22)".UST BE DOLL|
00000F10: 41 52 20 4F 52 20 4E 55 4D 45 52 49 43 22 3B 3A |AR OR NUMERIC";:|
00000F20: 48 E9 F7 90 87 D5 01 59 00 99 C8 28 59 24 2C 39 |H......Y...(Y$,9|
00000F30: 29 22 C9 53 20 54 48 49 53 20 43 4F 52 52 45 43 |)".S THIS CORREC|
00000F40: 54 3F 20 28 59 2F 4E 29 22 3A 89 D6 B8 0E D1 48 |T? (Y/N)":.....H|
00000F50: 89 17 D1 41 81 D1 4F 4A D3 87 92 56 8A 01 59 2E |...A..OJ...V..Y.|
00000F60: 92 56 8A 01 4E 2E 06 4F 05 48 E8 D8 92 56 8A 01 |.V..N..O.H...V..|
00000F70: 4E 2B 4F 05 48 EA 87 00 99 22 20 20 20 20 20 20 |N+O.H...." |
00000F80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000F90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000FA0: 20 20 20 20 22 3B 3A 94 01 44 95 01 4B 95 01 59 | ";:..D..K..Y|
00000FB0: 01 E1 0A 47 01 44 00 98 32 2C 22 34 30 46 4F 52 |...G.D..2,"40FOR|
00000FC0: 49 3D 31 54 4F 4E 47 3A 52 C5 47 4B 25 3A 47 53 |I=1TONG:R.GK%:GS|
00000FD0: 25 28 47 4B 25 29 3D 49 3A 4E C5 49 22 3A 89 2A |%(GK%)=I:N.I":.*|
00000FE0: D4 01 60 90 95 D5 01 67 4A DB 42 4C 90 8E 80 2B |..`....gJ.BL...+|
00000FF0: 4F 05 48 DB 6E 00 99 22 93 CE 4F 57 20 59 4F 55 |O.H.n.."..OW YOU|
00001000: 20 4D 55 53 54 20 45 4E 54 45 52 20 54 48 45 20 | MUST ENTER THE |
00001010: 45 51 55 41 54 49 4F 4E 53 20 46 4F 52 22 3B 4E |EQUATIONS FOR";N|
00001020: 43 3B 22 20 43 4F 4D 50 55 54 45 44 20 46 49 45 |C;" COMPUTED FIE|
00001030: 4C 44 22 3B 3A 90 8E 81 2A 4F 08 00 99 22 53 22 |LD";:...*O..."S"|
00001040: 3B 00 99 22 2E 11 22 00 99 22 D9 4F 55 20 4D 41 |;..".."..".OU MA|
00001050: 59 20 52 45 46 45 52 20 54 4F 20 41 20 4B 45 59 |Y REFER TO A KEY|
00001060: 42 4F 41 52 44 2D 45 4E 54 45 52 45 44 20 20 20 |BOARD-ENTERED |
00001070: 20 20 46 49 45 4C 44 20 57 49 54 48 20 27 4B 45 | FIELD WITH 'KE|
00001080: 27 20 46 4F 4C 4C 4F 57 45 44 20 42 59 20 54 48 |' FOLLOWED BY TH|
00001090: 45 22 3B 00 99 22 20 46 49 45 4C 44 20 20 20 4E |E";.." FIELD N|
000010A0: 55 4D 42 45 52 2E 20 C6 4F 52 20 45 58 41 4D 50 |UMBER. .OR EXAMP|
000010B0: 4C 45 2C 20 46 49 45 4C 44 20 23 35 20 57 4F 55 |LE, FIELD #5 WOU|
000010C0: 4C 44 20 42 45 20 20 27 4B 45 35 27 2E 22 00 99 |LD BE 'KE5'."..|
000010D0: 00 99 22 D9 4F 55 20 4D 41 59 20 41 4C 53 4F 20 |..".OU MAY ALSO |
000010E0: 52 45 46 45 52 22 3B 00 99 22 20 54 4F 20 41 20 |REFER";.." TO A |
000010F0: 50 52 45 56 49 4F 55 53 4C 59 20 20 20 20 20 20 |PREVIOUSLY |
00001100: 44 45 46 49 4E 45 44 20 50 52 4F 47 52 41 4D 2D |DEFINED PROGRAM-|
00001110: 43 41 4C 43 55 4C 41 54 45 44 22 3B 00 99 22 20 |CALCULATED";.." |
00001120: 46 49 45 4C 44 20 41 53 20 27 50 43 27 46 4F 4C |FIELD AS 'PC'FOL|
00001130: 4C 4F 57 45 44 20 42 59 22 3B 00 99 22 20 54 48 |LOWED BY";.." TH|
00001140: 45 20 46 49 45 4C 44 20 4E 55 4D 42 45 52 2E 20 |E FIELD NUMBER. |
00001150: C6 4F 52 20 20 20 20 20 20 20 45 58 41 4D 50 4C |.OR EXAMPL|
00001160: 45 2C 20 43 41 4C 43 55 4C 41 54 45 44 20 46 49 |E, CALCULATED FI|
00001170: 45 4C 44 20 23 36 20 4D 41 59 20 42 45 20 4D 41 |ELD #6 MAY BE MA|
00001180: 44 45 22 3B 00 99 22 54 4F 20 44 45 50 45 4E 44 |DE";.."TO DEPEND|
00001190: 20 4F 4E 20 43 41 4C 43 55 4C 41 54 45 44 20 46 | ON CALCULATED F|
000011A0: 49 45 4C 44 20 23 35 20 42 59 20 20 20 20 20 52 |IELD #5 BY R|
000011B0: 45 46 45 52 52 49 4E 47 20 54 4F 20 27 50 43 35 |EFERRING TO 'PC5|
000011C0: 27 2E 22 00 99 00 99 22 C1 20 47 52 41 4E 44 20 |'."....". GRAND |
000011D0: 54 4F 54 41 4C 22 3B 00 99 22 20 46 49 45 4C 44 |TOTAL";.." FIELD|
000011E0: 20 4D 41 59 20 42 45 20 55 53 45 44 20 49 46 20 | MAY BE USED IF |
000011F0: 49 54 20 49 53 54 48 45 20 54 4F 54 41 4C 20 4F |IT ISTHE TOTAL O|
00001200: 46 20 41 20 4B 45 59 42 4F 41 52 44 20 45 4E 54 |F A KEYBOARD ENT|
00001210: 45 52 45 44 20 46 49 45 4C 44 22 3B 00 99 22 20 |ERED FIELD";.." |
00001220: 4F 52 4F 46 20 41 20 50 52 45 56 49 4F 55 53 4C |OROF A PREVIOUSL|
00001230: 59 20 44 45 46 49 4E 45 44 20 50 52 4F 47 52 41 |Y DEFINED PROGRA|
00001240: 4D 2D 20 20 20 20 20 20 20 20 43 41 4C 43 55 4C |M- CALCUL|
00001250: 41 54 45 44 20 46 49 45 4C 44 2E 22 3B 00 99 22 |ATED FIELD.";.."|
00001260: 20 20 D9 4F 55 20 52 45 46 45 52 20 54 4F A0 41 | .OU REFER TO.A|
00001270: 20 22 3B 00 99 22 47 52 41 4E 44 20 54 4F 54 41 | ";.."GRAND TOTA|
00001280: 4C 20 46 49 45 4C 44 20 57 49 54 48 20 27 47 54 |L FIELD WITH 'GT|
00001290: 27 20 46 4F 4C 4C 4F 57 45 44 20 42 59 20 54 48 |' FOLLOWED BY TH|
000012A0: 45 20 20 20 46 49 45 4C 44 20 4E 55 4D 42 45 52 |E FIELD NUMBER|
000012B0: 2E 22 00 99 C8 28 59 24 2C 32 34 29 22 D0 52 45 |."...(Y$,24)".RE|
000012C0: 53 53 20 12 D2 C5 D4 D5 D2 CE 92 20 54 4F 20 43 |SS ........ TO C|
000012D0: 4F 4E 54 49 4E 55 45 22 00 A1 41 41 24 3A 92 79 |ONTINUE"..AA$:.y|
000012E0: 89 0D B8 13 2E 4F 05 48 E5 28 00 99 22 93 C6 4F |.....O.H.(.."..O|
000012F0: 52 20 45 58 41 4D 50 4C 45 2C 22 3B 00 99 22 20 |R EXAMPLE,";.." |
00001300: 54 48 45 20 53 45 43 4F 4E 44 20 47 52 41 4E 44 |THE SECOND GRAND|
00001310: 20 54 4F 54 41 4C 20 20 20 20 20 46 49 45 4C 44 | TOTAL FIELD|
00001320: 20 49 53 20 52 45 46 45 52 52 45 44 20 54 4F 20 | IS REFERRED TO |
00001330: 42 59 20 27 47 54 32 27 2E 22 00 99 00 99 22 C1 |BY 'GT2'."....".|
00001340: 20 43 4F 4D 50 4C 45 54 45 20 4C 49 53 54 20 4F | COMPLETE LIST O|
00001350: 46 20 46 49 45 4C 44 53 20 49 53 20 41 56 41 49 |F FIELDS IS AVAI|
00001360: 4C 41 42 4C 45 20 20 42 59 20 45 4E 54 45 52 49 |LABLE BY ENTERI|
00001370: 4E 47 20 27 4C 49 53 54 27 2E 22 00 99 00 99 22 |NG 'LIST'."...."|
00001380: D9 4F 55 20 41 52 45 20 41 4C 4C 4F 57 45 44 22 |.OU ARE ALLOWED"|
00001390: 3B 00 99 22 20 54 4F 20 44 45 46 49 4E 45 20 53 |;.." TO DEFINE S|
000013A0: 45 4C 46 2D 20 20 20 20 20 20 20 20 20 52 45 46 |ELF- REF|
000013B0: 45 52 45 4E 43 49 4E 47 20 46 49 45 4C 44 53 2C |ERENCING FIELDS,|
000013C0: 20 49 2E 45 2E 20 46 49 45 4C 44 53 20 54 48 41 | I.E. FIELDS THA|
000013D0: 54 22 3B 00 99 22 20 55 53 45 54 48 45 49 52 20 |T";.." USETHEIR |
000013E0: 50 52 45 56 49 4F 55 53 20 56 41 4C 55 45 20 54 |PREVIOUS VALUE T|
000013F0: 4F 20 43 41 4C 43 55 4C 41 54 45 20 54 48 45 49 |O CALCULATE THEI|
00001400: 52 20 4E 45 57 20 56 41 4C 55 45 2E 20 D9 4F 55 |R NEW VALUE. .OU|
00001410: 20 52 45 46 45 52 20 54 4F 22 3B 00 99 22 20 54 | REFER TO";.." T|
00001420: 48 45 20 46 49 45 4C 44 20 49 4E 20 54 48 45 55 |HE FIELD IN THEU|
00001430: 53 55 41 4C 20 4D 41 4E 4E 45 52 2E 20 20 C6 4F |SUAL MANNER. .O|
00001440: 52 22 3B 00 99 22 20 45 58 41 4D 50 4C 45 2C 20 |R";.." EXAMPLE, |
00001450: 54 4F 20 4D 41 4B 45 20 54 48 45 20 46 49 52 53 |TO MAKE THE FIRS|
00001460: 54 20 50 52 4F 47 52 41 4D 22 3B 00 99 22 20 43 |T PROGRAM";.." C|
00001470: 41 4C 43 55 4C 41 54 45 44 20 46 49 45 4C 44 20 |ALCULATED FIELD |
00001480: 49 4E 43 52 45 4D 45 4E 54 49 54 53 45 4C 46 20 |INCREMENTITSELF |
00001490: 41 54 22 3B 00 99 22 20 45 41 43 48 20 55 50 44 |AT";.." EACH UPD|
000014A0: 41 54 45 2C 20 55 53 45 20 27 50 43 31 3D 50 43 |ATE, USE 'PC1=PC|
000014B0: 31 2B 31 2E 20 20 22 3B 00 99 22 D3 45 4C 46 20 |1+1. ";..".ELF |
000014C0: 55 50 44 41 54 49 4E 47 20 46 49 45 4C 44 53 20 |UPDATING FIELDS |
000014D0: 41 52 45 20 53 54 4F 52 45 44 20 4F 4E 20 44 49 |ARE STORED ON DI|
000014E0: 53 4B 2C 44 45 43 52 45 41 53 49 4E 47 20 54 48 |SK,DECREASING TH|
000014F0: 45 20 4E 55 4D 42 45 52 20 4F 46 20 22 3B 00 99 |E NUMBER OF ";..|
00001500: 22 52 45 43 4F 52 44 53 20 20 20 20 20 20 20 20 |"RECORDS |
00001510: 50 4F 53 53 49 42 4C 45 2E 22 3B 00 99 22 20 20 |POSSIBLE.";.." |
00001520: D9 4F 55 20 41 52 45 20 54 48 45 52 45 46 4F 52 |.OU ARE THEREFOR|
00001530: 45 20 41 53 4B 45 44 20 54 4F 20 20 20 43 4F 4E |E ASKED TO CON|
00001540: 46 49 52 4D 20 54 48 45 53 45 20 44 45 46 49 4E |FIRM THESE DEFIN|
00001550: 49 54 49 4F 4E 53 2E 22 00 99 C8 28 59 24 2C 32 |ITIONS."...(Y$,2|
00001560: 34 29 3B 22 D0 52 45 53 53 20 12 D2 C5 D4 D5 D2 |4);".RESS ......|
00001570: CE 92 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 3B |.. TO CONTINUE";|
00001580: 00 A1 41 41 24 3A 92 79 89 0D B8 13 2E 4F 05 48 |..AA$:.y.....O.H|
00001590: E2 80 00 99 22 93 22 00 99 22 D9 4F 55 20 4D 41 |...."."..".OU MA|
000015A0: 59 20 55 53 45 20 54 48 45 20 4F 50 45 52 41 54 |Y USE THE OPERAT|
000015B0: 4F 52 53 20 2B 2C 2D 2C 2A 2C 2F 20 46 4F 52 20 |ORS +,-,*,/ FOR |
000015C0: 20 20 54 48 45 20 46 4F 55 52 20 41 52 49 54 48 | THE FOUR ARITH|
000015D0: 4D 45 54 49 43 20 4F 50 45 52 41 54 49 4F 4E 53 |METIC OPERATIONS|
000015E0: 2E 22 00 99 22 D9 4F 55 20 4D 41 59 20 55 53 45 |."..".OU MAY USE|
000015F0: 20 50 41 52 45 4E 54 48 45 53 45 53 20 41 53 20 | PARENTHESES AS |
00001600: 4E 45 43 45 53 53 41 52 59 2E 20 20 20 C1 4C 4C |NECESSARY. .LL|
00001610: 20 52 45 46 45 52 45 4E 43 45 44 20 46 49 45 4C | REFERENCED FIEL|
00001620: 44 53 22 3B 00 99 22 20 4D 55 53 54 20 42 45 20 |DS";.." MUST BE |
00001630: 4E 55 4D 45 52 49 43 20 4F 52 44 4F 4C 4C 41 52 |NUMERIC ORDOLLAR|
00001640: 2E 22 00 99 22 11 11 C1 20 54 59 50 49 43 41 4C |.".."... TYPICAL|
00001650: 20 45 58 50 52 45 53 53 49 4F 4E 20 4D 49 47 48 | EXPRESSION MIGH|
00001660: 54 20 42 45 3A 22 00 99 22 11 12 27 50 43 32 3D |T BE:".."..'PC2=|
00001670: 28 4B 45 33 2B 50 43 31 29 2F 47 54 32 27 92 22 |(KE3+PC1)/GT2'."|
00001680: 00 99 C8 28 59 24 2C 32 34 29 3B 22 D0 52 45 53 |...(Y$,24);".RES|
00001690: 53 20 12 D2 C5 D4 D5 D2 CE 92 20 54 4F 20 43 4F |S ........ TO CO|
000016A0: 4E 54 49 4E 55 45 22 3B 00 A1 41 41 24 3A 92 79 |NTINUE";..AA$:.y|
000016B0: 89 0D B8 13 2E 4F 05 48 E1 58 80 D0 BF 00 86 53 |.....O.H.X.....S|
000016C0: 46 25 28 4E 43 29 3A 41 00 28 00 86 41 48 24 28 |F%(NC):A.(..AH$(|
000016D0: 31 31 29 3A 41 00 2A 81 D0 33 89 0B 42 00 33 00 |11):A.*..3..B.3.|
000016E0: 87 41 48 24 28 49 29 3A 46 81 D0 33 90 8E 42 00 |.AH$(I):F..3..B.|
000016F0: 33 90 33 B8 10 82 89 FF B8 16 D6 01 6E 00 99 22 |3.3.........n.."|
00001700: 93 C3 4F 4D 50 55 54 45 44 20 46 49 45 4C 44 20 |..OMPUTED FIELD |
00001710: 23 22 3B 49 3A 90 33 A2 18 D6 01 75 96 01 75 81 |#";I:.3....u..u.|
00001720: B8 15 8A 01 20 2B 96 01 75 B8 0F 81 2A 06 4F 14 |.... +..u...*.O.|
00001730: 96 01 75 96 01 75 B8 0F 81 02 B8 14 D6 01 75 48 |..u..u........uH|
00001740: E0 E4 96 01 75 D6 01 7C 00 99 22 11 C3 41 4C 43 |....u..|.."..ALC|
00001750: 55 4C 41 54 49 4F 4E 20 46 4F 52 20 27 22 3B 43 |ULATION FOR '";C|
00001760: 50 24 3B 22 27 22 00 99 22 11 D4 59 50 45 20 27 |P$;"'".."..YPE '|
00001770: 4C 49 53 54 27 20 46 4F 52 20 46 49 45 4C 44 20 |LIST' FOR FIELD |
00001780: 4E 55 4D 42 45 52 53 2E 22 00 99 22 11 50 43 22 |NUMBERS."..".PC"|
00001790: 3B 53 49 24 3B 22 3D 22 3B 3A 83 96 01 6E B8 0F |;SI$;"=";:...n..|
000017A0: 01 D1 41 89 D6 B8 0E 81 01 D1 48 89 27 D1 4F 4A |..A.......H.'.OJ|
000017B0: D3 87 92 56 D6 01 75 96 01 75 8A 04 4C 49 53 54 |...V..u..u..LIST|
000017C0: 2B 4F 08 4A D9 59 48 E1 03 00 99 00 99 22 11 11 |+O.J.YH......"..|
000017D0: C9 53 20 54 48 49 53 20 43 4F 52 52 45 43 54 3F |.S THIS CORRECT?|
000017E0: 20 28 59 2F 4E 29 20 22 3B 3A 89 17 D1 41 89 D6 | (Y/N) ";:...A..|
000017F0: B8 0E 81 01 D1 48 81 D1 4F 4A D3 87 92 56 8A 01 |.....H..OJ...V..|
00001800: 4E 2B 4F 05 48 E1 03 92 56 8A 01 59 2E 4F 05 48 |N+O.H...V..Y.O.H|
00001810: E0 07 96 01 75 D6 01 83 4A DD 3A 94 01 8A 80 2B |....u...J.:....+|
00001820: 4F 05 4A D2 22 94 01 8A 80 2B 4F 05 48 DD EE 94 |O.J."....+O.H...|
00001830: 01 8A 81 2B 4F 20 00 99 22 11 11 D9 4F 55 20 4D |...+O .."...OU M|
00001840: 55 53 54 20 45 4E 54 45 52 20 53 4F 4D 45 54 48 |UST ENTER SOMETH|
00001850: 49 4E 47 22 3A 94 01 8A 82 2B 4F 2F 00 99 00 99 |ING":....+O/....|
00001860: 22 C9 4E 56 41 4C 49 44 20 4F 52 20 4D 49 53 53 |".NVALID OR MISS|
00001870: 49 4E 47 20 22 3B 53 52 24 3B 22 20 46 49 45 4C |ING ";SR$;" FIEL|
00001880: 44 20 4E 55 4D 42 45 52 22 3A 94 01 8A 83 2B 4F |D NUMBER":....+O|
00001890: 39 00 99 22 11 C1 4C 4C 20 52 45 46 45 52 45 4E |9.."..LL REFEREN|
000018A0: 43 45 44 20 4B 45 20 46 49 45 4C 44 53 20 4D 55 |CED KE FIELDS MU|
000018B0: 53 54 20 42 45 20 44 4F 4C 4C 41 52 20 4F 52 20 |ST BE DOLLAR OR |
000018C0: 4E 55 4D 45 52 49 43 22 3A 94 01 8A 84 2B 4F 36 |NUMERIC":....+O6|
000018D0: 00 99 22 11 D2 45 46 45 52 45 4E 43 45 44 20 50 |.."..EFERENCED P|
000018E0: 43 20 46 49 45 4C 44 53 20 4D 55 53 54 20 42 45 |C FIELDS MUST BE|
000018F0: 20 50 52 45 56 49 4F 55 53 4C 59 20 44 45 46 49 | PREVIOUSLY DEFI|
00001900: 4E 45 44 22 3A 94 01 8A 85 2B 4F 1D 00 99 22 11 |NED":....+O...".|
00001910: CD 49 53 4D 41 54 43 48 45 44 20 50 41 52 45 4E |.ISMATCHED PAREN|
00001920: 54 48 45 53 45 53 22 3A 94 01 8A 86 2B 4F 39 00 |THESES":....+O9.|
00001930: 99 22 11 C7 4C 4F 42 41 4C 20 54 4F 54 41 4C 20 |."..LOBAL TOTAL |
00001940: 4D 55 53 54 20 4E 4F 54 20 52 45 46 45 52 45 4E |MUST NOT REFEREN|
00001950: 43 45 20 55 4E 44 45 46 49 4E 45 44 20 50 43 20 |CE UNDEFINED PC |
00001960: 46 49 45 4C 44 22 3A 94 01 8A 87 2B 4F 35 00 99 |FIELD":....+O5..|
00001970: 22 11 D0 C3 20 44 45 46 49 4E 49 54 49 4F 4E 20 |"... DEFINITION |
00001980: 45 58 43 45 45 44 53 20 4D 41 58 49 4D 55 4D 20 |EXCEEDS MAXIMUM |
00001990: 41 4C 4C 4F 57 41 42 4C 45 20 4C 45 4E 47 54 48 |ALLOWABLE LENGTH|
000019A0: 22 3A 94 01 8A 89 08 2B 4F 34 00 99 22 11 12 22 |":.....+O4..".."|
000019B0: 3B 45 46 24 3B 22 92 22 3B 22 20 49 53 20 49 4E |;EF$;".";" IS IN|
000019C0: 43 4F 52 52 45 43 54 20 49 4E 20 54 48 49 53 20 |CORRECT IN THIS |
000019D0: 45 58 50 52 45 53 53 49 4F 4E 2E 22 00 99 22 11 |EXPRESSION."..".|
000019E0: 11 D0 52 45 53 53 20 12 D2 C5 D4 D5 D2 CE 92 20 |..RESS ........ |
000019F0: 54 4F 20 43 4F 4E 54 49 4E 55 45 22 3B 00 A1 41 |TO CONTINUE";..A|
00001A00: 41 24 3A 92 79 89 0D B8 13 2E 4F 05 48 DE 03 48 |A$:.y.....O.H..H|
00001A10: E1 03 00 98 32 2C 32 38 31 39 30 AA 31 30 AC 49 |....2,28190.10.I|
00001A20: 3B 22 43 44 28 22 3B CA 28 C4 28 49 29 2C 32 29 |;"CD(";.(.(I),2)|
00001A30: 3B 22 29 3D 22 3B 41 24 00 98 32 2C 32 38 31 39 |;")=";A$..2,2819|
00001A40: 35 AA 31 30 AC 49 3B 22 52 45 D4 22 3A 94 01 9F |5.10.I;"RE.":...|
00001A50: 81 2B 4F 05 48 DD 53 00 98 33 2C 45 58 24 3A 96 |.+O.H.S..3,EX$:.|
00001A60: 01 98 D6 01 A6 4A CF 26 90 33 80 E1 28 00 98 32 |.....J.&.3..(..2|
00001A70: 2C 32 38 35 39 30 AA 31 30 AC 49 3B 22 43 45 28 |,28590.10.I;"CE(|
00001A80: 22 3B CA 28 C4 28 49 29 2C 32 29 3B 22 29 20 3D |";.(.(I),2);") =|
00001A90: 20 22 3B 42 24 00 98 32 2C 32 38 35 39 35 AA 31 | ";B$..2,28595.1|
00001AA0: 30 AC 49 3B 22 52 45 D4 22 3A 48 DD 41 90 33 81 |0.I;"RE.":H.A.3.|
00001AB0: E1 28 90 BF 81 01 D0 BF 00 98 33 2C 45 58 24 3A |.(........3,EX$:|
00001AC0: 47 00 33 48 DC 2C 80 D4 01 AD 80 D4 01 8A 96 01 |G.3H.,..........|
00001AD0: 83 8A 00 2B 4F 07 81 D4 01 8A 4C 81 D4 01 AD 96 |...+O.....L.....|
00001AE0: 01 83 B8 0F 42 01 AD 96 01 83 94 01 AD 81 B8 16 |....B...........|
00001AF0: D6 01 52 96 01 52 B8 12 D4 01 B4 94 01 B4 89 27 |..R..R.........'|
00001B00: 2A 94 01 B4 89 2C 2D 06 94 01 B4 89 2C 2A 94 01 |*....,-.....,*..|
00001B10: B4 89 3A 2D 06 07 94 01 B4 89 5E 2B 07 4F 06 47 |..:-......^+.O.G|
00001B20: 01 AD 4C 94 01 B4 89 A0 2B 4F 11 8A 07 C1 20 53 |..L.....+O.... S|
00001B30: 50 41 43 45 D6 01 52 48 DC 38 94 01 B4 89 4B 2E |PACE..RH.8....K.|
00001B40: 94 01 B4 89 47 2E 06 94 01 B4 89 50 2E 06 94 01 |....G......P....|
00001B50: B4 89 4F 2E 06 4F 05 48 DC 67 96 01 83 94 01 AD |..O..O.H.g......|
00001B60: 82 B8 16 D6 01 52 96 01 52 8A 02 4B 45 2E 96 01 |.....R..R..KE...|
00001B70: 52 8A 02 50 43 2E 06 96 01 52 8A 02 47 54 2E 06 |R..PC....R..GT..|
00001B80: 96 01 52 8A 02 4F 52 2E 06 4F 05 48 DC 38 94 01 |..R..OR..O.H.8..|
00001B90: AD 81 01 D4 01 AD 47 01 AD 96 01 83 94 01 AD 83 |......G.........|
00001BA0: B8 16 D6 01 52 94 01 AD 82 01 D4 01 AD 81 D4 01 |....R...........|
00001BB0: BB 89 0B 42 01 BB 96 01 52 94 01 BB A2 2A 2B 4F |...B....R....*+O|
00001BC0: 06 47 01 AD 4C 47 01 BB 89 08 D4 01 8A 96 01 52 |.G..LG.........R|
00001BD0: D6 01 91 4C 81 D0 33 90 8E 42 00 33 90 33 8D 6E |...L..3..B.3.3.n|
00001BE0: 1E 89 0A 90 33 03 01 E1 08 47 00 33 8D 6D C4 D4 |....3....G.3.m..|
00001BF0: 01 60 8A 02 50 5A D6 01 C2 90 8E D5 01 67 4A D7 |.`..PZ.......gJ.|
00001C00: 17 00 98 32 2C 45 4C 3B 22 52 45 D4 22 3A 81 D0 |...2,EL;"RE.":..|
00001C10: 33 90 8E 42 00 33 90 33 8D 6F AE 89 0A 90 33 03 |3..B.3.3.o....3.|
00001C20: 01 E1 08 47 00 33 8D 6F 5E D4 01 60 8A 02 50 5A |...G.3.o^..`..PZ|
00001C30: D6 01 C2 90 8E D5 01 67 4A D7 17 00 98 32 2C 45 |.......gJ....2,E|
00001C40: 4C 3B 22 52 45 D4 22 00 98 32 2C 22 38 30 44 C9 |L;"RE."..2,"80D.|
00001C50: 20 43 53 25 28 4E 43 29 3A 46 CF 49 3D 31 54 4F | CS%(NC):F.I=1TO|
00001C60: 4E 43 3A 52 C5 43 53 25 28 49 29 3A 4E C5 49 22 |NC:R.CS%(I):N.I"|
00001C70: 3A 81 D0 33 90 8E 42 00 33 90 33 90 33 A1 28 E1 |:..3..B.3.3.3.(.|
00001C80: 0A 47 00 33 89 52 D4 01 60 90 8E D5 01 67 4A DB |.G.3.R..`....gJ.|
00001C90: 42 4C 00 98 32 2C 22 32 38 30 35 30 52 45 D4 22 |BL..2,"28050RE."|
00001CA0: 00 98 32 2C 22 32 38 31 30 30 52 45 D4 22 00 98 |..2,"28100RE."..|
00001CB0: 32 2C 22 32 38 35 30 30 52 45 D4 22 3A 4C 95 01 |2,"28500RE.":L..|
00001CC0: 67 D4 01 D0 89 0A D4 01 D7 94 01 D0 81 2D 4F 05 |g............-O.|
00001CD0: 48 DA C5 94 01 D0 94 01 D7 2D 4F 08 94 01 D0 D4 |H........-O.....|
00001CE0: 01 D7 00 98 32 2C 4F 4C 3B 22 44 C1 20 22 3B 3A |....2,OL;"D. ";:|
00001CF0: 94 01 60 82 01 D4 01 60 81 D4 01 44 94 01 D7 42 |..`....`...D...B|
00001D00: 01 44 00 98 32 2C 46 49 25 28 55 4C 25 AA 4A 4B |.D..2,FI%(UL%.JK|
00001D10: AB 4E 29 3B 3A 94 01 44 94 01 D7 2D 4F 0E 00 98 |.N);:..D...-O...|
00001D20: 32 2C 22 2C 22 3B 3A 47 01 44 00 98 32 3A 94 01 |2,",";:G.D..2:..|
00001D30: D0 94 01 D7 02 D4 01 D0 48 DB 37 94 01 60 D4 01 |........H.7..`..|
00001D40: C9 4C 80 D4 01 DE 96 01 E5 B8 0F 82 2D 4F 03 4C |.L..........-O.L|
00001D50: 96 01 E5 81 B8 14 D6 01 EC 96 01 EC 8A 01 3C 2B |..............<+|
00001D60: 96 01 EC 8A 01 3E 2B 07 96 01 EC 8A 01 3D 2B 07 |.....>+......=+.|
00001D70: 4F 13 96 01 E5 82 89 FF B8 16 D6 01 F3 8D FF FF |O...............|
00001D80: D4 01 DE 96 01 EC 8A 01 3C 2B 96 01 E5 82 81 B8 |........<+......|
00001D90: 16 8A 01 3E 2B 06 96 01 E5 B8 0F 82 2A 06 4F 13 |...>+.......*.O.|
00001DA0: 96 01 E5 83 89 FF B8 16 D6 01 F3 8D FF FF D4 01 |................|
00001DB0: DE 4C 8D FF FF D4 01 DE 81 D4 01 AD 96 01 F3 B8 |.L..............|
00001DC0: 0F 42 01 AD 96 01 F3 94 01 AD 81 B8 16 8A 01 30 |.B.............0|
00001DD0: 2D 96 01 F3 94 01 AD 81 B8 16 8A 01 39 2A 07 4F |-...........9*.O|
00001DE0: 06 80 D4 01 DE 47 01 AD 4C 8D FF FF D4 01 DE 96 |.....G..L.......|
00001DF0: 01 F3 B8 0F 83 2D 4F 07 80 D4 01 DE 4C 82 D4 01 |.....-O.....L...|
00001E00: AD 96 01 F3 B8 0F 81 02 42 01 AD 96 01 F3 94 01 |........B.......|
00001E10: AD 81 B8 16 92 B8 2B 4F 06 80 D4 01 DE 47 01 AD |......+O.....G..|
00001E20: 96 01 F3 81 B8 14 92 B8 2E 96 01 F3 81 B8 15 92 |................|
00001E30: B8 2E 07 4F 06 80 D4 01 DE 4C 8D FF FF D4 01 DE |...O.....L......|
00001E40: 80 D4 01 FA 81 D4 01 AD 96 01 F3 B8 0F 42 01 AD |.............B..|
00001E50: 96 01 F3 94 01 AD 81 B8 16 D6 02 01 96 02 01 8A |................|
00001E60: 01 30 2D 96 02 01 8A 01 39 2A 07 96 02 01 8A 01 |.0-.....9*......|
00001E70: 2E 2E 06 96 02 01 8A 01 2D 2E 94 01 AD 81 2A 07 |........-.....*.|
00001E80: 06 4F 06 80 D4 01 DE 96 02 01 8A 01 2E 2B 4F 0A |.O...........+O.|
00001E90: 94 01 FA 81 01 D4 01 FA 47 01 AD 94 01 FA 81 2A |........G......*|
00001EA0: 4F 06 80 D4 01 DE 4C 00 99 22 93 12 CB 45 59 42 |O.....L.."...EYB|
00001EB0: 4F 41 52 44 2D 45 4E 54 45 52 45 44 20 46 49 45 |OARD-ENTERED FIE|
00001EC0: 4C 44 53 92 3A 22 3A 82 D4 02 08 81 D4 01 AD 90 |LDS.:":.........|
00001ED0: 87 82 43 01 AD 94 02 08 81 01 D4 02 08 00 99 22 |..C............"|
00001EE0: 4B 45 22 3B CA 28 C4 28 4A 29 2C 32 29 3B 22 20 |KE";.(.(J),2);" |
00001EF0: 3D 20 22 3B 50 52 24 28 4A 29 3B 3A 94 01 AD 90 |= ";PR$(J);:....|
00001F00: 87 2D 4F 28 00 99 A3 31 39 29 3B 22 4B 45 22 3B |.-O(...19);"KE";|
00001F10: CA 28 C4 28 4A AA 31 29 2C 32 29 3B 22 20 3D 20 |.(.(J.1),2);" = |
00001F20: 22 3B 50 52 24 28 4A AA 31 29 3A 47 01 AD 90 8E |";PR$(J.1):G....|
00001F30: 80 2B 4F 05 48 D8 3A 00 99 00 99 22 11 12 D0 52 |.+O.H.:...."...R|
00001F40: 4F 47 52 41 4D 2D 43 41 4C 43 55 4C 41 54 45 44 |OGRAM-CALCULATED|
00001F50: 20 46 49 45 4C 44 53 92 3A 22 3A 94 02 08 82 01 | FIELDS.:":.....|
00001F60: D4 02 08 81 D4 01 AD 90 8E 82 43 01 AD 94 02 08 |..........C.....|
00001F70: 81 01 D4 02 08 00 99 22 50 43 22 3B CA 28 C4 28 |......."PC";.(.(|
00001F80: 4A 29 2C 32 29 3B 22 20 3D 20 22 3B 43 50 24 28 |J),2);" = ";CP$(|
00001F90: 4A 29 3B 3A 94 01 AD 90 8E 2D 4F 28 00 99 A3 31 |J);:.....-O(...1|
00001FA0: 39 29 3B 22 50 43 22 3B CA 28 C4 28 4A AA 31 29 |9);"PC";.(.(J.1)|
00001FB0: 2C 32 29 3B 22 20 3D 20 22 3B 43 50 24 28 4A AA |,2);" = ";CP$(J.|
00001FC0: 31 29 3A 47 01 AD 90 95 80 2B 4F 05 48 D7 7E 94 |1):G.....+O.H.~.|
00001FD0: 02 08 82 01 D4 02 08 94 02 08 89 15 2A 4F 0F 4A |............*O.J|
00001FE0: 98 6B 80 D4 02 08 00 99 22 93 22 3B 00 99 00 99 |.k......".";....|
00001FF0: 22 11 12 C7 52 41 4E 44 20 54 4F 54 41 4C 20 46 |"...RAND TOTAL F|
00002000: 49 45 4C 44 53 92 3A 22 00 99 3A 81 D4 01 AD 90 |IELDS.:"..:.....|
00002010: 95 82 43 01 AD 94 02 08 81 01 D4 02 08 94 02 08 |..C.............|
00002020: 89 14 2A 4F 0E 4A 98 6B 80 D4 02 08 00 99 22 93 |..*O.J.k......".|
00002030: 22 00 99 22 47 54 22 3B CA 28 C4 28 4A 29 2C 32 |".."GT";.(.(J),2|
00002040: 29 3B 22 20 3D 20 22 3B 47 50 24 28 4A 29 3B 3A |);" = ";GP$(J);:|
00002050: 94 01 AD 90 95 2D 4F 28 00 99 A3 31 39 29 3B 22 |.....-O(...19);"|
00002060: 47 54 22 3B CA 28 C4 28 4A AA 31 29 2C 32 29 3B |GT";.(.(J.1),2);|
00002070: 22 20 3D 20 22 3B 47 50 24 28 4A AA 31 29 3A 47 |" = ";GP$(J.1):G|
00002080: 01 AD 4A 98 6B 4C 00 99 22 93 12 CB 45 59 42 4F |..J.kL.."...EYBO|
00002090: 41 52 44 2D 45 4E 54 45 52 45 44 20 46 49 45 4C |ARD-ENTERED FIEL|
000020A0: 44 53 92 3A 22 3A 81 D4 01 AD 90 87 82 43 01 AD |DS.:":.......C..|
000020B0: 00 99 4A 3B 22 2D 20 22 3B 50 52 24 28 4A 29 3B |..J;"- ";PR$(J);|
000020C0: 3A 94 01 AD 90 87 2D 4F 1A 00 99 A3 31 39 29 3B |:.....-O....19);|
000020D0: 4A AA 31 3B 22 2D 20 22 3B 50 52 24 28 4A AA 31 |J.1;"- ";PR$(J.1|
000020E0: 29 3A 47 01 AD 4A 98 6B 4C 86 D4 01 D7 95 01 67 |):G..J.kL......g|
000020F0: 81 02 94 01 D7 04 D5 02 0F 80 D4 02 16 95 02 0F |................|
00002100: 42 02 16 94 01 D7 D4 02 1D 94 02 16 95 02 0F 2B |B..............+|
00002110: 4F 10 95 01 67 94 02 16 94 01 D7 03 02 D4 02 1D |O...g...........|
00002120: 00 98 32 2C 4F 4C AA 49 49 AC 34 3B 22 49 46 20 |..2,OL.II.4;"IF |
00002130: 22 3B 4F 53 24 3B 22 3C 3D 22 3B 49 49 AC 4B 3B |";OS$;"<=";II.K;|
00002140: 22 4F 52 20 22 3B 4F 53 24 3B 22 3E 22 3B 49 49 |"OR ";OS$;">";II|
00002150: AC 4B AA 4C 3B 22 54 48 C5 22 3B 4F 4C AA 49 49 |.K.L;"TH.";OL.II|
00002160: AC 34 AA 34 00 98 32 2C 4F 4C AA 49 49 AC 34 AA |.4.4..2,OL.II.4.|
00002170: 32 3B 22 4F 4E 20 22 3B 4F 53 24 3B 22 2D 22 3B |2;"ON ";OS$;"-";|
00002180: 49 49 AC 4B 3B 22 47 4F D3 20 22 3B 3A 81 D4 02 |II.K;"GO. ";:...|
00002190: 24 94 02 1D 42 02 24 00 98 32 2C C4 28 44 25 28 |$...B.$..2,.(D%(|
000021A0: 49 49 AC 4B AA 49 4A 29 29 3B 3A 94 02 24 94 02 |II.K.IJ));:..$..|
000021B0: 1D 2D 4F 0A 00 98 32 2C 22 2C 22 3B 3A 47 02 24 |.-O...2,",";:G.$|
000021C0: 00 98 32 3A 47 02 16 94 01 60 94 02 16 84 03 01 |..2:G....`......|
000021D0: D4 01 C9 00 98 32 2C 45 4C 3B 22 3A 22 3A 4C 00 |.....2,EL;":":L.|
000021E0: A0 32 00 9F 32 2C 44 56 2C 32 2C 44 52 24 AA 22 |.2..2,DV,2,DR$."|
000021F0: 3A 22 AA 53 46 24 3A 80 D4 02 2B 80 D4 02 32 80 |:".SF$:...+...2.|
00002200: D0 CD 4A CE AC 90 72 80 2E 4F 07 00 A0 32 3A 4C |..J...r..O...2:L|
00002210: 00 84 32 2C 4E 46 3A 90 87 D0 80 00 86 50 52 24 |..2,NF:......PR$|
00002220: 28 4E 46 29 3A 41 00 10 00 86 58 25 28 4E 46 29 |(NF):A....X%(NF)|
00002230: 3A 41 00 0E 00 86 59 25 28 4E 46 29 3A 41 00 0C |:A....Y%(NF):A..|
00002240: 00 86 4C 25 28 4E 46 29 3A 41 00 2C 00 86 54 24 |..L%(NF):A.,..T$|
00002250: 28 4E 46 29 3A 41 00 26 00 86 53 44 24 28 4E 46 |(NF):A.&..SD$(NF|
00002260: 29 3A 41 00 12 81 D0 33 90 87 42 00 33 00 84 32 |):A....3..B.3..2|
00002270: 2C 50 52 24 28 49 29 2C 58 25 28 49 29 2C 59 25 |,PR$(I),X%(I),Y%|
00002280: 28 49 29 2C 4C 25 28 49 29 2C 54 24 28 49 29 3A |(I),L%(I),T$(I):|
00002290: 90 33 92 3A 90 33 A1 2C B8 14 E2 12 90 33 A2 26 |.3.:.3.,.....3.&|
000022A0: 8A 01 44 2B 4F 17 90 33 8A 00 8A 08 2E 2E 2F 2E |..D+O..3....../.|
000022B0: 2E 2F 2E 2E 01 E2 12 81 D4 02 32 90 33 A2 26 8A |./........2.3.&.|
000022C0: 01 24 2B 4F 0A 94 02 2B 81 01 D4 02 2B 90 CD 90 |.$+O...+....+...|
000022D0: 33 A1 2C 01 D0 CD 47 00 33 00 84 32 2C 4E 43 3A |3.,...G.3..2,NC:|
000022E0: 90 8E 80 2B 4F 05 48 D4 87 90 80 90 8E 2D 4F 06 |...+O.H......-O.|
000022F0: 90 8E D0 80 00 86 43 50 24 28 4E 43 29 3A 41 00 |......CP$(NC):A.|
00002300: 18 00 86 43 58 25 28 4E 43 29 3A 41 00 16 00 86 |...CX%(NC):A....|
00002310: 43 59 25 28 4E 43 29 3A 41 00 14 00 86 43 54 24 |CY%(NC):A....CT$|
00002320: 28 4E 43 29 3A 41 00 2E 00 86 43 4C 25 28 4E 43 |(NC):A....CL%(NC|
00002330: 29 3A 41 00 30 81 D0 33 90 8E 42 00 33 00 84 32 |):A.0..3..B.3..2|
00002340: 2C 43 50 24 28 49 29 2C 43 58 25 28 49 29 2C 43 |,CP$(I),CX%(I),C|
00002350: 59 25 28 49 29 2C 43 4C 25 28 49 29 2C 43 54 24 |Y%(I),CL%(I),CT$|
00002360: 28 49 29 3A 90 33 A2 2E 8A 01 24 2B 4F 0A 94 02 |(I):.3....$+O...|
00002370: 2B 81 01 D4 02 2B 47 00 33 00 84 32 2C 4E 47 3A |+....+G.3..2,NG:|
00002380: 90 95 80 2B 4F 05 48 D3 E7 90 80 90 95 2D 4F 06 |...+O.H......-O.|
00002390: 90 95 D0 80 00 86 47 50 24 28 4E 47 29 3A 41 00 |......GP$(NG):A.|
000023A0: 1E 00 86 47 58 25 28 4E 47 29 3A 41 00 1C 00 86 |...GX%(NG):A....|
000023B0: 47 59 25 28 4E 47 29 3A 41 00 1A 00 86 47 54 24 |GY%(NG):A....GT$|
000023C0: 28 4E 47 29 3A 41 00 32 00 86 47 4C 25 28 4E 47 |(NG):A.2..GL%(NG|
000023D0: 29 3A 41 00 34 81 D0 33 90 95 42 00 33 00 84 32 |):A.4..3..B.3..2|
000023E0: 2C 47 50 24 28 49 29 2C 47 58 25 28 49 29 2C 47 |,GP$(I),GX%(I),G|
000023F0: 59 25 28 49 29 2C 47 4C 25 28 49 29 2C 47 54 24 |Y%(I),GL%(I),GT$|
00002400: 28 49 29 3A 90 33 A2 32 8A 01 24 2B 4F 0A 94 02 |(I):.3.2..$+O...|
00002410: 2B 81 01 D4 02 2B 47 00 33 00 84 32 2C 4E 54 3A |+....+G.3..2,NT:|
00002420: 90 9C 80 2B 4F 05 48 D3 8C 00 86 54 50 24 28 4E |...+O.H....TP$(N|
00002430: 54 29 3A 41 00 24 00 86 54 58 25 28 4E 54 29 3A |T):A.$..TX%(NT):|
00002440: 41 00 22 00 86 54 59 25 28 4E 54 29 3A 41 00 20 |A."..TY%(NT):A. |
00002450: 81 D0 33 90 9C 42 00 33 00 84 32 2C 54 50 24 28 |..3..B.3..2,TP$(|
00002460: 49 29 2C 54 58 25 28 49 29 2C 54 59 25 28 49 29 |I),TX%(I),TY%(I)|
00002470: 3A 47 00 33 00 A0 32 3A 4C 81 D4 01 AD 8D 04 00 |:G.3..2:L.......|
00002480: 91 48 81 02 89 28 03 01 91 41 01 81 02 D4 02 39 |.H...(...A.....9|
00002490: 8A 00 D2 56 80 D4 02 40 91 4F 42 02 40 88 90 58 |...V...@.OB.@..X|
000024A0: 00 00 00 91 48 81 02 89 28 03 01 91 41 94 02 40 |....H...(...A..@|
000024B0: 01 01 90 17 50 47 02 40 94 02 39 94 01 AD 01 94 |....PG.@..9.....|
000024C0: 02 39 94 01 AD 01 B8 0E 89 80 07 50 00 A1 4A 24 |.9.........P..J$|
000024D0: 3A 96 02 47 8A 00 2B 4F 05 48 D3 34 96 02 47 B8 |:..G..+O.H.4..G.|
000024E0: 12 D4 02 16 94 02 16 89 22 2B 4F 05 48 D3 34 94 |........"+O.H.4.|
000024F0: 02 16 89 20 2D 94 02 16 89 14 2E 06 94 02 16 89 |... -...........|
00002500: 0D 2E 06 94 02 16 89 80 2A 94 02 16 89 C0 2D 06 |........*.....-.|
00002510: 07 94 02 16 89 DA 2A 07 4F 05 48 D3 48 94 02 16 |......*.O.H.H...|
00002520: 89 14 2E 4F 05 48 D2 8C 94 01 AD 81 2B 4F 05 48 |...O.H......+O.H|
00002530: D3 48 94 01 AD 81 02 D4 01 AD 92 56 94 01 AD 81 |.H.........V....|
00002540: 02 B8 14 D2 56 8A 01 20 D6 02 47 00 99 C8 28 59 |....V.. ..G...(Y|
00002550: 24 2C 59 25 29 3B A6 58 25 AA 4A 29 3B 22 20 22 |$,Y%);.X%.J);" "|
00002560: 3A 48 D2 66 94 02 16 89 0D 2B 92 56 8A 00 2B 06 |:H.f.....+.V..+.|
00002570: 4F 04 00 99 3A 94 02 16 89 0D 2B 4F 17 94 02 39 |O...:.....+O...9|
00002580: 94 01 AD 01 94 02 39 94 01 AD 01 B8 0E 89 7F 06 |......9.........|
00002590: 50 4C 92 56 96 02 47 01 D2 56 00 99 C8 28 59 24 |PL.V..G..V...(Y$|
000025A0: 2C 59 25 29 3B A6 58 25 AA 4A AB 31 29 3B 4A 24 |,Y%);.X%.J.1);J$|
000025B0: 3A 94 01 AD 91 4F 2B 4F 14 92 56 94 01 AD 81 02 |:....O+O..V.....|
000025C0: B8 14 96 02 47 01 D2 56 48 D3 48 94 02 16 89 14 |....G..VH.H.....|
000025D0: 2E 4F 0A 94 01 AD 81 01 D4 01 AD 48 D3 48 80 D4 |.O.........H.H..|
000025E0: 01 9F 80 D4 02 4E 80 D4 01 8A 80 D4 01 AD 96 01 |.....N..........|
000025F0: 83 D6 01 98 96 01 98 8A 00 2B 4F 06 81 D4 01 8A |.........+O.....|
00002600: 94 01 8A 80 2E 4F 03 4C 96 01 98 B8 0F 89 42 2A |.....O.L......B*|
00002610: 4F 07 87 D4 01 8A 4C 94 01 AD 81 01 D4 01 AD 96 |O.....L.........|
00002620: 01 98 B8 0F 42 01 AD 96 01 98 94 01 AD 81 B8 16 |....B...........|
00002630: D6 01 52 96 01 52 8A 01 28 2B 4F 05 48 D1 73 96 |..R..R..(+O.H.s.|
00002640: 01 52 8A 01 29 2B 4F 05 48 D1 68 96 01 98 94 01 |.R..)+O.H.h.....|
00002650: AD 82 B8 16 D6 01 52 96 01 52 8A 02 4B 45 2B 4F |......R..R..KE+O|
00002660: 05 48 D1 52 96 01 52 8A 02 50 43 2B 4F 05 48 D0 |.H.R..R..PC+O.H.|
00002670: C1 96 01 52 8A 02 47 54 2B 4F 05 48 CF A5 47 01 |...R..GT+O.H..G.|
00002680: AD 94 02 4E 80 2E 4F 06 85 D4 01 8A 4C 94 02 4E |...N..O.....L..N|
00002690: 81 01 D4 02 4E 48 D2 00 94 02 4E 81 02 D4 02 4E |....NH....N....N|
000026A0: 94 02 4E 80 2D 4F 06 85 D4 01 8A 48 D2 00 96 01 |..N.-O.....H....|
000026B0: 98 94 01 AD 82 01 89 FF B8 16 B8 11 D5 01 4B 95 |..............K.|
000026C0: 01 4B 81 2D 95 01 4B 90 87 2A 07 4F 09 82 D4 01 |.K.-..K..*.O....|
000026D0: 8A 48 D2 00 95 01 4B A2 26 8A 01 44 2B 95 01 4B |.H....K.&..D+..K|
000026E0: A2 26 8A 01 41 2B 07 4F 09 83 D4 01 8A 48 D2 00 |.&..A+.O.....H..|
000026F0: 95 01 4B B8 10 B8 0F 81 02 D4 02 55 8A 06 56 C1 |..K........U..V.|
00002700: 28 47 24 28 96 01 98 94 01 AD 82 01 94 02 55 B8 |(G$(..........U.|
00002710: 16 01 8A 02 29 29 01 D6 02 5C 96 01 98 94 01 AD |....))...\......|
00002720: 81 02 B8 14 96 02 5C 01 96 01 98 94 01 AD 82 01 |......\.........|
00002730: 94 02 55 01 89 FF B8 16 01 D6 01 98 48 D2 00 96 |..U.........H...|
00002740: 01 98 94 01 AD 82 01 89 FF B8 16 B8 11 D5 01 4B |...............K|
00002750: 95 01 4B 90 33 2A 4F 09 84 D4 01 8A 48 D2 00 95 |..K.3*O.....H...|
00002760: 01 4B 90 33 2D 4F 05 48 CF F0 00 99 22 11 11 D3 |.K.3-O.H...."...|
00002770: 45 4C 46 20 52 45 46 45 52 45 4E 43 49 4E 47 20 |ELF REFERENCING |
00002780: 44 45 46 49 4E 49 54 49 4F 4E 2E 20 C5 4E 54 45 |DEFINITION. .NTE|
00002790: 52 20 27 43 27 20 20 54 4F 20 43 4F 4E 46 49 52 |R 'C' TO CONFIR|
000027A0: 4D 22 3A 89 0C D1 41 89 D6 B8 0E D1 48 94 01 AD |M":...A.....H...|
000027B0: D4 02 08 4A D3 87 94 02 08 D4 01 AD 92 56 B8 0F |...J.........V..|
000027C0: 80 2B 4F 05 48 D0 2A 92 56 B8 12 8A 01 43 B8 12 |.+O.H.*.V....C..|
000027D0: 2B 4F 05 48 D0 1D 8D FF FF D4 01 8A 80 D4 01 9F |+O.H............|
000027E0: 48 D2 00 95 01 4B B8 10 B8 0F 81 02 D4 02 55 8A |H....K........U.|
000027F0: 03 43 45 28 96 01 98 94 01 AD 82 01 94 02 55 B8 |.CE(..........U.|
00002800: 16 01 8A 01 29 01 D6 02 5C 81 D4 01 9F 48 CF CA |....)...\....H..|
00002810: 95 01 4B B8 10 B8 0F 81 02 D4 02 55 8A 03 43 44 |..K........U..CD|
00002820: 28 96 01 98 94 01 AD 82 01 94 02 55 B8 16 01 8A |(..........U....|
00002830: 01 29 01 D6 02 5C 96 01 98 94 01 AD 81 02 B8 14 |.)...\..........|
00002840: 96 02 5C 01 96 01 98 94 01 AD 82 01 94 02 55 01 |..\...........U.|
00002850: 89 FF B8 16 01 D6 01 98 48 D2 00 96 01 98 94 01 |........H.......|
00002860: AD 82 01 89 FF B8 16 B8 11 D5 01 4B 95 01 4B 90 |...........K..K.|
00002870: 95 2A 4F 09 82 D4 01 8A 48 D2 00 95 01 4B A1 0A |.*O.....H....K..|
00002880: 90 87 02 90 33 2C 4F 09 86 D4 01 8A 48 D2 00 95 |....3,O.....H...|
00002890: 01 4B B8 10 B8 0F 81 02 D4 02 55 8A 03 47 4B 28 |.K........U..GK(|
000028A0: 96 01 98 94 01 AD 82 01 94 02 55 B8 16 01 8A 01 |..........U.....|
000028B0: 29 01 D6 02 5C 96 01 98 94 01 AD 81 02 B8 14 96 |)...\...........|
000028C0: 02 5C 01 96 01 98 94 01 AD 82 01 94 02 55 01 89 |.\...........U..|
000028D0: FF B8 16 01 D6 01 98 48 D2 00 81 D4 01 AD 96 01 |.......H........|
000028E0: A6 B8 0F 42 01 AD 96 01 A6 94 01 AD 82 B8 16 D6 |...B............|
000028F0: 02 63 96 02 63 8A 02 47 24 2B 4F 0C 8A 02 46 24 |.c..c..G$+O...F$|
00002900: D6 02 6A 48 CE CF 96 02 63 8A 02 43 44 2B 4F 0C |..jH....c..CD+O.|
00002910: 8A 02 43 45 D6 02 6A 48 CE CF 96 02 63 8A 02 47 |..CE..jH....c..G|
00002920: 4B 2B 4F 0C 8A 02 47 4C D6 02 6A 48 CE CF 48 CE |K+O...GL..jH..H.|
00002930: B0 96 01 A6 81 94 01 AD 81 02 B8 16 96 02 6A 01 |..............j.|
00002940: 96 01 A6 94 01 AD 82 01 89 FF B8 16 01 D6 01 A6 |................|
00002950: 47 01 AD 4C 00 84 31 35 2C 45 52 24 2C 45 4D 24 |G..L..15,ER$,EM$|
00002960: 2C 45 54 24 2C 45 47 24 3A 96 02 71 B8 11 D0 72 |,ET$,EG$:..q...r|
00002970: 96 02 71 8A 01 20 01 96 02 78 01 D6 02 86 8A 00 |..q.. ...x......|
00002980: D6 02 78 8A 00 D6 02 7F 8A 00 D6 02 86 4C 81 D0 |..x..........L..|
00002990: 33 8D 07 D0 D4 01 0C 4A CE 63 48 C6 00 00 99 22 |3......J.cH...."|
000029A0: 93 22 3B 00 99 22 D4 48 45 20 51 55 45 53 54 49 |.";..".HE QUESTI|
000029B0: 4F 4E 20 27 52 45 4A 45 43 54 20 49 46 27 20 57 |ON 'REJECT IF' W|
000029C0: 49 4C 4C 20 41 4C 4C 4F 57 20 59 4F 55 22 00 99 |ILL ALLOW YOU"..|
000029D0: 22 54 4F 20 53 50 45 43 49 46 59 20 56 41 52 49 |"TO SPECIFY VARI|
000029E0: 4F 55 53 20 4B 49 4E 44 53 20 4F 46 20 54 45 53 |OUS KINDS OF TES|
000029F0: 54 53 20 54 4F 20 42 45 22 00 99 22 4D 41 44 45 |TS TO BE".."MADE|
00002A00: 20 4F 4E 20 45 4E 54 45 52 45 44 20 44 41 54 41 | ON ENTERED DATA|
00002A10: 20 42 45 46 4F 52 45 20 49 54 20 49 53 22 00 99 | BEFORE IT IS"..|
00002A20: 22 41 43 43 45 50 54 45 44 20 49 4E 54 4F 20 54 |"ACCEPTED INTO T|
00002A30: 48 45 20 44 41 54 41 20 46 49 4C 45 2E 20 D9 4F |HE DATA FILE. .O|
00002A40: 55 20 4D 41 59 20 55 53 45 22 3B 00 99 22 41 4E |U MAY USE";.."AN|
00002A50: 59 20 4E 55 4D 42 45 52 20 4F 46 20 54 48 45 53 |Y NUMBER OF THES|
00002A60: 45 20 54 45 53 54 53 20 4F 4E 20 41 4E 59 20 46 |E TESTS ON ANY F|
00002A70: 49 45 4C 44 2E 22 00 99 00 99 22 C6 4F 52 20 45 |IELD."....".OR E|
00002A80: 41 43 48 20 54 45 53 54 20 59 4F 55 20 53 50 45 |ACH TEST YOU SPE|
00002A90: 43 49 46 59 2C 20 59 4F 55 20 57 49 4C 4C 20 42 |CIFY, YOU WILL B|
00002AA0: 45 22 00 99 22 41 53 4B 45 44 20 46 4F 52 20 41 |E".."ASKED FOR A|
00002AB0: 4E 20 41 50 50 52 4F 50 52 49 41 54 45 20 45 52 |N APPROPRIATE ER|
00002AC0: 52 4F 52 20 4D 45 53 53 41 47 45 22 00 99 22 54 |ROR MESSAGE".."T|
00002AD0: 4F 20 42 45 20 44 49 53 50 4C 41 59 45 44 20 57 |O BE DISPLAYED W|
00002AE0: 48 45 4E 20 54 48 41 54 20 4B 49 4E 44 20 4F 46 |HEN THAT KIND OF|
00002AF0: 22 00 99 22 49 4D 50 52 4F 50 45 52 20 44 41 54 |".."IMPROPER DAT|
00002B00: 41 20 49 53 20 45 4E 54 45 52 45 44 2E 20 C1 20 |A IS ENTERED. . |
00002B10: 44 45 46 41 55 4C 54 22 00 99 22 45 52 52 4F 52 |DEFAULT".."ERROR|
00002B20: 20 4D 45 53 53 41 47 45 20 28 44 49 53 50 4C 41 | MESSAGE (DISPLA|
00002B30: 59 45 44 20 4F 4E 20 54 48 45 20 42 4F 54 54 4F |YED ON THE BOTTO|
00002B40: 4D 22 00 99 22 4C 49 4E 45 20 4F 46 20 54 48 45 |M".."LINE OF THE|
00002B50: 20 53 43 52 45 45 4E 29 20 4D 41 59 20 42 45 20 | SCREEN) MAY BE |
00002B60: 53 50 45 43 49 46 49 45 44 20 42 59 22 00 99 22 |SPECIFIED BY".."|
00002B70: 48 49 54 54 49 4E 47 20 52 45 54 55 52 4E 20 49 |HITTING RETURN I|
00002B80: 4E 20 52 45 53 50 4F 4E 53 45 20 54 4F 20 54 48 |N RESPONSE TO TH|
00002B90: 45 20 22 00 99 22 27 45 52 52 4F 52 20 4D 45 53 |E ".."'ERROR MES|
00002BA0: 53 41 47 45 27 20 51 55 45 53 54 49 4F 4E 2E 22 |SAGE' QUESTION."|
00002BB0: 00 99 C8 28 59 24 2C 32 34 29 22 D0 52 45 53 53 |...(Y$,24)".RESS|
00002BC0: 20 12 D2 C5 D4 D5 D2 CE 92 20 54 4F 20 43 4F 4E | ........ TO CON|
00002BD0: 54 49 4E 55 45 22 00 A1 41 24 3A 96 01 98 89 0D |TINUE"..A$:.....|
00002BE0: B8 13 2E 4F 05 48 CC 2A 00 99 22 93 D4 48 45 20 |...O.H.*.."..HE |
00002BF0: 46 4F 4C 4C 4F 57 49 4E 47 20 54 45 53 54 53 20 |FOLLOWING TESTS |
00002C00: 41 52 45 20 41 56 41 49 4C 41 42 4C 45 3A 22 00 |ARE AVAILABLE:".|
00002C10: 99 00 99 A3 31 30 29 3B 22 12 C7 45 4E 45 52 41 |....10);"..ENERA|
00002C20: 4C 20 D4 45 53 54 53 92 22 00 99 22 D4 45 53 54 |L .ESTS."..".EST|
00002C30: 20 4E 41 4D 45 22 3B A3 31 30 29 3B 22 C5 58 41 | NAME";.10);".XA|
00002C40: 4D 50 4C 45 22 3B A3 32 30 29 3B 22 CD 45 41 4E |MPLE";.20);".EAN|
00002C50: 49 4E 47 20 54 4F 20 4F 50 45 52 41 54 4F 52 22 |ING TO OPERATOR"|
00002C60: 00 99 22 27 4E 4F 20 45 4E 54 52 59 27 22 3B A3 |.."'NO ENTRY'";.|
00002C70: 31 33 29 3B 22 2D 22 3B A3 32 30 29 3B 22 CD 55 |13);"-";.20);".U|
00002C80: 53 54 20 45 4E 54 45 52 20 53 4F 4D 45 54 48 49 |ST ENTER SOMETHI|
00002C90: 4E 47 22 00 99 22 27 4E 4F 54 20 4E 55 4D 45 52 |NG".."'NOT NUMER|
00002CA0: 49 43 27 22 3B A3 31 33 29 3B 22 2D 22 3B A3 32 |IC'";.13);"-";.2|
00002CB0: 30 29 3B 22 C5 4E 54 45 52 20 4F 4E 4C 59 20 4E |0);".NTER ONLY N|
00002CC0: 55 4D 42 45 52 53 20 22 00 99 22 27 4E 55 4D 45 |UMBERS ".."'NUME|
00002CD0: 52 49 43 27 22 3B A3 31 33 29 3B 22 2D 22 3B A3 |RIC'";.13);"-";.|
00002CE0: 32 30 29 3B 22 CE 4F 20 4E 55 4D 42 45 52 53 20 |20);".O NUMBERS |
00002CF0: 41 4C 4C 4F 57 45 44 22 00 99 A3 31 30 29 3B 22 |ALLOWED"...10);"|
00002D00: 12 C4 41 54 41 20 53 49 5A 45 20 54 45 53 54 53 |..ATA SIZE TESTS|
00002D10: 92 22 00 99 22 27 4C 45 4E 47 54 48 3E 27 22 3B |.".."'LENGTH>'";|
00002D20: A3 31 30 29 3B 22 4C 45 4E 47 54 48 3E 34 22 3B |.10);"LENGTH>4";|
00002D30: A3 32 30 29 3B 22 CE 4F 20 4D 4F 52 45 20 54 48 |.20);".O MORE TH|
00002D40: 41 4E 20 34 22 00 99 A3 32 30 29 3B 22 43 48 41 |AN 4"...20);"CHA|
00002D50: 52 41 43 54 45 52 53 22 00 99 22 27 4C 45 4E 47 |RACTERS".."'LENG|
00002D60: 54 48 3C 27 22 3B A3 31 30 29 3B 22 4C 45 4E 47 |TH<'";.10);"LENG|
00002D70: 54 48 3C 37 22 3B A3 32 30 29 3B 22 CE 4F 20 4C |TH<7";.20);".O L|
00002D80: 45 53 53 20 54 48 41 4E 20 37 22 00 99 A3 32 30 |ESS THAN 7"...20|
00002D90: 29 3B 22 43 48 41 52 41 43 54 45 52 53 22 00 99 |);"CHARACTERS"..|
00002DA0: 22 27 4C 45 4E 47 54 48 3D 27 22 3B A3 31 30 29 |"'LENGTH='";.10)|
00002DB0: 3B 22 4C 45 4E 47 54 48 3D 32 22 3B A3 32 30 29 |;"LENGTH=2";.20)|
00002DC0: 3B 22 CD 55 53 54 20 4E 4F 54 20 42 45 20 32 22 |;".UST NOT BE 2"|
00002DD0: 00 99 A3 32 30 29 3B 22 43 48 41 52 41 43 54 45 |...20);"CHARACTE|
00002DE0: 52 53 22 00 99 22 27 4C 45 4E 47 54 48 3C 3E 27 |RS".."'LENGTH<>'|
00002DF0: 22 3B A3 31 30 29 3B 22 4C 45 4E 47 54 48 3C 3E |";.10);"LENGTH<>|
00002E00: 33 22 3B A3 32 30 29 3B 22 CD 55 53 54 20 42 45 |3";.20);".UST BE|
00002E10: 20 33 22 00 99 A3 32 30 29 3B 22 43 48 41 52 41 | 3"...20);"CHARA|
00002E20: 43 54 45 52 53 22 00 99 C8 28 59 24 2C 32 34 29 |CTERS"...(Y$,24)|
00002E30: 22 D0 52 45 53 53 20 12 D2 C5 D4 D5 D2 CE 92 20 |".RESS ........ |
00002E40: 54 4F 20 43 4F 4E 54 49 4E 55 45 22 3B 00 A1 41 |TO CONTINUE";..A|
00002E50: 24 3A 96 01 98 89 0D B8 13 2E 4F 05 48 C9 B3 00 |$:........O.H...|
00002E60: 99 22 93 22 3B 00 99 A3 30 39 29 3B 22 12 CE 55 |.".";...09);"..U|
00002E70: 4D 42 45 52 20 54 45 53 54 53 92 22 00 99 22 D4 |MBER TESTS."..".|
00002E80: 45 53 54 22 3B A3 30 37 29 3B 22 C5 58 41 4D 50 |EST";.07);".XAMP|
00002E90: 4C 45 22 3B A3 31 35 29 3B 22 CD 45 41 4E 49 4E |LE";.15);".EANIN|
00002EA0: 47 20 54 4F 20 4F 50 45 52 41 54 4F 52 22 00 99 |G TO OPERATOR"..|
00002EB0: 22 11 27 3E 27 22 3B A3 30 37 29 3B 22 3E 39 39 |".'>'";.07);">99|
00002EC0: 22 3B A3 31 36 29 3B 22 CD 55 53 54 20 4E 4F 54 |";.16);".UST NOT|
00002ED0: 20 42 45 20 47 52 45 41 54 45 52 22 00 99 A3 31 | BE GREATER"...1|
00002EE0: 36 29 22 54 48 41 4E 20 39 39 22 00 99 22 27 3C |6)"THAN 99".."'<|
00002EF0: 27 22 3B A3 30 37 29 3B 22 3C 32 30 22 3B A3 31 |'";.07);"<20";.1|
00002F00: 36 29 3B 22 CD 55 53 54 20 42 45 20 32 30 20 4F |6);".UST BE 20 O|
00002F10: 52 20 48 49 47 48 45 52 22 00 99 22 27 3D 27 22 |R HIGHER".."'='"|
00002F20: 3B A3 30 37 29 3B 22 3D 36 33 31 22 3B A3 31 36 |;.07);"=631";.16|
00002F30: 29 3B 22 CD 55 53 54 20 4E 4F 54 20 45 51 55 41 |);".UST NOT EQUA|
00002F40: 4C 20 36 33 31 22 00 99 22 27 3C 3E 27 22 3B A3 |L 631".."'<>'";.|
00002F50: 30 37 29 3B 22 3C 3E 31 37 22 3B A3 31 36 29 3B |07);"<>17";.16);|
00002F60: 22 CD 55 53 54 20 45 51 55 41 4C 20 31 37 22 00 |".UST EQUAL 17".|
00002F70: 99 22 11 12 C3 48 41 52 41 43 54 45 52 20 54 45 |."...HARACTER TE|
00002F80: 53 54 53 92 20 28 4E 4F 54 45 20 53 49 4E 47 4C |STS. (NOTE SINGL|
00002F90: 45 20 51 55 4F 54 45 53 29 22 00 99 22 27 3E 27 |E QUOTES)".."'>'|
00002FA0: 22 3B A3 30 37 29 3B 22 3E 27 44 27 22 3B A3 31 |";.07);">'D'";.1|
00002FB0: 36 29 3B 22 CD 55 53 54 20 4E 4F 54 20 42 45 20 |6);".UST NOT BE |
00002FC0: 41 46 54 45 52 20 27 44 27 22 00 99 A3 31 36 29 |AFTER 'D'"...16)|
00002FD0: 22 41 4C 50 48 41 42 45 54 49 43 41 4C 4C 59 22 |"ALPHABETICALLY"|
00002FE0: 00 99 22 27 3C 27 22 3B A3 30 37 29 3B 22 3C 27 |.."'<'";.07);"<'|
00002FF0: 4A 4F 27 22 3B A3 31 36 29 3B 22 CD 55 53 54 20 |JO'";.16);".UST |
00003000: 4E 4F 54 20 50 52 45 43 45 44 45 20 27 4A 4F 27 |NOT PRECEDE 'JO'|
00003010: 22 00 99 A3 31 36 29 22 41 4C 50 48 41 42 45 54 |"...16)"ALPHABET|
00003020: 49 43 41 4C 4C 59 22 00 99 22 27 3D 27 22 3B A3 |ICALLY".."'='";.|
00003030: 30 37 29 3B 22 3D 27 42 49 4C 4C 27 22 3B A3 31 |07);"='BILL'";.1|
00003040: 36 29 3B 22 CD 55 53 54 20 4E 4F 54 20 42 45 20 |6);".UST NOT BE |
00003050: 27 42 49 4C 4C 27 22 00 99 22 27 3C 3E 27 22 3B |'BILL'".."'<>'";|
00003060: A3 30 37 29 3B 22 3C 3E 27 4D 41 4C 45 27 22 3B |.07);"<>'MALE'";|
00003070: A3 31 36 29 3B 22 CD 55 53 54 20 42 45 20 27 4D |.16);".UST BE 'M|
00003080: 41 4C 45 27 22 00 99 22 27 43 4F 4E 54 41 49 4E |ALE'".."'CONTAIN|
00003090: 53 27 22 3B 00 99 A3 31 36 29 22 CD 55 53 54 20 |S'";...16)".UST |
000030A0: 4E 4F 54 20 43 4F 4E 54 41 49 4E 20 27 41 42 43 |NOT CONTAIN 'ABC|
000030B0: 27 22 00 99 A3 30 37 29 22 43 4F 4E 54 41 49 4E |'"...07)"CONTAIN|
000030C0: 53 27 41 42 43 27 22 3B 51 24 00 99 22 11 D9 4F |S'ABC'";Q$.."..O|
000030D0: 55 20 4D 41 59 20 53 49 47 4E 41 4C 20 43 4F 4D |U MAY SIGNAL COM|
000030E0: 50 4C 45 54 49 4F 4E 20 4F 46 20 54 48 45 20 54 |PLETION OF THE T|
000030F0: 45 53 54 53 20 20 46 4F 52 20 41 20 46 49 45 4C |ESTS FOR A FIEL|
00003100: 44 20 42 59 20 22 3B 00 99 22 48 49 54 54 49 4E |D BY ";.."HITTIN|
00003110: 47 20 54 48 45 20 52 45 54 55 52 4E 20 4B 45 59 |G THE RETURN KEY|
00003120: 20 4F 4E 20 27 52 45 4A 45 43 54 20 49 46 27 22 | ON 'REJECT IF'"|
00003130: 00 99 22 12 D4 59 50 45 20 27 48 45 4C 50 27 20 |.."..YPE 'HELP' |
00003140: 54 4F 20 52 45 50 45 41 54 20 54 48 45 53 45 20 |TO REPEAT THESE |
00003150: 44 49 52 45 43 54 49 4F 4E 53 92 22 00 99 C8 28 |DIRECTIONS."...(|
00003160: 59 24 2C 32 34 29 22 D0 52 45 53 53 20 12 D2 C5 |Y$,24)".RESS ...|
00003170: D4 D5 D2 CE 92 20 54 4F 20 43 4F 4E 54 49 4E 55 |..... TO CONTINU|
00003180: 45 22 3B 00 A1 41 24 3A 96 01 98 89 0D B8 13 2E |E";..A$:........|
00003190: 4F 05 48 C6 7D 00 99 22 93 22 3A 81 D4 01 AD 90 |O.H.}..".":.....|
000031A0: 87 42 01 AD 00 99 C8 28 59 24 2C 59 25 28 4A 29 |.B.....(Y$,Y%(J)|
000031B0: 29 3B C8 28 58 24 2C 58 25 28 4A 29 29 3B 50 52 |);.(X$,X%(J));PR|
000031C0: 24 28 4A 29 3B 53 44 24 28 4A 29 3A 47 01 AD 00 |$(J);SD$(J):G...|
000031D0: 99 C8 28 59 24 2C 59 25 28 49 29 29 3B C8 28 58 |..(Y$,Y%(I));.(X|
000031E0: 24 2C 58 25 28 49 29 29 3B 22 12 22 3B 50 52 24 |$,X%(I));".";PR$|
000031F0: 28 49 29 3B 53 44 24 28 49 29 3B 22 92 22 3A 4C |(I);SD$(I);".":L|
00003200: 81 D0 33 90 87 42 00 33 90 33 B8 10 D6 02 8D 90 |..3..B.3.3......|
00003210: 33 A2 26 8A 01 44 2B 4F 05 48 C5 B5 00 99 C8 28 |3.&..D+O.H.....(|
00003220: 59 24 2C 59 25 28 49 29 29 3B C8 28 58 24 2C 58 |Y$,Y%(I));.(X$,X|
00003230: 25 28 49 29 29 3B 22 12 22 3B 50 52 24 28 49 29 |%(I));".";PR$(I)|
00003240: 3B 53 44 24 28 49 29 3B 22 92 22 3A 90 33 81 2A |;SD$(I);".":.3.*|
00003250: 4F 31 00 99 C8 28 59 24 2C 59 25 28 49 AB 31 29 |O1...(Y$,Y%(I.1)|
00003260: 29 3B C8 28 58 24 2C 58 25 28 49 AB 31 29 29 3B |);.(X$,X%(I.1));|
00003270: 50 52 24 28 49 AB 31 29 3B 53 44 24 28 49 AB 31 |PR$(I.1);SD$(I.1|
00003280: 29 00 99 C8 28 59 24 2C 32 33 29 3B 53 50 24 00 |)...(Y$,23);SP$.|
00003290: 99 53 50 24 3B 3A 94 01 0C 89 0A 01 D4 01 0C 90 |.SP$;:..........|
000032A0: 33 A2 26 D6 02 94 00 98 32 2C 4C 4E 3B 22 58 25 |3.&.....2,LN;"X%|
000032B0: 3D 58 25 28 22 3B 49 24 3B 22 29 2B 4C 45 4E 28 |=X%(";I$;")+LEN(|
000032C0: 50 52 24 28 22 3B 49 24 3B 22 29 29 3A 59 25 3D |PR$(";I$;")):Y%=|
000032D0: 59 25 28 22 3B 49 24 3B 22 29 3A 4C 25 3D 4C 25 |Y%(";I$;"):L%=L%|
000032E0: 28 22 3B 49 24 3B 22 29 22 3A 94 01 0C D4 02 9B |(";I$;")":......|
000032F0: 00 98 32 2C 42 4C AA 31 3B 22 49 46 55 46 3C 3E |..2,BL.1;"IFUF<>|
00003300: 30 41 4E 44 47 24 3D 22 3B 51 24 3B 51 24 3B 22 |0ANDG$=";Q$;Q$;"|
00003310: 54 48 C5 47 24 3D 47 24 28 22 3B 49 24 3B 22 29 |TH.G$=G$(";I$;")|
00003320: 22 3A 94 01 0C 89 0A 01 D4 01 0C 8A 05 33 34 30 |":...........340|
00003330: 30 30 D6 02 A2 96 02 94 8A 01 44 2B 4F 0C 8A 05 |00........D+O...|
00003340: 34 39 30 30 30 D6 02 A2 00 98 32 2C 4C 4E 3B 22 |49000.....2,LN;"|
00003350: 47 4F D3 22 3B 47 53 24 3B 22 3A 3F 4C 45 C6 28 |GO.";GS$;":?LE.(|
00003360: 59 24 2C 32 33 29 3B 53 50 24 3A 47 24 28 22 3B |Y$,23);SP$:G$(";|
00003370: 49 24 3B 22 29 3D 49 4E 24 22 3B 00 98 32 2C 22 |I$;")=IN$";..2,"|
00003380: 3A 49 46 47 24 28 22 3B 49 24 3B 22 29 3D 43 C8 |:IFG$(";I$;")=C.|
00003390: 28 31 33 33 29 54 48 C5 20 52 45 D4 22 3A 90 33 |(133)TH. RE.":.3|
000033A0: 94 01 0C E1 08 94 01 0C 89 0A 01 D4 01 0C 00 98 |................|
000033B0: 32 2C 4C 4E 3B 22 49 46 20 55 46 3C 3E 30 20 41 |2,LN;"IF UF<>0 A|
000033C0: 4E 44 20 4C 45 4E 28 49 4E 24 29 3D 30 20 54 48 |ND LEN(IN$)=0 TH|
000033D0: C5 20 47 24 28 22 3B 49 24 3B 22 29 3D 47 24 22 |. G$(";I$;")=G$"|
000033E0: 3A 96 02 94 8A 01 41 2B 96 02 94 8A 01 44 2B 07 |:.....A+.....D+.|
000033F0: 4F 05 48 C2 D8 00 98 32 2C 4C 4E AA 31 3B 22 49 |O.H....2,LN.1;"I|
00003400: 46 55 46 3D 30 20 54 48 C5 20 22 3B 4C 4E AA 34 |FUF=0 TH. ";LN.4|
00003410: 00 98 32 2C 4C 4E AA 32 3B 22 42 24 3D 47 24 28 |..2,LN.2;"B$=G$(|
00003420: 22 3B 49 24 3B 22 29 3A 41 24 3D 22 3B 51 24 3B |";I$;"):A$=";Q$;|
00003430: 22 4D 22 3B 51 24 3B 22 3A 47 4F D3 34 31 30 30 |"M";Q$;":GO.4100|
00003440: 30 3A 47 31 3D 49 39 22 00 98 32 2C 4C 4E AA 33 |0:G1=I9"..2,LN.3|
00003450: 3B 22 49 46 47 31 3E 30 54 48 C5 47 47 3D 56 C1 |;"IFG1>0TH.GG=V.|
00003460: 28 47 24 28 22 3B 49 24 3B 22 29 29 2B 56 C1 28 |(G$(";I$;"))+V.(|
00003470: 47 24 29 3A 47 24 28 22 3B 49 24 3B 22 29 3D 53 |G$):G$(";I$;")=S|
00003480: 54 52 24 22 3B 00 98 32 2C 22 28 47 47 29 22 00 |TR$";..2,"(GG)".|
00003490: 98 32 2C 4C 4E AA 34 3B 22 49 46 55 46 3D 30 54 |.2,LN.4;"IFUF=0T|
000034A0: 48 C5 22 3B 4C 4E AA 31 30 00 98 32 2C 4C 4E AA |H.";LN.10..2,LN.|
000034B0: 35 3B 22 42 24 3D 47 24 28 22 3B 49 24 3B 22 29 |5;"B$=G$(";I$;")|
000034C0: 3A 41 24 3D 22 3B 51 24 3B 22 4C 22 3B 51 24 3B |:A$=";Q$;"L";Q$;|
000034D0: 22 3A 47 4F D3 34 31 30 30 30 3A 47 31 3D 49 39 |":GO.41000:G1=I9|
000034E0: 22 00 98 32 2C 4C 4E AA 36 3B 22 49 46 47 31 3E |"..2,LN.6;"IFG1>|
000034F0: 30 54 48 C5 47 47 3D 56 C1 28 47 24 29 2D 56 C1 |0TH.GG=V.(G$)-V.|
00003500: 28 47 24 28 22 3B 49 24 3B 22 29 29 3A 47 24 28 |(G$(";I$;")):G$(|
00003510: 22 3B 49 24 3B 22 29 3D 53 54 52 24 22 3B 00 98 |";I$;")=STR$";..|
00003520: 32 2C 22 28 47 47 29 22 3A 96 02 94 8A 01 44 2B |2,"(GG)":.....D+|
00003530: 4F 05 48 BC 51 00 99 C8 28 59 24 2C 32 33 29 3B |O.H.Q...(Y$,23);|
00003540: A3 32 38 29 3B 22 C6 49 45 4C 44 20 23 22 3B 49 |.28);".IELD #";I|
00003550: 00 99 C8 28 59 24 2C 32 34 29 3B 53 50 24 00 99 |...(Y$,24);SP$..|
00003560: C8 28 59 24 2C 32 34 29 3B 22 D2 45 4A 45 43 54 |.(Y$,24);".EJECT|
00003570: 20 49 46 3A 20 22 3B 3A 89 0B D1 41 89 18 D1 48 | IF: ";:...A...H|
00003580: 89 19 D1 4F 4A D3 87 92 56 D6 02 A9 96 02 A9 8A |...OJ...V.......|
00003590: 00 2E 4F 05 48 C1 7B 96 02 94 8A 01 41 2B 96 02 |..O.H.{.....A+..|
000035A0: 94 8A 01 44 2B 07 4F 05 48 C1 CE 94 01 0C 89 0A |...D+.O.H.......|
000035B0: 01 D4 01 0C 00 98 32 2C 4C 4E 3B 22 47 24 28 22 |......2,LN;"G$("|
000035C0: 3B 49 24 3B 22 29 3D 53 54 52 24 28 56 C1 28 47 |;I$;")=STR$(V.(G|
000035D0: 24 28 22 3B 49 24 3B 22 29 29 29 22 00 98 32 2C |$(";I$;")))"..2,|
000035E0: 4C 4E AA 35 3B 22 49 46 20 56 C1 28 47 24 28 22 |LN.5;"IF V.(G$("|
000035F0: 3B 49 24 3B 22 29 29 3E 3D 30 20 54 48 C5 22 3B |;I$;"))>=0 TH.";|
00003600: 00 98 32 2C 22 47 24 28 22 3B 49 24 3B 22 29 3D |..2,"G$(";I$;")=|
00003610: 52 49 C7 28 47 24 28 22 3B 49 24 3B 22 29 2C 4C |RI.(G$(";I$;"),L|
00003620: 45 4E 28 47 24 28 22 3B 49 24 3B 22 29 29 2D 31 |EN(G$(";I$;"))-1|
00003630: 29 22 3A 94 01 0C 89 0A 01 D4 01 0C 00 98 32 2C |)":...........2,|
00003640: 4C 4E 3B 22 49 46 4C 45 4E 28 47 24 28 22 3B 49 |LN;"IFLEN(G$(";I|
00003650: 24 3B 22 29 29 3C 4C 25 28 22 3B C5 28 49 24 29 |$;"))<L%(";.(I$)|
00003660: 3B 00 98 32 2C 22 29 20 54 48 C5 20 49 3D 22 3B |;..2,") TH. I=";|
00003670: C5 28 49 24 29 3B 22 3A 47 4F D3 34 30 35 30 30 |.(I$);":GO.40500|
00003680: 22 3A 48 BC 51 96 02 A9 8A 04 48 45 4C 50 2B 4F |":H.Q.....HELP+O|
00003690: 08 4A CE 63 48 C2 CB 4A B0 96 96 02 A9 D6 01 A6 |.J.cH..J........|
000036A0: 80 D0 72 8A 0B 4E 4F 54 20 4E 55 4D 45 52 49 43 |..r..NOT NUMERIC|
000036B0: D6 01 98 4A B2 39 94 02 B0 81 2B 96 02 A9 B8 0F |...J.9....+.....|
000036C0: 89 0B 2B 06 4F 08 81 D0 72 48 C0 0B 8A 07 4E 55 |..+.O...rH....NU|
000036D0: 4D 45 52 49 43 D6 01 98 4A B2 39 94 02 B0 81 2B |MERIC...J.9....+|
000036E0: 96 02 A9 B8 0F 87 2B 06 4F 08 82 D0 72 48 C0 0B |......+.O...rH..|
000036F0: 8A 08 4E 4F 20 45 4E 54 52 59 D6 01 98 4A B2 39 |..NO ENTRY...J.9|
00003700: 94 02 B0 81 2B 96 02 A9 B8 0F 89 08 2B 06 4F 08 |....+.......+.O.|
00003710: 83 D0 72 48 C0 0B 8A 08 43 4F 4E 54 41 49 4E 53 |..rH....CONTAINS|
00003720: D6 01 98 4A B2 39 94 02 B0 81 2B 96 02 A9 B8 0F |...J.9....+.....|
00003730: 89 08 2A 06 4F 14 96 02 A9 89 09 89 FF B8 16 D6 |..*.O...........|
00003740: 01 F3 4A B1 54 94 01 DE 4F 08 84 D0 72 48 C0 0B |..J.T...O...rH..|
00003750: 8A 06 4C 45 4E 47 54 48 D6 01 98 4A B2 39 94 02 |..LENGTH...J.9..|
00003760: B0 81 2E 96 02 A9 B8 0F 87 2F 07 4F 05 48 C0 6F |........./.O.H.o|
00003770: 96 02 A9 87 89 FF B8 16 D6 01 E5 4A B1 FB 94 01 |...........J....|
00003780: DE 4F 08 4A B1 8B 94 01 DE 4F 08 85 D0 72 48 C0 |.O.J.....O...rH.|
00003790: 0B 96 02 A9 D6 01 E5 4A B1 FB 94 01 DE 19 4F 05 |.......J......O.|
000037A0: 48 C0 41 4A B1 03 94 01 DE 4F 08 86 D0 72 48 C0 |H.AJ.....O...rH.|
000037B0: 0B 4A B1 54 94 01 DE 4F 08 86 D0 72 48 C0 0B 00 |.J.T...O...rH...|
000037C0: 99 C8 28 59 24 2C 32 33 29 3B 22 D3 59 4E 54 41 |..(Y$,23);".YNTA|
000037D0: 58 20 45 52 52 4F 52 2E 20 D2 45 45 4E 54 45 52 |X ERROR. .EENTER|
000037E0: 20 4F 52 20 54 59 50 45 20 27 48 45 4C 50 27 2E | OR TYPE 'HELP'.|
000037F0: 22 3A 48 C2 B0 00 99 C8 28 59 24 2C 32 33 29 3B |":H.....(Y$,23);|
00003800: 53 50 24 00 99 53 50 24 00 99 C8 28 59 24 2C 32 |SP$..SP$...(Y$,2|
00003810: 34 29 22 C5 52 52 4F 52 20 4D 45 53 53 41 47 45 |4)".RROR MESSAGE|
00003820: 3F 22 00 99 22 28 43 52 20 3D 20 22 3B 45 53 24 |?".."(CR = ";ES$|
00003830: 28 45 53 29 3B 22 29 22 3B 3A 89 0F D1 41 89 18 |(ES);")";:...A..|
00003840: D1 48 89 17 D1 4F 4A D3 87 92 56 D6 02 78 96 02 |.H...OJ...V..x..|
00003850: 78 8A 04 48 45 4C 50 2B 4F 08 4A CE 63 48 C0 0B |x..HELP+O.J.cH..|
00003860: 00 99 C8 28 59 24 2C 32 35 29 3B 53 50 24 3B 3A |...(Y$,25);SP$;:|
00003870: 96 02 78 8A 00 2B 4F 09 90 72 A2 04 D6 02 78 96 |..x..+O..r....x.|
00003880: 02 78 B8 0F 89 1E 2A 4F 29 00 99 C8 28 59 24 2C |.x....*O)...(Y$,|
00003890: 32 33 29 3B 22 45 52 52 4F 52 20 4D 45 53 53 41 |23);"ERROR MESSA|
000038A0: 47 45 20 54 4F 4F 20 4C 4F 4E 47 22 3A 48 BF F8 |GE TOO LONG":H..|
000038B0: 90 72 4D 0C BF 40 BE CD BE 5A BD F5 BD 68 BC FA |.rM..@...Z...h..|
000038C0: 94 01 0C 89 0A 01 D4 01 0C 00 98 32 2C 4C 4E 3B |...........2,LN;|
000038D0: 22 43 44 24 3D 47 24 28 22 3B 49 24 3B 22 29 3A |"CD$=G$(";I$;"):|
000038E0: 45 3D 30 3A 47 4F D3 33 30 30 30 30 3A 49 46 45 |E=0:GO.30000:IFE|
000038F0: 3C 3E 31 54 48 C5 22 3B 4C 4E AA 32 30 3A 94 01 |<>1TH.";LN.20:..|
00003900: 0C 89 0A 01 D4 01 0C 00 98 32 2C 4C 4E 3B 22 3F |.........2,LN;"?|
00003910: 4C 45 C6 28 59 24 2C 32 33 29 3B 22 3B 51 24 3B |LE.(Y$,23);";Q$;|
00003920: 45 4D 24 3B 51 24 3B 22 3A 47 CF 22 3B 42 4C 3A |EM$;Q$;":G.";BL:|
00003930: 48 C2 CB 94 01 0C 89 0A 01 D4 01 0C 00 98 32 2C |H.............2,|
00003940: 4C 4E 3B 22 43 44 24 3D 47 24 28 22 3B 49 24 3B |LN;"CD$=G$(";I$;|
00003950: 22 29 3A 45 3D 30 3A 47 4F D3 33 31 30 30 30 3A |"):E=0:GO.31000:|
00003960: 49 46 45 3C 3E 31 54 48 C5 22 3B 4C 4E AA 32 30 |IFE<>1TH.";LN.20|
00003970: 3A 94 01 0C 89 0A 01 D4 01 0C 00 98 32 2C 4C 4E |:...........2,LN|
00003980: 3B 22 3F 4C 45 C6 28 59 24 2C 32 33 29 3B 22 3B |;"?LE.(Y$,23);";|
00003990: 51 24 3B 45 4D 24 3B 51 24 3B 22 3A 47 CF 22 3B |Q$;EM$;Q$;":G.";|
000039A0: 42 4C 3A 48 C2 CB 94 01 0C 89 0A 01 D4 01 0C 00 |BL:H............|
000039B0: 98 32 2C 4C 4E 3B 22 49 46 4C 45 4E 28 47 24 28 |.2,LN;"IFLEN(G$(|
000039C0: 22 3B 49 24 3B 22 29 29 3C 3E 30 54 48 C5 22 3B |";I$;"))<>0TH.";|
000039D0: 4C 4E AA 32 30 3A 94 01 0C 89 0A 01 D4 01 0C 00 |LN.20:..........|
000039E0: 98 32 2C 4C 4E 3B 22 3F 4C 45 C6 28 59 24 2C 32 |.2,LN;"?LE.(Y$,2|
000039F0: 33 29 3B 22 3B 51 24 3B 45 4D 24 3B 51 24 3B 22 |3);";Q$;EM$;Q$;"|
00003A00: 3A 47 CF 22 3B 42 4C 3A 48 C2 CB 94 01 0C 89 0A |:G.";BL:H.......|
00003A10: 01 D4 01 0C 00 98 32 2C 4C 4E 3B 22 42 24 3D 47 |......2,LN;"B$=G|
00003A20: 24 28 22 3B 49 24 3B 22 29 3A 41 24 3D 22 3B 42 |$(";I$;"):A$=";B|
00003A30: 4B 24 3B 22 3A 47 4F D3 34 31 30 30 30 22 3A 94 |K$;":GO.41000":.|
00003A40: 01 0C 89 0A 01 D4 01 0C 00 98 32 2C 4C 4E 3B 22 |..........2,LN;"|
00003A50: 49 46 20 49 39 3D 30 20 54 48 C5 22 3B 4C 4E AA |IF I9=0 TH.";LN.|
00003A60: 32 30 3A 94 01 0C 89 0A 01 D4 01 0C 00 98 32 2C |20:...........2,|
00003A70: 4C 4E 3B 22 3F 4C 45 C6 28 59 24 2C 32 33 29 3B |LN;"?LE.(Y$,23);|
00003A80: 22 3B 51 24 3B 45 4D 24 3B 51 24 3B 22 3A 47 CF |";Q$;EM$;Q$;":G.|
00003A90: 22 3B 42 4C 3A 48 C2 CB 94 01 0C 89 0A 01 D4 01 |";BL:H..........|
00003AA0: 0C 00 98 32 2C 4C 4E 3B 22 49 46 4E 4F 54 28 4C |...2,LN;"IFNOT(L|
00003AB0: 45 4E 28 47 24 28 22 3B 49 24 3B 22 29 29 22 3B |EN(G$(";I$;"))";|
00003AC0: 42 4A 24 3B 22 29 54 48 C5 22 3B 4C 4E AA 32 30 |BJ$;")TH.";LN.20|
00003AD0: 3A 94 01 0C 89 0A 01 D4 01 0C 00 98 32 2C 4C 4E |:...........2,LN|
00003AE0: 3B 22 3F 4C 45 C6 28 59 24 2C 32 33 29 3B 22 3B |;"?LE.(Y$,23);";|
00003AF0: 51 24 3B 45 4D 24 3B 51 24 3B 22 3A 47 CF 22 3B |Q$;EM$;Q$;":G.";|
00003B00: 42 4C 3A 48 C2 CB 94 01 0C 89 0A 01 D4 01 0C 96 |BL:H............|
00003B10: 01 F3 81 B8 14 92 B8 2E 4F 05 48 BC B5 00 98 32 |........O.H....2|
00003B20: 2C 4C 4E 3B 22 49 46 4E 4F 54 28 47 24 28 22 3B |,LN;"IFNOT(G$(";|
00003B30: 49 24 3B 22 29 22 3B 42 4A 24 3B 22 29 54 48 C5 |I$;")";BJ$;")TH.|
00003B40: 22 3B 4C 4E AA 32 30 3A 48 BC 87 00 98 32 2C 4C |";LN.20:H....2,L|
00003B50: 4E 3B 22 49 46 4E 4F 54 28 56 C1 28 47 24 28 22 |N;"IFNOT(V.(G$("|
00003B60: 3B 49 24 3B 22 29 29 22 3B 42 4A 24 3B 22 29 54 |;I$;"))";BJ$;")T|
00003B70: 48 C5 22 3B 4C 4E AA 32 30 3A 94 01 0C 89 0A 01 |H.";LN.20:......|
00003B80: D4 01 0C 00 98 32 2C 4C 4E 3B 22 3F 4C 45 C6 28 |.....2,LN;"?LE.(|
00003B90: 59 24 2C 32 33 29 3B 22 3B 51 24 3B 45 4D 24 3B |Y$,23);";Q$;EM$;|
00003BA0: 51 24 3B 22 3A 47 CF 22 3B 42 4C 3A 48 C2 CB 94 |Q$;":G.";BL:H...|
00003BB0: 01 0C 89 0A 01 D4 01 0C 00 98 32 2C 4C 4E 3B 22 |..........2,LN;"|
00003BC0: 52 45 D4 22 3A 90 33 94 01 28 2B 4F 26 94 01 28 |RE.":.3..(+O&..(|
00003BD0: A1 08 89 0A 02 B8 10 82 89 FF B8 16 D6 02 B7 00 |................|
00003BE0: 98 32 2C 22 32 37 30 33 30 47 4F D3 22 3B 4B 46 |.2,"27030GO.";KF|
00003BF0: 24 3A 47 00 33 90 BF 80 2B 4F 05 48 BA 02 94 01 |$:G.3...+O.H....|
00003C00: 0C 89 0A 01 D4 01 0C 94 01 0C D4 01 13 00 98 32 |...............2|
00003C10: 2C 4C 4E 3B 22 49 46 20 43 53 25 28 49 29 20 3D |,LN;"IF CS%(I) =|
00003C20: 20 30 20 54 48 C5 20 52 45 D4 22 3A 94 01 0C 89 | 0 TH. RE.":....|
00003C30: 0A 01 D4 01 0C 00 98 32 2C 4C 4E 3B 22 58 25 3D |.......2,LN;"X%=|
00003C40: 43 58 25 28 49 29 2B 4C 45 4E 28 43 50 24 28 49 |CX%(I)+LEN(CP$(I|
00003C50: 29 29 3A 59 25 3D 43 59 25 28 49 29 3A 4C 25 3D |)):Y%=CY%(I):L%=|
00003C60: 43 4C 25 28 49 29 22 3A 94 01 0C 89 0A 01 D4 01 |CL%(I)":........|
00003C70: 0C 00 98 32 2C 4C 4E 3B 22 47 4F D3 33 34 30 30 |...2,LN;"GO.3400|
00003C80: 30 3A 3F 4C 45 C6 28 59 24 2C 32 33 29 3B 53 50 |0:?LE.(Y$,23);SP|
00003C90: 24 3A 53 55 24 3D 49 4E 24 22 3B 00 98 32 2C 22 |$:SU$=IN$";..2,"|
00003CA0: 3A 49 46 53 55 24 3D 43 C8 28 31 33 33 29 54 48 |:IFSU$=C.(133)TH|
00003CB0: C5 52 45 D4 22 3A 94 01 0C 89 0A 01 D4 01 0C 00 |.RE.":..........|
00003CC0: 98 32 2C 4C 4E 3B 22 49 46 20 4C 45 4E 28 53 55 |.2,LN;"IF LEN(SU|
00003CD0: 24 29 20 3E 20 30 20 54 48 C5 22 3B 4C 4E AA 32 |$) > 0 TH.";LN.2|
00003CE0: 30 3A 94 01 0C 89 0A 01 D4 01 0C 00 98 32 2C 4C |0:...........2,L|
00003CF0: 4E 3B 22 3F 4C 45 C6 28 59 24 2C 32 33 29 3B 22 |N;"?LE.(Y$,23);"|
00003D00: 00 98 32 2C 4C 4E AA 35 3B 22 3F 22 3B 51 24 3B |..2,LN.5;"?";Q$;|
00003D10: 22 2A 20 D9 4F 55 20 4D 55 53 54 20 45 4E 54 45 |"* .OU MUST ENTE|
00003D20: 52 20 53 4F 4D 45 54 48 49 4E 47 20 2A 22 3B 51 |R SOMETHING *";Q|
00003D30: 24 3B 22 3A 20 47 CF 22 3B 53 4C 3A 94 01 0C 89 |$;": G.";SL:....|
00003D40: 0A 01 D4 01 0C 00 98 32 2C 4C 4E 3B 22 43 44 24 |.......2,LN;"CD$|
00003D50: 3D 53 55 24 3A 45 3D 30 3A 47 4F D3 33 30 30 30 |=SU$:E=0:GO.3000|
00003D60: 30 3A 49 46 45 3C 3E 31 54 48 C5 22 3B 4C 4E AA |0:IFE<>1TH.";LN.|
00003D70: 32 30 3A 94 01 0C 89 0A 01 D4 01 0C 00 98 32 2C |20:...........2,|
00003D80: 4C 4E 3B 22 3F 4C 45 C6 28 59 24 2C 32 33 29 3B |LN;"?LE.(Y$,23);|
00003D90: 22 00 98 32 2C 4C 4E AA 35 3B 22 3F 22 3B 51 24 |"..2,LN.5;"?";Q$|
00003DA0: 3B 22 2A 20 CE 55 4D 42 45 52 53 20 4F 4E 4C 59 |;"* .UMBERS ONLY|
00003DB0: 20 50 4C 45 41 53 45 20 2A 22 3B 51 24 3B 22 3A | PLEASE *";Q$;":|
00003DC0: 47 CF 22 3B 53 4C 3A 94 01 0C 89 0A 01 D4 01 0C |G.";SL:.........|
00003DD0: 00 98 32 2C 4C 4E 3B 22 43 44 28 49 29 20 3D 20 |..2,LN;"CD(I) = |
00003DE0: 56 C1 28 53 55 24 29 22 3A 94 01 0C 89 0A 01 D4 |V.(SU$)":.......|
00003DF0: 01 0C 00 98 32 2C 4C 4E 3B 22 52 45 D4 22 3A 90 |....2,LN;"RE.":.|
00003E00: BF 80 2B 4F 05 48 B9 98 00 98 32 2C 22 31 30 36 |..+O.H....2,"106|
00003E10: 35 46 CF 49 3D 31 54 4F 4E 43 3A 49 46 43 53 25 |5F.I=1TONC:IFCS%|
00003E20: 28 49 29 3D 30 20 54 48 C5 20 31 30 37 35 22 00 |(I)=0 TH. 1075".|
00003E30: 98 32 2C 22 31 30 37 30 3F 4C 45 C6 28 59 24 2C |.2,"1070?LE.(Y$,|
00003E40: 43 59 25 28 49 29 29 3B 54 41 42 28 43 58 25 28 |CY%(I));TAB(CX%(|
00003E50: 49 29 29 3B 43 50 24 28 49 29 22 00 98 32 2C 22 |I));CP$(I)"..2,"|
00003E60: 31 30 37 35 4E C5 49 22 3A 8A 02 46 43 D6 01 C2 |1075N.I":..FC...|
00003E70: 8D 04 3A D4 01 60 90 87 D5 01 67 4A B0 50 00 98 |..:..`....gJ.P..|
00003E80: 32 2C 45 4C 3B 22 49 46 20 49 4E 24 3D 43 C8 28 |2,EL;"IF IN$=C.(|
00003E90: 31 33 33 29 20 54 48 C5 20 52 45 D4 22 00 98 32 |133) TH. RE."..2|
00003EA0: 2C 45 4C AA 31 3B 22 49 46 20 47 53 25 28 46 43 |,EL.1;"IF GS%(FC|
00003EB0: 29 3E 30 20 54 48 C5 20 47 4B 28 47 53 25 28 46 |)>0 TH. GK(GS%(F|
00003EC0: 43 29 29 3D 47 4C 28 47 53 25 28 46 43 29 29 2B |C))=GL(GS%(FC))+|
00003ED0: 56 C1 28 47 24 28 46 43 29 29 22 00 98 32 2C 22 |V.(G$(FC))"..2,"|
00003EE0: 31 31 34 32 49 46 20 46 43 3C 22 3B 4E 46 3B 22 |1142IF FC<";NF;"|
00003EF0: 54 48 C5 20 31 30 38 30 22 3A 90 BF 80 2B 4F 05 |TH. 1080":...+O.|
00003F00: 48 B8 86 00 98 32 2C 22 31 31 34 33 46 CF 49 3D |H....2,"1143F.I=|
00003F10: 31 54 4F 4E 43 22 00 98 32 2C 22 31 31 34 34 49 |1TONC"..2,"1144I|
00003F20: 46 43 53 25 28 49 29 3D 30 54 48 C5 31 31 35 30 |FCS%(I)=0TH.1150|
00003F30: 22 00 98 32 2C 22 31 31 34 36 47 4F D3 22 3B 53 |"..2,"1146GO.";S|
00003F40: 4C 00 98 32 2C 22 31 31 34 38 49 46 49 4E 24 3D |L..2,"1148IFIN$=|
00003F50: 43 C8 28 31 33 33 29 54 48 C5 52 45 D4 22 00 98 |C.(133)TH.RE."..|
00003F60: 32 2C 22 31 31 35 30 4E C5 49 22 00 98 32 2C 22 |2,"1150N.I"..2,"|
00003F70: 31 31 35 30 4E 45 58 54 49 22 3A 90 8E 80 2B 4F |1150NEXTI":...+O|
00003F80: 05 48 B8 45 00 98 32 2C 22 31 31 39 30 49 46 4C |.H.E..2,"1190IFL|
00003F90: 45 4E 28 49 4E 24 29 3D 30 4F 52 49 4E 24 3D 22 |EN(IN$)=0ORIN$="|
00003FA0: 3B 51 24 3B 22 59 22 3B 51 24 3B 22 20 54 48 C5 |;Q$;"Y";Q$;" TH.|
00003FB0: 22 3B 4C 4E AA 31 30 3A 48 B8 14 00 98 32 2C 22 |";LN.10:H....2,"|
00003FC0: 31 31 39 30 49 46 4C 45 4E 28 49 4E 24 29 3D 30 |1190IFLEN(IN$)=0|
00003FD0: 4F 52 49 4E 24 3D 22 3B 51 24 3B 22 59 22 3B 51 |ORIN$=";Q$;"Y";Q|
00003FE0: 24 3B 22 20 54 48 C5 39 30 30 30 22 00 98 32 2C |$;" TH.9000"..2,|
00003FF0: 22 31 32 30 30 3F 4C 45 C6 28 59 24 2C 32 33 29 |"1200?LE.(Y$,23)|
00004000: 3B 22 3B 51 24 3B 22 D7 48 49 43 48 20 46 49 45 |;";Q$;".HICH FIE|
00004010: 4C 44 20 54 4F 20 43 48 41 4E 47 45 3F 20 22 3B |LD TO CHANGE? ";|
00004020: 51 24 3B 00 98 32 2C 22 3A 3F 22 3B 51 24 3B 22 |Q$;..2,":?";Q$;"|
00004030: 28 31 20 2D 22 3B 4E 46 AA 4E 53 3B 22 4F 52 20 |(1 -";NF.NS;"OR |
00004040: 27 4C 49 53 54 27 29 22 3B 51 24 3B 22 3B 22 00 |'LIST')";Q$;";".|
00004050: 98 32 2C 22 31 32 31 30 20 58 25 3D 22 3B 31 35 |.2,"1210 X%=";15|
00004060: AA C3 28 C4 28 4E 46 29 29 3B 22 3A 59 25 3D 32 |..(.(NF));":Y%=2|
00004070: 34 3A 4C 25 3D 34 3A 47 4F D3 33 34 30 30 30 3A |4:L%=4:GO.34000:|
00004080: 49 4E 3D 56 C1 28 49 4E 24 29 22 00 98 32 2C 22 |IN=V.(IN$)"..2,"|
00004090: 31 32 33 30 49 46 49 4E 3C 31 4F 52 49 4E 3E 22 |1230IFIN<1ORIN>"|
000040A0: 3B 4E 46 AA 4E 53 3B 22 54 48 C5 20 3F 4C 45 C6 |;NF.NS;"TH. ?LE.|
000040B0: 28 59 24 2C 32 33 29 3B 53 50 24 3A 3F 4C 45 46 |(Y$,23);SP$:?LEF|
000040C0: 54 24 28 59 24 2C 32 33 29 3B 22 3B 00 98 32 2C |T$(Y$,23);";..2,|
000040D0: 51 24 3B 22 C9 4E 56 41 4C 49 44 20 46 49 45 4C |Q$;".NVALID FIEL|
000040E0: 44 20 23 22 3B 51 24 3B 22 3A 47 CF 20 31 31 36 |D #";Q$;":G. 116|
000040F0: 30 22 3A 8D 04 E2 D4 01 60 8A 02 49 4E D6 01 C2 |0":.....`..IN...|
00004100: 90 87 D5 01 67 4A B0 50 90 BF 80 2B 4F 05 48 B6 |....gJ.P...+O.H.|
00004110: D5 00 98 32 2C 22 31 32 34 35 49 46 49 4E 3E 4E |...2,"1245IFIN>N|
00004120: 46 54 48 C5 22 3B 45 4C AA 33 30 00 98 32 2C 45 |FTH.";EL.30..2,E|
00004130: 4C 22 49 46 49 4E 24 3D 43 C8 28 31 33 33 29 54 |L"IFIN$=C.(133)T|
00004140: 48 C5 52 45 D4 22 00 98 32 2C 45 4C AA 31 30 22 |H.RE."..2,EL.10"|
00004150: 49 46 47 53 25 28 49 4E 29 3E 30 20 54 48 C5 20 |IFGS%(IN)>0 TH. |
00004160: 47 4B 28 47 53 25 28 49 4E 29 29 20 3D 20 47 4C |GK(GS%(IN)) = GL|
00004170: 28 47 53 25 28 49 4E 29 29 20 2B A0 56 C1 28 47 |(GS%(IN)) +.V.(G|
00004180: 24 28 49 4E 29 29 22 00 98 32 2C 45 4C AA 32 30 |$(IN))"..2,EL.20|
00004190: 22 47 CF 31 31 36 30 22 3A 90 BF 80 2B 4F 05 48 |"G.1160":...+O.H|
000041A0: B5 AB 00 98 32 2C 45 4C AA 33 30 22 50 3D 30 3A |....2,EL.30"P=0:|
000041B0: 49 4E 3D 49 4E 2D 4E 46 22 00 98 32 2C 45 4C AA |IN=IN-NF"..2,EL.|
000041C0: 34 30 22 46 CF 49 3D 31 54 4F 49 4E 22 00 98 32 |40"F.I=1TOIN"..2|
000041D0: 2C 45 4C AA 35 30 22 50 3D 50 2B 31 3A 49 46 43 |,EL.50"P=P+1:IFC|
000041E0: 53 25 28 50 29 3D 30 54 48 C5 22 3B 45 4C AA 35 |S%(P)=0TH.";EL.5|
000041F0: 30 00 98 32 2C 45 4C AA 36 30 22 4E C5 49 3A 49 |0..2,EL.60"N.I:I|
00004200: 3D 50 22 00 98 32 2C 45 4C AA 37 30 22 47 4F D3 |=P"..2,EL.70"GO.|
00004210: 22 3B 53 4C 00 98 32 2C 45 4C AA 38 30 3B 22 49 |";SL..2,EL.80;"I|
00004220: 46 20 49 4E 24 3D 43 C8 28 31 33 33 29 20 54 48 |F IN$=C.(133) TH|
00004230: C5 20 52 45 D4 22 00 98 32 2C 45 4C AA 39 30 22 |. RE."..2,EL.90"|
00004240: 47 CF 31 31 36 30 22 00 98 32 2C 22 32 39 31 31 |G.1160"..2,"2911|
00004250: 30 4E C5 49 22 3A 8A 02 55 46 D6 01 C2 8D 2E 54 |0N.I":..UF.....T|
00004260: D4 01 60 90 87 D5 01 67 4A B0 50 00 98 32 2C 45 |..`....gJ.P..2,E|
00004270: 4C 3B 22 47 CF 20 31 31 38 31 30 22 3A 90 8E 80 |L;"G. 11810":...|
00004280: 2B 4F 05 48 B4 B0 94 01 0C 89 0A 01 D4 01 0C 00 |+O.H............|
00004290: 98 32 2C 4C 4E 3B 22 46 CF 50 5A 3D 31 54 4F 4E |.2,LN;"F.PZ=1TON|
000042A0: 43 22 3A 90 BF 80 2A 4F 23 00 98 32 2C 4C 4E AA |C":...*O#..2,LN.|
000042B0: 35 3B 22 49 46 20 43 53 25 28 50 5A 29 3E 30 20 |5;"IF CS%(PZ)>0 |
000042C0: 54 48 C5 22 3B 4C 4E AA 32 30 3A 94 01 0C 89 0A |TH.";LN.20:.....|
000042D0: 01 D4 01 0C 00 98 32 2C 4C 4E 3B 22 47 4F D3 20 |......2,LN;"GO. |
000042E0: 32 38 31 30 30 22 3A 94 01 0C 89 0A 01 D4 01 0C |28100":.........|
000042F0: 00 98 32 2C 4C 4E 3B 22 49 4A 3D 47 53 25 28 50 |..2,LN;"IJ=GS%(P|
00004300: 5A 29 22 3A 94 01 0C 89 0A 01 D4 01 0C 00 98 32 |Z)":...........2|
00004310: 2C 4C 4E 3B 22 49 46 20 49 4A 20 3E 20 30 20 54 |,LN;"IF IJ > 0 T|
00004320: 48 C5 20 47 4B 28 49 4A 29 3D 47 4C 28 49 4A 29 |H. GK(IJ)=GL(IJ)|
00004330: 2B 43 44 28 50 5A 29 22 3A 94 01 0C 89 0A 01 D4 |+CD(PZ)":.......|
00004340: 01 0C 00 98 32 2C 4C 4E 3B 22 4E C5 20 50 5A 22 |....2,LN;"N. PZ"|
00004350: 00 99 22 93 12 C5 4E 44 2D 4F 46 2D 44 41 54 41 |.."...ND-OF-DATA|
00004360: 20 45 4E 54 52 59 20 4D 45 53 53 41 47 45 92 22 | ENTRY MESSAGE."|
00004370: 00 99 00 99 22 D7 48 45 4E 20 54 48 45 20 4F 50 |....".HEN THE OP|
00004380: 45 52 41 54 4F 52 20 4F 46 20 59 4F 55 52 20 50 |ERATOR OF YOUR P|
00004390: 52 4F 47 52 41 4D 20 49 53 22 00 99 22 46 49 4E |ROGRAM IS".."FIN|
000043A0: 49 53 48 45 44 20 45 4E 54 45 52 49 4E 47 20 44 |ISHED ENTERING D|
000043B0: 41 54 41 20 54 4F 20 41 20 52 45 43 4F 52 44 2C |ATA TO A RECORD,|
000043C0: 20 54 48 45 22 00 99 22 50 52 4F 47 52 41 4D 20 | THE".."PROGRAM |
000043D0: 57 49 4C 4C 20 41 53 4B 20 49 46 20 41 4C 4C 20 |WILL ASK IF ALL |
000043E0: 44 41 54 41 20 45 4E 54 52 59 20 46 4F 52 22 00 |DATA ENTRY FOR".|
000043F0: 99 22 54 48 41 54 20 53 45 53 53 49 4F 4E 20 49 |."THAT SESSION I|
00004400: 53 20 44 4F 4E 45 2E 22 00 99 00 99 22 D4 48 45 |S DONE."....".HE|
00004410: 20 4F 50 45 52 41 54 4F 52 20 49 53 20 41 53 4B | OPERATOR IS ASK|
00004420: 45 44 20 54 4F 20 41 4E 53 57 45 52 20 41 20 28 |ED TO ANSWER A (|
00004430: 59 29 45 53 22 00 99 22 28 4E 29 4F 20 51 55 45 |Y)ES".."(N)O QUE|
00004440: 53 54 49 4F 4E 20 54 4F 20 53 49 47 4E 41 4C 20 |STION TO SIGNAL |
00004450: 57 48 45 54 48 45 52 20 54 48 45 20 44 41 54 41 |WHETHER THE DATA|
00004460: 22 3B 00 99 22 45 4E 54 52 59 20 53 45 53 53 49 |";.."ENTRY SESSI|
00004470: 4F 4E 20 49 53 20 43 4F 4D 50 4C 45 54 45 20 4F |ON IS COMPLETE O|
00004480: 52 20 41 20 4E 45 57 22 00 99 22 42 4C 41 4E 4B |R A NEW".."BLANK|
00004490: 20 53 43 52 45 45 4E 20 49 53 20 4E 45 45 44 45 | SCREEN IS NEEDE|
000044A0: 44 2E 20 D4 48 45 20 4F 50 45 52 41 54 4F 52 22 |D. .HE OPERATOR"|
000044B0: 00 99 22 4D 41 59 20 50 52 45 53 53 20 12 D2 C5 |.."MAY PRESS ...|
000044C0: D4 D5 D2 CE 92 20 54 4F 20 45 4E 54 45 52 20 41 |..... TO ENTER A|
000044D0: 20 27 4E 4F 27 20 52 45 50 4C 59 2C 20 54 48 41 | 'NO' REPLY, THA|
000044E0: 54 20 49 53 2C 22 3B 00 99 22 20 54 4F 20 43 4F |T IS,";.." TO CO|
000044F0: 4E 54 49 4E 55 45 20 57 49 54 48 20 44 41 54 41 |NTINUE WITH DATA|
00004500: 20 45 4E 54 52 59 2E 22 00 99 22 11 12 C5 4E 54 | ENTRY.".."...NT|
00004510: 45 52 20 59 4F 55 52 20 4D 45 53 53 41 47 45 20 |ER YOUR MESSAGE |
00004520: 42 45 4C 4F 57 20 4F 52 92 20 12 D2 C5 D4 D5 D2 |BELOW OR. ......|
00004530: CE 92 22 00 99 22 11 43 52 20 3D 20 22 00 99 22 |.."..".CR = ".."|
00004540: 27 C6 49 4E 49 53 48 45 44 20 57 49 54 48 20 45 |'.INISHED WITH E|
00004550: 4E 54 52 59 3F 20 28 D2 C5 D4 D5 D2 CE 3D 4E 4F |NTRY? (......=NO|
00004560: 29 27 22 00 99 22 11 3F 22 3A 81 D1 41 89 D6 B8 |)'"..".?":..A...|
00004570: 0E D1 48 89 23 D1 4F 4A D3 87 92 56 D6 01 05 96 |..H.#.OJ...V....|
00004580: 01 05 8A 00 2B 4F 27 8A 20 C6 49 4E 49 53 48 45 |....+O'. .INISHE|
00004590: 44 20 57 49 54 48 20 45 4E 54 52 59 3F 20 28 D2 |D WITH ENTRY? (.|
000045A0: C5 D4 D5 D2 CE 3D 4E 4F 29 D6 01 05 00 98 32 2C |.....=NO).....2,|
000045B0: 22 35 35 20 54 54 24 3D 22 3B 51 24 3B 54 54 24 |"55 TT$=";Q$;TT$|
000045C0: 3B 51 24 3A 48 AF 54 81 D4 02 BE 96 01 A6 B8 0F |;Q$:H.T.........|
000045D0: 81 01 96 01 98 B8 0F 02 42 02 BE 96 01 98 B8 0F |........B.......|
000045E0: D4 02 C5 96 01 A6 94 02 BE 94 02 C5 B8 16 96 01 |................|
000045F0: 98 2B 4F 0B 94 02 BE D4 02 B0 48 B1 FC 47 02 BE |.+O.......H..G..|
00004600: 80 D4 02 B0 4C 80 D4 01 DE 96 01 E5 B8 0F 82 2D |....L..........-|
00004610: 4F 03 4C 96 01 E5 81 B8 14 D6 01 EC 96 01 EC 8A |O.L.............|
00004620: 01 3C 2B 96 01 EC 8A 01 3E 2B 07 96 01 EC 8A 01 |.<+.....>+......|
00004630: 3D 2B 07 4F 13 96 01 E5 82 89 FF B8 16 D6 01 F3 |=+.O............|
00004640: 8D FF FF D4 01 DE 96 01 EC 8A 01 3C 2B 96 01 E5 |...........<+...|
00004650: 82 81 B8 16 8A 01 3E 2B 06 96 01 E5 B8 0F 82 2A |......>+.......*|
00004660: 06 4F 13 96 01 E5 83 89 FF B8 16 D6 01 F3 8D FF |.O..............|
00004670: FF D4 01 DE 4C 8D FF FF D4 01 DE 81 D4 01 AD 96 |....L...........|
00004680: 01 F3 B8 0F 42 01 AD 96 01 F3 94 01 AD 81 B8 16 |....B...........|
00004690: 8A 01 30 2D 96 01 F3 94 01 AD 81 B8 16 8A 01 39 |..0-...........9|
000046A0: 2A 07 4F 06 80 D4 01 DE 47 01 AD 4C 8D FF FF D4 |*.O.....G..L....|
000046B0: 01 DE 96 01 F3 B8 0F 83 2D 4F 07 80 D4 01 DE 4C |........-O.....L|
000046C0: 82 D4 01 AD 96 01 F3 B8 0F 81 02 42 01 AD 96 01 |...........B....|
000046D0: F3 94 01 AD 81 B8 16 92 B8 2B 4F 06 80 D4 01 DE |.........+O.....|
000046E0: 47 01 AD 96 01 F3 81 B8 14 92 B8 2E 96 01 F3 81 |G...............|
000046F0: B8 15 92 B8 2E 07 4F 06 80 D4 01 DE 4C 8D FF FF |......O.....L...|
00004700: D4 01 DE 80 D4 01 FA 81 D4 01 AD 96 01 F3 B8 0F |................|
00004710: 42 01 AD 96 01 F3 94 01 AD 81 B8 16 D6 02 01 96 |B...............|
00004720: 02 01 8A 01 30 2D 96 02 01 8A 01 39 2A 07 96 02 |....0-.....9*...|
00004730: 01 8A 01 2E 2E 06 96 02 01 8A 01 2D 2E 94 01 AD |...........-....|
00004740: 81 2A 07 06 4F 06 80 D4 01 DE 96 02 01 8A 01 2E |.*..O...........|
00004750: 2B 4F 0A 94 01 FA 81 01 D4 01 FA 47 01 AD 94 01 |+O.........G....|
00004760: FA 81 2A 4F 06 80 D4 01 DE 4C 96 02 A9 D6 01 05 |..*O.....L......|
00004770: 8A 00 D6 02 A9 81 D4 02 CC 96 01 05 B8 0F 42 02 |..............B.|
00004780: CC 96 01 05 94 02 CC 81 B8 16 8A 01 27 2B 4F 0E |............'+O.|
00004790: 96 02 A9 92 B8 01 D6 02 A9 48 B0 54 96 02 A9 96 |.........H.T....|
000047A0: 01 05 94 02 CC 81 B8 16 01 D6 02 A9 47 02 CC 4C |............G..L|
000047B0: 86 D4 01 D7 95 01 67 81 02 94 01 D7 04 D5 02 0F |......g.........|
000047C0: 80 D4 02 16 95 02 0F 42 02 16 94 01 D7 D4 02 1D |.......B........|
000047D0: 94 02 16 95 02 0F 2B 4F 10 95 01 67 94 02 16 94 |......+O...g....|
000047E0: 01 D7 03 02 D4 02 1D 00 98 32 2C 4F 4C AA 49 49 |.........2,OL.II|
000047F0: AC 34 3B 22 49 46 20 22 3B 4F 53 24 3B 22 3C 3D |.4;"IF ";OS$;"<=|
00004800: 22 3B 49 49 AC 4B 3B 22 4F 52 20 22 3B 4F 53 24 |";II.K;"OR ";OS$|
00004810: 3B 22 3E 22 3B 49 49 AC 4B AA 4C 3B 22 54 48 C5 |;">";II.K.L;"TH.|
00004820: 22 3B 4F 4C AA 49 49 AC 34 AA 34 00 98 32 2C 4F |";OL.II.4.4..2,O|
00004830: 4C AA 49 49 AC 34 AA 32 3B 22 4F 4E 20 22 3B 4F |L.II.4.2;"ON ";O|
00004840: 53 24 3B 22 2D 22 3B 49 49 AC 4B 3B 22 47 4F D3 |S$;"-";II.K;"GO.|
00004850: 22 3B 3A 81 D4 02 24 94 02 1D 42 02 24 00 98 32 |";:...$...B.$..2|
00004860: 2C C4 28 44 25 28 49 49 AC 4B AA 49 4A 29 AB 31 |,.(D%(II.K.IJ).1|
00004870: 30 29 3B 3A 94 02 24 94 02 1D 2D 4F 0A 00 98 32 |0);:..$...-O...2|
00004880: 2C 22 2C 22 3B 3A 47 02 24 00 98 32 3A 47 02 16 |,",";:G.$..2:G..|
00004890: 94 01 60 94 02 16 84 03 01 D4 01 C9 00 98 32 2C |..`...........2,|
000048A0: 45 4C 3B 22 52 45 4D 20 2A 22 3A 4C 4A AC 58 00 |EL;"REM *":LJ.X.|
000048B0: 99 C7 28 31 34 37 29 3A 81 D0 33 89 10 42 00 33 |..(147):..3..B.3|
000048C0: 00 A0 28 49 29 3A 46 4A 99 20 00 99 C7 28 31 34 |..(I):FJ. ...(14|
000048D0: 37 29 00 99 00 99 22 C3 4F 44 45 D7 52 49 54 45 |7)....".ODE.RITE|
000048E0: 52 20 57 49 4C 4C 20 4E 4F 57 20 42 45 47 49 4E |R WILL NOW BEGIN|
000048F0: 20 50 52 4F 44 55 43 49 4E 47 20 54 48 45 22 00 | PRODUCING THE".|
00004900: 99 22 50 52 4F 47 52 41 4D 20 59 4F 55 20 44 45 |."PROGRAM YOU DE|
00004910: 53 49 47 4E 45 44 2E 22 00 99 22 11 D7 48 45 4E |SIGNED.".."..HEN|
00004920: 20 59 4F 55 20 50 52 45 53 53 20 12 D2 C5 D4 D5 | YOU PRESS .....|
00004930: D2 CE 92 2C 20 41 20 53 50 45 43 49 41 4C 20 20 |..., A SPECIAL |
00004940: 20 20 20 20 20 20 4C 4F 41 44 49 4E 47 20 50 52 | LOADING PR|
00004950: 4F 47 52 41 4D 22 3B 00 99 22 20 57 49 4C 4C 20 |OGRAM";.." WILL |
00004960: 50 52 49 4E 54 20 45 41 43 48 20 4C 49 4E 45 20 |PRINT EACH LINE |
00004970: 4F 46 20 59 4F 55 52 20 47 45 4E 45 52 41 54 45 |OF YOUR GENERATE|
00004980: 44 20 50 52 4F 47 52 41 4D 20 4F 4E 20 54 48 45 |D PROGRAM ON THE|
00004990: 20 53 43 52 45 45 4E 22 3B 00 99 22 20 41 4E 44 | SCREEN";.." AND|
000049A0: 45 4E 54 45 52 20 49 54 20 49 4E 54 4F 20 4D 45 |ENTER IT INTO ME|
000049B0: 4D 4F 52 59 2E 20 20 C6 49 4E 41 4C 4C 59 20 49 |MORY. .INALLY I|
000049C0: 54 20 57 49 4C 4C 20 20 53 41 56 45 20 54 48 45 |T WILL SAVE THE|
000049D0: 20 50 52 4F 47 52 41 4D 22 3B 00 99 22 20 54 4F | PROGRAM";.." TO|
000049E0: 20 54 48 45 20 41 50 50 4C 49 43 41 54 49 4F 4E | THE APPLICATION|
000049F0: 20 20 20 20 20 44 49 53 4B 2E 20 20 D7 48 45 4E | DISK. .HEN|
00004A00: 20 59 4F 55 20 52 55 4E 20 54 48 45 20 50 52 4F | YOU RUN THE PRO|
00004A10: 47 52 41 4D 20 54 48 41 54 20 20 20 20 22 3B 00 |GRAM THAT ";.|
00004A20: 99 22 44 49 53 4B 20 4D 55 53 54 20 42 45 20 49 |."DISK MUST BE I|
00004A30: 4E 20 44 52 49 56 45 2E 20 D4 48 45 20 C6 C9 D2 |N DRIVE. .HE ...|
00004A40: D3 D4 20 D4 C9 CD C5 20 20 20 59 4F 55 20 52 55 |.. .... YOU RU|
00004A50: 4E 20 54 48 45 20 50 52 4F 47 52 41 4D 2C 20 59 |N THE PROGRAM, Y|
00004A60: 4F 55 20 22 3B 00 99 22 4D 55 53 54 20 43 48 4F |OU ";.."MUST CHO|
00004A70: 4F 53 45 20 20 20 20 4D 45 4E 55 20 53 45 4C 45 |OSE MENU SELE|
00004A80: 43 54 49 4F 4E 20 27 46 27 20 28 C6 49 4C 45 20 |CTION 'F' (.ILE |
00004A90: D0 52 45 50 41 52 41 54 49 4F 4E 29 20 54 4F 22 |.REPARATION) TO"|
00004AA0: 3B 00 99 22 43 52 45 41 54 45 20 59 4F 55 52 20 |;.."CREATE YOUR |
00004AB0: 44 41 54 41 20 46 49 4C 45 2E 22 00 99 C8 28 59 |DATA FILE."...(Y|
00004AC0: 24 2C 32 34 29 22 D0 52 45 53 53 20 12 D2 C5 D4 |$,24)".RESS ....|
00004AD0: D5 D2 CE 92 20 54 4F 20 43 4F 4E 54 49 4E 55 45 |.... TO CONTINUE|
00004AE0: 22 3B 00 A1 41 41 24 3A 92 79 89 0D B8 13 2E 4F |";..AA$:.y.....O|
00004AF0: 05 48 AD 1E 8D 03 D4 92 AA B8 0F 50 81 D0 33 92 |.H.........P..3.|
00004B00: AA B8 0F 42 00 33 8D 03 D4 90 33 01 92 AA 90 33 |...B.3....3....3|
00004B10: 81 B8 16 B8 12 50 47 00 33 00 99 22 93 11 11 11 |.....PG.3.."....|
00004B20: 11 11 11 11 11 11 11 20 20 20 20 20 D0 52 4F 47 |....... .ROG|
00004B30: 52 41 4D 20 4C 4F 41 44 49 4E 47 20 50 4C 45 41 |RAM LOADING PLEA|
00004B40: 53 45 20 57 41 49 54 2E 2E 2E 22 3A 8D 03 CA 8D |SE WAIT...":....|
00004B50: 02 86 B8 0E 50 8D 02 86 88 90 50 21 00 00 B8 0E |....P.....P!....|
00004B60: 50 00 99 22 13 11 11 4C CF 22 3B 51 24 3B 22 43 |P.."...L.";Q$;"C|
00004B70: 4F 4E 56 45 52 54 22 3B 51 24 3B 22 2C 38 22 00 |ONVERT";Q$;",8".|
00004B80: 99 22 11 11 11 11 52 55 4E 22 3A 49 89 C6 89 0B |."....RUN":I....|
00004B90: 50 8D 02 77 89 0D 50 8D 02 78 89 0D 50 00 99 22 |P..w..P..x..P.."|
00004BA0: 13 22 3B 3A 5E 03 00 80 3A 90 BF 80 2B 4F 05 48 |.";:^...:...+O.H|
00004BB0: AA ED 00 98 32 2C 22 32 30 31 30 30 49 46 46 3C |....2,"20100IFF<|
00004BC0: 3E 31 54 48 45 4E 32 30 31 39 30 22 00 98 32 2C |>1THEN20190"..2,|
00004BD0: 22 32 30 31 31 30 20 50 3D 30 3A 3F 3A 3F 22 3B |"20110 P=0:?:?";|
00004BE0: 51 24 3B 22 D3 45 4C 46 20 52 45 46 45 52 45 4E |Q$;".ELF REFEREN|
00004BF0: 43 49 4E 47 20 46 49 45 4C 44 53 22 3B 51 24 00 |CING FIELDS";Q$.|
00004C00: 98 32 2C 22 32 30 31 32 30 46 CF 4A 3D 31 54 4F |.2,"20120F.J=1TO|
00004C10: 22 3B 4E 53 3B 22 53 54 45 50 32 22 00 98 32 2C |";NS;"STEP2"..2,|
00004C20: 22 32 30 31 33 30 50 3D 50 2B 31 3A 49 46 43 53 |"20130P=P+1:IFCS|
00004C30: 25 28 50 29 3D 30 54 48 45 4E 32 30 31 33 30 22 |%(P)=0THEN20130"|
00004C40: 00 98 32 2C 22 32 30 31 34 30 50 52 49 4E 54 4A |..2,"20140PRINTJ|
00004C50: 2B 4E 46 2C 22 3B 51 24 3B 22 2D 20 22 3B 51 24 |+NF,";Q$;"- ";Q$|
00004C60: 3B 22 3B 43 50 24 28 50 29 3B 22 00 98 32 2C 22 |;";CP$(P);"..2,"|
00004C70: 32 30 31 35 30 49 46 4A 3D 22 3B 4E 53 3B 22 54 |20150IFJ=";NS;"T|
00004C80: 48 C5 32 30 31 38 30 22 00 98 32 2C 22 32 30 31 |H.20180"..2,"201|
00004C90: 36 30 50 3D 50 2B 31 3A 49 46 43 53 24 28 50 29 |60P=P+1:IFCS$(P)|
00004CA0: 3D 30 54 48 C5 32 30 31 36 30 22 00 98 32 2C 22 |=0TH.20160"..2,"|
00004CB0: 32 30 31 37 30 50 52 49 4E 54 54 41 42 28 31 39 |20170PRINTTAB(19|
00004CC0: 29 3B 4A 2B 31 2B 4E 46 3B 22 3B 51 24 3B 22 2D |);J+1+NF;";Q$;"-|
00004CD0: 20 22 3B 51 24 3B 22 3B 43 50 24 28 50 29 3B 22 | ";Q$;";CP$(P);"|
00004CE0: 00 98 32 2C 22 32 30 31 38 30 50 52 49 4E 54 3A |..2,"20180PRINT:|
00004CF0: 4E 45 58 54 4A 22 00 98 32 2C 22 32 30 31 39 30 |NEXTJ"..2,"20190|
00004D00: 52 45 4D 20 53 45 4C 46 20 52 45 46 20 46 49 45 |REM SELF REF FIE|
00004D10: 4C 44 22 3A 90 8E 80 2B 4F 05 48 A9 F3 00 98 32 |LD":...+O.H....2|
00004D20: 2C 22 32 30 32 30 30 49 46 46 3C 3E 32 54 48 45 |,"20200IFF<>2THE|
00004D30: 4E 32 30 32 36 30 22 00 98 32 2C 22 32 30 32 31 |N20260"..2,"2021|
00004D40: 30 3F 3A 3F 22 3B 51 24 3B 22 D0 52 4F 47 52 41 |0?:?";Q$;".ROGRA|
00004D50: 4D 20 C3 41 4C 43 55 4C 41 54 45 44 20 C6 49 45 |M .ALCULATED .IE|
00004D60: 4C 44 53 22 3B 51 24 00 98 32 2C 22 32 30 32 32 |LDS";Q$..2,"2022|
00004D70: 30 46 4F 52 4A 3D 31 54 4F 4E 43 53 54 45 50 32 |0FORJ=1TONCSTEP2|
00004D80: 22 00 98 32 2C 22 32 30 32 33 30 3F 4A 2B 4E 46 |"..2,"20230?J+NF|
00004D90: 3B 22 3B 51 24 3B 22 2D 20 22 3B 51 24 3B 22 3B |;";Q$;"- ";Q$;";|
00004DA0: 43 50 24 28 4A 29 3B 22 00 98 32 2C 22 32 30 32 |CP$(J);"..2,"202|
00004DB0: 34 30 49 46 4A 3C 4E 43 54 48 45 4E 3F 54 41 42 |40IFJ<NCTHEN?TAB|
00004DC0: 28 31 39 29 3B 4A 2B 4E 46 2B 31 3B 22 3B 51 24 |(19);J+NF+1;";Q$|
00004DD0: 3B 22 2D 20 22 3B 51 24 3B 22 3B 43 50 24 28 4A |;"- ";Q$;";CP$(J|
00004DE0: 2B 31 29 3B 22 00 98 32 2C 22 32 30 32 35 30 50 |+1);"..2,"20250P|
00004DF0: 52 49 4E 54 3A 4E 45 58 54 4A 22 00 98 32 2C 22 |RINT:NEXTJ"..2,"|
00004E00: 32 30 32 36 30 52 45 4D 20 50 43 53 22 3A 8D 52 |20260REM PCS":.R|
00004E10: 4E D4 01 0C 90 BF 80 2B 4F 17 00 98 32 2C 22 32 |N......+O...2,"2|
00004E20: 31 30 33 30 52 45 D4 22 3A 8D 52 44 D4 01 0C 90 |1030RE.":.RD....|
00004E30: BF 80 2B 4F 05 48 A8 74 00 98 32 2C 22 34 30 30 |..+O.H.t..2,"400|
00004E40: 39 35 46 CF 4A 3D 31 54 4F 4E 43 3A 49 46 43 53 |95F.J=1TONC:IFCS|
00004E50: 25 28 4A 29 3D 30 54 48 C5 34 30 31 34 30 22 00 |%(J)=0TH.40140".|
00004E60: 98 32 2C 22 34 30 31 30 30 49 46 52 4C 2B 31 35 |.2,"40100IFRL+15|
00004E70: 20 3E 20 38 30 54 48 C5 34 30 31 31 35 22 00 98 | > 80TH.40115"..|
00004E80: 32 2C 22 34 30 31 30 35 20 52 4C 3D 52 4C 2B 31 |2,"40105 RL=RL+1|
00004E90: 35 3A 43 45 28 4A 29 3D 56 C1 28 4D 49 44 24 28 |5:CE(J)=V.(MID$(|
00004EA0: 49 4E 24 2C 49 39 2C 31 35 29 29 3A 49 39 3D 49 |IN$,I9,15)):I9=I|
00004EB0: 39 2B 31 35 22 00 98 32 2C 22 34 30 31 31 30 47 |9+15"..2,"40110G|
00004EC0: CF 34 30 31 34 30 22 00 98 32 2C 22 34 30 31 31 |.40140"..2,"4011|
00004ED0: 35 20 53 55 24 3D 4D 49 44 24 28 49 4E 24 2C 49 |5 SU$=MID$(IN$,I|
00004EE0: 39 2C 38 30 2D 52 4C 29 3A 53 4E 3D 53 4E 2B 31 |9,80-RL):SN=SN+1|
00004EF0: 22 00 98 32 2C 22 34 30 31 32 35 47 4F D3 35 32 |"..2,"40125GO.52|
00004F00: 30 31 30 3A 49 4E D0 34 2C 49 4E 24 3A 47 4F D3 |010:IN.4,IN$:GO.|
00004F10: 34 33 31 30 30 22 00 98 32 2C 22 34 30 31 33 30 |43100"..2,"40130|
00004F20: 20 49 4E 24 3D 4C 45 C6 28 49 4E 24 2B 53 53 24 | IN$=LE.(IN$+SS$|
00004F30: 2C 38 30 29 3A 53 55 24 3D 53 55 24 2B 4C 45 C6 |,80):SU$=SU$+LE.|
00004F40: 28 49 4E 24 2C 31 35 2B 52 4C 2D 38 30 29 22 00 |(IN$,15+RL-80)".|
00004F50: 98 32 2C 22 34 30 31 33 35 20 43 45 28 4A 29 3D |.2,"40135 CE(J)=|
00004F60: 56 C1 28 53 55 24 29 3A 52 4C 3D 31 35 2D 28 38 |V.(SU$):RL=15-(8|
00004F70: 30 2D 52 4C 29 3A 49 39 3D 52 4C 2B 31 22 00 98 |0-RL):I9=RL+1"..|
00004F80: 32 2C 22 34 30 31 34 30 4E C5 4A 22 3A 90 8E 80 |2,"40140N.J":...|
00004F90: 2B 4F 05 48 A8 1A 00 98 32 2C 22 34 30 31 36 30 |+O.H....2,"40160|
00004FA0: 46 CF 50 5A 3D 31 54 4F 4E 43 3A 47 4F D3 32 38 |F.PZ=1TONC:GO.28|
00004FB0: 35 30 30 3A 4E C5 20 50 5A 22 00 98 32 2C 22 34 |500:N. PZ"..2,"4|
00004FC0: 30 31 37 30 46 CF 49 49 3D 31 54 4F 4E 43 3A 20 |0170F.II=1TONC: |
00004FD0: 43 44 28 49 49 29 20 3D 20 43 45 28 49 49 29 20 |CD(II) = CE(II) |
00004FE0: 3A 4E C5 49 49 22 3A 90 95 80 2B 4F 05 48 A7 BE |:N.II":...+O.H..|
00004FF0: 00 98 32 2C 22 34 30 31 38 30 46 CF 49 49 3D 31 |..2,"40180F.II=1|
00005000: 54 4F 4E 47 3A 47 4B 28 49 49 29 3D 47 4C 28 49 |TONG:GK(II)=GL(I|
00005010: 49 29 3A 4E C5 49 49 22 00 98 32 2C 22 34 32 30 |I):N.II"..2,"420|
00005020: 30 32 20 47 4F D3 20 31 33 31 30 30 20 3A 20 52 |02 GO. 13100 : R|
00005030: 45 4D 20 55 50 44 41 54 45 20 54 4F 54 41 4C 53 |EM UPDATE TOTALS|
00005040: 20 22 3A 90 BF 80 2B 4F 05 48 A6 65 00 98 32 2C | ":...+O.H.e..2,|
00005050: 22 34 32 30 38 33 46 CF 4A 3D 31 54 4F 4E 43 3A |"42083F.J=1TONC:|
00005060: 49 46 43 53 25 28 4A 29 3D 30 54 48 C5 34 32 31 |IFCS%(J)=0TH.421|
00005070: 31 33 22 00 98 32 2C 22 34 32 30 38 36 20 53 55 |13"..2,"42086 SU|
00005080: 24 3D 4C 45 C6 28 53 54 52 24 28 43 44 28 4A 29 |$=LE.(STR$(CD(J)|
00005090: 29 2B 53 53 24 2C 31 35 29 20 3A 49 46 52 4C 2B |)+SS$,15) :IFRL+|
000050A0: 31 35 20 3E 20 38 30 54 48 C5 34 32 30 39 36 22 |15 > 80TH.42096"|
000050B0: 00 98 32 2C 22 34 32 30 39 30 20 52 4C 3D 52 4C |..2,"42090 RL=RL|
000050C0: 2B 31 35 3A 4F 50 24 3D 4F 50 24 2B 53 55 24 22 |+15:OP$=OP$+SU$"|
000050D0: 00 98 32 2C 22 34 32 30 39 33 47 CF 34 32 31 31 |..2,"42093G.4211|
000050E0: 33 22 00 98 32 2C 22 34 32 30 39 36 20 4F 50 24 |3"..2,"42096 OP$|
000050F0: 3D 4F 50 24 2B 4C 45 C6 28 53 55 24 2C 38 30 2D |=OP$+LE.(SU$,80-|
00005100: 52 4C 29 3A 47 4F D3 34 33 30 30 30 3A 47 4F D3 |RL):GO.43000:GO.|
00005110: 35 32 30 31 30 3A 50 D2 34 2C 4F 50 24 22 00 98 |52010:P.4,OP$"..|
00005120: 32 2C 22 34 32 31 30 30 20 53 4E 3D 53 4E 2B 31 |2,"42100 SN=SN+1|
00005130: 22 00 98 32 2C 22 34 32 31 30 36 20 47 4F D3 35 |"..2,"42106 GO.5|
00005140: 32 30 31 30 3A 49 4E D0 34 2C 49 4E 24 3A 49 4E |2010:IN.4,IN$:IN|
00005150: 24 3D 4C 45 C6 28 49 4E 24 2B 53 53 24 2C 38 30 |$=LE.(IN$+SS$,80|
00005160: 29 22 00 98 32 2C 22 34 32 31 31 30 20 4F 50 24 |)"..2,"42110 OP$|
00005170: 3D 4D 49 44 24 28 53 55 24 2C 38 31 2D 52 4C 29 |=MID$(SU$,81-RL)|
00005180: 3A 52 4C 3D 31 35 2B 52 4C 2D 38 30 22 00 98 32 |:RL=15+RL-80"..2|
00005190: 2C 22 34 32 31 31 33 4E C5 4A 22 3A 90 8E 80 2B |,"42113N.J":...+|
000051A0: 4F 05 48 A5 C1 00 98 32 2C 22 33 33 30 37 30 20 |O.H....2,"33070 |
000051B0: 44 49 4D 20 43 50 24 28 4E 43 29 2C 43 58 25 28 |DIM CP$(NC),CX%(|
000051C0: 4E 43 29 2C 43 59 25 28 4E 43 29 2C 43 54 24 28 |NC),CY%(NC),CT$(|
000051D0: 4E 43 29 2C 43 44 28 4E 43 29 2C 43 45 28 4E 43 |NC),CD(NC),CE(NC|
000051E0: 29 2C 43 4C 25 28 4E 43 29 22 00 98 32 2C 22 33 |),CL%(NC)"..2,"3|
000051F0: 33 30 38 30 46 CF 49 3D 31 54 4F 4E 43 22 00 98 |3080F.I=1TONC"..|
00005200: 32 2C 22 33 33 30 39 30 20 49 4E D0 34 2C 43 50 |2,"33090 IN.4,CP|
00005210: 24 28 49 29 2C 43 58 25 28 49 29 2C 43 59 25 28 |$(I),CX%(I),CY%(|
00005220: 49 29 2C 43 4C 25 28 49 29 2C 43 54 24 28 49 29 |I),CL%(I),CT$(I)|
00005230: 22 00 98 32 2C 22 33 33 31 30 30 4E C5 49 22 3A |"..2,"33100N.I":|
00005240: 90 95 80 2B 4F 05 48 A5 23 00 98 32 2C 22 33 33 |...+O.H.#..2,"33|
00005250: 31 30 35 20 44 49 4D 20 47 50 24 28 4E 47 29 2C |105 DIM GP$(NG),|
00005260: 47 58 25 28 4E 47 29 2C 47 59 25 28 4E 47 29 2C |GX%(NG),GY%(NG),|
00005270: 47 54 24 28 4E 47 29 2C 47 4C 28 4E 47 29 2C 47 |GT$(NG),GL(NG),G|
00005280: 4B 28 4E 47 29 2C 47 4D 28 4E 47 29 2C 22 3B 00 |K(NG),GM(NG),";.|
00005290: 98 32 2C 22 47 4C 25 28 4E 47 29 22 00 98 32 2C |.2,"GL%(NG)"..2,|
000052A0: 22 33 33 31 30 37 46 CF 49 3D 31 54 4F 4E 47 3A |"33107F.I=1TONG:|
000052B0: 49 4E D0 34 2C 47 50 24 28 49 29 2C 47 58 25 28 |IN.4,GP$(I),GX%(|
000052C0: 49 29 2C 47 59 25 28 49 29 2C 47 4C 25 28 49 29 |I),GY%(I),GL%(I)|
000052D0: 2C 47 54 24 28 49 29 3A 4E C5 20 49 22 3A 90 9C |,GT$(I):N. I":..|
000052E0: 80 2B 4F 05 48 A4 AB 00 98 32 2C 22 33 33 31 32 |.+O.H....2,"3312|
000052F0: 30 20 44 49 4D 20 54 50 24 28 4E 54 29 2C 54 58 |0 DIM TP$(NT),TX|
00005300: 25 28 4E 54 29 2C 54 59 25 28 4E 54 29 22 00 98 |%(NT),TY%(NT)"..|
00005310: 32 2C 22 33 33 31 33 30 46 CF 49 3D 31 54 4F 4E |2,"33130F.I=1TON|
00005320: 54 22 00 98 32 2C 22 33 33 31 34 30 20 49 4E D0 |T"..2,"33140 IN.|
00005330: 34 2C 54 50 24 28 49 29 2C 54 58 25 28 49 29 2C |4,TP$(I),TX%(I),|
00005340: 54 59 25 28 49 29 22 00 98 32 2C 22 33 33 31 35 |TY%(I)"..2,"3315|
00005350: 30 4E C5 49 22 3A 94 02 32 80 2B 4F 05 48 A2 9A |0N.I":..2.+O.H..|
00005360: 00 99 22 93 11 11 11 11 11 20 20 20 20 20 20 C4 |.."...... .|
00005370: 4F 20 59 4F 55 20 57 49 53 48 20 54 4F 20 45 4E |O YOU WISH TO EN|
00005380: 54 45 52 20 44 41 54 45 53 20 49 4E 22 00 99 22 |TER DATES IN".."|
00005390: 20 20 20 20 20 20 C1 4D 45 52 49 43 41 4E 20 46 | .MERICAN F|
000053A0: 4F 52 4D 41 54 22 3B 00 99 22 28 4D 4D 2F 44 44 |ORMAT";.."(MM/DD|
000053B0: 2F 59 59 29 20 4F 52 22 00 99 22 20 20 20 20 20 |/YY) OR".." |
000053C0: 20 C5 55 52 4F 50 45 41 4E 20 46 4F 52 4D 41 54 | .UROPEAN FORMAT|
000053D0: 20 28 44 44 2F 4D 4D 2F 59 59 29 20 3F 22 00 99 | (DD/MM/YY) ?"..|
000053E0: 00 99 00 99 22 20 20 20 20 20 20 C5 4E 54 45 52 |...." .NTER|
000053F0: 20 12 41 92 20 4F 52 20 12 45 92 20 54 48 45 4E | .A. OR .E. THEN|
00005400: 20 12 D2 C5 D4 D5 D2 CE 92 22 3A 89 1F D1 41 89 | ........":...A.|
00005410: 0B D1 48 81 D1 4F 4A D3 87 92 56 D6 02 D3 96 02 |..H..OJ...V.....|
00005420: D3 8A 01 41 2E 96 02 D3 8A 01 45 2E 06 4F 05 48 |...A......E..O.H|
00005430: A3 F6 96 02 D3 8A 01 41 2B 4F 05 48 A2 9A 00 98 |.......A+O.H....|
00005440: 32 2C 22 33 35 35 30 30 20 44 24 3D 52 49 C7 28 |2,"35500 D$=RI.(|
00005450: 44 24 2C 32 29 2B 4D 49 44 24 28 44 24 2C 33 2C |D$,2)+MID$(D$,3,|
00005460: 32 29 2B 4C 45 C6 28 44 24 2C 32 29 3A 52 45 D4 |2)+LE.(D$,2):RE.|
00005470: 22 00 98 32 2C 22 34 39 33 35 30 49 46 58 58 3D |"..2,"49350IFXX=|
00005480: 32 39 41 4E 44 59 59 3D 32 54 48 45 4E 45 52 3D |29ANDYY=2THENER=|
00005490: 31 38 3A 3F 4C 45 46 54 24 28 59 24 2C 32 33 29 |18:?LEFT$(Y$,23)|
000054A0: 3B 22 3B 00 98 32 2C 51 24 3B 22 C4 41 59 20 4F |;";..2,Q$;".AY O|
000054B0: 55 54 20 4F 46 20 52 41 4E 47 45 22 00 98 32 2C |UT OF RANGE"..2,|
000054C0: 22 34 39 32 39 30 49 46 59 59 3C 31 20 4F 52 20 |"49290IFYY<1 OR |
000054D0: 59 59 3E 31 32 54 48 C5 3F 4C 45 C6 28 59 24 2C |YY>12TH.?LE.(Y$,|
000054E0: 32 33 29 3B 22 3B 00 98 32 2C 51 24 3B 22 CD 4F |23);";..2,Q$;".O|
000054F0: 4E 54 48 20 4F 55 54 20 4F 46 20 52 41 4E 47 45 |NTH OUT OF RANGE|
00005500: 22 3B 51 24 3B 22 3A 47 CF 34 39 30 30 30 22 00 |";Q$;":G.49000".|
00005510: 98 32 2C 22 34 39 33 30 30 49 46 58 58 3C 31 20 |.2,"49300IFXX<1 |
00005520: 4F 52 20 58 58 3E 44 54 25 28 59 59 29 20 54 48 |OR XX>DT%(YY) TH|
00005530: C5 3F 4C 45 C6 28 59 24 2C 32 33 29 3B 22 3B 00 |.?LE.(Y$,23);";.|
00005540: 98 32 2C 51 24 3B 22 C4 41 59 20 4F 55 54 20 4F |.2,Q$;".AY OUT O|
00005550: 46 20 52 41 4E 47 45 22 3B 51 24 3B 22 3A 47 CF |F RANGE";Q$;":G.|
00005560: 34 39 30 30 30 22 3A 90 95 80 2B 4F 05 48 9A 0E |49000":...+O.H..|
00005570: 00 98 32 2C 22 31 33 30 30 30 20 4F D0 33 2C 38 |..2,"13000 O.3,8|
00005580: 2C 33 2C 22 3B 51 24 3B 22 30 3A 22 3B 47 46 24 |,3,";Q$;"0:";GF$|
00005590: 3B 22 2C 4C 2C 22 51 24 3B 22 2B 43 C8 28 31 35 |;",L,"Q$;"+C.(15|
000055A0: 29 22 00 98 32 2C 22 31 33 30 30 35 46 CF 20 49 |)"..2,"13005F. I|
000055B0: 49 3D 31 54 4F 4E 47 22 00 98 32 2C 22 31 33 30 |I=1TONG"..2,"130|
000055C0: 31 30 20 49 4E D0 33 2C 47 4C 24 22 00 98 32 2C |10 IN.3,GL$"..2,|
000055D0: 22 31 33 30 32 30 20 47 4C 28 49 49 29 3D 56 C1 |"13020 GL(II)=V.|
000055E0: 28 47 4C 24 29 22 00 98 32 2C 22 31 33 30 33 30 |(GL$)"..2,"13030|
000055F0: 4E C5 49 49 22 00 98 32 2C 22 31 33 30 34 30 20 |N.II"..2,"13040 |
00005600: 43 4C CF 33 3A 52 45 D4 22 00 98 32 2C 22 31 33 |CL.3:RE."..2,"13|
00005610: 31 30 30 20 4F D0 33 2C 38 2C 33 2C 22 3B 51 24 |100 O.3,8,3,";Q$|
00005620: 3B 22 30 3A 22 3B 47 46 24 3B 22 2C 4C 2C 22 51 |;"0:";GF$;",L,"Q|
00005630: 24 3B 22 2B 43 C8 28 31 35 29 22 00 98 32 2C 22 |$;"+C.(15)"..2,"|
00005640: 31 33 31 30 32 46 CF 20 57 39 3D 31 54 4F 4E 46 |13102F. W9=1TONF|
00005650: 22 00 98 32 2C 22 31 33 31 30 35 20 49 4A 20 3D |"..2,"13105 IJ =|
00005660: 20 47 53 25 28 57 39 29 22 00 98 32 2C 22 31 33 | GS%(W9)"..2,"13|
00005670: 31 31 30 49 46 49 4A 20 3D 20 30 54 48 C5 31 33 |110IFIJ = 0TH.13|
00005680: 31 33 35 20 3A 20 52 45 4D 20 4E 4F 20 47 4C 4F |135 : REM NO GLO|
00005690: 42 41 4C 20 46 49 45 4C 44 22 00 98 32 2C 22 31 |BAL FIELD"..2,"1|
000056A0: 33 31 31 35 20 47 4F D3 35 32 31 35 30 22 00 98 |3115 GO.52150"..|
000056B0: 32 2C 22 31 33 31 31 38 49 46 41 4E 24 3D 22 3B |2,"13118IFAN$=";|
000056C0: 51 24 3B 22 55 22 3B 51 24 3B 22 54 48 C5 20 47 |Q$;"U";Q$;"TH. G|
000056D0: 4C 28 49 4A 29 3D 47 4B 28 49 4A 29 3A 47 CF 31 |L(IJ)=GK(IJ):G.1|
000056E0: 33 31 33 30 22 00 98 32 2C 22 31 33 31 32 30 49 |3130"..2,"13120I|
000056F0: 46 41 4E 24 3D 22 3B 51 24 3B 22 44 22 3B 51 24 |FAN$=";Q$;"D";Q$|
00005700: 3B 22 54 48 C5 20 47 4C 28 49 4A 29 20 3D 20 47 |;"TH. GL(IJ) = G|
00005710: 4C 28 49 4A 29 20 2D 20 56 C1 28 46 24 28 57 39 |L(IJ) - V.(F$(W9|
00005720: 29 29 22 00 98 32 2C 22 31 33 31 32 35 49 46 41 |))"..2,"13125IFA|
00005730: 4E 24 3D 22 3B 51 24 3B 22 45 22 3B 51 24 3B 22 |N$=";Q$;"E";Q$;"|
00005740: 54 48 C5 20 47 4C 28 49 4A 29 20 3D 20 47 4C 28 |TH. GL(IJ) = GL(|
00005750: 49 4A 29 20 2B 20 56 C1 28 47 24 28 57 39 29 29 |IJ) + V.(G$(W9))|
00005760: 22 00 98 32 2C 22 31 33 31 33 30 20 50 D2 33 2C |"..2,"13130 P.3,|
00005770: 53 54 52 24 28 47 4C 28 49 4A 29 29 22 00 98 32 |STR$(GL(IJ))"..2|
00005780: 2C 22 31 33 31 33 35 4E C5 57 39 22 3A 90 8E 80 |,"13135N.W9":...|
00005790: 2B 4F 05 48 9F 1E 00 98 32 2C 22 31 33 31 34 30 |+O.H....2,"13140|
000057A0: 46 CF 20 57 39 3D 31 54 4F 4E 43 22 00 98 32 2C |F. W9=1TONC"..2,|
000057B0: 22 31 33 31 34 35 20 49 4A 20 3D 20 47 53 25 28 |"13145 IJ = GS%(|
000057C0: 57 39 2B 4E 46 29 22 00 98 32 2C 22 31 33 31 35 |W9+NF)"..2,"1315|
000057D0: 30 49 46 49 4A 20 3D 20 30 54 48 C5 31 33 31 37 |0IFIJ = 0TH.1317|
000057E0: 35 20 3A 20 52 45 4D 20 4E 4F 20 47 4C 4F 42 41 |5 : REM NO GLOBA|
000057F0: 4C 20 46 49 45 4C 44 22 00 98 32 2C 22 31 33 31 |L FIELD"..2,"131|
00005800: 35 35 20 47 4F D3 35 32 31 35 30 22 00 98 32 2C |55 GO.52150"..2,|
00005810: 22 31 33 31 35 38 49 46 41 4E 24 3D 22 3B 51 24 |"13158IFAN$=";Q$|
00005820: 3B 22 55 22 3B 51 24 3B 22 54 48 C5 20 47 4C 28 |;"U";Q$;"TH. GL(|
00005830: 49 4A 29 3D 47 4B 28 49 4A 29 3A 47 CF 31 33 31 |IJ)=GK(IJ):G.131|
00005840: 37 30 22 00 98 32 2C 22 31 33 31 36 30 49 46 41 |70"..2,"13160IFA|
00005850: 4E 24 3D 22 3B 51 24 3B 22 44 22 3B 51 24 3B 22 |N$=";Q$;"D";Q$;"|
00005860: 54 48 C5 20 47 4C 28 49 4A 29 20 3D 20 47 4C 28 |TH. GL(IJ) = GL(|
00005870: 49 4A 29 20 2D 20 43 45 28 57 39 29 22 00 98 32 |IJ) - CE(W9)"..2|
00005880: 2C 22 31 33 31 36 35 49 46 41 4E 24 3D 22 3B 51 |,"13165IFAN$=";Q|
00005890: 24 3B 22 45 22 3B 51 24 3B 22 54 48 C5 20 47 4C |$;"E";Q$;"TH. GL|
000058A0: 28 49 4A 29 20 3D 20 47 4C 28 49 4A 29 20 2B 20 |(IJ) = GL(IJ) + |
000058B0: 43 44 28 57 39 29 22 00 98 32 2C 22 31 33 31 37 |CD(W9)"..2,"1317|
000058C0: 30 20 50 D2 33 2C 53 54 52 24 28 47 4C 28 49 4A |0 P.3,STR$(GL(IJ|
000058D0: 29 29 22 00 98 32 2C 22 31 33 31 37 35 4E C5 57 |))"..2,"13175N.W|
000058E0: 39 22 00 98 32 2C 22 31 33 31 38 30 20 43 4C CF |9"..2,"13180 CL.|
000058F0: 33 3A 52 45 D4 22 00 98 32 2C 22 31 33 32 30 33 |3:RE."..2,"13203|
00005900: 20 3F 43 C8 28 31 34 37 29 3B 4C 45 C6 28 59 24 | ?C.(147);LE.(Y$|
00005910: 2C 35 29 22 3B 00 98 32 2C 51 24 3B 22 D6 45 52 |,5)";..2,Q$;".ER|
00005920: 49 46 49 43 41 54 49 4F 4E 20 57 49 4C 4C 20 54 |IFICATION WILL T|
00005930: 41 4B 45 20 41 20 4C 49 54 54 4C 45 20 57 48 49 |AKE A LITTLE WHI|
00005940: 4C 45 22 3B 51 24 00 98 32 2C 22 31 33 32 30 35 |LE";Q$..2,"13205|
00005950: 46 CF 49 49 3D 31 54 4F 4E 47 22 00 98 32 2C 22 |F.II=1TONG"..2,"|
00005960: 31 33 32 31 30 20 47 4D 28 49 49 29 20 3D 20 30 |13210 GM(II) = 0|
00005970: 20 3A 20 47 4B 28 49 49 29 20 3D 20 47 4C 28 49 | : GK(II) = GL(I|
00005980: 49 29 22 00 98 32 2C 22 31 33 32 31 32 4E C5 49 |I)"..2,"13212N.I|
00005990: 49 22 00 98 32 2C 22 31 33 32 31 35 46 CF 20 52 |I"..2,"13215F. R|
000059A0: 50 3D 31 54 4F 56 41 4C 28 4E 58 52 24 29 2D 32 |P=1TOVAL(NXR$)-2|
000059B0: 22 00 98 32 2C 22 31 33 32 32 30 20 47 4F D3 20 |"..2,"13220 GO. |
000059C0: 34 30 30 30 35 3A 52 45 4D 20 4E 45 58 54 20 52 |40005:REM NEXT R|
000059D0: 45 43 4F 52 44 22 00 98 32 2C 22 31 33 32 32 35 |ECORD"..2,"13225|
000059E0: 49 46 4C 45 C6 28 46 24 28 31 29 2C 31 29 20 3D |IFLE.(F$(1),1) =|
000059F0: 20 43 C8 28 32 35 35 29 54 48 C5 31 33 32 35 35 | C.(255)TH.13255|
00005A00: 22 00 98 32 2C 22 31 33 32 33 30 46 CF 20 49 4A |"..2,"13230F. IJ|
00005A10: 3D 31 54 4F 4E 46 22 00 98 32 2C 22 31 33 32 34 |=1TONF"..2,"1324|
00005A20: 30 49 46 47 53 25 28 49 4A 29 20 3E 20 30 54 48 |0IFGS%(IJ) > 0TH|
00005A30: C5 47 4D 28 47 53 25 28 49 4A 29 29 20 3D 20 47 |.GM(GS%(IJ)) = G|
00005A40: 4D 28 47 53 25 28 49 4A 29 29 2B 56 C1 28 46 24 |M(GS%(IJ))+V.(F$|
00005A50: 28 49 4A 29 29 22 00 98 32 2C 22 31 33 32 35 30 |(IJ))"..2,"13250|
00005A60: 4E C5 49 4A 22 00 98 32 2C 22 31 33 32 35 35 4E |N.IJ"..2,"13255N|
00005A70: C5 52 50 22 00 98 32 2C 22 31 33 32 35 37 46 CF |.RP"..2,"13257F.|
00005A80: 49 49 3D 31 54 4F 4E 47 22 00 98 32 2C 22 31 33 |II=1TONG"..2,"13|
00005A90: 32 36 30 20 47 4C 28 49 49 29 20 3D 20 47 4D 28 |260 GL(II) = GM(|
00005AA0: 49 49 29 22 00 98 32 2C 22 31 33 32 37 30 4E C5 |II)"..2,"13270N.|
00005AB0: 49 49 22 3A 90 8E 80 2B 4F 05 48 9C 07 00 98 32 |II":...+O.H....2|
00005AC0: 2C 22 31 33 32 37 35 46 CF 20 49 4A 3D 31 54 4F |,"13275F. IJ=1TO|
00005AD0: 4E 43 22 00 98 32 2C 22 31 33 32 38 30 20 4A 4B |NC"..2,"13280 JK|
00005AE0: 20 3D A0 47 53 25 28 49 4A 2B 4E 46 29 22 00 98 | =.GS%(IJ+NF)"..|
00005AF0: 32 2C 22 31 33 32 38 35 49 46 4A 4B 20 3D 20 30 |2,"13285IFJK = 0|
00005B00: 54 48 C5 31 33 33 35 30 22 00 98 32 2C 22 31 33 |TH.13350"..2,"13|
00005B10: 32 39 30 46 CF 20 52 50 3D 31 54 4F 56 41 4C 28 |290F. RP=1TOVAL(|
00005B20: 4E 58 52 24 29 2D 32 22 00 98 32 2C 22 31 33 33 |NXR$)-2"..2,"133|
00005B30: 30 30 20 47 4F D3 20 34 30 30 30 35 22 00 98 32 |00 GO. 40005"..2|
00005B40: 2C 22 31 33 33 31 30 49 46 4C 45 C6 28 46 24 28 |,"13310IFLE.(F$(|
00005B50: 31 29 2C 31 29 20 3D 20 43 C8 28 32 35 35 29 54 |1),1) = C.(255)T|
00005B60: 48 C5 31 33 33 34 30 22 00 98 32 2C 22 31 33 33 |H.13340"..2,"133|
00005B70: 32 30 46 CF 20 50 5A 3D 31 54 4F 49 4A 3A 47 4F |20F. PZ=1TOIJ:GO|
00005B80: D3 32 38 35 30 30 3A 4E C5 50 5A 22 00 98 32 2C |.28500:N.PZ"..2,|
00005B90: 22 31 33 33 33 30 20 47 4D 28 4A 4B 29 20 3D 20 |"13330 GM(JK) = |
00005BA0: 47 4D 28 4A 4B 29 20 2B 20 43 45 28 49 4A 29 22 |GM(JK) + CE(IJ)"|
00005BB0: 00 98 32 2C 22 31 33 33 34 30 4E C5 52 50 22 00 |..2,"13340N.RP".|
00005BC0: 98 32 2C 22 31 33 33 34 35 20 47 4C 28 47 53 25 |.2,"13345 GL(GS%|
00005BD0: 28 49 4A 2B 4E 46 29 29 20 3D A0 47 4D 28 47 53 |(IJ+NF)) =.GM(GS|
00005BE0: 25 28 49 4A 2B 4E 46 29 29 22 00 98 32 2C 22 31 |%(IJ+NF))"..2,"1|
00005BF0: 33 33 35 30 4E C5 49 4A 22 00 98 32 2C 22 31 33 |3350N.IJ"..2,"13|
00005C00: 33 36 30 3F 43 C8 28 31 34 37 29 3B 4C 45 C6 28 |360?C.(147);LE.(|
00005C10: 59 24 2C 33 29 3B 22 00 98 32 2C 22 31 33 33 36 |Y$,3);"..2,"1336|
00005C20: 35 20 3F 22 3B 51 24 3B 22 C6 49 45 4C 44 22 3B |5 ?";Q$;".IELD";|
00005C30: 51 24 3B 22 3B 54 C1 31 35 29 3B 22 3B 51 24 3B |Q$;";T.15);";Q$;|
00005C40: 22 CF 4C 44 20 D4 4F 54 41 4C 22 3B 51 24 3B 00 |".LD .OTAL";Q$;.|
00005C50: 98 32 2C 22 3B 54 C1 32 35 29 3B 22 3B 51 24 3B |.2,";T.25);";Q$;|
00005C60: 22 D6 45 52 49 46 49 45 44 20 D4 4F 54 41 4C 22 |".ERIFIED .OTAL"|
00005C70: 3B 51 24 3B 22 3A 20 3F 22 00 98 32 2C 22 31 33 |;Q$;": ?"..2,"13|
00005C80: 33 37 30 46 CF 20 49 4A 3D 31 54 4F 4E 47 22 00 |370F. IJ=1TONG".|
00005C90: 98 32 2C 22 31 33 33 38 30 3F 47 50 24 28 49 4A |.2,"13380?GP$(IJ|
00005CA0: 29 3B 54 C1 31 35 29 3B 47 4B 28 49 4A 29 3B 54 |);T.15);GK(IJ);T|
00005CB0: C1 32 35 29 3B 47 4D 28 49 4A 29 22 00 98 32 2C |.25);GM(IJ)"..2,|
00005CC0: 22 31 33 33 39 30 49 46 47 4B 28 49 4A 29 20 3D |"13390IFGK(IJ) =|
00005CD0: 20 47 4D 28 49 4A 29 54 48 C5 31 33 34 33 30 22 | GM(IJ)TH.13430"|
00005CE0: 00 98 32 2C 22 31 33 34 30 30 3F 22 3B 51 24 3B |..2,"13400?";Q$;|
00005CF0: 22 2A 20 4F 4C 44 20 54 4F 54 41 4C 20 43 4F 52 |"* OLD TOTAL COR|
00005D00: 52 45 43 54 45 44 20 2A 22 3B 51 24 3B 22 3B 22 |RECTED *";Q$;";"|
00005D10: 00 98 32 2C 22 31 33 34 31 30 4F D0 33 2C 38 2C |..2,"13410O.3,8,|
00005D20: 33 2C 22 3B 51 24 3B 22 30 3A 22 3B 47 46 24 3B |3,";Q$;"0:";GF$;|
00005D30: 22 2C 4C 2C 22 51 24 3B 22 2B 43 C8 28 31 35 29 |",L,"Q$;"+C.(15)|
00005D40: 3A 22 00 98 32 2C 22 31 33 34 32 30 20 47 4F D3 |:"..2,"13420 GO.|
00005D50: 35 32 31 35 30 3A 50 D2 33 2C 47 4C 28 49 4A 29 |52150:P.3,GL(IJ)|
00005D60: 3A 43 4C CF 33 22 00 98 32 2C 22 31 33 34 33 30 |:CL.3"..2,"13430|
00005D70: 3F 22 00 98 32 2C 22 31 33 34 34 30 4E C5 49 4A |?"..2,"13440N.IJ|
00005D80: 22 00 98 32 2C 22 31 33 34 34 35 3F 4C 45 C6 28 |"..2,"13445?LE.(|
00005D90: 59 24 2C 32 34 29 3B 22 3B 51 24 3B 22 D0 52 45 |Y$,24);";Q$;".RE|
00005DA0: 53 53 20 12 D2 C5 D4 D5 D2 CE 92 20 54 4F 20 43 |SS ........ TO C|
00005DB0: 4F 4E 54 49 4E 55 45 22 3B 51 24 00 98 32 2C 22 |ONTINUE";Q$..2,"|
00005DC0: 31 33 34 34 38 20 47 45 54 20 41 41 24 3A 49 46 |13448 GET AA$:IF|
00005DD0: 41 41 24 3C 3E 43 C8 28 31 33 29 54 48 C5 31 33 |AA$<>C.(13)TH.13|
00005DE0: 34 34 38 22 00 98 32 2C 22 31 33 34 35 30 52 45 |448"..2,"13450RE|
00005DF0: D4 22 3A 90 87 90 8E 01 81 2B 4F 05 48 99 FE 48 |.":......+O.H..H|
00005E00: 99 EE 00 98 32 2C 22 33 35 30 34 30 20 53 46 3D |....2,"35040 SF=|
00005E10: 31 22 3A 90 95 80 2B 4F 05 48 99 BC 00 98 32 2C |1":...+O.H....2,|
00005E20: 22 33 35 31 38 30 46 CF 49 41 3D 31 54 4F 4E 47 |"35180F.IA=1TONG|
00005E30: 3A 47 4B 28 49 41 29 3D 47 4C 28 49 41 29 3A 4E |:GK(IA)=GL(IA):N|
00005E40: C5 49 41 22 3A 90 8E 80 2B 4F 05 48 99 22 00 98 |.IA":...+O.H."..|
00005E50: 32 2C 22 33 35 33 31 33 20 49 42 25 3D 53 46 2D |2,"35313 IB%=SF-|
00005E60: 4E 46 2B 31 20 3A 49 46 49 42 25 3C 31 54 48 C5 |NF+1 :IFIB%<1TH.|
00005E70: 49 42 25 3D 31 22 00 98 32 2C 22 33 35 33 31 35 |IB%=1"..2,"35315|
00005E80: 49 46 49 42 25 3E 4E 43 54 48 C5 33 35 33 33 30 |IFIB%>NCTH.35330|
00005E90: 22 00 98 32 2C 22 33 35 33 32 30 46 CF 50 5A 3D |"..2,"35320F.PZ=|
00005EA0: 49 42 25 54 4F 4E 43 3A 47 4F D3 32 38 35 30 30 |IB%TONC:GO.28500|
00005EB0: 3A 4E C5 50 5A 22 00 98 32 2C 22 33 35 33 33 30 |:N.PZ"..2,"35330|
00005EC0: 46 CF 49 41 3D 31 54 4F 4E 43 3A 43 44 28 49 41 |F.IA=1TONC:CD(IA|
00005ED0: 29 3D 43 45 28 49 41 29 3A 4E C5 49 41 22 3A 4C |)=CE(IA):N.IA":L|
00005EE0: 00 A0 31 35 00 9F 31 35 2C 38 2C 31 35 00 9F 32 |..15..15,8,15..2|
00005EF0: 2C 38 2C 32 2C 22 4E 45 57 4D 45 4E 55 22 00 84 |,8,2,"NEWMENU"..|
00005F00: 31 35 2C 45 52 24 2C 45 4D 24 3A 96 02 71 B8 11 |15,ER$,EM$:..q..|
00005F10: D0 72 00 A0 32 00 A0 31 35 3A 90 72 80 2B 4F 03 |.r..2..15:.r.+O.|
00005F20: 4C 00 99 22 93 22 C8 28 59 24 2C 31 30 29 22 20 |L..".".(Y$,10)" |
00005F30: D0 4C 41 43 45 20 54 48 45 20 12 C3 4F 44 45 D7 |.LACE THE ..ODE.|
00005F40: 52 49 54 45 52 92 20 44 49 53 4B 20 49 4E 20 44 |RITER. DISK IN D|
00005F50: 52 49 56 45 20 30 22 00 99 C8 28 59 24 2C 32 33 |RIVE 0"...(Y$,23|
00005F60: 29 A3 38 29 22 D0 52 45 53 53 20 12 D2 C5 D4 D5 |).8)".RESS .....|
00005F70: D2 CE 92 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 |... TO CONTINUE"|
00005F80: 00 A1 41 41 24 3A 92 79 89 0D B8 13 2E 4F 05 48 |..AA$:.y.....O.H|
00005F90: 98 80 48 99 20 00 99 C8 28 59 24 2C 32 34 29 3B |..H. ...(Y$,24);|
00005FA0: 22 D0 52 45 53 53 20 12 D2 C5 D4 D5 D2 CE 92 20 |".RESS ........ |
00005FB0: 54 4F 20 43 4F 4E 54 49 4E 55 45 2C 20 12 46 31 |TO CONTINUE, .F1|
00005FC0: 92 20 54 4F 20 50 52 49 4E 54 22 00 A1 41 41 24 |. TO PRINT"..AA$|
00005FD0: 3A 92 79 89 0D B8 13 2E 92 79 89 85 B8 13 2E 06 |:.y......y......|
00005FE0: 4F 05 48 98 35 92 79 89 0D B8 13 2B 4F 03 4C 00 |O.H.5.y....+O.L.|
00005FF0: 99 C8 28 59 24 2C 32 33 29 3B 53 50 24 3B 53 50 |..(Y$,23);SP$;SP|
00006000: 24 3B C8 28 59 24 2C 32 34 29 3B 22 C9 53 20 59 |$;.(Y$,24);".S Y|
00006010: 4F 55 52 20 50 52 49 4E 54 45 52 20 41 20 C3 4F |OUR PRINTER A .O|
00006020: 4D 4D 4F 44 4F 52 45 3F 20 22 3B 3A 89 1E D1 41 |MMODORE? ";:...A|
00006030: 89 18 D1 48 81 D1 4F 4A D3 87 92 56 8A 01 59 2E |...H..OJ...V..Y.|
00006040: 92 56 8A 01 4E 2E 06 4F 05 48 97 D5 92 56 8A 01 |.V..N..O.H...V..|
00006050: 59 2B 4F 0A 8D 03 40 87 50 48 97 9E 8D 03 40 89 |Y+O...@.PH....@.|
00006060: 08 50 00 A0 34 00 9F 34 2C 34 00 98 34 2C 22 22 |.P..4..4,4..4,""|
00006070: 3A B8 1A 80 2E 4F 21 00 99 C8 28 59 24 2C 32 33 |:....O!...(Y$,23|
00006080: 29 22 20 20 D0 52 49 4E 54 45 52 20 4E 4F 54 20 |)" .RINTER NOT |
00006090: 52 45 41 44 59 22 3A B8 1A 80 2E 4F 23 81 D4 02 |READY":....O#...|
000060A0: DA 8D 04 B0 42 02 DA 46 00 99 C8 28 59 24 2C 32 |....B..F...(Y$,2|
000060B0: 33 29 3B 53 50 24 3B 00 A0 34 3A 48 98 6B 00 99 |3);SP$;..4:H.k..|
000060C0: C8 28 59 24 2C 32 34 29 3B 53 50 24 00 99 C8 28 |.(Y$,24);SP$...(|
000060D0: 59 24 2C 32 34 29 3B 22 20 20 20 20 D0 52 49 4E |Y$,24);" .RIN|
000060E0: 54 49 4E 47 20 2E 2E 2E 22 3B 00 A0 34 3A 8D 03 |TING ...";..4:..|
000060F0: 3C 51 3A 00 98 34 00 A0 34 3A 48 98 6B 00 9F 31 |<Q:..4..4:H.k..1|
00006100: 2C 44 56 2C 30 2C 22 24 22 AA 44 52 24 3A 8A 00 |,DV,0,"$".DR$:..|
00006110: D6 02 E1 80 D4 02 E8 00 A1 23 31 2C 41 24 2C 41 |.........#1,A$,A|
00006120: 24 2C 41 24 2C 41 24 2C 41 24 2C 41 24 3A 89 13 |$,A$,A$,A$,A$:..|
00006130: D4 02 1D 4A 95 8C 96 01 A6 D6 02 EF 83 D4 02 1D |...J............|
00006140: 4A 95 8C 96 01 A6 D6 02 8D 83 D4 02 1D 4A 95 8C |J............J..|
00006150: 96 01 A6 D6 01 C2 4A 95 52 81 D0 33 83 42 00 33 |......J.R..3.B.3|
00006160: 00 A1 23 31 2C 42 24 3A 47 00 33 81 D4 01 AD 89 |..#1,B$:G.3.....|
00006170: FF 42 01 AD 94 02 F6 81 01 D4 02 F6 94 02 F6 89 |.B..............|
00006180: 10 2A 4F 05 4A 94 D6 89 1E D4 02 1D 4A 94 80 B8 |.*O.J.......J...|
00006190: 1A 80 2E 4F 05 48 96 00 96 02 E1 B8 0F 83 2A 4F |...O.H........*O|
000061A0: 0D 96 02 E1 81 B8 14 B8 12 D4 02 9B 96 02 E1 82 |................|
000061B0: 89 FF B8 16 D6 02 E1 96 02 E1 B8 0F 84 2B 4F 20 |.............+O |
000061C0: 94 02 9B 96 02 E1 81 B8 14 B8 12 8D 01 00 03 01 |................|
000061D0: D4 02 9B 96 02 E1 82 89 FF B8 16 D6 02 E1 94 02 |................|
000061E0: E8 94 02 9B 01 D4 02 E8 00 99 C8 28 42 24 AA 53 |...........(B$.S|
000061F0: 50 24 2C 31 38 29 2C 54 24 2C 42 4C 3A 47 01 AD |P$,18),T$,BL:G..|
00006200: 8A 0B 42 4C 4F 43 4B 53 46 52 45 45 2E D6 01 A6 |..BLOCKSFREE....|
00006210: 8D 02 98 94 02 E8 02 D4 02 E8 94 02 E8 D4 02 9B |................|
00006220: 80 B8 13 D6 02 E1 00 99 C8 28 42 24 AA 53 50 24 |.........(B$.SP$|
00006230: 2C 31 38 29 2C 54 24 2C 42 4C 3A 94 02 E8 8D 02 |,18),T$,BL:.....|
00006240: 98 2B 4F 24 00 99 22 11 20 20 20 20 20 2A 2A 2A |.+O$..". ***|
00006250: 20 CE 4F 20 46 49 4C 45 53 20 4F 4E 20 44 49 53 | .O FILES ON DIS|
00006260: 4B 20 2A 2A 2A 22 00 A0 31 3A 8D FF FF D4 02 F6 |K ***"..1:......|
00006270: 4A 94 D6 4C 8A 00 D6 01 A6 81 D0 33 94 02 1D 42 |J..L.......3...B|
00006280: 00 33 00 A1 23 31 2C 41 24 3A 96 01 98 89 20 B8 |.3..#1,A$:.... .|
00006290: 13 2B 96 01 98 89 A0 B8 13 2B 07 4F 05 48 95 56 |.+.......+.O.H.V|
000062A0: 96 01 A6 96 01 98 01 D6 01 A6 47 00 33 4C 00 99 |..........G.3L..|
000062B0: C8 28 59 24 2C 32 29 22 93 20 C4 49 53 4B 20 CE |.(Y$,2)". .ISK .|
000062C0: 41 4D 45 3A 20 22 3B 4E 24 00 99 C8 28 59 24 2C |AME: ";N$...(Y$,|
000062D0: 33 29 22 20 C9 C4 3A 20 22 3B 49 24 3B A6 35 29 |3)" ..: ";I$;.5)|
000062E0: 3B 22 CF 50 45 52 41 54 49 4E 47 20 D3 59 53 54 |;".PERATING .YST|
000062F0: 45 4D 3A 20 22 4F 53 24 00 99 C8 28 59 24 2C 35 |EM: "OS$...(Y$,5|
00006300: 29 22 20 C6 49 4C 45 20 CE 41 4D 45 22 3B A6 31 |)" .ILE .AME";.1|
00006310: 30 29 3B 22 D4 59 50 45 22 3B A6 37 29 3B 22 C2 |0);".YPE";.7);".|
00006320: 4C 4F 43 4B 53 22 00 99 3A 4C 00 99 C8 28 59 24 |LOCKS"..:L...(Y$|
00006330: 2C 32 34 29 22 D0 52 45 53 53 20 12 D2 C5 D4 D5 |,24)".RESS .....|
00006340: D2 CE 92 20 54 4F 20 43 4F 4E 54 49 4E 55 45 2E |... TO CONTINUE.|
00006350: 22 3B 00 A1 49 4E 24 3A 92 56 8A 00 2B 4F 05 48 |";..IN$:.V..+O.H|
00006360: 94 AE 92 56 89 0D B8 13 2E 4F 05 48 94 AE 94 02 |...V.....O.H....|
00006370: F6 8D FF FF 2B 4F 03 4C 80 D4 02 F6 4A 95 52 4C |....+O.L....J.RL|
00006380: 8A 00 D6 01 A6 8A 00 D6 02 E1 80 D4 02 FD 81 D0 |................|
00006390: 33 94 02 1D 42 00 33 00 A1 23 31 2C 41 24 3A 96 |3...B.3..#1,A$:.|
000063A0: 01 98 89 20 B8 13 2B 96 01 98 89 A0 B8 13 2B 07 |... ..+.......+.|
000063B0: 4F 05 48 94 03 96 01 98 89 22 B8 13 2B 4F 0A 94 |O.H......"..+O..|
000063C0: 02 FD 81 01 D4 02 FD 94 02 FD 81 2B 4F 0F 96 01 |...........+O...|
000063D0: A6 96 01 98 01 D6 01 A6 48 94 03 94 02 FD 82 2B |........H......+|
000063E0: 4F 13 96 01 A6 96 01 98 01 D6 01 A6 80 D4 02 FD |O...............|
000063F0: 48 94 03 96 02 E1 96 01 98 01 D6 02 E1 47 00 33 |H............G.3|
00006400: 00 A1 23 31 2C 41 24 2C 41 24 3A 4C 00 9F 31 35 |..#1,A$,A$:L..15|
00006410: 2C 38 2C 31 35 00 9F 35 2C 38 2C 35 2C 22 23 22 |,8,15..5,8,5,"#"|
00006420: 00 98 31 35 2C 22 42 2D 52 3A 22 35 3B 30 3B 31 |..15,"B-R:"5;0;1|
00006430: 3B 31 30 3A 4A CE AC 90 72 89 1D 2E 4F 05 48 93 |;10:J...r...O.H.|
00006440: 98 00 98 31 35 2C 22 42 2D 52 3A 22 35 3B 30 3B |...15,"B-R:"5;0;|
00006450: 31 3B 31 35 3A 4A CE AC 90 72 89 1D 2B 4F 0B 00 |1;15:J...r..+O..|
00006460: A0 35 00 A0 31 35 3A 4C 00 A0 35 00 A0 31 35 3A |.5..15:L..5..15:|
00006470: 88 90 7C E2 00 00 51 3A 5E 03 00 80 00 00 00 44 |..|...Q:^......D|
00006480: 42 00 00 00 00 00 44 D2 00 00 00 00 00 44 56 00 |B.....D......DV.|
00006490: 00 00 00 00 43 33 00 00 00 00 00 59 80 00 00 00 |....C3.....Y....|
000064A0: 00 00 58 80 00 00 00 00 00 53 D0 00 00 00 00 00 |..X......S......|
000064B0: 49 00 00 00 00 00 00 44 D4 00 00 00 00 00 D8 80 |I......D........|
000064C0: 00 00 00 00 00 D9 80 00 00 00 00 00 CC 80 00 00 |................|
000064D0: 00 00 00 49 CE 00 00 00 00 00 4E C1 00 00 00 00 |...I......N.....|
000064E0: 00 50 80 00 00 00 00 00 53 C6 00 00 00 00 00 45 |.P......S......E|
000064F0: 53 00 00 00 00 00 41 C1 00 00 00 00 00 5A 46 00 |S.....A......ZF.|
00006500: 00 00 00 00 4E 46 00 00 00 00 00 4E 43 00 00 00 |....NF.....NC...|
00006510: 00 00 4E 47 00 00 00 00 00 4E 54 00 00 00 00 00 |..NG.....NT.....|
00006520: 47 C4 00 00 00 00 00 50 CE 00 00 00 00 00 47 C6 |G......P......G.|
00006530: 00 00 00 00 00 51 80 00 00 00 00 00 4E 53 00 00 |.....Q......NS..|
00006540: 00 00 00 47 42 00 00 00 00 00 52 53 00 00 00 00 |...GB.....RS....|
00006550: 00 42 54 00 00 00 00 00 4D 58 00 00 00 00 00 4D |.BT.....MX.....M|
00006560: 53 00 00 00 00 00 42 46 00 00 00 00 00 46 52 00 |S.....BF.....FR.|
00006570: 00 00 00 00 51 44 00 00 00 00 00 46 53 00 00 00 |....QD.....FS...|
00006580: 00 00 54 D4 00 00 00 00 00 4C 4E 00 00 00 00 00 |..T......LN.....|
00006590: 53 4C 00 00 00 00 00 58 00 00 00 00 00 00 41 00 |SL.....X......A.|
000065A0: 00 00 00 00 00 4B 46 00 00 00 00 00 CF C6 00 00 |.....KF.........|
000065B0: 00 00 00 4E C6 00 00 00 00 00 4E C3 00 00 00 00 |...N......N.....|
000065C0: 00 4A 4B 00 00 00 00 00 D3 C2 00 00 00 00 00 53 |.JK............S|
000065D0: D2 00 00 00 00 00 D0 80 00 00 00 00 00 4F 4C 00 |.............OL.|
000065E0: 00 00 00 00 D5 CC 00 00 00 00 00 53 C9 00 00 00 |...........S....|
000065F0: 00 00 43 80 00 00 00 00 00 43 D0 00 00 00 00 00 |..C......C......|
00006600: 45 D8 00 00 00 00 00 45 46 00 00 00 00 00 45 C6 |E......EF.....E.|
00006610: 00 00 00 00 00 41 80 00 00 00 00 00 53 55 00 00 |.....A......SU..|
00006620: 00 00 00 42 80 00 00 00 00 00 4A 00 00 00 00 00 |...B......J.....|
00006630: 00 53 52 00 00 00 00 00 4F 00 00 00 00 00 00 4F |.SR.....O......O|
00006640: D3 00 00 00 00 00 45 4C 00 00 00 00 00 4E 00 00 |......EL.....N..|
00006650: 00 00 00 00 4B 00 00 00 00 00 00 4F 4B 00 00 00 |....K......OK...|
00006660: 00 00 42 CA 00 00 00 00 00 4C 80 00 00 00 00 00 |..B......L......|
00006670: 42 CB 00 00 00 00 00 44 43 00 00 00 00 00 4D 80 |B......DC.....M.|
00006680: 00 00 00 00 00 4A 4A 00 00 00 00 00 CE CC 00 00 |.....JJ.........|
00006690: 00 00 00 49 49 00 00 00 00 00 4C 00 00 00 00 00 |...II.....L.....|
000066A0: 00 49 4A 00 00 00 00 00 44 58 00 00 00 00 00 44 |.IJ.....DX.....D|
000066B0: 5A 00 00 00 00 00 41 44 00 00 00 00 00 4B 4C 00 |Z.....AD.....KL.|
000066C0: 00 00 00 00 4A 80 00 00 00 00 00 50 31 00 00 00 |....J......P1...|
000066D0: 00 00 4E 44 00 00 00 00 00 52 B1 00 00 00 00 00 |..ND.....R......|
000066E0: 55 D5 00 00 00 00 00 52 D0 00 00 00 00 00 45 D2 |U......R......E.|
000066F0: 00 00 00 00 00 45 CD 00 00 00 00 00 45 D4 00 00 |.....E......E...|
00006700: 00 00 00 45 C7 00 00 00 00 00 49 80 00 00 00 00 |...E......I.....|
00006710: 00 4B 80 00 00 00 00 00 42 4C 00 00 00 00 00 47 |.K......BL.....G|
00006720: D3 00 00 00 00 00 42 C9 00 00 00 00 00 49 39 00 |......B......I9.|
00006730: 00 00 00 00 4B C6 00 00 00 00 00 4A 49 00 00 00 |....K......JI...|
00006740: 00 00 41 53 00 00 00 00 00 5A 5A 00 00 00 00 00 |..AS.....ZZ.....|
00006750: 41 C5 00 00 00 00 00 49 50 00 00 00 00 00 54 80 |A......IP.....T.|
00006760: 00 00 00 00 00 54 42 00 00 00 00 00 4E 80 00 00 |.....TB.....N...|
00006770: 00 00 00 43 54 00 00 00 00 00 51 00 00 00 00 00 |...CT.....Q.....|
00006780: 00 00 00 36 00 00 00 00 00 00 00 00 00 00 00 00 |...6............|
00006790: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000067A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000067B0: 00 00 00 00 00 00 00 7F 70 7D 6D FF FF C5 6A D3 |........p}m...j.|
000067C0: CE F6 6C 5C C4 EB A7 |..l\... |
.......2073... R.LE. R.L.. R....ID...?..
.............. U.HHLH RTL-64 R. Q. _.`
..`........%...`H............H` _. G. R.
`@....M.....FO.... "COS","ATN","ABS","EX
P","LOG","INT","SIN","AND","NOT","TAN","
SQR"...T[.VL-CODEGEN..ES$(10):A..WJ.....
+O.I.P...H.........R...I..P......P.. 15.
.15,DV,15:....1+O...0R.H......2+O...1R.H
....0R...............................R..
(.......................................
.R%..R,.P3.'B.3.,.. .R,F..R:.P3.'B.3.:..
..R:F...* NUMBERS ONLY PLEASE *.....* NO
NUMBERS PLEASE *.....* YOU MUST ENTER S
OMETHING *.....* FORBIDDEN CHARACTER STR
ING *.....* IMPROPER LENGTH *.....* VALU
E OUT OF RANGE *....G(14):...+O.H...."..
..CODEWRITER DATA APPLICATION GENERATOR
."..H(Y$,7);" PLACE THE ";:..E...+O..."A
PPLICATION";:..E...+O..." DATA ";.." D
ISK, CONTAINING".." THE SCREEN LAYOUT FI
LE, INTO DRIVE";.(B(968).1);"."..".. PRE
SS .RETURN. TO CONTINUE OR TYPE .X. TO".
." RETURN TO THE SYSTEM CREATION MENU":.
$QA..QH.QOJS..V..X.O.H..J. ..".";H(Y$,10
);" PROGRAM LOADING PLEASE WAIT...":..F
.`P.."NEWMENU",8:.V...*O.H.J..".YOUR 'CO
DEWRITER' WILL PRODUCE THE BASIC CODE FO
R A PROGRAM YOU DESIGN.".."..PLEASE ENTE
R THE NAME YOU WOULD LIKE TO APPEAR AFTE
R THE";.." SCREEN CREDIT:"..".PROGRAM DE
SIGN BY .20 CHARACTERS MAXIMUM.".."?";:.
QA.V....QH..QOJS..VR]..".WHAT IS THE NAM
E OF YOUR SCREEN FILE?"..H(Y$,20);" TYPE
.D. AND .RETURN. FOR DIRECTORY"..H(Y$,3
)SP$;..H(Y$,3)"SCREEN FILE NAME = ";:..Q
A.V....QH..QO..RDJS..V..D+O.J..H...V..+O
.H...VRD.D../S.RKJV!.R.>+O ..".SCREEN FI
LE NOT FOUND":H...R.+O.H.R....".DISK ERR
OR #";ES;.."- PRESS .RETURN. TO CONTINUE
"..AA$:.Y.....O.H..H....F$(ZF):A....D%(Z
F):A....FI%(ZF):A....".":.P3..B.3..H(Y$,
Y%(I));H(X$,X%(I));PR$(I);SD$(I):F..O..P
3..B.3..H(Y$,CY%(I));H(X$,CX%(I));CP$(I)
:F..O..P3..B.3..H(Y$,GY%(I));H(X$,GX%(I)
);GP$(I):F..O0.P3..B.3..H(Y$,TY%(I));H(X
$,TX%(I).1);TP$(I):F..H(Y$,24);"IS THIS
YOUR SCREEN FORMAT (Y/N)?":."QA..QH.QOJS
..V..Y+O.H.V.V..N+O...".":.P.H...V..Y..V
..N..O.H...D../X.R..D../B.R..D../GLB.R..
.15,"S".DR$.":".(PN$)..2,DV,2,DR$.":".(P
N$).",S,W":."..R...2,"1REM *PROGRAM NAME
IS ";P$;"/T*"..2,"7 DF$=";Q$;P$;"0/D";Q
$;":REM DATA FILE NAME"..2,"3 HF$=";Q$;P
$;"/X";Q$;":REM HASH FILE"..2,"8 SF$=";Q
$;SF$;Q$;":REM SCREEN FILE"..15,"S".DR$.
":".(P$."/PCF")..3,DV,3,DR$.":".(P$."/PC
F").",S,W":...+O.H.)J...P.J....3,D(NS.NF
). 3:.PF...+O....PF.M......PM..E...+O...
.4..PT..E...+O.......PT.T.F..M.(....P...
"..WHAT IS THE MAXIMUM NUMBER OF RECORDS
YOU WANT IN THE DATA FILE ";..".(1-".
D(MX).".). "..".? ";:.QO.QA.V....
QHJS..V..P....*......-.O.H....".INVALID
NUMBER OF RECORDS":.P3...B.3FH.J..2...P.
...P...P..M........P......P..."."H(Y$,2)
"PLEASE ENTER THE TITLE YOU WANT".."DISP
LAYED FOR YOUR PROGRAM WHEN RUN."..".YOU
ARE LIMITED TO 22 CHARACTERS."..".TITLE
= ";:..QA.V....QH..QOJS... .V... .V....
2,"4 MS=";MS;":PO965,";B(965);":REM *NUM
BER OF RECORDS AND DISKS"..2,"9FS=";FS:.
../O.H.%..2,"32135OP3,8,3,";Q$;"0:";GF$;
",L,";Q$;"+CH(15)"..2,"32140FORI=1TONG".
.2,"32145PR3,STR$(0)"..2,"32150GL(I)=0".
.2,"32155NEI"..2,"32160CLO3"..2,"68GOS13
000:REM GET GLOBALS FROM /GLB FILE":.ZT.
....T....2,"110?:?TA20-(9+";C(NA$);"/2))
;";Q$;"PROGRAM DESIGN BY ";NA$;Q$..2,"10
0?TA20-(";C(TT$);"/2));";Q$;".";TT$;".";
Q$:...+O...2,"195":...+O...2,"305":..^T.
...!T....".".."."H(Y$,3)" WHICH FIELD IS
YOUR KEY FIELD ?".."(TYPE 1 -";NF;"OR L
IST)";:.........QA.V....QH.QOJS..V..LIST
+O.JWZH...V..T.(..(.-..(..*.O$.."THIS FI
ELD DOES NOT EXIST.":H.T..2,"5 KF=";KF;"
:RS=";RS:HNR.U./.........V.6.........V.=
.T.D..B.D..".PLEASE SPECIFY WHICH FIELD
IS TO BE ACCUMULATED IN THIS".." GRA
ND TOTAL FIELD.".."KE1 - KE";NF$;:...*O.
..", PC1 - PC";NC$;.." OR 'LIST'"..H(Y$,
OF%.1);GP$(JK);":";:../..QH..D......QA.Q
OJS..V..LIST+O.JYYH...V.......U.K.V...V.
R..H(Y$,OF%);.37);:..R..KE+..K.*...K../.
O.H.#..R..PC+..K.*...K../.O.H....H(Y$,22
)"* INVALID VALUE *
":H...U.Y..K.&..D...K.&..A..O.H.X..H(Y$,
22)"MUST BE DOLLAR OR NUMERIC";:H....U.Y
..H(Y$,9)"IS THIS CORRECT? (Y/N)":.V..QH
..QA.QOJS..V..Y..V..N..O.H.X.V..N+O.H...
."
";:..D..K..Y...G.D..2,"40FORI=1TONG:
REGK%:GS%(GK%)=I:NEI":.*T.`..U.GJ.BL...+
O.H.N..".NOW YOU MUST ENTER THE EQUATION
S FOR";NC;" COMPUTED FIELD";:...*O..."S"
;.."..".."YOU MAY REFER TO A KEYBOARD-EN
TERED FIELD WITH 'KE' FOLLOWED BY TH
E";.." FIELD NUMBER. FOR EXAMPLE, FIEL
D #5 WOULD BE 'KE5'."...."YOU MAY ALSO
REFER";.." TO A PREVIOUSLY DEFINED
PROGRAM-CALCULATED";.." FIELD AS 'PC'FOL
LOWED BY";.." THE FIELD NUMBER. FOR
EXAMPLE, CALCULATED FIELD #6 MAY BE MA
DE";.."TO DEPEND ON CALCULATED FIELD #5
BY REFERRING TO 'PC5'."...."A GRAND
TOTAL";.." FIELD MAY BE USED IF IT ISTHE
TOTAL OF A KEYBOARD ENTERED FIELD";.."
OROF A PREVIOUSLY DEFINED PROGRAM-
CALCULATED FIELD.";.." YOU REFER TO A
";.."GRAND TOTAL FIELD WITH 'GT' FOLLOW
ED BY THE FIELD NUMBER."..H(Y$,24)"PRE
SS .RETURN. TO CONTINUE"..AA$:.Y.....O.H
.(..".FOR EXAMPLE,";.." THE SECOND GRAND
TOTAL FIELD IS REFERRED TO BY 'GT2'
."...."A COMPLETE LIST OF FIELDS IS AVAI
LABLE BY ENTERING 'LIST'."...."YOU ARE
ALLOWED";.." TO DEFINE SELF- REF
ERENCING FIELDS, I.E. FIELDS THAT";.." U
SETHEIR PREVIOUS VALUE TO CALCULATE THEI
R NEW VALUE. YOU REFER TO";.." THE FIELD
IN THEUSUAL MANNER. FOR";.." EXAMPLE,
TO MAKE THE FIRST PROGRAM";.." CALCULATE
D FIELD INCREMENTITSELF AT";.." EACH UPD
ATE, USE 'PC1=PC1+1. ";.."SELF UPDATING
FIELDS ARE STORED ON DISK,DECREASING TH
E NUMBER OF ";.."RECORDS POSSIBLE
.";.." YOU ARE THEREFORE ASKED TO CON
FIRM THESE DEFINITIONS."..H(Y$,24);"PRES
S .RETURN. TO CONTINUE";..AA$:.Y.....O.H
....".".."YOU MAY USE THE OPERATORS +,-,
*,/ FOR THE FOUR ARITHMETIC OPERATIONS
.".."YOU MAY USE PARENTHESES AS NECESSAR
Y. ALL REFERENCED FIELDS";.." MUST BE
NUMERIC ORDOLLAR.".."..A TYPICAL EXPRESS
ION MIGHT BE:".."..'PC2=(KE3+PC1)/GT2'."
..H(Y$,24);"PRESS .RETURN. TO CONTINUE";
..AA$:.Y.....O.H.X.P...SF%(NC):A.(..AH$(
11):A.*.P3..B.3..AH$(I):F.P3..B.3.3.....
..V.N..".COMPUTED FIELD #";I:.3..V.U..U.
.... +..U...*.O...U..U......V.UH....UV.|
..".CALCULATION FOR '";CP$;"'"..".TYPE '
LIST' FOR FIELD NUMBERS."..".PC";SI$;"="
;:...N...QA.V....QH.'QOJS..VV.U..U..LIST
+O.JYYH......"..IS THIS CORRECT? (Y/N) "
;:..QA.V....QH.QOJS..V..N+O.H...V..Y.O.H
....UV..J.:....+O.JR"....+O.H......+O ..
"..YOU MUST ENTER SOMETHING":....+O/....
"INVALID OR MISSING ";SR$;" FIELD NUMBER
":....+O9..".ALL REFERENCED KE FIELDS MU
ST BE DOLLAR OR NUMERIC":....+O6..".REFE
RENCED PC FIELDS MUST BE PREVIOUSLY DEFI
NED":....+O...".MISMATCHED PARENTHESES":
....+O9..".GLOBAL TOTAL MUST NOT REFEREN
CE UNDEFINED PC FIELD":....+O5..".PC DEF
INITION EXCEEDS MAXIMUM ALLOWABLE LENGTH
":.....+O4.."..";EF$;".";" IS INCORRECT
IN THIS EXPRESSION.".."..PRESS .RETURN.
TO CONTINUE";..AA$:.Y.....O.H..H....2,28
190.10.I;"CD(";J(D(I),2);")=";A$..2,2819
5.10.I;"RET":....+O.H.S..3,EX$:...V..JO&
.3..(..2,28590.10.I;"CE(";J(D(I),2);") =
";B$..2,28595.10.I;"RET":H.A.3..(....P.
..3,EX$:G.3H.,.T...T.......+O..T..L.T...
....B...........V.R..R..T......'*....,-.
....,*....:-......^+.O.G..L.... +O...A S
PACEV.RH.8....K.....G......P......O..O.H
.G.........V.R..R..KE...R..PC....R..GT..
..R..OR..O.H.8.....T..G...........V.R...
..T...T....B....R....*+O.G..LG....T....R
V..L.P3..B.3.3.N....3....G.3.MDT.`..PZV.
B..U.GJW...2,EL;"RET":.P3..B.3.3.O....3.
...G.3.O^T.`..PZV.B..U.GJW...2,EL;"RET".
.2,"80DI CS%(NC):FOI=1TONC:RECS%(I):NEI"
:.P3..B.3.3.3.(..G.3.RT.`..U.GJ.BL..2,"2
8050RET"..2,"28100RET"..2,"28500RET":L..
GT.P..T.W..P.-O.HZE..P..W-O...PT.W..2,OL
;"DA ";:..`..T.`.T.D..WB.D..2,FI%(UL%.JK
.N);:..D..W-O...2,",";:G.D..2:..P..W.T.P
H.7..`T.IL.T........-O.L......V.......<+
.....>+......=+.O.........V.....T.......
<+.........>+.......*.O.........V.....T.
.L...T...T.......B.............0-.......
....9*.O..T..G..L...T........-O..T..L.T.
........B.............+O..T..G..........
...........O..T..L...T...T...T.......B..
.........V.......0-.....9*..............
-.....*..O..T........+O......T..G......*
O..T..L.."..KEYBOARD-ENTERED FIELDS.:":.
T...T.....C.......T...."KE";J(D(J),2);"
= ";PR$(J);:.....-O(...19);"KE";J(D(J.1)
,2);" = ";PR$(J.1):G.....+O.HX:...."..PR
OGRAM-CALCULATED FIELDS.:":.....T...T...
..C.......T...."PC";J(D(J),2);" = ";CP$(
J);:.....-O(...19);"PC";J(D(J.1),2);" =
";CP$(J.1):G.....+O.HW~.....T.......*O.J
.K.T....".";...."..GRAND TOTAL FIELDS.:"
..:.T.....C.......T.......*O.J.K.T....".
".."GT";J(D(J),2);" = ";GP$(J);:.....-O(
...19);"GT";J(D(J.1),2);" = ";GP$(J.1):G
..J.KL.."..KEYBOARD-ENTERED FIELDS.:":.T
.....C....J;"- ";PR$(J);:.....-O....19);
J.1;"- ";PR$(J.1):G..J.KL.T.W..G....W.U.
..T.....B....WT........+O...G.....W..T..
..2,OL.II.4;"IF ";OS$;"<=";II.K;"OR ";OS
$;">";II.K.L;"THE";OL.II.4.4..2,OL.II.4.
2;"ON ";OS$;"-";II.K;"GOS ";:.T.$...B.$.
.2,D(D%(II.K.IJ));:..$...-O...2,",";:G.$
..2:G....`......T.I..2,EL;":":L. 2..2,DV
,2,DR$.":".SF$:.T.+.T.2.PMJN..R..O.. 2:L
..2,NF:..P...PR$(NF):A....X%(NF):A....Y%
(NF):A....L%(NF):A.,..T$(NF):A.&..SD$(NF
):A...P3..B.3..2,PR$(I),X%(I),Y%(I),L%(I
),T$(I):.3.:.3.,.....3.&..D+O..3....../.
./......T.2.3.&..$+O...+..T.+.M.3.,.PMG.
3..2,NC:...+O.HT.....-O...P...CP$(NC):A.
...CX%(NC):A....CY%(NC):A....CT$(NC):A..
..CL%(NC):A.0.P3..B.3..2,CP$(I),CX%(I),C
Y%(I),CL%(I),CT$(I):.3....$+O...+..T.+G.
3..2,NG:...+O.HS.....-O...P...GP$(NG):A.
...GX%(NG):A....GY%(NG):A....GT$(NG):A.2
..GL%(NG):A.4.P3..B.3..2,GP$(I),GX%(I),G
Y%(I),GL%(I),GT$(I):.3.2..$+O...+..T.+G.
3..2,NT:...+O.HS...TP$(NT):A.$..TX%(NT):
A."..TY%(NT):A. .P3..B.3..2,TP$(I),TX%(I
),TY%(I):G.3. 2:L.T......H...(...A...T.9
..RV.T.@.OB.@..X....H...(...A..@....PG.@
..9......9.........P..J$:..G..+O.HS4..G.
.T......"+O.HS4.... -...................
*.....-......Z*.O.HSH......O.HR.....+O.H
SH.....T...V.......RV.. V.G..H(Y$,Y%);.X
%.J);" ":HRF.....+.V..+.O...:.....+O...9
......9........PL.V..G.RV..H(Y$,Y%);.X%
.J.1);J$:....O+O..V.........G.RVHSH.....
.O......T..HSH.T...T.N.T...T.....V......
.+O..T.......O.L......B*O..T..L.....T...
....B...........V.R..R..(+O.HQS..R..)+O.
HQH.........V.R..R..KE+O.HQR..R..PC+O.HP
A..R..GT+O.HO.G....N..O..T..L..N..T.NHR.
..N..T.N..N.-O..T..HR...............U.K.
.K.-..K..*.O..T..HR...K.&..D+..K.&..A+.O
..T..HR...K......T.U..VA(G$(..........U.
....)).V.\............\...........U.....
.V..HR...............U.K..K.3*O..T..HR..
.K.3-O.HO..."..SELF REFERENCING DEFINITI
ON. ENTER 'C' TO CONFIRM":..QA.V..QH...
T..JS....T...V...+O.HP*.V....C..+O.HP...
.T...T..HR...K......T.U..CE(..........U.
....).V.\.T..HOJ..K......T.U..CD(.......
...U.....).V.\............\...........U.
.....V..HR...............U.K..K..*O..T..
HR...K......3,O..T..HR...K......T.U..GK(
..........U.....).V.\............\......
.....U......V..HR..T.......B...........V
.C..C..G$+O...F$V.JHNO..C..CD+O...CEV.JH
NO..C..GK+O...GLV.JHNOHN..............J.
.............V..G..L..15,ER$,EM$,ET$,EG$
:..Q..PR..Q.. ...X.V....V.X..V...V..L.P
3..PT..JNCHF...".";.."THE QUESTION 'REJE
CT IF' WILL ALLOW YOU".."TO SPECIFY VARI
OUS KINDS OF TESTS TO BE".."MADE ON ENTE
RED DATA BEFORE IT IS".."ACCEPTED INTO T
HE DATA FILE. YOU MAY USE";.."ANY NUMBER
OF THESE TESTS ON ANY FIELD."...."FOR E
ACH TEST YOU SPECIFY, YOU WILL BE".."ASK
ED FOR AN APPROPRIATE ERROR MESSAGE".."T
O BE DISPLAYED WHEN THAT KIND OF".."IMPR
OPER DATA IS ENTERED. A DEFAULT".."ERROR
MESSAGE (DISPLAYED ON THE BOTTOM".."LIN
E OF THE SCREEN) MAY BE SPECIFIED BY".."
HITTING RETURN IN RESPONSE TO THE ".."'E
RROR MESSAGE' QUESTION."..H(Y$,24)"PRESS
.RETURN. TO CONTINUE"..A$:........O.HL*
..".THE FOLLOWING TESTS ARE AVAILABLE:".
....10);".GENERAL TESTS.".."TEST NAME";.
10);"EXAMPLE";.20);"MEANING TO OPERATOR"
.."'NO ENTRY'";.13);"-";.20);"MUST ENTER
SOMETHING".."'NOT NUMERIC'";.13);"-";.2
0);"ENTER ONLY NUMBERS ".."'NUMERIC'";.1
3);"-";.20);"NO NUMBERS ALLOWED"...10);"
.DATA SIZE TESTS.".."'LENGTH>'";.10);"LE
NGTH>4";.20);"NO MORE THAN 4"...20);"CHA
RACTERS".."'LENGTH<'";.10);"LENGTH<7";.2
0);"NO LESS THAN 7"...20);"CHARACTERS"..
"'LENGTH='";.10);"LENGTH=2";.20);"MUST N
OT BE 2"...20);"CHARACTERS".."'LENGTH<>'
";.10);"LENGTH<>3";.20);"MUST BE 3"...20
);"CHARACTERS"..H(Y$,24)"PRESS .RETURN.
TO CONTINUE";..A$:........O.HI...".";...
09);".NUMBER TESTS.".."TEST";.07);"EXAMP
LE";.15);"MEANING TO OPERATOR"..".'>'";.
07);">99";.16);"MUST NOT BE GREATER"...1
6)"THAN 99".."'<'";.07);"<20";.16);"MUST
BE 20 OR HIGHER".."'='";.07);"=631";.16
);"MUST NOT EQUAL 631".."'<>'";.07);"<>1
7";.16);"MUST EQUAL 17".."..CHARACTER TE
STS. (NOTE SINGLE QUOTES)".."'>'";.07);"
>'D'";.16);"MUST NOT BE AFTER 'D'"...16)
"ALPHABETICALLY".."'<'";.07);"<'JO'";.16
);"MUST NOT PRECEDE 'JO'"...16)"ALPHABET
ICALLY".."'='";.07);"='BILL'";.16);"MUST
NOT BE 'BILL'".."'<>'";.07);"<>'MALE'";
.16);"MUST BE 'MALE'".."'CONTAINS'";...1
6)"MUST NOT CONTAIN 'ABC'"...07)"CONTAIN
S'ABC'";Q$..".YOU MAY SIGNAL COMPLETION
OF THE TESTS FOR A FIELD BY ";.."HITTIN
G THE RETURN KEY ON 'REJECT IF'"..".TYPE
'HELP' TO REPEAT THESE DIRECTIONS."..H(
Y$,24)"PRESS .RETURN. TO CONTINUE";..A$:
........O.HF}..".":.T....B....H(Y$,Y%(J)
);H(X$,X%(J));PR$(J);SD$(J):G....H(Y$,Y%
(I));H(X$,X%(I));".";PR$(I);SD$(I);".":L
.P3..B.3.3..V...3.&..D+O.HE...H(Y$,Y%(I)
);H(X$,X%(I));".";PR$(I);SD$(I);".":.3.*
O1..H(Y$,Y%(I.1));H(X$,X%(I.1));PR$(I.1)
;SD$(I.1)..H(Y$,23);SP$..SP$;:......T...
3.&V....2,LN;"X%=X%(";I$;")+LEN(PR$(";I$
;")):Y%=Y%(";I$;"):L%=L%(";I$;")":...T..
..2,BL.1;"IFUF<>0ANDG$=";Q$;Q$;"THEG$=G$
(";I$;")":......T....34000V.......D+O...
49000V....2,LN;"GOS";GS$;":?LEF(Y$,23);S
P$:G$(";I$;")=IN$";..2,":IFG$(";I$;")=CH
(133)THE RET":.3...........T....2,LN;"IF
UF<>0 AND LEN(IN$)=0 THE G$(";I$;")=G$"
:.....A+.....D+.O.HBX..2,LN.1;"IFUF=0 TH
E ";LN.4..2,LN.2;"B$=G$(";I$;"):A$=";Q$;
"M";Q$;":GOS41000:G1=I9"..2,LN.3;"IFG1>0
THEGG=VA(G$(";I$;"))+VA(G$):G$(";I$;")=S
TR$";..2,"(GG)"..2,LN.4;"IFUF=0THE";LN.1
0..2,LN.5;"B$=G$(";I$;"):A$=";Q$;"L";Q$;
":GOS41000:G1=I9"..2,LN.6;"IFG1>0THEGG=V
A(G$)-VA(G$(";I$;")):G$(";I$;")=STR$";..
2,"(GG)":.....D+O.H.Q..H(Y$,23);.28);"FI
ELD #";I..H(Y$,24);SP$..H(Y$,24);"REJECT
IF: ";:..QA..QH..QOJS..VV........O.HA{.
....A+.....D+.O.HAN......T....2,LN;"G$("
;I$;")=STR$(VA(G$(";I$;")))"..2,LN.5;"IF
VA(G$(";I$;"))>=0 THE";..2,"G$(";I$;")=
RIG(G$(";I$;"),LEN(G$(";I$;"))-1)":.....
.T....2,LN;"IFLEN(G$(";I$;"))<L%(";E(I$)
;..2,") THE I=";E(I$);":GOS40500":H.Q...
..HELP+O.JNCHBKJ.....V...PR..NOT NUMERIC
V..J.9....+.......+.O..PRH....NUMERICV..
J.9....+......+.O..PRH....NO ENTRYV..J.9
....+.......+.O..PRH....CONTAINSV..J.9..
..+.......*.O..........V..J.T...O..PRH..
..LENGTHV..J.9.........../.O.H.O........
V..J.....O.J.....O..PRH.....V..J......O.
H.AJ.....O..PRH..J.T...O..PRH....H(Y$,23
);"SYNTAX ERROR. REENTER OR TYPE 'HELP'.
":HB...H(Y$,23);SP$..SP$..H(Y$,24)"ERROR
MESSAGE?".."(CR = ";ES$(ES);")";:..QA..
QH..QOJS..VV.X..X..HELP+O.JNCH....H(Y$,2
5);SP$;:..X..+O..R..V.X..X....*O)..H(Y$,
23);"ERROR MESSAGE TOO LONG":H...RM..@.M
.Z...H........T....2,LN;"CD$=G$(";I$;"):
E=0:GOS30000:IFE<>1THE";LN.20:......T...
.2,LN;"?LEF(Y$,23);";Q$;EM$;Q$;":GO";BL:
HBK......T....2,LN;"CD$=G$(";I$;"):E=0:G
OS31000:IFE<>1THE";LN.20:......T....2,LN
;"?LEF(Y$,23);";Q$;EM$;Q$;":GO";BL:HBK..
....T....2,LN;"IFLEN(G$(";I$;"))<>0THE";
LN.20:......T....2,LN;"?LEF(Y$,23);";Q$;
EM$;Q$;":GO";BL:HBK......T....2,LN;"B$=G
$(";I$;"):A$=";BK$;":GOS41000":......T..
..2,LN;"IF I9=0 THE";LN.20:......T....2,
LN;"?LEF(Y$,23);";Q$;EM$;Q$;":GO";BL:HBK
......T....2,LN;"IFNOT(LEN(G$(";I$;"))";
BJ$;")THE";LN.20:......T....2,LN;"?LEF(Y
$,23);";Q$;EM$;Q$;":GO";BL:HBK......T...
........O.H....2,LN;"IFNOT(G$(";I$;")";B
J$;")THE";LN.20:H....2,LN;"IFNOT(VA(G$("
;I$;"))";BJ$;")THE";LN.20:......T....2,L
N;"?LEF(Y$,23);";Q$;EM$;Q$;":GO";BL:HBK.
.....T....2,LN;"RET":.3..(+O&..(........
....V....2,"27030GOS";KF$:G.3...+O.H....
....T.....T....2,LN;"IF CS%(I) = 0 THE R
ET":......T....2,LN;"X%=CX%(I)+LEN(CP$(I
)):Y%=CY%(I):L%=CL%(I)":......T....2,LN;
"GOS34000:?LEF(Y$,23);SP$:SU$=IN$";..2,"
:IFSU$=CH(133)THERET":......T....2,LN;"I
F LEN(SU$) > 0 THE";LN.20:......T....2,L
N;"?LEF(Y$,23);"..2,LN.5;"?";Q$;"* YOU M
UST ENTER SOMETHING *";Q$;": GO";SL:....
..T....2,LN;"CD$=SU$:E=0:GOS30000:IFE<>1
THE";LN.20:......T....2,LN;"?LEF(Y$,23);
"..2,LN.5;"?";Q$;"* NUMBERS ONLY PLEASE
*";Q$;":GO";SL:......T....2,LN;"CD(I) =
VA(SU$)":......T....2,LN;"RET":...+O.H..
..2,"1065FOI=1TONC:IFCS%(I)=0 THE 1075".
.2,"1070?LEF(Y$,CY%(I));TAB(CX%(I));CP$(
I)"..2,"1075NEI":..FCV.B..:T.`..U.GJ.P..
2,EL;"IF IN$=CH(133) THE RET"..2,EL.1;"I
F GS%(FC)>0 THE GK(GS%(FC))=GL(GS%(FC))+
VA(G$(FC))"..2,"1142IF FC<";NF;"THE 1080
":...+O.H....2,"1143FOI=1TONC"..2,"1144I
FCS%(I)=0THE1150"..2,"1146GOS";SL..2,"11
48IFIN$=CH(133)THERET"..2,"1150NEI"..2,"
1150NEXTI":...+O.H.E..2,"1190IFLEN(IN$)=
0ORIN$=";Q$;"Y";Q$;" THE";LN.10:H....2,"
1190IFLEN(IN$)=0ORIN$=";Q$;"Y";Q$;" THE9
000"..2,"1200?LEF(Y$,23);";Q$;"WHICH FIE
LD TO CHANGE? ";Q$;..2,":?";Q$;"(1 -";NF
.NS;"OR 'LIST')";Q$;";"..2,"1210 X%=";15
.C(D(NF));":Y%=24:L%=4:GOS34000:IN=VA(IN
$)"..2,"1230IFIN<1ORIN>";NF.NS;"THE ?LEF
(Y$,23);SP$:?LEFT$(Y$,23);";..2,Q$;"INVA
LID FIELD #";Q$;":GO 1160":...T.`..INV.B
..U.GJ.P...+O.H.U..2,"1245IFIN>NFTHE";EL
.30..2,EL"IFIN$=CH(133)THERET"..2,EL.10"
IFGS%(IN)>0 THE GK(GS%(IN)) = GL(GS%(IN)
) + VA(G$(IN))"..2,EL.20"GO1160":...+O.H
....2,EL.30"P=0:IN=IN-NF"..2,EL.40"FOI=1
TOIN"..2,EL.50"P=P+1:IFCS%(P)=0THE";EL.5
0..2,EL.60"NEI:I=P"..2,EL.70"GOS";SL..2,
EL.80;"IF IN$=CH(133) THE RET"..2,EL.90"
GO1160"..2,"29110NEI":..UFV.B..TT.`..U.G
J.P..2,EL;"GO 11810":...+O.H........T...
.2,LN;"FOPZ=1TONC":...*O#..2,LN.5;"IF CS
%(PZ)>0 THE";LN.20:......T....2,LN;"GOS
28100":......T....2,LN;"IJ=GS%(PZ)":....
..T....2,LN;"IF IJ > 0 THE GK(IJ)=GL(IJ)
+CD(PZ)":......T....2,LN;"NE PZ".."..END
-OF-DATA ENTRY MESSAGE."...."WHEN THE OP
ERATOR OF YOUR PROGRAM IS".."FINISHED EN
TERING DATA TO A RECORD, THE".."PROGRAM
WILL ASK IF ALL DATA ENTRY FOR".."THAT S
ESSION IS DONE."...."THE OPERATOR IS ASK
ED TO ANSWER A (Y)ES".."(N)O QUESTION TO
SIGNAL WHETHER THE DATA";.."ENTRY SESSI
ON IS COMPLETE OR A NEW".."BLANK SCREEN
IS NEEDED. THE OPERATOR".."MAY PRESS .RE
TURN. TO ENTER A 'NO' REPLY, THAT IS,";.
." TO CONTINUE WITH DATA ENTRY.".."..ENT
ER YOUR MESSAGE BELOW OR. .RETURN."..".C
R = ".."'FINISHED WITH ENTRY? (RETURN=NO
)'"..".?":.QA.V..QH.#QOJS..VV.......+O'.
FINISHED WITH ENTRY? (RETURN=NO)V....2,
"55 TT$=";Q$;TT$;Q$:H.T.T...............
B.......T.E........E.....+O....T..H..G..
.T..L.T........-O.L......V.......<+.....
>+......=+.O.........V.....T.......<+...
......>+.......*.O.........V.....T..L...
T...T.......B.............0-...........9
*.O..T..G..L...T........-O..T..L.T......
...B.............+O..T..G...............
......O..T..L...T...T...T.......B.......
....V.......0-.....9*..............-....
.*..O..T........+O......T..G......*O..T.
.L...V....V...T.L.....B.L.....L.....'+O.
......V..H.T........L....V..G.LL.T.W..G.
...W.U...T.....B....WT........+O...G....
.W..T....2,OL.II.4;"IF ";OS$;"<=";II.K;"
OR ";OS$;">";II.K.L;"THE";OL.II.4.4..2,O
L.II.4.2;"ON ";OS$;"-";II.K;"GOS";:.T.$.
..B.$..2,D(D%(II.K.IJ).10);:..$...-O...2
,",";:G.$..2:G....`......T.I..2,EL;"REM
*":LJ.X..G(147):.P3..B.3. (I):FJ. ..G(14
7)...."CODEWRITER WILL NOW BEGIN PRODUCI
NG THE".."PROGRAM YOU DESIGNED."..".WHEN
YOU PRESS .RETURN., A SPECIAL LO
ADING PROGRAM";.." WILL PRINT EACH LINE
OF YOUR GENERATED PROGRAM ON THE SCREEN"
;.." ANDENTER IT INTO MEMORY. FINALLY I
T WILL SAVE THE PROGRAM";.." TO THE APP
LICATION DISK. WHEN YOU RUN THE PRO
GRAM THAT ";.."DISK MUST BE IN DRIVE.
THE FIRST TIME YOU RUN THE PROGRAM, Y
OU ";.."MUST CHOOSE MENU SELECTION 'F
' (FILE PREPARATION) TO";.."CREATE YOUR
DATA FILE."..H(Y$,24)"PRESS .RETURN. TO
CONTINUE";..AA$:.Y.....O.H....T....P.P3.
...B.3..T.3....3.....PG.3.."...........
PROGRAM LOADING PLEASE WAIT...":..J.
....P.....P!....P.."...LO";Q$;"CONVERT";
Q$;",8".."....RUN":I.F..P..W..P..X..P.."
.";:^...:...+O.H....2,"20100IFF<>1THEN20
190"..2,"20110 P=0:?:?";Q$;"SELF REFEREN
CING FIELDS";Q$..2,"20120FOJ=1TO";NS;"ST
EP2"..2,"20130P=P+1:IFCS%(P)=0THEN20130"
..2,"20140PRINTJ+NF,";Q$;"- ";Q$;";CP$(P
);"..2,"20150IFJ=";NS;"THE20180"..2,"201
60P=P+1:IFCS$(P)=0THE20160"..2,"20170PRI
NTTAB(19);J+1+NF;";Q$;"- ";Q$;";CP$(P);"
..2,"20180PRINT:NEXTJ"..2,"20190REM SELF
REF FIELD":...+O.H....2,"20200IFF<>2THE
N20260"..2,"20210?:?";Q$;"PROGRAM CALCUL
ATED FIELDS";Q$..2,"20220FORJ=1TONCSTEP2
"..2,"20230?J+NF;";Q$;"- ";Q$;";CP$(J);"
..2,"20240IFJ<NCTHEN?TAB(19);J+NF+1;";Q$
;"- ";Q$;";CP$(J+1);"..2,"20250PRINT:NEX
TJ"..2,"20260REM PCS":.RNT.....+O...2,"2
1030RET":.RDT.....+O.H.T..2,"40095FOJ=1T
ONC:IFCS%(J)=0THE40140"..2,"40100IFRL+15
> 80THE40115"..2,"40105 RL=RL+15:CE(J)=
VA(MID$(IN$,I9,15)):I9=I9+15"..2,"40110G
O40140"..2,"40115 SU$=MID$(IN$,I9,80-RL)
:SN=SN+1"..2,"40125GOS52010:INP4,IN$:GOS
43100"..2,"40130 IN$=LEF(IN$+SS$,80):SU$
=SU$+LEF(IN$,15+RL-80)"..2,"40135 CE(J)=
VA(SU$):RL=15-(80-RL):I9=RL+1"..2,"40140
NEJ":...+O.H....2,"40160FOPZ=1TONC:GOS28
500:NE PZ"..2,"40170FOII=1TONC: CD(II) =
CE(II) :NEII":...+O.H....2,"40180FOII=1
TONG:GK(II)=GL(II):NEII"..2,"42002 GOS 1
3100 : REM UPDATE TOTALS ":...+O.H.E..2,
"42083FOJ=1TONC:IFCS%(J)=0THE42113"..2,"
42086 SU$=LEF(STR$(CD(J))+SS$,15) :IFRL+
15 > 80THE42096"..2,"42090 RL=RL+15:OP$=
OP$+SU$"..2,"42093GO42113"..2,"42096 OP$
=OP$+LEF(SU$,80-RL):GOS43000:GOS52010:PR
4,OP$"..2,"42100 SN=SN+1"..2,"42106 GOS5
2010:INP4,IN$:IN$=LEF(IN$+SS$,80)"..2,"4
2110 OP$=MID$(SU$,81-RL):RL=15+RL-80"..2
,"42113NEJ":...+O.H.A..2,"33070 DIM CP$(
NC),CX%(NC),CY%(NC),CT$(NC),CD(NC),CE(NC
),CL%(NC)"..2,"33080FOI=1TONC"..2,"33090
INP4,CP$(I),CX%(I),CY%(I),CL%(I),CT$(I)
"..2,"33100NEI":...+O.H.#..2,"33105 DIM
GP$(NG),GX%(NG),GY%(NG),GT$(NG),GL(NG),G
K(NG),GM(NG),";..2,"GL%(NG)"..2,"33107FO
I=1TONG:INP4,GP$(I),GX%(I),GY%(I),GL%(I)
,GT$(I):NE I":...+O.H....2,"33120 DIM TP
$(NT),TX%(NT),TY%(NT)"..2,"33130FOI=1TON
T"..2,"33140 INP4,TP$(I),TX%(I),TY%(I)".
.2,"33150NEI":..2.+O.H...."...... D
O YOU WISH TO ENTER DATES IN".." AM
ERICAN FORMAT";.."(MM/DD/YY) OR".."
EUROPEAN FORMAT (DD/MM/YY) ?"......"
ENTER .A. OR .E. THEN .RETURN.":..QA.
.QH.QOJS..VV.S..S..A...S..E..O.H....S..A
+O.H....2,"35500 D$=RIG(D$,2)+MID$(D$,3,
2)+LEF(D$,2):RET"..2,"49350IFXX=29ANDYY=
2THENER=18:?LEFT$(Y$,23);";..2,Q$;"DAY O
UT OF RANGE"..2,"49290IFYY<1 OR YY>12THE
?LEF(Y$,23);";..2,Q$;"MONTH OUT OF RANGE
";Q$;":GO49000"..2,"49300IFXX<1 OR XX>DT
%(YY) THE?LEF(Y$,23);";..2,Q$;"DAY OUT O
F RANGE";Q$;":GO49000":...+O.H....2,"130
00 OP3,8,3,";Q$;"0:";GF$;",L,"Q$;"+CH(15
)"..2,"13005FO II=1TONG"..2,"13010 INP3,
GL$"..2,"13020 GL(II)=VA(GL$)"..2,"13030
NEII"..2,"13040 CLO3:RET"..2,"13100 OP3,
8,3,";Q$;"0:";GF$;",L,"Q$;"+CH(15)"..2,"
13102FO W9=1TONF"..2,"13105 IJ = GS%(W9)
"..2,"13110IFIJ = 0THE13135 : REM NO GLO
BAL FIELD"..2,"13115 GOS52150"..2,"13118
IFAN$=";Q$;"U";Q$;"THE GL(IJ)=GK(IJ):GO1
3130"..2,"13120IFAN$=";Q$;"D";Q$;"THE GL
(IJ) = GL(IJ) - VA(F$(W9))"..2,"13125IFA
N$=";Q$;"E";Q$;"THE GL(IJ) = GL(IJ) + VA
(G$(W9))"..2,"13130 PR3,STR$(GL(IJ))"..2
,"13135NEW9":...+O.H....2,"13140FO W9=1T
ONC"..2,"13145 IJ = GS%(W9+NF)"..2,"1315
0IFIJ = 0THE13175 : REM NO GLOBAL FIELD"
..2,"13155 GOS52150"..2,"13158IFAN$=";Q$
;"U";Q$;"THE GL(IJ)=GK(IJ):GO13170"..2,"
13160IFAN$=";Q$;"D";Q$;"THE GL(IJ) = GL(
IJ) - CE(W9)"..2,"13165IFAN$=";Q$;"E";Q$
;"THE GL(IJ) = GL(IJ) + CD(W9)"..2,"1317
0 PR3,STR$(GL(IJ))"..2,"13175NEW9"..2,"1
3180 CLO3:RET"..2,"13203 ?CH(147);LEF(Y$
,5)";..2,Q$;"VERIFICATION WILL TAKE A LI
TTLE WHILE";Q$..2,"13205FOII=1TONG"..2,"
13210 GM(II) = 0 : GK(II) = GL(II)"..2,"
13212NEII"..2,"13215FO RP=1TOVAL(NXR$)-2
"..2,"13220 GOS 40005:REM NEXT RECORD"..
2,"13225IFLEF(F$(1),1) = CH(255)THE13255
"..2,"13230FO IJ=1TONF"..2,"13240IFGS%(I
J) > 0THEGM(GS%(IJ)) = GM(GS%(IJ))+VA(F$
(IJ))"..2,"13250NEIJ"..2,"13255NERP"..2,
"13257FOII=1TONG"..2,"13260 GL(II) = GM(
II)"..2,"13270NEII":...+O.H....2,"13275F
O IJ=1TONC"..2,"13280 JK = GS%(IJ+NF)"..
2,"13285IFJK = 0THE13350"..2,"13290FO RP
=1TOVAL(NXR$)-2"..2,"13300 GOS 40005"..2
,"13310IFLEF(F$(1),1) = CH(255)THE13340"
..2,"13320FO PZ=1TOIJ:GOS28500:NEPZ"..2,
"13330 GM(JK) = GM(JK) + CE(IJ)"..2,"133
40NERP"..2,"13345 GL(GS%(IJ+NF)) = GM(GS
%(IJ+NF))"..2,"13350NEIJ"..2,"13360?CH(1
47);LEF(Y$,3);"..2,"13365 ?";Q$;"FIELD";
Q$;";TA15);";Q$;"OLD TOTAL";Q$;..2,";TA2
5);";Q$;"VERIFIED TOTAL";Q$;": ?"..2,"13
370FO IJ=1TONG"..2,"13380?GP$(IJ);TA15);
GK(IJ);TA25);GM(IJ)"..2,"13390IFGK(IJ) =
GM(IJ)THE13430"..2,"13400?";Q$;"* OLD T
OTAL CORRECTED *";Q$;";"..2,"13410OP3,8,
3,";Q$;"0:";GF$;",L,"Q$;"+CH(15):"..2,"1
3420 GOS52150:PR3,GL(IJ):CLO3"..2,"13430
?"..2,"13440NEIJ"..2,"13445?LEF(Y$,24);"
;Q$;"PRESS .RETURN. TO CONTINUE";Q$..2,"
13448 GET AA$:IFAA$<>CH(13)THE13448"..2,
"13450RET":......+O.H..H....2,"35040 SF=
1":...+O.H....2,"35180FOIA=1TONG:GK(IA)=
GL(IA):NEIA":...+O.H."..2,"35313 IB%=SF-
NF+1 :IFIB%<1THEIB%=1"..2,"35315IFIB%>NC
THE35330"..2,"35320FOPZ=IB%TONC:GOS28500
:NEPZ"..2,"35330FOIA=1TONC:CD(IA)=CE(IA)
:NEIA":L. 15..15,8,15..2,8,2,"NEWMENU"..
15,ER$,EM$:..Q..PR. 2. 15:.R.+O.L.."."H(
Y$,10)" PLACE THE .CODEWRITER. DISK IN D
RIVE 0"..H(Y$,23).8)"PRESS .RETURN. TO C
ONTINUE"..AA$:.Y.....O.H..H. ..H(Y$,24);
"PRESS .RETURN. TO CONTINUE, .F1. TO PRI
NT"..AA$:.Y......Y......O.H.5.Y....+O.L.
.H(Y$,23);SP$;SP$;H(Y$,24);"IS YOUR PRIN
TER A COMMODORE? ";:..QA..QH.QOJS..V..Y.
.V..N..O.H.U.V..Y+O...@.PH....@..P. 4..4
,4..4,"":....O!..H(Y$,23)" PRINTER NOT
READY":....O#.T.Z...B.ZF..H(Y$,23);SP$;.
4:H.K..H(Y$,24);SP$..H(Y$,24);" PRIN
TING ...";. 4:..<Q:..4. 4:H.K..1,DV,0,"$
".DR$:..V...T....#1,A$,A$,A$,A$,A$,A$:..
T..J.....V...T..J.....V...T..J.....V.BJ.
R.P3.B.3..#1,B$:G.3.T....B.......T......
.*O.J.V..T..J......O.H........*O........
.T..........V........+O ................
T..........V.........T....H(B$.SP$,18),T
$,BL:G....BLOCKSFREE.V.........T.....T..
...V....H(B$.SP$,18),T$,BL:......+O$..".
*** NO FILES ON DISK ***". 1:...T..
J.VL..V...P3...B.3..#1,A$:.... ..+.... .
.+.O.H.V.......V..G.3L..H(Y$,2)". DISK N
AME: ";N$..H(Y$,3)" ID: ";I$;.5);"OPERAT
ING SYSTEM: "OS$..H(Y$,5)" FILE NAME";.1
0);"TYPE";.7);"BLOCKS"..:L..H(Y$,24)"PRE
SS .RETURN. TO CONTINUE.";..IN$:.V..+O.H
...V.....O.H........+O.L.T..J.RL..V....V
...T...P3...B.3..#1,A$:.... ..+.... ..+.
O.H......"..+O......T......+O........V..
H......+O........V...T..H.........V..G.3
..#1,A$,A$:L..15,8,15..5,8,5,"#"..15,"B-
R:"5;0;1;10:JN..R...O.H....15,"B-R:"5;0;
1;15:JN..R..+O.. 5. 15:L. 5. 15:..|...Q:
^......DB.....DR.....DV.....C3.....Y....
..X......SP.....I......DT.....X......Y..
....L......IN.....NA.....P......SF.....E
S.....AA.....ZF.....NF.....NC.....NG....
.NT.....GD.....PN.....GF.....Q......NS..
...GB.....RS.....BT.....MX.....MS.....BF
.....FR.....QD.....FS.....TT.....LN.....
SL.....X......A......KF.....OF.....NF...
..NC.....JK.....SB.....SR.....P......OL.
....UL.....SI.....C......CP.....EX.....E
F.....EF.....A......SU.....B......J.....
.SR.....O......OS.....EL.....N......K...
...OK.....BJ.....L......BK.....DC.....M.
.....JJ.....NL.....II.....L......IJ.....
DX.....DZ.....AD.....KL.....J......P1...
..ND.....R......UU.....RP.....ER.....EM.
....ET.....EG.....I......K......BL.....G
S.....BI.....I9.....KF.....JI.....AS....
.ZZ.....AE.....IP.....T......TB.....N...
...CT.....Q........6....................
...............................P}M..EJS
N.L\D..
> CLICK IMAGE PREVIEW FOR FULL MODAL