1040A.SAVE
FILE INFORMATION
FILENAME(S): 1040A.SAVE
FILE TYPE(S): PRG
FILE SIZE: 2.1K
FIRST SEEN: 2025-11-30 18:12:46
APPEARS ON: 1 disk(s)
FILE HASH
f700e6abd7afcd9dccb98a508e0ccfc2e18d10f7fc7e0198c10392846b27620b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SWIFTAX SIDE 2 | 1040A.SAVE | PRG | Sailor, Ganheden | 31 | 15 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 36 08 00 00 8F 4F 50 45 4E 31 2C 38 2C 31 |..6....OPEN1,8,1|
00000010: 35 2C 22 53 30 3A 31 30 34 30 41 2E 53 41 56 45 |5,"S0:1040A.SAVE|
00000020: 22 3A 53 41 56 45 22 30 3A 31 30 34 30 41 2E 53 |":SAVE"0:1040A.S|
00000030: 41 56 45 22 2C 38 00 44 08 01 00 9F 31 35 2C 44 |AVE",8.D....15,D|
00000040: 53 2C 31 35 00 77 08 05 00 42 4C 24 B2 22 20 20 |S,15.w...BL$." |
00000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000070: 20 20 20 20 20 20 22 00 A5 08 0F 00 46 50 24 B2 | ".....FP$.|
00000080: 22 43 4F 4E 46 49 47 2E 53 59 53 22 3A 47 50 24 |"CONFIG.SYS":GP$|
00000090: B2 22 53 22 3A 44 56 B2 44 53 3A 52 50 B2 31 3A |."S":DV.DS:RP.1:|
000000A0: 8D 38 30 30 30 00 D2 08 3C 00 9F 32 2C 44 53 2C |.8000...<..2,DS,|
000000B0: 32 2C 44 50 24 AA 54 4E 24 AA 22 53 54 41 54 55 |2,DP$.TN$."STATU|
000000C0: 53 2C 53 2C 52 22 3A 8D 35 30 30 30 3A 84 32 2C |S,S,R":.5000:.2,|
000000D0: 4E 24 00 F1 08 46 00 8B C5 28 4E 24 29 B2 30 A7 |N$...F...(N$).0.|
000000E0: 54 4C 24 28 31 29 B2 4E 24 3A A0 32 3A 89 31 32 |TL$(1).N$:.2:.12|
000000F0: 30 00 1B 09 50 00 81 49 B2 31 A4 C5 28 4E 24 29 |0...P..I.1..(N$)|
00000100: 3A 84 32 2C 54 4C 24 28 49 AA 31 29 3A 82 3A 54 |:.2,TL$(I.1):.:T|
00000110: 4C 24 28 31 29 B2 4E 24 3A A0 32 00 2E 09 6E 00 |L$(1).N$:.2...n.|
00000120: 81 49 B2 31 A4 28 C5 28 4E 24 29 AA 31 29 00 46 |.I.1.(.(N$).1).F|
00000130: 09 6F 00 8B 54 4C 24 28 49 29 B2 22 31 30 34 30 |.o..TL$(I)."1040|
00000140: C1 22 A7 32 30 30 00 4C 09 70 00 82 00 71 09 78 |.".200.L.p...q.x|
00000150: 00 4E 4D 24 B2 54 4E 24 AA 22 31 30 34 30 41 2E |.NM$.TN$."1040A.|
00000160: 44 41 54 41 22 3A 52 4E B2 33 35 3A 8D 31 30 30 |DATA":RN.35:.100|
00000170: 30 00 A5 09 82 00 4E 25 B2 C5 28 4E 24 29 3A 4E |0.....N%..(N$):N|
00000180: 25 B2 4E 25 AA 31 3A 54 4C 24 28 4E 25 AA 31 29 |%.N%.1:TL$(N%.1)|
00000190: B2 22 31 30 34 30 C1 22 3A 54 4C 24 28 31 29 B2 |."1040.":TL$(1).|
000001A0: C4 28 4E 25 29 00 CC 09 8C 00 A0 31 35 3A 9F 31 |.(N%)......15:.1|
000001B0: 35 2C 44 53 2C 31 35 2C 22 53 22 AA 44 50 24 AA |5,DS,15,"S".DP$.|
000001C0: 54 4E 24 AA 22 53 54 41 54 55 53 22 00 F3 09 96 |TN$."STATUS"....|
000001D0: 00 9F 32 2C 44 53 2C 32 2C 44 50 24 AA 54 4E 24 |..2,DS,2,DP$.TN$|
000001E0: AA 22 53 54 41 54 55 53 2C 53 2C 57 22 3A 8D 35 |."STATUS,S,W":.5|
000001F0: 30 30 30 00 10 0A A0 00 81 49 B2 31 A4 4E 25 AA |000......I.1.N%.|
00000200: 31 3A 98 32 2C 54 4C 24 28 49 29 3A 82 3A A0 32 |1:.2,TL$(I):.:.2|
00000210: 00 4D 0A C8 00 4E 4D 24 B2 54 4E 24 AA 22 31 30 |.M...NM$.TN$."10|
00000220: 34 30 41 2E 44 41 54 41 22 3A 8D 32 30 30 30 3A |40A.DATA":.2000:|
00000230: 81 49 B2 31 A4 33 35 3A 52 45 B2 49 3A 4D 24 B2 |.I.1.35:RE.I:M$.|
00000240: 44 24 28 49 29 3A 8D 32 30 32 30 3A 82 00 57 0A |D$(I):.2020:..W.|
00000250: C9 00 8D 32 30 37 30 00 72 0A 13 01 50 54 24 B2 |...2070.r...PT$.|
00000260: 22 D3 54 41 4E 44 42 59 2E 2E 2E 22 3A 8D 39 30 |".TANDBY...":.90|
00000270: 30 30 00 B1 0A 2C 01 8B C2 28 31 30 32 32 29 B2 |00...,...(1022).|
00000280: 32 A7 46 50 24 B2 22 53 43 48 31 2E 53 45 54 55 |2.FP$."SCH1.SETU|
00000290: 50 22 3A 47 50 24 B2 22 50 22 3A 44 56 B2 38 3A |P":GP$."P":DV.8:|
000002A0: 52 50 B2 30 3A 8D 38 30 30 30 3A 93 46 50 24 2C |RP.0:.8000:.FP$,|
000002B0: 38 00 D8 0A 36 01 46 50 24 B2 22 42 4F 4F 54 22 |8...6.FP$."BOOT"|
000002C0: 3A 47 50 24 B2 22 50 22 3A 44 56 B2 38 3A 52 50 |:GP$."P":DV.8:RP|
000002D0: B2 30 3A 8D 38 30 30 30 00 F7 0A 54 01 8B C2 28 |.0:.8000...T...(|
000002E0: 31 30 32 32 29 B2 31 A7 93 22 38 36 31 35 2E 53 |1022).1.."8615.S|
000002F0: 45 54 55 50 22 2C 38 00 1E 0B 59 01 50 54 24 B2 |ETUP",8...Y.PT$.|
00000300: 22 D2 45 54 55 52 4E 49 4E 47 20 54 4F 20 4D 41 |".ETURNING TO MA|
00000310: 49 4E 20 4D 45 4E 55 22 3A 8D 39 30 30 30 00 34 |IN MENU":.9000.4|
00000320: 0B 5E 01 97 31 30 32 32 2C 30 3A 93 22 4D 45 4E |.^..1022,0:."MEN|
00000330: 55 22 2C 38 00 63 0B F4 01 99 C8 28 22 13 11 11 |U",8.c.....("...|
00000340: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000350: 11 11 11 11 11 11 22 2C 59 AA 31 29 3B A6 58 29 |......",Y.1);.X)|
00000360: 3B 3A 8E 00 94 0B FE 01 46 54 24 B2 22 C0 C0 C0 |;:......FT$."...|
00000370: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000380: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000390: C0 C0 C0 22 00 A7 0B 03 02 54 24 B2 22 B0 22 AA |...".....T$.".".|
000003A0: 46 54 24 AA 22 AE 22 00 BA 0B 08 02 42 24 B2 22 |FT$.".".....B$."|
000003B0: AD 22 AA 46 54 24 AA 22 BD 22 00 DA 0B 12 02 99 |.".FT$."."......|
000003C0: C8 28 54 24 2C 31 29 3B CA 28 54 24 2C 32 2C 4C |.(T$,1);.(T$,2,L|
000003D0: 25 29 3B C9 28 54 24 2C 31 29 00 E6 0B 1C 02 81 |%);.(T$,1)......|
000003E0: 49 B2 31 A4 57 25 00 00 0C 26 02 99 A6 58 29 22 |I.1.W%...&...X)"|
000003F0: DD 22 3B C8 28 42 4C 24 2C 4C 25 29 3B 22 DD 22 |.";.(BL$,L%);"."|
00000400: 00 06 0C 30 02 82 00 2B 0C 3A 02 99 A6 58 29 C8 |...0...+.:...X).|
00000410: 28 42 24 2C 31 29 3B CA 28 42 24 2C 32 2C 4C 25 |(B$,1);.(B$,2,L%|
00000420: 29 3B C9 28 42 24 2C 31 29 3A 8E 00 31 0C E8 03 |);.(B$,1):..1...|
00000430: 8F 00 51 0C F2 03 9F 38 2C 44 53 2C 38 2C 44 50 |..Q....8,DS,8,DP|
00000440: 24 AA 4E 4D 24 AA 22 2C 4C 2C 22 AA C7 28 32 35 |$.NM$.",L,"..(25|
00000450: 29 00 6C 0C FC 03 52 48 B2 B5 28 52 4E AD 32 35 |).l...RH..(RN.25|
00000460: 36 29 3A 52 4C B2 52 4E AF 32 35 35 00 96 0C 06 |6):RL.RN.255....|
00000470: 04 98 31 35 2C 22 50 22 AA C7 28 31 30 34 29 AA |..15,"P"..(104).|
00000480: C7 28 52 4C 29 AA C7 28 52 48 29 AA C7 28 31 29 |.(RL)..(RH)..(1)|
00000490: 3A 8D 35 30 30 30 00 C0 0C 10 04 98 31 35 2C 22 |:.5000......15,"|
000004A0: 50 22 AA C7 28 31 30 34 29 AA C7 28 52 4C 29 AA |P"..(104)..(RL).|
000004B0: C7 28 52 48 29 AA C7 28 31 29 3A 8D 35 30 30 30 |.(RH)..(1):.5000|
000004C0: 00 CE 0C 1A 04 98 38 2C C7 28 32 35 35 29 00 E3 |......8,.(255)..|
000004D0: 0C 24 04 8D 35 30 30 30 3A A0 38 3A 8D 35 30 30 |.$..5000:.8:.500|
000004E0: 30 3A 8E 00 E9 0C D0 07 8F 00 04 0D DA 07 9F 33 |0:.............3|
000004F0: 2C 44 53 2C 33 2C 44 50 24 AA 4E 4D 24 AA 22 2C |,DS,3,DP$.NM$.",|
00000500: 4C 22 3A 8E 00 1F 0D E4 07 52 48 B2 B5 28 52 45 |L":......RH..(RE|
00000510: AD 32 35 36 29 3A 52 4C B2 52 45 AF 32 35 35 00 |.256):RL.RE.255.|
00000520: 42 0D EE 07 98 31 35 2C 22 50 22 AA C7 28 39 39 |B....15,"P"..(99|
00000530: 29 AA C7 28 52 4C 29 AA C7 28 52 48 29 AA C7 28 |)..(RL)..(RH)..(|
00000540: 31 29 00 63 0D F8 07 8D 35 30 30 30 3A 8B 45 4E |1).c....5000:.EN|
00000550: B2 35 30 A7 98 33 2C C7 28 32 35 35 29 3A 8D 35 |.50..3,.(255):.5|
00000560: 30 30 30 00 86 0D 02 08 98 31 35 2C 22 50 22 AA |000......15,"P".|
00000570: C7 28 39 39 29 AA C7 28 52 4C 29 AA C7 28 52 48 |.(99)..(RL)..(RH|
00000580: 29 AA C7 28 31 29 00 9E 0D 0C 08 8D 35 30 30 30 |)..(1)......5000|
00000590: 3A 98 33 2C 4D 24 3A 8D 35 30 30 30 3A 8E 00 A7 |:.3,M$:.5000:...|
000005A0: 0D 16 08 A0 33 3A 8E 00 BC 0D 88 13 84 31 35 2C |....3:.......15,|
000005B0: 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 00 CF 0D 92 |EN,EM$,ET,ES....|
000005C0: 13 8B 45 4E B3 32 30 B0 45 4E B2 35 30 A7 8E 00 |..EN.20.EN.50...|
000005D0: FD 0D 9C 13 58 B2 36 3A 59 B2 39 3A 8D 35 30 30 |....X.6:Y.9:.500|
000005E0: 3A 99 22 20 20 20 22 3B 45 4D 24 AA C8 28 42 4C |:." ";EM$..(BL|
000005F0: 24 2C 32 31 AB C3 28 45 4D 24 29 29 3B 00 2D 0E |$,21..(EM$));.-.|
00000600: A6 13 59 B2 31 30 3A 8D 35 30 30 3A 99 22 20 20 |..Y.10:.500:." |
00000610: 20 20 28 D2 29 45 54 52 59 20 20 20 28 CD 29 41 | (.)ETRY (.)A|
00000620: 49 4E 20 4D 45 4E 55 20 20 20 20 22 3B 00 41 0E |IN MENU ";.A.|
00000630: B0 13 A1 43 24 3A 8B 43 24 B2 22 22 A7 35 30 34 |...C$:.C$."".504|
00000640: 30 00 61 0E BA 13 8B 43 24 B2 22 52 22 A7 A0 32 |0.a....C$."R"..2|
00000650: 3A A0 33 3A A0 38 3A A0 31 35 3A 9E 4C 33 3A 89 |:.3:.8:.15:.L3:.|
00000660: 31 00 73 0E BF 13 8B 43 24 B3 B1 22 4D 22 A7 35 |1.s....C$.."M".5|
00000670: 30 34 30 00 AD 0E C4 13 8B 43 24 B2 22 4D 22 A7 |040......C$."M".|
00000680: 97 31 30 32 31 2C 31 3A 46 50 24 B2 22 4D 45 4E |.1021,1:FP$."MEN|
00000690: 55 22 3A 47 50 24 B2 22 50 22 3A 44 56 B2 38 3A |U":GP$."P":DV.8:|
000006A0: 52 50 B2 30 3A 8D 38 30 30 30 20 20 20 00 C6 0E |RP.0:.8000 ...|
000006B0: CE 13 A0 31 35 3A 9E 4C 33 3A 93 22 4D 45 4E 55 |...15:.L3:."MENU|
000006C0: 22 2C 38 20 20 20 00 E3 0E 40 1F 9F 32 2C 44 56 |",8 ...@..2,DV|
000006D0: 2C 32 2C 46 50 24 AA 22 2C 22 AA 47 50 24 AA 22 |,2,FP$.",".GP$."|
000006E0: 2C 52 22 00 F6 0E 4A 1F 9F 31 2C 44 56 2C 31 35 |,R"...J..1,DV,15|
000006F0: 3A 84 31 2C 45 4E 00 00 0F 54 1F A0 32 3A A0 31 |:.1,EN...T..2:.1|
00000700: 00 0D 0F 5E 1F 8B 45 4E B3 32 30 A7 8E 00 32 0F |...^..EN.20...2.|
00000710: 08 20 9E 4C 32 3A 58 B2 34 3A 59 B2 37 3A 8D 35 |. .L2:X.4:Y.7:.5|
00000720: 30 30 3A 4C 25 B2 33 31 3A 57 25 B2 34 3A 8D 35 |00:L%.31:W%.4:.5|
00000730: 31 30 00 6A 0F 12 20 8B 52 50 B2 30 A7 58 B2 37 |10.j.. .RP.0.X.7|
00000740: 3A 59 B2 39 3A 8D 35 30 30 3A 99 22 C9 4E 53 45 |:Y.9:.500:.".NSE|
00000750: 52 54 20 50 52 4F 47 52 41 4D 20 44 49 53 4B 20 |RT PROGRAM DISK |
00000760: 2D 20 53 49 44 45 20 31 22 3B 00 A6 0F 13 20 8B |- SIDE 1";.... .|
00000770: 52 50 B3 B1 30 A7 58 B2 31 31 3A 59 B2 39 3A 8D |RP..0.X.11:Y.9:.|
00000780: 35 30 30 3A 99 22 C9 4E 53 45 52 54 20 44 41 54 |500:.".NSERT DAT|
00000790: 41 20 44 49 53 4B 22 3A 58 B2 31 30 3A 59 B2 31 |A DISK":X.10:Y.1|
000007A0: 30 3A 8D 35 30 30 00 CF 0F 1C 20 58 B2 31 30 3A |0:.500.... X.10:|
000007B0: 59 B2 58 3A 8D 35 30 30 3A 99 22 D0 52 45 53 53 |Y.X:.500:.".RESS|
000007C0: 20 C3 20 54 4F 20 C3 4F 4E 54 49 4E 55 45 22 00 | . TO .ONTINUE".|
000007D0: E5 0F 26 20 A1 43 24 3A 8B 43 24 B3 B1 22 43 22 |..& .C$:.C$.."C"|
000007E0: A7 38 32 33 30 00 F3 0F 44 20 9E 4C 33 3A 89 38 |.8230...D .L3:.8|
000007F0: 30 30 30 00 27 10 28 23 9E 4C 31 3A 59 B2 37 3A |000.'.(#.L1:Y.7:|
00000800: 58 B2 B5 28 28 34 30 AB 28 C3 28 50 54 24 29 AA |X..((40.(.(PT$).|
00000810: 32 29 29 AD 32 29 3A 57 25 B2 33 3A 4C 25 B2 C3 |2)).2):W%.3:L%..|
00000820: 28 50 54 24 29 AA 32 00 35 10 2A 23 8D 35 30 30 |(PT$).2.5.*#.500|
00000830: 3A 8D 35 31 30 00 4F 10 2B 23 58 B2 58 AA 32 3A |:.510.O.+#X.X.2:|
00000840: 59 B2 39 3A 8D 35 30 30 3A 99 50 54 24 3A 8E 00 |Y.9:.500:.PT$:..|
00000850: 00 00 |.. |
..6....OPEN1,8,15,"S0:1040A.SAVE":SAVE"0
:1040A.SAVE",8.D....15,DS,15.W...BL$."
".
....FP$."CONFIG.SYS":GP$."S":DV.DS:RP.1:
.8000.R.<..2,DS,2,DP$.TN$."STATUS,S,R":.
5000:.2,N$...F..E(N$).0.TL$(1).N$: 2:.12
0...P..I.1.E(N$):.2,TL$(I.1):.:TL$(1).N$
: 2...N..I.1.(E(N$).1).F.O..TL$(I)."1040
A".200.L.P...Q.X.NM$.TN$."1040A.DATA":RN
.35:.1000.....N%.E(N$):N%.N%.1:TL$(N%.1)
."1040A":TL$(1).D(N%).L... 15:.15,DS,15,
"S".DP$.TN$."STATUS"......2,DS,2,DP$.TN$
."STATUS,S,W":.5000... ..I.1.N%.1:.2,TL$
(I):.: 2.M.H.NM$.TN$."1040A.DATA":.2000:
.I.1.35:RE.I:M$.D$(I):.2020:..W.I..2070.
R...PT$."STANDBY...":.9000...,..B(1022).
2.FP$."SCH1.SETUP":GP$."P":DV.8:RP.0:.80
00:.FP$,8.X.6.FP$."BOOT":GP$."P":DV.8:RP
.0:.8000...T..B(1022).1.."8615.SETUP",8.
..Y.PT$."RETURNING TO MAIN MENU":.9000.4
.^..1022,0:."MENU",8.C....H("...........
..............",Y.1);.X);:......FT$."...
..................................."....
.T$.".".FT$.".".....B$.".".FT$.".".Z....
H(T$,1);J(T$,2,L%);I(T$,1)......I.1.W%..
.&...X)".";H(BL$,L%);"."...0...+.:...X)H
(B$,1);J(B$,2,L%);I(B$,1):..1.....Q....8
,DS,8,DP$.NM$.",L,".G(25).L...RH..(RN.25
6):RL.RN.255......15,"P".G(104).G(RL).G(
RH).G(1):.5000......15,"P".G(104).G(RL).
G(RH).G(1):.5000.N....8,G(255)...$..5000
: 8:.5000:....P.....Z..3,DS,3,DP$.NM$.",
L":......RH..(RE.256):RL.RE.255.B....15,
"P".G(99).G(RL).G(RH).G(1).C....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.O....EN.20.
EN.50.......X.6:Y.9:.500:." ";EM$.H(BL
$,21.C(EM$));.-...Y.10:.500:." (R)ETR
Y (M)AIN MENU ";.A....C$:.C$."".504
0.A....C$."R". 2: 3: 8: 15:.L3:.1.S....C
$.."M".5040...D..C$."M"..1021,1:FP$."MEN
U":GP$."P":DV.8:RP.0:.8000 .F.N. 15:.L
3:."MENU",8 ...@..2,DV,2,FP$.",".GP$."
,R"...J..1,DV,15:.1,EN...T. 2: 1...^..EN
.20...2.. .L2:X.4:Y.7:.500:L%.31:W%.4:.5
10.J.. .RP.0.X.7:Y.9:.500:."INSERT PROGR
AM DISK - SIDE 1";.... .RP..0.X.11:Y.9:.
500:."INSERT DATA DISK":X.10:Y.10:.500.O
.. X.10:Y.X:.500:."PRESS C TO CONTINUE".
..& .C$:.C$.."C".8230...D .L3:.8000.'.(#
.L1:Y.7:X..((40.(C(PT$).2)).2):W%.3:L%.C
(PT$).2.5.*#.500:.510.O.+#X.X.2:Y.9:.500
:.PT$:....
> CLICK IMAGE PREVIEW FOR FULL MODAL