TWO PASS 1
FILE INFORMATION
FILENAME(S): TWO PASS 1
FILE TYPE(S): PRG
FILE SIZE: 1.6K
FIRST SEEN: 2025-11-30 21:12:52
APPEARS ON: 1 disk(s)
FILE HASH
295387d9a037c4ce567f63b446551074577245fee814fa51f1e76c293f095da2
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CBM 64 2 | TWO PASS 1 | PRG | DuncanTwain | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1B 08 64 00 54 24 B2 C7 28 31 33 37 29 3A |....d.T$..(137):|
00000010: 8F 20 53 45 54 2F 52 45 53 45 54 00 28 08 6E 00 |. SET/RESET.(.n.|
00000020: 51 24 B2 C7 28 33 34 29 00 37 08 78 00 86 4C 24 |Q$..(34).7.x..L$|
00000030: 28 35 30 30 2C 34 29 00 4F 08 82 00 4D 58 B2 30 |(500,4).O...MX.0|
00000040: 3A 8F 20 4C 49 4E 45 20 43 4F 55 4E 54 45 52 00 |:. LINE COUNTER.|
00000050: 58 08 8C 00 99 22 93 22 00 6D 08 96 00 8F 20 43 |X....".".m.... C|
00000060: 4C 45 41 52 20 4F 4C 44 20 54 41 42 53 00 78 08 |LEAR OLD TABS.x.|
00000070: A0 00 99 C7 28 39 29 3B 00 90 08 AA 00 8B B9 28 |....(9);.......(|
00000080: 30 29 B3 B1 37 39 A7 99 54 24 3B 3A 89 31 36 30 |0)..79..T$;:.160|
00000090: 00 96 08 B4 00 99 00 A9 08 BE 00 8F 20 53 45 54 |............ SET|
000000A0: 20 4E 45 57 20 54 41 42 53 00 CD 08 C8 00 99 A3 | NEW TABS.......|
000000B0: 36 29 3B 54 24 3B A3 31 36 29 3B 54 24 3B A3 32 |6);T$;.16);T$;.2|
000000C0: 30 29 3B 54 24 3B A3 34 31 29 3B 54 24 00 F2 08 |0);T$;.41);T$...|
000000D0: D2 00 99 22 93 22 3B 22 43 4F 4D 4D 41 4E 44 53 |...".";"COMMANDS|
000000E0: 20 41 56 41 49 4C 41 42 4C 45 3A 20 20 4C 49 53 | AVAILABLE: LIS|
000000F0: 54 22 00 14 09 DC 00 99 22 20 20 20 20 20 20 20 |T"......" |
00000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 | E|
00000110: 58 49 54 22 00 36 09 E6 00 99 22 20 20 20 20 20 |XIT".6...." |
00000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000130: 20 53 41 56 45 22 00 58 09 F0 00 99 22 20 20 20 | SAVE".X...." |
00000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000150: 20 20 20 4C 4F 41 44 22 00 5E 09 FA 00 99 00 83 | LOAD".^......|
00000160: 09 04 01 99 22 45 4E 54 45 52 20 54 48 45 53 45 |...."ENTER THESE|
00000170: 20 41 53 20 53 45 50 45 52 41 54 45 20 4C 49 4E | AS SEPERATE LIN|
00000180: 45 53 22 00 89 09 0E 01 99 00 C1 09 18 01 99 C7 |ES".............|
00000190: 28 39 29 3B 22 4C 41 42 45 4C 22 3B C7 28 39 29 |(9);"LABEL";.(9)|
000001A0: 3B 22 4D 4E 2E 22 3B C7 28 39 29 3B 22 4F 50 45 |;"MN.";.(9);"OPE|
000001B0: 52 41 4E 44 22 3B C7 28 39 29 3B 22 43 4F 4D 2E |RAND";.(9);"COM.|
000001C0: 22 00 C7 09 22 01 99 00 E6 09 2C 01 99 C7 28 31 |"...".....,...(1|
000001D0: 35 29 3A 8F 20 53 45 54 20 53 43 52 4F 4C 4C 49 |5):. SET SCROLLI|
000001E0: 4E 47 20 57 49 4E 00 EC 09 36 01 8F 00 07 0A 40 |NG WIN...6.....@|
000001F0: 01 97 31 35 38 2C 32 3A 97 36 32 33 2C 33 34 3A |..158,2:.623,34:|
00000200: 97 36 32 34 2C 32 37 00 19 0A 4A 01 9F 31 2C 30 |.624,27...J..1,0|
00000210: 3A 84 31 2C 41 24 3A A0 31 00 28 0A 54 01 8B 41 |:.1,A$:.1.(.T..A|
00000220: 24 B2 22 22 A7 33 32 30 00 2E 0A 5E 01 8F 00 3D |$."".320...^...=|
00000230: 0A 68 01 43 24 B2 C8 28 41 24 2C 34 29 00 50 0A |.h.C$..(A$,4).P.|
00000240: 72 01 8B 43 24 B2 22 4C 49 53 54 22 A7 35 31 30 |r..C$."LIST".510|
00000250: 00 63 0A 7C 01 8B 43 24 B2 22 45 58 49 54 22 A7 |.c.|..C$."EXIT".|
00000260: 36 30 30 00 76 0A 86 01 8B 43 24 B2 22 53 41 56 |600.v....C$."SAV|
00000270: 45 22 A7 36 33 30 00 89 0A 90 01 8B 43 24 B2 22 |E".630......C$."|
00000280: 4C 4F 41 44 22 A7 37 37 30 00 A0 0A 9A 01 4C B2 |LOAD".770.....L.|
00000290: C5 28 43 24 29 3A 8B 4C B1 4D 58 A7 4D 58 B2 4C |.(C$):.L.MX.MX.L|
000002A0: 00 A6 0A A4 01 8F 00 C8 0A AE 01 4C 24 B2 CA 28 |...........L$..(|
000002B0: 41 24 2C 36 2C 31 30 29 3A 8D 34 38 30 3A 4C 24 |A$,6,10):.480:L$|
000002C0: 28 4C 2C 31 29 B2 4C 24 00 EA 0A B8 01 4C 24 B2 |(L,1).L$.....L$.|
000002D0: CA 28 41 24 2C 31 36 2C 34 29 3A 8D 34 38 30 3A |.(A$,16,4):.480:|
000002E0: 4C 24 28 4C 2C 32 29 B2 4C 24 00 0D 0B C2 01 4C |L$(L,2).L$.....L|
000002F0: 24 B2 CA 28 41 24 2C 32 30 2C 32 31 29 3A 8D 34 |$..(A$,20,21):.4|
00000300: 38 30 3A 4C 24 28 4C 2C 33 29 B2 4C 24 00 2D 0B |80:L$(L,3).L$.-.|
00000310: CC 01 4C 24 B2 CA 28 41 24 2C 34 31 29 3A 8D 34 |..L$..(A$,41):.4|
00000320: 38 30 3A 4C 24 28 4C 2C 34 29 B2 4C 24 00 36 0B |80:L$(L,4).L$.6.|
00000330: D6 01 89 33 32 30 00 63 0B E0 01 4A B2 C3 28 4C |...320.c...J..(L|
00000340: 24 29 3A 8B 4A 20 AF C9 28 4C 24 2C 31 29 B2 22 |$):.J ..(L$,1)."|
00000350: 20 22 A7 4C B2 C8 28 4C 24 2C 4A AB 31 29 3A 89 | ".L..(L$,J.1):.|
00000360: 34 38 30 00 69 0B EA 01 8E 00 6F 0B F4 01 8F 00 |480.i.....o.....|
00000370: 82 0B FE 01 99 C7 28 31 39 29 3B C7 28 31 34 37 |......(19);.(147|
00000380: 29 3A 00 8E 0B 08 02 81 58 B2 31 A4 4D 58 00 BA |):......X.1.MX..|
00000390: 0B 12 02 8B 4C 24 28 58 2C 31 29 AA 4C 24 28 58 |....L$(X,1).L$(X|
000003A0: 2C 32 29 AA 4C 24 28 58 2C 33 29 AA 4C 24 28 58 |,2).L$(X,3).L$(X|
000003B0: 2C 34 29 B2 22 22 A7 35 36 30 00 F0 0B 1C 02 99 |,4)."".560......|
000003C0: C7 28 33 34 29 3B C7 28 32 37 29 3B CA 28 C4 28 |.(34);.(27);.(.(|
000003D0: 58 29 2C 32 29 3B C7 28 39 29 3B 4C 24 28 58 2C |X),2);.(9);L$(X,|
000003E0: 31 29 3B C7 28 39 29 3B 4C 24 28 58 2C 32 29 3B |1);.(9);L$(X,2);|
000003F0: 00 0F 0C 26 02 99 C7 28 39 29 3B 4C 24 28 58 2C |...&...(9);L$(X,|
00000400: 33 29 3B C7 28 39 29 3B 4C 24 28 58 2C 34 29 00 |3);.(9);L$(X,4).|
00000410: 16 0C 30 02 82 58 00 1F 0C 3A 02 89 33 32 30 00 |..0..X...:..320.|
00000420: 38 0C 44 02 8F 20 43 4C 45 41 52 20 57 49 4E 44 |8.D.. CLEAR WIND|
00000430: 4F 57 20 26 20 45 4E 44 00 4B 0C 4E 02 8F 20 45 |OW & END.K.N.. E|
00000440: 58 49 54 20 52 4F 55 54 49 4E 45 00 63 0C 58 02 |XIT ROUTINE.c.X.|
00000450: 99 C7 28 31 39 29 3B C7 28 31 39 29 3B C7 28 31 |..(19);.(19);.(1|
00000460: 34 37 29 00 69 0C 62 02 80 00 74 0C 6C 02 8F 20 |47).i.b...t.l.. |
00000470: 53 41 56 45 00 94 0C 76 02 85 22 46 49 4C 45 4E |SAVE...v.."FILEN|
00000480: 41 4D 45 22 3B 46 24 3A 46 24 B2 46 24 AA 22 2E |AME";F$:F$.F$.".|
00000490: 53 43 52 22 00 AD 0C 80 02 53 43 52 41 54 43 48 |SCR".....SCRATCH|
000004A0: 28 46 24 29 3A 8B 44 53 B1 31 39 A7 90 00 BD 0C |(F$):.DS.19.....|
000004B0: 8A 02 44 9F 23 31 2C 28 46 24 29 2C 57 00 CA 0C |..D.#1,(F$),W...|
000004C0: 94 02 8B 44 53 B1 31 39 A7 90 00 D6 0C 9E 02 81 |...DS.19........|
000004D0: 58 B2 31 A4 4D 58 00 02 0D A8 02 8B 4C 24 28 58 |X.1.MX......L$(X|
000004E0: 2C 31 29 AA 4C 24 28 58 2C 32 29 AA 4C 24 28 58 |,1).L$(X,2).L$(X|
000004F0: 2C 33 29 AA 4C 24 28 58 2C 34 29 B2 22 22 A7 37 |,3).L$(X,4)."".7|
00000500: 32 30 00 0D 0D B2 02 81 59 B2 31 A4 34 00 22 0D |20......Y.1.4.".|
00000510: BC 02 98 31 2C 51 24 3B 4C 24 28 58 2C 59 29 3B |...1,Q$;L$(X,Y);|
00000520: 51 24 00 29 0D C6 02 82 59 00 30 0D D0 02 82 58 |Q$.)....Y.0....X|
00000530: 00 43 0D DA 02 98 31 2C 22 45 4E 44 2C 2E 2C 2E |.C....1,"END,.,.|
00000540: 2C 2E 22 00 4A 0D E4 02 44 A0 00 53 0D EE 02 89 |,.".J...D..S....|
00000550: 33 32 30 00 68 0D F8 02 8F 2A 2A 20 4C 4F 41 44 |320.h....** LOAD|
00000560: 20 52 4F 55 54 49 4E 45 00 7B 0D 02 03 85 22 46 | ROUTINE.{...."F|
00000570: 49 4C 45 4E 41 4D 45 22 3B 46 24 00 8C 0D 0C 03 |ILENAME";F$.....|
00000580: 46 24 B2 46 24 AA 22 2E 53 43 52 22 00 98 0D 16 |F$.F$.".SCR"....|
00000590: 03 81 58 B2 31 A4 4D 58 00 A3 0D 20 03 81 59 B2 |..X.1.MX... ..Y.|
000005A0: 31 A4 34 00 B2 0D 2A 03 4C 24 28 58 2C 59 29 B2 |1.4...*.L$(X,Y).|
000005B0: 22 22 00 B9 0D 34 03 82 59 00 C0 0D 3E 03 82 58 |""...4..Y...>..X|
000005C0: 00 CE 0D 48 03 44 9F 23 31 2C 28 46 24 29 00 DB |...H.D.#1,(F$)..|
000005D0: 0D 52 03 8B 44 53 B1 31 39 A7 90 00 E3 0D 5C 03 |.R..DS.19.....\.|
000005E0: 58 B2 30 00 ED 0D 66 03 58 B2 58 AA 35 00 F8 0D |X.0...f.X.X.5...|
000005F0: 70 03 81 59 B2 31 A4 34 00 07 0E 7A 03 84 31 2C |p..Y.1.4...z..1,|
00000600: 4C 24 28 58 2C 59 29 00 0E 0E 84 03 82 59 00 1C |L$(X,Y)......Y..|
00000610: 0E 8E 03 8B 53 54 B2 30 A7 38 37 30 00 23 0E 98 |....ST.0.870.#..|
00000620: 03 44 A0 00 32 0E A2 03 4C 24 28 58 2C 31 29 B2 |.D..2...L$(X,1).|
00000630: 22 22 00 41 0E AC 03 4C 24 28 58 2C 32 29 B2 22 |"".A...L$(X,2)."|
00000640: 22 00 50 0E B6 03 4C 24 28 58 2C 33 29 B2 22 22 |".P...L$(X,3).""|
00000650: 00 5F 0E C0 03 4C 24 28 58 2C 34 29 B2 22 22 00 |._...L$(X,4)."".|
00000660: 68 0E CA 03 4D 58 B2 58 00 71 0E D4 03 89 35 31 |h...MX.X.q....51|
00000670: 30 00 00 00 AA |0.... |
....D.T$.G(137):. SET/RESET.(.N.Q$.G(34)
.7.X..L$(500,4).O...MX.0:. LINE COUNTER.
X....".".M.... CLEAR OLD TABS.X. ..G(9);
.......(0)..79..T$;:.160............ SET
NEW TABS.M.H...6);T$;.16);T$;.20);T$;.4
1);T$...R..".";"COMMANDS AVAILABLE: LIS
T"......" EXIT".6..
.." SAVE".X...."
LOAD".^.........."ENT
ER THESE AS SEPERATE LINES".......A....G
(9);"LABEL";G(9);"MN.";G(9);"OPERAND";G(
9);"COM.".G.".....,..G(15):. SET SCROLLI
NG WIN...6.....@..158,2:.623,34:.624,27.
..J..1,0:.1,A$: 1.(.T..A$."".320...^...=
.H.C$.H(A$,4).P.R..C$."LIST".510.C.|..C$
."EXIT".600.V....C$."SAVE".630......C$."
LOAD".770. ...L.E(C$):.L.MX.MX.L.......H
...L$.J(A$,6,10):.480:L$(L,1).L$.....L$.
J(A$,16,4):.480:L$(L,2).L$...B.L$.J(A$,2
0,21):.480:L$(L,3).L$.-.L.L$.J(A$,41):.4
80:L$(L,4).L$.6.V..320.C...J.C(L$):.J .I
(L$,1)." ".L.H(L$,J.1):.480.I.....O.....
.....G(19);G(147):......X.1.MX......L$(X
,1).L$(X,2).L$(X,3).L$(X,4)."".560......
G(34);G(27);J(D(X),2);G(9);L$(X,1);G(9);
L$(X,2);...&..G(9);L$(X,3);G(9);L$(X,4).
..0..X...:..320.8.D.. CLEAR WINDOW & END
.K.N.. EXIT ROUTINE.C.X..G(19);G(19);G(1
47).I.B...T.L.. SAVE...V.."FILENAME";F$:
F$.F$.".SCR".....SCRATCH(F$):.DS.19.....
..D.#1,(F$),W.J....DS.19...V....X.1.MX..
....L$(X,1).L$(X,2).L$(X,3).L$(X,4)."".7
20......Y.1.4."....1,Q$;L$(X,Y);Q$.).F..
Y.0.P..X.C.Z..1,"END,.,.,.".J...D .S....
320.H....** LOAD ROUTINE.{...."FILENAME"
;F$.....F$.F$.".SCR"......X.1.MX... ..Y.
1.4...*.L$(X,Y).""...4..Y...>..X.N.H.D.#
1,(F$)...R..DS.19.....\.X.0...F.X.X.5...
P..Y.1.4...Z..1,L$(X,Y)......Y......ST.0
.870.#...D .2...L$(X,1)."".A...L$(X,2)."
".P...L$(X,3).""._...L$(X,4)."".H.J.MX.X
.Q.T..510....
> CLICK IMAGE PREVIEW FOR FULL MODAL