Metropoli BBS
VIEWER: examples.dir MODE: BINARY (HEX)
==============================================================================================================================================
OFFSET    00 01 02 03 04 05 06 07  08 09 0A 0B 0C 0D 0E 0F  10 11 12 13 14 15 16 17  18 19 1A 1B 1C 1D 1E 1F
----------------------------------------------------------------------------------------------------------------------------------------------
00000000  48 50 48 50 34 38 2D 52  96 2A F0 7F 85 0B 00 00  00 05 53 55 49 54 45 05  2C 2A 50 1F 00 53 41 56  HPHP48-Rû*à...SUITE,*P.SAV
00000020  45 0A 42 3D 30 2E 41 20  44 30 3D 30 36 38 44 20  44 3D 30 2E 41 0A 7B 20  41 3D 42 2E 41 20 41 2B  EB=0.A D0=068D D=0.A{ A=B.A A+
00000040  41 2E 41 20 41 2B 41 2E  41 0A 20 20 42 2B 41 2E  41 20 42 2B 31 2E 41 0A  20 20 4C 43 20 31 46 46  A.A A+A.A  B+A.A B+1.A  LC 1FF
00000060  46 20 42 26 43 2E 41 0A  20 20 4C 43 20 37 37 30  30 20 3F 43 89 41 2E 41  20 55 50 0A 20 20 43 3D  F B&C.A  LC 7700 ?CëA.A UP  C=
00000080  44 41 54 30 2E 41 0A 20  20 41 53 52 2E 41 20 41  2B 43 2E 41 20 44 31 3D  41 0A 20 20 43 3D 42 2E  DAT0.A  ASR.A A+C.A D1=A  C=B.
000000A0  41 20 43 42 49 54 3D 31  2E 33 0A 20 20 50 3D 43  2E 30 20 4C 43 20 31 32  34 38 31 32 34 38 20 50  A CBIT=1.3  P=C.0 LC 12481248 P
000000C0  3D 30 0A 20 20 41 3D 44  41 54 31 2E 53 0A 20 20  42 3D 41 2E 53 20 41 21  43 2E 53 20 42 26 43 2E  =0  A=DAT1.S  B=A.S A!C.S B&C.
000000E0  53 20 41 2D 42 2E 53 0A  20 20 44 41 54 31 3D 41  2E 53 0A 20 20 3F 42 8B  30 2E 41 20 55 50 0A 20  S A-B.S  DAT1=A.S  ?Bï0.A UP 
00000100  44 2D 31 2E 41 20 55 50  43 20 7D 0A 4C 4F 41 44  52 50 4C 0A 40 08 02 40  C0 14 24 94 45 C0 A2 02  D-1.A UPC }LOADRPL@@$öEó
00000120  11 02 30 15 64 55 A4 70  F4 34 25 64 C5 04 02 13  33 34 13 03 22 D4 13 E4  12 A4 40 14 D3 03 03 13  0§dUñp4%d34"Σñ@
00000140  03 33 A3 C0 34 04 42 54  64 04 42 D4 33 E4 12 A4  B0 07 C2 34 04 22 03 03  42 D4 33 E4 22 A4 00 02  3ú4BTdB3Σñ4"B3Σ"ñ.
00000160  B2 07 32 D4 23 E4 12 04  42 04 D3 33 04 32 B4 12  E3 12 04 22 35 45 B5 D4  33 A4 00 02 02 02 12 D4  2#ΣB32π"5E3ñ.
00000180  43 14 44 05 E3 12 04 12  D4 43 14 44 15 E3 12 A4  00 02 02 02 12 B4 12 E4  12 04 C2 34 04 22 13 83  CDπCD§πñ.Σ4"â
000001A0  43 03 32 B5 E4 34 04 B2  07 C2 34 04 42 83 13 23  03 D2 A7 00 02 02 02 02  D5 33 A3 00 02 02 02 B2  C2Σ44Bâ#º.3ú.
000001C0  07 42 14 44 05 D3 33 E4  02 05 42 04 B3 32 43 03  02 D5 12 03 52 05 E5 34  04 D2 A7 00 02 02 02 02  BD3ΣB2CRσ4º.
000001E0  D5 03 A3 00 02 02 02 22  B4 12 E3 12 A4 00 02 02  02 42 D4 12 E3 22 04 52  05 E5 34 04 D2 A7 00 02  ú."πñ.Bπ"Rσ4º.
00000200  C2 34 04 02 03 03 63 73  03 22 B4 32 E4 12 A4 00  02 42 D4 12 E3 82 35 05  52 05 E5 34 04 D2 A7 C0  4cs"2Σñ.Bπé5Rσ4º
00000220  F4 14 44 24 05 C5 A4 00  24 22 00 04 50 47 43 44  04 2C 2A D0 35 00 25 50  47 43 44 0A 25 54 41 4B  D$ñ.$".PGCD,*5.%PGCD%TAK
00000240  45 20 54 57 4F 20 42 49  4E 41 52 49 45 53 0A 25  4F 4E 20 54 48 45 20 53  54 41 43 4B 0A 0A 47 4F  E TWO BINARIES%ON THE STACKGO
00000260  53 42 56 4C 20 35 33 46  37 37 0A 0A 25 42 49 4E  31 20 8D 41 5F 57 50 20  42 49 4E 32 20 8D 43 5F  SBVL 53F77%BIN1 ìA_WP BIN2 ìC_
00000280  57 50 0A 0A 42 3D 30 2E  41 0A 0A 2A 42 31 5F 50  47 43 44 0A 3F 41 3C 43  2E 57 50 20 8D 20 7B 20  WPB=0.A*B1_PGCD?A<C.WP ì { 
000002A0  41 43 45 58 2E 57 50 20  7D 0A 2A 42 31 4F 5F 50  47 43 44 0A 3F 43 3D 30  2E 57 50 20 8D 20 42 32  ACEX.WP }*B1O_PGCD?C=0.WP ì B2
000002C0  5F 50 47 43 44 0A 3F 41  42 49 54 3D 30 2E 30 20  8D 20 41 5F 50 41 49 52  0A 3F 43 42 49 54 3D 30  _PGCD?ABIT=0.0 ì A_PAIR?CBIT=0
000002E0  2E 30 20 8D 20 43 5F 50  41 49 52 5F 41 5F 49 4D  50 41 49 52 0A 25 41 2C  43 5F 49 4D 50 41 49 52  .0 ì C_PAIR_A_IMPAIR%A,C_IMPAIR
00000300  0A 41 2D 43 2E 57 50 20  47 4F 4E 43 20 42 31 5F  50 47 43 44 0A 0A 2A 43  5F 50 41 49 52 5F 41 5F  A-C.WP GONC B1_PGCD*C_PAIR_A_
00000320  49 4D 50 41 49 52 0A 43  53 52 42 2E 57 50 20 47  4F 43 20 42 31 4F 5F 50  47 43 44 0A 0A 2A 41 5F  IMPAIRCSRB.WP GOC B1O_PGCD*A_
00000340  50 41 49 52 0A 3F 43 42  49 54 3D 30 2E 30 20 8D  20 41 43 5F 50 41 49 52  0A 25 41 5F 50 41 49 52  PAIR?CBIT=0.0 ì AC_PAIR%A_PAIR
00000360  20 43 5F 49 4D 50 41 49  52 0A 41 53 52 42 2E 57  50 20 47 4F 4E 43 20 42  31 5F 50 47 43 44 0A 0A   C_IMPAIRASRB.WP GONC B1_PGCD
00000380  2A 41 43 5F 50 41 49 52  0A 41 53 52 42 2E 57 50  20 43 53 52 42 2E 57 50  20 42 2B 31 2E 41 0A 47  *AC_PAIRASRB.WP CSRB.WP B+1.AG
000003A0  4F 4E 43 20 42 31 4F 5F  50 47 43 44 0A 0A 2A 42  32 5F 50 47 43 44 0A 7B  42 2D 31 2E 41 20 45 58  ONC B1O_PGCD*B2_PGCD{B-1.A EX
000003C0  49 54 43 0A 20 41 2B 41  2E 57 50 20 55 50 4E 43  20 7D 0A 0A 47 4F 56 4C  4E 47 20 30 35 39 36 44  ITC A+A.WP UPNC }GOVLNG 0596D
000003E0  0A 40 6E 03 30 20 15 34  34 C0 A2 02 05 01 50 42  15 B4 54 04 12 04 32 95  35 45 55 D4 04 22 94 E4  @n0 §44óPB§T2ò5EU"öΣ
00000400  14 24 95 A5 50 F2 E4 04  32 45 15 34 B4 A4 03 92  56 06 42 0A 12 23 73 43  A6 A0 70 F4 34 25 64 C5  $òÑPΣ2E§4ñÆVB#sCªáp4%d
00000420  04 02 63 63 43 13 A3 30  15 64 55 A4 30 D4 03 E3  12 04 22 D4 03 E3 12 A4  B0 07 22 B4 32 E4 12 04  ccCú0§dUñ0π"πñ"2Σ
00000440  32 B4 12 E3 12 04 22 B4  32 E4 12 A4 00 02 F2 23  C4 13 E4 12 04 52 05 05  D2 A7 10 D4 33 E4 12 A4  2π"2Σñ.#ΣRº3Σñ
00000460  70 F4 64 C5 E4 74 04 02  33 53 73 33 A4 00 44 11  00 0A 53 49 45 52 50 49  4E 53 4B 49 0A 2C 2A 90  pdΣt3Ss3ñ.D.SIERPINSKI,*É
00000480  29 00 21 4E 4F 20 43 4F  44 45 0A 25 54 41 4B 45  20 41 20 32 35 36 2A 32  35 36 20 47 52 4F 42 0A  ).!NO CODE%TAKE A 256*256 GROB
000004A0  25 4F 4E 20 54 48 45 20  53 54 41 43 4B 0A AB 0A  93 31 38 38 34 44 20 93  31 38 46 42 32 20 A4 43  %ON THE STACK½ô1884D ô18FB2 ñC
000004C0  0A 53 54 52 4F 42 4A 20  24 30 32 44 43 43 20 7B  0A 53 41 56 45 0A 20 43  3D 44 41 54 31 2E 41 20  STROBJ $02DCC {SAVE C=DAT1.A 
000004E0  44 31 3D 43 0A 20 44 31  2B 31 30 20 41 3D 44 41  54 31 2E 31 30 0A 20 4C  43 20 30 30 31 30 30 30  D1=C D1+10 A=DAT1.10 LC 001000
00000500  30 31 30 30 0A 20 50 3D  39 20 3F 41 3D 43 2E 57  50 20 53 4B 49 50 59 45  53 20 7B 0A 20 20 50 3D  0100 P=9 ?A=C.WP SKIPYES {  P=
00000520  30 20 4C 4F 41 44 20 47  4F 56 4C 4E 47 20 31 38  43 42 37 20 7D 0A 20 50  3D 30 20 44 31 2B 31 30  0 LOAD GOVLNG 18CB7 } P=0 D1+10
00000540  0A 20 42 3D 30 2E 41 20  42 2B 31 2E 41 0A 20 4C  43 20 46 30 30 30 30 0A  20 7B 20 44 3D 43 2E 41   B=0.A B+1.A LC F0000 { D=C.A
00000560  20 44 53 52 2E 41 20 44  53 52 2E 41 20 44 26 43  2E 41 20 3F 44 3D 30 2E  42 20 8D 20 7B 20 41 21   DSR.A DSR.A D&C.A ?D=0.B ì { A!
00000580  42 2E 41 20 7D 0A 20 42  2B 42 2E 42 20 53 4B 4E  43 20 7B 20 44 41 54 31  3D 41 2E 42 20 41 3D 30  B.A } B+B.B SKNC { DAT1=A.B A=0
000005A0  2E 41 20 42 2B 31 2E 41  20 44 31 2B 32 20 7D 0A  20 43 2B 31 2E 41 20 55  50 4E 43 20 7D 0A 20 4C  .A B+1.A D1+2 } C+1.A UPNC } L
000005C0  4F 41 44 52 50 4C 0A 7D  0A BB 0A 40 B6 02 A0 20  55 14 44 D4 54 E4 42 85  45 A5 C0 A2 02 F9 01 A0  OADRPL}@á UDTΣBàEÑóá
000005E0  54 35 45 05 02 55 45 05  42 85 54 04 D2 C4 04 32  F5 54 25 35 54 A4 F0 E4  04 42 85 54 04 32 45 15  T5EUEBàT2T%5TñΣBàT2E§
00000600  34 B4 04 12 E4 44 A4 40  95 05 55 04 12 34 D5 E4  02 62 F4 24 05 D2 F4 24  55 A4 90 E4 64 F4 34 05  4ΣDñ@òU4Σb$$UñÉΣd4
00000620  32 55 54 04 52 14 34 84  04 62 94 C4 54 34 A5 D0  02 32 95 54 24 05 95 E4  34 B5 94 04 A2 A3 40 24  2UTR4äböT4Ñ2òT$òΣ4öóú@$
00000640  15 74 05 12 04 32 95 54  24 05 95 E4 34 B5 94 A4  70 24 15 04 85 E4 A2 D0  02 22 15 34 04 A2 A3 30  §t2òT$òΣ4öñp$§àΣó"§4óú0
00000660  55 14 24 35 84 04 42 85  54 04 32 15 55 15 24 55  A4 20 F5 F4 44 A5 D0 02  02 75 34 44 04 A2 A3 D0  U$5äBàT2§U§$Uñ DÑu4Dóú
00000680  02 C2 14 24 94 05 A2 A3  40 24 15 74 05 12 04 C2  14 24 94 25 95 E4 44 85  54 A4 90 E4 44 F5 04 42  $öóú@$§t$ö%òΣDàTñÉΣDB
000006A0  85 54 04 32 54 25 25 55  E4 44 A5 30 35 24 55 54  E4 A4 D0 02 32 55 95 44  55 04 A2 A3 60 54 E5 04  àT2T%%UΣDÑ05$UTΣñ2UòDUóú`Tσ
000006C0  52 64 64 54 34 44 35 A5  A0 20 94 A5 40 85 54 04  D2 44 74 04 42 55 14 D4  E4 02                    RddT4D5Ñá öÑ@àTDtBUΣ
[ RETURN TO DIRECTORY ]