Database1

Home » Personal collection » Acorn tapes » Own_Work » drawer_tl_tape05a_c15_acorn_railway.wav » Database1

Database1

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 tapes » Own_Work » drawer_tl_tape05a_c15_acorn_railway.wav
Filename:	Database1
Read OK:	✔
File size:	0A64 bytes
Load address:	FFFF0E00
Exec address:	FFFF8023

File contents

    5 ST=0
   10 MODE 4:VDU 28,0,31,39:PRINT:PRINT"MAIN MENU":N=22528
   20 PRINT"1.SAVE"
   30 PRINT"2.LOAD"
   40 PRINT"3.EDIT"
   50 PRINT"4.THINK":PRINT
   60 PRINT"PRESS THE KEY OF YOUR CHOICE"
   70 A$=GET$
   80 IF A$="1"THEN PROCsave
   90 IF A$="2"THEN PROCload
  100 IF A$="3"THEN PROCedit
  110 IF A$="4"THEN PROCthink
  120 FOR A=0 TO 16:PRINT:NEXT:GOTO 20
  130 DEFPROCsave:PRINTN
  140 *SAVE DATA 5800 7FFF
  150 ON ERROR ENDPROC
  160 *.:ENDPROC
  170 DEFPROCload:INPUTN
  180 *LOAD DATA 5800
  190 ENDPROC
  200 DEFPROCedit
  210 ON ERROR INPUTN
  220 INPUT"NUMBER 0-255";NU:IF NU>255 THEN 220
  230 IF NU<0 THEN 220 ELSE ?N=NU
  240 INPUT"BIRTHMONTH";NU:IFNU>12 THEN 240
  245 N=N+1
  250 IF NU<1 THEN 240 ELSE ?N=NU
  260 INPUT"JOB";NU:IF NU<0 THEN 260
  265 N=N+1
  270 IF NU>255 THEN 260 ELSE ?N=NU
  280 INPUT"BIRTHYEAR3";NU:IFNU>255 THEN 280
  285 N=N+1
  290 IF NU<0 THEN 280 ELSE ?N=NU
  300 INPUT"DEATHYEAR3";NU:IFNU>255 THEN 300
  305 N=N+1
  310 IF NU<0 THEN 300 ELSE ?N=NU
  320 INPUT"TYPE OF SEX";NU:IFNU>15 THEN 320
  325 N=N+1
  330 IF NU<0 THEN 320 ELSE ?N=NU
  340 INPUT"NUMBER OF WARS FORT";NU:IFNU>255 THEN 340
  345 N=N+1
  350 IF NU<0 THEN 340 ELSE ?N=NU
  360 INPUT"BROTHERS AND SISTERS";NU:IFNU>255 THEN 360
  365 N=N+1
  370 IF NU<0 THEN 360 ELSE ?N=NU
  380 INPUT"CONTINUE";C$:IF C$="C"THEN ENDPROC
  390 N=N+1:GOTO 220
  410 DEFPROCthink:PRINT"PRINTER":A$=GET$:IF A$="Y"THEN VDU 2
  415 ONERROR GOTO 120
  420 area=RND(8):ST=0
  430 type=RND(6)
  435 PRINT
  440 IF type=1 THEN PROCout_of:GOTO 420
  450 IF type=2 THEN PROCnumberg:GOTO 420
  460 IF type=3 THEN PROCnumberS:GOTO 420
  470 IF type=4 THEN PROChighest:GOTO 420
  480 IF type=5 THEN PROClowest:GOTO 420
  485 IF type=6 THEN PROCspecel:GOTO 420
  490 ENDPROC
  500 DEFPROCout_of:t=RND(255):hs=0
  510 FOR A=22528+area TO N STEP 8
  520 IF ?A=t THEN hs=hs+1
  530 NEXT
  540 PRINThs;" OUT OF ";N-22528-19712/8+2464;" HAVE";:PROCprint:PRINTt:ENDPROC
  545 DEFPROCprint
  550 IF area=1 PRINT;" NUMBERS ";
  560 IF area=2 PRINT;" BIRTHMONTHS ";
  570 IF area=3 PRINT;" JOBS ";
  580 IF area=4 PRINT;" BIRTHYEARS ";
  590 IF area=5 PRINT;" DEATHYEARS ";
  600 IF area=6 PRINT;" THE TYPE OF SEX ";
  610 IF area=7 PRINT;" THIS NUMBER OF WARS FORT ";
  620 IF area=8 PRINT;" BROTHERS AND SISTERS ";
  630 ENDPROC
  640 DEFPROCnumberg:t=RND(255):hs=0
  650 FOR A=22528+area TO N STEP 8
  660 IF ?A>t THEN hs=hs+1
  670 NEXT
  680 PRINThs;" OUT OF ";N-22528-19712/8+2464;" HAVE ";:PROCprint
  690 PRINT;"Greater then ";t
  700 ENDPROC
  710 DEFPROCnumberS:t=RND(255):hs=0
  715 FOR A=22528+area TO N STEP 8
  730 IF ?A<t THEN hs=hs+1
  740 NEXT
  750 PRINThs;" OUT OF ";N-22528-19712/8+2464;" HAVE ";:PROCprint
  760 PRINT;"Smaller then ";t
  770 ENDPROC
  780 DEFPROChighest:h=0:e=0
  790 FOR A=22528+area TO N STEP 8
  800 IF ?A>h THEN h=?A:e=A
  810 NEXT
  820 PRINT"The highest in";:PROCprint:PRINT;"=";h
  830 REM e=e-area
  840 PRINT"NUMBER=";?e:e=e+1
  850 PRINT"BIRTHMONTH=";?e:e=e+1
  860 PRINT"JOB=";?e:e=e+1
  870 PRINT"BIRTHYEAR=";?e:e=e+1
  880 PRINT"DEATHYEAR=";?e:e=e+1
  890 PRINT"TYPE OF SEX=";?e:e=e+1
  900 PRINT"WARS FORT=";?e:e=e+1
  910 PRINT"BROTHERS AND SISTERS=";?e:e=e+1:IF ST=1 THEN 990
  920 ENDPROC
  930 DEFPROClowest:h=0:e=0
  940 FOR A=22528+area TO N STEP 8
  950 IF ?A<h THEN h=?A:e=A
  960 NEXT:ST=1
  970 PRINT"THE LOWEST IN";:PROCprint:PRINT;"=";e
  980 GOTO 830
  990 ENDPROC
 1000 DEFPROCspecel
 1010 type=RND(2)
 1020 IF type=1 THEN PROCnamespos
 1030 IF type=2 THEN PROCpercent
 1040 ENDPROC

	 ST=0

, � 4:� 28,0,31,39:�:�"MAIN MENU":N=22528
 �"1.SAVE"
 �"2.LOAD"
( �"3.EDIT"
2 �"4.THINK":�
<$ �"PRESS THE KEY OF YOUR CHOICE"
F	 A$=�
P � A$="1"� �save
Z � A$="2"� �load
d � A$="3"� �edit
n � A$="4"� �think
x � A=0 � 16:�:�:� �TT@
� ��save:�N
� *SAVE DATA 5800 7FFF
�
 � � �
� *.:ENDPROC
� ��load:�N
� *LOAD DATA 5800
� �
� ��edit
� � � �N
�' �"NUMBER 0-255";NU:� NU>255 � �d\@
� � NU<0 � �d\@ � ?N=NU
�# �"BIRTHMONTH";NU:�NU>12 � �dp@
�
 N=N+1
� � NU<1 � �dp@ � ?N=NU
 �"JOB";NU:� NU<0 � �TDA
	
 N=N+1
 � NU>255 � �TDA � ?N=NU
$ �"BIRTHYEAR3";NU:�NU>255 � �TXA

 N=N+1
" � NU<0 � �TXA � ?N=NU
,$ �"DEATHYEAR3";NU:�NU>255 � �TlA
1
 N=N+1
6 � NU<0 � �TlA � ?N=NU
@$ �"TYPE OF SEX";NU:�NU>15 � �D@A
E
 N=N+1
J � NU<0 � �D@A � ?N=NU
T- �"NUMBER OF WARS FORT";NU:�NU>255 � �DTA
Y
 N=N+1
^ � NU<0 � �DTA � ?N=NU
h. �"BROTHERS AND SISTERS";NU:�NU>255 � �DhA
m
 N=N+1
r � NU<0 � �DhA � ?N=NU
| �"CONTINUE";C$:� C$="C"� �
� N=N+1:� �d\@
�* ��think:�"PRINTER":A$=�:� A$="Y"� � 2
� � � �Dx@
� area=�(8):ST=0
� type=�(6)
� �
� � type=1 � �out_of:� �tdA
� � type=2 � �numberg:� �tdA
� � type=3 � �numberS:� �tdA
� � type=4 � �highest:� �tdA
� � type=5 � �lowest:� �tdA
� � type=6 � �specel:� �tdA
� �
� ��out_of:t=�(255):hs=0
� � A=22528+area � N � 8
 � ?A=t � hs=hs+1
 �
= �hs;" OUT OF ";N-22528-19712/8+2464;" HAVE";:�print:�t:�
! ��print
& � area=1 �;" NUMBERS ";
0  � area=2 �;" BIRTHMONTHS ";
: � area=3 �;" JOBS ";
D � area=4 �;" BIRTHYEARS ";
N � area=5 �;" DEATHYEARS ";
X$ � area=6 �;" THE TYPE OF SEX ";
b- � area=7 �;" THIS NUMBER OF WARS FORT ";
l) � area=8 �;" BROTHERS AND SISTERS ";
v �
� ��numberg:t=�(255):hs=0
� � A=22528+area � N � 8
� � ?A>t � hs=hs+1
� �
�9 �hs;" OUT OF ";N-22528-19712/8+2464;" HAVE ";:�print
� �;"Greater then ";t
� �
� ��numberS:t=�(255):hs=0
� � A=22528+area � N � 8
� � ?A<t � hs=hs+1
� �
�9 �hs;" OUT OF ";N-22528-19712/8+2464;" HAVE ";:�print
� �;"Smaller then ";t
 �
 ��highest:h=0:e=0
 � A=22528+area � N � 8
  � ?A>h � h=?A:e=A
* �
4& �"The highest in";:�print:�;"=";h
> � e=e-area
H �"NUMBER=";?e:e=e+1
R �"BIRTHMONTH=";?e:e=e+1
\ �"JOB=";?e:e=e+1
f �"BIRTHYEAR=";?e:e=e+1
p �"DEATHYEAR=";?e:e=e+1
z �"TYPE OF SEX=";?e:e=e+1
� �"WARS FORT=";?e:e=e+1
�4 �"BROTHERS AND SISTERS=";?e:e=e+1:� ST=1 � �d^C
� �
� ��lowest:h=0:e=0
� � A=22528+area � N � 8
� � ?A<h � h=?A:e=A
� �:ST=1
�% �"THE LOWEST IN";:�print:�;"=";e
� � �T~C
� �
�
 ��specel
� type=�(2)
� � type=1 � �namespos
 � type=2 � �percent
 �
�

00000000  0d 00 05 09 20 53 54 3d  30 0d 00 0a 2c 20 eb 20  |.... ST=0..., . |
00000010  34 3a ef 20 32 38 2c 30  2c 33 31 2c 33 39 3a f1  |4:. 28,0,31,39:.|
00000020  3a f1 22 4d 41 49 4e 20  4d 45 4e 55 22 3a 4e 3d  |:."MAIN MENU":N=|
00000030  32 32 35 32 38 0d 00 14  0e 20 f1 22 31 2e 53 41  |22528.... ."1.SA|
00000040  56 45 22 0d 00 1e 0e 20  f1 22 32 2e 4c 4f 41 44  |VE".... ."2.LOAD|
00000050  22 0d 00 28 0e 20 f1 22  33 2e 45 44 49 54 22 0d  |"..(. ."3.EDIT".|
00000060  00 32 11 20 f1 22 34 2e  54 48 49 4e 4b 22 3a f1  |.2. ."4.THINK":.|
00000070  0d 00 3c 24 20 f1 22 50  52 45 53 53 20 54 48 45  |..<$ ."PRESS THE|
00000080  20 4b 45 59 20 4f 46 20  59 4f 55 52 20 43 48 4f  | KEY OF YOUR CHO|
00000090  49 43 45 22 0d 00 46 09  20 41 24 3d be 0d 00 50  |ICE"..F. A$=...P|
000000a0  14 20 e7 20 41 24 3d 22  31 22 8c 20 f2 73 61 76  |. . A$="1". .sav|
000000b0  65 0d 00 5a 14 20 e7 20  41 24 3d 22 32 22 8c 20  |e..Z. . A$="2". |
000000c0  f2 6c 6f 61 64 0d 00 64  14 20 e7 20 41 24 3d 22  |.load..d. . A$="|
000000d0  33 22 8c 20 f2 65 64 69  74 0d 00 6e 15 20 e7 20  |3". .edit..n. . |
000000e0  41 24 3d 22 34 22 8c 20  f2 74 68 69 6e 6b 0d 00  |A$="4". .think..|
000000f0  78 1a 20 e3 20 41 3d 30  20 b8 20 31 36 3a f1 3a  |x. . A=0 . 16:.:|
00000100  ed 3a e5 20 8d 54 54 40  0d 00 82 0e 20 dd f2 73  |.:. .TT@.... ..s|
00000110  61 76 65 3a f1 4e 0d 00  8c 19 20 2a 53 41 56 45  |ave:.N.... *SAVE|
00000120  20 44 41 54 41 20 35 38  30 30 20 37 46 46 46 0d  | DATA 5800 7FFF.|
00000130  00 96 0a 20 ee 20 85 20  e1 0d 00 a0 0f 20 2a 2e  |... . . ..... *.|
00000140  3a 45 4e 44 50 52 4f 43  0d 00 aa 0e 20 dd f2 6c  |:ENDPROC.... ..l|
00000150  6f 61 64 3a e8 4e 0d 00  b4 14 20 2a 4c 4f 41 44  |oad:.N.... *LOAD|
00000160  20 44 41 54 41 20 35 38  30 30 0d 00 be 06 20 e1  | DATA 5800.... .|
00000170  0d 00 c8 0b 20 dd f2 65  64 69 74 0d 00 d2 0b 20  |.... ..edit.... |
00000180  ee 20 85 20 e8 4e 0d 00  dc 27 20 e8 22 4e 55 4d  |. . .N...' ."NUM|
00000190  42 45 52 20 30 2d 32 35  35 22 3b 4e 55 3a e7 20  |BER 0-255";NU:. |
000001a0  4e 55 3e 32 35 35 20 8c  20 8d 64 5c 40 0d 00 e6  |NU>255 . .d\@...|
000001b0  1a 20 e7 20 4e 55 3c 30  20 8c 20 8d 64 5c 40 20  |. . NU<0 . .d\@ |
000001c0  8b 20 3f 4e 3d 4e 55 0d  00 f0 23 20 e8 22 42 49  |. ?N=NU...# ."BI|
000001d0  52 54 48 4d 4f 4e 54 48  22 3b 4e 55 3a e7 4e 55  |RTHMONTH";NU:.NU|
000001e0  3e 31 32 20 8c 20 8d 64  70 40 0d 00 f5 0a 20 4e  |>12 . .dp@.... N|
000001f0  3d 4e 2b 31 0d 00 fa 1a  20 e7 20 4e 55 3c 31 20  |=N+1.... . NU<1 |
00000200  8c 20 8d 64 70 40 20 8b  20 3f 4e 3d 4e 55 0d 01  |. .dp@ . ?N=NU..|
00000210  04 1c 20 e8 22 4a 4f 42  22 3b 4e 55 3a e7 20 4e  |.. ."JOB";NU:. N|
00000220  55 3c 30 20 8c 20 8d 54  44 41 0d 01 09 0a 20 4e  |U<0 . .TDA.... N|
00000230  3d 4e 2b 31 0d 01 0e 1c  20 e7 20 4e 55 3e 32 35  |=N+1.... . NU>25|
00000240  35 20 8c 20 8d 54 44 41  20 8b 20 3f 4e 3d 4e 55  |5 . .TDA . ?N=NU|
00000250  0d 01 18 24 20 e8 22 42  49 52 54 48 59 45 41 52  |...$ ."BIRTHYEAR|
00000260  33 22 3b 4e 55 3a e7 4e  55 3e 32 35 35 20 8c 20  |3";NU:.NU>255 . |
00000270  8d 54 58 41 0d 01 1d 0a  20 4e 3d 4e 2b 31 0d 01  |.TXA.... N=N+1..|
00000280  22 1a 20 e7 20 4e 55 3c  30 20 8c 20 8d 54 58 41  |". . NU<0 . .TXA|
00000290  20 8b 20 3f 4e 3d 4e 55  0d 01 2c 24 20 e8 22 44  | . ?N=NU..,$ ."D|
000002a0  45 41 54 48 59 45 41 52  33 22 3b 4e 55 3a e7 4e  |EATHYEAR3";NU:.N|
000002b0  55 3e 32 35 35 20 8c 20  8d 54 6c 41 0d 01 31 0a  |U>255 . .TlA..1.|
000002c0  20 4e 3d 4e 2b 31 0d 01  36 1a 20 e7 20 4e 55 3c  | N=N+1..6. . NU<|
000002d0  30 20 8c 20 8d 54 6c 41  20 8b 20 3f 4e 3d 4e 55  |0 . .TlA . ?N=NU|
000002e0  0d 01 40 24 20 e8 22 54  59 50 45 20 4f 46 20 53  |..@$ ."TYPE OF S|
000002f0  45 58 22 3b 4e 55 3a e7  4e 55 3e 31 35 20 8c 20  |EX";NU:.NU>15 . |
00000300  8d 44 40 41 0d 01 45 0a  20 4e 3d 4e 2b 31 0d 01  |.D@A..E. N=N+1..|
00000310  4a 1a 20 e7 20 4e 55 3c  30 20 8c 20 8d 44 40 41  |J. . NU<0 . .D@A|
00000320  20 8b 20 3f 4e 3d 4e 55  0d 01 54 2d 20 e8 22 4e  | . ?N=NU..T- ."N|
00000330  55 4d 42 45 52 20 4f 46  20 57 41 52 53 20 46 4f  |UMBER OF WARS FO|
00000340  52 54 22 3b 4e 55 3a e7  4e 55 3e 32 35 35 20 8c  |RT";NU:.NU>255 .|
00000350  20 8d 44 54 41 0d 01 59  0a 20 4e 3d 4e 2b 31 0d  | .DTA..Y. N=N+1.|
00000360  01 5e 1a 20 e7 20 4e 55  3c 30 20 8c 20 8d 44 54  |.^. . NU<0 . .DT|
00000370  41 20 8b 20 3f 4e 3d 4e  55 0d 01 68 2e 20 e8 22  |A . ?N=NU..h. ."|
00000380  42 52 4f 54 48 45 52 53  20 41 4e 44 20 53 49 53  |BROTHERS AND SIS|
00000390  54 45 52 53 22 3b 4e 55  3a e7 4e 55 3e 32 35 35  |TERS";NU:.NU>255|
000003a0  20 8c 20 8d 44 68 41 0d  01 6d 0a 20 4e 3d 4e 2b  | . .DhA..m. N=N+|
000003b0  31 0d 01 72 1a 20 e7 20  4e 55 3c 30 20 8c 20 8d  |1..r. . NU<0 . .|
000003c0  44 68 41 20 8b 20 3f 4e  3d 4e 55 0d 01 7c 1f 20  |DhA . ?N=NU..|. |
000003d0  e8 22 43 4f 4e 54 49 4e  55 45 22 3b 43 24 3a e7  |."CONTINUE";C$:.|
000003e0  20 43 24 3d 22 43 22 8c  20 e1 0d 01 86 11 20 4e  | C$="C". ..... N|
000003f0  3d 4e 2b 31 3a e5 20 8d  64 5c 40 0d 01 9a 2a 20  |=N+1:. .d\@...* |
00000400  dd f2 74 68 69 6e 6b 3a  f1 22 50 52 49 4e 54 45  |..think:."PRINTE|
00000410  52 22 3a 41 24 3d be 3a  e7 20 41 24 3d 22 59 22  |R":A$=.:. A$="Y"|
00000420  8c 20 ef 20 32 0d 01 9f  0e 20 ee 85 20 e5 20 8d  |. . 2.... .. . .|
00000430  44 78 40 0d 01 a4 13 20  61 72 65 61 3d b3 28 38  |Dx@.... area=.(8|
00000440  29 3a 53 54 3d 30 0d 01  ae 0e 20 74 79 70 65 3d  |):ST=0.... type=|
00000450  b3 28 36 29 0d 01 b3 06  20 f1 0d 01 b8 1e 20 e7  |.(6).... ..... .|
00000460  20 74 79 70 65 3d 31 20  8c 20 f2 6f 75 74 5f 6f  | type=1 . .out_o|
00000470  66 3a e5 20 8d 74 64 41  0d 01 c2 1f 20 e7 20 74  |f:. .tdA.... . t|
00000480  79 70 65 3d 32 20 8c 20  f2 6e 75 6d 62 65 72 67  |ype=2 . .numberg|
00000490  3a e5 20 8d 74 64 41 0d  01 cc 1f 20 e7 20 74 79  |:. .tdA.... . ty|
000004a0  70 65 3d 33 20 8c 20 f2  6e 75 6d 62 65 72 53 3a  |pe=3 . .numberS:|
000004b0  e5 20 8d 74 64 41 0d 01  d6 1f 20 e7 20 74 79 70  |. .tdA.... . typ|
000004c0  65 3d 34 20 8c 20 f2 68  69 67 68 65 73 74 3a e5  |e=4 . .highest:.|
000004d0  20 8d 74 64 41 0d 01 e0  1e 20 e7 20 74 79 70 65  | .tdA.... . type|
000004e0  3d 35 20 8c 20 f2 6c 6f  77 65 73 74 3a e5 20 8d  |=5 . .lowest:. .|
000004f0  74 64 41 0d 01 e5 1e 20  e7 20 74 79 70 65 3d 36  |tdA.... . type=6|
00000500  20 8c 20 f2 73 70 65 63  65 6c 3a e5 20 8d 74 64  | . .specel:. .td|
00000510  41 0d 01 ea 06 20 e1 0d  01 f4 1b 20 dd f2 6f 75  |A.... ..... ..ou|
00000520  74 5f 6f 66 3a 74 3d b3  28 32 35 35 29 3a 68 73  |t_of:t=.(255):hs|
00000530  3d 30 0d 01 fe 1b 20 e3  20 41 3d 32 32 35 32 38  |=0.... . A=22528|
00000540  2b 61 72 65 61 20 b8 20  4e 20 88 20 38 0d 02 08  |+area . N . 8...|
00000550  15 20 e7 20 3f 41 3d 74  20 8c 20 68 73 3d 68 73  |. . ?A=t . hs=hs|
00000560  2b 31 0d 02 12 06 20 ed  0d 02 1c 3d 20 f1 68 73  |+1.... ....= .hs|
00000570  3b 22 20 4f 55 54 20 4f  46 20 22 3b 4e 2d 32 32  |;" OUT OF ";N-22|
00000580  35 32 38 2d 31 39 37 31  32 2f 38 2b 32 34 36 34  |528-19712/8+2464|
00000590  3b 22 20 48 41 56 45 22  3b 3a f2 70 72 69 6e 74  |;" HAVE";:.print|
000005a0  3a f1 74 3a e1 0d 02 21  0c 20 dd f2 70 72 69 6e  |:.t:...!. ..prin|
000005b0  74 0d 02 26 1c 20 e7 20  61 72 65 61 3d 31 20 f1  |t..&. . area=1 .|
000005c0  3b 22 20 4e 55 4d 42 45  52 53 20 22 3b 0d 02 30  |;" NUMBERS ";..0|
000005d0  20 20 e7 20 61 72 65 61  3d 32 20 f1 3b 22 20 42  |  . area=2 .;" B|
000005e0  49 52 54 48 4d 4f 4e 54  48 53 20 22 3b 0d 02 3a  |IRTHMONTHS ";..:|
000005f0  19 20 e7 20 61 72 65 61  3d 33 20 f1 3b 22 20 4a  |. . area=3 .;" J|
00000600  4f 42 53 20 22 3b 0d 02  44 1f 20 e7 20 61 72 65  |OBS ";..D. . are|
00000610  61 3d 34 20 f1 3b 22 20  42 49 52 54 48 59 45 41  |a=4 .;" BIRTHYEA|
00000620  52 53 20 22 3b 0d 02 4e  1f 20 e7 20 61 72 65 61  |RS ";..N. . area|
00000630  3d 35 20 f1 3b 22 20 44  45 41 54 48 59 45 41 52  |=5 .;" DEATHYEAR|
00000640  53 20 22 3b 0d 02 58 24  20 e7 20 61 72 65 61 3d  |S ";..X$ . area=|
00000650  36 20 f1 3b 22 20 54 48  45 20 54 59 50 45 20 4f  |6 .;" THE TYPE O|
00000660  46 20 53 45 58 20 22 3b  0d 02 62 2d 20 e7 20 61  |F SEX ";..b- . a|
00000670  72 65 61 3d 37 20 f1 3b  22 20 54 48 49 53 20 4e  |rea=7 .;" THIS N|
00000680  55 4d 42 45 52 20 4f 46  20 57 41 52 53 20 46 4f  |UMBER OF WARS FO|
00000690  52 54 20 22 3b 0d 02 6c  29 20 e7 20 61 72 65 61  |RT ";..l) . area|
000006a0  3d 38 20 f1 3b 22 20 42  52 4f 54 48 45 52 53 20  |=8 .;" BROTHERS |
000006b0  41 4e 44 20 53 49 53 54  45 52 53 20 22 3b 0d 02  |AND SISTERS ";..|
000006c0  76 06 20 e1 0d 02 80 1c  20 dd f2 6e 75 6d 62 65  |v. ..... ..numbe|
000006d0  72 67 3a 74 3d b3 28 32  35 35 29 3a 68 73 3d 30  |rg:t=.(255):hs=0|
000006e0  0d 02 8a 1b 20 e3 20 41  3d 32 32 35 32 38 2b 61  |.... . A=22528+a|
000006f0  72 65 61 20 b8 20 4e 20  88 20 38 0d 02 94 15 20  |rea . N . 8.... |
00000700  e7 20 3f 41 3e 74 20 8c  20 68 73 3d 68 73 2b 31  |. ?A>t . hs=hs+1|
00000710  0d 02 9e 06 20 ed 0d 02  a8 39 20 f1 68 73 3b 22  |.... ....9 .hs;"|
00000720  20 4f 55 54 20 4f 46 20  22 3b 4e 2d 32 32 35 32  | OUT OF ";N-2252|
00000730  38 2d 31 39 37 31 32 2f  38 2b 32 34 36 34 3b 22  |8-19712/8+2464;"|
00000740  20 48 41 56 45 20 22 3b  3a f2 70 72 69 6e 74 0d  | HAVE ";:.print.|
00000750  02 b2 18 20 f1 3b 22 47  72 65 61 74 65 72 20 74  |... .;"Greater t|
00000760  68 65 6e 20 22 3b 74 0d  02 bc 06 20 e1 0d 02 c6  |hen ";t.... ....|
00000770  1c 20 dd f2 6e 75 6d 62  65 72 53 3a 74 3d b3 28  |. ..numberS:t=.(|
00000780  32 35 35 29 3a 68 73 3d  30 0d 02 cb 1b 20 e3 20  |255):hs=0.... . |
00000790  41 3d 32 32 35 32 38 2b  61 72 65 61 20 b8 20 4e  |A=22528+area . N|
000007a0  20 88 20 38 0d 02 da 15  20 e7 20 3f 41 3c 74 20  | . 8.... . ?A<t |
000007b0  8c 20 68 73 3d 68 73 2b  31 0d 02 e4 06 20 ed 0d  |. hs=hs+1.... ..|
000007c0  02 ee 39 20 f1 68 73 3b  22 20 4f 55 54 20 4f 46  |..9 .hs;" OUT OF|
000007d0  20 22 3b 4e 2d 32 32 35  32 38 2d 31 39 37 31 32  | ";N-22528-19712|
000007e0  2f 38 2b 32 34 36 34 3b  22 20 48 41 56 45 20 22  |/8+2464;" HAVE "|
000007f0  3b 3a f2 70 72 69 6e 74  0d 02 f8 18 20 f1 3b 22  |;:.print.... .;"|
00000800  53 6d 61 6c 6c 65 72 20  74 68 65 6e 20 22 3b 74  |Smaller then ";t|
00000810  0d 03 02 06 20 e1 0d 03  0c 16 20 dd f2 68 69 67  |.... ..... ..hig|
00000820  68 65 73 74 3a 68 3d 30  3a 65 3d 30 0d 03 16 1b  |hest:h=0:e=0....|
00000830  20 e3 20 41 3d 32 32 35  32 38 2b 61 72 65 61 20  | . A=22528+area |
00000840  b8 20 4e 20 88 20 38 0d  03 20 16 20 e7 20 3f 41  |. N . 8.. . . ?A|
00000850  3e 68 20 8c 20 68 3d 3f  41 3a 65 3d 41 0d 03 2a  |>h . h=?A:e=A..*|
00000860  06 20 ed 0d 03 34 26 20  f1 22 54 68 65 20 68 69  |. ...4& ."The hi|
00000870  67 68 65 73 74 20 69 6e  22 3b 3a f2 70 72 69 6e  |ghest in";:.prin|
00000880  74 3a f1 3b 22 3d 22 3b  68 0d 03 3e 0f 20 f4 20  |t:.;"=";h..>. . |
00000890  65 3d 65 2d 61 72 65 61  0d 03 48 18 20 f1 22 4e  |e=e-area..H. ."N|
000008a0  55 4d 42 45 52 3d 22 3b  3f 65 3a 65 3d 65 2b 31  |UMBER=";?e:e=e+1|
000008b0  0d 03 52 1c 20 f1 22 42  49 52 54 48 4d 4f 4e 54  |..R. ."BIRTHMONT|
000008c0  48 3d 22 3b 3f 65 3a 65  3d 65 2b 31 0d 03 5c 15  |H=";?e:e=e+1..\.|
000008d0  20 f1 22 4a 4f 42 3d 22  3b 3f 65 3a 65 3d 65 2b  | ."JOB=";?e:e=e+|
000008e0  31 0d 03 66 1b 20 f1 22  42 49 52 54 48 59 45 41  |1..f. ."BIRTHYEA|
000008f0  52 3d 22 3b 3f 65 3a 65  3d 65 2b 31 0d 03 70 1b  |R=";?e:e=e+1..p.|
00000900  20 f1 22 44 45 41 54 48  59 45 41 52 3d 22 3b 3f  | ."DEATHYEAR=";?|
00000910  65 3a 65 3d 65 2b 31 0d  03 7a 1d 20 f1 22 54 59  |e:e=e+1..z. ."TY|
00000920  50 45 20 4f 46 20 53 45  58 3d 22 3b 3f 65 3a 65  |PE OF SEX=";?e:e|
00000930  3d 65 2b 31 0d 03 84 1b  20 f1 22 57 41 52 53 20  |=e+1.... ."WARS |
00000940  46 4f 52 54 3d 22 3b 3f  65 3a 65 3d 65 2b 31 0d  |FORT=";?e:e=e+1.|
00000950  03 8e 34 20 f1 22 42 52  4f 54 48 45 52 53 20 41  |..4 ."BROTHERS A|
00000960  4e 44 20 53 49 53 54 45  52 53 3d 22 3b 3f 65 3a  |ND SISTERS=";?e:|
00000970  65 3d 65 2b 31 3a e7 20  53 54 3d 31 20 8c 20 8d  |e=e+1:. ST=1 . .|
00000980  64 5e 43 0d 03 98 06 20  e1 0d 03 a2 15 20 dd f2  |d^C.... ..... ..|
00000990  6c 6f 77 65 73 74 3a 68  3d 30 3a 65 3d 30 0d 03  |lowest:h=0:e=0..|
000009a0  ac 1b 20 e3 20 41 3d 32  32 35 32 38 2b 61 72 65  |.. . A=22528+are|
000009b0  61 20 b8 20 4e 20 88 20  38 0d 03 b6 16 20 e7 20  |a . N . 8.... . |
000009c0  3f 41 3c 68 20 8c 20 68  3d 3f 41 3a 65 3d 41 0d  |?A<h . h=?A:e=A.|
000009d0  03 c0 0b 20 ed 3a 53 54  3d 31 0d 03 ca 25 20 f1  |... .:ST=1...% .|
000009e0  22 54 48 45 20 4c 4f 57  45 53 54 20 49 4e 22 3b  |"THE LOWEST IN";|
000009f0  3a f2 70 72 69 6e 74 3a  f1 3b 22 3d 22 3b 65 0d  |:.print:.;"=";e.|
00000a00  03 d4 0b 20 e5 20 8d 54  7e 43 0d 03 de 06 20 e1  |... . .T~C.... .|
00000a10  0d 03 e8 0d 20 dd f2 73  70 65 63 65 6c 0d 03 f2  |.... ..specel...|
00000a20  0e 20 74 79 70 65 3d b3  28 32 29 0d 03 fc 19 20  |. type=.(2).... |
00000a30  e7 20 74 79 70 65 3d 31  20 8c 20 f2 6e 61 6d 65  |. type=1 . .name|
00000a40  73 70 6f 73 0d 04 06 18  20 e7 20 74 79 70 65 3d  |spos.... . type=|
00000a50  32 20 8c 20 f2 70 65 72  63 65 6e 74 0d 04 10 06  |2 . .percent....|
00000a60  20 e1 0d ff                                       | ...|
00000a64

Database1.m0

Database1.m1

Database1.m2

Database1.m4

Database1.m5

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .