SHUNTING
FILE INFORMATION
FILENAME(S): SHUNTING
FILE TYPE(S): PRG
FILE SIZE: 3.2K
FIRST SEEN: 2025-11-30 21:07:07
APPEARS ON: 1 disk(s)
FILE HASH
d2e20d08cf60a10365cad14105809e2a45ccc5975ae2930f176893dec4359e42
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CS TAPES PET 12 | SHUNTING | PRG | DuncanTwain | 31 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 26 04 64 00 8F 20 20 20 20 20 20 20 20 20 |..&.d.. | 00000010: 53 48 55 4E 54 49 4E 47 20 20 20 20 20 20 20 20 |SHUNTING | 00000020: 20 20 20 52 45 4D 00 2C 04 6E 00 8F 00 32 04 78 | REM.,.n...2.x| 00000030: 00 20 00 49 04 82 00 8F 20 20 20 20 20 20 20 20 |. .I.... | 00000040: 41 20 52 41 49 4C 57 41 59 00 61 04 8C 00 8F 20 |A RAILWAY.a.... | 00000050: 20 20 20 20 20 20 20 53 49 4D 55 4C 41 54 49 4F | SIMULATIO| 00000060: 4E 00 67 04 96 00 20 00 80 04 A0 00 8F 20 20 20 |N.g... ...... | 00000070: 20 20 20 20 43 54 20 44 45 43 38 30 20 50 35 35 | CT DEC80 P55| 00000080: 00 86 04 AA 00 20 00 8C 04 B4 00 20 00 92 04 BE |..... ..... ....| 00000090: 00 20 00 98 04 C8 00 20 00 B2 04 D2 00 86 50 31 |. ..... ......P1| 000000A0: 28 35 35 29 2C 50 32 28 35 35 29 2C 50 33 28 35 |(55),P2(55),P3(5| 000000B0: 35 29 00 C5 04 DC 00 4C 4C B2 34 30 3A 53 50 B2 |5).....LL.40:SP.| 000000C0: 33 32 37 36 38 00 DC 04 E6 00 8D 31 33 37 30 3A |32768......1370:| 000000D0: 42 54 24 B2 22 39 39 39 39 39 39 22 00 00 05 F0 |BT$."999999"....| 000000E0: 00 8F 20 20 20 20 20 20 2A 2A 2A 20 20 53 45 54 |.. *** SET| 000000F0: 20 20 55 50 20 20 43 55 52 53 4F 52 20 2A 2A 2A | UP CURSOR ***| 00000100: 00 24 05 FA 00 8F 20 20 20 20 20 20 2A 2A 2A 20 |.$.... *** | 00000110: 20 43 4F 4E 54 52 4F 4C 20 53 54 52 49 4E 47 53 | CONTROL STRINGS| 00000120: 20 2A 2A 2A 00 38 05 04 01 43 44 24 B2 22 13 22 | ***.8...CD$."."| 00000130: 3A 81 4A B2 31 A4 34 30 00 54 05 0E 01 43 44 24 |:.J.1.40.T...CD$| 00000140: B2 43 44 24 AA 22 11 22 3A 43 52 24 B2 43 52 24 |.CD$.".":CR$.CR$| 00000150: AA 22 1D 22 00 70 05 18 01 43 55 24 B2 43 55 24 |.".".p...CU$.CU$| 00000160: AA 22 91 22 3A 43 4C 24 B2 43 4C 24 AA 22 9D 22 |.".":CL$.CL$."."| 00000170: 00 81 05 22 01 42 4C 24 B2 42 4C 24 AA 22 20 20 |...".BL$.BL$." | 00000180: 22 00 88 05 2C 01 82 4A 00 9C 05 36 01 42 4C 24 |"...,..J...6.BL$| 00000190: B2 42 4C 24 AA 43 4C 24 AA 43 4C 24 00 C6 05 40 |.BL$.CL$.CL$...@| 000001A0: 01 99 22 20 20 20 20 20 20 20 12 20 50 52 45 53 |.." . PRES| 000001B0: 53 20 41 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 |S A KEY TO CONTI| 000001C0: 4E 55 45 20 92 22 00 D9 05 4A 01 A1 41 24 3A 8B |NUE ."...J..A$:.| 000001D0: 41 24 B2 22 22 A7 33 33 30 00 ED 05 54 01 99 22 |A$."".330...T.."| 000001E0: 93 22 3B 3A 97 35 39 34 36 38 2C 31 32 00 12 06 |.";:.59468,12...| 000001F0: 5E 01 8F 20 2A 2A 2A 20 20 53 45 54 20 55 50 20 |^.. *** SET UP | 00000200: 54 48 45 20 4D 41 49 4E 20 4C 49 4E 45 20 20 2A |THE MAIN LINE *| 00000210: 2A 2A 00 1E 06 68 01 81 4A B2 30 A4 33 39 00 43 |**...h..J.0.39.C| 00000220: 06 72 01 50 31 28 4A 29 B2 53 50 AA 4A 3A 50 32 |.r.P1(J).SP.J:P2| 00000230: 28 4A 29 B2 53 50 AA 4A 3A 50 33 28 4A 29 B2 53 |(J).SP.J:P3(J).S| 00000240: 50 AA 4A 00 51 06 7C 01 97 50 31 28 4A 29 2C 36 |P.J.Q.|..P1(J),6| 00000250: 31 00 58 06 86 01 82 4A 00 7D 06 90 01 8F 2A 20 |1.X....J.}....* | 00000260: 53 45 54 20 55 50 20 41 4E 44 20 50 4F 4B 45 20 |SET UP AND POKE | 00000270: 54 48 45 20 53 49 44 49 4E 47 53 20 2A 00 89 06 |THE SIDINGS *...| 00000280: 9A 01 81 4A B2 31 A4 31 36 00 A1 06 A4 01 50 31 |...J.1.16.....P1| 00000290: 28 4A AA 31 39 29 B2 53 50 AA 31 39 AA 4C 4C AC |(J.19).SP.19.LL.| 000002A0: 4A 00 B2 06 AE 01 97 50 31 28 4A AA 31 39 29 2C |J......P1(J.19),| 000002B0: 33 34 00 CA 06 B8 01 50 32 28 4A AA 32 39 29 B2 |34.....P2(J.29).| 000002C0: 53 50 AA 32 39 AA 4C 4C AC 4A 00 DB 06 C2 01 97 |SP.29.LL.J......| 000002D0: 50 32 28 4A AA 32 39 29 2C 33 34 00 F3 06 CC 01 |P2(J.29),34.....| 000002E0: 50 33 28 4A AA 33 39 29 B2 53 50 AA 33 39 AA 4C |P3(J.39).SP.39.L| 000002F0: 4C AC 4A 00 04 07 D6 01 97 50 33 28 4A AA 33 39 |L.J......P3(J.39| 00000300: 29 2C 33 34 00 0B 07 E0 01 82 4A 00 30 07 EA 01 |),34......J.0...| 00000310: 8F 20 20 2A 2A 20 50 4F 4B 45 20 54 48 45 20 53 |. ** POKE THE S| 00000320: 49 44 49 4E 47 20 4E 55 4D 42 45 52 53 20 2A 2A |IDING NUMBERS **| 00000330: 00 45 07 F4 01 97 50 31 28 33 35 29 AA 32 AC 4C |.E....P1(35).2.L| 00000340: 4C 2C 31 37 37 00 5A 07 FE 01 97 50 32 28 34 35 |L,177.Z....P2(45| 00000350: 29 AA 32 AC 4C 4C 2C 31 37 38 00 6F 07 08 02 97 |).2.LL,178.o....| 00000360: 50 33 28 35 35 29 AA 32 AC 4C 4C 2C 31 37 39 00 |P3(55).2.LL,179.| 00000370: 94 07 12 02 8F 20 2A 20 53 45 54 20 55 50 20 49 |..... * SET UP I| 00000380: 4E 49 54 49 41 4C 20 43 4F 4E 44 49 54 49 4F 4E |NITIAL CONDITION| 00000390: 53 20 2A 2A 00 BF 07 1C 02 54 31 B2 33 35 3A 53 |S **.....T1.35:S| 000003A0: 31 B2 30 3A 54 32 B2 34 35 3A 53 32 B2 30 3A 54 |1.0:T2.45:S2.0:T| 000003B0: 33 B2 35 35 3A 53 33 B2 30 3A 4C 54 B2 31 35 00 |3.55:S3.0:LT.15.| 000003C0: E6 07 26 02 54 49 24 B2 22 30 30 30 30 30 30 22 |..&.TI$."000000"| 000003D0: 3A 99 C8 28 43 44 24 2C 38 29 3B 22 12 52 55 4E |:..(CD$,8);".RUN| 000003E0: 20 54 49 4D 45 22 00 02 08 30 02 99 22 13 3D 12 | TIME"...0..".=.| 000003F0: A9 BB 92 BA 2D 12 46 45 48 41 43 44 42 4B 4A 47 |....-.FEHACDBKJG| 00000400: 49 22 00 27 08 3A 02 8F 20 20 20 20 20 20 20 20 |I".'.:.. | 00000410: 20 20 2A 2A 2A 20 49 4E 50 55 54 20 52 4F 55 54 | *** INPUT ROUT| 00000420: 49 4E 45 20 2A 2A 2A 00 44 08 44 02 99 C8 28 43 |INE ***.D.D...(C| 00000430: 44 24 2C 32 31 29 3B 42 4C 24 AA 22 53 49 44 49 |D$,21);BL$."SIDI| 00000440: 4E 47 22 3B 00 57 08 4E 02 A1 53 24 3A 8B 53 24 |NG";.W.N..S$:.S$| 00000450: B2 22 22 A7 35 39 30 00 68 08 58 02 8B C5 28 53 |."".590.h.X...(S| 00000460: 24 29 B2 30 A7 35 39 30 00 73 08 62 02 99 22 20 |$).0.590.s.b.." | 00000470: 20 22 3B 00 82 08 6C 02 53 B2 C5 28 53 24 29 3A | ";...l.S..(S$):| 00000480: 99 53 00 9B 08 76 02 8B 53 B3 31 B0 53 B1 33 A7 |.S...v..S.1.S.3.| 00000490: 99 22 91 12 22 3B 3A 89 35 38 30 00 B8 08 80 02 |."..";:.580.....| 000004A0: 99 C8 28 43 44 24 2C 32 32 29 3B 42 4C 24 AA 22 |..(CD$,22);BL$."| 000004B0: 4E 55 4D 42 45 52 22 3B 00 CD 08 8A 02 A1 53 58 |NUMBER";......SX| 000004C0: 24 3A 8B 53 58 24 B2 22 22 A7 36 35 30 00 EB 08 |$:.SX$."".650...| 000004D0: 94 02 8B 53 58 24 B2 22 2D 22 A7 99 22 20 2D 22 |...SX$."-".." -"| 000004E0: 3B 3A 5A 31 B2 31 3A 89 36 35 30 00 FD 08 9E 02 |;:Z1.1:.650.....| 000004F0: 8B C5 28 53 58 24 29 B2 30 A7 36 35 30 00 0E 09 |..(SX$).0.650...| 00000500: A8 02 8B 5A 31 B2 30 A7 99 22 20 20 22 3B 00 32 |...Z1.0.." ";.2| 00000510: 09 B2 02 53 58 B2 C5 28 53 58 24 29 3A 99 53 58 |...SX..(SX$):.SX| 00000520: 3A 8B 5A 31 B2 31 A7 53 58 B2 AB 53 58 3A 5A 31 |:.Z1.1.SX..SX:Z1| 00000530: B2 30 00 4B 09 BC 02 8B 4C 54 AB 53 58 B3 34 A7 |.0.K....LT.SX.4.| 00000540: 99 22 91 12 22 3B 3A 89 36 34 30 00 60 09 C6 02 |."..";:.640.`...| 00000550: 91 53 8D 38 37 30 2C 31 30 34 30 2C 31 32 31 30 |.S.870,1040,1210| 00000560: 00 85 09 D0 02 8F 20 20 20 20 20 20 20 2A 2A 2A |...... ***| 00000570: 20 52 55 4E 2D 54 49 4D 45 20 52 4F 55 54 49 4E | RUN-TIME ROUTIN| 00000580: 45 20 2A 2A 2A 00 91 09 DA 02 53 54 24 B2 54 49 |E ***.....ST$.TI| 00000590: 24 00 C5 09 E4 02 99 C8 28 43 44 24 2C 31 30 29 |$.......(CD$,10)| 000005A0: 3B CA 28 53 54 24 2C 33 2C 32 29 3B 22 20 4D 49 |;.(ST$,3,2);" MI| 000005B0: 4E 53 20 22 3B CA 28 53 54 24 2C 35 29 3B 22 20 |NS ";.(ST$,5);" | 000005C0: 53 45 43 53 22 00 F1 09 EE 02 81 49 B2 31 A4 31 |SECS"......I.1.1| 000005D0: 31 3A 8B C2 28 33 32 37 37 32 AA 49 29 B3 B1 31 |1:..(32772.I)..1| 000005E0: 32 38 AA 49 A7 49 B2 31 32 3A 82 49 3A 89 35 38 |28.I.I.12:.I:.58| 000005F0: 30 00 F8 09 F8 02 82 49 00 1D 0A 02 03 8F 20 20 |0......I...... | 00000600: 20 20 20 20 2A 2A 2A 20 42 45 53 54 20 54 49 4D | *** BEST TIM| 00000610: 45 20 52 4F 55 54 49 4E 45 20 2A 2A 2A 00 32 0A |E ROUTINE ***.2.| 00000620: 0C 03 8B 53 54 24 B3 42 54 24 A7 42 54 24 B2 53 |...ST$.BT$.BT$.S| 00000630: 54 24 00 4F 0A 16 03 99 C8 28 43 44 24 2C 31 34 |T$.O.....(CD$,14| 00000640: 29 3B 22 12 42 45 53 54 20 54 49 4D 45 11 22 00 |);".BEST TIME.".| 00000650: 79 0A 20 03 99 CA 28 42 54 24 2C 33 2C 32 29 3B |y. ...(BT$,3,2);| 00000660: 22 20 4D 49 4E 53 20 22 3B CA 28 42 54 24 2C 35 |" MINS ";.(BT$,5| 00000670: 29 3B 22 20 53 45 43 53 22 00 8C 0A 2A 03 99 C8 |);" SECS"...*...| 00000680: 28 43 44 24 2C 32 31 29 3B 42 4C 24 00 AF 0A 34 |(CD$,21);BL$...4| 00000690: 03 99 22 91 12 41 4E 4F 54 48 45 52 20 47 4F 20 |.."..ANOTHER GO | 000006A0: 3F 92 22 3A 81 49 B2 31 A4 31 30 30 3A 82 49 00 |?.":.I.1.100:.I.| 000006B0: E0 0A 3E 03 A1 41 24 3A 8B 41 24 B2 22 22 A7 99 |..>..A$:.A$.""..| 000006C0: 22 91 41 4E 4F 54 48 45 52 20 47 4F 20 3F 22 3A |".ANOTHER GO ?":| 000006D0: 81 49 B2 31 A4 31 30 30 3A 82 49 3A 89 38 32 30 |.I.1.100:.I:.820| 000006E0: 00 FE 0A 48 03 8B 41 24 B2 22 59 22 A7 54 49 24 |...H..A$."Y".TI$| 000006F0: B2 22 30 30 30 30 30 30 22 3A 89 35 36 30 00 0E |."000000":.560..| 00000700: 0B 52 03 99 22 93 22 3B 3A 89 31 34 39 30 00 33 |.R..".";:.1490.3| 00000710: 0B 5C 03 8F 20 20 20 20 20 20 20 20 20 20 20 20 |.\.. | 00000720: 20 20 20 20 20 20 2A 2A 2A 20 50 55 54 20 31 20 | *** PUT 1 | 00000730: 2A 2A 2A 00 4C 0B 66 03 8B 53 31 AA 53 58 B3 30 |***.L.f..S1.SX.0| 00000740: A7 99 22 91 12 22 3B 3A 89 36 34 30 00 5E 0B 70 |.."..";:.640.^.p| 00000750: 03 81 4A B2 31 A4 54 31 AB 4C 54 AB 53 31 00 6F |..J.1.T1.LT.S1.o| 00000760: 0B 7A 03 81 4B B2 4A AA 4C 54 A4 4A A9 AB 31 00 |.z..K.J.LT.J..1.| 00000770: 85 0B 84 03 97 50 31 28 4B 29 2C C2 28 50 31 28 |.....P1(K),.(P1(| 00000780: 4B AB 31 29 29 00 8C 0B 8E 03 82 4B 00 93 0B 98 |K.1))......K....| 00000790: 03 82 4A 00 A9 0B A2 03 53 31 B2 53 31 AA 53 58 |..J.....S1.S1.SX| 000007A0: 3A 4C 54 B2 4C 54 AB 53 58 00 CE 0B AC 03 8F 20 |:LT.LT.SX...... | 000007B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000007C0: 2A 2A 2A 20 54 41 4B 45 20 31 20 2A 2A 2A 00 E3 |*** TAKE 1 ***..| 000007D0: 0B B6 03 81 4A B2 54 31 AB 4C 54 AB 53 31 A4 31 |....J.T1.LT.S1.1| 000007E0: A9 AB 31 00 F3 0B C0 03 81 4B B2 4A A4 4A AA 4C |..1......K.J.J.L| 000007F0: 54 AB 31 00 09 0C CA 03 97 50 31 28 4B 29 2C C2 |T.1......P1(K),.| 00000800: 28 50 31 28 4B AA 31 29 29 00 10 0C D4 03 82 4B |(P1(K.1))......K| 00000810: 00 31 0C DE 03 8B 50 31 28 4B 29 B1 33 32 38 30 |.1....P1(K).3280| 00000820: 38 A7 97 50 31 28 4B 29 2C 33 34 3A 89 31 30 31 |8..P1(K),34:.101| 00000830: 30 00 3F 0C E8 03 97 50 31 28 4B 29 2C 36 31 00 |0.?....P1(K),61.| 00000840: 46 0C F2 03 82 4A 00 4C 0C FC 03 8E 00 71 0C 06 |F....J.L.....q..| 00000850: 04 8F 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. | 00000860: 20 20 20 20 2A 2A 2A 20 50 55 54 20 32 20 2A 2A | *** PUT 2 **| 00000870: 2A 00 8A 0C 10 04 8B 53 32 AA 53 58 B3 30 A7 99 |*......S2.SX.0..| 00000880: 22 91 12 22 3B 3A 89 36 34 30 00 9C 0C 1A 04 81 |"..";:.640......| 00000890: 4A B2 31 A4 54 32 AB 4C 54 AB 53 32 00 AD 0C 24 |J.1.T2.LT.S2...$| 000008A0: 04 81 4B B2 4A AA 4C 54 A4 4A A9 AB 31 00 C3 0C |..K.J.LT.J..1...| 000008B0: 2E 04 97 50 32 28 4B 29 2C C2 28 50 32 28 4B AB |...P2(K),.(P2(K.| 000008C0: 31 29 29 00 CA 0C 38 04 82 4B 00 D1 0C 42 04 82 |1))...8..K...B..| 000008D0: 4A 00 E7 0C 4C 04 53 32 B2 53 32 AA 53 58 3A 4C |J...L.S2.S2.SX:L| 000008E0: 54 B2 4C 54 AB 53 58 00 0C 0D 56 04 8F 20 20 20 |T.LT.SX...V.. | 000008F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A | **| 00000900: 2A 20 54 41 4B 45 20 32 20 2A 2A 2A 00 21 0D 60 |* TAKE 2 ***.!.`| 00000910: 04 81 4A B2 54 32 AB 4C 54 AB 53 32 A4 31 A9 AB |..J.T2.LT.S2.1..| 00000920: 31 00 31 0D 6A 04 81 4B B2 4A A4 4A AA 4C 54 AB |1.1.j..K.J.J.LT.| 00000930: 31 00 47 0D 74 04 97 50 32 28 4B 29 2C C2 28 50 |1.G.t..P2(K),.(P| 00000940: 32 28 4B AA 31 29 29 00 4E 0D 7E 04 82 4B 00 6F |2(K.1)).N.~..K.o| 00000950: 0D 88 04 8B 50 32 28 4B 29 B1 33 32 38 30 38 A7 |....P2(K).32808.| 00000960: 97 50 32 28 4B 29 2C 33 34 3A 89 31 31 38 30 00 |.P2(K),34:.1180.| 00000970: 7D 0D 92 04 97 50 32 28 4B 29 2C 36 31 00 84 0D |}....P2(K),61...| 00000980: 9C 04 82 4A 00 8A 0D A6 04 8E 00 AF 0D B0 04 8F |...J............| 00000990: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000009A0: 20 20 2A 2A 2A 20 50 55 54 20 33 20 2A 2A 2A 00 | *** PUT 3 ***.| 000009B0: C8 0D BA 04 8B 53 33 AA 53 58 B3 30 A7 99 22 91 |.....S3.SX.0..".| 000009C0: 12 22 3B 3A 89 36 34 30 00 DA 0D C4 04 81 4A B2 |.";:.640......J.| 000009D0: 31 A4 54 33 AB 4C 54 AB 53 33 00 EB 0D CE 04 81 |1.T3.LT.S3......| 000009E0: 4B B2 4A AA 4C 54 A4 4A A9 AB 31 00 01 0E D8 04 |K.J.LT.J..1.....| 000009F0: 97 50 33 28 4B 29 2C C2 28 50 33 28 4B AB 31 29 |.P3(K),.(P3(K.1)| 00000A00: 29 00 08 0E E2 04 82 4B 00 0F 0E EC 04 82 4A 00 |)......K......J.| 00000A10: 25 0E F6 04 53 33 B2 53 33 AA 53 58 3A 4C 54 B2 |%...S3.S3.SX:LT.| 00000A20: 4C 54 AB 53 58 00 4A 0E 00 05 8F 20 20 20 20 20 |LT.SX.J.... | 00000A30: 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 20 | *** | 00000A40: 54 41 4B 45 20 33 20 2A 2A 2A 00 5F 0E 0A 05 81 |TAKE 3 ***._....| 00000A50: 4A B2 54 33 AB 4C 54 AB 53 33 A4 31 A9 AB 31 00 |J.T3.LT.S3.1..1.| 00000A60: 6F 0E 14 05 81 4B B2 4A A4 4A AA 4C 54 AB 31 00 |o....K.J.J.LT.1.| 00000A70: 85 0E 1E 05 97 50 33 28 4B 29 2C C2 28 50 33 28 |.....P3(K),.(P3(| 00000A80: 4B AA 31 29 29 00 8C 0E 28 05 82 4B 00 AD 0E 32 |K.1))...(..K...2| 00000A90: 05 8B 50 33 28 4B 29 B1 33 32 38 30 38 A7 97 50 |..P3(K).32808..P| 00000AA0: 33 28 4B 29 2C 33 34 3A 89 31 33 35 30 00 BB 0E |3(K),34:.1350...| 00000AB0: 3C 05 97 50 33 28 4B 29 2C 36 31 00 C2 0E 46 05 |<..P3(K),61...F.| 00000AC0: 82 4A 00 C8 0E 50 05 8E 00 ED 0E 5A 05 8F 20 20 |.J...P.....Z.. | 00000AD0: 20 20 20 20 20 20 20 20 20 2A 2A 2A 20 49 4E 53 | *** INS| 00000AE0: 54 52 55 43 54 49 4F 4E 53 20 2A 2A 2A 00 17 0F |TRUCTIONS ***...| 00000AF0: 64 05 97 35 39 34 36 38 2C 31 34 3A 99 22 93 22 |d..59468,14:."."| 00000B00: 3B A3 31 35 29 3B 22 12 20 D3 C8 D5 CE D4 C9 CE |;.15);". .......| 00000B10: C7 20 92 11 11 11 22 00 46 0F 6E 05 99 22 20 20 |. ....".F.n.." | 00000B20: D3 C8 D5 CE D4 C9 CE C7 20 49 53 20 41 20 52 41 |........ IS A RA| 00000B30: 49 4C 57 41 59 20 53 49 4D 55 4C 41 54 49 4F 4E |ILWAY SIMULATION| 00000B40: 20 47 41 4D 45 22 00 74 0F 78 05 99 22 57 48 45 | GAME".t.x.."WHE| 00000B50: 52 45 20 59 4F 55 20 48 41 56 45 20 54 4F 20 53 |RE YOU HAVE TO S| 00000B60: 48 55 4E 54 20 41 20 53 45 54 20 4F 46 20 47 4F |HUNT A SET OF GO| 00000B70: 4F 44 53 22 00 91 0F 82 05 99 22 57 41 47 4F 4E |ODS"......"WAGON| 00000B80: 53 20 49 4E 54 4F 20 4F 52 44 45 52 2E 11 11 11 |S INTO ORDER....| 00000B90: 22 00 BE 0F 8C 05 99 22 20 20 D9 4F 55 20 4D 55 |"......" .OU MU| 00000BA0: 53 54 20 53 50 45 43 49 46 59 20 41 20 53 49 44 |ST SPECIFY A SID| 00000BB0: 49 4E 47 20 28 31 2D 33 29 20 41 4E 44 22 00 EF |ING (1-3) AND"..| 00000BC0: 0F 96 05 99 22 54 48 45 20 4E 55 4D 42 45 52 20 |...."THE NUMBER | 00000BD0: 4F 46 20 57 41 47 4F 4E 53 20 54 4F 20 42 45 20 |OF WAGONS TO BE | 00000BE0: 4D 4F 56 45 44 2E 20 C9 46 20 59 4F 55 22 3B 00 |MOVED. .F YOU";.| 00000BF0: 1D 10 A0 05 99 22 54 59 50 45 20 41 20 50 4F 53 |....."TYPE A POS| 00000C00: 49 54 49 56 45 20 4E 55 4D 42 45 52 2C 20 57 41 |ITIVE NUMBER, WA| 00000C10: 47 4F 4E 53 20 57 49 4C 4C 20 42 45 22 00 4B 10 |GONS WILL BE".K.| 00000C20: AA 05 99 22 41 44 44 45 44 20 54 4F 20 54 48 45 |..."ADDED TO THE| 00000C30: 20 53 49 44 49 4E 47 2C 20 41 20 4E 45 47 41 54 | SIDING, A NEGAT| 00000C40: 49 56 45 20 4E 55 4D 42 45 52 22 00 63 10 B4 05 |IVE NUMBER".c...| 00000C50: 99 22 52 45 4D 4F 56 45 53 20 54 48 45 4D 2E 11 |."REMOVES THEM..| 00000C60: 11 11 22 00 90 10 BE 05 99 22 20 20 D4 48 45 20 |.."......" .HE | 00000C70: 41 49 4D 20 49 53 20 54 4F 20 53 4F 52 54 20 54 |AIM IS TO SORT T| 00000C80: 48 45 20 54 52 41 49 4E 20 49 4E 20 54 48 45 22 |HE TRAIN IN THE"| 00000C90: 00 B4 10 C8 05 99 22 53 48 4F 52 54 45 53 54 20 |......"SHORTEST | 00000CA0: 50 4F 53 53 49 42 4C 45 20 54 49 4D 45 2E 11 11 |POSSIBLE TIME...| 00000CB0: 11 22 3A 8E 00 BA 10 D2 05 80 00 00 00 |.":.......... |
..&.D.. SHUNTING REM.,
.N...2.X. .I.... A RAILWAY.A....
SIMULATION.G... ... .. CT D
EC80 P55..... ..... ..... ...H. ...R..P1
(55),P2(55),P3(55).E...LL.40:SP.32768...
...1370:BT$."999999"...... *** SET
UP CURSOR ***.$.... *** CONTROL
STRINGS ***.8...CD$.".":.J.1.40.T...CD$
.CD$.".":CR$.CR$.".".P...CU$.CU$.".":CL$
.CL$."."...".BL$.BL$." "...,..J...6.BL$
.BL$.CL$.CL$.F.@.." . PRESS A KEY
TO CONTINUE .".Y.J..A$:.A$."".330...T.."
.";:.59468,12...^.. *** SET UP THE MAIN
LINE ***...H..J.0.39.C.R.P1(J).SP.J:P2
(J).SP.J:P3(J).SP.J.Q.|..P1(J),61.X....J
.}....* SET UP AND POKE THE SIDINGS *...
...J.1.16.....P1(J.19).SP.19.LL.J......P
1(J.19),34.J...P2(J.29).SP.29.LL.J...B..
P2(J.29),34...L.P3(J.39).SP.39.LL.J...V.
.P3(J.39),34......J.0.... ** POKE THE S
IDING NUMBERS **.E....P1(35).2.LL,177.Z.
...P2(45).2.LL,178.O....P3(55).2.LL,179.
..... * SET UP INITIAL CONDITIONS **....
.T1.35:S1.0:T2.45:S2.0:T3.55:S3.0:LT.15.
..&.TI$."000000":.H(CD$,8);".RUN TIME"..
.0..".=.....-.FEHACDBKJGI".'.:..
*** INPUT ROUTINE ***.D.D..H(CD$,21);B
L$."SIDING";.W.N..S$:.S$."".590.H.X..E(S
$).0.590.S.B.." ";...L.S.E(S$):.S...V..
S.1.S.3.."..";:.580......H(CD$,22);BL$."
NUMBER";.M....SX$:.SX$."".650......SX$."
-".." -";:Z1.1:.650......E(SX$).0.650...
...Z1.0.." ";.2...SX.E(SX$):.SX:.Z1.1.S
X..SX:Z1.0.K....LT.SX.4.."..";:.640.`.F.
.S.870,1040,1210...P.. *** RUN-TIM
E ROUTINE ***...Z.ST$.TI$.E....H(CD$,10)
;J(ST$,3,2);" MINS ";J(ST$,5);" SECS"...
...I.1.11:.B(32772.I)..128.I.I.12:.I:.58
0......I...... *** BEST TIME ROUTIN
E ***.2....ST$.BT$.BT$.ST$.O....H(CD$,14
);".BEST TIME.".Y. ..J(BT$,3,2);" MINS "
;J(BT$,5);" SECS"...*..H(CD$,21);BL$...4
.."..ANOTHER GO ?.":.I.1.100:.I...>..A$:
.A$.""..".ANOTHER GO ?":.I.1.100:.I:.820
...H..A$."Y".TI$."000000":.560...R..".";
:.1490.3.\.. *** PUT 1
***.L.F..S1.SX.0.."..";:.640.^.P..J.1.T1
.LT.S1.O.Z..K.J.LT.J..1......P1(K),B(P1(
K.1))......K......J.....S1.S1.SX:LT.LT.S
X.N.... *** TAKE 1 ***..
....J.T1.LT.S1.1..1......K.J.J.LT.1...J.
.P1(K),B(P1(K.1))...T..K.1....P1(K).3280
8..P1(K),34:.1010.?....P1(K),61.F....J.L
.....Q.... *** PUT 2 **
*......S2.SX.0.."..";:.640......J.1.T2.L
T.S2...$..K.J.LT.J..1.C....P2(K),B(P2(K.
1)).J.8..K.Q.B..J...L.S2.S2.SX:LT.LT.SX.
..V.. *** TAKE 2 ***.!.`
..J.T2.LT.S2.1..1.1.J..K.J.J.LT.1.G.T..P
2(K),B(P2(K.1)).N.~..K.O....P2(K).32808.
.P2(K),34:.1180.}....P2(K),61......J....
........ *** PUT 3 ***.
H....S3.SX.0.."..";:.640.Z.D..J.1.T3.LT.
S3...N..K.J.LT.J..1...X..P3(K),B(P3(K.1)
)......K......J.%...S3.S3.SX:LT.LT.SX.J.
... *** TAKE 3 ***._....
J.T3.LT.S3.1..1.O....K.J.J.LT.1......P3(
K),B(P3(K.1))...(..K...2..P3(K).32808..P
3(K),34:.1350...<..P3(K),61.B.F..J.H.P..
...Z.. *** INSTRUCTIONS ***...
D..59468,14:.".";.15);". SHUNTING ....".
F.N.." SHUNTING IS A RAILWAY SIMULATION
GAME".T.X.."WHERE YOU HAVE TO SHUNT A S
ET OF GOODS"......"WAGONS INTO ORDER....
"......" YOU MUST SPECIFY A SIDING (1-3
) AND"......"THE NUMBER OF WAGONS TO BE
MOVED. IF YOU";... .."TYPE A POSITIVE NU
MBER, WAGONS WILL BE".K...."ADDED TO THE
SIDING, A NEGATIVE NUMBER".C...."REMOVE
S THEM...."......" THE AIM IS TO SORT T
HE TRAIN IN THE"...H.."SHORTEST POSSIBLE
TIME....":....R.....
> CLICK IMAGE PREVIEW FOR FULL MODAL