Home » Personal collection » Acorn hard disk » misc » misc3 » eug_titles/Sim/SIMCIT2
eug_titles/Sim/SIMCIT2
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Personal collection » Acorn hard disk » misc » misc3 |
| Filename: | eug_titles/Sim/SIMCIT2 |
| Read OK: | ✔ |
| File size: | 038C bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
Duplicates
There are 6 duplicate copies of this file in the archive:
- STH website » Superior » Superior_SimCity_SimCity.ssd » SIMCIT2
- STH website » Superior » Superior_SimCity_B_SimCity_B.uef » SIMCIT2
- Personal collection » Acorn DFS disks » dfs_box04_disk03_adt.scp » SIMCIT2
- Personal collection » Acorn ADFS disks » Electron » EUG_submission.ADF » Sim/SIMCIT2
- Personal collection » Acorn ADFS disks » Greaseweazled » dfs_box04_disk01b_adfs_welcome_disk_interleaved.adf » Sim/SIMCIT2
- Personal collection » Acorn hard disk » misc » misc3 » eug_titles/Sim/SIMCIT2
- Personal collection » Acorn tapes » Commercial_Releases » box05_tape04a_acorn_sim_city_bbc.wav » SIMCIT2
File contents
0ONERRORPRINT$3039:X%=INKEY200:GOTO999
1*/SIM2
10CLEAR:P%=B%+C%+D%+I%+J%+M%+N%+O%:T%=71*P%+51*!368:?406=T%DIV25000:PROCA(STR$T%,12,3214):?405=?376/2.58:!348=VAL$4352+(T%*?136)DIV150:IFP%=0ORP%-Z%<0OR(K%=0ANDL%=0):!352=0 ELSE!352=100*(P%-Z%)DIVP%
20PROCA(STR$(P%*250+105*!368),11,3239):IF?110=100:!348=!348-!336-!340-!344:PROCA(STR$!348,8,949):GOTO999
25?377=((E%+F%)*2)DIV(B%+C%+D%+1)+(10*!340)DIV(1+!360):?378=15-K%-C%DIV28:?382=M%DIV128+?387*2-L%+O%+N%+I%+?390+!368DIV64:?376=?373*(?390/100):?375=?372*(?390/100):?&374=?371*(?390/100)
26X%=B%-C%-D%:?373=(X%ANDX%>0)-((X%-46)ANDX%>46):X%=C%+D%-B%:?381=(X%ANDX%>0)-((X%-46)ANDX%>46):?379=I%+H%DIV64+5-T%DIV2500+(10*!344)DIV(1+!364):?380=J%+5-T%DIV2500+(10*!336)DIV(1+!356):IF?379>100:?379=0 ELSEIF?380>100:?380=0
30!360=E%+4*F%:!364=100*I%:!356=100*J%:PROCA(STR$!348,12,W%+84):?400=-(!360+!364+!356>!348):!401=(!348DIV3 AND?400=1):PROCA(STR$((T%*?136)DIV150),6,W%+33)
999?110=0:CALLA%:GOTO10
1010DEFPROCA(A$,X%,Y%):$320=LEFT$($3055,X%-LENA$)+A$:FORV%=1TOX%:V%?Y%=V%?319:NEXT:ENDPROC
��$3039:X%=�200:�dgC */SIM2 ��:P%=B%+C%+D%+I%+J%+M%+N%+O%:T%=71*P%+51*!368:?406=T%�25000:�A(�T%,12,3214):?405=?376/2.58:!348=�$4352+(T%*?136)�150:�P%=0�P%-Z%<0�(K%=0�L%=0):!352=0 �!352=100*(P%-Z%)�P% [�A(�(P%*250+105*!368),11,3239):�?110=100:!348=!348-!336-!340-!344:�A(�!348,8,949):�dgC �?377=((E%+F%)*2)�(B%+C%+D%+1)+(10*!340)�(1+!360):?378=15-K%-C%�28:?382=M%�128+?387*2-L%+O%+N%+I%+?390+!368�64:?376=?373*(?390/100):?375=?372*(?390/100):?&374=?371*(?390/100) �X%=B%-C%-D%:?373=(X%�X%>0)-((X%-46)�X%>46):X%=C%+D%-B%:?381=(X%�X%>0)-((X%-46)�X%>46):?379=I%+H%�64+5-T%�2500+(10*!344)�(1+!364):?380=J%+5-T%�2500+(10*!336)�(1+!356):�?379>100:?379=0 ��?380>100:?380=0 �!360=E%+4*F%:!364=100*I%:!356=100*J%:�A(�!348,12,W%+84):?400=-(!360+!364+!356>!348):!401=(!348�3 �?400=1):�A(�((T%*?136)�150),6,W%+33) �?110=0:�A%:�TJ@ �B��A(A$,X%,Y%):$320=�$3055,X%-�A$)+A$:�V%=1�X%:V%?Y%=V%?319:�:� �
00000000 0d 00 00 1a ee 85 f1 24 33 30 33 39 3a 58 25 3d |.......$3039:X%=| 00000010 a6 32 30 30 3a e5 8d 64 67 43 0d 00 01 0a 2a 2f |.200:..dgC....*/| 00000020 53 49 4d 32 0d 00 0a ae d8 3a 50 25 3d 42 25 2b |SIM2.....:P%=B%+| 00000030 43 25 2b 44 25 2b 49 25 2b 4a 25 2b 4d 25 2b 4e |C%+D%+I%+J%+M%+N| 00000040 25 2b 4f 25 3a 54 25 3d 37 31 2a 50 25 2b 35 31 |%+O%:T%=71*P%+51| 00000050 2a 21 33 36 38 3a 3f 34 30 36 3d 54 25 81 32 35 |*!368:?406=T%.25| 00000060 30 30 30 3a f2 41 28 c3 54 25 2c 31 32 2c 33 32 |000:.A(.T%,12,32| 00000070 31 34 29 3a 3f 34 30 35 3d 3f 33 37 36 2f 32 2e |14):?405=?376/2.| 00000080 35 38 3a 21 33 34 38 3d bb 24 34 33 35 32 2b 28 |58:!348=.$4352+(| 00000090 54 25 2a 3f 31 33 36 29 81 31 35 30 3a e7 50 25 |T%*?136).150:.P%| 000000a0 3d 30 84 50 25 2d 5a 25 3c 30 84 28 4b 25 3d 30 |=0.P%-Z%<0.(K%=0| 000000b0 80 4c 25 3d 30 29 3a 21 33 35 32 3d 30 20 8b 21 |.L%=0):!352=0 .!| 000000c0 33 35 32 3d 31 30 30 2a 28 50 25 2d 5a 25 29 81 |352=100*(P%-Z%).| 000000d0 50 25 0d 00 14 5b f2 41 28 c3 28 50 25 2a 32 35 |P%...[.A(.(P%*25| 000000e0 30 2b 31 30 35 2a 21 33 36 38 29 2c 31 31 2c 33 |0+105*!368),11,3| 000000f0 32 33 39 29 3a e7 3f 31 31 30 3d 31 30 30 3a 21 |239):.?110=100:!| 00000100 33 34 38 3d 21 33 34 38 2d 21 33 33 36 2d 21 33 |348=!348-!336-!3| 00000110 34 30 2d 21 33 34 34 3a f2 41 28 c3 21 33 34 38 |40-!344:.A(.!348| 00000120 2c 38 2c 39 34 39 29 3a e5 8d 64 67 43 0d 00 19 |,8,949):..dgC...| 00000130 b1 3f 33 37 37 3d 28 28 45 25 2b 46 25 29 2a 32 |.?377=((E%+F%)*2| 00000140 29 81 28 42 25 2b 43 25 2b 44 25 2b 31 29 2b 28 |).(B%+C%+D%+1)+(| 00000150 31 30 2a 21 33 34 30 29 81 28 31 2b 21 33 36 30 |10*!340).(1+!360| 00000160 29 3a 3f 33 37 38 3d 31 35 2d 4b 25 2d 43 25 81 |):?378=15-K%-C%.| 00000170 32 38 3a 3f 33 38 32 3d 4d 25 81 31 32 38 2b 3f |28:?382=M%.128+?| 00000180 33 38 37 2a 32 2d 4c 25 2b 4f 25 2b 4e 25 2b 49 |387*2-L%+O%+N%+I| 00000190 25 2b 3f 33 39 30 2b 21 33 36 38 81 36 34 3a 3f |%+?390+!368.64:?| 000001a0 33 37 36 3d 3f 33 37 33 2a 28 3f 33 39 30 2f 31 |376=?373*(?390/1| 000001b0 30 30 29 3a 3f 33 37 35 3d 3f 33 37 32 2a 28 3f |00):?375=?372*(?| 000001c0 33 39 30 2f 31 30 30 29 3a 3f 26 33 37 34 3d 3f |390/100):?&374=?| 000001d0 33 37 31 2a 28 3f 33 39 30 2f 31 30 30 29 0d 00 |371*(?390/100)..| 000001e0 1a cc 58 25 3d 42 25 2d 43 25 2d 44 25 3a 3f 33 |..X%=B%-C%-D%:?3| 000001f0 37 33 3d 28 58 25 80 58 25 3e 30 29 2d 28 28 58 |73=(X%.X%>0)-((X| 00000200 25 2d 34 36 29 80 58 25 3e 34 36 29 3a 58 25 3d |%-46).X%>46):X%=| 00000210 43 25 2b 44 25 2d 42 25 3a 3f 33 38 31 3d 28 58 |C%+D%-B%:?381=(X| 00000220 25 80 58 25 3e 30 29 2d 28 28 58 25 2d 34 36 29 |%.X%>0)-((X%-46)| 00000230 80 58 25 3e 34 36 29 3a 3f 33 37 39 3d 49 25 2b |.X%>46):?379=I%+| 00000240 48 25 81 36 34 2b 35 2d 54 25 81 32 35 30 30 2b |H%.64+5-T%.2500+| 00000250 28 31 30 2a 21 33 34 34 29 81 28 31 2b 21 33 36 |(10*!344).(1+!36| 00000260 34 29 3a 3f 33 38 30 3d 4a 25 2b 35 2d 54 25 81 |4):?380=J%+5-T%.| 00000270 32 35 30 30 2b 28 31 30 2a 21 33 33 36 29 81 28 |2500+(10*!336).(| 00000280 31 2b 21 33 35 36 29 3a e7 3f 33 37 39 3e 31 30 |1+!356):.?379>10| 00000290 30 3a 3f 33 37 39 3d 30 20 8b e7 3f 33 38 30 3e |0:?379=0 ..?380>| 000002a0 31 30 30 3a 3f 33 38 30 3d 30 0d 00 1e 8a 21 33 |100:?380=0....!3| 000002b0 36 30 3d 45 25 2b 34 2a 46 25 3a 21 33 36 34 3d |60=E%+4*F%:!364=| 000002c0 31 30 30 2a 49 25 3a 21 33 35 36 3d 31 30 30 2a |100*I%:!356=100*| 000002d0 4a 25 3a f2 41 28 c3 21 33 34 38 2c 31 32 2c 57 |J%:.A(.!348,12,W| 000002e0 25 2b 38 34 29 3a 3f 34 30 30 3d 2d 28 21 33 36 |%+84):?400=-(!36| 000002f0 30 2b 21 33 36 34 2b 21 33 35 36 3e 21 33 34 38 |0+!364+!356>!348| 00000300 29 3a 21 34 30 31 3d 28 21 33 34 38 81 33 20 80 |):!401=(!348.3 .| 00000310 3f 34 30 30 3d 31 29 3a f2 41 28 c3 28 28 54 25 |?400=1):.A(.((T%| 00000320 2a 3f 31 33 36 29 81 31 35 30 29 2c 36 2c 57 25 |*?136).150),6,W%| 00000330 2b 33 33 29 0d 03 e7 14 3f 31 31 30 3d 30 3a d6 |+33)....?110=0:.| 00000340 41 25 3a e5 8d 54 4a 40 0d 03 f2 42 dd f2 41 28 |A%:..TJ@...B..A(| 00000350 41 24 2c 58 25 2c 59 25 29 3a 24 33 32 30 3d c0 |A$,X%,Y%):$320=.| 00000360 24 33 30 35 35 2c 58 25 2d a9 41 24 29 2b 41 24 |$3055,X%-.A$)+A$| 00000370 3a e3 56 25 3d 31 b8 58 25 3a 56 25 3f 59 25 3d |:.V%=1.X%:V%?Y%=| 00000380 56 25 3f 33 31 39 3a ed 3a e1 0d ff |V%?319:.:...| 0000038c
.