00000000  76 64 6c 3d 26 38 32 3a  64 76 64 68 3d 26 38 33  |vdl=&82:dvdh=&83|
00000010  3a 74 65 6d 70 31 3d 26  38 34 3a 74 65 6d 70 32  |:temp1=&84:temp2|
00000020  3d 26 38 35 3a 74 65 6d  70 33 3d 26 38 45 3a 74  |=&85:temp3=&8E:t|
00000030  65 6d 70 34 3d 26 38 46  0d 00 64 4d 62 65 66 6c  |emp4=&8F..dMbefl|
00000040  3d 26 38 36 3a 62 65 66  68 3d 26 38 37 3a 62 75  |=&86:befh=&87:bu|
00000050  66 66 3d 26 38 38 3a 73  69 7a 65 3d 26 38 39 3a  |ff=&88:size=&89:|
00000060  64 6f 74 6c 3d 26 38 41  3a 64 6f 74 68 3d 26 38  |dotl=&8A:doth=&8|
00000070  42 3a 72 61 74 79 6c 3d  26 38 43 3a 72 61 74 79  |B:ratyl=&8C:raty|
00000080  68 3d 26 38 44 0d 00 6e  1d 4f 53 46 49 4e 44 3d  |h=&8D..n.OSFIND=|
00000090  26 46 46 43 45 3a 4f 53  47 42 50 42 3d 26 46 46  |&FFCE:OSGBPB=&FF|
000000a0  44 31 0d 00 78 19 53 63  72 6c 3d 26 43 33 36 44  |D1..x.Scrl=&C36D|
000000b0  3a 53 63 72 68 3d 26 43  33 36 45 0d 00 82 41 6d  |:Scrh=&C36E...Am|
000000c0  6f 64 65 3d 26 41 30 30  3a 66 69 6c 65 3d 26 41  |ode=&A00:file=&A|
000000d0  30 42 3a 73 74 72 74 6c  3d 26 41 32 30 3a 73 74  |0B:strtl=&A20:st|
000000e0  72 74 68 3d 26 41 35 38  3a 65 6e 64 6c 3d 26 41  |rth=&A58:endl=&A|
000000f0  39 30 3a 65 6e 64 68 3d  26 41 43 38 0d 00 8c 19  |90:endh=&AC8....|
00000100  f1 22 41 73 73 65 6d 62  6c 69 6e 67 20 63 6f 64  |."Assembling cod|
00000110  65 2e 2e 2e 22 0d 00 96  08 f2 61 73 73 0d 00 a0  |e...".....ass...|
00000120  20 ff 28 22 53 41 56 45  20 6d 61 70 63 6f 64 65  | .("SAVE mapcode|
00000130  20 34 30 30 30 20 22 2b  c3 7e 4f 25 29 0d 00 aa  | 4000 "+.~O%)...|
00000140  1f f1 22 46 69 6e 69 73  68 65 64 20 61 6e 64 20  |.."Finished and |
00000150  73 61 76 65 64 20 63 6f  64 65 2e 22 0d 00 b4 05  |saved code."....|
00000160  e0 0d 00 be 05 3a 0d 00  c8 09 dd f2 61 73 73 0d  |.....:......ass.|
00000170  00 d2 0f e3 50 41 53 53  3d 34 b8 36 88 32 0d 00  |....PASS=4.6.2..|
00000180  dc 0c 50 25 3d 26 32 43  30 30 0d 00 e6 0c 4f 25  |..P%=&2C00....O%|
00000190  3d 26 34 30 30 30 0d 00  f0 0c 5b 4f 50 54 50 41  |=&4000....[OPTPA|
000001a0  53 53 0d 00 fa 0b 2e 6d  61 70 70 65 72 0d 01 04  |SS.....mapper...|
000001b0  0c 4a 53 52 6c 69 6e 65  73 0d 01 0e 11 4c 44 41  |.JSRlines....LDA|
000001c0  23 30 3a 53 54 41 64 76  64 68 0d 01 18 1f 4c 44  |#0:STAdvdh....LD|
000001d0  41 73 74 6f 70 3a 53 45  43 3a 53 42 43 73 74 72  |Astop:SEC:SBCstr|
000001e0  74 3a 53 54 41 64 76 64  6c 0d 01 22 0f 4c 44 58  |t:STAdvdl..".LDX|
000001f0  23 38 3a 4a 53 52 73 6c  0d 01 2c 18 4c 44 58 79  |#8:JSRsl..,.LDXy|
00000200  6c 65 6e 3a 4c 44 59 23  30 3a 4a 53 52 64 69 76  |len:LDY#0:JSRdiv|
00000210  0d 01 36 15 53 54 58 72  61 74 79 6c 3a 53 54 59  |..6.STXratyl:STY|
00000220  72 61 74 79 68 0d 01 40  0a 4c 44 41 23 36 34 0d  |ratyh..@.LDA#64.|
00000230  01 4a 1f 4c 44 58 23 66  69 6c 65 20 83 32 35 36  |.J.LDX#file .256|
00000240  3a 4c 44 59 23 66 69 6c  65 20 81 32 35 36 0d 01  |:LDY#file .256..|
00000250  54 0d 4a 53 52 4f 53 46  49 4e 44 0d 01 5e 0c 53  |T.JSROSFIND..^.S|
00000260  54 41 66 64 61 74 61 0d  01 68 14 4c 44 41 73 74  |TAfdata..h.LDAst|
00000270  72 74 3a 53 54 41 6d 61  69 6e 79 0d 01 72 09 2e  |rt:STAmainy..r..|
00000280  6d 61 69 6e 0d 01 7c 19  4c 44 41 23 30 3a 53 54  |main..|.LDA#0:ST|
00000290  41 6e 75 6d 3a 53 54 41  72 61 74 78 68 0d 01 86  |Anum:STAratxh...|
000002a0  08 2e 73 75 62 0d 01 90  1d 4c 44 58 72 61 74 78  |..sub....LDXratx|
000002b0  68 3a 43 50 58 6d 6f 64  65 2b 32 3a 42 43 53 65  |h:CPXmode+2:BCSe|
000002c0  6f 6c 0d 01 9a 14 4c 44  59 6d 61 69 6e 79 3a 4a  |ol....LDYmainy:J|
000002d0  53 52 61 64 64 72 0d 01  a4 09 4c 44 59 23 30 0d  |SRaddr....LDY#0.|
000002e0  01 ae 17 4c 44 41 28 62  79 74 65 6c 29 2c 59 3a  |...LDA(bytel),Y:|
000002f0  42 4e 45 66 6e 64 0d 01  b8 13 49 4e 43 72 61 74  |BNEfnd....INCrat|
00000300  78 68 3a 42 4e 45 73 75  62 0d 01 c2 08 2e 66 6e  |xh:BNEsub.....fn|
00000310  64 0d 01 cc 13 4c 44 58  23 30 3a 4c 44 41 6d 6f  |d....LDX#0:LDAmo|
00000320  64 65 2b 34 0d 01 d6 09  2e 65 78 63 74 0d 01 e0  |de+4.....exct...|
00000330  19 50 48 41 3a 80 28 62  79 74 65 6c 29 2c 59 3a  |.PHA:.(bytel),Y:|
00000340  42 4e 45 72 65 74 0d 01  ea 18 50 4c 41 3a 4c 53  |BNEret....PLA:LS|
00000350  52 41 3a 49 4e 58 3a 42  4e 45 65 78 63 74 0d 01  |RA:INX:BNEexct..|
00000360  f4 08 2e 72 65 74 0d 01  fe 07 50 4c 41 0d 02 08  |...ret....PLA...|
00000370  15 4c 44 41 72 61 74 78  68 3a 53 54 41 74 65 6d  |.LDAratxh:STAtem|
00000380  70 33 0d 02 12 0b 4a 53  52 70 72 6f 63 0d 02 1c  |p3....JSRproc...|
00000390  0e 53 54 41 73 74 72 74  6c 2c 58 0d 02 26 17 4c  |.STAstrtl,X..&.L|
000003a0  44 41 74 65 6d 70 34 3a  53 54 41 73 74 72 74 68  |DAtemp4:STAstrth|
000003b0  2c 58 0d 02 30 09 2e 66  62 6c 6b 0d 02 3a 1d 4c  |,X..0..fblk..:.L|
000003c0  44 58 72 61 74 78 68 3a  4c 44 59 6d 61 69 6e 79  |DXratxh:LDYmainy|
000003d0  3a 4a 53 52 61 64 64 72  0d 02 44 09 4c 44 59 23  |:JSRaddr..D.LDY#|
000003e0  30 0d 02 4e 18 4c 44 41  28 62 79 74 65 6c 29 2c  |0..N.LDA(bytel),|
000003f0  59 3a 42 45 51 66 6e 64  32 0d 02 58 0c 53 54 41  |Y:BEQfnd2..X.STA|
00000400  74 65 6d 70 34 0d 02 62  0c 49 4e 43 72 61 74 78  |temp4..b.INCratx|
00000410  68 0d 02 6c 1e 4c 44 41  72 61 74 78 68 3a 43 4d  |h..l.LDAratxh:CM|
00000420  50 6d 6f 64 65 2b 32 3a  42 43 43 66 62 6c 6b 0d  |Pmode+2:BCCfblk.|
00000430  02 76 09 2e 66 6e 64 32  0d 02 80 17 4c 44 58 6d  |.v..fnd2....LDXm|
00000440  6f 64 65 2b 37 3a 4c 44  41 6d 6f 64 65 2b 36 0d  |ode+7:LDAmode+6.|
00000450  02 8a 0a 2e 65 78 63 74  32 0d 02 94 16 50 48 41  |....exct2....PHA|
00000460  3a 80 74 65 6d 70 34 3a  42 4e 45 72 65 74 32 0d  |:.temp4:BNEret2.|
00000470  02 9e 19 50 4c 41 3a 41  53 4c 41 3a 44 45 58 3a  |...PLA:ASLA:DEX:|
00000480  42 50 4c 65 78 63 74 32  0d 02 a8 09 2e 72 65 74  |BPLexct2.....ret|
00000490  32 0d 02 b2 07 50 4c 41  0d 02 bc 19 4c 44 59 72  |2....PLA....LDYr|
000004a0  61 74 78 68 3a 44 45 59  3a 53 54 59 74 65 6d 70  |atxh:DEY:STYtemp|
000004b0  33 0d 02 c6 0b 4a 53 52  70 72 6f 63 0d 02 d0 0d  |3....JSRproc....|
000004c0  53 54 41 65 6e 64 6c 2c  58 0d 02 da 16 4c 44 41  |STAendl,X....LDA|
000004d0  74 65 6d 70 34 3a 53 54  41 65 6e 64 68 2c 58 0d  |temp4:STAendh,X.|
000004e0  02 e4 0a 49 4e 43 6e 75  6d 0d 02 ee 19 4c 44 41  |...INCnum....LDA|
000004f0  6e 75 6d 3a 43 4d 50 23  26 33 38 3a 42 43 43 73  |num:CMP#&38:BCCs|
00000500  75 62 0d 02 f8 08 2e 65  6f 6c 0d 03 02 11 4c 44  |ub.....eol....LD|
00000510  58 6e 75 6d 3a 44 45 43  6e 75 6d 0d 03 0c 11 4c  |Xnum:DECnum....L|
00000520  44 41 23 30 3a 53 54 41  64 76 64 68 0d 03 16 0b  |DA#0:STAdvdh....|
00000530  53 54 58 64 76 64 6c 0d  03 20 07 44 45 58 0d 03  |STXdvdl.. .DEX..|
00000540  2a 22 2e 74 6f 74 20 4c  44 41 64 76 64 6c 3a 43  |*".tot LDAdvdl:C|
00000550  4c 43 3a 41 44 43 65 6e  64 6c 2c 58 3a 50 48 41  |LC:ADCendl,X:PHA|
00000560  0d 03 34 19 4c 44 41 64  76 64 68 3a 41 44 43 65  |..4.LDAdvdh:ADCe|
00000570  6e 64 68 2c 58 3a 54 41  59 0d 03 3e 1e 50 4c 41  |ndh,X:TAY..>.PLA|
00000580  3a 53 45 43 3a 53 42 43  73 74 72 74 6c 2c 58 3a  |:SEC:SBCstrtl,X:|
00000590  53 54 41 64 76 64 6c 0d  03 48 1a 54 59 41 3a 53  |STAdvdl..H.TYA:S|
000005a0  42 43 73 74 72 74 68 2c  58 3a 53 54 41 64 76 64  |BCstrth,X:STAdvd|
000005b0  68 0d 03 52 0e 44 45 58  3a 42 50 4c 74 6f 74 0d  |h..R.DEX:BPLtot.|
000005c0  03 5c 10 4c 44 58 23 26  45 3a 4a 53 52 73 6c 0d  |.\.LDX#&E:JSRsl.|
000005d0  03 66 1e 4c 44 58 6d 6f  64 65 2b 38 3a 4c 44 59  |.f.LDXmode+8:LDY|
000005e0  6d 6f 64 65 2b 39 3a 4a  53 52 64 69 76 0d 03 70  |mode+9:JSRdiv..p|
000005f0  15 53 54 58 72 61 74 78  6c 3a 53 54 59 72 61 74  |.STXratxl:STYrat|
00000600  78 68 0d 03 7a 21 4c 44  41 23 30 3a 53 54 41 62  |xh..z!LDA#0:STAb|
00000610  65 66 6c 3a 53 54 41 62  65 66 68 3a 53 54 41 73  |efl:STAbefh:STAs|
00000620  65 63 74 0d 03 84 08 2e  73 65 63 0d 03 8e 0b 4c  |ect.....sec....L|
00000630  44 59 73 65 63 74 0d 03  98 16 4c 44 41 73 74 72  |DYsect....LDAstr|
00000640  74 6c 2c 59 3a 53 54 41  64 6f 74 6c 0d 03 a2 16  |tl,Y:STAdotl....|
00000650  4c 44 41 73 74 72 74 68  2c 59 3a 53 54 41 64 6f  |LDAstrth,Y:STAdo|
00000660  74 68 0d 03 ac 08 2e 64  6f 74 0d 03 b6 1b 4c 44  |th.....dot....LD|
00000670  41 62 65 66 6c 3a 43 4c  43 3a 41 44 43 64 6f 74  |Abefl:CLC:ADCdot|
00000680  6c 3a 50 48 41 0d 03 c0  17 4c 44 41 62 65 66 68  |l:PHA....LDAbefh|
00000690  3a 41 44 43 64 6f 74 68  3a 54 41 58 0d 03 ca 0b  |:ADCdoth:TAX....|
000006a0  4c 44 59 73 65 63 74 0d  03 d4 1e 50 4c 41 3a 53  |LDYsect....PLA:S|
000006b0  45 43 3a 53 42 43 73 74  72 74 6c 2c 59 3a 53 54  |EC:SBCstrtl,Y:ST|
000006c0  41 64 76 64 6c 0d 03 de  1a 54 58 41 3a 53 42 43  |Advdl....TXA:SBC|
000006d0  73 74 72 74 68 2c 59 3a  53 54 41 64 76 64 68 0d  |strth,Y:STAdvdh.|
000006e0  03 e8 15 4c 44 41 23 26  45 3a 53 42 43 6d 6f 64  |...LDA#&E:SBCmod|
000006f0  65 2b 31 30 0d 03 f2 0d  54 41 58 3a 4a 53 52 73  |e+10....TAX:JSRs|
00000700  6c 0d 03 fc 1c 4c 44 58  72 61 74 78 6c 3a 4c 44  |l....LDXratxl:LD|
00000710  59 72 61 74 78 68 3a 4a  53 52 64 69 76 0d 04 06  |Yratxh:JSRdiv...|
00000720  19 54 58 41 3a 80 6d 6f  64 65 2b 37 3a 53 54 41  |.TXA:.mode+7:STA|
00000730  63 6f 6c 6f 75 72 0d 04  10 07 54 58 41 0d 04 1a  |colour....TXA...|
00000740  0d 4c 44 59 6d 6f 64 65  2b 35 0d 04 24 08 2e 72  |.LDYmode+5..$..r|
00000750  65 70 0d 04 2e 10 4c 53  52 64 76 64 68 3a 52 4f  |ep....LSRdvdh:RO|
00000760  52 41 0d 04 38 0e 44 45  59 3a 42 4e 45 72 65 70  |RA..8.DEY:BNErep|
00000770  0d 04 42 07 50 48 41 0d  04 4c 20 4c 44 41 6d 61  |..B.PHA..L LDAma|
00000780  69 6e 79 3a 53 45 43 3a  53 42 43 73 74 72 74 3a  |iny:SEC:SBCstrt:|
00000790  53 54 41 64 76 64 6c 0d  04 56 11 4c 44 41 23 30  |STAdvdl..V.LDA#0|
000007a0  3a 53 54 41 64 76 64 68  0d 04 60 0f 4c 44 58 23  |:STAdvdh..`.LDX#|
000007b0  38 3a 4a 53 52 73 6c 0d  04 6a 1c 4c 44 58 72 61  |8:JSRsl..j.LDXra|
000007c0  74 79 6c 3a 4c 44 59 72  61 74 79 68 3a 4a 53 52  |tyl:LDYratyh:JSR|
000007d0  64 69 76 0d 04 74 0c 53  54 58 74 65 6d 70 33 0d  |div..t.STXtemp3.|
000007e0  04 7e 1b 4c 44 41 64 6f  74 6c 3a 80 6d 6f 64 65  |.~.LDAdotl:.mode|
000007f0  2b 37 3a 53 54 41 64 6f  74 6d 0d 04 88 13 4c 44  |+7:STAdotm....LD|
00000800  41 64 6f 74 6c 3a 53 54  41 64 6f 74 64 0d 04 92  |Adotl:STAdotd...|
00000810  0b 4c 44 41 64 6f 74 68  0d 04 9c 0d 4c 44 59 6d  |.LDAdoth....LDYm|
00000820  6f 64 65 2b 35 0d 04 a6  16 2e 72 65 70 32 20 4c  |ode+5.....rep2 L|
00000830  53 52 41 3a 52 4f 52 64  6f 74 64 0d 04 b0 0f 44  |SRA:RORdotd....D|
00000840  45 59 3a 42 4e 45 72 65  70 32 0d 04 ba 15 4c 44  |EY:BNErep2....LD|
00000850  41 6d 6f 64 65 2b 31 30  3a 42 45 51 6e 63 6d 0d  |Amode+10:BEQncm.|
00000860  04 c4 0b 53 54 41 6d 6f  64 65 0d 04 ce 17 4c 53  |...STAmode....LS|
00000870  52 6d 6f 64 65 2b 32 3a  4c 53 52 6d 6f 64 65 2b  |Rmode+2:LSRmode+|
00000880  33 0d 04 d8 08 2e 6e 63  6d 0d 04 e2 1c 50 4c 41  |3.....ncm....PLA|
00000890  3a 54 41 58 3a 43 50 58  6d 6f 64 65 2b 32 3a 42  |:TAX:CPXmode+2:B|
000008a0  43 43 6e 6f 63 0d 04 ec  0d 4c 44 58 6d 6f 64 65  |CCnoc....LDXmode|
000008b0  2b 33 0d 04 f6 17 4c 44  41 6d 6f 64 65 2b 37 3a  |+3....LDAmode+7:|
000008c0  53 54 41 63 6f 6c 6f 75  72 0d 05 00 08 2e 6e 6f  |STAcolour.....no|
000008d0  63 0d 05 0a 14 4c 44 59  74 65 6d 70 33 3a 4a 53  |c....LDYtemp3:JS|
000008e0  52 61 64 64 72 0d 05 14  16 4c 44 41 6d 6f 64 65  |Raddr....LDAmode|
000008f0  2b 31 30 3a 42 45 51 6e  63 6d 32 0d 05 1e 11 4c  |+10:BEQncm2....L|
00000900  44 41 23 30 3a 53 54 41  6d 6f 64 65 0d 05 28 0d  |DA#0:STAmode..(.|
00000910  41 53 4c 6d 6f 64 65 2b  32 0d 05 32 15 4c 44 41  |ASLmode+2..2.LDA|
00000920  23 26 34 46 3a 53 54 41  6d 6f 64 65 2b 33 0d 05  |#&4F:STAmode+3..|
00000930  3c 09 2e 6e 63 6d 32 0d  05 46 0b 4a 53 52 72 65  |<..ncm2..F.JSRre|
00000940  61 64 0d 05 50 0b 4a 53  52 70 6c 6f 74 0d 05 5a  |ad..P.JSRplot..Z|
00000950  1d 4c 44 41 64 6f 74 6c  3a 43 4c 43 3a 41 44 43  |.LDAdotl:CLC:ADC|
00000960  23 31 3a 53 54 41 64 6f  74 6c 0d 05 64 19 4c 44  |#1:STAdotl..d.LD|
00000970  41 64 6f 74 68 3a 41 44  43 23 30 3a 53 54 41 64  |Adoth:ADC#0:STAd|
00000980  6f 74 68 0d 05 6e 23 4c  44 59 73 65 63 74 3a 43  |oth..n#LDYsect:C|
00000990  4d 50 65 6e 64 68 2c 59  3a 42 43 43 64 6f 74 32  |MPendh,Y:BCCdot2|
000009a0  3a 42 4e 45 75 68 0d 05  78 25 4c 44 41 64 6f 74  |:BNEuh..x%LDAdot|
000009b0  6c 3a 43 4d 50 65 6e 64  6c 2c 59 3a 42 45 51 64  |l:CMPendl,Y:BEQd|
000009c0  6f 74 32 3a 42 43 43 64  6f 74 32 0d 05 82 07 2e  |ot2:BCCdot2.....|
000009d0  75 68 0d 05 8c 1d 4c 44  41 62 65 66 6c 3a 43 4c  |uh....LDAbefl:CL|
000009e0  43 3a 41 44 43 65 6e 64  6c 2c 59 3a 50 48 41 0d  |C:ADCendl,Y:PHA.|
000009f0  05 96 19 4c 44 41 62 65  66 68 3a 41 44 43 65 6e  |...LDAbefh:ADCen|
00000a00  64 68 2c 59 3a 54 41 58  0d 05 a0 1a 50 4c 41 3a  |dh,Y:TAX....PLA:|
00000a10  53 45 43 3a 53 42 43 73  74 72 74 6c 2c 59 3a 50  |SEC:SBCstrtl,Y:P|
00000a20  48 41 0d 05 aa 16 54 58  41 3a 53 42 43 73 74 72  |HA....TXA:SBCstr|
00000a30  74 68 2c 59 3a 54 41 58  0d 05 b4 19 50 4c 41 3a  |th,Y:TAX....PLA:|
00000a40  43 4c 43 3a 41 44 43 23  31 3a 53 54 41 62 65 66  |CLC:ADC#1:STAbef|
00000a50  6c 0d 05 be 15 54 58 41  3a 41 44 43 23 30 3a 53  |l....TXA:ADC#0:S|
00000a60  54 41 62 65 66 68 0d 05  c8 1a 4c 44 41 73 65 63  |TAbefh....LDAsec|
00000a70  74 3a 43 4d 50 6e 75 6d  3a 42 45 51 6a 6d 70 32  |t:CMPnum:BEQjmp2|
00000a80  0d 05 d2 12 49 4e 43 73  65 63 74 3a 4a 4d 50 73  |....INCsect:JMPs|
00000a90  65 63 0d 05 dc 09 2e 6a  6d 70 32 0d 05 e6 1b 4c  |ec.....jmp2....L|
00000aa0  44 41 6d 61 69 6e 79 3a  43 4d 50 73 74 6f 70 3a  |DAmainy:CMPstop:|
00000ab0  42 43 53 65 6e 64 0d 05  f0 14 49 4e 43 6d 61 69  |BCSend....INCmai|
00000ac0  6e 79 3a 4a 4d 50 6d 61  69 6e 0d 05 fa 08 2e 65  |ny:JMPmain.....e|
00000ad0  6e 64 0d 06 04 19 4c 44  41 23 30 3a 4c 44 59 23  |nd....LDA#0:LDY#|
00000ae0  30 3a 4a 53 52 4f 53 46  49 4e 44 0d 06 0e 07 52  |0:JSROSFIND....R|
00000af0  54 53 0d 06 18 09 2e 64  6f 74 32 0d 06 22 0a 4a  |TS.....dot2..".J|
00000b00  4d 50 64 6f 74 0d 06 2c  09 2e 70 72 6f 63 0d 06  |MPdot..,..proc..|
00000b10  36 12 4c 44 41 23 30 3a  53 54 41 74 65 6d 70 34  |6.LDA#0:STAtemp4|
00000b20  0d 06 40 0d 4c 44 59 6d  6f 64 65 2b 35 0d 06 4a  |..@.LDYmode+5..J|
00000b30  09 2e 6d 75 6c 74 0d 06  54 15 41 53 4c 74 65 6d  |..mult..T.ASLtem|
00000b40  70 33 3a 52 4f 4c 74 65  6d 70 34 0d 06 5e 0f 44  |p3:ROLtemp4..^.D|
00000b50  45 59 3a 42 4e 45 6d 75  6c 74 0d 06 68 10 54 58  |EY:BNEmult..h.TX|
00000b60  41 3a 41 44 43 74 65 6d  70 33 0d 06 72 0a 4c 44  |A:ADCtemp3..r.LD|
00000b70  58 6e 75 6d 0d 06 7c 07  52 54 53 0d 06 86 07 2e  |Xnum..|.RTS.....|
00000b80  73 6c 0d 06 90 1b 4c 44  41 23 30 3a 53 54 41 74  |sl....LDA#0:STAt|
00000b90  65 6d 70 33 3a 53 54 41  74 65 6d 70 34 0d 06 9a  |emp3:STAtemp4...|
00000ba0  08 2e 73 6c 32 0d 06 a4  1c 41 53 4c 64 76 64 6c  |..sl2....ASLdvdl|
00000bb0  3a 52 4f 4c 64 76 64 68  3a 52 4f 4c 74 65 6d 70  |:ROLdvdh:ROLtemp|
00000bc0  33 0d 06 ae 0e 44 45 58  3a 42 4e 45 73 6c 32 0d  |3....DEX:BNEsl2.|
00000bd0  06 b8 07 52 54 53 0d 06  c2 09 2e 72 65 61 64 0d  |...RTS.....read.|
00000be0  06 cc 1b 4c 44 41 62 79  74 65 68 3a 43 4d 50 70  |...LDAbyteh:CMPp|
00000bf0  6f 73 3a 42 43 53 6d 6f  72 65 0d 06 d6 13 41 44  |os:BCSmore....AD|
00000c00  43 73 69 7a 65 3a 41 44  43 62 75 66 66 0d 06 e0  |Csize:ADCbuff...|
00000c10  17 53 45 43 3a 53 42 43  70 6f 73 3a 53 54 41 62  |.SEC:SBCpos:STAb|
00000c20  79 74 65 68 0d 06 ea 09  4c 44 59 23 30 0d 06 f4  |yteh....LDY#0...|
00000c30  19 4c 44 41 28 62 79 74  65 6c 29 2c 59 3a 53 54  |.LDA(bytel),Y:ST|
00000c40  41 74 65 6d 70 33 0d 06  fe 07 52 54 53 0d 07 08  |Atemp3....RTS...|
00000c50  09 2e 6d 6f 72 65 0d 07  12 1f 4c 44 41 23 30 3a  |..more....LDA#0:|
00000c60  53 54 41 66 64 61 74 61  2b 31 3a 53 54 41 66 64  |STAfdata+1:STAfd|
00000c70  61 74 61 2b 35 0d 07 1c  16 4c 44 41 62 75 66 66  |ata+5....LDAbuff|
00000c80  3a 53 54 41 66 64 61 74  61 2b 32 0d 07 26 16 4c  |:STAfdata+2..&.L|
00000c90  44 41 73 69 7a 65 3a 53  54 41 66 64 61 74 61 2b  |DAsize:STAfdata+|
00000ca0  36 0d 07 30 1d 4c 44 41  70 6f 73 3a 43 4c 43 3a  |6..0.LDApos:CLC:|
00000cb0  41 44 43 73 69 7a 65 3a  53 54 41 70 6f 73 0d 07  |ADCsize:STApos..|
00000cc0  3a 09 4c 44 41 23 34 0d  07 44 2d 4c 44 58 23 66  |:.LDA#4..D-LDX#f|
00000cd0  64 61 74 61 20 83 20 32  35 36 3a 4c 44 59 23 66  |data . 256:LDY#f|
00000ce0  64 61 74 61 20 81 20 32  35 36 3a 4a 53 52 4f 53  |data . 256:JSROS|
00000cf0  47 42 50 42 0d 07 4e 0b  4a 4d 50 72 65 61 64 0d  |GBPB..N.JMPread.|
00000d00  07 58 09 2e 61 64 64 72  0d 07 62 16 4c 44 41 6d  |.X..addr..b.LDAm|
00000d10  6f 64 65 2b 31 3a 53 54  41 62 79 74 65 68 0d 07  |ode+1:STAbyteh..|
00000d20  6c 11 4c 44 41 23 30 3a  53 54 41 64 76 64 6c 0d  |l.LDA#0:STAdvdl.|
00000d30  07 76 14 54 59 41 3a 80  23 37 3a 53 54 41 62 79  |.v.TYA:.#7:STAby|
00000d40  74 65 6c 0d 07 80 1f 54  59 41 3a 4c 53 52 41 3a  |tel....TYA:LSRA:|
00000d50  4c 53 52 41 3a 4c 53 52  41 3a 41 53 4c 41 3a 54  |LSRA:LSRA:ASLA:T|
00000d60  41 59 0d 07 8a 16 4c 44  41 53 63 72 6c 2c 59 3a  |AY....LDAScrl,Y:|
00000d70  53 54 41 74 65 6d 70 31  0d 07 94 16 4c 44 41 53  |STAtemp1....LDAS|
00000d80  63 72 68 2c 59 3a 53 54  41 74 65 6d 70 32 0d 07  |crh,Y:STAtemp2..|
00000d90  9e 14 4c 44 41 6d 6f 64  65 3a 42 45 51 6e 6f 64  |..LDAmode:BEQnod|
00000da0  69 76 0d 07 a8 15 4c 53  52 74 65 6d 70 31 3a 52  |iv....LSRtemp1:R|
00000db0  4f 52 74 65 6d 70 32 0d  07 b2 0a 2e 6e 6f 64 69  |ORtemp2.....nodi|
00000dc0  76 0d 07 bc 07 54 58 41  0d 07 c6 10 41 53 4c 41  |v....TXA....ASLA|
00000dd0  3a 52 4f 4c 64 76 64 6c  0d 07 d0 10 41 53 4c 41  |:ROLdvdl....ASLA|
00000de0  3a 52 4f 4c 64 76 64 6c  0d 07 da 10 41 53 4c 41  |:ROLdvdl....ASLA|
00000df0  3a 52 4f 4c 64 76 64 6c  0d 07 e4 1e 41 44 43 62  |:ROLdvdl....ADCb|
00000e00  79 74 65 6c 3a 41 44 43  74 65 6d 70 32 3a 53 54  |ytel:ADCtemp2:ST|
00000e10  41 62 79 74 65 6c 0d 07  ee 26 4c 44 41 64 76 64  |Abytel...&LDAdvd|
00000e20  6c 3a 41 44 43 62 79 74  65 68 3a 41 44 43 74 65  |l:ADCbyteh:ADCte|
00000e30  6d 70 31 3a 53 54 41 62  79 74 65 68 0d 07 f8 07  |mp1:STAbyteh....|
00000e40  52 54 53 0d 08 02 0a 2e  6c 69 6e 65 73 0d 08 0c  |RTS.....lines...|
00000e50  1a 4c 44 41 23 30 3a 53  54 41 72 61 74 78 68 3a  |.LDA#0:STAratxh:|
00000e60  53 54 41 73 74 6f 70 0d  08 16 08 2e 6c 70 33 0d  |STAstop.....lp3.|
00000e70  08 20 15 4c 44 41 6d 6f  64 65 2b 33 3a 53 54 41  |. .LDAmode+3:STA|
00000e80  62 65 66 68 0d 08 2a 08  2e 6c 70 36 0d 08 34 1b  |befh..*..lp6..4.|
00000e90  4c 44 58 62 65 66 68 3a  4c 44 59 73 74 6f 70 3a  |LDXbefh:LDYstop:|
00000ea0  4a 53 52 61 64 64 72 0d  08 3e 09 4c 44 59 23 30  |JSRaddr..>.LDY#0|
00000eb0  0d 08 48 18 4c 44 41 28  62 79 74 65 6c 29 2c 59  |..H.LDA(bytel),Y|
00000ec0  3a 42 4e 45 66 70 69 78  0d 08 52 12 44 45 43 62  |:BNEfpix..R.DECb|
00000ed0  65 66 68 3a 42 50 4c 6c  70 36 0d 08 5c 14 4c 44  |efh:BPLlp6..\.LD|
00000ee0  41 72 61 74 78 68 3a 42  45 51 6e 78 74 6c 0d 08  |Aratxh:BEQnxtl..|
00000ef0  66 0b 44 45 43 73 74 6f  70 0d 08 70 07 52 54 53  |f.DECstop..p.RTS|
00000f00  0d 08 7a 09 2e 66 70 69  78 0d 08 84 14 4c 44 41  |..z..fpix....LDA|
00000f10  72 61 74 78 68 3a 42 4e  45 6e 78 74 6c 0d 08 8e  |ratxh:BNEnxtl...|
00000f20  13 4c 44 41 73 74 6f 70  3a 53 54 41 73 74 72 74  |.LDAstop:STAstrt|
00000f30  0d 08 98 12 4c 44 41 23  31 3a 53 54 41 72 61 74  |....LDA#1:STArat|
00000f40  78 68 0d 08 a2 09 2e 6e  78 74 6c 0d 08 ac 12 49  |xh.....nxtl....I|
00000f50  4e 43 73 74 6f 70 3a 42  4e 45 6c 70 33 0d 08 b6  |NCstop:BNElp3...|
00000f60  0b 44 45 43 73 74 6f 70  0d 08 c0 07 52 54 53 0d  |.DECstop....RTS.|
00000f70  08 ca 09 2e 70 6c 6f 74  0d 08 d4 0d 4c 44 41 6d  |....plot....LDAm|
00000f80  6f 64 65 2b 34 0d 08 de  15 4c 44 58 63 6f 6c 6f  |ode+4....LDXcolo|
00000f90  75 72 3a 42 45 51 73 6b  69 70 0d 08 e8 07 2e 6c  |ur:BEQskip.....l|
00000fa0  70 0d 08 f2 13 4c 53 52  20 41 3a 44 45 58 3a 42  |p....LSR A:DEX:B|
00000fb0  4e 45 6c 70 0d 08 fc 09  2e 73 6b 69 70 0d 09 06  |NElp.....skip...|
00000fc0  0a 80 74 65 6d 70 33 0d  09 10 16 4c 44 58 63 6f  |..temp3....LDXco|
00000fd0  6c 6f 75 72 3a 42 45 51  73 6b 69 70 32 0d 09 1a  |lour:BEQskip2...|
00000fe0  08 2e 6c 70 32 0d 09 24  09 41 53 4c 20 41 0d 09  |..lp2..$.ASL A..|
00000ff0  2e 0e 44 45 58 3a 42 4e  45 6c 70 32 0d 09 38 0a  |..DEX:BNElp2..8.|
00001000  2e 73 6b 69 70 32 0d 09  42 07 50 48 41 0d 09 4c  |.skip2..B.PHA..L|
00001010  1c 4c 44 58 64 6f 74 64  3a 4c 44 59 6d 61 69 6e  |.LDXdotd:LDYmain|
00001020  79 3a 4a 53 52 61 64 64  72 0d 09 56 0d 4c 44 41  |y:JSRaddr..V.LDA|
00001030  6d 6f 64 65 2b 34 0d 09  60 14 4c 44 58 64 6f 74  |mode+4..`.LDXdot|
00001040  6d 3a 42 45 51 73 6b 69  70 33 0d 09 6a 08 2e 6c  |m:BEQskip3..j..l|
00001050  70 34 0d 09 74 09 4c 53  52 20 41 0d 09 7e 0e 44  |p4..t.LSR A..~.D|
00001060  45 58 3a 42 4e 45 6c 70  34 0d 09 88 0a 2e 73 6b  |EX:BNElp4.....sk|
00001070  69 70 33 0d 09 92 09 82  23 26 46 46 0d 09 9c 09  |ip3.....#&FF....|
00001080  4c 44 59 23 30 0d 09 a6  17 80 28 62 79 74 65 6c  |LDY#0.....(bytel|
00001090  29 2c 59 3a 53 54 41 74  65 6d 70 33 0d 09 b0 07  |),Y:STAtemp3....|
000010a0  50 4c 41 0d 09 ba 14 4c  44 58 64 6f 74 6d 3a 42  |PLA....LDXdotm:B|
000010b0  45 51 73 6b 69 70 34 0d  09 c4 08 2e 6c 70 35 0d  |EQskip4.....lp5.|
000010c0  09 ce 09 4c 53 52 20 41  0d 09 d8 0e 44 45 58 3a  |...LSR A....DEX:|
000010d0  42 4e 45 6c 70 35 0d 09  e2 0a 2e 73 6b 69 70 34  |BNElp5.....skip4|
000010e0  0d 09 ec 18 84 41 74 65  6d 70 33 3a 53 54 41 28  |.....Atemp3:STA(|
000010f0  62 79 74 65 6c 29 2c 59  0d 09 f6 07 52 54 53 0d  |bytel),Y....RTS.|
00001100  0a 00 08 2e 64 69 76 0d  0a 0a 15 53 54 58 74 65  |....div....STXte|
00001110  6d 70 31 3a 53 54 59 74  65 6d 70 32 0d 0a 14 0a  |mp1:STYtemp2....|
00001120  4c 44 58 23 31 36 0d 0a  1e 08 2e 6c 6f 70 0d 0a  |LDX#16.....lop..|
00001130  28 13 41 53 4c 64 76 64  6c 3a 52 4f 4c 64 76 64  |(.ASLdvdl:ROLdvd|
00001140  68 0d 0a 32 15 52 4f 4c  74 65 6d 70 33 3a 52 4f  |h..2.ROLtemp3:RO|
00001150  4c 74 65 6d 70 34 0d 0a  3c 27 4c 44 41 74 65 6d  |Ltemp4..<'LDAtem|
00001160  70 34 3a 43 4d 50 74 65  6d 70 32 3a 42 43 43 6e  |p4:CMPtemp2:BCCn|
00001170  6f 73 75 62 3a 42 45 51  63 68 65 63 6b 0d 0a 46  |osub:BEQcheck..F|
00001180  07 2e 6f 6b 0d 0a 50 1e  4c 44 41 74 65 6d 70 33  |..ok..P.LDAtemp3|
00001190  3a 53 42 43 74 65 6d 70  31 3a 53 54 41 74 65 6d  |:SBCtemp1:STAtem|
000011a0  70 33 0d 0a 5a 1e 4c 44  41 74 65 6d 70 34 3a 53  |p3..Z.LDAtemp4:S|
000011b0  42 43 74 65 6d 70 32 3a  53 54 41 74 65 6d 70 34  |BCtemp2:STAtemp4|
000011c0  0d 0a 64 1d 4c 44 41 64  76 64 6c 3a 43 4c 43 3a  |..d.LDAdvdl:CLC:|
000011d0  41 44 43 23 31 3a 53 54  41 64 76 64 6c 0d 0a 6e  |ADC#1:STAdvdl..n|
000011e0  19 4c 44 41 64 76 64 68  3a 41 44 43 23 30 3a 53  |.LDAdvdh:ADC#0:S|
000011f0  54 41 64 76 64 68 0d 0a  78 0a 2e 6e 6f 73 75 62  |TAdvdh..x..nosub|
00001200  0d 0a 82 0e 44 45 58 3a  42 4e 45 6c 6f 70 0d 0a  |....DEX:BNElop..|
00001210  8c 13 4c 44 58 64 76 64  6c 3a 4c 44 59 64 76 64  |..LDXdvdl:LDYdvd|
00001220  68 0d 0a 96 07 52 54 53  0d 0a a0 0a 2e 63 68 65  |h....RTS.....che|
00001230  63 6b 0d 0a aa 24 4c 44  41 74 65 6d 70 33 3a 43  |ck...$LDAtemp3:C|
00001240  4d 50 74 65 6d 70 31 3a  42 43 43 6e 6f 73 75 62  |MPtemp1:BCCnosub|
00001250  3a 42 43 53 6f 6b 0d 0a  b4 0a 2e 66 64 61 74 61  |:BCSok.....fdata|
00001260  0d 0a be 11 45 51 55 44  26 30 30 35 38 30 30 46  |....EQUD&005800F|
00001270  46 0d 0a c8 11 45 51 55  44 26 30 30 30 35 30 30  |F....EQUD&000500|
00001280  30 30 0d 0a d2 11 45 51  55 44 26 30 30 35 38 30  |00....EQUD&00580|
00001290  30 30 30 0d 0a dc 0a 45  51 55 42 26 30 0d 0a e6  |000....EQUB&0...|
000012a0  05 5d 0d 0a f0 05 ed 0d  0a fa 05 e1 0d ff dc 61  |.].............a|
000012b0  74 78 6c 00 87 60 00 00  00 d4 31 61 74 78 68 00  |txl..`....1atxh.|
000012c0  87 62 00 00 00 d0 30 65  63 74 00 87 64 00 00 00  |.b....0ect..d...|
000012d0  db 30 74 72 74 00 87 66  00 00 00 b3 31 74 6f 70  |.0trt..f....1top|
000012e0  00 87 68 00 00 00 1c 32  61 69 6e 79 00 87 6a 00  |..h....2ainy..j.|
000012f0  00 00 1e 33 75 6d 00 87  6c 00 00 00 07 31 6f 74  |...3um..l....1ot|
00001300  04 48 75 67 6f c4 e9 f3  74 61 6e 63 0d 0d 0d 43  |.Hugo...tanc...C|
00001310  fd ff ff b5 90 00 00 6e  00 00 00 6d 01 00 01 c8  |.......n...m....|
00001320  f2 e7 6c 61 73 73 0d 0d  0d 43 fd ff ff 0c 6d 00  |..lass...C....m.|
00001330  00 86 01 00 00 6e 01 00  02 d7 ef e2 62 6c 65 0d  |.....n......ble.|
00001340  0d 0d 0d 43 fd ff ff 35  1e ff ff 40 01 00 00 70  |...C...5...@...p|
00001350  01 00 03 d7 f2 e1 70 0d  65 0d 0d 0d 0d 43 fd ff  |......p.e....C..|
00001360  ff cc 1e ff ff dc 00 00  00 72 01 00 04 00 00 00  |.........r......|
00001370  00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
*
000017c0  00 00 00 00 00 00 00 00  00 00 00 00 53 0d 54 45  |............S.TE|
000017d0  0d 0d 0d 0d 0d 0d 27 01  00 53 0d 54 45 0d 0d 0d  |......'..S.TE...|
000017e0  0d 0d 0d 0d 00 00 00 00  00 00 00 00 00 00 00 00  |................|
000017f0  00 00 00 00 00 00 00 00  00 00 04 48 75 67 6f 00  |...........Hugo.|
00001800  0d 00 0a 24 f4 20 42 42  43 20 50 69 78 65 6c 20  |...$. BBC Pixel |
00001810  4d 61 70 70 65 72 20 53  68 61 70 65 20 43 72 65  |Mapper Shape Cre|
00001820  61 74 6f 72 0d 00 14 14  f4 20 62 79 20 4d 61 72  |ator..... by Mar|
00001830  74 69 6e 20 44 61 77 65  0d 00 1e 19 f4 20 28 63  |tin Dawe..... (c|
00001840  29 20 41 63 6f 72 6e 20  43 6f 6d 70 75 74 69 6e  |) Acorn Computin|
00001850  67 0d 00 28 05 3a 0d 00  32 06 eb 30 0d 00 3c 21  |g..(.:..2..0..<!|
00001860  e7 20 90 3e 26 31 39 30  30 20 8c 20 d0 3d 26 31  |. .>&1900 . .=&1|
00001870  39 30 30 3a d7 22 53 48  41 50 45 53 22 0d 00 46  |900:."SHAPES"..F|
00001880  0a 2a 46 58 34 2c 31 0d  00 50 24 ef 32 33 2c 34  |.*FX4,1..P$.23,4|
00001890  33 2c 35 34 2c 31 31 39  2c 31 31 39 2c 38 2c 31  |3,54,119,119,8,1|
000018a0  31 39 2c 31 31 39 2c 35  34 2c 30 0d 00 5a 0b 6d  |19,119,54,0..Z.m|
000018b0  61 78 25 3d 31 35 0d 00  64 4c de 73 78 25 28 6d  |ax%=15..dL.sx%(m|
000018c0  61 78 25 29 2c 73 79 25  28 6d 61 78 25 29 2c 66  |ax%),sy%(max%),f|
000018d0  78 25 28 6d 61 78 25 29  2c 66 79 25 28 6d 61 78  |x%(max%),fy%(max|
000018e0  25 29 2c 78 78 25 28 6d  61 78 25 29 2c 78 79 25  |%),xx%(max%),xy%|
000018f0  28 6d 61 78 25 29 2c 74  79 70 65 25 28 6d 61 78  |(max%),type%(max|
00001900  25 29 0d 00 6e 18 de 63  69 72 63 78 28 31 31 29  |%)..n..circx(11)|
00001910  2c 63 69 72 63 79 28 31  31 29 0d 00 78 0f e3 20  |,circy(11)..x.. |
00001920  63 25 3d 30 20 b8 20 31  31 0d 00 82 1d 63 69 72  |c%=0 . 11....cir|
00001930  63 78 28 63 25 29 3d 9b  28 28 28 63 25 2b 31 29  |cx(c%)=.(((c%+1)|
00001940  2f 36 29 2a af 29 0d 00  8c 1d 63 69 72 63 79 28  |/6)*.)....circy(|
00001950  63 25 29 3d b5 28 28 28  63 25 2b 31 29 2f 36 29  |c%)=.(((c%+1)/6)|
00001960  2a af 29 0d 00 96 05 ed  0d 00 a0 23 63 6f 6c 25  |*.)........#col%|
00001970  3d 32 3a 6e 75 6d 25 3d  2d 31 3a 73 68 61 70 65  |=2:num%=-1:shape|
00001980  25 3d 30 3a 6c 6f 63 6b  25 3d a3 0d 00 aa 2e e8  |%=0:lock%=......|
00001990  22 47 72 69 64 20 73 69  7a 65 20 69 6e 20 70 69  |"Grid size in pi|
000019a0  78 65 6c 73 20 28 64 65  66 61 75 6c 74 2d 20 31  |xels (default- 1|
000019b0  36 29 20 22 3b 73 70 63  25 0d 00 b4 14 e7 20 73  |6) ";spc%..... s|
000019c0  70 63 25 3d 30 20 73 70  63 25 3d 31 36 0d 00 be  |pc%=0 spc%=16...|
000019d0  0f 73 70 63 25 3d 73 70  63 25 2a 34 0d 00 c8 15  |.spc%=spc%*4....|
000019e0  e8 27 22 53 68 6f 77 20  67 72 69 64 22 3b 79 6e  |.'"Show grid";yn|
000019f0  24 0d 00 d2 06 eb 31 0d  00 dc 26 e7 20 a7 22 59  |$.....1...&. ."Y|
00001a00  79 22 2c c0 79 6e 24 2c  31 29 29 20 73 68 6f 77  |y",.yn$,1)) show|
00001a10  25 3d b9 20 8b 20 73 68  6f 77 25 3d a3 0d 00 e6  |%=. . show%=....|
00001a20  11 78 25 3d 36 34 30 3a  79 25 3d 35 31 32 0d 00  |.x%=640:y%=512..|
00001a30  f0 2b ee 85 20 e7 20 9f  3d 31 37 20 f2 72 65 73  |.+.. . .=17 .res|
00001a40  74 6f 72 65 20 8b 20 f6  3a f1 22 20 61 74 20 6c  |tore . .:." at l|
00001a50  69 6e 65 20 22 3b 9e 3a  e0 0d 00 fa 06 ef 35 0d  |ine ";.:......5.|
00001a60  01 04 11 e7 20 73 68 6f  77 25 20 f2 67 72 69 64  |.... show% .grid|
00001a70  0d 01 0e 08 e6 30 2c 33  0d 01 18 2f f0 36 39 2c  |.....0,3.../.69,|
00001a80  30 2c 30 3a f0 36 39 2c  31 32 37 39 2c 30 3a f0  |0,0:.69,1279,0:.|
00001a90  36 39 2c 30 2c 31 30 32  33 3a f0 36 39 2c 31 32  |69,0,1023:.69,12|
00001aa0  37 39 2c 31 30 32 33 0d  01 22 08 e6 33 2c 33 0d  |79,1023.."..3,3.|
00001ab0  01 2c 0a f2 63 72 6f 73  73 0d 01 36 05 f5 0d 01  |.,..cross..6....|
00001ac0  40 11 6f 78 25 3d 78 25  3a 6f 79 25 3d 79 25 0d  |@.ox%=x%:oy%=y%.|
00001ad0  01 4a 12 6f 73 68 61 70  65 25 3d 73 68 61 70 65  |.J.oshape%=shape|
00001ae0  25 0d 01 54 0b 64 72 61  77 25 3d a3 0d 01 5e 10  |%..T.draw%=...^.|
00001af0  e7 20 a6 2d 31 37 20 f2  71 75 69 74 0d 01 68 10  |. .-17 .quit..h.|
00001b00  e7 20 a6 2d 34 30 20 f2  73 61 76 65 0d 01 72 11  |. .-40 .save..r.|
00001b10  e7 20 a6 2d 38 37 20 f2  6e 6c 65 66 74 0d 01 7c  |. .-87 .nleft..||
00001b20  4c e7 20 a6 2d 38 34 20  78 25 3d 73 70 63 25 2a  |L. .-84 x%=spc%*|
00001b30  28 78 25 20 81 20 73 70  63 25 29 3a 79 25 3d 73  |(x% . spc%):y%=s|
00001b40  70 63 25 2a 28 79 25 20  81 20 73 70 63 25 29 3a  |pc%*(y% . spc%):|
00001b50  73 74 70 25 3d 73 70 63  25 3a 6c 6f 63 6b 25 3d  |stp%=spc%:lock%=|
00001b60  b9 3a 64 72 61 77 25 3d  b9 0d 01 86 12 e7 20 a6  |.:draw%=...... .|
00001b70  2d 38 36 20 6c 6f 63 6b  25 3d a3 0d 01 90 44 e7  |-86 lock%=....D.|
00001b80  20 a6 2d 31 20 80 20 ac  6c 6f 63 6b 25 20 73 74  | .-1 . .lock% st|
00001b90  70 25 3d 33 32 20 8b e7  20 a6 2d 32 20 80 20 ac  |p%=32 .. .-2 . .|
00001ba0  6c 6f 63 6b 25 20 73 74  70 25 3d 39 36 20 8b 20  |lock% stp%=96 . |
00001bb0  e7 20 ac 6c 6f 63 6b 25  20 73 74 70 25 3d 34 0d  |. .lock% stp%=4.|
00001bc0  01 9a 1b e7 20 a6 2d 39  39 20 e7 20 73 68 61 70  |.... .-99 . shap|
00001bd0  65 25 20 f2 73 68 61 70  65 32 0d 01 a4 1c e7 20  |e% .shape2..... |
00001be0  a6 2d 31 30 31 20 63 6f  6c 25 3d 30 3a f2 66 6f  |.-101 col%=0:.fo|
00001bf0  72 65 62 61 63 6b 0d 01  ae 1b e7 20 a6 2d 36 38  |reback..... .-68|
00001c00  20 63 6f 6c 25 3d 32 3a  f2 66 6f 72 65 62 61 63  | col%=2:.forebac|
00001c10  6b 0d 01 b8 50 e7 20 a6  2d 35 35 20 78 25 3d 36  |k...P. .-55 x%=6|
00001c20  34 30 3a 79 25 3d 35 31  32 3a 64 72 61 77 25 3d  |40:y%=512:draw%=|
00001c30  b9 3a e7 20 6c 6f 63 6b  25 20 78 25 3d 73 70 63  |.:. lock% x%=spc|
00001c40  25 2a 28 78 25 20 81 20  73 70 63 25 29 3a 79 25  |%*(x% . spc%):y%|
00001c50  3d 73 70 63 25 2a 28 79  25 20 81 20 73 70 63 25  |=spc%*(y% . spc%|
00001c60  29 0d 01 c2 1b e7 20 a6  2d 33 36 20 73 68 61 70  |)..... .-36 shap|
00001c70  65 25 3d 31 3a f2 73 68  61 70 65 31 0d 01 cc 1b  |e%=1:.shape1....|
00001c80  e7 20 a6 2d 35 32 20 73  68 61 70 65 25 3d 33 3a  |. .-52 shape%=3:|
00001c90  f2 73 68 61 70 65 31 0d  01 d6 1b e7 20 a6 2d 38  |.shape1..... .-8|
00001ca0  33 20 73 68 61 70 65 25  3d 34 3a f2 73 68 61 70  |3 shape%=4:.shap|
00001cb0  65 31 0d 01 e0 1e e7 20  a6 2d 31 32 32 20 78 25  |e1..... .-122 x%|
00001cc0  3d 78 25 2b 73 74 70 25  3a 64 72 61 77 25 3d b9  |=x%+stp%:draw%=.|
00001cd0  0d 01 ea 1d e7 20 a6 2d  32 36 20 78 25 3d 78 25  |..... .-26 x%=x%|
00001ce0  2d 73 74 70 25 3a 64 72  61 77 25 3d b9 0d 01 f4  |-stp%:draw%=....|
00001cf0  1d e7 20 a6 2d 35 38 20  79 25 3d 79 25 2b 73 74  |.. .-58 y%=y%+st|
00001d00  70 25 3a 64 72 61 77 25  3d b9 0d 01 fe 1d e7 20  |p%:draw%=...... |
00001d10  a6 2d 34 32 20 79 25 3d  79 25 2d 73 74 70 25 3a  |.-42 y%=y%-stp%:|
00001d20  64 72 61 77 25 3d b9 0d  02 08 13 e7 20 64 72 61  |draw%=...... dra|
00001d30  77 25 20 f2 72 65 64 72  61 77 0d 02 12 07 fd 20  |w% .redraw..... |
00001d40  30 0d 02 1c 0c dd f2 72  65 64 72 61 77 0d 02 26  |0......redraw..&|
00001d50  16 ec 6f 78 25 2d 31 36  2c 6f 79 25 2b 31 32 3a  |..ox%-16,oy%+12:|
00001d60  ef 34 33 0d 02 30 0a f2  63 72 6f 73 73 0d 02 3a  |.43..0..cross..:|
00001d70  14 e7 20 73 68 61 70 65  25 20 f2 64 72 61 77 73  |.. shape% .draws|
00001d80  68 0d 02 44 05 e1 0d 02  4e 0c dd f2 73 68 61 70  |h..D....N...shap|
00001d90  65 31 0d 02 58 1d e7 20  6e 75 6d 25 3d 6d 61 78  |e1..X.. num%=max|
00001da0  25 20 ef 37 3a 73 68 61  70 65 25 3d 30 3a e1 0d  |% .7:shape%=0:..|
00001db0  02 62 30 e7 20 6f 73 68  61 70 65 25 20 ec 73 78  |.b0. oshape% .sx|
00001dc0  25 28 6e 75 6d 25 29 2c  73 79 25 28 6e 75 6d 25  |%(num%),sy%(num%|
00001dd0  29 20 8b 20 6e 75 6d 25  3d 6e 75 6d 25 2b 31 0d  |) . num%=num%+1.|
00001de0  02 6c 16 e7 20 6f 73 68  61 70 65 25 3d 31 20 df  |.l.. oshape%=1 .|
00001df0  78 25 2c 79 25 0d 02 76  58 e7 20 6f 73 68 61 70  |x%,y%..vX. oshap|
00001e00  65 25 3d 32 20 df 78 25  2c 79 25 3a df 78 78 25  |e%=2 .x%,y%:.xx%|
00001e10  28 6e 75 6d 25 29 2c 78  79 25 28 6e 75 6d 25 29  |(num%),xy%(num%)|
00001e20  3a df 73 78 25 28 6e 75  6d 25 29 2c 73 79 25 28  |:.sx%(num%),sy%(|
00001e30  6e 75 6d 25 29 3a f0 36  39 2c 78 78 25 28 6e 75  |num%):.69,xx%(nu|
00001e40  6d 25 29 2c 78 79 25 28  6e 75 6d 25 29 0d 02 80  |m%),xy%(num%)...|
00001e50  47 e7 20 6f 73 68 61 70  65 25 3d 33 20 df 73 78  |G. oshape%=3 .sx|
00001e60  25 28 6e 75 6d 25 29 2c  79 25 3a df 78 25 2c 79  |%(num%),y%:.x%,y|
00001e70  25 3a df 78 25 2c 73 79  25 28 6e 75 6d 25 29 3a  |%:.x%,sy%(num%):|
00001e80  df 73 78 25 28 6e 75 6d  25 29 2c 73 79 25 28 6e  |.sx%(num%),sy%(n|
00001e90  75 6d 25 29 0d 02 8a 1c  e7 20 6f 73 68 61 70 65  |um%)..... oshape|
00001ea0  25 3d 34 20 f2 63 69 72  63 6f 75 74 6c 28 30 29  |%=4 .circoutl(0)|
00001eb0  0d 02 94 1d 73 78 25 28  6e 75 6d 25 29 3d 78 25  |....sx%(num%)=x%|
00001ec0  3a 73 79 25 28 6e 75 6d  25 29 3d 79 25 0d 02 9e  |:sy%(num%)=y%...|
00001ed0  18 e7 20 73 68 61 70 65  25 3d 31 20 f0 36 39 2c  |.. shape%=1 .69,|
00001ee0  78 25 2c 79 25 0d 02 a8  05 e1 0d 02 b2 0c dd f2  |x%,y%...........|
00001ef0  73 68 61 70 65 32 0d 02  bc 59 e7 20 73 68 61 70  |shape2...Y. shap|
00001f00  65 25 3d 31 20 73 68 61  70 65 25 3d 32 3a 78 78  |e%=1 shape%=2:xx|
00001f10  25 28 6e 75 6d 25 29 3d  78 25 3a 78 79 25 28 6e  |%(num%)=x%:xy%(n|
00001f20  75 6d 25 29 3d 79 25 3a  ec 73 78 25 28 6e 75 6d  |um%)=y%:.sx%(num|
00001f30  25 29 2c 73 79 25 28 6e  75 6d 25 29 3a df 78 25  |%),sy%(num%):.x%|
00001f40  2c 79 25 3a f2 77 61 69  74 28 35 30 29 3a e1 0d  |,y%:.wait(50):..|
00001f50  02 c6 30 66 78 25 28 6e  75 6d 25 29 3d 78 25 3a  |..0fx%(num%)=x%:|
00001f60  66 79 25 28 6e 75 6d 25  29 3d 79 25 3a 74 79 70  |fy%(num%)=y%:typ|
00001f70  65 25 28 6e 75 6d 25 29  3d 73 68 61 70 65 25 0d  |e%(num%)=shape%.|
00001f80  02 d0 28 e7 20 63 6f 6c  25 3d 30 20 74 79 70 65  |..(. col%=0 type|
00001f90  25 28 6e 75 6d 25 29 3d  74 79 70 65 25 28 6e 75  |%(num%)=type%(nu|
00001fa0  6d 25 29 2b 31 32 38 0d  02 da 0a f2 63 72 6f 73  |m%)+128.....cros|
00001fb0  73 0d 02 e4 0b e6 30 2c  63 6f 6c 25 0d 02 ee 88  |s.....0,col%....|
00001fc0  e7 20 73 68 61 70 65 25  3d 32 20 ec 78 78 25 28  |. shape%=2 .xx%(|
00001fd0  6e 75 6d 25 29 2c 78 79  25 28 6e 75 6d 25 29 3a  |num%),xy%(num%):|
00001fe0  df 73 78 25 28 6e 75 6d  25 29 2c 73 79 25 28 6e  |.sx%(num%),sy%(n|
00001ff0  75 6d 25 29 3a df 78 25  2c 79 25 3a df 78 78 25  |um%):.x%,y%:.xx%|
00002000  28 6e 75 6d 25 29 2c 78  79 25 28 6e 75 6d 25 29  |(num%),xy%(num%)|
00002010  3a ec 73 78 25 28 6e 75  6d 25 29 2c 73 79 25 28  |:.sx%(num%),sy%(|
00002020  6e 75 6d 25 29 3a ec 78  78 25 28 6e 75 6d 25 29  |num%):.xx%(num%)|
00002030  2c 78 79 25 28 6e 75 6d  25 29 3a f0 38 35 2c 78  |,xy%(num%):.85,x|
00002040  25 2c 79 25 0d 02 f8 68  e7 20 73 68 61 70 65 25  |%,y%...h. shape%|
00002050  3d 33 20 ec 73 78 25 28  6e 75 6d 25 29 2c 73 79  |=3 .sx%(num%),sy|
00002060  25 28 6e 75 6d 25 29 3a  ec 73 78 25 28 6e 75 6d  |%(num%):.sx%(num|
00002070  25 29 2c 79 25 3a f0 38  35 2c 78 25 2c 73 79 25  |%),y%:.85,x%,sy%|
00002080  28 6e 75 6d 25 29 3a ec  73 78 25 28 6e 75 6d 25  |(num%):.sx%(num%|
00002090  29 2c 79 25 3a ec 78 25  2c 79 25 3a f0 38 35 2c  |),y%:.x%,y%:.85,|
000020a0  78 25 2c 73 79 25 28 6e  75 6d 25 29 0d 03 02 18  |x%,sy%(num%)....|
000020b0  e7 20 73 68 61 70 65 25  3d 34 20 f2 63 69 72 63  |. shape%=4 .circ|
000020c0  66 69 6c 6c 0d 03 0c 11  e7 20 73 68 6f 77 25 20  |fill..... show% |
000020d0  f2 67 72 69 64 0d 03 16  0f e6 33 2c 33 3a f2 63  |.grid.....3,3:.c|
000020e0  72 6f 73 73 0d 03 20 0c  73 68 61 70 65 25 3d 30  |ross.. .shape%=0|
000020f0  0d 03 2a 05 e1 0d 03 34  0c dd f2 64 72 61 77 73  |..*....4...draws|
00002100  68 0d 03 3e 18 ec 73 78  25 28 6e 75 6d 25 29 2c  |h..>..sx%(num%),|
00002110  73 79 25 28 6e 75 6d 25  29 0d 03 48 33 e7 20 73  |sy%(num%)..H3. s|
00002120  68 61 70 65 25 3d 31 20  df 6f 78 25 2c 6f 79 25  |hape%=1 .ox%,oy%|
00002130  3a ec 73 78 25 28 6e 75  6d 25 29 2c 73 79 25 28  |:.sx%(num%),sy%(|
00002140  6e 75 6d 25 29 3a df 78  25 2c 79 25 0d 03 52 6d  |num%):.x%,y%..Rm|
00002150  e7 20 73 68 61 70 65 25  3d 32 20 df 6f 78 25 2c  |. shape%=2 .ox%,|
00002160  6f 79 25 3a ec 78 78 25  28 6e 75 6d 25 29 2c 78  |oy%:.xx%(num%),x|
00002170  79 25 28 6e 75 6d 25 29  3a df 6f 78 25 2c 6f 79  |y%(num%):.ox%,oy|
00002180  25 3a ec 73 78 25 28 6e  75 6d 25 29 2c 73 79 25  |%:.sx%(num%),sy%|
00002190  28 6e 75 6d 25 29 3a df  78 25 2c 79 25 3a ec 78  |(num%):.x%,y%:.x|
000021a0  78 25 28 6e 75 6d 25 29  2c 78 79 25 28 6e 75 6d  |x%(num%),xy%(num|
000021b0  25 29 3a df 78 25 2c 79  25 0d 03 5c 82 e7 20 73  |%):.x%,y%..\.. s|
000021c0  68 61 70 65 25 3d 33 20  df 73 78 25 28 6e 75 6d  |hape%=3 .sx%(num|
000021d0  25 29 2c 6f 79 25 3a df  6f 78 25 2c 6f 79 25 3a  |%),oy%:.ox%,oy%:|
000021e0  df 6f 78 25 2c 73 79 25  28 6e 75 6d 25 29 3a df  |.ox%,sy%(num%):.|
000021f0  73 78 25 28 6e 75 6d 25  29 2c 73 79 25 28 6e 75  |sx%(num%),sy%(nu|
00002200  6d 25 29 3a df 73 78 25  28 6e 75 6d 25 29 2c 79  |m%):.sx%(num%),y|
00002210  25 3a df 78 25 2c 79 25  3a df 78 25 2c 73 79 25  |%:.x%,y%:.x%,sy%|
00002220  28 6e 75 6d 25 29 3a df  73 78 25 28 6e 75 6d 25  |(num%):.sx%(num%|
00002230  29 2c 73 79 25 28 6e 75  6d 25 29 0d 03 66 1b e7  |),sy%(num%)..f..|
00002240  20 73 68 61 70 65 25 3d  34 20 f2 63 69 72 63 6f  | shape%=4 .circo|
00002250  75 74 6c 28 31 29 0d 03  70 05 e1 0d 03 7a 0d dd  |utl(1)..p....z..|
00002260  f2 77 61 69 74 28 74 29  0d 03 84 07 54 3d 91 0d  |.wait(t)....T=..|
00002270  03 8e 0d f5 20 fd 20 91  3e 54 2b 74 0d 03 98 05  |.... . .>T+t....|
00002280  e1 0d 03 a2 0e dd f2 66  6f 72 65 62 61 63 6b 0d  |.......foreback.|
00002290  03 ac 0a f2 63 72 6f 73  73 0d 03 b6 46 e7 20 63  |....cross...F. c|
000022a0  6f 6c 25 20 ef 32 33 2c  34 33 2c 35 34 2c 31 31  |ol% .23,43,54,11|
000022b0  39 2c 31 31 39 2c 38 2c  31 31 39 2c 31 31 39 2c  |9,119,8,119,119,|
000022c0  35 34 2c 30 20 8b 20 ef  32 33 2c 34 33 2c 38 2c  |54,0 . .23,43,8,|
000022d0  38 2c 38 2c 31 31 39 2c  38 2c 38 2c 38 2c 30 0d  |8,8,119,8,8,8,0.|
000022e0  03 c0 0a f2 63 72 6f 73  73 0d 03 ca 05 e1 0d 03  |....cross.......|
000022f0  d4 0a dd f2 73 61 76 65  0d 03 de 26 e7 20 28 73  |....save...&. (s|
00002300  68 61 70 65 25 20 80 20  6e 75 6d 25 3d 30 29 20  |hape% . num%=0) |
00002310  84 20 6e 75 6d 25 3d 2d  31 20 ef 37 3a e1 0d 03  |. num%=-1 .7:...|
00002320  e8 21 e7 20 73 68 61 70  65 25 20 73 68 61 70 65  |.!. shape% shape|
00002330  25 3d 30 3a 6e 75 6d 25  3d 6e 75 6d 25 2d 31 0d  |%=0:num%=num%-1.|
00002340  03 f2 06 ef 34 0d 03 fc  09 2a 46 58 32 31 0d 04  |....4....*FX21..|
00002350  06 22 e8 8a 30 2c 30 29  22 46 69 6c 65 6e 61 6d  |."..0,0)"Filenam|
00002360  65 20 74 6f 20 73 61 76  65 22 3b 66 69 6c 65 24  |e to save";file$|
00002370  0d 04 10 0f 66 25 3d ae  28 66 69 6c 65 24 29 0d  |....f%=.(file$).|
00002380  04 1a 12 f1 27 22 53 61  76 69 6e 67 2e 2e 2e 22  |....'"Saving..."|
00002390  3b 0d 04 24 0d f1 23 66  25 2c 6e 75 6d 25 0d 04  |;..$..#f%,num%..|
000023a0  2e 14 e3 20 64 61 74 61  25 3d 30 20 b8 20 6e 75  |... data%=0 . nu|
000023b0  6d 25 0d 04 38 57 f1 23  66 25 2c 73 78 25 28 64  |m%..8W.#f%,sx%(d|
000023c0  61 74 61 25 29 2c 73 79  25 28 64 61 74 61 25 29  |ata%),sy%(data%)|
000023d0  2c 66 78 25 28 64 61 74  61 25 29 2c 66 79 25 28  |,fx%(data%),fy%(|
000023e0  64 61 74 61 25 29 2c 78  78 25 28 64 61 74 61 25  |data%),xx%(data%|
000023f0  29 2c 78 79 25 28 64 61  74 61 25 29 2c 74 79 70  |),xy%(data%),typ|
00002400  65 25 28 64 61 74 61 25  29 0d 04 42 05 ed 0d 04  |e%(data%)..B....|
00002410  4c 08 d9 23 66 25 0d 04  56 0e f1 27 27 22 53 61  |L..#f%..V..''"Sa|
00002420  76 65 64 22 0d 04 60 25  e8 27 22 43 72 65 61 74  |ved"..`%.'"Creat|
00002430  65 20 61 6e 6f 74 68 65  72 20 73 68 61 70 65 20  |e another shape |
00002440  66 69 6c 65 22 3b 79 6e  24 0d 04 6a 16 e7 20 a7  |file";yn$..j.. .|
00002450  22 59 79 22 2c c0 79 6e  24 2c 31 29 29 20 f9 0d  |"Yy",.yn$,1)) ..|
00002460  04 74 08 2a 46 58 34 0d  04 7e 05 e0 0d 04 88 15  |.t.*FX4..~......|
00002470  dd f2 63 69 72 63 6f 75  74 6c 28 66 75 6e 63 25  |..circoutl(func%|
00002480  29 0d 04 92 11 65 78 25  3d 78 25 3a 65 79 25 3d  |)....ex%=x%:ey%=|
00002490  79 25 0d 04 9c 11 e3 63  25 3d 30 20 b8 20 66 75  |y%.....c%=0 . fu|
000024a0  6e 63 25 0d 04 a6 2f 6d  75 6c 74 3d b6 28 28 65  |nc%.../mult=.((e|
000024b0  78 25 2d 73 78 25 28 6e  75 6d 25 29 29 5e 32 2b  |x%-sx%(num%))^2+|
000024c0  28 65 79 25 2d 73 79 25  28 6e 75 6d 25 29 29 5e  |(ey%-sy%(num%))^|
000024d0  32 29 0d 04 b0 0f e3 64  6f 74 25 3d 30 20 b8 31  |2).....dot%=0 .1|
000024e0  31 0d 04 ba 3d f0 36 39  2c 73 78 25 28 6e 75 6d  |1...=.69,sx%(num|
000024f0  25 29 2b 6d 75 6c 74 2a  63 69 72 63 78 28 64 6f  |%)+mult*circx(do|
00002500  74 25 29 2c 73 79 25 28  6e 75 6d 25 29 2b 6d 75  |t%),sy%(num%)+mu|
00002510  6c 74 2a 63 69 72 63 79  28 64 6f 74 25 29 0d 04  |lt*circy(dot%)..|
00002520  c4 05 ed 0d 04 ce 13 65  78 25 3d 6f 78 25 3a 65  |.......ex%=ox%:e|
00002530  79 25 3d 6f 79 25 0d 04  d8 05 ed 0d 04 e2 05 e1  |y%=oy%..........|
00002540  0d 04 ec 0e dd f2 63 69  72 63 66 69 6c 6c 0d 04  |......circfill..|
00002550  f6 09 2a 46 58 32 31 0d  05 00 08 e6 33 2c 33 0d  |..*FX21.....3,3.|
00002560  05 0a 25 ec 38 30 2c 39  30 30 3a e8 22 4e 55 4d  |..%.80,900:."NUM|
00002570  42 45 52 20 4f 46 20 53  49 44 45 53 20 22 3b 63  |BER OF SIDES ";c|
00002580  73 74 65 70 0d 05 14 26  ec 38 30 2c 39 30 30 3a  |step...&.80,900:|
00002590  f1 22 4e 55 4d 42 45 52  20 4f 46 20 53 49 44 45  |."NUMBER OF SIDE|
000025a0  53 20 3f 22 3b 63 73 74  65 70 0d 05 1e 13 78 78  |S ?";cstep....xx|
000025b0  25 28 6e 75 6d 25 29 3d  63 73 74 65 70 0d 05 28  |%(num%)=cstep..(|
000025c0  10 f2 63 69 72 63 6f 75  74 6c 28 30 29 0d 05 32  |..circoutl(0)..2|
000025d0  0b e6 30 2c 63 6f 6c 25  0d 05 3c 2c f2 63 69 72  |..0,col%..<,.cir|
000025e0  63 6c 65 28 73 78 25 28  6e 75 6d 25 29 2c 73 79  |cle(sx%(num%),sy|
000025f0  25 28 6e 75 6d 25 29 2c  78 25 2c 79 25 2c 63 73  |%(num%),x%,y%,cs|
00002600  74 65 70 29 0d 05 46 08  e6 33 2c 33 0d 05 50 05  |tep)..F..3,3..P.|
00002610  e1 0d 05 5a 23 dd f2 63  69 72 63 6c 65 28 73 78  |...Z#..circle(sx|
00002620  25 2c 73 79 25 2c 66 78  25 2c 66 79 25 2c 63 73  |%,sy%,fx%,fy%,cs|
00002630  74 65 70 29 0d 05 64 13  63 73 74 65 70 3d 32 2a  |tep)..d.cstep=2*|
00002640  af 2f 63 73 74 65 70 0d  05 6e 23 6d 75 6c 74 3d  |./cstep..n#mult=|
00002650  b6 28 28 66 78 25 2d 73  78 25 29 5e 32 2b 28 66  |.((fx%-sx%)^2+(f|
00002660  79 25 2d 73 79 25 29 5e  32 29 0d 05 78 18 e3 61  |y%-sy%)^2)..x..a|
00002670  6e 67 3d 30 20 b8 20 32  2a af 20 88 20 63 73 74  |ng=0 . 2*. . cst|
00002680  65 70 0d 05 82 2d ec 73  78 25 2c 73 79 25 3a ec  |ep...-.sx%,sy%:.|
00002690  73 78 25 2b 6d 75 6c 74  2a 9b 28 61 6e 67 29 2c  |sx%+mult*.(ang),|
000026a0  73 79 25 2b 6d 75 6c 74  2a b5 28 61 6e 67 29 0d  |sy%+mult*.(ang).|
000026b0  05 8c 33 f0 38 35 2c 73  78 25 2b 6d 75 6c 74 2a  |..3.85,sx%+mult*|
000026c0  9b 28 61 6e 67 2b 63 73  74 65 70 29 2c 73 79 25  |.(ang+cstep),sy%|
000026d0  2b 6d 75 6c 74 2a b5 28  61 6e 67 2b 63 73 74 65  |+mult*.(ang+cste|
000026e0  70 29 0d 05 96 05 ed 0d  05 a0 05 e1 0d 05 aa 0b  |p)..............|
000026f0  dd f2 6e 6c 65 66 74 0d  05 b4 2b ec 38 30 2c 39  |..nleft...+.80,9|
00002700  30 30 3a f1 6d 61 78 25  2d 31 2d 6e 75 6d 25 3b  |00:.max%-1-num%;|
00002710  22 20 53 48 41 50 45 53  20 41 52 45 20 4c 45 46  |" SHAPES ARE LEF|
00002720  54 22 0d 05 be 09 2a 46  58 32 31 0d 05 c8 07 41  |T"....*FX21....A|
00002730  3d a5 0d 05 d2 2b ec 38  30 2c 39 30 30 3a f1 6d  |=....+.80,900:.m|
00002740  61 78 25 2d 31 2d 6e 75  6d 25 3b 22 20 53 48 41  |ax%-1-num%;" SHA|
00002750  50 45 53 20 41 52 45 20  4c 45 46 54 22 0d 05 dc  |PES ARE LEFT"...|
00002760  05 e1 0d 05 e6 0a dd f2  67 72 69 64 0d 05 f0 08  |........grid....|
00002770  e6 30 2c 31 0d 05 fa 17  e3 68 25 3d 30 20 b8 20  |.0,1.....h%=0 . |
00002780  31 32 37 39 20 88 20 73  70 63 25 0d 06 04 17 e3  |1279 . spc%.....|
00002790  76 25 3d 30 20 b8 20 31  30 32 34 20 88 20 73 70  |v%=0 . 1024 . sp|
000027a0  63 25 0d 06 0e 0e f0 20  36 39 2c 68 25 2c 76 25  |c%..... 69,h%,v%|
000027b0  0d 06 18 05 ed 0d 06 22  05 ed 0d 06 2c 08 e6 33  |......."....,..3|
000027c0  2c 33 0d 06 36 05 e1 0d  06 40 0d dd f2 72 65 73  |,3..6....@...res|
000027d0  74 6f 72 65 0d 06 4a 05  db 0d 06 54 21 e7 20 73  |tore..J....T!. s|
000027e0  68 61 70 65 25 20 73 68  61 70 65 25 3d 30 3a 6e  |hape% shape%=0:n|
000027f0  75 6d 25 3d 6e 75 6d 25  2d 31 0d 06 5e 0f e7 20  |um%=num%-1..^.. |
00002800  6e 75 6d 25 3d 2d 31 20  e1 0d 06 68 11 e3 20 6e  |num%=-1 ...h.. n|
00002810  25 3d 30 20 b8 20 6e 75  6d 25 0d 06 72 1f e7 20  |%=0 . num%..r.. |
00002820  74 79 70 65 25 28 6e 25  29 80 31 32 38 20 e6 30  |type%(n%).128 .0|
00002830  2c 30 20 8b 20 e6 30 2c  32 0d 06 7c 18 73 68 61  |,0 . .0,2..|.sha|
00002840  70 65 25 3d 74 79 70 65  25 28 6e 25 29 80 31 32  |pe%=type%(n%).12|
00002850  37 0d 06 86 44 e7 20 73  68 61 70 65 25 3d 32 20  |7...D. shape%=2 |
00002860  ec 73 78 25 28 6e 25 29  2c 73 79 25 28 6e 25 29  |.sx%(n%),sy%(n%)|
00002870  3a ec 78 78 25 28 6e 25  29 2c 78 79 25 28 6e 25  |:.xx%(n%),xy%(n%|
00002880  29 3a f0 38 35 2c 66 78  25 28 6e 25 29 2c 66 79  |):.85,fx%(n%),fy|
00002890  25 28 6e 25 29 0d 06 90  7a e7 20 73 68 61 70 65  |%(n%)...z. shape|
000028a0  25 3d 33 20 ec 73 78 25  28 6e 25 29 2c 73 79 25  |%=3 .sx%(n%),sy%|
000028b0  28 6e 25 29 3a ec 73 78  25 28 6e 25 29 2c 66 79  |(n%):.sx%(n%),fy|
000028c0  25 28 6e 25 29 3a f0 38  35 2c 66 78 25 28 6e 25  |%(n%):.85,fx%(n%|
000028d0  29 2c 73 79 25 28 6e 25  29 3a ec 73 78 25 28 6e  |),sy%(n%):.sx%(n|
000028e0  25 29 2c 66 79 25 28 6e  25 29 3a ec 66 78 25 28  |%),fy%(n%):.fx%(|
000028f0  6e 25 29 2c 66 79 25 28  6e 25 29 3a f0 38 35 2c  |n%),fy%(n%):.85,|
00002900  66 78 25 28 6e 25 29 2c  73 79 25 28 6e 25 29 0d  |fx%(n%),sy%(n%).|
00002910  06 9a 3f e7 20 73 68 61  70 65 25 3d              |..?. shape%=|
0000291c