REFIELD
FILE INFORMATION
FILENAME(S): REFIELD
FILE TYPE(S): PRG
FILE SIZE: 3.6K
FIRST SEEN: 2025-11-30 21:12:52
APPEARS ON: 1 disk(s)
FILE HASH
4a2705a1c27e0d38c5cf3c1ea47182e6d1f77dfd26207c740c98a85a5d5829ae
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TRANSACTOR 4 | REFIELD | PRG | DuncanTwain | 29 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 30 04 00 00 8F 20 54 48 45 20 54 52 41 4E |..0.... THE TRAN| 00000010: 53 41 43 54 4F 52 20 56 4F 4C 55 4D 45 20 34 20 |SACTOR VOLUME 4 | 00000020: 49 53 53 55 45 20 30 36 20 50 41 47 45 20 33 30 |ISSUE 06 PAGE 30| 00000030: 00 76 04 01 00 8F 20 4E 4F 54 45 20 27 43 52 45 |.v.... NOTE 'CRE| 00000040: 41 54 45 27 20 50 52 4F 47 52 41 4D 20 52 45 51 |ATE' PROGRAM REQ| 00000050: 55 49 52 45 53 20 41 20 50 41 54 43 48 20 49 4E |UIRES A PATCH IN| 00000060: 43 4C 55 44 45 44 20 49 4E 20 4E 45 58 54 20 50 |CLUDED IN NEXT P| 00000070: 52 4F 47 52 41 4D 00 B0 04 02 00 8F 20 20 20 20 |ROGRAM...... | 00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 | THE| 00000090: 20 4D 41 4E 41 47 45 52 20 2C 20 45 58 54 45 4E | MANAGER , EXTEN| 000000A0: 54 49 4F 4E 53 20 57 52 49 54 54 45 4E 20 42 59 |TIONS WRITTEN BY| 000000B0: 00 DC 04 03 00 8F 20 20 20 20 20 20 20 20 20 20 |...... | 000000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000D0: 20 45 52 49 43 20 41 52 4D 53 4F 4E 00 08 05 04 | ERIC ARMSON....| 000000E0: 00 8F 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. | 000000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 41 55 47 | AUG| 00000100: 55 53 54 20 31 39 38 33 00 46 05 05 00 8F 20 20 |UST 1983.F.... | 00000110: 20 20 20 20 20 20 20 20 20 20 20 20 47 20 41 20 | G A | 00000120: 4D 20 45 20 20 20 50 20 4C 20 41 20 59 20 45 20 |M E P L A Y E | 00000130: 52 20 53 20 20 20 20 53 20 4F 20 46 20 54 20 57 |R S S O F T W| 00000140: 20 41 20 52 20 45 00 4C 05 06 00 3A 00 7A 05 09 | A R E.L...:.z..| 00000150: 00 9C 3A 58 B2 B8 28 30 29 3A 89 31 30 30 3A 20 |..:X..(0):.100: | 00000160: 20 20 8D 31 30 20 81 20 85 20 57 49 54 48 20 C3 | .10 . . WITH .| 00000170: 47 54 48 20 AF 20 52 46 B2 30 00 85 05 0A 00 8B |GTH . RF.0......| 00000180: 52 46 A7 36 30 00 A4 05 14 00 59 B2 C2 28 32 31 |RF.60.....Y..(21| 00000190: 36 29 3A 58 B2 C2 28 31 39 38 29 3A 52 46 B2 31 |6):X..(198):RF.1| 000001A0: 3A 89 36 30 00 DD 05 1E 00 8F 20 20 20 20 20 20 |:.60...... | 000001B0: 20 47 4F 53 55 42 34 30 20 46 4F 52 20 28 59 2F | GOSUB40 FOR (Y/| 000001C0: 4E 29 20 49 4E 50 55 54 20 57 49 54 48 20 4C 45 |N) INPUT WITH LE| 000001D0: 4E 47 54 48 20 41 4E 44 20 52 46 3D 30 00 F9 05 |NGTH AND RF=0...| 000001E0: 28 00 8D 31 30 3A 8B 58 24 B3 B1 22 59 22 AF 58 |(..10:.X$.."Y".X| 000001F0: 24 B3 B1 22 4E 22 A7 31 30 00 0B 06 32 00 46 B2 |$.."N".10...2.F.| 00000200: B6 28 58 24 B2 22 59 22 29 3A 8E 00 40 06 3C 00 |.(X$."Y"):..@.<.| 00000210: 58 24 B2 22 22 3A 9E 49 4E 2C 59 2C 58 2C 4C 3A |X$."":.IN,Y,X,L:| 00000220: 58 24 B2 58 24 3A 8B 58 24 B2 22 51 22 A7 97 32 |X$.X$:.X$."Q"..2| 00000230: 32 34 2C 30 3A 5C 58 2C 22 30 3A 4D 45 4E 55 22 |24,0:\X,"0:MENU"| 00000240: 00 55 06 46 00 8B 58 24 B2 22 D1 22 A7 97 32 32 |.U.F..X$."."..22| 00000250: 34 2C 30 3A 8A 00 62 06 50 00 97 31 35 38 2C 30 |4,0:..b.P..158,0| 00000260: 3A 8E 00 76 06 5A 00 9E 50 52 2C 32 34 2C 31 32 |:..v.Z..PR,24,12| 00000270: 2C 22 16 22 3A 8E 00 99 06 64 00 99 22 93 22 3A |,".":....d..".":| 00000280: 97 35 39 34 36 38 2C 31 32 3A 8B C2 28 31 34 35 |.59468,12:..(145| 00000290: 29 B2 32 32 38 A7 3A 5C 52 00 D5 06 6E 00 42 41 |).228.:\R...n.BA| 000002A0: B2 31 38 34 33 32 3A 9E 42 41 3A 49 4E B2 42 41 |.18432:.BA:IN.BA| 000002B0: AA 35 37 3A 50 52 B2 42 41 AA 36 30 3A 58 59 B2 |.57:PR.BA.60:XY.| 000002C0: 35 37 34 34 37 3A 4D 56 B2 42 41 AA 33 3A 5A 31 |57447:MV.BA.3:Z1| 000002D0: B2 31 30 30 30 00 F7 06 78 00 81 49 B2 31 A4 38 |.1000...x..I.1.8| 000002E0: 3A 54 4C 24 B2 54 4C 24 AA 22 2A 2A 2A 2A 2A 2A |:TL$.TL$."******| 000002F0: 2A 2A 2A 2A 22 3A 82 00 22 07 82 00 99 22 13 22 |****":.."...."."| 00000300: 54 4C 24 3B A3 33 30 29 22 52 45 4F 52 47 41 4E |TL$;.30)"REORGAN| 00000310: 49 53 45 20 46 49 45 4C 44 53 22 3A 99 54 4C 24 |ISE FIELDS":.TL$| 00000320: 3A 99 00 2B 07 8C 00 89 31 38 30 00 6E 07 96 00 |:..+....180.n...| 00000330: 9E 50 52 2C 32 34 2C 31 32 2C 22 41 4E 59 20 43 |.PR,24,12,"ANY C| 00000340: 48 41 4E 47 45 53 20 4F 4E 20 54 48 49 53 20 50 |HANGES ON THIS P| 00000350: 41 47 45 20 28 59 2F 4E 29 20 3F 20 59 9D 22 3A |AGE (Y/N) ? Y.":| 00000360: 4C B2 31 3A 52 46 B2 30 3A 8D 34 30 3A 8E 00 9D |L.1:RF.0:.40:...| 00000370: 07 A0 00 4C 43 B2 41 28 49 2C 30 2C 46 44 29 AC |...LC.A(I,0,FD).| 00000380: 38 30 AA 41 28 49 2C 31 2C 46 44 29 AA 33 32 37 |80.A(I,1,FD).327| 00000390: 36 38 3A 43 52 B2 C2 28 4C 43 29 3A 8E 00 E0 07 |68:CR..(LC):....| 000003A0: B4 00 99 22 41 52 49 54 48 4D 45 54 49 43 20 50 |..."ARITHMETIC P| 000003B0: 52 4F 47 52 41 4D 53 20 12 4D 55 53 54 92 20 42 |ROGRAMS .MUST. B| 000003C0: 45 20 52 45 52 55 4E 20 41 46 54 45 52 20 41 4E |E RERUN AFTER AN| 000003D0: 59 20 52 45 4F 52 44 45 52 49 4E 47 2C 22 3A 99 |Y REORDERING,":.| 000003E0: 00 14 08 BE 00 99 22 41 4C 4C 20 46 49 45 4C 44 |......"ALL FIELD| 000003F0: 53 20 57 49 4C 4C 20 42 45 20 53 45 54 20 54 4F |S WILL BE SET TO| 00000400: 20 41 20 44 45 46 41 55 4C 54 20 4F 52 44 45 52 | A DEFAULT ORDER| 00000410: 2E 22 3A 99 00 4B 08 C8 00 81 49 B2 31 A4 C2 28 |.":..K....I.1..(| 00000420: 5A 31 29 3A 46 41 24 B2 46 41 24 AA C7 28 C2 28 |Z1):FA$.FA$..(.(| 00000430: 49 AA 5A 31 29 29 3A 82 3A 44 24 B2 CA 28 C4 28 |I.Z1)):.:D$..(.(| 00000440: C2 28 49 AA 5A 31 29 29 2C 32 29 00 89 08 D2 00 |.(I.Z1)),2).....| 00000450: 99 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F |."DO YOU WANT TO| 00000460: 20 43 4F 4E 54 49 4E 55 45 20 28 59 2F 4E 29 3F | CONTINUE (Y/N)?| 00000470: 20 59 9D 22 3B 3A 97 31 35 38 2C 30 3A 4C B2 31 | Y.";:.158,0:L.1| 00000480: 3A 52 46 B2 30 3A 8D 34 30 00 9F 08 DC 00 8B 46 |:RF.0:.40......F| 00000490: B2 30 A7 3A 5C 58 2C 22 30 3A 4D 45 4E 55 22 00 |.0.:\X,"0:MENU".| 000004A0: BF 08 F0 00 99 3A 99 22 11 11 4C 4F 41 44 49 4E |.....:."..LOADIN| 000004B0: 47 20 53 43 52 45 45 4E 20 2E 20 2E 20 2E 22 00 |G SCREEN . . .".| 000004C0: F2 08 FA 00 9F 31 2C 38 2C 31 35 2C 22 49 22 AA |.....1,8,15,"I".| 000004D0: 44 24 3A A0 31 3A 46 53 24 B2 44 24 AA 22 3A 22 |D$:.1:FS$.D$.":"| 000004E0: AA 46 41 24 AA 22 2E 53 43 52 22 3A 5C 4C 3B 46 |.FA$.".SCR":\L;F| 000004F0: 53 24 00 1C 09 18 01 4E 46 B2 C2 28 32 37 36 33 |S$.....NF..(2763| 00000500: 33 29 3A 4E 50 B2 C2 28 32 37 36 33 38 29 3A 8F |3):NP..(27638):.| 00000510: 20 54 23 46 4C 44 53 2C 23 50 47 53 00 3E 09 22 | T#FLDS,#PGS.>."| 00000520: 01 97 32 34 38 2C 31 30 36 3A 97 32 34 37 2C 30 |..248,106:.247,0| 00000530: 3A 97 33 32 37 36 37 2C 30 3A 43 48 B2 30 00 72 |:.32767,0:CH.0.r| 00000540: 09 2C 01 86 20 41 28 4E 50 2C 32 2C 4E 46 29 2C |.,.. A(NP,2,NF),| 00000550: 4F 28 4E 46 29 2C 46 28 4E 46 29 3A 97 32 33 31 |O(NF),F(NF):.231| 00000560: 2C 33 3A 43 4D B2 30 3A 8D 38 30 30 3A 99 22 13 |,3:CM.0:.800:.".| 00000570: 22 3B 00 AA 09 36 01 81 49 B2 30 A4 4E 50 3A 4D |";...6..I.0.NP:M| 00000580: 4E 28 49 29 B2 C2 28 32 37 36 33 32 AA 49 AC 32 |N(I)..(27632.I.2| 00000590: 35 36 30 29 3A 4D 58 28 49 29 B2 C2 28 32 37 36 |560):MX(I)..(276| 000005A0: 34 30 AA 49 AC 32 35 36 30 29 00 F0 09 40 01 97 |40.I.2560)...@..| 000005B0: 32 34 38 2C 31 30 36 AA 49 AC 31 30 3A 9E 4D 56 |248,106.I.10:.MV| 000005C0: 3A 9E 50 52 2C 32 34 2C 31 36 2C 22 46 49 45 4C |:.PR,24,16,"FIEL| 000005D0: 44 20 23 20 20 20 20 20 20 20 20 20 20 20 20 20 |D # | 000005E0: 20 20 12 46 49 45 4C 44 20 4F 52 44 45 52 92 22 | .FIELD ORDER."| 000005F0: 00 1E 0A 4A 01 81 4B B2 4D 4E 28 49 29 A4 4D 58 |...J..K.MN(I).MX| 00000600: 28 49 29 3A 9E 50 52 2C 32 34 2C 32 33 2C 22 20 |(I):.PR,24,23," | 00000610: 22 3A 99 4B AA 31 3B 3A 81 4A B2 30 A4 32 00 4C |":.K.1;:.J.0.2.L| 00000620: 0A 54 01 41 28 49 2C 4A 2C 4B 29 B2 C2 28 32 37 |.T.A(I,J,K)..(27| 00000630: 31 33 36 AA 49 AC 32 35 36 30 AA 28 4B AB 4D 4E |136.I.2560.(K.MN| 00000640: 28 49 29 29 AC 33 AA 4A 29 3A 82 4A 00 69 0A 5E |(I)).3.J):.J.i.^| 00000650: 01 46 44 B2 4B 3A 8D 31 36 30 3A 97 4C 43 2C 33 |.FD.K:.160:.LC,3| 00000660: 32 3A 97 4C 43 2C 31 36 30 00 89 0A 68 01 97 4C |2:.LC,160...h..L| 00000670: 43 2C 33 32 3A 97 4C 43 2C 31 36 30 3A 99 22 07 |C,32:.LC,160:.".| 00000680: 22 3B 3A 97 4C 43 2C 43 52 00 B0 0A 72 01 8B 28 |";:.LC,CR...r..(| 00000690: 28 4B AD 32 29 B2 B5 28 4B AD 32 29 29 A7 9E 50 |(K.2)..(K.2))..P| 000006A0: 52 2C 32 34 2C 33 36 2C 22 2A 22 3A 89 33 39 30 |R,24,36,"*":.390| 000006B0: 00 C4 0A 7C 01 9E 50 52 2C 32 34 2C 33 36 2C 22 |...|..PR,24,36,"| 000006C0: 12 2A 92 22 00 F1 0A 86 01 82 4B 3A 8D 39 30 3A |.*."......K:.90:| 000006D0: 97 31 35 38 2C 30 3A 8D 31 35 30 3A 8B 46 B2 30 |.158,0:.150:.F.0| 000006E0: A7 8D 39 30 3A 8D 37 32 30 3A 82 49 3A 89 37 34 |..90:.720:.I:.74| 000006F0: 30 00 2D 0B 90 01 4B 24 B2 22 91 11 9D 1D 22 AA |0.-...K$."....".| 00000700: C7 28 31 33 29 AA 22 51 D1 13 48 22 3A 8F 20 52 |.(13)."Q..H":. R| 00000710: 45 4F 52 44 45 52 20 43 55 52 52 45 4E 54 20 4D |EORDER CURRENT M| 00000720: 41 4E 41 47 45 52 20 53 43 52 45 45 4E 00 6F 0B |ANAGER SCREEN.o.| 00000730: 9A 01 8D 39 30 3A 43 48 B2 43 48 AA 31 3A 51 58 |...90:CH.CH.1:QX| 00000740: B2 31 3A 99 22 13 07 07 07 07 07 07 07 07 07 07 |.1:."...........| 00000750: 22 3B 3A 43 4D B2 43 4D AA 4D 58 28 49 29 AB 4D |";:CM.CM.MX(I).M| 00000760: 4E 28 49 29 AA 49 3A 46 43 B2 4D 4E 28 49 29 00 |N(I).I:FC.MN(I).| 00000770: 9C 0B A4 01 46 44 B2 4D 4E 28 49 29 3A 81 43 B2 |....FD.MN(I):.C.| 00000780: 4D 4E 28 49 29 A4 4D 58 28 49 29 3A 4F 28 43 29 |MN(I).MX(I):O(C)| 00000790: B2 30 3A 46 28 43 29 B2 30 3A 82 43 00 DC 0B A9 |.0:F(C).0:.C....| 000007A0: 01 9E 50 52 2C 32 34 2C 31 32 2C 22 43 4F 4D 4D |..PR,24,12,"COMM| 000007B0: 41 4E 44 20 28 43 55 2C 43 44 2C 43 4C 2C 43 52 |AND (CU,CD,CL,CR| 000007C0: 2C 52 45 54 55 52 4E 2C 12 51 92 55 49 54 2C 12 |,RETURN,.Q.UIT,.| 000007D0: 48 92 45 4C 50 2C 48 4F 4D 45 29 22 00 FD 0B AE |H.ELP,HOME)"....| 000007E0: 01 58 B2 41 28 49 2C 31 2C 46 44 29 3A 59 B2 41 |.X.A(I,1,FD):Y.A| 000007F0: 28 49 2C 30 2C 46 44 29 3A 8D 31 36 30 00 2C 0C |(I,0,FD):.160.,.| 00000800: B8 01 51 58 B2 AB 51 58 3A 97 4C 43 2C 31 36 30 |..QX..QX:.LC,160| 00000810: AA 28 28 51 58 B1 30 29 AC 31 32 38 29 3A A1 41 |.((QX.0).128):.A| 00000820: 24 3A 8B 41 24 B2 22 22 A7 34 34 30 00 52 0C C2 |$:.A$."".440.R..| 00000830: 01 43 43 B2 30 3A 81 53 B2 31 A4 C3 28 4B 24 29 |.CC.0:.S.1..(K$)| 00000840: 3A 8B 41 24 B2 CA 28 4B 24 2C 53 2C 31 29 A7 34 |:.A$..(K$,S,1).4| 00000850: 37 30 00 5E 0C CC 01 82 53 3A 89 34 34 30 00 90 |70.^....S:.440..| 00000860: 0C D6 01 97 4C 43 2C 43 52 3A 91 53 89 35 30 30 |....LC,CR:.S.500| 00000870: 2C 35 32 30 2C 35 30 30 2C 35 32 30 2C 35 34 30 |,520,500,520,540| 00000880: 2C 34 38 30 2C 34 39 30 2C 37 36 30 2C 37 38 30 |,480,490,760,780| 00000890: 00 C7 0C DB 01 8F 20 20 20 20 20 20 20 20 20 20 |...... | 000008A0: 20 20 20 3A 55 50 20 2C 44 57 4E 2C 4C 46 54 2C | :UP ,DWN,LFT,| 000008B0: 52 47 54 2C 52 45 54 2C 4D 4E 55 2C 52 55 4E 2C |RGT,RET,MNU,RUN,| 000008C0: 52 53 54 2C 48 4C 50 00 D7 0C E0 01 5C 58 2C 22 |RST,HLP.....\X,"| 000008D0: 30 3A 4D 45 4E 55 22 00 E4 0C EA 01 97 31 35 38 |0:MENU"......158| 000008E0: 2C 30 3A 8A 00 03 0D F4 01 46 44 B2 46 44 AB 31 |,0:......FD.FD.1| 000008F0: 3A 8B 46 44 B3 4D 4E 28 49 29 A7 46 44 B2 4D 58 |:.FD.MN(I).FD.MX| 00000900: 28 49 29 00 17 0D FE 01 89 35 37 30 3A 4C 45 46 |(I)......570:LEF| 00000910: 54 20 20 26 20 55 50 00 36 0D 08 02 46 44 B2 46 |T & UP.6...FD.F| 00000920: 44 AA 31 3A 8B 46 44 B1 4D 58 28 49 29 A7 46 44 |D.1:.FD.MX(I).FD| 00000930: B2 4D 4E 28 49 29 00 4C 0D 12 02 89 35 37 30 3A |.MN(I).L....570:| 00000940: 52 49 47 48 54 20 26 20 44 4F 57 4E 00 7A 0D 1C |RIGHT & DOWN.z..| 00000950: 02 8F 20 2A 20 43 41 52 52 49 41 47 45 20 52 45 |.. * CARRIAGE RE| 00000960: 54 55 52 4E 2C 28 53 54 4F 52 45 20 46 49 45 4C |TURN,(STORE FIEL| 00000970: 44 27 53 20 4F 52 44 45 52 29 00 8C 0D 26 02 8B |D'S ORDER)...&..| 00000980: 46 28 46 44 29 B3 B1 30 A7 35 32 30 00 AE 0D 30 |F(FD)..0.520...0| 00000990: 02 46 28 46 44 29 B2 31 3A 4F 28 46 43 29 B2 46 |.F(FD).1:O(FC).F| 000009A0: 44 3A 46 43 B2 46 43 AA 31 3A 89 35 32 30 00 C1 |D:FC.FC.1:.520..| 000009B0: 0D 3A 02 8B 46 43 B1 43 4D A7 82 49 3A 89 37 34 |.:..FC.CM..I:.74| 000009C0: 30 00 D3 0D 44 02 8B 46 28 46 44 29 B3 B1 30 A7 |0...D..F(FD)..0.| 000009D0: 34 37 30 00 DC 0D 4E 02 89 34 33 30 00 FA 0D 58 |470...N..430...X| 000009E0: 02 48 B2 32 34 33 32 30 3A 42 42 B2 33 32 32 35 |.H.24320:BB.3225| 000009F0: 36 3A 45 B2 30 3A 97 48 2C 30 00 18 0E 62 02 81 |6:E.0:.H,0...b..| 00000A00: 49 B2 30 A4 4E 50 3A 97 32 34 38 2C 31 30 36 AA |I.0.NP:.248,106.| 00000A10: 49 AC 31 30 3A 9E 4D 56 00 3C 0E 6C 02 81 4B B2 |I.10:.MV.<.l..K.| 00000A20: 4D 4E 28 49 29 A4 4D 58 28 49 29 3A 47 B2 42 42 |MN(I).MX(I):G.BB| 00000A30: AA 28 4B AB 4D 4E 28 49 29 29 AC 33 00 5D 0E 76 |.(K.MN(I)).3.].v| 00000A40: 02 97 47 2C 41 28 49 2C 30 2C 4F 28 4B 29 29 3A |..G,A(I,0,O(K)):| 00000A50: 42 B2 41 28 49 2C 31 2C 4F 28 4B 29 29 00 7D 0E |B.A(I,1,O(K)).}.| 00000A60: 80 02 43 B2 41 28 49 2C 32 2C 4F 28 4B 29 29 3A |..C.A(I,2,O(K)):| 00000A70: 97 47 AA 31 2C 42 3A 97 47 AA 32 2C 43 00 96 0E |.G.1,B:.G.2,C...| 00000A80: 8A 02 48 B2 48 AA 31 3A 45 B2 45 AA 31 AA 43 AB |..H.H.1:E.E.1.C.| 00000A90: 42 3A 97 48 2C 45 00 AE 0E 94 02 82 4B 3A 9E 42 |B:.H,E......K:.B| 00000AA0: 41 AA 33 36 3A 9E 42 41 AA 33 39 3A 82 49 00 DD |A.36:.BA.39:.I..| 00000AB0: 0E 99 02 81 49 B2 30 A4 4E 50 3A 97 32 34 38 2C |....I.0.NP:.248,| 00000AC0: 31 30 36 AA 49 AC 31 30 3A 9E 4D 56 3A 9E 42 41 |106.I.10:.MV:.BA| 00000AD0: AA 33 36 3A 9E 42 41 AA 33 39 3A 82 49 00 FC 0E |.36:.BA.39:.I...| 00000AE0: 9E 02 44 B2 C5 28 44 24 29 3A D9 28 46 41 24 AA |..D..(D$):.(FA$.| 00000AF0: 22 2E 53 43 52 22 29 2C 44 28 44 29 00 15 0F A8 |".SCR"),D(D)....| 00000B00: 02 5C 53 2C 46 53 24 2C 22 36 35 30 30 22 2C 22 |.\S,FS$,"6500","| 00000B10: 37 44 46 46 22 00 25 0F B2 02 5C 58 2C 22 30 3A |7DFF".%...\X,"0:| 00000B20: 4D 45 4E 55 22 00 2B 0F BB 02 90 00 57 0F BC 02 |MENU".+.....W...| 00000B30: 8F 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 00000B40: 20 20 20 20 20 20 20 2A 2A 28 50 41 54 43 48 20 | **(PATCH | 00000B50: 4A 4F 42 53 29 2A 2A 00 6F 0F C6 02 8F 20 53 41 |JOBS)**.o.... SA| 00000B60: 56 45 20 4E 4F 52 4D 41 4C 20 4F 52 44 45 52 00 |VE NORMAL ORDER.| 00000B70: 96 0F D0 02 81 4B B2 4D 4E 28 49 29 A4 4D 58 28 |.....K.MN(I).MX(| 00000B80: 49 29 3A 4F 28 4B 29 B2 4B 3A 82 4B 3A 43 48 B2 |I):O(K).K:.K:CH.| 00000B90: 43 48 AA 31 3A 8E 00 B2 0F DA 02 8F 20 43 48 45 |CH.1:....... CHE| 00000BA0: 43 4B 20 46 4F 52 20 41 4E 59 20 43 48 41 4E 47 |CK FOR ANY CHANG| 00000BB0: 45 53 00 C9 0F E4 02 8B 43 48 B2 30 A7 3A 5C 58 |ES......CH.0.:\X| 00000BC0: 2C 22 30 3A 4D 45 4E 55 22 00 D2 0F EE 02 89 36 |,"0:MENU"......6| 00000BD0: 30 30 00 F2 0F F8 02 8B 49 A7 43 4D B2 4D 58 28 |00......I.CM.MX(| 00000BE0: 30 29 AB 4D 4E 28 30 29 3A 43 48 B2 31 3A 89 34 |0).MN(0):CH.1:.4| 00000BF0: 31 30 00 05 10 02 03 43 4D B2 30 3A 43 48 B2 30 |10.....CM.0:CH.0| 00000C00: 3A 89 34 31 30 00 38 10 0C 03 5C 4C 3B 22 30 3A |:.410.8...\L;"0:| 00000C10: 48 45 4C 50 33 22 3A 9E 50 52 2C 32 34 2C 31 32 |HELP3":.PR,24,12| 00000C20: 2C 22 12 50 52 45 53 53 20 27 52 27 20 54 4F 20 |,".PRESS 'R' TO | 00000C30: 52 45 54 55 52 4E 92 22 00 53 10 16 03 A1 41 24 |RETURN.".S....A$| 00000C40: 3A 8B 41 24 B2 22 22 B0 41 24 B3 B1 22 52 22 A7 |:.A$."".A$.."R".| 00000C50: 37 39 30 00 60 10 1B 03 9E 4D 56 3A 89 34 32 35 |790.`....MV:.425| 00000C60: 00 92 10 20 03 8F 20 2A 2A 2A 20 20 52 45 53 45 |... .. *** RESE| 00000C70: 54 20 42 4F 54 48 20 53 43 52 45 45 4E 27 53 20 |T BOTH SCREEN'S | 00000C80: 46 49 45 4C 44 53 20 54 48 45 4E 20 52 45 54 55 |FIELDS THEN RETU| 00000C90: 52 4E 00 D1 10 2A 03 9E 32 31 34 30 38 3A 8F 2A |RN...*..21408:.*| 00000CA0: 20 20 20 46 49 4C 4C 20 36 37 30 30 2D 36 39 46 | FILL 6700-69F| 00000CB0: 46 28 46 46 29 2C 35 46 30 30 2D 35 46 46 30 28 |F(FF),5F00-5FF0(| 00000CC0: 46 46 29 2C 36 41 30 30 2D 28 24 46 37 2C 46 38 |FF),6A00-($F7,F8| 00000CD0: 29 00 02 11 34 03 97 32 34 38 2C 31 30 36 20 3A |)...4..248,106 :| 00000CE0: 20 20 20 9E 4D 56 3A 8F 2A 20 20 53 45 54 20 53 | .MV:.* SET S| 00000CF0: 43 52 45 45 4E 20 23 31 20 26 20 4D 4F 56 45 20 |CREEN #1 & MOVE | 00000D00: 49 4E 00 39 11 3E 03 9E 42 41 AA 33 33 3A 8F 2A |IN.9.>..BA.33:.*| 00000D10: 20 20 20 52 45 53 45 54 20 46 49 45 4C 44 20 49 | RESET FIELD I| 00000D20: 4E 46 4F 2E 20 2C 37 45 30 30 2D 37 45 46 46 2C |NFO. ,7E00-7EFF,| 00000D30: 35 46 30 30 2D 35 46 46 30 00 6F 11 48 03 9E 42 |5F00-5FF0.o.H..B| 00000D40: 41 AA 33 36 3A 8F 2A 20 20 20 4D 4F 56 45 20 35 |A.36:.* MOVE 5| 00000D50: 46 30 30 2D 35 46 46 30 20 54 4F 20 37 46 30 30 |F00-5FF0 TO 7F00| 00000D60: 20 2C 53 54 4F 50 20 49 46 20 28 24 46 46 29 00 | ,STOP IF ($FF).| 00000D70: 99 11 52 03 9E 42 41 AA 33 39 3A 8F 2A 20 20 20 |..R..BA.39:.* | 00000D80: 4D 4F 56 45 20 53 43 52 45 45 4E 20 42 41 43 4B |MOVE SCREEN BACK| 00000D90: 20 49 4E 20 50 4C 41 43 45 00 CA 11 5C 03 97 32 | IN PLACE...\..2| 00000DA0: 34 38 2C 31 31 36 20 3A 20 20 20 9E 4D 56 3A 8F |48,116 : .MV:.| 00000DB0: 2A 20 20 53 45 54 20 53 43 52 45 45 4E 20 23 32 |* SET SCREEN #2| 00000DC0: 20 26 20 4D 4F 56 45 20 49 4E 00 01 12 66 03 9E | & MOVE IN...f..| 00000DD0: 42 41 AA 33 33 3A 8F 2A 20 20 20 52 45 53 45 54 |BA.33:.* RESET| 00000DE0: 20 46 49 45 4C 44 20 49 4E 46 4F 2E 20 2C 37 45 | FIELD INFO. ,7E| 00000DF0: 30 30 2D 37 45 46 46 2C 35 46 30 30 2D 35 46 46 |00-7EFF,5F00-5FF| 00000E00: 30 00 37 12 70 03 9E 42 41 AA 33 36 3A 8F 2A 20 |0.7.p..BA.36:.* | 00000E10: 20 20 4D 4F 56 45 20 35 46 30 30 2D 35 46 46 30 | MOVE 5F00-5FF0| 00000E20: 20 54 4F 20 37 46 30 30 20 2C 53 54 4F 50 20 49 | TO 7F00 ,STOP I| 00000E30: 46 20 28 24 46 46 29 00 5E 12 7A 03 9E 42 41 AA |F ($FF).^.z..BA.| 00000E40: 33 39 3A 8E 3A 4D 4F 56 45 20 53 43 52 45 45 4E |39:.:MOVE SCREEN| 00000E50: 20 42 41 43 4B 20 49 4E 20 50 4C 41 43 45 00 00 | BACK IN PLACE..| 00000E60: 00 AA |.. |
..0.... THE TRANSACTOR VOLUME 4 ISSUE 06
PAGE 30.V.... NOTE 'CREATE' PROGRAM REQ
UIRES A PATCH INCLUDED IN NEXT PROGRAM..
.... THE MANAGER , EXTEN
TIONS WRITTEN BY......
ERIC ARMSON......
AUGUST 1983.F....
G A M E P L A Y E R S S O F T W
A R E.L...:.Z....:X..(0):.100: .10 .
. WITH CGTH . RF.0......RF.60.....Y.B(21
6):X.B(198):RF.1:.60...... GOSUB40
FOR (Y/N) INPUT WITH LENGTH AND RF=0...
(..10:.X$.."Y".X$.."N".10...2.F..(X$."Y"
):..@.<.X$."":.IN,Y,X,L:X$.X$:.X$."Q"..2
24,0:\X,"0:MENU".U.F..X$."Q"..224,0:..B.
P..158,0:..V.Z..PR,24,12,".":....D..".":
.59468,12:.B(145).228.:\R.U.N.BA.18432:.
BA:IN.BA.57:PR.BA.60:XY.57447:MV.BA.3:Z1
.1000...X..I.1.8:TL$.TL$."**********":..
"...."."TL$;.30)"REORGANISE FIELDS":.TL$
:..+....180.N....PR,24,12,"ANY CHANGES O
N THIS PAGE (Y/N) ? Y.":L.1:RF.0:.40:...
. .LC.A(I,0,FD).80.A(I,1,FD).32768:CR.B(
LC):......."ARITHMETIC PROGRAMS .MUST. B
E RERUN AFTER ANY REORDERING,":......."A
LL FIELDS WILL BE SET TO A DEFAULT ORDER
.":..K.H..I.1.B(Z1):FA$.FA$.G(B(I.Z1)):.
:D$.J(D(B(I.Z1)),2)...R.."DO YOU WANT TO
CONTINUE (Y/N)? Y.";:.158,0:L.1:RF.0:.4
0......F.0.:\X,"0:MENU"......:."..LOADIN
G SCREEN . . ."......1,8,15,"I".D$: 1:FS
$.D$.":".FA$.".SCR":\L;FS$.....NF.B(2763
3):NP.B(27638):. T#FLDS,#PGS.>."..248,10
6:.247,0:.32767,0:CH.0.R.,.. A(NP,2,NF),
O(NF),F(NF):.231,3:CM.0:.800:.".";...6..
I.0.NP:MN(I).B(27632.I.2560):MX(I).B(276
40.I.2560)...@..248,106.I.10:.MV:.PR,24,
16,"FIELD # .FIELD ORDER."
...J..K.MN(I).MX(I):.PR,24,23," ":.K.1;:
.J.0.2.L.T.A(I,J,K).B(27136.I.2560.(K.MN
(I)).3.J):.J.I.^.FD.K:.160:.LC,32:.LC,16
0...H..LC,32:.LC,160:.".";:.LC,CR...R..(
(K.2)..(K.2))..PR,24,36,"*":.390.D.|..PR
,24,36,".*."......K:.90:.158,0:.150:.F.0
..90:.720:.I:.740.-...K$."....".G(13)."Q
Q.H":. REORDER CURRENT MANAGER SCREEN.O.
...90:CH.CH.1:QX.1:."...........";:CM.CM
.MX(I).MN(I).I:FC.MN(I).....FD.MN(I):.C.
MN(I).MX(I):O(C).0:F(C).0:.C......PR,24,
12,"COMMAND (CU,CD,CL,CR,RETURN,.Q.UIT,.
H.ELP,HOME)".....X.A(I,1,FD):Y.A(I,0,FD)
:.160.,...QX..QX:.LC,160.((QX.0).128):.A
$:.A$."".440.R.B.CC.0:.S.1.C(K$):.A$.J(K
$,S,1).470.^.L..S:.440...V..LC,CR:.S.500
,520,500,520,540,480,490,760,780.G....
:UP ,DWN,LFT,RGT,RET,MNU,RUN,
RST,HLP.W...\X,"0:MENU"......158,0:.....
.FD.FD.1:.FD.MN(I).FD.MX(I)......570:LEF
T & UP.6...FD.FD.1:.FD.MX(I).FD.MN(I).L
....570:RIGHT & DOWN.Z.... * CARRIAGE RE
TURN,(STORE FIELD'S ORDER)...&..F(FD)..0
.520...0.F(FD).1:O(FC).FD:FC.FC.1:.520.A
.:..FC.CM..I:.740.S.D..F(FD)..0.470...N.
.430...X.H.24320:BB.32256:E.0:.H,0...B..
I.0.NP:.248,106.I.10:.MV.<.L..K.MN(I).MX
(I):G.BB.(K.MN(I)).3.].V..G,A(I,0,O(K)):
B.A(I,1,O(K)).}...C.A(I,2,O(K)):.G.1,B:.
G.2,C.....H.H.1:E.E.1.C.B:.H,E......K:.B
A.36:.BA.39:.I......I.0.NP:.248,106.I.10
:.MV:.BA.36:.BA.39:.I.....D.E(D$):Y(FA$.
".SCR"),D(D).....\S,FS$,"6500","7DFF".%.
..\X,"0:MENU".+.....W....
**(PATCH JOBS)**.O.F.. SAVE NORMA
L ORDER...P..K.MN(I).MX(I):O(K).K:.K:CH.
CH.1:....Z.. CHECK FOR ANY CHANGES.I....
CH.0.:\X,"0:MENU".R....600......I.CM.MX(
0).MN(0):CH.1:.410.....CM.0:CH.0:.410.8.
..\L;"0:HELP3":.PR,24,12,".PRESS 'R' TO
RETURN.".S....A$:.A$."".A$.."R".790.`...
.MV:.425... .. *** RESET BOTH SCREEN'S
FIELDS THEN RETURN.Q.*..21408:.* FILL
6700-69FF(FF),5F00-5FF0(FF),6A00-($F7,F8
)...4..248,106 : .MV:.* SET SCREEN #1
& MOVE IN.9.>..BA.33:.* RESET FIELD I
NFO. ,7E00-7EFF,5F00-5FF0.O.H..BA.36:.*
MOVE 5F00-5FF0 TO 7F00 ,STOP IF ($FF).
..R..BA.39:.* MOVE SCREEN BACK IN PLAC
E.J.\..248,116 : .MV:.* SET SCREEN #2
& MOVE IN...F..BA.33:.* RESET FIELD I
NFO. ,7E00-7EFF,5F00-5FF0.7.P..BA.36:.*
MOVE 5F00-5FF0 TO 7F00 ,STOP IF ($FF).
^.Z..BA.39:.:MOVE SCREEN BACK IN PLACE..
..
> CLICK IMAGE PREVIEW FOR FULL MODAL