POWER PLANT
FILE INFORMATION
FILENAME(S): POWER PLANT
FILE TYPE(S): PRG
FILE SIZE: 4.4K
FIRST SEEN: 2025-11-30 01:08:19
APPEARS ON: 4 disk(s)
FILE HASH
2956e44219f293b07c5e831ad02442a7afc7d3141875db9243aba394d2787dad
FOUND ON DISKS (4 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SPIELE | POWER PLANT | PRG | Treasure Chest - Wolfgang Rauprich | 29 | 4 | DOWNLOAD FILE |
| S PIELE | POWER PLANT | PRG | Treasure Chest - Wolfgang Rauprich | 29 | 4 | DOWNLOAD FILE |
| FREESOFT DISK NR | POWER PLANT | PRG | Treasure Chest - Wolfgang Rauprich | 23 | 9 | DOWNLOAD FILE |
| S PIELE | POWER PLANT | PRG | Treasure Chest - Wolfgang Rauprich | 23 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 11 08 0A 00 97 35 33 32 37 32 2C 32 31 3A |.......53272,21:| 00000010: 9C 00 2A 08 32 00 86 50 24 28 32 30 2C 32 30 29 |..*.2..P$(20,20)| 00000020: 2C 41 28 34 29 2C 45 28 34 29 00 79 08 3C 00 8F |,A(4),E(4).y.<..| 00000030: 20 54 48 49 53 20 49 53 20 31 36 4B 20 56 45 52 | THIS IS 16K VER| 00000040: 53 49 4F 4E 20 49 4E 20 57 48 49 43 48 20 50 24 |SION IN WHICH P$| 00000050: 20 20 53 48 4F 55 4C 44 20 42 45 20 28 32 30 2C | SHOULD BE (20,| 00000060: 32 30 29 20 2D 46 4F 52 20 44 41 54 41 20 43 4F |20) -FOR DATA CO| 00000070: 4C 4C 45 43 54 49 4F 4E 3F 00 AE 08 5F 00 99 22 |LLECTION?..._.."| 00000080: 93 11 11 11 11 57 45 4C 43 4F 4D 45 20 54 4F 20 |.....WELCOME TO | 00000090: 54 48 45 20 45 4C 45 43 54 52 49 43 20 55 54 49 |THE ELECTRIC UTI| 000000A0: 4C 49 54 59 20 50 52 4F 47 52 41 4D 2E 22 00 D0 |LITY PROGRAM."..| 000000B0: 08 64 00 99 22 11 11 11 20 20 20 20 20 20 20 20 |.d.."... | 000000C0: 20 20 20 20 4D 49 4E 49 2D 45 44 49 53 4F 4E 22 | MINI-EDISON"| 000000D0: 00 02 09 65 00 99 22 11 11 11 11 20 49 46 20 59 |...e..".... IF Y| 000000E0: 4F 55 20 4E 45 45 44 20 49 4E 53 54 52 55 43 54 |OU NEED INSTRUCT| 000000F0: 49 4F 4E 53 2C 20 4C 4F 41 44 20 49 4E 20 54 48 |IONS, LOAD IN TH| 00000100: 45 22 00 32 09 66 00 99 22 11 50 52 45 56 49 4F |E".2.f..".PREVIO| 00000110: 55 53 20 50 52 4F 47 52 41 4D 20 12 20 50 4F 57 |US PROGRAM . POW| 00000120: 45 52 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 2E |ER INSTRUCTIONS.| 00000130: 20 22 00 5D 09 69 00 99 22 11 11 20 20 20 20 20 | ".].i..".. | 00000140: 20 20 20 20 54 59 50 45 20 12 53 50 41 43 45 92 | TYPE .SPACE.| 00000150: 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 00 70 09 | TO CONTINUE".p.| 00000160: 6E 00 A1 42 24 3A 8B 42 24 B2 22 22 A7 31 31 30 |n..B$:.B$."".110| 00000170: 00 9E 09 AE 00 99 22 93 20 20 20 49 46 20 59 4F |......". IF YO| 00000180: 55 20 57 41 4E 54 20 54 4F 20 51 55 49 54 20 41 |U WANT TO QUIT A| 00000190: 4E 44 20 53 54 41 52 54 20 4F 56 45 52 22 00 CD |ND START OVER"..| 000001A0: 09 AF 00 99 22 20 54 59 50 45 20 12 51 55 49 54 |...." TYPE .QUIT| 000001B0: 2C 30 2C 30 92 20 20 54 4F 20 45 4E 44 20 54 59 |,0,0. TO END TY| 000001C0: 50 45 20 12 45 4E 44 2C 30 2C 30 92 22 00 06 0A |PE .END,0,0."...| 000001D0: B0 00 99 22 20 57 48 45 4E 20 54 48 45 20 43 4F |..." WHEN THE CO| 000001E0: 4D 50 55 54 45 52 20 50 52 49 4E 54 53 20 41 20 |MPUTER PRINTS A | 000001F0: 51 55 45 53 54 49 4F 4E 20 20 20 20 20 4D 41 52 |QUESTION MAR| 00000200: 4B 28 3F 29 2E 22 00 3B 0A B1 00 85 22 11 11 20 |K(?).".;....".. | 00000210: 4E 4F 57 20 59 4F 55 20 41 52 45 20 52 45 41 44 |NOW YOU ARE READ| 00000220: 59 20 54 4F 20 42 45 47 49 4E 20 20 20 20 D2 9D |Y TO BEGIN ..| 00000230: 9D 9D 22 3B 42 24 3A 89 32 35 30 00 6F 0A C8 00 |..";B$:.250.o...| 00000240: 99 22 11 11 20 59 4F 55 20 43 41 4E 27 54 20 51 |.".. YOU CAN'T Q| 00000250: 55 49 54 2E 2E 2E 2E 20 20 59 4F 55 27 52 45 20 |UIT.... YOU'RE | 00000260: 46 49 52 45 44 20 21 21 22 3A 89 37 35 32 30 00 |FIRED !!":.7520.| 00000270: 7F 0A FA 00 46 B2 30 3A 54 B2 30 3A 4C B2 30 00 |....F.0:T.0:L.0.| 00000280: 88 0A 2C 01 59 31 B2 31 00 91 0A 5E 01 45 B2 39 |..,.Y1.1...^.E.9| 00000290: 30 00 9C 0A 90 01 59 B2 31 39 38 30 00 A5 0A C2 |0.....Y.1980....| 000002A0: 01 49 31 B2 30 00 B0 0A F4 01 4C 31 B2 31 30 30 |.I1.0.....L1.100| 000002B0: 00 BA 0A 58 02 54 39 B2 31 30 00 D2 0A 94 02 99 |...X.T9.10......| 000002C0: 22 93 46 4F 52 20 54 48 45 20 59 45 41 52 22 3B |".FOR THE YEAR";| 000002D0: 59 3B 00 FD 0A 99 02 99 22 54 48 45 20 4C 4F 41 |Y;......"THE LOA| 000002E0: 44 20 4E 45 45 44 45 44 20 49 53 22 20 4C 31 3B |D NEEDED IS" L1;| 000002F0: 22 4D 45 47 41 57 41 54 54 53 2E 11 22 00 32 0B |"MEGAWATTS..".2.| 00000300: D0 02 99 22 59 4F 55 20 48 41 56 45 20 12 22 54 |..."YOU HAVE ."T| 00000310: 39 3B 22 9D 20 92 20 4D 49 4C 4C 49 4F 4E 20 44 |9;". . MILLION D| 00000320: 4F 4C 4C 41 52 53 20 54 4F 20 53 50 45 4E 44 3A |OLLARS TO SPEND:| 00000330: 11 22 00 5C 0B EE 02 99 22 50 4C 41 4E 54 2C 20 |.".\...."PLANT, | 00000340: 48 4F 57 20 4D 41 4E 59 20 4D 49 4C 4C 49 4F 4E |HOW MANY MILLION| 00000350: 2C 20 25 20 45 43 4F 4C 4F 47 59 22 00 64 0B 20 |, % ECOLOGY".d. | 00000360: 03 49 B2 31 00 6D 0B 52 03 54 31 B2 30 00 B8 0B |.I.1.m.R.T1.0...| 00000370: 84 03 85 22 20 20 20 20 20 20 20 20 20 20 20 20 |..." | 00000380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000390: 20 20 20 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D | .............| 000003A0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................| 000003B0: D2 9D 9D 9D 22 3B 42 24 00 E6 0B B1 03 8B 42 24 |....";B$......B$| 000003C0: B2 22 43 4F 41 4C 22 B0 42 24 B2 22 4F 49 4C 22 |."COAL".B$."OIL"| 000003D0: B0 42 24 B2 22 47 41 53 22 B0 42 24 B2 22 4E 55 |.B$."GAS".B$."NU| 000003E0: 43 22 A7 39 37 30 00 FB 0B BB 03 8B 42 24 B2 22 |C".970......B$."| 000003F0: 51 55 49 54 22 20 A7 20 32 30 30 00 10 0C C0 03 |QUIT" . 200.....| 00000400: 8B 42 24 B2 22 45 4E 44 22 20 A7 20 37 35 32 30 |.B$."END" . 7520| 00000410: 00 49 0C C5 03 99 22 91 54 48 45 52 45 20 49 53 |.I....".THERE IS| 00000420: 20 4E 4F 20 50 4C 41 4E 54 20 4E 41 4D 45 44 20 | NO PLANT NAMED | 00000430: 12 22 42 24 22 92 91 22 3A 81 4A B2 31 A4 31 35 |."B$"..":.J.1.15| 00000440: 30 30 3A 82 3A 89 39 30 30 00 5A 0C CA 03 41 28 |00:.:.900.Z...A(| 00000450: 49 29 B2 B6 28 41 28 49 29 29 00 82 0C D4 03 85 |I)..(A(I))......| 00000460: 22 91 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D D2 |"...............| 00000470: 9D 9D 9D 22 3B 45 24 3A 41 28 49 29 B2 C5 28 45 |...";E$:A(I)..(E| 00000480: 24 29 00 93 0C E8 03 45 28 49 29 B2 B6 28 45 28 |$).....E(I)..(E(| 00000490: 49 29 29 00 C8 0C 1A 04 85 22 91 1D 1D 1D 1D 1D |I))......"......| 000004A0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................| 000004B0: 1D 1D 1D 1D 1D D2 9D 9D 9D 22 3B 45 24 3A 45 28 |.........";E$:E(| 000004C0: 49 29 B2 C5 28 45 24 29 00 DD 0C 7E 04 50 24 28 |I)..(E$)...~.P$(| 000004D0: 34 AC 49 AB 33 2C 34 AC 49 29 B2 42 24 00 EE 0C |4.I.3,4.I).B$...| 000004E0: B0 04 8B 41 28 49 29 B1 30 A7 31 33 35 30 00 12 |...A(I).0.1350..| 000004F0: 0D E2 04 42 24 B2 22 59 4F 55 20 4D 55 53 54 20 |...B$."YOU MUST | 00000500: 49 4E 56 45 53 54 20 53 4F 4D 45 20 4D 4F 4E 45 |INVEST SOME MONE| 00000510: 59 22 00 1C 0D 14 05 89 31 34 35 30 00 30 0D 46 |Y"......1450.0.F| 00000520: 05 8B 45 28 49 29 B3 B2 31 30 30 A7 31 35 35 30 |..E(I)..100.1550| 00000530: 00 5A 0D 78 05 42 24 B2 22 45 43 4F 4C 4F 47 59 |.Z.x.B$."ECOLOGY| 00000540: 20 43 41 4E 4E 4F 54 20 42 45 20 4F 56 45 52 20 | CANNOT BE OVER | 00000550: 31 30 30 20 55 4E 49 54 53 22 00 7E 0D AA 05 99 |100 UNITS".~....| 00000560: 22 52 45 45 4E 54 45 52 20 41 4C 4C 20 44 41 54 |"REENTER ALL DAT| 00000570: 41 2C 20 50 4C 45 41 53 45 2E 22 3B 42 24 00 87 |A, PLEASE.";B$..| 00000580: 0D DC 05 89 39 30 30 00 96 0D 0E 06 54 31 B2 54 |....900.....T1.T| 00000590: 31 AA 41 28 49 29 00 A6 0D 40 06 8B 54 31 B1 54 |1.A(I)...@..T1.T| 000005A0: 39 A7 31 38 35 30 00 B6 0D 72 06 8B 54 31 B2 54 |9.1850...r..T1.T| 000005B0: 39 89 31 39 35 30 00 C4 0D D6 06 8B 49 B1 33 A7 |9.1950......I.3.| 000005C0: 31 39 35 30 00 CE 0D E0 06 49 B2 49 AA 31 00 D7 |1950.....I.I.1..| 000005D0: 0D 08 07 89 39 30 30 00 FC 0D 3A 07 99 22 53 4F |....900...:.."SO| 000005E0: 52 52 59 2C 59 4F 55 20 41 52 45 20 41 4C 4C 4F |RRY,YOU ARE ALLO| 000005F0: 57 45 44 20 4F 4E 4C 59 22 54 39 3B 00 27 0E 44 |WED ONLY"T9;.'.D| 00000600: 07 99 22 4D 49 4C 4C 49 4F 4E 20 44 4F 4C 4C 41 |.."MILLION DOLLA| 00000610: 52 53 2E 20 50 4C 45 41 53 45 20 53 54 41 52 54 |RS. PLEASE START| 00000620: 20 4F 56 45 52 2E 22 00 30 0E 6C 07 89 37 32 30 | OVER.".0.l..720| 00000630: 00 38 0E 9E 07 46 B2 30 00 53 0E D0 07 50 24 28 |.8...F.0.S...P$(| 00000640: 34 AC 49 AA 31 2C 34 AC 49 AA 34 29 B2 22 46 49 |4.I.1,4.I.4)."FI| 00000650: 4E 49 22 00 5E 0E 02 08 81 49 B2 31 A4 34 00 6A |NI".^....I.1.4.j| 00000660: 0E 34 08 53 B2 34 AC 49 AB 33 00 85 0E 66 08 8B |.4.S.4.I.3...f..| 00000670: 50 24 28 53 2C 53 AA 33 29 B2 22 46 49 4E 49 22 |P$(S,S.3)."FINI"| 00000680: A7 34 38 35 30 00 A0 0E CA 08 8B 50 24 28 53 2C |.4850......P$(S,| 00000690: 53 AA 33 29 B2 22 4F 49 4C 22 20 A7 32 36 35 30 |S.3)."OIL" .2650| 000006A0: 00 BB 0E FC 08 8B 50 24 28 53 2C 53 AA 33 29 B2 |......P$(S,S.3).| 000006B0: 22 47 41 53 22 20 A7 32 38 35 30 00 D6 0E 2E 09 |"GAS" .2850.....| 000006C0: 8B 50 24 28 53 2C 53 AA 33 29 B2 22 43 4F 41 4C |.P$(S,S.3)."COAL| 000006D0: 22 A7 33 30 35 30 00 F1 0E 60 09 8B 50 24 28 53 |".3050...`..P$(S| 000006E0: 2C 53 AA 33 29 B2 22 4E 55 43 22 20 A7 33 32 35 |,S.3)."NUC" .325| 000006F0: 30 00 FB 0E 5A 0A 8F 20 4F 49 4C 00 0F 0F 64 0A |0...Z.. OIL...d.| 00000700: 8B 45 28 49 29 B2 31 30 30 A7 20 32 37 30 30 00 |.E(I).100. 2700.| 00000710: 19 0F 6E 0A 8D 33 34 30 30 00 2C 0F 8C 0A 49 31 |..n..3400.,...I1| 00000720: B2 AB 35 AC 28 31 AA 59 31 AD 35 29 00 36 0F 96 |..5.(1.Y1.5).6..| 00000730: 0A 8D 34 33 39 30 00 59 0F BE 0A 4D 28 49 29 B2 |..4390.Y...M(I).| 00000740: 41 28 49 29 AD 28 31 30 AD 31 32 35 AC 28 31 AA |A(I).(10.125.(1.| 00000750: BB 28 30 29 AD 31 30 29 29 00 63 0F F0 0A 89 34 |.(0).10)).c....4| 00000760: 36 30 30 00 6D 0F 22 0B 8F 20 47 41 53 00 80 0F |600.m.".. GAS...| 00000770: 2C 0B 8B 45 28 49 29 B2 31 30 30 A7 32 39 30 30 |,..E(I).100.2900| 00000780: 00 8A 0F 36 0B 8D 33 34 30 30 00 9D 0F 54 0B 49 |...6..3400...T.I| 00000790: 31 B2 AB 34 AC 28 31 AA 59 31 AD 35 29 00 A7 0F |1..4.(1.Y1.5)...| 000007A0: 5E 0B 8D 34 33 39 30 00 CA 0F 86 0B 4D 28 49 29 |^..4390.....M(I)| 000007B0: B2 41 28 49 29 AD 28 31 30 AD 31 31 32 AC 28 31 |.A(I).(10.112.(1| 000007C0: AA BB 28 30 29 AD 31 30 29 29 00 D4 0F B8 0B 89 |..(0).10))......| 000007D0: 34 36 30 30 00 DF 0F EA 0B 8F 20 43 4F 41 4C 00 |4600...... COAL.| 000007E0: F2 0F F4 0B 8B 45 28 49 29 B2 31 30 30 A7 33 31 |.....E(I).100.31| 000007F0: 30 30 00 FC 0F FE 0B 8D 33 34 30 30 00 0F 10 1C |00......3400....| 00000800: 0C 49 31 B2 AB 38 AC 28 31 AA 59 31 AD 35 29 00 |.I1..8.(1.Y1.5).| 00000810: 19 10 26 0C 8D 34 33 39 30 00 3A 10 4E 0C 4D 28 |..&..4390.:.N.M(| 00000820: 49 29 B2 41 28 49 29 AD 28 31 30 AD 31 38 37 AC |I).A(I).(10.187.| 00000830: 28 BB 28 30 29 AD 31 30 29 29 00 44 10 80 0C 89 |(.(0).10)).D....| 00000840: 34 36 30 30 00 52 10 B2 0C 8F 20 4E 55 43 4C 45 |4600.R.... NUCLE| 00000850: 41 52 00 65 10 BC 0C 8B 45 28 49 29 B2 31 30 30 |AR.e....E(I).100| 00000860: A7 33 33 30 30 00 6F 10 C6 0C 8D 33 34 30 30 00 |.3300.o....3400.| 00000870: 83 10 E4 0C 49 31 B2 AB 37 AC 28 31 AA 59 31 AD |....I1..7.(1.Y1.| 00000880: 31 30 29 00 8D 10 EE 0C 8D 34 33 39 30 00 B8 10 |10)......4390...| 00000890: 16 0D 4D 28 49 29 B2 41 28 49 29 AD 28 31 30 AD |..M(I).A(I).(10.| 000008A0: 31 34 35 AC 28 31 AB 59 31 AD 32 35 29 AC 28 BB |145.(1.Y1.25).(.| 000008B0: 28 30 29 AD 31 30 29 29 00 C2 10 20 0D 89 34 36 |(0).10))... ..46| 000008C0: 30 30 00 E4 10 48 0D 4E B2 B5 20 28 41 28 49 29 |00...H.N.. (A(I)| 000008D0: AC 33 AC 28 31 AB BB 28 30 29 AD 35 29 AA 2E 35 |.3.(1..(0).5)..5| 000008E0: 29 AD 31 30 00 F6 10 AC 0D 8B BB 28 30 29 B1 2E |).10.......(0)..| 000008F0: 39 A7 33 37 30 30 00 08 11 DE 0D 8B BB 28 30 29 |9.3700.......(0)| 00000900: B3 2E 31 A7 34 30 30 30 00 1F 11 10 0E 8B B5 28 |..1.4000.......(| 00000910: BB 28 30 29 AC 31 30 29 B2 35 A7 34 31 35 30 00 |.(0).10).5.4150.| 00000920: 29 11 42 0E 89 34 33 36 30 00 69 11 74 0E 99 22 |).B..4360.i.t.."| 00000930: 53 4F 52 52 59 2C 20 59 4F 55 20 48 41 44 20 41 |SORRY, YOU HAD A| 00000940: 20 55 4E 49 4F 4E 20 53 54 52 49 4B 45 20 4F 4E | UNION STRIKE ON| 00000950: 20 59 4F 55 52 20 22 2C 50 24 28 53 2C 53 AA 33 | YOUR ",P$(S,S.3| 00000960: 29 3B 22 50 4C 41 4E 54 22 00 8D 11 0A 0F 99 22 |);"PLANT"......"| 00000970: 59 4F 55 20 4C 4F 53 54 22 4E 3B 22 4D 49 4C 4C |YOU LOST"N;"MILL| 00000980: 49 4F 4E 20 44 4F 4C 4C 41 52 53 2E 22 00 9D 11 |ION DOLLARS."...| 00000990: 14 0F 81 50 B2 31 A4 32 35 30 30 3A 82 00 AD 11 |...P.1.2500:....| 000009A0: 3C 0F 41 28 49 29 B2 41 28 49 29 AB 4E 00 B7 11 |<.A(I).A(I).N...| 000009B0: 6E 0F 89 34 33 36 30 00 E3 11 A0 0F 99 22 53 4F |n..4360......"SO| 000009C0: 52 52 59 2C 20 49 4E 46 4C 41 54 49 4F 4E 20 49 |RRY, INFLATION I| 000009D0: 4E 43 52 45 41 53 45 44 20 54 48 45 20 43 4F 53 |NCREASED THE COS| 000009E0: 54 53 22 00 06 12 D2 0F 99 22 4F 46 20 59 4F 55 |TS"......"OF YOU| 000009F0: 52 20 22 50 24 28 53 2C 53 AA 33 29 3B 22 20 50 |R "P$(S,S.3);" P| 00000A00: 4C 41 4E 54 2E 22 00 16 12 DC 0F 81 50 B2 31 A4 |LANT."......P.1.| 00000A10: 32 35 30 30 3A 82 00 21 12 04 10 89 20 33 38 35 |2500:..!.... 385| 00000A20: 30 00 4D 12 36 10 99 22 52 45 50 41 49 52 53 20 |0.M.6.."REPAIRS | 00000A30: 41 52 45 20 4E 45 45 44 45 44 20 4F 4E 20 54 48 |ARE NEEDED ON TH| 00000A40: 45 20 54 55 52 42 49 4E 45 20 4F 46 22 00 6C 12 |E TURBINE OF".l.| 00000A50: 68 10 99 22 54 48 45 20 22 3B 50 24 28 53 2C 53 |h.."THE ";P$(S,S| 00000A60: AA 33 29 3B 22 20 50 4C 41 4E 54 22 00 7C 12 72 |.3);" PLANT".|.r| 00000A70: 10 81 50 B2 31 A4 32 35 30 30 3A 82 00 B0 12 9A |..P.1.2500:.....| 00000A80: 10 4E B2 B5 28 28 41 28 49 29 AB 41 28 49 29 AC |.N..((A(I).A(I).| 00000A90: 45 28 49 29 AD 31 30 30 29 AC 37 2E 35 AC 28 31 |E(I).100).7.5.(1| 00000AA0: AB BB 28 30 29 AD 31 30 29 AA 2E 35 29 AD 31 30 |..(0).10)..5).10| 00000AB0: 00 CC 12 A4 10 45 28 49 29 B2 45 28 49 29 AC 41 |.....E(I).E(I).A| 00000AC0: 28 49 29 AD 28 41 28 49 29 AB 4E 29 00 D6 12 FE |(I).(A(I).N)....| 00000AD0: 10 89 33 38 35 30 00 DC 12 08 11 8E 00 F3 12 26 |..3850.........&| 00000AE0: 11 45 28 49 29 B2 45 28 49 29 AC 41 28 49 29 AD |.E(I).E(I).A(I).| 00000AF0: 31 30 30 00 06 13 30 11 41 28 49 29 B2 41 28 49 |100...0.A(I).A(I| 00000B00: 29 AB 45 28 49 29 00 24 13 3A 11 45 28 49 29 B2 |).E(I).$.:.E(I).| 00000B10: 45 28 49 29 AC BB 28 30 29 AA 49 31 AC 41 28 49 |E(I)..(0).I1.A(I| 00000B20: 29 AD 31 30 00 42 13 44 11 45 28 49 29 B2 B4 28 |).10.B.D.E(I)..(| 00000B30: 45 28 49 29 29 AC 28 B6 28 45 28 49 29 29 AA 2E |E(I)).(.(E(I))..| 00000B40: 35 29 00 5C 13 62 11 8B 45 28 49 29 B3 B2 30 B0 |5).\.b..E(I)..0.| 00000B50: 45 28 49 29 B1 B2 31 A7 34 35 35 30 00 67 13 94 |E(I)..1.4550.g..| 00000B60: 11 45 28 49 29 B2 31 00 83 13 C6 11 45 28 49 29 |.E(I).1.....E(I)| 00000B70: B2 B4 28 45 28 49 29 29 AC B5 28 B6 28 45 28 49 |..(E(I))..(.(E(I| 00000B80: 29 29 29 00 89 13 D0 11 8E 00 9D 13 F8 11 8B 4D |)))............M| 00000B90: 28 49 29 B3 32 AC 4C 31 A7 34 37 30 30 00 B4 13 |(I).2.L1.4700...| 00000BA0: 2A 12 4D 28 49 29 B2 32 AC 4C 31 AC 28 31 AB BB |*.M(I).2.L1.(1..| 00000BB0: 28 30 29 29 00 C8 13 5C 12 4D 28 49 29 B2 B5 28 |(0))...\.M(I)..(| 00000BC0: 4D 28 49 29 AA 2E 35 29 00 D5 13 8E 12 46 B2 4D |M(I)..5).....F.M| 00000BD0: 28 49 29 AA 46 00 DC 13 C0 12 82 49 00 E7 13 F2 |(I).F......I....| 00000BE0: 12 46 B2 B5 28 46 29 00 F4 13 24 13 4C 31 B2 B5 |.F..(F)...$.L1..| 00000BF0: 28 4C 31 29 00 FF 13 56 13 50 B2 46 AB 4C 31 00 |(L1)...V.P.F.L1.| 00000C00: 2A 14 88 13 99 22 11 54 48 45 20 45 4C 45 43 54 |*....".THE ELECT| 00000C10: 52 49 43 41 4C 20 4C 4F 41 44 20 4E 45 45 44 45 |RICAL LOAD NEEDE| 00000C20: 44 20 49 4E 20 59 4F 55 52 22 00 51 14 92 13 99 |D IN YOUR".Q....| 00000C30: 22 53 45 52 56 49 43 45 20 41 52 45 41 20 57 41 |"SERVICE AREA WA| 00000C40: 53 22 4C 31 3B 22 4D 45 47 41 57 41 54 54 53 2E |S"L1;"MEGAWATTS.| 00000C50: 22 00 7F 14 9C 13 99 22 11 54 48 45 20 4C 4F 41 |"......".THE LOA| 00000C60: 44 20 59 4F 55 20 52 45 41 43 48 45 44 20 57 41 |D YOU REACHED WA| 00000C70: 53 22 46 3B 22 4D 45 47 41 57 41 54 54 53 22 00 |S"F;"MEGAWATTS".| 00000C80: 8D 14 BA 13 8B 50 B1 30 A7 35 33 35 30 00 AD 14 |.....P.0.5350...| 00000C90: 1E 14 50 B2 AB B5 28 B6 28 50 29 AD 34 AC 28 31 |..P...(.(P).4.(1| 00000CA0: AB BB 28 30 29 AD 31 30 29 AA 2E 35 29 00 D9 14 |..(0).10)..5)...| 00000CB0: 50 14 99 22 59 4F 55 52 20 4C 4F 53 53 20 57 41 |P.."YOUR LOSS WA| 00000CC0: 53 22 B6 28 50 29 3B 22 4D 49 4C 4C 49 4F 4E 20 |S".(P);"MILLION | 00000CD0: 44 4F 4C 4C 41 52 53 2E 22 00 E3 14 82 14 54 B2 |DOLLARS.".....T.| 00000CE0: 54 AA 50 00 ED 14 8C 14 4C B2 4C AB 50 00 F7 14 |T.P.....L.L.P...| 00000CF0: 96 14 54 39 B2 31 30 00 01 15 B4 14 89 36 30 30 |..T9.10......600| 00000D00: 30 00 16 15 E6 14 50 B2 B5 28 50 AD 32 AC BB 28 |0.....P..(P.2..(| 00000D10: 30 29 AA 2E 35 29 00 24 15 18 15 8B 50 B1 31 A7 |0)..5).$....P.1.| 00000D20: 35 35 30 30 00 2C 15 4A 15 50 B2 31 00 36 15 7C |5500.,.J.P.1.6.|| 00000D30: 15 54 B2 54 AA 50 00 62 15 AE 15 99 22 11 59 4F |.T.T.P.b....".YO| 00000D40: 55 52 20 50 52 4F 46 49 54 20 57 41 53 22 50 3B |UR PROFIT WAS"P;| 00000D50: 22 4D 49 4C 4C 49 4F 4E 20 44 4F 4C 4C 41 52 53 |"MILLION DOLLARS| 00000D60: 2E 22 00 71 15 E0 15 8B 54 B1 B2 30 A7 35 37 35 |.".q....T..0.575| 00000D70: 30 00 7A 15 12 16 4C B2 AB 54 00 84 15 44 16 89 |0.z...L..T...D..| 00000D80: 35 32 37 30 00 94 15 76 16 8B 50 AB 4C B3 30 A7 |5270...v..P.L.0.| 00000D90: 35 32 36 30 00 A6 15 0C 17 54 39 B2 31 30 AA 28 |5260.....T9.10.(| 00000DA0: 28 50 AB 4C 29 29 00 AE 15 3E 17 4C B2 30 00 DD |(P.L))...>.L.0..| 00000DB0: 15 70 17 99 22 11 50 4C 41 4E 54 22 A6 35 29 3B |.p..".PLANT".5);| 00000DC0: 22 4D 45 47 41 57 41 54 54 53 20 20 20 20 20 45 |"MEGAWATTS E| 00000DD0: 43 4F 4C 4F 47 59 20 55 4E 49 54 53 22 00 EA 15 |COLOGY UNITS"...| 00000DE0: A2 17 45 31 B2 30 3A 4D B2 30 00 F5 15 D4 17 81 |..E1.0:M.0......| 00000DF0: 49 B2 31 A4 34 00 01 16 06 18 53 B2 34 AC 49 AB |I.1.4.....S.4.I.| 00000E00: 33 00 1F 16 38 18 8B 50 24 28 53 2C 53 AA 33 29 |3...8..P$(S,S.3)| 00000E10: 20 B2 22 46 49 4E 49 22 20 A7 20 36 34 35 30 00 | ."FINI" . 6450.| 00000E20: 2C 16 6A 18 4D B2 4D AA 4D 28 49 29 00 4F 16 9C |,.j.M.M.M(I).O..| 00000E30: 18 99 50 24 28 53 2C 53 AA 33 29 3B A3 39 29 3B |..P$(S,S.3);.9);| 00000E40: 4D 28 49 29 3B A6 31 31 29 20 3B 45 28 49 29 00 |M(I);.11) ;E(I).| 00000E50: 5E 16 CE 18 45 31 B2 45 31 AA 45 28 49 29 00 65 |^...E1.E1.E(I).e| 00000E60: 16 00 19 82 49 00 71 16 32 19 59 31 B2 59 31 AA |....I.q.2.Y1.Y1.| 00000E70: 31 00 96 16 64 19 4C 31 B2 B5 28 31 30 30 AC 28 |1...d.L1..(100.(| 00000E80: 31 AA 59 31 AD 38 AC 28 31 AB BB 28 30 29 AD 38 |1.Y1.8.(1..(0).8| 00000E90: 29 29 AA 2E 35 29 00 B1 16 96 19 99 22 54 4F 54 |))..5)......"TOT| 00000EA0: 41 4C 22 3B A6 34 29 3B 4D 3B A6 31 31 29 3B 45 |AL";.4);M;.11);E| 00000EB0: 31 00 B7 16 C8 19 99 00 C2 16 FA 19 45 B2 45 AA |1...........E.E.| 00000EC0: 45 31 00 D9 16 2C 1A 99 22 45 43 4F 4C 4F 47 59 |E1...,.."ECOLOGY| 00000ED0: 20 55 4E 49 54 53 3D 22 45 00 DF 16 5E 1A 99 00 | UNITS="E...^...| 00000EE0: E9 16 90 1A 59 B2 59 AA 35 00 F8 16 C2 1A 8B 59 |....Y.Y.5......Y| 00000EF0: 31 B1 36 A7 37 30 30 30 00 1F 17 F4 1A 99 22 52 |1.6.7000......"R| 00000F00: 45 41 44 59 20 46 4F 52 20 54 48 45 20 4E 45 58 |EADY FOR THE NEX| 00000F10: 54 20 46 49 56 45 20 59 45 41 52 53 3F 22 3B 00 |T FIVE YEARS?";.| 00000F20: 33 17 FE 1A A1 42 24 3A 8B 42 24 B2 22 22 A7 36 |3....B$:.B$."".6| 00000F30: 39 31 30 00 43 17 08 1B 8B 42 24 B2 22 59 22 A7 |910.C....B$."Y".| 00000F40: 36 36 30 00 4D 17 26 1B 89 36 39 31 30 00 75 17 |660.M.&..6910.u.| 00000F50: 58 1B 99 22 20 20 50 52 45 53 53 20 41 4E 59 20 |X.." PRESS ANY | 00000F60: 4B 45 59 20 54 4F 20 47 45 54 20 45 56 41 4C 55 |KEY TO GET EVALU| 00000F70: 41 54 49 4F 4E 00 89 17 62 1B A1 42 24 3A 8B 42 |ATION...b..B$:.B| 00000F80: 24 B2 22 22 A7 37 30 31 30 00 B5 17 6C 1B 99 22 |$."".7010...l.."| 00000F90: 93 11 11 11 20 20 20 54 4F 54 41 4C 20 44 4F 4C |.... TOTAL DOL| 00000FA0: 4C 41 52 53 20 20 20 20 20 20 20 20 20 45 43 4F |LARS ECO| 00000FB0: 4C 4F 47 59 22 00 D0 17 8A 1B 99 20 A3 35 29 3B |LOGY"...... .5);| 00000FC0: 54 3B 22 4D 49 4C 4C 49 4F 4E 22 A6 38 29 3B 45 |T;"MILLION".8);E| 00000FD0: 00 DE 17 BC 1B 8B 54 B3 4B A7 37 32 35 30 00 0B |......T.K.7250..| 00000FE0: 18 EE 1B 99 22 20 43 4F 4E 47 52 41 54 55 4C 41 |...." CONGRATULA| 00000FF0: 54 49 4F 4E 53 20 4F 4E 20 4D 41 4B 49 4E 47 20 |TIONS ON MAKING | 00001000: 41 20 50 52 4F 46 49 54 21 21 22 00 15 18 20 1C |A PROFIT!!"... .| 00001010: 89 37 33 35 30 00 43 18 52 1C 99 22 20 54 52 59 |.7350.C.R.." TRY| 00001020: 20 41 47 41 49 4E 2C 20 59 4F 55 27 52 45 20 47 | AGAIN, YOU'RE G| 00001030: 4F 49 4E 47 20 54 4F 20 4E 45 45 44 20 4D 4F 4E |OING TO NEED MON| 00001040: 45 59 22 00 68 18 66 1C 99 22 20 49 4E 20 32 30 |EY".h.f.." IN 20| 00001050: 30 35 20 54 4F 20 46 45 45 44 20 59 4F 55 52 20 |05 TO FEED YOUR | 00001060: 46 41 4D 49 4C 59 2E 22 00 77 18 B6 1C 8B 45 B3 |FAMILY.".w....E.| 00001070: 38 30 A7 37 35 30 30 00 A3 18 E8 1C 99 22 20 59 |80.7500......" Y| 00001080: 4F 55 20 47 45 54 20 41 20 47 4F 4C 44 20 53 54 |OU GET A GOLD ST| 00001090: 41 52 20 46 4F 52 20 59 4F 55 52 20 57 4F 52 4B |AR FOR YOUR WORK| 000010A0: 20 49 4E 00 BC 18 FC 1C 99 22 20 54 48 45 20 45 | IN......" THE E| 000010B0: 4E 56 49 52 4F 4E 4D 45 4E 54 2E 22 00 CB 18 06 |NVIRONMENT."....| 000010C0: 1D 8B 54 B1 B2 4B A7 37 35 35 30 00 D5 18 1A 1D |..T..K.7550.....| 000010D0: 89 37 35 35 30 00 FF 18 4C 1D 99 22 20 4D 41 59 |.7550...L.." MAY| 000010E0: 20 42 45 20 59 4F 55 20 53 48 4F 55 4C 44 20 54 | BE YOU SHOULD T| 000010F0: 52 59 20 41 47 41 49 4E 3F 20 20 54 48 49 53 00 |RY AGAIN? THIS.| 00001100: 37 19 56 1D 99 22 20 54 49 4D 45 20 41 54 54 45 |7.V.." TIME ATTE| 00001110: 4D 50 54 20 54 4F 20 4B 45 45 50 20 54 48 45 20 |MPT TO KEEP THE | 00001120: 41 49 52 20 41 4E 44 20 57 41 54 45 52 20 20 43 |AIR AND WATER C| 00001130: 4C 45 41 4E 45 52 2E 00 74 19 60 1D 85 22 11 20 |LEANER..t.`..". | 00001140: 44 4F 20 59 4F 55 20 57 41 4E 54 20 41 4E 4F 54 |DO YOU WANT ANOT| 00001150: 48 45 52 20 47 41 4D 45 20 20 20 D2 9D 9D 9D 22 |HER GAME ...."| 00001160: 3B 42 24 3A 8B C8 28 42 24 2C 31 29 B2 22 59 22 |;B$:..(B$,1)."Y"| 00001170: A7 32 35 30 00 7A 19 7E 1D 80 00 00 00 |.250.z.~..... |
.......53272,21:..*.2..P$(20,20),A(4),E(
4).Y.<.. THIS IS 16K VERSION IN WHICH P$
SHOULD BE (20,20) -FOR DATA COLLECTION
?..._..".....WELCOME TO THE ELECTRIC UTI
LITY PROGRAM.".P.D.."... MINI
-EDISON"...E..".... IF YOU NEED INSTRUCT
IONS, LOAD IN THE".2.F..".PREVIOUS PROGR
AM . POWER INSTRUCTIONS. ".].I.."..
TYPE .SPACE. TO CONTINUE".P.N..B$:.B
$."".110......". IF YOU WANT TO QUIT A
ND START OVER".M...." TYPE .QUIT,0,0. T
O END TYPE .END,0,0."......" WHEN THE CO
MPUTER PRINTS A QUESTION MARK(?).".;
....".. NOW YOU ARE READY TO BEGIN R.
..";B$:.250.O.H..".. YOU CAN'T QUIT....
YOU'RE FIRED !!":.7520....F.0:T.0:L.0.
..,.Y1.1...^.E.90.....Y.1980...B.I1.0...
..L1.100...X.T9.10.R....".FOR THE YEAR";
Y;......"THE LOAD NEEDED IS" L1;"MEGAWAT
TS..".2.P.."YOU HAVE ."T9;". . MILLION D
OLLARS TO SPEND:.".\...."PLANT, HOW MANY
MILLION, % ECOLOGY".D. .I.1.M.R.T1.0...
..." .....
........................R...";B$......B$
."COAL".B$."OIL".B$."GAS".B$."NUC".970..
....B$."QUIT" . 200......B$."END" . 7520
.I.E..".THERE IS NO PLANT NAMED ."B$".."
:.J.1.1500:.:.900.Z.J.A(I)..(A(I))...T..
"..............R...";E$:A(I).E(E$).....E
(I)..(E(I)).H...."......................
.....R...";E$:E(I).E(E$)...~.P$(4.I.3,4.
I).B$......A(I).0.1350.....B$."YOU MUST
INVEST SOME MONEY"......1450.0.F..E(I)..
100.1550.Z.X.B$."ECOLOGY CANNOT BE OVER
100 UNITS".~...."REENTER ALL DATA, PLEAS
E.";B$......900.....T1.T1.A(I)...@..T1.T
9.1850...R..T1.T9.1950.D.V..I.3.1950.N..
.I.I.1.W....900...:.."SORRY,YOU ARE ALLO
WED ONLY"T9;.'.D.."MILLION DOLLARS. PLEA
SE START OVER.".0.L..720.8...F.0.S.P.P$(
4.I.1,4.I.4)."FINI".^....I.1.4.J.4.S.4.I
.3...F..P$(S,S.3)."FINI".4850. .J..P$(S,
S.3)."OIL" .2650......P$(S,S.3)."GAS" .2
850.V....P$(S,S.3)."COAL".3050...`..P$(S
,S.3)."NUC" .3250...Z.. OIL...D..E(I).10
0. 2700...N..3400.,...I1..5.(1.Y1.5).6..
..4390.Y...M(I).A(I).(10.125.(1..(0).10)
).C....4600.M.".. GAS...,..E(I).100.2900
...6..3400...T.I1..4.(1.Y1.5)...^..4390.
J...M(I).A(I).(10.112.(1..(0).10)).T....
4600...... COAL......E(I).100.3100......
3400.....I1..8.(1.Y1.5)...&..4390.:.N.M(
I).A(I).(10.187.(.(0).10)).D....4600.R..
.. NUCLEAR.E....E(I).100.3300.O.F..3400.
....I1..7.(1.Y1.10)......4390.....M(I).A
(I).(10.145.(1.Y1.25).(.(0).10)).B. ..46
00...H.N.. (A(I).3.(1..(0).5)..5).10....
...(0)..9.3700.......(0)..1.4000.......(
.(0).10).5.4150.).B..4360.I.T.."SORRY, Y
OU HAD A UNION STRIKE ON YOUR ",P$(S,S.3
);"PLANT"......"YOU LOST"N;"MILLION DOLL
ARS."......P.1.2500:....<.A(I).A(I).N...
N..4360... .."SORRY, INFLATION INCREASED
THE COSTS"...R.."OF YOUR "P$(S,S.3);" P
LANT."......P.1.2500:..!.... 3850.M.6.."
REPAIRS ARE NEEDED ON THE TURBINE OF".L.
H.."THE ";P$(S,S.3);" PLANT".|.R..P.1.25
00:......N..((A(I).A(I).E(I).100).7.5.(1
..(0).10)..5).10.L...E(I).E(I).A(I).(A(I
).N).V....3850.........&.E(I).E(I).A(I).
100...0.A(I).A(I).E(I).$.:.E(I).E(I)..(0
).I1.A(I).10.B.D.E(I)..(E(I)).(.(E(I))..
5).\.B..E(I)..0.E(I)..1.4550.G...E(I).1.
..F.E(I)..(E(I))..(.(E(I)))...P........M
(I).2.L1.4700...*.M(I).2.L1.(1..(0)).H.\
.M(I)..(M(I)..5).U...F.M(I).F......I....
.F..(F)...$.L1..(L1)...V.P.F.L1.*....".T
HE ELECTRICAL LOAD NEEDED IN YOUR".Q....
"SERVICE AREA WAS"L1;"MEGAWATTS."....."
.THE LOAD YOU REACHED WAS"F;"MEGAWATTS".
.....P.0.5350.....P...(.(P).4.(1..(0).10
)..5).Y.P.."YOUR LOSS WAS".(P);"MILLION
DOLLARS.".....T.T.P.....L.L.P.....T9.10.
.....6000.....P..(P.2..(0)..5).$....P.1.
5500.,.J.P.1.6.|.T.T.P.B....".YOUR PROFI
T WAS"P;"MILLION DOLLARS.".Q....T..0.575
0.Z...L..T...D..5270...V..P.L.0.5260....
.T9.10.((P.L))...>.L.0...P..".PLANT".5);
"MEGAWATTS ECOLOGY UNITS".....E1.0:M
.0...T..I.1.4.....S.4.I.3...8..P$(S,S.3)
."FINI" . 6450.,.J.M.M.M(I).O....P$(S,S
.3);.9);M(I);.11) ;E(I).^.N.E1.E1.E(I).E
....I.Q.2.Y1.Y1.1...D.L1..(100.(1.Y1.8.(
1..(0).8))..5)......"TOTAL";.4);M;.11);E
1...H...B...E.E.E1.Y.,.."ECOLOGY UNITS="
E...^.......Y.Y.5...B..Y1.6.7000......"R
EADY FOR THE NEXT FIVE YEARS?";.3....B$:
.B$."".6910.C....B$."Y".660.M.&..6910.U.
X.." PRESS ANY KEY TO GET EVALUATION...
B..B$:.B$."".7010...L..".... TOTAL DOL
LARS ECOLOGY".P.... .5);T;"MILLI
ON".8);E......T.K.7250......" CONGRATULA
TIONS ON MAKING A PROFIT!!"... ..7350.C.
R.." TRY AGAIN, YOU'RE GOING TO NEED MON
EY".H.F.." IN 2005 TO FEED YOUR FAMILY."
.W....E.80.7500......" YOU GET A GOLD ST
AR FOR YOUR WORK IN......" THE ENVIRONME
NT.".K....T..K.7550.U....7550...L.." MAY
BE YOU SHOULD TRY AGAIN? THIS.7.V.." T
IME ATTEMPT TO KEEP THE AIR AND WATER C
LEANER..T.`..". DO YOU WANT ANOTHER GAME
R...";B$:.H(B$,1)."Y".250.Z.~.....
> CLICK IMAGE PREVIEW FOR FULL MODAL