Home » Personal collection » Acorn ADFS disks » Electron » EUG_submission.ADF » Sim/SIMCIT2

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 ADFS disks » Electron » EUG_submission.ADF
Filename: Sim/SIMCIT2
Read OK:
File size: 038C bytes
Load address: FFFF0E00
Exec address: FFFF802B
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
Sim/SIMCIT2.m0
Sim/SIMCIT2.m1
Sim/SIMCIT2.m2
Sim/SIMCIT2.m4
Sim/SIMCIT2.m5