SOFTWARE LISTER
FILE INFORMATION
FILENAME(S): SOFTWARE LISTER
FILE TYPE(S): PRG
FILE SIZE: 7.1K
FIRST SEEN: 2025-11-30 17:31:26
APPEARS ON: 1 disk(s)
FILE HASH
3b1578b8dda6f5e6135ec22e095036c91e630021f87f57ff86b83173c540e228
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| IAN S GAMES | SOFTWARE LISTER | PRG | UK CD | 24 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 23 08 64 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..#.d.. ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 00 45 08 6E 00 8F 20 2A 20 20 53 4F 46 |***.E.n.. * SOF|
00000030: 54 57 41 52 45 20 49 4E 44 45 58 20 4C 49 53 54 |TWARE INDEX LIST|
00000040: 45 52 20 20 2A 00 67 08 78 00 8F 20 2A 20 20 28 |ER *.g.x.. * (|
00000050: 43 29 20 4D 2E 20 4A 4F 4E 45 53 20 4F 43 54 20 |C) M. JONES OCT |
00000060: 31 39 38 34 20 20 2A 00 89 08 82 00 8F 20 2A 20 |1984 *...... * |
00000070: 20 43 42 4D 2D 36 34 2C 20 31 35 34 31 20 26 20 | CBM-64, 1541 & |
00000080: 50 52 49 4E 54 45 52 20 2A 00 AB 08 8C 00 8F 20 |PRINTER *...... |
00000090: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 B1 08 96 00 |***********.....|
000000B0: 8F 00 CD 08 A0 00 97 35 33 32 38 30 2C 30 3A 97 |.......53280,0:.|
000000C0: 35 33 32 38 31 2C 30 3A 99 22 93 1E 22 00 D9 08 |53281,0:.".."...|
000000D0: AA 00 81 54 B2 31 A4 31 30 00 FF 08 B4 00 99 22 |...T.1.10......"|
000000E0: 20 20 20 20 20 20 20 20 20 53 4F 46 54 57 41 52 | SOFTWAR|
000000F0: 45 20 49 4E 44 45 58 20 4C 49 53 54 45 52 22 00 |E INDEX LISTER".|
00000100: 06 09 BE 00 82 54 00 2F 09 D2 00 99 22 11 11 9C |.....T./...."...|
00000110: 20 20 20 20 20 20 20 20 20 28 43 29 20 4D 41 52 | (C) MAR|
00000120: 54 49 4E 20 4A 4F 4E 45 53 20 31 39 38 34 22 00 |TIN JONES 1984".|
00000130: 58 09 F0 00 99 22 11 11 9E 20 20 20 20 20 20 20 |X...."... |
00000140: 20 20 20 48 49 54 20 27 43 27 20 54 4F 20 43 4F | HIT 'C' TO CO|
00000150: 4E 54 49 4E 55 45 2E 22 00 6B 09 FA 00 A1 43 24 |NTINUE.".k....C$|
00000160: 3A 8B 43 24 B2 22 22 A7 32 35 30 00 7C 09 04 01 |:.C$."".250.|...|
00000170: 8B 43 24 B3 B1 22 43 22 A7 32 35 30 00 93 09 0E |.C$.."C".250....|
00000180: 01 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************|
00000190: 2A 2A 2A 00 AA 09 18 01 8F 20 2A 20 20 49 4E 49 |***...... * INI|
000001A0: 54 49 41 4C 49 53 45 20 20 2A 00 C1 09 22 01 8F |TIALISE *..."..|
000001B0: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
000001C0: 2A 00 E1 09 2C 01 86 4E 41 24 28 35 30 30 29 2C |*...,..NA$(500),|
000001D0: 54 59 24 28 35 30 30 29 2C 53 54 24 28 35 30 30 |TY$(500),ST$(500|
000001E0: 29 00 F7 09 36 01 88 4E 4C B2 35 3A 88 54 4C B2 |)...6..NL.5:.TL.|
000001F0: 34 3A 88 53 4C B2 36 00 19 0A 40 01 42 4C 24 B2 |4:.SL.6...@.BL$.|
00000200: 22 22 3A 81 58 B2 31 A4 34 30 3A 42 4C 24 B2 42 |"":.X.1.40:BL$.B|
00000210: 4C 24 AA 22 20 22 3A 82 58 00 24 0A 4A 01 43 4E |L$." ":.X.$.J.CN|
00000220: B2 34 39 39 00 3B 0A 54 01 8F 20 2A 2A 2A 2A 2A |.499.;.T.. *****|
00000230: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 52 0A 5E 01 |***********.R.^.|
00000240: 8F 20 2A 20 20 49 4E 50 55 54 20 44 41 54 41 20 |. * INPUT DATA |
00000250: 20 2A 00 69 0A 68 01 8F 20 2A 2A 2A 2A 2A 2A 2A | *.i.h.. *******|
00000260: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 92 0A 72 01 85 22 |*********...r.."|
00000270: 93 11 11 1D 9E 55 53 45 20 45 58 49 53 54 49 4E |.....USE EXISTIN|
00000280: 47 20 44 41 54 41 20 5B 59 2F 4E 5D 20 22 3B 59 |G DATA [Y/N] ";Y|
00000290: 4E 24 00 AD 0A 7C 01 8B 59 4E 24 B3 B1 22 59 22 |N$...|..YN$.."Y"|
000002A0: AF 59 4E 24 B3 B1 22 4E 22 A7 33 37 30 00 BF 0A |.YN$.."N".370...|
000002B0: 86 01 8B 59 4E 24 B2 22 4E 22 A7 89 34 35 30 00 |...YN$."N"..450.|
000002C0: EE 0A 90 01 9F 31 2C 30 3A 99 22 11 11 1D 9E 45 |.....1,0:."....E|
000002D0: 4E 54 45 52 20 46 49 4C 45 4E 41 4D 45 20 2E 2E |NTER FILENAME ..|
000002E0: 2E 20 22 3B 3A 84 31 2C 46 49 24 3A A0 31 00 09 |. ";:.1,FI$:.1..|
000002F0: 0B 9A 01 9F 31 2C 38 2C 32 2C 22 30 3A 22 AA 46 |....1,8,2,"0:".F|
00000300: 49 24 AA 22 2C 53 45 51 22 00 19 0B A4 01 84 31 |I$.",SEQ"......1|
00000310: 2C 43 4E 3A 43 32 B2 43 4E 00 48 0B AE 01 81 49 |,CN:C2.CN.H....I|
00000320: B2 31 A4 43 4E AA 31 3A 84 31 2C 4E 41 24 28 49 |.1.CN.1:.1,NA$(I|
00000330: 29 2C 53 54 24 28 49 29 2C 54 59 24 28 49 29 3A |),ST$(I),TY$(I):|
00000340: 8D 32 31 37 30 3A 82 49 00 55 0B B8 01 A0 31 3A |.2170:.I.U....1:|
00000350: 89 31 32 31 30 00 68 0B C2 01 49 31 B2 30 3A 81 |.1210.h...I1.0:.|
00000360: 49 B2 31 A4 43 4E AA 31 00 88 0B CC 01 8D 32 31 |I.1.CN.1......21|
00000370: 31 30 3A 8B 4E 41 24 28 49 29 B2 22 22 A7 49 31 |10:.NA$(I)."".I1|
00000380: B2 49 3A 49 B2 35 30 30 00 99 0B D6 01 82 49 3A |.I:I.500......I:|
00000390: 8B 49 31 B2 30 A7 34 39 30 00 A5 0B E0 01 43 4E |.I1.0.490.....CN|
000003A0: B2 49 31 AB 32 00 AF 0B EA 01 43 32 B2 43 4E 00 |.I1.2.....C2.CN.|
000003B0: C8 0B F4 01 89 31 32 31 30 3A 8F 20 44 49 53 50 |.....1210:. DISP|
000003C0: 4C 41 59 20 4D 45 4E 55 00 E1 0B FE 01 8F 20 2A |LAY MENU...... *|
000003D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000003E0: 2A 00 FA 0B 08 02 8F 20 2A 20 20 53 4F 52 54 20 |*...... * SORT |
000003F0: 52 4F 55 54 49 4E 45 20 20 2A 00 13 0C 12 02 8F |ROUTINE *......|
00000400: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00000410: 2A 2A 2A 00 22 0C 1C 02 46 4C B2 30 3A 43 32 B2 |***."...FL.0:C2.|
00000420: 43 4E 00 30 0C 26 02 8B 43 32 B3 32 A7 36 37 30 |CN.0.&..C2.2.670|
00000430: 00 5D 0C 30 02 99 22 93 11 11 1D 9E 53 4F 52 54 |.].0..".....SORT|
00000440: 49 4E 47 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |ING ............|
00000450: 20 50 4C 45 41 53 45 20 57 41 49 54 22 00 69 0C | PLEASE WAIT".i.|
00000460: 3A 02 81 49 B2 31 A4 43 32 00 9B 0C 44 02 8B 4E |:..I.1.C2...D..N|
00000470: 41 24 28 49 29 B3 B2 4E 41 24 28 49 AA 31 29 A7 |A$(I)..NA$(I.1).|
00000480: 36 33 30 3A 8F 20 43 48 45 43 4B 20 49 46 20 53 |630:. CHECK IF S|
00000490: 4F 52 54 20 43 4F 52 52 45 43 54 00 DA 0C 4E 02 |ORT CORRECT...N.|
000004A0: 4E 41 24 B2 4E 41 24 28 49 29 3A 4E 41 24 28 49 |NA$.NA$(I):NA$(I|
000004B0: 29 B2 4E 41 24 28 49 AA 31 29 3A 4E 41 24 28 49 |).NA$(I.1):NA$(I|
000004C0: AA 31 29 B2 4E 41 24 3A 8F 20 4E 41 24 20 3D 20 |.1).NA$:. NA$ = |
000004D0: 4E 41 4D 45 20 4F 52 44 45 52 00 19 0D 58 02 54 |NAME ORDER...X.T|
000004E0: 59 24 B2 54 59 24 28 49 29 3A 54 59 24 28 49 29 |Y$.TY$(I):TY$(I)|
000004F0: B2 54 59 24 28 49 AA 31 29 3A 54 59 24 28 49 AA |.TY$(I.1):TY$(I.|
00000500: 31 29 B2 54 59 24 3A 8F 20 54 59 24 20 3D 20 54 |1).TY$:. TY$ = T|
00000510: 59 50 45 20 4F 52 44 45 52 00 5B 0D 62 02 53 54 |YPE ORDER.[.b.ST|
00000520: 24 B2 53 54 24 28 49 29 3A 53 54 24 28 49 29 B2 |$.ST$(I):ST$(I).|
00000530: 53 54 24 28 49 AA 31 29 3A 53 54 24 28 49 AA 31 |ST$(I.1):ST$(I.1|
00000540: 29 B2 53 54 24 3A 8F 20 53 54 24 20 3D 20 53 54 |).ST$:. ST$ = ST|
00000550: 4F 52 41 47 45 20 4F 52 44 45 52 00 7D 0D 6C 02 |ORAGE ORDER.}.l.|
00000560: 46 4C B2 31 3A 8F 20 53 45 54 20 44 41 54 41 20 |FL.1:. SET DATA |
00000570: 45 58 43 48 41 4E 47 45 20 46 4C 41 47 00 84 0D |EXCHANGE FLAG...|
00000580: 76 02 82 49 00 AA 0D 80 02 43 32 B2 43 32 AB 31 |v..I.....C2.C2.1|
00000590: 3A 8F 20 44 45 43 52 45 4D 45 4E 54 20 4F 52 44 |:. DECREMENT ORD|
000005A0: 45 52 20 54 4F 20 53 4F 52 54 00 D1 0D 8A 02 8B |ER TO SORT......|
000005B0: 43 32 B3 32 A7 36 37 30 3A 8F 20 49 46 20 3C 20 |C2.2.670:. IF < |
000005C0: 32 20 4E 4F 20 4D 4F 52 45 20 54 4F 20 53 4F 52 |2 NO MORE TO SOR|
000005D0: 54 00 11 0E 94 02 8B 46 4C B2 31 A7 35 34 30 3A |T......FL.1.540:|
000005E0: 8F 20 49 46 20 3D 20 31 20 54 48 45 4E 20 45 58 |. IF = 1 THEN EX|
000005F0: 43 48 41 4E 47 45 20 44 4F 4E 45 20 2D 20 52 45 |CHANGE DONE - RE|
00000600: 2D 54 52 59 20 54 4F 20 4D 41 4B 45 20 53 55 52 |-TRY TO MAKE SUR|
00000610: 45 00 44 0E 9E 02 99 22 93 11 11 1D 9E 53 4F 52 |E.D....".....SOR|
00000620: 54 49 4E 47 20 43 4F 4D 50 4C 45 54 45 20 2E 2E |TING COMPLETE ..|
00000630: 20 48 49 54 20 41 20 4B 45 59 20 54 4F 20 50 52 | HIT A KEY TO PR|
00000640: 49 4E 54 22 00 57 0E A8 02 A1 58 24 3A 8B 58 24 |INT".W....X$:.X$|
00000650: B2 22 22 A7 36 38 30 00 71 0E B2 02 8F 20 2A 2A |."".680.q.... **|
00000660: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000670: 2A 00 8B 0E BC 02 8F 20 2A 20 20 50 52 49 4E 54 |*...... * PRINT|
00000680: 20 52 4F 55 54 49 4E 45 20 20 2A 00 A5 0E C6 02 | ROUTINE *.....|
00000690: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
000006A0: 2A 2A 2A 2A 2A 00 AE 0E D0 02 9F 34 2C 34 00 BE |*****......4,4..|
000006B0: 0E DA 02 50 53 B2 36 32 3A 4C 43 B2 36 32 00 CC |...PS.62:LC.62..|
000006C0: 0E E4 02 81 49 B2 31 A4 43 4E AA 31 00 EF 0E EE |....I.1.CN.1....|
000006D0: 02 8B 4C 43 B1 B2 50 53 A7 8D 31 30 37 30 3A 8F |..LC..PS..1070:.|
000006E0: 20 50 52 49 4E 54 20 4E 45 57 20 50 41 47 45 00 | PRINT NEW PAGE.|
000006F0: 0D 0F F8 02 49 24 B2 22 20 20 20 20 22 AA C4 28 |....I$." "..(|
00000700: 49 29 3A 49 24 B2 C9 28 49 24 2C 34 29 00 2F 0F |I):I$..(I$,4)./.|
00000710: 02 03 58 24 B2 4E 41 24 28 49 29 3A 59 B2 4E 4C |..X$.NA$(I):Y.NL|
00000720: AA 32 3A 8D 32 33 38 30 3A 4E 41 24 B2 58 24 00 |.2:.2380:NA$.X$.|
00000730: 51 0F 0C 03 58 24 B2 53 54 24 28 49 29 3A 59 B2 |Q...X$.ST$(I):Y.|
00000740: 53 4C AA 32 3A 8D 32 33 38 30 3A 53 54 24 B2 58 |SL.2:.2380:ST$.X|
00000750: 24 00 73 0F 16 03 58 24 B2 54 59 24 28 49 29 3A |$.s...X$.TY$(I):|
00000760: 59 B2 54 4C AA 32 3A 8D 32 33 38 30 3A 54 59 24 |Y.TL.2:.2380:TY$|
00000770: B2 58 24 00 8D 0F 20 03 98 34 2C 49 24 3B 22 20 |.X$... ..4,I$;" |
00000780: 22 3B 4E 41 24 3B 53 54 24 3B 54 59 24 00 99 0F |";NA$;ST$;TY$...|
00000790: 2A 03 4C 43 B2 4C 43 AA 31 00 A0 0F 34 03 82 49 |*.LC.LC.1...4..I|
000007A0: 00 A7 0F 3E 03 A0 34 00 C8 0F 48 03 99 22 93 11 |...>..4...H.."..|
000007B0: 11 1D 9E 41 4E 4F 54 48 45 52 20 43 4F 50 59 20 |...ANOTHER COPY |
000007C0: 5B 59 2F 4E 5D 20 3F 22 00 DB 0F 52 03 A1 58 24 |[Y/N] ?"...R..X$|
000007D0: 3A 8B 58 24 B2 22 22 A7 38 35 30 00 F4 0F 5C 03 |:.X$."".850...\.|
000007E0: 8B 58 24 B3 B1 22 59 22 AF 58 24 B3 B1 22 4E 22 |.X$.."Y".X$.."N"|
000007F0: A7 38 35 30 00 04 10 66 03 8B 58 24 B2 22 59 22 |.850...f..X$."Y"|
00000800: A7 37 32 30 00 0D 10 70 03 89 39 32 30 00 2B 10 |.720...p..920.+.|
00000810: 7A 03 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |z.. ************|
00000820: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 49 10 84 03 |***********.I...|
00000830: 8F 20 2A 20 20 53 41 56 45 20 44 41 54 41 20 52 |. * SAVE DATA R|
00000840: 4F 55 54 49 4E 45 20 20 2A 00 67 10 8E 03 8F 20 |OUTINE *.g.... |
00000850: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000860: 2A 2A 2A 2A 2A 2A 2A 00 88 10 98 03 85 22 93 11 |*******......"..|
00000870: 11 1D 9E 53 41 56 45 20 44 41 54 41 20 5B 59 2F |...SAVE DATA [Y/|
00000880: 4E 5D 20 22 3B 59 4E 24 00 A3 10 A2 03 8B 59 4E |N] ";YN$......YN|
00000890: 24 B3 B1 22 59 22 AF 59 4E 24 B3 B1 22 4E 22 A7 |$.."Y".YN$.."N".|
000008A0: 39 32 30 00 B5 10 AC 03 8B 59 4E 24 B2 22 4E 22 |920......YN$."N"|
000008B0: A7 31 30 33 30 00 E4 10 B6 03 9F 31 2C 30 3A 99 |.1030......1,0:.|
000008C0: 22 11 11 1D 9E 45 4E 54 45 52 20 46 49 4C 45 4E |"....ENTER FILEN|
000008D0: 41 4D 45 20 2E 2E 2E 20 22 3B 3A 84 31 2C 46 49 |AME ... ";:.1,FI|
000008E0: 24 3A A0 31 00 F0 10 C0 03 43 4D 24 B2 22 2C 22 |$:.1.....CM$.","|
000008F0: 00 0D 11 CA 03 9F 31 2C 38 2C 32 2C 22 30 3A 22 |......1,8,2,"0:"|
00000900: AA 46 49 24 AA 22 2C 53 45 51 2C 57 22 00 17 11 |.FI$.",SEQ,W"...|
00000910: D4 03 98 31 2C 43 4E 00 25 11 DE 03 81 49 B2 31 |...1,CN.%....I.1|
00000920: A4 43 4E AA 31 00 49 11 E8 03 98 31 2C 4E 41 24 |.CN.1.I....1,NA$|
00000930: 28 49 29 3B 43 4D 24 3B 53 54 24 28 49 29 3B 43 |(I);CM$;ST$(I);C|
00000940: 4D 24 3B 54 59 24 28 49 29 00 50 11 F2 03 82 49 |M$;TY$(I).P....I|
00000950: 00 57 11 FC 03 A0 31 00 7D 11 06 04 99 22 93 11 |.W....1.}...."..|
00000960: 11 1D 42 59 45 20 2E 2E 2E 22 3A 81 49 B2 31 A4 |..BYE ...":.I.1.|
00000970: 33 30 30 30 3A 82 3A 9E 36 34 37 33 38 00 97 11 |3000:.:.64738...|
00000980: 10 04 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |... ************|
00000990: 2A 2A 2A 2A 2A 2A 2A 00 B1 11 1A 04 8F 20 2A 20 |*******...... * |
000009A0: 20 50 52 49 4E 54 20 48 45 41 44 49 4E 47 20 20 | PRINT HEADING |
000009B0: 2A 00 CB 11 24 04 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |*...$.. ********|
000009C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 D5 11 2E 04 |***********.....|
000009D0: 8D 33 30 30 30 00 DE 11 38 04 4C 43 B2 32 00 01 |.3000...8.LC.2..|
000009E0: 12 42 04 58 24 B2 22 54 49 54 4C 45 22 3A 59 B2 |.B.X$."TITLE":Y.|
000009F0: 4E 4C AA 32 3A 8D 32 33 36 30 3A 4E 30 24 B2 58 |NL.2:.2360:N0$.X|
00000A00: 24 00 25 12 4C 04 58 24 B2 22 4D 45 44 49 55 4D |$.%.L.X$."MEDIUM|
00000A10: 22 3A 59 B2 53 4C AA 32 3A 8D 32 33 36 30 3A 4E |":Y.SL.2:.2360:N|
00000A20: 31 24 B2 58 24 00 47 12 56 04 58 24 B2 22 54 59 |1$.X$.G.V.X$."TY|
00000A30: 50 45 22 3A 59 B2 54 4C AA 32 3A 8D 32 33 36 30 |PE":Y.TL.2:.2360|
00000A40: 3A 4E 32 24 B2 58 24 00 6A 12 60 04 58 24 B2 22 |:N2$.X$.j.`.X$."|
00000A50: A3 A3 A3 A3 A3 22 3A 59 B2 4E 4C AA 32 3A 8D 32 |.....":Y.NL.2:.2|
00000A60: 33 36 30 3A 4E 33 24 B2 58 24 00 8E 12 6A 04 58 |360:N3$.X$...j.X|
00000A70: 24 B2 22 A3 A3 A3 A3 A3 A3 22 3A 59 B2 53 4C AA |$."......":Y.SL.|
00000A80: 32 3A 8D 32 33 36 30 3A 4E 34 24 B2 58 24 00 B0 |2:.2360:N4$.X$..|
00000A90: 12 74 04 58 24 B2 22 A3 A3 A3 A3 22 3A 59 B2 54 |.t.X$."....":Y.T|
00000AA0: 4C AA 32 3A 8D 32 33 36 30 3A 4E 35 24 B2 58 24 |L.2:.2360:N5$.X$|
00000AB0: 00 C9 12 7E 04 98 34 2C 22 4E 4F 2E 22 3B 4E 30 |...~..4,"NO.";N0|
00000AC0: 24 3B 4E 31 24 3B 4E 32 24 00 E2 12 88 04 98 34 |$;N1$;N2$......4|
00000AD0: 2C 22 A3 A3 A3 22 3B 4E 33 24 3B 4E 34 24 3B 4E |,"...";N3$;N4$;N|
00000AE0: 35 24 00 E8 12 92 04 8E 00 02 13 9C 04 8F 20 2A |5$............ *|
00000AF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000B00: 2A 2A 00 1C 13 A6 04 8F 20 2A 20 20 43 4F 4D 4D |**...... * COMM|
00000B10: 41 4E 44 20 54 41 42 4C 45 20 20 2A 00 36 13 B0 |AND TABLE *.6..|
00000B20: 04 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************|
00000B30: 2A 2A 2A 2A 2A 2A 00 57 13 BA 04 99 22 93 1D 1D |******.W...."...|
00000B40: 1D 1D 1D 1D 1D 1D 1D 1D 9E 43 4F 4D 4D 41 4E 44 |.........COMMAND|
00000B50: 20 54 41 42 4C 45 22 00 62 13 C4 04 99 22 11 11 | TABLE".b...."..|
00000B60: 11 22 00 80 13 CE 04 99 A3 38 29 3B 22 11 12 41 |.".......8);"..A|
00000B70: 92 20 41 44 44 20 52 45 43 4F 52 44 28 53 29 22 |. ADD RECORD(S)"|
00000B80: 00 A1 13 D8 04 99 A3 38 29 3B 22 11 12 55 92 20 |.......8);"..U. |
00000B90: 55 50 44 41 54 45 20 52 45 43 4F 52 44 28 53 29 |UPDATE RECORD(S)|
00000BA0: 22 00 C1 13 E2 04 99 A3 38 29 3B 22 11 12 44 92 |".......8);"..D.|
00000BB0: 20 44 45 4C 45 54 45 20 52 45 43 4F 52 44 28 53 | DELETE RECORD(S|
00000BC0: 29 00 EA 13 EC 04 99 A3 38 29 3B 22 11 12 58 92 |).......8);"..X.|
00000BD0: 20 53 4F 52 54 2C 20 50 52 49 4E 54 20 26 20 53 | SORT, PRINT & S|
00000BE0: 54 4F 52 45 20 44 41 54 41 22 00 F8 13 F6 04 51 |TORE DATA".....Q|
00000BF0: 55 24 B2 C7 28 33 34 29 00 0C 14 00 05 A1 41 24 |U$..(34)......A$|
00000C00: 3A 8B 41 24 B2 22 22 A7 31 32 38 30 00 2B 14 0A |:.A$."".1280.+..|
00000C10: 05 8B 41 24 B2 22 41 22 A7 58 24 B2 22 41 44 44 |..A$."A".X$."ADD|
00000C20: 20 52 45 43 4F 52 44 28 53 29 22 00 4D 14 14 05 | RECORD(S)".M...|
00000C30: 8B 41 24 B2 22 55 22 A7 58 24 B2 22 55 50 44 41 |.A$."U".X$."UPDA|
00000C40: 54 45 20 52 45 43 4F 52 44 28 53 29 22 00 6F 14 |TE RECORD(S)".o.|
00000C50: 1E 05 8B 41 24 B2 22 44 22 A7 58 24 B2 22 44 45 |...A$."D".X$."DE|
00000C60: 4C 45 54 45 20 52 45 43 4F 52 44 28 53 29 22 00 |LETE RECORD(S)".|
00000C70: 99 14 28 05 8B 41 24 B2 22 58 22 A7 58 24 B2 22 |..(..A$."X".X$."|
00000C80: 53 4F 52 54 2C 20 50 52 49 4E 54 20 26 20 53 54 |SORT, PRINT & ST|
00000C90: 4F 52 45 20 44 41 54 41 22 00 DA 14 32 05 99 22 |ORE DATA"...2.."|
00000CA0: 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000CB0: 11 11 11 12 9E 22 3B A6 31 30 29 3B 58 24 3A 99 |.....";.10);X$:.|
00000CC0: A6 31 30 29 3B 22 12 52 45 54 55 52 4E 92 20 54 |.10);".RETURN. T|
00000CD0: 4F 20 43 4F 4E 46 49 52 4D 22 00 F9 14 3C 05 5A |O CONFIRM"...<.Z|
00000CE0: 24 B2 41 24 3A 8F 20 45 58 43 48 41 4E 47 45 20 |$.A$:. EXCHANGE |
00000CF0: 56 41 52 49 41 42 4C 45 53 00 0D 15 46 05 A1 41 |VARIABLES...F..A|
00000D00: 24 3A 8B 41 24 B2 22 22 A7 31 33 35 30 00 21 15 |$:.A$."".1350.!.|
00000D10: 50 05 8B 41 24 B3 B1 C7 28 31 33 29 A7 31 32 31 |P..A$...(13).121|
00000D20: 30 00 42 15 5A 05 8B 5A 24 B2 22 41 22 A7 31 34 |0.B.Z..Z$."A".14|
00000D30: 34 30 3A 8F 20 41 44 44 20 52 45 43 4F 52 44 28 |40:. ADD RECORD(|
00000D40: 53 29 00 66 15 64 05 8B 5A 24 B2 22 55 22 A7 31 |S).f.d..Z$."U".1|
00000D50: 35 34 30 3A 8F 20 55 50 44 41 54 45 20 52 45 43 |540:. UPDATE REC|
00000D60: 4F 52 44 28 53 29 00 8A 15 6E 05 8B 5A 24 B2 22 |ORD(S)...n..Z$."|
00000D70: 44 22 A7 31 38 36 30 3A 8F 20 44 45 4C 45 54 45 |D".1860:. DELETE|
00000D80: 20 52 45 43 4F 52 44 28 53 29 00 B5 15 78 05 8B | RECORD(S)...x..|
00000D90: 5A 24 B2 22 58 22 A7 35 34 30 3A 8F 20 53 4F 52 |Z$."X".540:. SOR|
00000DA0: 54 2C 20 50 52 49 4E 54 20 26 20 53 54 4F 52 45 |T, PRINT & STORE|
00000DB0: 20 44 41 54 41 00 CF 15 82 05 8F 20 2A 2A 2A 2A | DATA...... ****|
00000DC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000DD0: E9 15 8C 05 8F 20 2A 20 20 41 44 44 20 52 45 43 |..... * ADD REC|
00000DE0: 4F 52 44 28 53 29 20 20 2A 00 03 16 96 05 8F 20 |ORD(S) *...... |
00000DF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000E00: 2A 2A 2A 00 17 16 A0 05 8B 43 4E AA 31 B3 B2 35 |***......CN.1..5|
00000E10: 30 30 A7 31 34 37 30 00 54 16 AA 05 99 22 11 11 |00.1470.T...."..|
00000E20: 05 20 20 20 46 49 4C 45 20 46 55 4C 4C 2C 20 44 |. FILE FULL, D|
00000E30: 45 4C 45 54 45 20 52 45 43 4F 52 44 28 53 29 20 |ELETE RECORD(S) |
00000E40: 54 4F 20 41 44 44 22 3A 81 57 B2 31 A4 33 30 30 |TO ADD":.W.1.300|
00000E50: 30 3A 82 57 00 5E 16 B4 05 89 31 32 31 30 00 73 |0:.W.^....1210.s|
00000E60: 16 BE 05 49 31 B2 30 3A 81 49 B2 43 4E AA 32 A4 |...I1.0:.I.CN.2.|
00000E70: 35 30 30 00 93 16 C8 05 8D 32 31 31 30 3A 8B 4E |500......2110:.N|
00000E80: 41 24 28 49 29 B2 22 22 A7 49 31 B2 49 3A 49 B2 |A$(I)."".I1.I:I.|
00000E90: 35 30 30 00 A9 16 D2 05 82 49 3A 8B 49 31 B3 B1 |500......I:.I1..|
00000EA0: 30 A7 43 4E B2 49 31 AB 32 00 B3 16 DC 05 89 31 |0.CN.I1.2......1|
00000EB0: 32 31 30 00 D0 16 E6 05 8F 20 2A 2A 2A 2A 2A 2A |210...... ******|
00000EC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000ED0: 00 ED 16 F0 05 8F 20 2A 20 20 55 50 44 41 54 45 |...... * UPDATE|
00000EE0: 20 52 45 43 4F 52 44 28 53 29 20 20 2A 00 0A 17 | RECORD(S) *...|
00000EF0: FA 05 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |... ************|
00000F00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 4B 17 04 06 8D |**********.K....|
00000F10: 32 33 32 30 3A 99 22 13 11 11 11 11 11 11 11 11 |2320:.".........|
00000F20: 11 11 11 11 11 11 11 11 11 11 11 11 11 9E 45 4E |..............EN|
00000F30: 54 45 52 20 52 45 43 4F 52 44 20 4E 4F 2E 20 54 |TER RECORD NO. T|
00000F40: 4F 20 55 50 44 41 54 45 20 22 3B 00 5E 17 0E 06 |O UPDATE ";.^...|
00000F50: 9F 31 2C 30 3A 84 31 2C 49 44 24 3A A0 31 00 86 |.1,0:.1,ID$:.1..|
00000F60: 17 18 06 8B 49 44 24 B2 22 45 4E 44 22 A7 31 32 |....ID$."END".12|
00000F70: 31 30 3A 8F 20 4E 4F 20 4D 4F 52 45 20 54 4F 20 |10:. NO MORE TO |
00000F80: 55 50 44 41 54 45 00 BD 17 22 06 8B C3 28 49 44 |UPDATE..."...(ID|
00000F90: 24 29 B1 33 A7 99 3A 99 22 1E 49 4E 56 41 4C 49 |$).3..:.".INVALI|
00000FA0: 44 20 4E 4F 2E 20 50 4C 45 41 53 45 20 54 52 59 |D NO. PLEASE TRY|
00000FB0: 20 41 47 41 49 4E 22 3A 89 31 35 34 30 00 E4 17 | AGAIN":.1540...|
00000FC0: 2C 06 81 49 B2 31 A4 C3 28 49 44 24 29 3A 4E 28 |,..I.1..(ID$):N(|
00000FD0: 49 29 B2 30 3A 58 B2 C6 28 CA 28 49 44 24 2C 49 |I).0:X..(.(ID$,I|
00000FE0: 2C 31 29 29 00 FA 17 36 06 8B 58 B3 34 38 B0 58 |,1))...6..X.48.X|
00000FF0: B1 35 37 A7 4E 28 49 29 B2 31 00 1C 18 40 06 82 |.57.N(I).1...@..|
00001000: 49 3A 4E B2 4E 28 31 29 AA 4E 28 32 29 AA 4E 28 |I:N.N(1).N(2).N(|
00001010: 33 29 3A 8B 4E B2 30 A7 31 36 34 30 00 54 18 4A |3):.N.0.1640.T.J|
00001020: 06 99 3A 99 22 1E 49 4E 56 41 4C 49 44 20 43 48 |..:.".INVALID CH|
00001030: 41 52 41 43 54 45 52 53 20 49 4E 20 4E 4F 2E 20 |ARACTERS IN NO. |
00001040: 20 22 3B 49 44 24 3A 99 A6 32 36 29 3B 3A 81 49 | ";ID$:..26);:.I|
00001050: B2 31 A4 33 00 6F 18 54 06 99 C7 28 33 32 AA 28 |.1.3.o.T...(32.(|
00001060: 4E 28 49 29 B3 B1 30 AC 36 32 29 29 3B 3A 82 00 |N(I)..0.62));:..|
00001070: 79 18 5E 06 89 31 35 34 30 00 9B 18 68 06 49 44 |y.^..1540...h.ID|
00001080: B2 C5 28 49 44 24 29 3A 8F 20 47 4F 54 20 41 20 |..(ID$):. GOT A |
00001090: 56 41 4C 49 44 20 4E 4F 2E 20 3F 00 D8 18 72 06 |VALID NO. ?...r.|
000010A0: 8B 49 44 B1 43 4E AA 31 A7 99 3A 99 22 1E 52 45 |.ID.CN.1..:.".RE|
000010B0: 43 4F 52 44 20 4E 4F 2E 20 4E 4F 54 20 45 4E 54 |CORD NO. NOT ENT|
000010C0: 45 52 45 44 20 59 45 54 20 20 20 20 20 20 20 20 |ERED YET |
000010D0: 20 22 3A 89 31 35 34 30 00 18 19 7C 06 4E 41 24 | ":.1540...|.NA$|
000010E0: 28 30 29 B2 4E 41 24 28 49 44 29 3A 53 54 24 28 |(0).NA$(ID):ST$(|
000010F0: 30 29 B2 53 54 24 28 49 44 29 3A 54 59 24 28 30 |0).ST$(ID):TY$(0|
00001100: 29 B2 54 59 24 28 49 44 29 3A 55 44 24 B2 22 55 |).TY$(ID):UD$."U|
00001110: 50 44 41 54 49 4E 47 22 00 31 19 86 06 8D 32 32 |PDATING".1....22|
00001120: 34 30 3A 8F 20 44 49 53 50 4C 41 59 20 44 41 54 |40:. DISPLAY DAT|
00001130: 41 00 66 19 90 06 99 22 11 45 4E 54 45 52 20 54 |A.f....".ENTER T|
00001140: 49 54 4C 45 20 20 28 22 3B 51 55 24 3B 22 2D 22 |ITLE (";QU$;"-"|
00001150: 3B 51 55 24 3B 22 20 54 4F 20 4C 45 41 56 45 20 |;QU$;" TO LEAVE |
00001160: 53 41 4D 45 29 22 00 86 19 9A 06 99 22 54 49 54 |SAME)"......"TIT|
00001170: 4C 45 3E 20 22 3B 3A 9F 31 2C 30 3A 84 31 2C 49 |LE> ";:.1,0:.1,I|
00001180: 24 3A A0 31 3A 99 00 9D 19 A4 06 8B 49 24 B3 B1 |$:.1:.......I$..|
00001190: 22 2D 22 A7 4E 41 24 28 30 29 B2 49 24 00 D2 19 |"-".NA$(0).I$...|
000011A0: AE 06 99 22 11 45 4E 54 45 52 20 4D 45 44 49 55 |...".ENTER MEDIU|
000011B0: 4D 20 28 22 3B 51 55 24 3B 22 2D 22 3B 51 55 24 |M (";QU$;"-";QU$|
000011C0: 3B 22 20 54 4F 20 4C 45 41 56 45 20 53 41 4D 45 |;" TO LEAVE SAME|
000011D0: 29 22 00 F2 19 B8 06 99 22 4D 45 44 49 55 4D 3E |)"......"MEDIUM>|
000011E0: 22 3B 3A 9F 31 2C 30 3A 84 31 2C 49 24 3A A0 31 |";:.1,0:.1,I$:.1|
000011F0: 3A 99 00 09 1A C2 06 8B 49 24 B3 B1 22 2D 22 A7 |:.......I$.."-".|
00001200: 53 54 24 28 30 29 B2 49 24 00 3E 1A CC 06 99 22 |ST$(0).I$.>...."|
00001210: 11 45 4E 54 45 52 20 54 59 50 45 20 20 20 28 22 |.ENTER TYPE ("|
00001220: 3B 51 55 24 3B 22 2D 22 3B 51 55 24 3B 22 20 54 |;QU$;"-";QU$;" T|
00001230: 4F 20 4C 45 41 56 45 20 53 41 4D 45 29 22 00 5E |O LEAVE SAME)".^|
00001240: 1A D6 06 99 22 54 59 50 45 3E 20 20 22 3B 3A 9F |...."TYPE> ";:.|
00001250: 31 2C 30 3A 84 31 2C 49 24 3A A0 31 3A 99 00 75 |1,0:.1,I$:.1:..u|
00001260: 1A E0 06 8B 49 24 B3 B1 22 2D 22 A7 54 59 24 28 |....I$.."-".TY$(|
00001270: 30 29 B2 49 24 00 91 1A EA 06 8D 32 32 34 30 3A |0).I$......2240:|
00001280: 8F 20 52 45 2D 44 49 53 50 4C 41 59 20 44 41 54 |. RE-DISPLAY DAT|
00001290: 41 00 C5 1A F4 06 99 22 13 11 11 11 11 11 11 11 |A......"........|
000012A0: 11 11 11 11 11 11 11 11 11 11 11 11 9E 4E 45 57 |.............NEW|
000012B0: 20 44 41 54 41 20 4F 2E 4B 2E 20 5B 59 2F 4E 5D | DATA O.K. [Y/N]|
000012C0: 20 3F 20 22 3B 00 F0 1A FE 06 9F 31 2C 30 3A 84 | ? ";......1,0:.|
000012D0: 31 2C 59 4E 24 3A A0 31 3A 8B 59 4E 24 B3 B1 22 |1,YN$:.1:.YN$.."|
000012E0: 59 22 AF 59 4E 24 B3 B1 22 4E 22 A7 31 37 38 30 |Y".YN$.."N".1780|
000012F0: 00 18 1B 08 07 8B 59 4E 24 B2 22 4E 22 A7 31 36 |......YN$."N".16|
00001300: 36 30 3A 8F 20 52 45 53 45 54 20 41 4E 44 20 54 |60:. RESET AND T|
00001310: 52 59 20 41 47 41 49 4E 00 49 1B 12 07 4E 41 24 |RY AGAIN.I...NA$|
00001320: 28 49 44 29 B2 4E 41 24 28 30 29 3A 53 54 24 28 |(ID).NA$(0):ST$(|
00001330: 49 44 29 B2 53 54 24 28 30 29 3A 54 59 24 28 49 |ID).ST$(0):TY$(I|
00001340: 44 29 B2 54 59 24 28 30 29 00 6F 1B 1C 07 89 31 |D).TY$(0).o....1|
00001350: 35 34 30 3A 8F 20 54 52 59 20 46 4F 52 20 41 4E |540:. TRY FOR AN|
00001360: 4F 54 48 45 52 20 54 4F 20 55 50 44 41 54 45 00 |OTHER TO UPDATE.|
00001370: 8C 1B 26 07 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..&.. **********|
00001380: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 A9 1B 30 |************...0|
00001390: 07 8F 20 2A 20 20 44 45 4C 45 54 45 20 52 45 43 |.. * DELETE REC|
000013A0: 4F 52 44 28 53 29 20 20 2A 00 C6 1B 3A 07 8F 20 |ORD(S) *...:.. |
000013B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000013C0: 2A 2A 2A 2A 2A 2A 00 07 1C 44 07 8D 32 33 32 30 |******...D..2320|
000013D0: 3A 99 22 13 11 11 11 11 11 11 11 11 11 11 11 11 |:.".............|
000013E0: 11 11 11 11 11 11 11 11 11 9E 45 4E 54 45 52 20 |..........ENTER |
000013F0: 52 45 43 4F 52 44 20 4E 4F 2E 20 54 4F 20 44 45 |RECORD NO. TO DE|
00001400: 4C 45 54 45 20 22 3B 00 1A 1C 4E 07 9F 31 2C 30 |LETE ";...N..1,0|
00001410: 3A 84 31 2C 49 44 24 3A A0 31 00 42 1C 58 07 8B |:.1,ID$:.1.B.X..|
00001420: 49 44 24 B2 22 45 4E 44 22 A7 31 32 31 30 3A 8F |ID$."END".1210:.|
00001430: 20 4E 4F 20 4D 4F 52 45 20 54 4F 20 44 45 4C 45 | NO MORE TO DELE|
00001440: 54 45 00 79 1C 62 07 8B C3 28 49 44 24 29 B1 33 |TE.y.b...(ID$).3|
00001450: A7 99 3A 99 22 1E 49 4E 56 41 4C 49 44 20 4E 4F |..:.".INVALID NO|
00001460: 2E 20 50 4C 45 41 53 45 20 54 52 59 20 41 47 41 |. PLEASE TRY AGA|
00001470: 49 4E 22 3A 89 31 38 36 30 00 A0 1C 6C 07 81 49 |IN":.1860...l..I|
00001480: B2 31 A4 C3 28 49 44 24 29 3A 4E 28 49 29 B2 30 |.1..(ID$):N(I).0|
00001490: 3A 58 B2 C6 28 CA 28 49 44 24 2C 49 2C 31 29 29 |:X..(.(ID$,I,1))|
000014A0: 00 B6 1C 76 07 8B 58 B3 34 38 B0 58 B1 35 37 A7 |...v..X.48.X.57.|
000014B0: 4E 28 49 29 B2 31 00 D8 1C 80 07 82 49 3A 4E B2 |N(I).1......I:N.|
000014C0: 4E 28 31 29 AA 4E 28 32 29 AA 4E 28 33 29 3A 8B |N(1).N(2).N(3):.|
000014D0: 4E B2 30 A7 31 39 36 30 00 10 1D 8A 07 99 3A 99 |N.0.1960......:.|
000014E0: 22 1E 49 4E 56 41 4C 49 44 20 43 48 41 52 41 43 |".INVALID CHARAC|
000014F0: 54 45 52 53 20 49 4E 20 4E 4F 2E 20 20 22 3B 49 |TERS IN NO. ";I|
00001500: 44 24 3A 99 A6 32 36 29 3B 3A 81 49 B2 31 A4 33 |D$:..26);:.I.1.3|
00001510: 00 2B 1D 94 07 99 C7 28 33 32 AA 28 4E 28 49 29 |.+.....(32.(N(I)|
00001520: B3 B1 30 AC 36 32 29 29 3B 3A 82 00 35 1D 9E 07 |..0.62));:..5...|
00001530: 89 31 38 36 30 00 57 1D A8 07 49 44 B2 C5 28 49 |.1860.W...ID..(I|
00001540: 44 24 29 3A 8F 20 47 4F 54 20 41 20 56 41 4C 49 |D$):. GOT A VALI|
00001550: 44 20 4E 4F 2E 20 3F 00 93 1D B2 07 8B 49 44 B1 |D NO. ?......ID.|
00001560: 43 4E AA 31 A7 99 3A 99 22 1E 52 45 43 4F 52 44 |CN.1..:.".RECORD|
00001570: 20 4E 4F 2E 20 4E 4F 54 20 45 4E 54 45 52 45 44 | NO. NOT ENTERED|
00001580: 20 59 45 54 20 20 20 20 20 20 20 20 22 3A 89 31 | YET ":.1|
00001590: 38 36 30 00 D3 1D BC 07 4E 41 24 28 30 29 B2 4E |860.....NA$(0).N|
000015A0: 41 24 28 49 44 29 3A 53 54 24 28 30 29 B2 53 54 |A$(ID):ST$(0).ST|
000015B0: 24 28 49 44 29 3A 54 59 24 28 30 29 B2 54 59 24 |$(ID):TY$(0).TY$|
000015C0: 28 49 44 29 3A 55 44 24 B2 22 44 45 4C 45 54 49 |(ID):UD$."DELETI|
000015D0: 4E 47 22 00 EC 1D C6 07 8D 32 32 34 30 3A 8F 20 |NG"......2240:. |
000015E0: 44 49 53 50 4C 41 59 20 44 41 54 41 00 21 1E D0 |DISPLAY DATA.!..|
000015F0: 07 99 22 13 11 11 11 11 11 11 11 11 11 11 11 11 |..".............|
00001600: 11 11 11 11 11 11 11 9E 44 45 4C 45 54 45 20 44 |........DELETE D|
00001610: 41 54 41 20 4F 2E 4B 2E 20 5B 59 2F 4E 5D 20 22 |ATA O.K. [Y/N] "|
00001620: 3B 00 4C 1E DA 07 9F 31 2C 30 3A 84 31 2C 59 4E |;.L....1,0:.1,YN|
00001630: 24 3A A0 31 3A 8B 59 4E 24 B3 B1 22 59 22 AF 59 |$:.1:.YN$.."Y".Y|
00001640: 4E 24 B3 B1 22 4E 22 A7 32 30 30 30 00 72 1E E4 |N$.."N".2000.r..|
00001650: 07 8B 59 4E 24 B2 22 4E 22 A7 31 38 36 30 3A 8F |..YN$."N".1860:.|
00001660: 20 52 45 53 45 54 20 26 20 54 52 59 20 41 47 41 | RESET & TRY AGA|
00001670: 49 4E 00 8D 1E EE 07 8B 49 44 B2 43 4E AA 31 A7 |IN......ID.CN.1.|
00001680: 43 4E B2 43 4E AB 31 3A 89 31 38 36 30 00 D4 1E |CN.CN.1:.1860...|
00001690: F8 07 8B 49 44 B2 31 A7 81 49 B2 32 A4 43 4E AA |...ID.1..I.2.CN.|
000016A0: 31 3A 4E 41 24 28 49 AB 31 29 B2 4E 41 24 28 49 |1:NA$(I.1).NA$(I|
000016B0: 29 3A 53 54 24 28 49 AB 31 29 B2 53 54 24 28 49 |):ST$(I.1).ST$(I|
000016C0: 29 3A 54 59 24 28 49 AB 31 29 B2 54 59 24 28 49 |):TY$(I.1).TY$(I|
000016D0: 29 3A 82 49 00 EC 1E 02 08 8B 49 44 B2 31 A7 43 |):.I......ID.1.C|
000016E0: 4E B2 43 4E AB 31 3A 89 31 38 36 30 00 30 1F 0C |N.CN.1:.1860.0..|
000016F0: 08 81 49 B2 49 44 AA 31 A4 43 4E AA 31 3A 4E 41 |..I.ID.1.CN.1:NA|
00001700: 24 28 49 AB 31 29 B2 4E 41 24 28 49 29 3A 53 54 |$(I.1).NA$(I):ST|
00001710: 24 28 49 AB 31 29 B2 53 54 24 28 49 29 3A 54 59 |$(I.1).ST$(I):TY|
00001720: 24 28 49 AB 31 29 B2 54 59 24 28 49 29 3A 82 49 |$(I.1).TY$(I):.I|
00001730: 00 42 1F 16 08 43 4E B2 43 4E AB 31 3A 89 31 38 |.B...CN.CN.1:.18|
00001740: 36 30 00 60 1F 20 08 8F 20 2A 2A 2A 2A 2A 2A 2A |60.`. .. *******|
00001750: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001760: 00 7E 1F 2A 08 8F 20 2A 20 20 49 4E 50 55 54 20 |.~.*.. * INPUT |
00001770: 52 45 43 4F 52 44 20 44 41 54 41 20 20 2A 00 9C |RECORD DATA *..|
00001780: 1F 34 08 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.4.. ***********|
00001790: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 C4 1F 3E |************...>|
000017A0: 08 99 22 93 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 9E 41 |.."............A|
000017B0: 44 44 2F 49 4E 53 45 52 54 20 52 45 43 4F 52 44 |DD/INSERT RECORD|
000017C0: 28 53 29 22 00 E1 1F 48 08 99 22 13 11 11 52 45 |(S)"...H.."...RE|
000017D0: 43 4F 52 44 20 4E 4F 3A 22 3B 49 3A 8D 32 33 32 |CORD NO:";I:.232|
000017E0: 30 00 10 20 52 08 99 22 13 11 11 11 11 45 4E 54 |0.. R..".....ENT|
000017F0: 45 52 20 54 49 54 4C 45 20 20 3A 20 22 3B 3A 9F |ER TITLE : ";:.|
00001800: 31 2C 30 3A 84 31 2C 4E 41 24 28 49 29 3A A0 31 |1,0:.1,NA$(I):.1|
00001810: 00 2E 20 5C 08 8B 4E 41 24 28 49 29 B2 22 45 4E |.. \..NA$(I)."EN|
00001820: 44 22 A7 4E 41 24 28 49 29 B2 22 22 3A 8E 00 5F |D".NA$(I)."":.._|
00001830: 20 66 08 99 22 13 11 11 11 11 11 11 45 4E 54 45 | f..".......ENTE|
00001840: 52 20 4D 45 44 49 55 4D 20 3A 20 22 3B 3A 9F 31 |R MEDIUM : ";:.1|
00001850: 2C 30 3A 84 31 2C 53 54 24 28 49 29 3A A0 31 00 |,0:.1,ST$(I):.1.|
00001860: 92 20 70 08 99 22 13 11 11 11 11 11 11 11 11 45 |. p..".........E|
00001870: 4E 54 45 52 20 54 59 50 45 20 20 20 3A 20 22 3B |NTER TYPE : ";|
00001880: 3A 9F 31 2C 30 3A 84 31 2C 54 59 24 28 49 29 3A |:.1,0:.1,TY$(I):|
00001890: A0 31 00 B2 20 7A 08 8B C3 28 4E 41 24 28 49 29 |.1.. z...(NA$(I)|
000018A0: 29 B1 4E 4C A7 88 4E 4C B2 C3 28 4E 41 24 28 49 |).NL..NL..(NA$(I|
000018B0: 29 29 00 D2 20 84 08 8B C3 28 54 59 24 28 49 29 |)).. ....(TY$(I)|
000018C0: 29 B1 54 4C A7 88 54 4C B2 C3 28 54 59 24 28 49 |).TL..TL..(TY$(I|
000018D0: 29 29 00 F2 20 8E 08 8B C3 28 53 54 24 28 49 29 |)).. ....(ST$(I)|
000018E0: 29 B1 53 4C A7 88 53 4C B2 C3 28 53 54 24 28 49 |).SL..SL..(ST$(I|
000018F0: 29 29 00 F8 20 98 08 8E 00 18 21 A2 08 8F 20 2A |)).. .....!... *|
00001900: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001910: 2A 2A 2A 2A 2A 2A 2A 2A 00 38 21 AC 08 8F 20 2A |********.8!... *|
00001920: 20 20 44 49 53 50 4C 41 59 20 52 45 43 4F 52 44 | DISPLAY RECORD|
00001930: 20 44 41 54 41 20 20 2A 00 58 21 B6 08 8F 20 2A | DATA *.X!... *|
00001940: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001950: 2A 2A 2A 2A 2A 2A 2A 2A 00 85 21 C0 08 99 22 93 |********..!...".|
00001960: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 9E 22 3B 55 44 24 |...........";UD$|
00001970: 22 20 52 45 43 4F 52 44 20 3A 22 3B 49 44 24 3B |" RECORD :";ID$;|
00001980: 22 11 11 05 22 00 C6 21 CA 08 99 22 11 1D 1D 1D |"..."..!..."....|
00001990: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 54 |...............T|
000019A0: 49 54 4C 45 22 3A 58 24 B2 4E 41 24 28 30 29 3A |ITLE":X$.NA$(0):|
000019B0: 59 B2 34 30 3A 8D 32 33 36 30 3A 99 22 1E 22 3B |Y.40:.2360:.".";|
000019C0: 58 24 3B 22 05 22 00 07 22 D4 08 99 22 11 1D 1D |X$;".".."..."...|
000019D0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 4D |...............M|
000019E0: 45 44 49 55 4D 22 3A 58 24 B2 53 54 24 28 30 29 |EDIUM":X$.ST$(0)|
000019F0: 3A 59 B2 34 30 3A 8D 32 33 36 30 3A 99 22 1E 22 |:Y.40:.2360:."."|
00001A00: 3B 58 24 3B 22 05 22 00 48 22 DE 08 99 22 11 1D |;X$;".".H"..."..|
00001A10: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001A20: 1D 54 59 50 45 20 22 3A 58 24 B2 54 59 24 28 30 |.TYPE ":X$.TY$(0|
00001A30: 29 3A 59 B2 34 30 3A 8D 32 33 36 30 3A 99 22 1E |):Y.40:.2360:.".|
00001A40: 22 3B 58 24 3B 22 05 22 00 4E 22 E8 08 8E 00 6A |";X$;".".N"....j|
00001A50: 22 F2 08 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |"... ***********|
00001A60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 86 22 FC 08 8F |**********.."...|
00001A70: 20 2A 20 20 44 49 53 50 4C 41 59 20 4D 45 53 53 | * DISPLAY MESS|
00001A80: 41 47 45 20 20 2A 00 A2 22 06 09 8F 20 2A 2A 2A |AGE *.."... ***|
00001A90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001AA0: 2A 2A 00 E3 22 10 09 99 22 13 11 11 11 11 11 11 |**.."...".......|
00001AB0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001AC0: 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 9E 54 59 |..............TY|
00001AD0: 50 45 20 12 45 4E 44 92 20 54 4F 20 51 55 49 54 |PE .END. TO QUIT|
00001AE0: 22 3A 8E 00 FF 22 1A 09 8F 20 2A 2A 2A 2A 2A 2A |":..."... ******|
00001AF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00001B00: 1B 23 24 09 8F 20 2A 20 20 43 45 4E 54 52 45 20 |.#$.. * CENTRE |
00001B10: 48 45 41 44 49 4E 47 53 20 20 2A 00 37 23 2E 09 |HEADINGS *.7#..|
00001B20: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00001B30: 2A 2A 2A 2A 2A 2A 2A 00 59 23 38 09 58 24 B2 42 |*******.Y#8.X$.B|
00001B40: 4C 24 AA 58 24 AA 42 4C 24 3A 58 B2 28 C3 28 58 |L$.X$.BL$:X.(.(X|
00001B50: 24 29 AB 59 AA 32 29 AD 32 00 6C 23 42 09 58 24 |$).Y.2).2.l#B.X$|
00001B60: B2 CA 28 58 24 2C 58 2C 59 29 3A 8E 00 81 23 4C |..(X$,X,Y):...#L|
00001B70: 09 58 24 B2 C8 28 58 24 AA 42 4C 24 2C 59 29 3A |.X$..(X$.BL$,Y):|
00001B80: 8E 00 9D 23 56 09 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |...#V.. ********|
00001B90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 B9 23 |*************..#|
00001BA0: 57 09 8F 20 2A 20 20 50 52 49 4E 54 20 49 4E 54 |W.. * PRINT INT|
00001BB0: 45 52 52 55 50 54 20 20 2A 00 D5 23 58 09 8F 20 |ERRUPT *..#X.. |
00001BC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001BD0: 2A 2A 2A 2A 2A 00 00 24 B8 0B 99 22 93 11 11 1D |*****..$..."....|
00001BE0: 9E 50 52 49 4E 54 49 4E 47 20 2E 2E 2E 20 50 4C |.PRINTING ... PL|
00001BF0: 45 41 53 45 20 42 45 20 50 41 54 49 45 4E 54 22 |EASE BE PATIENT"|
00001C00: 00 2D 24 BD 0B 99 22 13 11 11 11 11 11 1D 52 45 |.-$...".......RE|
00001C10: 2D 41 4C 49 47 4E 20 50 41 50 45 52 20 41 4E 44 |-ALIGN PAPER AND|
00001C20: 20 50 52 45 53 53 20 41 20 4B 45 59 22 00 41 24 | PRESS A KEY".A$|
00001C30: C2 0B A1 41 24 3A 8B 41 24 B2 22 22 A7 33 30 31 |...A$:.A$."".301|
00001C40: 30 00 71 24 C7 0B 99 22 91 20 20 20 20 20 20 20 |0.q$...". |
00001C50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001C60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001C70: 22 00 77 24 CC 0B 8E 00 00 00 30 |".w$......0 |
..#.D.. ***************************.E.N.
. * SOFTWARE INDEX LISTER *.G.X.. * (
C) M. JONES OCT 1984 *...... * CBM-64,
1541 & PRINTER *...... ****************
***********.......M. ..53280,0:.53281,0:
."..".Y....T.1.10......" SOFTWAR
E INDEX LISTER"......T./.R.."...
(C) MARTIN JONES 1984".X...."...
HIT 'C' TO CONTINUE.".K....C$:.C$."".
250.|....C$.."C".250...... *************
***...... * INITIALISE *.A.".. *******
*********...,..NA$(500),TY$(500),ST$(500
)...6..NL.5:.TL.4:.SL.6...@.BL$."":.X.1.
40:BL$.BL$." ":.X.$.J.CN.499.;.T.. *****
***********.R.^.. * INPUT DATA *.I.H..
****************...R..".....USE EXISTIN
G DATA [Y/N] ";YN$...|..YN$.."Y".YN$.."N
".370......YN$."N"..450......1,0:."....E
NTER FILENAME ... ";:.1,FI$: 1......1,8,
2,"0:".FI$.",SEQ"......1,CN:C2.CN.H....I
.1.CN.1:.1,NA$(I),ST$(I),TY$(I):.2170:.I
.U... 1:.1210.H.B.I1.0:.I.1.CN.1...L..21
10:.NA$(I)."".I1.I:I.500...V..I:.I1.0.49
0.....CN.I1.2.....C2.CN.H....1210:. DISP
LAY MENU...... ******************......
* SORT ROUTINE *...... ***************
***."...FL.0:C2.CN.0.&..C2.2.670.].0..".
....SORTING ............ PLEASE WAIT".I.
:..I.1.C2...D..NA$(I)..NA$(I.1).630:. CH
ECK IF SORT CORRECT.Z.N.NA$.NA$(I):NA$(I
).NA$(I.1):NA$(I.1).NA$:. NA$ = NAME ORD
ER...X.TY$.TY$(I):TY$(I).TY$(I.1):TY$(I.
1).TY$:. TY$ = TYPE ORDER.[.B.ST$.ST$(I)
:ST$(I).ST$(I.1):ST$(I.1).ST$:. ST$ = ST
ORAGE ORDER.}.L.FL.1:. SET DATA EXCHANGE
FLAG...V..I.....C2.C2.1:. DECREMENT ORD
ER TO SORT.Q....C2.2.670:. IF < 2 NO MOR
E TO SORT......FL.1.540:. IF = 1 THEN EX
CHANGE DONE - RE-TRY TO MAKE SURE.D...."
.....SORTING COMPLETE .. HIT A KEY TO PR
INT".W....X$:.X$."".680.Q.... **********
*********...... * PRINT ROUTINE *...F.
. *******************...P..4,4...Z.PS.62
:LC.62.L....I.1.CN.1......LC..PS..1070:.
PRINT NEW PAGE.....I$." ".D(I):I$.I(
I$,4)./...X$.NA$(I):Y.NL.2:.2380:NA$.X$.
Q...X$.ST$(I):Y.SL.2:.2380:ST$.X$.S...X$
.TY$(I):Y.TL.2:.2380:TY$.X$... ..4,I$;"
";NA$;ST$;TY$...*.LC.LC.1. .4..I...>. 4.
H.H..".....ANOTHER COPY [Y/N] ?"...R..X$
:.X$."".850...\..X$.."Y".X$.."N".850...F
..X$."Y".720...P..920.+.Z.. ************
***********.I.... * SAVE DATA ROUTINE
*.G.... ***********************......"..
...SAVE DATA [Y/N] ";YN$......YN$.."Y".Y
N$.."N".920......YN$."N".1030......1,0:.
"....ENTER FILENAME ... ";:.1,FI$: 1....
.CM$.","...J..1,8,2,"0:".FI$.",SEQ,W"...
T..1,CN.%....I.1.CN.1.I....1,NA$(I);CM$;
ST$(I);CM$;TY$(I).P....I.W... 1.}...."..
..BYE ...":.I.1.3000:.:.64738...... ****
***************...... * PRINT HEADING
*.K.$.. *******************.U....3000...
8.LC.2...B.X$."TITLE":Y.NL.2:.2360:N0$.X
$.%.L.X$."MEDIUM":Y.SL.2:.2360:N1$.X$.G.
V.X$."TYPE":Y.TL.2:.2360:N2$.X$.J.`.X$."
.....":Y.NL.2:.2360:N3$.X$...J.X$.".....
.":Y.SL.2:.2360:N4$.X$...T.X$."....":Y.T
L.2:.2360:N5$.X$.I.~..4,"NO.";N0$;N1$;N2
$......4,"...";N3$;N4$;N5$............ *
******************...... * COMMAND TABL
E *.6.... *******************.W...."...
.........COMMAND TABLE".B.D.."..."...N..
.8);"..A. ADD RECORD(S)"...X...8);"..U.
UPDATE RECORD(S)".A.....8);"..D. DELETE
RECORD(S).......8);"..X. SORT, PRINT & S
TORE DATA".....QU$.G(34)......A$:.A$."".
1280.+....A$."A".X$."ADD RECORD(S)".M...
.A$."U".X$."UPDATE RECORD(S)".O....A$."D
".X$."DELETE RECORD(S)"...(..A$."X".X$."
SORT, PRINT & STORE DATA".Z.2.."........
.............";.10);X$:..10);".RETURN. T
O CONFIRM"...<.Z$.A$:. EXCHANGE VARIABLE
S...F..A$:.A$."".1350.!.P..A$..G(13).121
0.B.Z..Z$."A".1440:. ADD RECORD(S).F.D..
Z$."U".1540:. UPDATE RECORD(S)...N..Z$."
D".1860:. DELETE RECORD(S)...X..Z$."X".5
40:. SORT, PRINT & STORE DATA.O.... ****
***************...... * ADD RECORD(S)
*...... *******************... ..CN.1..5
00.1470.T...."... FILE FULL, DELETE RE
CORD(S) TO ADD":.W.1.3000:.W.^....1210.S
...I1.0:.I.CN.2.500...H..2110:.NA$(I).""
.I1.I:I.500...R..I:.I1..0.CN.I1.2......1
210.P.... **********************...... *
UPDATE RECORD(S) *...... ************
**********.K....2320:.".................
......ENTER RECORD NO. TO UPDATE ";.^...
.1,0:.1,ID$: 1......ID$."END".1210:. NO
MORE TO UPDATE..."..C(ID$).3..:.".INVALI
D NO. PLEASE TRY AGAIN":.1540...,..I.1.C
(ID$):N(I).0:X.F(J(ID$,I,1))...6..X.48.X
.57.N(I).1...@..I:N.N(1).N(2).N(3):.N.0.
1640.T.J..:.".INVALID CHARACTERS IN NO.
";ID$:..26);:.I.1.3.O.T..G(32.(N(I)..0.
62));:..Y.^..1540...H.ID.E(ID$):. GOT A
VALID NO. ?.X.R..ID.CN.1..:.".RECORD NO.
NOT ENTERED YET ":.1540...|.NA$
(0).NA$(ID):ST$(0).ST$(ID):TY$(0).TY$(ID
):UD$."UPDATING".1....2240:. DISPLAY DAT
A.F....".ENTER TITLE (";QU$;"-";QU$;" T
O LEAVE SAME)"......"TITLE> ";:.1,0:.1,I
$: 1:.......I$.."-".NA$(0).I$.R....".ENT
ER MEDIUM (";QU$;"-";QU$;" TO LEAVE SAME
)"......"MEDIUM>";:.1,0:.1,I$: 1:....B..
I$.."-".ST$(0).I$.>.L..".ENTER TYPE ("
;QU$;"-";QU$;" TO LEAVE SAME)".^.V.."TYP
E> ";:.1,0:.1,I$: 1:..U....I$.."-".TY$(
0).I$......2240:. RE-DISPLAY DATA.E...."
.....................NEW DATA O.K. [Y/N]
? ";......1,0:.1,YN$: 1:.YN$.."Y".YN$..
"N".1780......YN$."N".1660:. RESET AND T
RY AGAIN.I...NA$(ID).NA$(0):ST$(ID).ST$(
0):TY$(ID).TY$(0).O....1540:. TRY FOR AN
OTHER TO UPDATE...&.. ******************
****...0.. * DELETE RECORD(S) *.F.:..
**********************...D..2320:.".....
..................ENTER RECORD NO. TO DE
LETE ";...N..1,0:.1,ID$: 1.B.X..ID$."END
".1210:. NO MORE TO DELETE.Y.B..C(ID$).3
..:.".INVALID NO. PLEASE TRY AGAIN":.186
0. .L..I.1.C(ID$):N(I).0:X.F(J(ID$,I,1))
...V..X.48.X.57.N(I).1.X....I:N.N(1).N(2
).N(3):.N.0.1960......:.".INVALID CHARAC
TERS IN NO. ";ID$:..26);:.I.1.3.+....G(
32.(N(I)..0.62));:..5....1860.W...ID.E(I
D$):. GOT A VALID NO. ?......ID.CN.1..:.
".RECORD NO. NOT ENTERED YET ":.1
860.S...NA$(0).NA$(ID):ST$(0).ST$(ID):TY
$(0).TY$(ID):UD$."DELETING"...F..2240:.
DISPLAY DATA.!.P..".....................
DELETE DATA O.K. [Y/N] ";.L.Z..1,0:.1,YN
$: 1:.YN$.."Y".YN$.."N".2000.R....YN$."N
".1860:. RESET & TRY AGAIN......ID.CN.1.
CN.CN.1:.1860.T....ID.1..I.2.CN.1:NA$(I.
1).NA$(I):ST$(I.1).ST$(I):TY$(I.1).TY$(I
):.I......ID.1.CN.CN.1:.1860.0....I.ID.1
.CN.1:NA$(I.1).NA$(I):ST$(I.1).ST$(I):TY
$(I.1).TY$(I):.I.B...CN.CN.1:.1860.`. ..
***********************.~.*.. * INPUT
RECORD DATA *...4.. *******************
****.D.>.."............ADD/INSERT RECORD
(S)"...H.."...RECORD NO:";I:.2320.. R.."
.....ENTER TITLE : ";:.1,0:.1,NA$(I): 1
.. \..NA$(I)."END".NA$(I)."":.._ F.."...
....ENTER MEDIUM : ";:.1,0:.1,ST$(I): 1.
. P..".........ENTER TYPE : ";:.1,0:.1
,TY$(I): 1.. Z..C(NA$(I)).NL..NL.C(NA$(I
)).R ...C(TY$(I)).TL..TL.C(TY$(I)).. ...
C(ST$(I)).SL..SL.C(ST$(I)).. .....!... *
************************.8!... * DISPLA
Y RECORD DATA *.X!... *****************
********..!..."............";UD$" RECORD
:";ID$;"...".F!J.."...................T
ITLE":X$.NA$(0):Y.40:.2360:.".";X$;"."..
"T.."..................MEDIUM":X$.ST$(0)
:Y.40:.2360:.".";X$;".".H"..."..........
.........TYPE ":X$.TY$(0):Y.40:.2360:.".
";X$;".".N"....J"... *******************
**.."... * DISPLAY MESSAGE *.."... ***
******************.."..."...............
......................TYPE .END. TO QUIT
":..."... *********************..#$.. *
CENTRE HEADINGS *.7#... **************
*******.Y#8.X$.BL$.X$.BL$:X.(C(X$).Y.2).
2.L#B.X$.J(X$,X,Y):...#L.X$.H(X$.BL$,Y):
...#V.. *********************..#W.. * P
RINT INTERRUPT *.U#X.. ****************
*****..$...".....PRINTING ... PLEASE BE
PATIENT".-$...".......RE-ALIGN PAPER AND
PRESS A KEY".A$B..A$:.A$."".3010.Q$G.."
.
".W$L.....0
> CLICK IMAGE PREVIEW FOR FULL MODAL