1040PG1.SAVE
FILE INFORMATION
FILENAME(S): 1040PG1.SAVE
FILE TYPE(S): PRG
FILE SIZE: 2.2K
FIRST SEEN: 2025-11-30 18:12:44
APPEARS ON: 1 disk(s)
FILE HASH
aafad42f85c7f32371cc1a0333ff08b7780ed252805b3cc4d3a19b75710ed816
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SWIFTAX SIDE 1 | 1040PG1.SAVE | PRG | Sailor, Ganheden | 28 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 31 08 01 00 9F 31 35 2C 44 53 2C 31 35 3A |..1....15,DS,15:|
00000010: 44 28 33 31 29 B2 C5 28 44 24 28 31 29 29 AA C5 |D(31)..(D$(1))..|
00000020: 28 44 24 28 37 29 29 AA C5 28 44 24 28 31 33 29 |(D$(7))..(D$(13)|
00000030: 29 00 51 08 02 00 8B 44 28 33 31 29 B3 30 A7 44 |).Q....D(31).0.D|
00000040: 24 28 33 31 29 B2 C4 28 44 28 33 31 29 29 3A 89 |$(31)..(D(31)):.|
00000050: 35 00 6A 08 03 00 44 24 28 33 31 29 B2 CA 28 C4 |5.j...D$(31)..(.|
00000060: 28 44 28 33 31 29 29 2C 32 29 00 9D 08 05 00 42 |(D(31)),2).....B|
00000070: 4C 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 |L$." |
00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000090: 20 20 20 20 20 20 20 20 20 20 20 20 22 00 CB 08 | "...|
000000A0: 0F 00 46 50 24 B2 22 43 4F 4E 46 49 47 2E 53 59 |..FP$."CONFIG.SY|
000000B0: 53 22 3A 47 50 24 B2 22 53 22 3A 44 56 B2 44 53 |S":GP$."S":DV.DS|
000000C0: 3A 52 50 B2 31 3A 8D 38 30 30 30 00 F8 08 3C 00 |:RP.1:.8000...<.|
000000D0: 9F 32 2C 44 53 2C 32 2C 44 50 24 AA 54 4E 24 AA |.2,DS,2,DP$.TN$.|
000000E0: 22 53 54 41 54 55 53 2C 53 2C 52 22 3A 8D 35 30 |"STATUS,S,R":.50|
000000F0: 30 30 3A 84 32 2C 4E 24 00 17 09 46 00 8B C5 28 |00:.2,N$...F...(|
00000100: 4E 24 29 B2 30 A7 54 4C 24 28 31 29 B2 4E 24 3A |N$).0.TL$(1).N$:|
00000110: A0 32 3A 89 31 32 30 00 41 09 50 00 81 49 B2 31 |.2:.120.A.P..I.1|
00000120: A4 C5 28 4E 24 29 3A 84 32 2C 54 4C 24 28 49 AA |..(N$):.2,TL$(I.|
00000130: 31 29 3A 82 3A 54 4C 24 28 31 29 B2 4E 24 3A A0 |1):.:TL$(1).N$:.|
00000140: 32 00 54 09 6E 00 81 49 B2 31 A4 28 C5 28 4E 24 |2.T.n..I.1.(.(N$|
00000150: 29 AA 31 29 00 6F 09 6F 00 8B 54 4C 24 28 49 29 |).1).o.o..TL$(I)|
00000160: B2 22 31 30 34 30 20 D0 47 31 22 A7 32 30 30 00 |."1040 .G1".200.|
00000170: 75 09 70 00 82 00 9C 09 78 00 4E 4D 24 B2 54 4E |u.p.....x.NM$.TN|
00000180: 24 AA 22 31 30 34 30 50 47 31 2E 44 41 54 41 22 |$."1040PG1.DATA"|
00000190: 3A 52 4E B2 33 31 3A 8D 31 30 30 30 00 D3 09 82 |:RN.31:.1000....|
000001A0: 00 4E 25 B2 C5 28 4E 24 29 3A 4E 25 B2 4E 25 AA |.N%..(N$):N%.N%.|
000001B0: 31 3A 54 4C 24 28 4E 25 AA 31 29 B2 22 31 30 34 |1:TL$(N%.1)."104|
000001C0: 30 20 D0 47 31 22 3A 54 4C 24 28 31 29 B2 C4 28 |0 .G1":TL$(1)..(|
000001D0: 4E 25 29 00 FA 09 8C 00 A0 31 35 3A 9F 31 35 2C |N%)......15:.15,|
000001E0: 44 53 2C 31 35 2C 22 53 22 AA 44 50 24 AA 54 4E |DS,15,"S".DP$.TN|
000001F0: 24 AA 22 53 54 41 54 55 53 22 00 21 0A 96 00 9F |$."STATUS".!....|
00000200: 32 2C 44 53 2C 32 2C 44 50 24 AA 54 4E 24 AA 22 |2,DS,2,DP$.TN$."|
00000210: 53 54 41 54 55 53 2C 53 2C 57 22 3A 8D 35 30 30 |STATUS,S,W":.500|
00000220: 30 00 3E 0A A0 00 81 49 B2 31 A4 4E 25 AA 31 3A |0.>....I.1.N%.1:|
00000230: 98 32 2C 54 4C 24 28 49 29 3A 82 3A A0 32 00 7D |.2,TL$(I):.:.2.}|
00000240: 0A C8 00 4E 4D 24 B2 54 4E 24 AA 22 31 30 34 30 |...NM$.TN$."1040|
00000250: 50 47 31 2E 44 41 54 41 22 3A 8D 32 30 30 30 3A |PG1.DATA":.2000:|
00000260: 81 49 B2 31 A4 33 31 3A 52 45 B2 49 3A 4D 24 B2 |.I.1.31:RE.I:M$.|
00000270: 44 24 28 49 29 3A 8D 32 30 32 30 3A 82 00 87 0A |D$(I):.2020:....|
00000280: C9 00 8D 32 30 37 30 00 A2 0A 13 01 50 54 24 B2 |...2070.....PT$.|
00000290: 22 D3 54 41 4E 44 42 59 2E 2E 2E 22 3A 8D 39 30 |".TANDBY...":.90|
000002A0: 30 30 00 C7 0A 2C 01 50 31 B2 C2 28 31 30 32 32 |00...,.P1..(1022|
000002B0: 29 3A 8B 50 31 B2 31 A7 93 22 53 43 48 42 2E 53 |):.P1.1.."SCHB.S|
000002C0: 45 54 55 50 22 2C 38 00 E1 0A 2D 01 8B 50 31 B2 |ETUP",8...-..P1.|
000002D0: 32 A7 93 22 53 43 48 43 2E 53 45 54 55 50 22 2C |2.."SCHC.SETUP",|
000002E0: 38 00 FB 0A 2E 01 8B 50 31 B2 33 A7 93 22 53 43 |8......P1.3.."SC|
000002F0: 48 44 2E 53 45 54 55 50 22 2C 38 00 15 0B 2F 01 |HD.SETUP",8.../.|
00000300: 8B 50 31 B2 34 A7 93 22 53 43 48 46 2E 53 45 54 |.P1.4.."SCHF.SET|
00000310: 55 50 22 2C 38 00 2F 0B 30 01 8B 50 31 B2 35 A7 |UP",8./.0..P1.5.|
00000320: 93 22 32 31 30 36 2E 53 45 54 55 50 22 2C 38 00 |."2106.SETUP",8.|
00000330: 5A 0B 36 01 46 50 24 B2 22 42 4F 4F 54 22 3A 47 |Z.6.FP$."BOOT":G|
00000340: 50 24 B2 22 50 22 3A 44 56 B2 38 3A 52 50 B2 30 |P$."P":DV.8:RP.0|
00000350: 3A 8D 38 30 30 30 3A A0 31 35 00 81 0B 4A 01 50 |:.8000:.15...J.P|
00000360: 54 24 B2 22 D2 45 54 55 52 4E 49 4E 47 20 54 4F |T$.".ETURNING TO|
00000370: 20 4D 41 49 4E 20 4D 45 4E 55 22 3A 8D 39 30 30 | MAIN MENU":.900|
00000380: 30 00 92 0B 68 01 93 22 4D 45 4E 55 22 2C 38 20 |0...h.."MENU",8 |
00000390: 20 20 00 C1 0B F4 01 99 C8 28 22 13 11 11 11 11 | .......(".....|
000003A0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000003B0: 11 11 11 11 22 2C 59 AA 31 29 3B A6 58 29 3B 3A |....",Y.1);.X);:|
000003C0: 8E 00 F3 0B FE 01 54 24 B2 22 B0 C0 C0 C0 C0 C0 |......T$."......|
000003D0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000003E0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000003F0: C0 AE 22 00 25 0C 08 02 42 24 B2 22 AD C0 C0 C0 |..".%...B$."....|
00000400: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000410: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000420: C0 C0 C0 BD 22 00 45 0C 12 02 99 C8 28 54 24 2C |....".E.....(T$,|
00000430: 31 29 3B CA 28 54 24 2C 32 2C 4C 25 29 3B C9 28 |1);.(T$,2,L%);.(|
00000440: 54 24 2C 31 29 00 51 0C 1C 02 81 49 B2 31 A4 57 |T$,1).Q....I.1.W|
00000450: 25 00 6B 0C 26 02 99 A6 58 29 22 DD 22 3B C8 28 |%.k.&...X)".";.(|
00000460: 42 4C 24 2C 4C 25 29 3B 22 DD 22 00 71 0C 30 02 |BL$,L%);".".q.0.|
00000470: 82 00 96 0C 3A 02 99 A6 58 29 C8 28 42 24 2C 31 |....:...X).(B$,1|
00000480: 29 3B CA 28 42 24 2C 32 2C 4C 25 29 3B C9 28 42 |);.(B$,2,L%);.(B|
00000490: 24 2C 31 29 3A 8E 00 9C 0C E8 03 8F 00 BC 0C F2 |$,1):...........|
000004A0: 03 9F 38 2C 44 53 2C 38 2C 44 50 24 AA 4E 4D 24 |..8,DS,8,DP$.NM$|
000004B0: AA 22 2C 4C 2C 22 AA C7 28 32 35 29 00 D7 0C FC |.",L,"..(25)....|
000004C0: 03 52 48 B2 B5 28 52 4E AD 32 35 36 29 3A 52 4C |.RH..(RN.256):RL|
000004D0: B2 52 4E AF 32 35 35 00 01 0D 06 04 98 31 35 2C |.RN.255......15,|
000004E0: 22 50 22 AA C7 28 31 30 34 29 AA C7 28 52 4C 29 |"P"..(104)..(RL)|
000004F0: AA C7 28 52 48 29 AA C7 28 31 29 3A 8D 35 30 30 |..(RH)..(1):.500|
00000500: 30 00 2B 0D 10 04 98 31 35 2C 22 50 22 AA C7 28 |0.+....15,"P"..(|
00000510: 31 30 34 29 AA C7 28 52 4C 29 AA C7 28 52 48 29 |104)..(RL)..(RH)|
00000520: AA C7 28 31 29 3A 8D 35 30 30 30 00 39 0D 1A 04 |..(1):.5000.9...|
00000530: 98 38 2C C7 28 32 35 35 29 00 4E 0D 24 04 8D 35 |.8,.(255).N.$..5|
00000540: 30 30 30 3A A0 38 3A 8D 35 30 30 30 3A 8E 00 54 |000:.8:.5000:..T|
00000550: 0D D0 07 8F 00 6F 0D DA 07 9F 33 2C 44 53 2C 33 |.....o....3,DS,3|
00000560: 2C 44 50 24 AA 4E 4D 24 AA 22 2C 4C 22 3A 8E 00 |,DP$.NM$.",L":..|
00000570: 8A 0D E4 07 52 48 B2 B5 28 52 45 AD 32 35 36 29 |....RH..(RE.256)|
00000580: 3A 52 4C B2 52 45 AF 32 35 35 00 AD 0D EE 07 98 |:RL.RE.255......|
00000590: 31 35 2C 22 50 22 AA C7 28 39 39 29 AA C7 28 52 |15,"P"..(99)..(R|
000005A0: 4C 29 AA C7 28 52 48 29 AA C7 28 31 29 00 CE 0D |L)..(RH)..(1)...|
000005B0: F8 07 8D 35 30 30 30 3A 8B 45 4E B2 35 30 A7 98 |...5000:.EN.50..|
000005C0: 33 2C C7 28 32 35 35 29 3A 8D 35 30 30 30 00 F1 |3,.(255):.5000..|
000005D0: 0D 02 08 98 31 35 2C 22 50 22 AA C7 28 39 39 29 |....15,"P"..(99)|
000005E0: AA C7 28 52 4C 29 AA C7 28 52 48 29 AA C7 28 31 |..(RL)..(RH)..(1|
000005F0: 29 00 09 0E 0C 08 8D 35 30 30 30 3A 98 33 2C 4D |)......5000:.3,M|
00000600: 24 3A 8D 35 30 30 30 3A 8E 00 12 0E 16 08 A0 33 |$:.5000:.......3|
00000610: 3A 8E 00 27 0E 88 13 84 31 35 2C 45 4E 2C 45 4D |:..'....15,EN,EM|
00000620: 24 2C 45 54 2C 45 53 00 3A 0E 92 13 8B 45 4E B3 |$,ET,ES.:....EN.|
00000630: 32 30 B0 45 4E B2 35 30 A7 8E 00 6C 0E 9C 13 9E |20.EN.50...l....|
00000640: 4C 32 3A 58 B2 36 3A 59 B2 39 3A 8D 35 30 30 3A |L2:X.6:Y.9:.500:|
00000650: 99 22 20 20 20 22 3B 45 4D 24 AA C8 28 42 4C 24 |." ";EM$..(BL$|
00000660: 2C 32 31 AB C3 28 45 4D 24 29 29 3B 00 9C 0E A6 |,21..(EM$));....|
00000670: 13 59 B2 31 30 3A 8D 35 30 30 3A 99 22 20 20 20 |.Y.10:.500:." |
00000680: 20 28 D2 29 45 54 52 59 20 20 20 28 CD 29 41 49 | (.)ETRY (.)AI|
00000690: 4E 20 4D 45 4E 55 20 20 20 20 22 3B 00 B0 0E B0 |N MENU ";....|
000006A0: 13 A1 43 24 3A 8B 43 24 B2 22 22 A7 35 30 34 30 |..C$:.C$."".5040|
000006B0: 00 CC 0E BA 13 8B 43 24 B2 22 52 22 A7 A0 32 3A |......C$."R"..2:|
000006C0: A0 33 3A A0 38 3A A0 31 35 3A 89 31 00 DE 0E BF |.3:.8:.15:.1....|
000006D0: 13 8B 43 24 B3 B1 22 4D 22 A7 35 30 34 30 00 15 |..C$.."M".5040..|
000006E0: 0F C4 13 8B 43 24 B2 22 4D 22 A7 97 31 30 32 31 |....C$."M"..1021|
000006F0: 2C 31 3A 46 50 24 B2 22 42 4F 4F 54 22 3A 47 50 |,1:FP$."BOOT":GP|
00000700: 24 B2 22 50 22 3A 44 56 B2 38 3A 52 50 B2 30 3A |$."P":DV.8:RP.0:|
00000710: 8D 38 30 30 30 00 2E 0F CE 13 A0 31 35 3A 9E 4C |.8000......15:.L|
00000720: 33 3A 93 22 4D 45 4E 55 22 2C 38 20 20 20 00 4B |3:."MENU",8 .K|
00000730: 0F 40 1F 9F 32 2C 44 56 2C 32 2C 46 50 24 AA 22 |.@..2,DV,2,FP$."|
00000740: 2C 22 AA 47 50 24 AA 22 2C 52 22 00 5E 0F 4A 1F |,".GP$.",R".^.J.|
00000750: 9F 31 2C 44 56 2C 31 35 3A 84 31 2C 45 4E 00 68 |.1,DV,15:.1,EN.h|
00000760: 0F 54 1F A0 32 3A A0 31 00 75 0F 5E 1F 8B 45 4E |.T..2:.1.u.^..EN|
00000770: B3 32 30 A7 8E 00 9A 0F 08 20 9E 4C 32 3A 58 B2 |.20...... .L2:X.|
00000780: 34 3A 59 B2 37 3A 8D 35 30 30 3A 4C 25 B2 33 31 |4:Y.7:.500:L%.31|
00000790: 3A 57 25 B2 34 3A 8D 35 31 30 00 D2 0F 12 20 8B |:W%.4:.510.... .|
000007A0: 52 50 B2 30 A7 58 B2 37 3A 59 B2 39 3A 8D 35 30 |RP.0.X.7:Y.9:.50|
000007B0: 30 3A 99 22 C9 4E 53 45 52 54 20 50 52 4F 47 52 |0:.".NSERT PROGR|
000007C0: 41 4D 20 44 49 53 4B 20 2D 20 53 49 44 45 20 31 |AM DISK - SIDE 1|
000007D0: 22 3B 00 0E 10 13 20 8B 52 50 B3 B1 30 A7 58 B2 |";.... .RP..0.X.|
000007E0: 31 31 3A 59 B2 39 3A 8D 35 30 30 3A 99 22 C9 4E |11:Y.9:.500:.".N|
000007F0: 53 45 52 54 20 44 41 54 41 20 44 49 53 4B 22 3A |SERT DATA DISK":|
00000800: 58 B2 31 30 3A 59 B2 31 30 3A 8D 35 30 30 00 37 |X.10:Y.10:.500.7|
00000810: 10 1C 20 58 B2 31 30 3A 59 B2 58 3A 8D 35 30 30 |.. X.10:Y.X:.500|
00000820: 3A 99 22 D0 52 45 53 53 20 C3 20 54 4F 20 C3 4F |:.".RESS . TO .O|
00000830: 4E 54 49 4E 55 45 22 00 4D 10 26 20 A1 43 24 3A |NTINUE".M.& .C$:|
00000840: 8B 43 24 B3 B1 22 43 22 A7 38 32 33 30 00 5B 10 |.C$.."C".8230.[.|
00000850: 44 20 9E 4C 33 3A 89 38 30 30 30 00 8F 10 28 23 |D .L3:.8000...(#|
00000860: 9E 4C 31 3A 59 B2 37 3A 58 B2 B5 28 28 34 30 AB |.L1:Y.7:X..((40.|
00000870: 28 C3 28 50 54 24 29 AA 32 29 29 AD 32 29 3A 57 |(.(PT$).2)).2):W|
00000880: 25 B2 33 3A 4C 25 B2 C3 28 50 54 24 29 AA 32 00 |%.3:L%..(PT$).2.|
00000890: 9D 10 2A 23 8D 35 30 30 3A 8D 35 31 30 00 B7 10 |..*#.500:.510...|
000008A0: 2B 23 58 B2 58 AA 32 3A 59 B2 39 3A 8D 35 30 30 |+#X.X.2:Y.9:.500|
000008B0: 3A 99 50 54 24 3A 8E 00 00 00 |:.PT$:.... |
..1....15,DS,15:D(31).E(D$(1)).E(D$(7)).
E(D$(13)).Q....D(31).0.D$(31).D(D(31)):.
5.J...D$(31).J(D(D(31)),2).....BL$."
".K.
..FP$."CONFIG.SYS":GP$."S":DV.DS:RP.1:.8
000...<..2,DS,2,DP$.TN$."STATUS,S,R":.50
00:.2,N$...F..E(N$).0.TL$(1).N$: 2:.120.
A.P..I.1.E(N$):.2,TL$(I.1):.:TL$(1).N$:
2.T.N..I.1.(E(N$).1).O.O..TL$(I)."1040 P
G1".200.U.P.....X.NM$.TN$."1040PG1.DATA"
:RN.31:.1000.S...N%.E(N$):N%.N%.1:TL$(N%
.1)."1040 PG1":TL$(1).D(N%)..... 15:.15,
DS,15,"S".DP$.TN$."STATUS".!....2,DS,2,D
P$.TN$."STATUS,S,W":.5000.>. ..I.1.N%.1:
.2,TL$(I):.: 2.}.H.NM$.TN$."1040PG1.DATA
":.2000:.I.1.31:RE.I:M$.D$(I):.2020:....
I..2070.....PT$."STANDBY...":.9000.G.,.P
1.B(1022):.P1.1.."SCHB.SETUP",8...-..P1.
2.."SCHC.SETUP",8......P1.3.."SCHD.SETUP
",8.../..P1.4.."SCHF.SETUP",8./.0..P1.5.
."2106.SETUP",8.Z.6.FP$."BOOT":GP$."P":D
V.8:RP.0:.8000: 15...J.PT$."RETURNING TO
MAIN MENU":.9000...H.."MENU",8 .A....
H(".........................",Y.1);.X);:
......T$."..............................
..........".%...B$."....................
....................".E....H(T$,1);J(T$,
2,L%);I(T$,1).Q....I.1.W%.K.&...X)".";H(
BL$,L%);".".Q.0.....:...X)H(B$,1);J(B$,2
,L%);I(B$,1):.............8,DS,8,DP$.NM$
.",L,".G(25).W...RH..(RN.256):RL.RN.255.
.....15,"P".G(104).G(RL).G(RH).G(1):.500
0.+....15,"P".G(104).G(RL).G(RH).G(1):.5
000.9....8,G(255).N.$..5000: 8:.5000:..T
.P...O.Z..3,DS,3,DP$.NM$.",L":......RH..
(RE.256):RL.RE.255......15,"P".G(99).G(R
L).G(RH).G(1).N....5000:.EN.50..3,G(255)
:.5000......15,"P".G(99).G(RL).G(RH).G(1
)......5000:.3,M$:.5000:...... 3:..'....
15,EN,EM$,ET,ES.:....EN.20.EN.50...L....
L2:X.6:Y.9:.500:." ";EM$.H(BL$,21.C(EM
$));.....Y.10:.500:." (R)ETRY (M)AI
N MENU ";......C$:.C$."".5040.L....C$
."R". 2: 3: 8: 15:.1......C$.."M".5040..
.D..C$."M"..1021,1:FP$."BOOT":GP$."P":DV
.8:RP.0:.8000...N. 15:.L3:."MENU",8 .K
.@..2,DV,2,FP$.",".GP$.",R".^.J..1,DV,15
:.1,EN.H.T. 2: 1.U.^..EN.20...... .L2:X.
4:Y.7:.500:L%.31:W%.4:.510.R.. .RP.0.X.7
:Y.9:.500:."INSERT PROGRAM DISK - SIDE 1
";.... .RP..0.X.11:Y.9:.500:."INSERT DAT
A DISK":X.10:Y.10:.500.7.. X.10:Y.X:.500
:."PRESS C TO CONTINUE".M.& .C$:.C$.."C"
.8230.[.D .L3:.8000...(#.L1:Y.7:X..((40.
(C(PT$).2)).2):W%.3:L%.C(PT$).2...*#.500
:.510...+#X.X.2:Y.9:.500:.PT$:....
> CLICK IMAGE PREVIEW FOR FULL MODAL