TRANSFER
FILE INFORMATION
FILENAME(S): TRANSFER
FILE TYPE(S): PRG
FILE SIZE: 5.5K
FIRST SEEN: 2025-10-19 22:48:49
APPEARS ON: 1 disk(s)
FILE HASH
965667abc4d57a58ac635ee538763ae5287288149e319bc8cdafd996e6fd2cbb
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TIMEWRK C | TRANSFER | PRG | Radd Maxx | 33 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 42 1C 64 00 FE 25 3A 86 54 24 28 38 30 30 |..B.d..%:.T$(800|
00000010: 29 2C 53 43 24 28 31 38 29 2C 41 54 24 28 31 35 |),SC$(18),AT$(15|
00000020: 2C 39 29 2C 44 54 24 28 31 38 30 29 3A 81 41 B2 |,9),DT$(180):.A.|
00000030: 31 A4 38 30 3A 53 50 24 B2 53 50 24 AA 22 20 22 |1.80:SP$.SP$." "|
00000040: 3A 82 00 8C 1C 69 00 99 22 93 42 45 46 4F 52 45 |:....i..".BEFORE|
00000050: 20 55 53 49 4E 47 20 54 48 49 53 20 54 52 41 4E | USING THIS TRAN|
00000060: 53 46 45 52 20 50 52 4F 47 52 41 4D 2C 20 59 4F |SFER PROGRAM, YO|
00000070: 55 20 4D 55 53 54 20 46 49 52 53 54 20 44 49 53 |U MUST FIRST DIS|
00000080: 43 4F 4E 4E 45 43 54 20 41 4C 4C 22 00 D3 1C 6E |CONNECT ALL"...n|
00000090: 00 99 22 44 45 56 49 43 45 53 20 28 50 52 49 4E |.."DEVICES (PRIN|
000000A0: 54 45 52 53 2C 20 50 4C 4F 54 54 45 52 53 2C 20 |TERS, PLOTTERS, |
000000B0: 45 58 54 52 41 20 44 49 53 4B 20 44 52 49 56 45 |EXTRA DISK DRIVE|
000000C0: 53 2C 20 45 54 43 2E 29 20 46 52 4F 4D 20 54 48 |S, ETC.) FROM TH|
000000D0: 45 20 22 00 1C 1D 73 00 99 22 43 4F 4D 50 55 54 |E "...s.."COMPUT|
000000E0: 45 52 2E 20 20 54 48 45 20 4F 4E 4C 59 20 54 57 |ER. THE ONLY TW|
000000F0: 4F 20 44 45 56 49 43 45 53 20 54 48 41 54 20 53 |O DEVICES THAT S|
00000100: 48 4F 55 4C 44 20 42 45 20 43 4F 4E 4E 45 43 54 |HOULD BE CONNECT|
00000110: 45 44 20 41 52 45 20 59 4F 55 52 22 00 67 1D 78 |ED ARE YOUR".g.x|
00000120: 00 99 22 4D 4F 4E 49 54 4F 52 20 28 54 56 29 20 |.."MONITOR (TV) |
00000130: 41 4E 44 20 4F 4E 45 20 44 49 53 4B 20 44 52 49 |AND ONE DISK DRI|
00000140: 56 45 21 22 3A 99 22 11 50 52 45 53 53 20 41 4E |VE!":.".PRESS AN|
00000150: 59 20 4B 45 59 20 57 48 45 4E 20 52 45 41 44 59 |Y KEY WHEN READY|
00000160: 2E 22 3A A1 F9 41 24 00 BB 1D 7D 00 FE 0F 23 38 |.":..A$...}...#8|
00000170: 3A 99 22 93 49 4E 53 45 52 54 20 59 4F 55 52 20 |:.".INSERT YOUR |
00000180: 43 36 34 20 54 52 41 4E 53 41 43 54 49 4F 4E 20 |C64 TRANSACTION |
00000190: 44 49 53 4B 20 49 4E 54 4F 20 54 48 45 20 44 49 |DISK INTO THE DI|
000001A0: 53 4B 20 44 52 49 56 45 20 41 4E 44 20 50 52 45 |SK DRIVE AND PRE|
000001B0: 53 53 20 41 4E 59 20 4B 45 59 22 00 EC 1D 82 00 |SS ANY KEY".....|
000001C0: A1 F9 41 24 3A 99 22 93 4F 4B 22 3A FE 0D 23 38 |..A$:.".OK":..#8|
000001D0: 2C 22 54 52 41 4E 53 2E 46 49 4C 45 22 2C 4C 36 |,"TRANS.FILE",L6|
000001E0: 32 3A 8B 44 53 B3 B1 30 A7 31 32 35 00 FB 1D 87 |2:.DS..0.125....|
000001F0: 00 8B 52 31 B3 B1 30 A7 31 39 30 00 4E 1E 8C 00 |..R1..0.190.N...|
00000200: FE 12 23 38 2C 31 3A 84 38 2C 41 41 24 3A 41 31 |..#8,1:.8,AA$:A1|
00000210: 24 B2 CA 28 41 41 24 2C 37 2C 34 29 3A 41 32 24 |$..(AA$,7,4):A2$|
00000220: B2 CA 28 41 41 24 2C 31 35 2C 34 29 3A 41 33 24 |..(AA$,15,4):A3$|
00000230: B2 C9 28 41 41 24 2C 33 30 29 3A 54 50 B2 31 3A |..(AA$,30):TP.1:|
00000240: 52 31 B2 32 3A 52 32 B2 32 3A FE 0F 23 38 00 7F |R1.2:R2.2:..#8..|
00000250: 1E 91 00 99 22 13 11 52 45 41 44 49 4E 47 20 41 |...."..READING A|
00000260: 43 43 4F 55 4E 54 20 47 45 4E 45 52 41 4C 20 49 |CCOUNT GENERAL I|
00000270: 4E 46 4F 52 4D 41 54 49 4F 4E 22 3A 58 B2 31 00 |NFORMATION":X.1.|
00000280: A3 1E 96 00 81 41 B2 31 39 A4 34 37 A9 32 3A 8B |.....A.19.47.2:.|
00000290: CA 28 41 41 24 2C 41 2C 32 29 B2 22 20 20 22 A7 |.(AA$,A,2)." ".|
000002A0: 31 36 30 00 E4 1E 9B 00 9F 38 2C 38 2C 38 2C 22 |160......8,8,8,"|
000002B0: 30 3A 41 43 43 4F 55 4E 54 2E 22 AA CA 28 41 41 |0:ACCOUNT."..(AA|
000002C0: 24 2C 41 2C 32 29 3A 81 42 B2 31 A4 39 3A 84 38 |$,A,2):.B.1.9:.8|
000002D0: 2C 41 24 3A 41 54 24 28 58 2C 42 29 B2 41 24 3A |,A$:AT$(X,B).A$:|
000002E0: 82 3A A0 38 00 22 1F A0 00 58 B2 58 AA 31 3A 82 |.:.8."...X.X.1:.|
000002F0: 3A 9F 38 2C 38 2C 38 2C 22 30 3A 50 41 59 45 52 |:.8,8,8,"0:PAYER|
00000300: 2E 46 49 4C 45 22 3A 81 41 B2 31 A4 34 3A 84 38 |.FILE":.A.1.4:.8|
00000310: 2C 41 24 3A 44 54 24 28 41 29 B2 41 24 3A 82 3A |,A$:DT$(A).A$:.:|
00000320: A0 38 00 5A 1F A5 00 59 B2 35 3A 9F 38 2C 38 2C |.8.Z...Y.5:.8,8,|
00000330: 38 2C 22 30 3A 53 54 41 4E 44 41 52 44 2E 54 52 |8,"0:STANDARD.TR|
00000340: 41 4E 53 22 3A 81 43 B2 31 A4 32 34 3A 84 38 2C |ANS":.C.1.24:.8,|
00000350: 52 31 24 3A 84 38 2C 52 32 24 00 AF 1F AA 00 53 |R1$:.8,R2$.....S|
00000360: 43 24 28 35 29 B2 22 20 22 AA CA 28 52 31 24 2C |C$(5)." "..(R1$,|
00000370: 34 38 2C 36 29 3A 58 B2 32 3A 81 41 B2 36 A4 31 |48,6):X.2:.A.6.1|
00000380: 37 A9 32 3A 53 43 24 28 41 29 B2 22 20 22 AA CA |7.2:SC$(A)." "..|
00000390: 28 52 32 24 2C 58 2C 36 29 3A 53 43 24 28 41 AA |(R2$,X,6):SC$(A.|
000003A0: 31 29 B2 CA 28 52 32 24 2C 58 AA 36 2C 34 29 00 |1)..(R2$,X.6,4).|
000003B0: 19 20 AF 00 58 B2 58 AA 31 30 3A 82 3A 52 31 24 |. ..X.X.10:.:R1$|
000003C0: B2 C8 28 52 31 24 2C 34 37 29 AA 22 20 20 20 20 |..(R1$,47)." |
000003D0: 20 20 20 20 22 AA 53 43 24 28 35 29 AA 22 20 20 | ".SC$(5)." |
000003E0: 20 20 20 20 30 30 30 22 3A 52 32 24 B2 C8 28 52 | 000":R2$..(R|
000003F0: 32 24 2C 31 29 3A 81 41 B2 36 A4 31 37 A9 32 3A |2$,1):.A.6.17.2:|
00000400: 52 32 24 B2 52 32 24 AA 53 43 24 28 41 29 AA 53 |R2$.R2$.SC$(A).S|
00000410: 43 24 28 41 AA 31 29 3A 82 00 40 20 B4 00 44 54 |C$(A.1):..@ ..DT|
00000420: 24 28 59 29 B2 52 31 24 3A 44 54 24 28 59 AA 31 |$(Y).R1$:DT$(Y.1|
00000430: 29 B2 52 32 24 3A 59 B2 59 AA 32 3A 82 3A A0 38 |).R2$:Y.Y.2:.:.8|
00000440: 00 68 20 B9 00 FE 0D 23 38 2C 22 54 52 41 4E 53 |.h ....#8,"TRANS|
00000450: 2E 46 49 4C 45 22 2C 4C 36 32 3A 99 22 13 11 22 |.FILE",L62:.".."|
00000460: C7 28 32 37 29 22 51 22 00 A8 20 BE 00 99 22 13 |.(27)"Q".. ...".|
00000470: 11 52 45 41 44 49 4E 47 20 52 45 43 4F 52 44 20 |.READING RECORD |
00000480: 23 22 52 31 3A FE 12 23 38 2C 28 52 31 29 3A 84 |#"R1:..#8,(R1):.|
00000490: 38 2C 52 31 24 3A FE 12 23 38 2C 28 52 31 AA 31 |8,R1$:..#8,(R1.1|
000004A0: 29 3A 84 38 2C 52 32 24 00 11 21 C3 00 53 43 24 |):.8,R2$..!..SC$|
000004B0: 28 35 29 B2 22 20 22 AA CA 28 52 31 24 2C 34 38 |(5)." "..(R1$,48|
000004C0: 2C 36 29 3A 42 41 24 B2 22 20 22 AA CA 28 52 31 |,6):BA$." "..(R1|
000004D0: 24 2C 35 34 2C 38 29 3A 58 B2 32 3A 81 41 B2 36 |$,54,8):X.2:.A.6|
000004E0: A4 31 37 A9 32 3A 53 43 24 28 41 29 B2 22 20 22 |.17.2:SC$(A)." "|
000004F0: AA CA 28 52 32 24 2C 58 2C 36 29 3A 53 43 24 28 |..(R2$,X,6):SC$(|
00000500: 41 AA 31 29 B2 CA 28 52 32 24 2C 58 AA 36 2C 34 |A.1)..(R2$,X.6,4|
00000510: 29 00 73 21 C8 00 58 B2 58 AA 31 30 3A 82 3A 52 |).s!..X.X.10:.:R|
00000520: 31 24 B2 C8 28 52 31 24 2C 34 37 29 AA 22 20 20 |1$..(R1$,47)." |
00000530: 20 20 20 20 20 20 22 AA 53 43 24 28 35 29 AA 42 | ".SC$(5).B|
00000540: 41 24 3A 52 32 24 B2 C8 28 52 32 24 2C 31 29 3A |A$:R2$..(R2$,1):|
00000550: 81 41 B2 36 A4 31 37 A9 32 3A 52 32 24 B2 52 32 |.A.6.17.2:R2$.R2|
00000560: 24 AA 53 43 24 28 41 29 AA 53 43 24 28 41 AA 31 |$.SC$(A).SC$(A.1|
00000570: 29 3A 82 00 9F 21 CD 00 54 24 28 54 50 29 B2 52 |):...!..T$(TP).R|
00000580: 31 24 3A 54 24 28 54 50 AA 31 29 B2 52 32 24 3A |1$:T$(TP.1).R2$:|
00000590: 54 50 B2 54 50 AA 32 3A 52 31 B2 52 31 AA 32 00 |TP.TP.2:R1.R1.2.|
000005A0: AF 21 D2 00 8B 54 50 B1 34 30 30 A7 32 32 30 00 |.!...TP.400.220.|
000005B0: C2 21 D7 00 8B 52 31 B3 C5 28 41 31 24 29 A7 31 |.!...R1..(A1$).1|
000005C0: 39 30 00 1C 22 DC 00 FE 0F 23 38 3A 54 32 B2 31 |90.."....#8:T2.1|
000005D0: 3A 99 22 93 49 4E 53 45 52 54 20 59 4F 55 52 20 |:.".INSERT YOUR |
000005E0: 43 31 32 38 20 54 52 41 4E 53 41 43 54 49 4F 4E |C128 TRANSACTION|
000005F0: 20 44 49 53 4B 20 49 4E 54 4F 20 54 48 45 20 44 | DISK INTO THE D|
00000600: 49 53 4B 20 44 52 49 56 45 20 41 4E 44 20 50 52 |ISK DRIVE AND PR|
00000610: 45 53 53 20 41 4E 59 20 4B 45 59 22 00 4D 22 E1 |ESS ANY KEY".M".|
00000620: 00 A1 F9 41 24 3A 99 22 93 4F 4B 22 3A FE 0D 23 |...A$:.".OK":..#|
00000630: 38 2C 22 54 52 41 4E 53 2E 46 49 4C 45 22 2C 4C |8,"TRANS.FILE",L|
00000640: 37 32 3A 8B 44 53 B3 B1 30 A7 32 32 30 00 95 22 |72:.DS..0.220.."|
00000650: E6 00 99 22 13 11 57 52 49 54 49 4E 47 20 52 45 |..."..WRITING RE|
00000660: 43 4F 52 44 20 23 22 52 32 3A FE 12 23 38 2C 28 |CORD #"R2:..#8,(|
00000670: 52 32 29 3A 98 38 2C 54 24 28 54 32 29 3A FE 12 |R2):.8,T$(T2):..|
00000680: 23 38 2C 28 52 32 AA 31 29 3A 98 38 2C 54 24 28 |#8,(R2.1):.8,T$(|
00000690: 54 32 AA 31 29 00 B4 22 EB 00 52 32 B2 52 32 AA |T2.1).."..R2.R2.|
000006A0: 32 3A 54 32 B2 54 32 AA 32 3A 8B 54 32 B3 54 50 |2:T2.T2.2:.T2.TP|
000006B0: A7 32 33 30 00 C7 22 F0 00 8B 52 31 B3 C5 28 41 |.230.."...R1..(A|
000006C0: 31 24 29 A7 31 32 35 00 EC 22 F5 00 99 22 13 11 |1$).125.."..."..|
000006D0: 55 50 44 41 54 49 4E 47 20 43 31 32 38 20 53 59 |UPDATING C128 SY|
000006E0: 53 54 45 4D 20 52 45 43 4F 52 44 22 00 1F 23 FA |STEM RECORD"..#.|
000006F0: 00 41 41 24 B2 22 54 52 22 AA 41 32 24 AA 41 31 |.AA$."TR".A2$.A1|
00000700: 24 AA 22 20 20 20 30 22 AA 41 33 24 3A FE 12 23 |$." 0".A3$:..#|
00000710: 38 2C 31 3A 98 38 2C 41 41 24 3A FE 0F 23 38 00 |8,1:.8,AA$:..#8.|
00000720: 5C 23 FF 00 99 22 13 11 57 52 49 54 49 4E 47 20 |\#..."..WRITING |
00000730: 41 43 43 4F 55 4E 54 20 47 45 4E 45 52 41 4C 20 |ACCOUNT GENERAL |
00000740: 49 4E 46 4F 52 4D 41 54 49 4F 4E 22 3A F2 22 41 |INFORMATION":."A|
00000750: 43 43 4F 55 4E 54 2A 22 3A 58 B2 31 00 80 23 04 |CCOUNT*":X.1..#.|
00000760: 01 81 41 B2 31 35 A4 34 33 A9 32 3A 8B CA 28 41 |..A.15.43.2:..(A|
00000770: 41 24 2C 41 2C 32 29 B2 22 20 20 22 A7 33 36 30 |A$,A,2)." ".360|
00000780: 00 B5 23 09 01 9F 38 2C 38 2C 38 2C 22 30 3A 41 |..#...8,8,8,"0:A|
00000790: 43 43 4F 55 4E 54 2E 22 AA CA 28 41 41 24 2C 41 |CCOUNT."..(AA$,A|
000007A0: 2C 32 29 AA 22 2C 53 2C 57 22 3A 8B 41 B1 B2 32 |,2).",S,W":.A..2|
000007B0: 35 A7 33 31 35 00 CF 23 0E 01 98 38 2C C8 28 41 |5.315..#...8,.(A|
000007C0: 54 24 28 58 2C 31 29 AA 53 50 24 2C 33 31 29 00 |T$(X,1).SP$,31).|
000007D0: E9 23 13 01 98 38 2C C8 28 41 54 24 28 58 2C 32 |.#...8,.(AT$(X,2|
000007E0: 29 AA 53 50 24 2C 33 31 29 00 03 24 18 01 98 38 |).SP$,31)..$...8|
000007F0: 2C C8 28 41 54 24 28 58 2C 33 29 AA 53 50 24 2C |,.(AT$(X,3).SP$,|
00000800: 33 31 29 00 1D 24 1D 01 98 38 2C C8 28 41 54 24 |31)..$...8,.(AT$|
00000810: 28 58 2C 34 29 AA 53 50 24 2C 33 31 29 00 37 24 |(X,4).SP$,31).7$|
00000820: 22 01 98 38 2C C8 28 41 54 24 28 58 2C 35 29 AA |"..8,.(AT$(X,5).|
00000830: 53 50 24 2C 31 36 29 00 52 24 27 01 98 38 2C 22 |SP$,16).R$'..8,"|
00000840: 2A 22 AA CA 28 41 54 24 28 58 2C 36 29 2C 32 2C |*"..(AT$(X,6),2,|
00000850: 38 29 00 6E 24 2C 01 98 38 2C 22 2A 22 AA CA 28 |8).n$,..8,"*"..(|
00000860: 41 54 24 28 58 2C 36 29 2C 31 30 2C 38 29 00 89 |AT$(X,6),10,8)..|
00000870: 24 31 01 98 38 2C 22 2A 22 AA CA 28 41 54 24 28 |$1..8,"*"..(AT$(|
00000880: 58 2C 37 29 2C 32 2C 38 29 00 AB 24 36 01 98 38 |X,7),2,8)..$6..8|
00000890: 2C 22 2A 20 22 AA C9 28 41 54 24 28 58 2C 37 29 |,"* "..(AT$(X,7)|
000008A0: 2C 39 29 3A A0 38 3A 89 33 36 30 00 C5 24 3B 01 |,9):.8:.360..$;.|
000008B0: 98 38 2C C8 28 41 54 24 28 58 2C 31 29 AA 53 50 |.8,.(AT$(X,1).SP|
000008C0: 24 2C 33 31 29 00 DF 24 40 01 98 38 2C C8 28 41 |$,31)..$@..8,.(A|
000008D0: 54 24 28 58 2C 32 29 AA 53 50 24 2C 33 31 29 00 |T$(X,2).SP$,31).|
000008E0: F9 24 45 01 98 38 2C C8 28 41 54 24 28 58 2C 33 |.$E..8,.(AT$(X,3|
000008F0: 29 AA 53 50 24 2C 33 31 29 00 13 25 4A 01 98 38 |).SP$,31)..%J..8|
00000900: 2C C8 28 41 54 24 28 58 2C 35 29 AA 53 50 24 2C |,.(AT$(X,5).SP$,|
00000910: 31 36 29 00 2E 25 4F 01 98 38 2C 22 2A 22 AA CA |16)..%O..8,"*"..|
00000920: 28 41 54 24 28 58 2C 34 29 2C 32 2C 38 29 00 4A |(AT$(X,4),2,8).J|
00000930: 25 54 01 98 38 2C 22 2A 22 AA CA 28 41 54 24 28 |%T..8,"*"..(AT$(|
00000940: 58 2C 34 29 2C 31 30 2C 38 29 00 65 25 59 01 98 |X,4),10,8).e%Y..|
00000950: 38 2C 22 2A 22 AA CA 28 41 54 24 28 58 2C 37 29 |8,"*"..(AT$(X,7)|
00000960: 2C 32 2C 38 29 00 7E 25 5E 01 98 38 2C C8 28 41 |,2,8).~%^..8,.(A|
00000970: 54 24 28 58 2C 36 29 AA 53 50 24 2C 37 29 00 9B |T$(X,6).SP$,7)..|
00000980: 25 63 01 98 38 2C 22 2A 20 22 AA C9 28 41 54 24 |%c..8,"* "..(AT$|
00000990: 28 58 2C 37 29 2C 39 29 3A A0 38 00 01 26 68 01 |(X,7),9):.8..&h.|
000009A0: 58 B2 58 AA 31 3A 82 3A F2 22 50 41 59 45 52 2E |X.X.1:.:."PAYER.|
000009B0: 46 49 4C 45 22 3A F2 22 53 54 41 4E 44 41 52 44 |FILE":."STANDARD|
000009C0: 2E 54 52 41 4E 53 22 3A 9F 38 2C 38 2C 38 2C 22 |.TRANS":.8,8,8,"|
000009D0: 30 3A 50 41 59 45 52 2E 46 49 4C 45 2C 53 2C 57 |0:PAYER.FILE,S,W|
000009E0: 22 3A 81 41 B2 31 A4 34 3A 98 38 2C C8 28 44 54 |":.A.1.4:.8,.(DT|
000009F0: 24 28 41 29 AA 53 50 24 2C 33 31 29 3A 82 3A A0 |$(A).SP$,31):.:.|
00000A00: 38 00 3A 26 6D 01 9F 38 2C 38 2C 38 2C 22 30 3A |8.:&m..8,8,8,"0:|
00000A10: 53 54 41 4E 44 41 52 44 2E 54 52 41 4E 53 2C 53 |STANDARD.TRANS,S|
00000A20: 2C 57 22 3A 81 41 B2 35 A4 35 32 3A 98 38 2C 44 |,W":.A.5.52:.8,D|
00000A30: 54 24 28 41 29 3A 82 3A A0 38 00 99 26 72 01 FE |T$(A):.:.8..&r..|
00000A40: 0F 23 38 3A 52 31 B2 30 3A 99 22 93 49 4E 53 45 |.#8:R1.0:.".INSE|
00000A50: 52 54 20 59 4F 55 52 20 43 36 34 20 41 53 53 45 |RT YOUR C64 ASSE|
00000A60: 54 20 26 20 4C 49 41 42 49 4C 49 54 59 20 44 49 |T & LIABILITY DI|
00000A70: 53 4B 20 49 4E 54 4F 20 54 48 45 20 44 49 53 4B |SK INTO THE DISK|
00000A80: 20 44 52 49 56 45 20 41 4E 44 20 50 52 45 53 53 | DRIVE AND PRESS|
00000A90: 20 41 4E 59 20 4B 45 59 22 00 C5 26 77 01 A1 F9 | ANY KEY"..&w...|
00000AA0: 41 24 3A 99 22 93 4F 4B 22 3A FE 0D 23 38 2C 22 |A$:.".OK":..#8,"|
00000AB0: 4C 49 41 42 2E 46 49 4C 45 22 3A 8B 44 53 B3 B1 |LIAB.FILE":.DS..|
00000AC0: 30 A7 33 37 30 00 D4 26 7C 01 8B 52 31 B3 B1 30 |0.370..&|..R1..0|
00000AD0: A7 34 30 35 00 19 27 81 01 FE 12 23 38 2C 31 3A |.405..'....#8,1:|
00000AE0: 84 38 2C 41 41 24 3A 41 31 24 B2 CA 28 41 41 24 |.8,AA$:A1$..(AA$|
00000AF0: 2C 37 2C 34 29 3A 41 32 24 B2 CA 28 41 41 24 2C |,7,4):A2$..(AA$,|
00000B00: 31 35 2C 34 29 3A 54 50 B2 31 3A 52 31 B2 32 3A |15,4):TP.1:R1.2:|
00000B10: 52 32 B2 32 3A FE 0F 23 38 00 3E 27 86 01 99 22 |R2.2:..#8.>'..."|
00000B20: 13 11 52 45 41 44 49 4E 47 20 47 45 4E 45 52 41 |..READING GENERA|
00000B30: 4C 20 49 4E 46 4F 52 4D 41 54 49 4F 4E 22 00 73 |L INFORMATION".s|
00000B40: 27 8B 01 9F 38 2C 38 2C 38 2C 22 30 3A 4C 49 41 |'...8,8,8,"0:LIA|
00000B50: 42 2E 47 49 22 3A 81 42 B2 31 A4 31 38 30 3A 84 |B.GI":.B.1.180:.|
00000B60: 38 2C 41 24 3A 44 54 24 28 42 29 B2 41 24 3A 82 |8,A$:DT$(B).A$:.|
00000B70: 3A A0 38 00 96 27 90 01 FE 0D 23 38 2C 22 4C 49 |:.8..'....#8,"LI|
00000B80: 41 42 2E 46 49 4C 45 22 3A 99 22 13 11 22 C7 28 |AB.FILE":."..".(|
00000B90: 32 37 29 22 51 22 00 C3 27 95 01 99 22 13 11 52 |27)"Q"..'..."..R|
00000BA0: 45 41 44 49 4E 47 20 52 45 43 4F 52 44 20 23 22 |EADING RECORD #"|
00000BB0: 52 31 3A FE 12 23 38 2C 28 52 31 29 3A 84 38 2C |R1:..#8,(R1):.8,|
00000BC0: 52 31 24 00 40 28 9A 01 53 43 24 28 31 29 B2 CA |R1$.@(..SC$(1)..|
00000BD0: 28 52 31 24 2C 38 2C 33 30 29 AA 22 20 20 20 20 |(R1$,8,30)." |
00000BE0: 20 20 20 20 20 20 22 3A 53 43 24 28 32 29 B2 22 | ":SC$(2)."|
00000BF0: 20 22 AA CA 28 52 31 24 2C 33 38 2C 36 29 AA 22 | "..(R1$,38,6)."|
00000C00: 30 30 22 AA CA 28 52 31 24 2C 34 34 2C 31 36 29 |00"..(R1$,44,16)|
00000C10: AA 22 20 22 AA CA 28 52 31 24 2C 36 30 2C 36 29 |." "..(R1$,60,6)|
00000C20: AA 22 30 30 22 3A 52 31 24 B2 C8 28 52 31 24 2C |."00":R1$..(R1$,|
00000C30: 35 29 AA 53 43 24 28 31 29 AA 53 43 24 28 32 29 |5).SC$(1).SC$(2)|
00000C40: 00 5F 28 9F 01 54 24 28 54 50 29 B2 52 31 24 3A |._(..T$(TP).R1$:|
00000C50: 54 50 B2 54 50 AA 31 3A 52 31 B2 52 31 AA 31 00 |TP.TP.1:R1.R1.1.|
00000C60: 6F 28 A4 01 8B 54 50 B1 38 30 30 A7 34 33 30 00 |o(...TP.800.430.|
00000C70: 82 28 A9 01 8B 52 31 B3 C5 28 41 31 24 29 A7 34 |.(...R1..(A1$).4|
00000C80: 30 35 00 E2 28 AE 01 FE 0F 23 38 3A 54 32 B2 31 |05..(....#8:T2.1|
00000C90: 3A 99 22 93 49 4E 53 45 52 54 20 59 4F 55 52 20 |:.".INSERT YOUR |
00000CA0: 43 31 32 38 20 41 53 53 45 54 20 26 20 4C 49 41 |C128 ASSET & LIA|
00000CB0: 42 49 4C 49 54 59 20 44 49 53 4B 20 49 4E 54 4F |BILITY DISK INTO|
00000CC0: 20 54 48 45 20 44 49 53 4B 20 44 52 49 56 45 20 | THE DISK DRIVE |
00000CD0: 41 4E 44 20 50 52 45 53 53 20 41 4E 59 20 4B 45 |AND PRESS ANY KE|
00000CE0: 59 22 00 0C 29 B3 01 A1 F9 41 24 3A 99 22 93 4F |Y"..)....A$:.".O|
00000CF0: 4B 22 3A FE 0D 23 38 2C 22 41 4C 2E 46 49 4C 45 |K":..#8,"AL.FILE|
00000D00: 22 3A 8B 44 53 B3 B1 30 A7 34 33 30 00 3C 29 B8 |":.DS..0.430.<).|
00000D10: 01 99 22 13 11 57 52 49 54 49 4E 47 20 52 45 43 |.."..WRITING REC|
00000D20: 4F 52 44 20 23 22 52 32 3A FE 12 23 38 2C 28 52 |ORD #"R2:..#8,(R|
00000D30: 32 29 3A 98 38 2C 54 24 28 54 32 29 00 5B 29 BD |2):.8,T$(T2).[).|
00000D40: 01 52 32 B2 52 32 AA 31 3A 54 32 B2 54 32 AA 31 |.R2.R2.1:T2.T2.1|
00000D50: 3A 8B 54 32 B3 54 50 A7 34 34 30 00 6E 29 C2 01 |:.T2.TP.440.n)..|
00000D60: 8B 52 31 B3 C5 28 41 31 24 29 A7 33 37 30 00 93 |.R1..(A1$).370..|
00000D70: 29 C7 01 99 22 13 11 55 50 44 41 54 49 4E 47 20 |)..."..UPDATING |
00000D80: 43 31 32 38 20 53 59 53 54 45 4D 20 52 45 43 4F |C128 SYSTEM RECO|
00000D90: 52 44 22 00 C2 29 CC 01 41 41 24 B2 22 41 4C 22 |RD"..)..AA$."AL"|
00000DA0: AA 41 32 24 AA 41 31 24 AA 22 20 20 20 30 22 3A |.A2$.A1$." 0":|
00000DB0: FE 12 23 38 2C 31 3A 98 38 2C 41 41 24 3A FE 0F |..#8,1:.8,AA$:..|
00000DC0: 23 38 00 F4 29 D1 01 99 22 13 11 57 52 49 54 49 |#8..)..."..WRITI|
00000DD0: 4E 47 20 47 45 4E 45 52 41 4C 20 49 4E 46 4F 52 |NG GENERAL INFOR|
00000DE0: 4D 41 54 49 4F 4E 22 3A F2 22 41 4C 47 49 2E 46 |MATION":."ALGI.F|
00000DF0: 49 4C 45 22 00 30 2A D6 01 9F 38 2C 38 2C 38 2C |ILE".0*...8,8,8,|
00000E00: 22 30 3A 41 4C 47 49 2E 46 49 4C 45 2C 53 2C 57 |"0:ALGI.FILE,S,W|
00000E10: 22 3A 81 41 B2 31 A4 31 38 30 3A 98 38 2C 44 54 |":.A.1.180:.8,DT|
00000E20: 24 28 41 29 AA C9 28 53 50 24 2C 31 31 29 3A 82 |$(A)..(SP$,11):.|
00000E30: 00 52 2A DB 01 81 41 B2 31 A4 34 35 3A 98 38 2C |.R*...A.1.45:.8,|
00000E40: 22 2A 22 AA C9 28 53 50 24 2C 34 39 29 3A 82 3A |"*"..(SP$,49):.:|
00000E50: A0 38 00 9B 2A E0 01 F2 22 4D 41 53 54 45 52 2E |.8..*..."MASTER.|
00000E60: 49 4E 44 45 58 22 3A 9F 38 2C 38 2C 38 2C 22 30 |INDEX":.8,8,8,"0|
00000E70: 3A 4D 41 53 54 45 52 2E 49 4E 44 45 58 2C 53 2C |:MASTER.INDEX,S,|
00000E80: 57 22 3A 81 41 B2 32 A4 C5 28 41 31 24 29 3A 98 |W":.A.2..(A1$):.|
00000E90: 38 2C C4 28 41 29 3A 82 3A A0 38 00 25 2B E5 01 |8,.(A):.:.8.%+..|
00000EA0: 9C 3A 86 54 24 28 32 36 33 29 2C 44 54 24 28 31 |.:.T$(263),DT$(1|
00000EB0: 35 34 29 2C 42 41 28 31 36 38 30 29 2C 41 41 28 |54),BA(1680),AA(|
00000EC0: 31 36 38 30 29 3A 81 41 B2 31 A4 38 30 3A 53 50 |1680):.A.1.80:SP|
00000ED0: 24 B2 53 50 24 AA 22 20 22 3A 44 4C 24 B2 44 4C |$.SP$." ":DL$.DL|
00000EE0: 24 AA 22 2E 22 3A 82 3A 41 31 24 B2 22 24 20 20 |$.".":.:A1$."$ |
00000EF0: 20 A4 A4 A4 A4 A4 A4 20 20 20 20 20 A4 A4 A4 A4 | ...... ....|
00000F00: A4 20 25 20 20 22 3A 41 32 24 B2 22 20 20 20 20 |. % ":A2$." |
00000F10: A4 A4 A4 A4 A4 A4 20 20 20 20 20 A4 A4 A4 A4 A4 |...... .....|
00000F20: 20 20 20 20 22 00 74 2B EA 01 FE 0F 23 38 3A 99 | ".t+....#8:.|
00000F30: 22 93 49 4E 53 45 52 54 20 59 4F 55 52 20 43 36 |".INSERT YOUR C6|
00000F40: 34 20 42 55 44 47 45 54 20 44 49 53 4B 20 49 4E |4 BUDGET DISK IN|
00000F50: 54 4F 20 54 48 45 20 44 49 53 4B 20 44 52 49 56 |TO THE DISK DRIV|
00000F60: 45 20 41 4E 44 20 50 52 45 53 53 20 41 4E 59 20 |E AND PRESS ANY |
00000F70: 4B 45 59 22 00 9F 2B EF 01 A1 F9 41 24 3A 99 22 |KEY"..+....A$:."|
00000F80: 93 4F 4B 22 3A FE 0D 23 38 2C 22 42 55 44 2E 46 |.OK":..#8,"BUD.F|
00000F90: 49 4C 45 22 3A 8B 44 53 B3 B1 30 A7 34 39 30 00 |ILE":.DS..0.490.|
00000FA0: C3 2B F4 01 99 22 13 11 52 45 41 44 49 4E 47 20 |.+..."..READING |
00000FB0: 42 55 44 47 45 54 20 49 4E 46 4F 52 4D 41 54 49 |BUDGET INFORMATI|
00000FC0: 4F 4E 22 00 2D 2C F9 01 FE 0F 23 38 3A 9F 38 2C |ON".-,....#8:.8,|
00000FD0: 38 2C 38 2C 22 30 3A 49 4E 43 4F 4D 45 2E 53 48 |8,8,"0:INCOME.SH|
00000FE0: 45 45 54 22 3A 81 41 B2 31 A4 31 33 32 3A 84 38 |EET":.A.1.132:.8|
00000FF0: 2C 54 24 28 41 29 3A 82 3A A0 38 3A 9F 38 2C 38 |,T$(A):.:.8:.8,8|
00001000: 2C 38 2C 22 30 3A 42 41 4C 41 4E 43 45 2E 53 48 |,8,"0:BALANCE.SH|
00001010: 45 45 54 22 3A 81 41 B2 31 33 33 A4 32 36 33 3A |EET":.A.133.263:|
00001020: 84 38 2C 54 24 28 41 29 3A 82 3A A0 38 00 A6 2C |.8,T$(A):.:.8..,|
00001030: FE 01 9F 38 2C 38 2C 38 2C 22 30 3A 42 55 44 2E |...8,8,8,"0:BUD.|
00001040: 43 41 54 22 3A 81 41 B2 31 A4 31 35 34 3A 84 38 |CAT":.A.1.154:.8|
00001050: 2C 44 54 24 28 41 29 3A 82 3A A0 38 3A 9F 38 2C |,DT$(A):.:.8:.8,|
00001060: 38 2C 38 2C 22 30 3A 42 55 44 2E 46 49 4C 45 22 |8,8,"0:BUD.FILE"|
00001070: 3A 81 41 B2 31 A4 31 36 38 30 3A 84 38 2C 41 24 |:.A.1.1680:.8,A$|
00001080: 3A 42 41 28 41 29 B2 C5 28 CA 28 41 24 2C 32 2C |:BA(A)..(.(A$,2,|
00001090: 36 29 29 3A 41 41 28 41 29 B2 C5 28 CA 28 41 24 |6)):AA(A)..(.(A$|
000010A0: 2C 38 2C 36 29 29 00 AF 2C 03 02 82 3A A0 38 00 |,8,6))..,...:.8.|
000010B0: FF 2C 08 02 FE 0F 23 38 3A 99 22 93 49 4E 53 45 |.,....#8:.".INSE|
000010C0: 52 54 20 59 4F 55 52 20 43 31 32 38 20 42 55 44 |RT YOUR C128 BUD|
000010D0: 47 45 54 20 44 49 53 4B 20 49 4E 54 4F 20 54 48 |GET DISK INTO TH|
000010E0: 45 20 44 49 53 4B 20 44 52 49 56 45 20 41 4E 44 |E DISK DRIVE AND|
000010F0: 20 50 52 45 53 53 20 41 4E 59 20 4B 45 59 22 00 | PRESS ANY KEY".|
00001100: 2D 2D 0D 02 A1 F9 41 24 3A 99 22 93 4F 4B 22 3A |--....A$:.".OK":|
00001110: FE 0D 23 38 2C 22 42 55 44 47 45 54 2E 44 41 54 |..#8,"BUDGET.DAT|
00001120: 41 22 3A 8B 44 53 B3 B1 30 A7 35 32 30 00 51 2D |A":.DS..0.520.Q-|
00001130: 12 02 99 22 13 11 57 52 49 54 49 4E 47 20 42 55 |..."..WRITING BU|
00001140: 44 47 45 54 20 49 4E 46 4F 52 4D 41 54 49 4F 4E |DGET INFORMATION|
00001150: 22 00 BC 2D 17 02 81 58 B2 30 A4 31 35 36 30 A9 |"..-...X.0.1560.|
00001160: 31 32 30 3A 81 59 B2 30 A4 31 31 3A 5A B2 58 3A |120:.Y.0.11:Z.X:|
00001170: 81 41 B2 31 A4 31 30 3A 98 38 2C 22 2A 22 AA C9 |.A.1.10:.8,"*"..|
00001180: 28 53 50 24 AA C4 28 42 41 28 5A AA 59 AA 31 29 |(SP$..(BA(Z.Y.1)|
00001190: 29 2C 36 29 AA C9 28 53 50 24 AA C4 28 41 41 28 |),6)..(SP$..(AA(|
000011A0: 5A AA 59 AA 31 29 29 2C 36 29 3A 5A B2 5A AA 31 |Z.Y.1)),6):Z.Z.1|
000011B0: 32 3A 82 3A 82 3A 82 3A FE 0F 23 38 00 E8 2D 1C |2:.:.:.:..#8..-.|
000011C0: 02 F2 22 43 41 54 2E 54 49 54 4C 45 53 22 3A 9F |.."CAT.TITLES":.|
000011D0: 38 2C 38 2C 38 2C 22 30 3A 43 41 54 2E 54 49 54 |8,8,8,"0:CAT.TIT|
000011E0: 4C 45 53 2C 53 2C 57 22 00 4A 2E 21 02 81 58 B2 |LES,S,W".J.!..X.|
000011F0: 32 A4 31 34 35 A9 31 31 3A 81 41 B2 58 A4 58 AA |2.145.11:.A.X.X.|
00001200: 39 3A 98 38 2C C8 28 44 54 24 28 41 29 AA 53 50 |9:.8,.(DT$(A).SP|
00001210: 24 2C 31 37 29 3A 82 3A 98 38 2C C8 28 44 54 24 |$,17):.:.8,.(DT$|
00001220: 28 58 AB 31 29 AA 53 50 24 2C 32 31 29 3A 82 3A |(X.1).SP$,21):.:|
00001230: A0 38 3A F2 22 49 4E 22 3A 9F 38 2C 38 2C 38 2C |.8:."IN":.8,8,8,|
00001240: 22 30 3A 49 4E 2C 53 2C 57 22 00 7F 2E 26 02 46 |"0:IN,S,W"...&.F|
00001250: 31 B2 30 3A 81 41 B2 31 A4 36 36 3A 41 24 B2 C7 |1.0:.A.1.66:A$..|
00001260: 28 C6 28 C8 28 54 24 28 41 29 2C 31 29 29 AA 31 |(.(.(T$(A),1)).1|
00001270: 32 38 29 3A 8B 41 24 B2 22 C8 22 A7 35 38 30 00 |28):.A$.".".580.|
00001280: 8F 2E 2B 02 8B 41 24 B2 22 C4 22 A7 35 38 35 00 |..+..A$.".".585.|
00001290: F2 2E 30 02 41 24 B2 41 24 AA CA 28 54 24 28 41 |..0.A$.A$..(T$(A|
000012A0: 29 2C 32 2C 35 37 29 3A 58 B2 35 38 3A EB FD CA |),2,57):X.58:...|
000012B0: 28 41 24 2C 58 2C 31 29 B2 22 20 22 3A 58 B2 58 |(A$,X,1)." ":X.X|
000012C0: AB 31 3A EC 3A 41 24 B2 C8 28 C8 28 41 24 2C 58 |.1:.:A$..(.(A$,X|
000012D0: AA 31 29 AA 44 4C 24 2C 35 35 29 AA 22 20 22 3A |.1).DL$,55)." ":|
000012E0: 8B C8 28 41 24 2C 31 29 B3 B1 22 C1 22 A7 46 31 |..(A$,1)..".".F1|
000012F0: B2 30 00 22 2F 35 02 8B 46 31 B2 30 A7 41 24 B2 |.0."/5..F1.0.A$.|
00001300: C8 28 41 24 AA 41 31 24 2C 38 30 29 3A 46 31 B2 |.(A$.A1$,80):F1.|
00001310: 31 3A D5 41 24 B2 C8 28 41 24 AA 41 32 24 2C 38 |1:.A$..(A$.A2$,8|
00001320: 30 29 00 4F 2F 3A 02 8B C8 28 41 24 2C 31 29 B2 |0).O/:...(A$,1).|
00001330: 22 C1 22 A7 35 37 35 3A D5 41 24 B2 41 24 AA 22 |".".575:.A$.A$."|
00001340: 2A 2A 2A 2A 22 3A 46 31 B2 30 3A 89 35 39 30 00 |****":F1.0:.590.|
00001350: 93 2F 3F 02 58 B2 31 3A EB FD CA 28 54 24 28 41 |./?.X.1:...(T$(A|
00001360: AA 36 36 29 2C 58 2C 31 29 B3 B1 22 20 22 3A 58 |.66),X,1).." ":X|
00001370: B2 58 AA 31 3A EC 3A 41 24 B2 41 24 AA CA 28 54 |.X.1:.:A$.A$..(T|
00001380: 24 28 41 AA 36 36 29 2C 32 2C 58 AB 31 29 3A 89 |$(A.66),2,X.1):.|
00001390: 35 39 30 00 B6 2F 44 02 41 24 B2 41 24 AA C9 28 |590../D.A$.A$..(|
000013A0: 54 24 28 41 29 2C 37 38 29 AA 22 20 2A 2A 2A 2A |T$(A),78)." ****|
000013B0: 22 3A 89 35 39 30 00 DF 2F 49 02 41 24 B2 41 24 |":.590../I.A$.A$|
000013C0: AA CA 28 54 24 28 41 29 2C 32 2C 36 39 29 AA 22 |..(T$(A),2,69)."|
000013D0: A4 A4 A4 A4 A4 A4 A4 A4 20 20 2A 2A 2A 2A 22 00 |........ ****".|
000013E0: EE 2F 4E 02 98 38 2C 41 24 3A 82 3A A0 38 00 0A |./N..8,A$:.:.8..|
000013F0: 30 53 02 F2 22 42 41 22 3A 9F 38 2C 38 2C 38 2C |0S.."BA":.8,8,8,|
00001400: 22 30 3A 42 41 2C 53 2C 57 22 00 43 30 58 02 46 |"0:BA,S,W".C0X.F|
00001410: 31 B2 30 3A 81 41 B2 31 A4 36 36 3A 41 24 B2 C7 |1.0:.A.1.66:A$..|
00001420: 28 C6 28 C8 28 54 24 28 41 AA 31 33 32 29 2C 31 |(.(.(T$(A.132),1|
00001430: 29 29 AA 31 32 38 29 3A 8B 41 24 B2 22 C8 22 A7 |)).128):.A$.".".|
00001440: 36 33 30 00 53 30 5D 02 8B 41 24 B2 22 C4 22 A7 |630.S0]..A$.".".|
00001450: 36 33 35 00 BA 30 62 02 41 24 B2 41 24 AA CA 28 |635..0b.A$.A$..(|
00001460: 54 24 28 41 AA 31 33 32 29 2C 32 2C 35 37 29 3A |T$(A.132),2,57):|
00001470: 58 B2 35 38 3A EB FD CA 28 41 24 2C 58 2C 31 29 |X.58:...(A$,X,1)|
00001480: B2 22 20 22 3A 58 B2 58 AB 31 3A EC 3A 41 24 B2 |." ":X.X.1:.:A$.|
00001490: C8 28 C8 28 41 24 2C 58 AA 31 29 AA 44 4C 24 2C |.(.(A$,X.1).DL$,|
000014A0: 35 35 29 AA 22 20 22 3A 8B C8 28 41 24 2C 31 29 |55)." ":..(A$,1)|
000014B0: B3 B1 22 C1 22 A7 46 31 B2 30 00 EA 30 67 02 8B |..".".F1.0..0g..|
000014C0: 46 31 B2 30 A7 41 24 B2 C8 28 41 24 AA 41 31 24 |F1.0.A$..(A$.A1$|
000014D0: 2C 38 30 29 3A 46 31 B2 31 3A D5 41 24 B2 C8 28 |,80):F1.1:.A$..(|
000014E0: 41 24 AA 41 32 24 2C 38 30 29 00 17 31 6C 02 8B |A$.A2$,80)..1l..|
000014F0: C8 28 41 24 2C 31 29 B2 22 C1 22 A7 36 32 35 3A |.(A$,1).".".625:|
00001500: D5 41 24 B2 41 24 AA 22 2A 2A 2A 2A 22 3A 46 31 |.A$.A$."****":F1|
00001510: B2 30 3A 89 36 34 30 00 5D 31 71 02 58 B2 31 3A |.0:.640.]1q.X.1:|
00001520: EB FD CA 28 54 24 28 41 AA 31 39 38 29 2C 58 2C |...(T$(A.198),X,|
00001530: 31 29 B3 B1 22 20 22 3A 58 B2 58 AA 31 3A EC 3A |1).." ":X.X.1:.:|
00001540: 41 24 B2 41 24 AA CA 28 54 24 28 41 AA 31 39 38 |A$.A$..(T$(A.198|
00001550: 29 2C 32 2C 58 AB 31 29 3A 89 36 34 30 00 84 31 |),2,X.1):.640..1|
00001560: 76 02 41 24 B2 41 24 AA C9 28 54 24 28 41 AA 31 |v.A$.A$..(T$(A.1|
00001570: 33 32 29 2C 37 38 29 AA 22 20 2A 2A 2A 2A 22 3A |32),78)." ****":|
00001580: 89 36 34 30 00 B1 31 7B 02 41 24 B2 41 24 AA CA |.640..1{.A$.A$..|
00001590: 28 54 24 28 41 AA 31 33 32 29 2C 32 2C 36 39 29 |(T$(A.132),2,69)|
000015A0: AA 22 A4 A4 A4 A4 A4 A4 A4 A4 20 20 2A 2A 2A 2A |."........ ****|
000015B0: 22 00 C0 31 80 02 98 38 2C 41 24 3A 82 3A A0 38 |"..1...8,A$:.:.8|
000015C0: 00 CD 31 85 02 99 22 93 44 4F 4E 45 22 00 00 00 |..1...".DONE"...|
..B.D..%:.T$(800),SC$(18),AT$(15,9),DT$(
180):.A.1.80:SP$.SP$." ":....I..".BEFORE
USING THIS TRANSFER PROGRAM, YOU MUST F
IRST DISCONNECT ALL".S.N.."DEVICES (PRIN
TERS, PLOTTERS, EXTRA DISK DRIVES, ETC.)
FROM THE "...S.."COMPUTER. THE ONLY TW
O DEVICES THAT SHOULD BE CONNECTED ARE Y
OUR".G.X.."MONITOR (TV) AND ONE DISK DRI
VE!":.".PRESS ANY KEY WHEN READY.":..A$.
..}...#8:.".INSERT YOUR C64 TRANSACTION
DISK INTO THE DISK DRIVE AND PRESS ANY K
EY".......A$:.".OK":..#8,"TRANS.FILE",L6
2:.DS..0.125......R1..0.190.N.....#8,1:.
8,AA$:A1$.J(AA$,7,4):A2$.J(AA$,15,4):A3$
.I(AA$,30):TP.1:R1.2:R2.2:..#8....."..R
EADING ACCOUNT GENERAL INFORMATION":X.1.
.....A.19.47.2:.J(AA$,A,2)." ".160.....
.8,8,8,"0:ACCOUNT.".J(AA$,A,2):.B.1.9:.8
,A$:AT$(X,B).A$:.: 8.". .X.X.1:.:.8,8,8,
"0:PAYER.FILE":.A.1.4:.8,A$:DT$(A).A$:.:
8.Z...Y.5:.8,8,8,"0:STANDARD.TRANS":.C.
1.24:.8,R1$:.8,R2$.....SC$(5)." ".J(R1$,
48,6):X.2:.A.6.17.2:SC$(A)." ".J(R2$,X,6
):SC$(A.1).J(R2$,X.6,4).. ..X.X.10:.:R1$
.H(R1$,47)." ".SC$(5)." 000"
:R2$.H(R2$,1):.A.6.17.2:R2$.R2$.SC$(A).S
C$(A.1):..@ ..DT$(Y).R1$:DT$(Y.1).R2$:Y.
Y.2:.: 8.H ....#8,"TRANS.FILE",L62:.".."
G(27)"Q".. ..."..READING RECORD #"R1:..#
8,(R1):.8,R1$:..#8,(R1.1):.8,R2$..!C.SC$
(5)." ".J(R1$,48,6):BA$." ".J(R1$,54,8):
X.2:.A.6.17.2:SC$(A)." ".J(R2$,X,6):SC$(
A.1).J(R2$,X.6,4).S!H.X.X.10:.:R1$.H(R1$
,47)." ".SC$(5).BA$:R2$.H(R2$,1):
.A.6.17.2:R2$.R2$.SC$(A).SC$(A.1):...!M.
T$(TP).R1$:T$(TP.1).R2$:TP.TP.2:R1.R1.2.
.!R..TP.400.220.B!W..R1.E(A1$).190.."...
.#8:T2.1:.".INSERT YOUR C128 TRANSACTION
DISK INTO THE DISK DRIVE AND PRESS ANY
KEY".M"....A$:.".OK":..#8,"TRANS.FILE",L
72:.DS..0.220.."..."..WRITING RECORD #"R
2:..#8,(R2):.8,T$(T2):..#8,(R2.1):.8,T$(
T2.1).."..R2.R2.2:T2.T2.2:.T2.TP.230.G".
..R1.E(A1$).125.."..."..UPDATING C128 SY
STEM RECORD"..#..AA$."TR".A2$.A1$." 0"
.A3$:..#8,1:.8,AA$:..#8.\#..."..WRITING
ACCOUNT GENERAL INFORMATION":."ACCOUNT*"
:X.1..#...A.15.43.2:.J(AA$,A,2)." ".360
..#...8,8,8,"0:ACCOUNT.".J(AA$,A,2).",S,
W":.A..25.315.O#...8,H(AT$(X,1).SP$,31).
.#...8,H(AT$(X,2).SP$,31)..$...8,H(AT$(X
,3).SP$,31)..$...8,H(AT$(X,4).SP$,31).7$
"..8,H(AT$(X,5).SP$,16).R$'..8,"*".J(AT$
(X,6),2,8).N$,..8,"*".J(AT$(X,6),10,8)..
$1..8,"*".J(AT$(X,7),2,8)..$6..8,"* ".I(
AT$(X,7),9): 8:.360.E$;..8,H(AT$(X,1).SP
$,31)..$@..8,H(AT$(X,2).SP$,31)..$E..8,H
(AT$(X,3).SP$,31)..%J..8,H(AT$(X,5).SP$,
16)..%O..8,"*".J(AT$(X,4),2,8).J%T..8,"*
".J(AT$(X,4),10,8).E%Y..8,"*".J(AT$(X,7)
,2,8).~%^..8,H(AT$(X,6).SP$,7)..%C..8,"*
".I(AT$(X,7),9): 8..&H.X.X.1:.:."PAYER.
FILE":."STANDARD.TRANS":.8,8,8,"0:PAYER.
FILE,S,W":.A.1.4:.8,H(DT$(A).SP$,31):.:
8.:&M..8,8,8,"0:STANDARD.TRANS,S,W":.A.5
.52:.8,DT$(A):.: 8..&R...#8:R1.0:.".INSE
RT YOUR C64 ASSET & LIABILITY DISK INTO
THE DISK DRIVE AND PRESS ANY KEY".E&W...
A$:.".OK":..#8,"LIAB.FILE":.DS..0.370.T&
|..R1..0.405..'....#8,1:.8,AA$:A1$.J(AA$
,7,4):A2$.J(AA$,15,4):TP.1:R1.2:R2.2:..#
8.>'..."..READING GENERAL INFORMATION".S
'...8,8,8,"0:LIAB.GI":.B.1.180:.8,A$:DT$
(B).A$:.: 8..'....#8,"LIAB.FILE":.".."G(
27)"Q".C'..."..READING RECORD #"R1:..#8,
(R1):.8,R1$.@(..SC$(1).J(R1$,8,30)."
":SC$(2)." ".J(R1$,38,6)."00".J(R1
$,44,16)." ".J(R1$,60,6)."00":R1$.H(R1$,
5).SC$(1).SC$(2)._(..T$(TP).R1$:TP.TP.1:
R1.R1.1.O(...TP.800.430..(...R1.E(A1$).4
05..(....#8:T2.1:.".INSERT YOUR C128 ASS
ET & LIABILITY DISK INTO THE DISK DRIVE
AND PRESS ANY KEY"..)....A$:.".OK":..#8,
"AL.FILE":.DS..0.430.<)..."..WRITING REC
ORD #"R2:..#8,(R2):.8,T$(T2).[)..R2.R2.1
:T2.T2.1:.T2.TP.440.N)B..R1.E(A1$).370..
)G.."..UPDATING C128 SYSTEM RECORD".B)L.
AA$."AL".A2$.A1$." 0":..#8,1:.8,AA$:..
#8..)Q.."..WRITING GENERAL INFORMATION":
."ALGI.FILE".0*V..8,8,8,"0:ALGI.FILE,S,W
":.A.1.180:.8,DT$(A).I(SP$,11):..R*...A.
1.45:.8,"*".I(SP$,49):.: 8..*..."MASTER.
INDEX":.8,8,8,"0:MASTER.INDEX,S,W":.A.2.
E(A1$):.8,D(A):.: 8.%+...:.T$(263),DT$(1
54),BA(1680),AA(1680):.A.1.80:SP$.SP$."
":DL$.DL$.".":.:A1$."$ ...... ....
. % ":A2$." ...... ..... ".T+
....#8:.".INSERT YOUR C64 BUDGET DISK IN
TO THE DISK DRIVE AND PRESS ANY KEY"..+.
...A$:.".OK":..#8,"BUD.FILE":.DS..0.490.
C+..."..READING BUDGET INFORMATION".-,..
..#8:.8,8,8,"0:INCOME.SHEET":.A.1.132:.8
,T$(A):.: 8:.8,8,8,"0:BALANCE.SHEET":.A.
133.263:.8,T$(A):.: 8..,...8,8,8,"0:BUD.
CAT":.A.1.154:.8,DT$(A):.: 8:.8,8,8,"0:B
UD.FILE":.A.1.1680:.8,A$:BA(A).E(J(A$,2,
6)):AA(A).E(J(A$,8,6))..,...: 8..,....#8
:.".INSERT YOUR C128 BUDGET DISK INTO TH
E DISK DRIVE AND PRESS ANY KEY".--....A$
:.".OK":..#8,"BUDGET.DATA":.DS..0.520.Q-
..."..WRITING BUDGET INFORMATION"..-...X
.0.1560.120:.Y.0.11:Z.X:.A.1.10:.8,"*".I
(SP$.D(BA(Z.Y.1)),6).I(SP$.D(AA(Z.Y.1)),
6):Z.Z.12:.:.:.:..#8..-..."CAT.TITLES":.
8,8,8,"0:CAT.TITLES,S,W".J.!..X.2.145.11
:.A.X.X.9:.8,H(DT$(A).SP$,17):.:.8,H(DT$
(X.1).SP$,21):.: 8:."IN":.8,8,8,"0:IN,S,
W"..&.F1.0:.A.1.66:A$.G(F(H(T$(A),1)).1
28):.A$."H".580...+..A$."D".585...0.A$.A
$.J(T$(A),2,57):X.58:..J(A$,X,1)." ":X.X
.1:.:A$.H(H(A$,X.1).DL$,55)." ":.H(A$,1)
.."A".F1.0."/5..F1.0.A$.H(A$.A1$,80):F1.
1:UA$.H(A$.A2$,80).O/:..H(A$,1)."A".575:
UA$.A$."****":F1.0:.590../?.X.1:..J(T$(A
.66),X,1).." ":X.X.1:.:A$.A$.J(T$(A.66),
2,X.1):.590../D.A$.A$.I(T$(A),78)." ****
":.590../I.A$.A$.J(T$(A),2,69)."........
****"../N..8,A$:.: 8..0S.."BA":.8,8,8,
"0:BA,S,W".C0X.F1.0:.A.1.66:A$.G(F(H(T$(
A.132),1)).128):.A$."H".630.S0]..A$."D".
635..0B.A$.A$.J(T$(A.132),2,57):X.58:..J
(A$,X,1)." ":X.X.1:.:A$.H(H(A$,X.1).DL$,
55)." ":.H(A$,1).."A".F1.0..0G..F1.0.A$.
H(A$.A1$,80):F1.1:UA$.H(A$.A2$,80)..1L..
H(A$,1)."A".625:UA$.A$."****":F1.0:.640.
]1Q.X.1:..J(T$(A.198),X,1).." ":X.X.1:.:
A$.A$.J(T$(A.198),2,X.1):.640..1V.A$.A$.
I(T$(A.132),78)." ****":.640..1{.A$.A$.J
(T$(A.132),2,69)."........ ****"..1...8
,A$:.: 8.M1...".DONE"...
> CLICK IMAGE PREVIEW FOR FULL MODAL