home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1990-09-18 | 4.6 KB |
view JSON data
|
view as text
|
open on a Mac
|
open on a PC
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 22 f4 3e 41 52 | 43 4c 41 42 31 2e 21 45 |...".>AR|CLAB1.!E|
|00000010| 4c 45 43 46 49 45 4c 44 | 2e 21 52 55 4e 49 4d 41 |LECFIELD|.!RUNIMA|
|00000020| 47 45 0d 00 14 04 0d 00 | 1e 18 ee 20 85 20 40 25 |GE......|... . @%|
|00000030| 3d 26 39 30 41 3a 2a 44 | 45 53 4b 54 4f 50 0d 00 |=&90A:*D|ESKTOP..|
|00000040| 28 12 40 25 3d 26 33 30 | 36 3a 54 45 53 54 3d a3 |(.@%=&30|6:TEST=.|
|00000050| 0d 00 32 07 eb 31 32 0d | 00 3c 16 ef 31 39 2c 31 |..2..12.|.<..19,1|
|00000060| 2c 32 34 2c 26 37 30 2c | 26 37 30 2c 30 0d 00 46 |,24,&70,|&70,0..F|
|00000070| 14 ef 35 3a ef 32 38 2c | 30 2c 31 30 2c 37 39 2c |..5:.28,|0,10,79,|
|00000080| 30 0d 00 50 13 45 43 4f | 4c 25 3d 33 3a 56 43 4f |0..P.ECO|L%=3:VCO|
|00000090| 4c 25 3d 37 0d 00 5a 0e | 2a 50 4f 49 4e 54 45 52 |L%=7..Z.|*POINTER|
|000000a0| 20 30 0d 00 64 15 4e 51 | 3d 33 3a de 20 51 28 32 | 0..d.NQ|=3:. Q(2|
|000000b0| 2c 4e 51 2b 31 30 29 0d | 00 6e 21 51 28 30 2c 30 |,NQ+10).|.n!Q(0,0|
|000000c0| 29 3d 30 3a 51 28 31 2c | 30 29 3d 31 35 30 3a 51 |)=0:Q(1,|0)=150:Q|
|000000d0| 28 32 2c 30 29 3d 33 30 | 0d 00 78 23 51 28 30 2c |(2,0)=30|..x#Q(0,|
|000000e0| 31 29 3d 32 30 3a 51 28 | 31 2c 31 29 3d 32 30 30 |1)=20:Q(|1,1)=200|
|000000f0| 3a 51 28 32 2c 31 29 3d | 35 30 30 0d 00 82 24 51 |:Q(2,1)=|500...$Q|
|00000100| 28 30 2c 32 29 3d 2d 32 | 30 3a 51 28 31 2c 32 29 |(0,2)=-2|0:Q(1,2)|
|00000110| 3d 38 30 30 3a 51 28 32 | 2c 32 29 3d 35 30 30 0d |=800:Q(2|,2)=500.|
|00000120| 00 8c 24 51 28 30 2c 33 | 29 3d 2d 31 30 3a 51 28 |..$Q(0,3|)=-10:Q(|
|00000130| 31 2c 33 29 3d 35 30 30 | 3a 51 28 32 2c 33 29 3d |1,3)=500|:Q(2,3)=|
|00000140| 37 30 30 0d 00 96 0c f2 | 43 48 41 52 47 45 53 0d |700.....|CHARGES.|
|00000150| 00 a0 13 50 49 32 3d 32 | 2a af 3a 52 43 3d 35 30 |...PI2=2|*.:RC=50|
|00000160| 30 30 0d 00 aa 0f 58 3d | 34 39 33 3a 59 3d 32 30 |00....X=|493:Y=20|
|00000170| 30 0d 00 b4 0e 2a 50 4f | 49 4e 54 45 52 20 31 0d |0....*PO|INTER 1.|
|00000180| 00 be 08 c8 97 20 ee 0d | 00 c8 13 54 53 54 45 50 |..... ..|...TSTEP|
|00000190| 3d 31 30 3a 4e 52 4e 44 | 3d 30 0d 00 d2 04 0d 00 |=10:NRND|=0......|
|000001a0| dc 2d d1 3d 30 3a f5 3a | c8 97 20 58 2c 59 2c 42 |.-.=0:.:|.. X,Y,B|
|000001b0| 55 54 54 4f 4e 3a fd 20 | 42 55 54 54 4f 4e 3c 3e |UTTON:. |BUTTON<>|
|000001c0| 30 20 84 20 91 3e 54 53 | 54 45 50 0d 00 e6 10 e7 |0 . .>TS|TEP.....|
|000001d0| 20 42 55 54 54 4f 4e 3d | 30 20 8c 0d 00 f0 38 54 | BUTTON=|0 ....8T|
|000001e0| 53 54 45 50 3d 31 30 3a | 58 3d b3 28 31 30 30 30 |STEP=10:|X=.(1000|
|000001f0| 29 3a 59 3d b3 28 39 30 | 30 29 2b 31 30 30 3a 42 |):Y=.(90|0)+100:B|
|00000200| 55 54 54 4f 4e 3d 34 3a | 4e 52 4e 44 3d 4e 52 4e |UTTON=4:|NRND=NRN|
|00000210| 44 2b 31 0d 00 f1 1d e7 | 20 4e 52 4e 44 3e 32 30 |D+1.....| NRND>20|
|00000220| 20 42 55 54 54 4f 4e 3d | 32 3a 4e 52 4e 44 3d 30 | BUTTON=|2:NRND=0|
|00000230| 0d 00 fa 05 cc 0d 01 04 | 0e 54 53 54 45 50 3d 31 |........|.TSTEP=1|
|00000240| 30 30 30 0d 01 0e 05 cd | 0d 01 18 25 e7 20 42 55 |000.....|...%. BU|
|00000250| 54 54 4f 4e 3d 34 20 f2 | 46 49 45 4c 44 3a f2 45 |TTON=4 .|FIELD:.E|
|00000260| 51 55 49 50 4f 54 3a e5 | 20 8d 64 5c 40 0d 01 22 |QUIPOT:.| .d\@.."|
|00000270| 1e e7 20 42 55 54 54 4f | 4e 3d 32 20 f2 43 48 41 |.. BUTTO|N=2 .CHA|
|00000280| 52 47 45 53 3a e5 20 8d | 64 5c 40 0d 01 2c 04 0d |RGES:. .|d\@..,..|
|00000290| 01 36 20 e7 20 42 55 54 | 54 4f 4e 3d 31 20 8c 20 |.6 . BUT|TON=1 . |
|000002a0| f2 42 55 54 54 4f 4e 31 | 3a e5 20 8d 64 5c 40 0d |.BUTTON1|:. .d\@.|
|000002b0| 01 40 04 0d 01 4a 05 e0 | 0d 01 54 04 0d 01 5e 0e |.@...J..|..T...^.|
|000002c0| dd 20 f2 45 51 55 49 50 | 4f 54 0d 01 68 0d e6 20 |. .EQUIP|OT..h.. |
|000002d0| 30 2c 56 43 4f 4c 25 0d | 01 72 24 4e 25 3d 30 3a |0,VCOL%.|.r$N%=0:|
|000002e0| f4 20 44 49 52 45 43 54 | 49 4f 4e 20 41 54 20 53 |. DIRECT|ION AT S|
|000002f0| 54 41 52 54 3a 20 41 3d | 2b 2d 31 0d 01 7c 0d 58 |TART: A=|+-1..|.X|
|00000300| 4f 3d 58 3a 59 4f 3d 59 | 0d 01 86 07 5a 3d 31 0d |O=X:YO=Y|....Z=1.|
|00000310| 01 90 0d 56 3d a4 56 28 | 58 2c 59 29 0d 01 9a 09 |...V=.V(|X,Y)....|
|00000320| 41 25 3d 2d 31 0d 01 a4 | 05 f5 0d 01 ae 16 53 54 |A%=-1...|......ST|
|00000330| 50 3d 34 2a 41 25 3a 58 | 3d 58 4f 3a 59 3d 59 4f |P=4*A%:X|=XO:Y=YO|
|00000340| 0d 01 b8 3d 44 56 44 58 | 3d 28 a4 56 28 58 2b 31 |...=DVDX|=(.V(X+1|
|00000350| 2c 59 29 2d a4 56 28 58 | 2d 31 2c 59 29 29 2f 32 |,Y)-.V(X|-1,Y))/2|
|00000360| 3a 44 56 44 59 3d 28 a4 | 56 28 58 2c 59 2b 31 29 |:DVDY=(.|V(X,Y+1)|
|00000370| 2d a4 56 28 58 2c 59 2d | 31 29 29 2f 32 0d 01 c2 |-.V(X,Y-|1))/2...|
|00000380| 3a 44 56 44 4e 3d b6 28 | 44 56 44 58 2a 44 56 44 |:DVDN=.(|DVDX*DVD|
|00000390| 58 2b 44 56 44 59 2a 44 | 56 44 59 29 3a 53 59 3d |X+DVDY*D|VDY):SY=|
|000003a0| 44 56 44 58 2f 44 56 44 | 4e 3a 53 58 3d 2d 44 56 |DVDX/DVD|N:SX=-DV|
|000003b0| 44 59 2f 44 56 44 4e 0d | 01 cc 21 58 31 3d 58 2b |DY/DVDN.|..!X1=X+|
|000003c0| 41 25 2a 53 54 50 2a 53 | 58 3a 59 31 3d 59 2b 53 |A%*STP*S|X:Y1=Y+S|
|000003d0| 59 2a 41 25 2a 53 54 50 | 0d 01 d6 12 f2 4e 45 57 |Y*A%*STP|.....NEW|
|000003e0| 54 28 56 2c 58 31 2c 59 | 31 29 0d 01 e0 3d 44 56 |T(V,X1,Y|1)...=DV|
|000003f0| 44 58 3d 28 a4 56 28 58 | 2b 31 2c 59 29 2d a4 56 |DX=(.V(X|+1,Y)-.V|
|00000400| 28 58 2d 31 2c 59 29 29 | 2f 32 3a 44 56 44 59 3d |(X-1,Y))|/2:DVDY=|
|00000410| 28 a4 56 28 58 2c 59 2b | 31 29 2d a4 56 28 58 2c |(.V(X,Y+|1)-.V(X,|
|00000420| 59 2d 31 29 29 2f 32 0d | 01 ea 3a 44 56 44 4e 3d |Y-1))/2.|..:DVDN=|
|00000430| b6 28 44 56 44 58 2a 44 | 56 44 58 2b 44 56 44 59 |.(DVDX*D|VDX+DVDY|
|00000440| 2a 44 56 44 59 29 3a 53 | 59 3d 44 56 44 58 2f 44 |*DVDY):S|Y=DVDX/D|
|00000450| 56 44 4e 3a 53 58 3d 2d | 44 56 44 59 2f 44 56 44 |VDN:SX=-|DVDY/DVD|
|00000460| 4e 0d 01 f4 1d 58 32 3d | 58 31 2b 53 54 50 2a 53 |N....X2=|X1+STP*S|
|00000470| 58 3a 59 32 3d 59 31 2b | 53 59 2a 53 54 50 0d 01 |X:Y2=Y1+|SY*STP..|
|00000480| fe 12 f2 4e 45 57 54 28 | 56 2c 58 32 2c 59 32 29 |...NEWT(|V,X2,Y2)|
|00000490| 0d 02 08 21 ec 20 58 2c | 59 3a df 20 58 32 2c 59 |...!. X,|Y:. X2,Y|
|000004a0| 32 3a 46 3d 31 2e 31 3a | 44 58 3d 30 3a 44 59 3d |2:F=1.1:|DX=0:DY=|
|000004b0| 30 0d 02 12 05 3a 0d 02 | 1c 05 f5 0d 02 26 47 58 |0....:..|.....&GX|
|000004c0| 3d 58 31 3a 58 31 3d 58 | 32 3a 59 3d 59 31 3a 59 |=X1:X1=X|2:Y=Y1:Y|
|000004d0| 31 3d 59 32 3a 5a 4f 3d | b6 28 28 58 2d 58 31 29 |1=Y2:ZO=|.((X-X1)|
|000004e0| 5e 32 2b 28 59 2d 59 31 | 29 5e 32 29 3a e7 20 5a |^2+(Y-Y1|)^2):. Z|
|000004f0| 4f 3c 31 30 20 46 3d 46 | 2a 31 2e 31 20 8b 20 46 |O<10 F=F|*1.1 . F|
|00000500| 3d 31 0d 02 30 08 49 25 | 3d 30 0d 02 3a 21 58 32 |=1..0.I%|=0..:!X2|
|00000510| 3d 58 31 2b 46 2a 28 58 | 31 2d 58 29 3a 59 32 3d |=X1+F*(X|1-X):Y2=|
|00000520| 59 31 2b 46 2a 28 59 31 | 2d 59 29 0d 02 44 41 58 |Y1+F*(Y1|-Y)..DAX|
|00000530| 33 3d 58 32 3a 59 33 3d | 59 32 3a f2 4e 45 57 54 |3=X2:Y3=|Y2:.NEWT|
|00000540| 28 56 2c 58 32 2c 59 32 | 29 3a 44 58 3d 58 33 2d |(V,X2,Y2|):DX=X3-|
|00000550| 58 32 3a 44 59 3d 59 33 | 2d 59 32 3a 5a 3d b6 28 |X2:DY=Y3|-Y2:Z=.(|
|00000560| 44 58 2a 44 58 2b 44 59 | 2a 44 59 29 0d 02 4e 34 |DX*DX+DY|*DY)..N4|
|00000570| e7 20 5a 3e 34 20 80 20 | 5a 3e 30 2e 30 35 2a 5a |. Z>4 . |Z>0.05*Z|
|00000580| 4f 20 80 20 49 25 3c 31 | 30 20 49 25 3d 49 25 2b |O . I%<1|0 I%=I%+|
|00000590| 31 3a 46 3d 46 2a 30 2e | 35 3a e5 20 8d 54 7a 42 |1:F=F*0.|5:. .TzB|
|000005a0| 0d 02 58 13 e7 20 59 32 | 3e 34 30 20 df 20 58 32 |..X.. Y2|>40 . X2|
|000005b0| 2c 59 32 0d 02 62 25 5a | 3d 28 58 4f 2d 58 31 29 |,Y2..b%Z|=(XO-X1)|
|000005c0| 2a 28 58 4f 2d 58 32 29 | 2b 28 59 4f 2d 59 31 29 |*(XO-X2)|+(YO-Y1)|
|000005d0| 2a 28 59 4f 2d 59 32 29 | 0d 02 6c 0b 4e 25 3d 4e |*(YO-Y2)|..l.N%=N|
|000005e0| 25 2b 31 0d 02 76 36 fd | 20 58 32 3c 30 20 84 20 |%+1..v6.| X2<0 . |
|000005f0| 58 32 3e 31 32 35 30 20 | 84 20 59 32 3c 34 30 20 |X2>1250 |. Y2<40 |
|00000600| 20 84 20 59 32 3e 31 30 | 32 34 20 84 20 5a 3c 30 | . Y2>10|24 . Z<0|
|00000610| 20 84 20 4e 25 3e 34 30 | 30 0d 02 80 16 41 25 2b | . N%>40|0....A%+|
|00000620| 3d 32 3a fd 20 5a 3c 30 | 20 84 20 41 25 3e 32 0d |=2:. Z<0| . A%>2.|
|00000630| 02 8a 05 e1 0d 02 94 05 | 3a 0d 02 9e 0d dd 20 a4 |........|:..... .|
|00000640| 56 28 58 2c 59 29 0d 02 | a8 0a ea 20 56 31 2c 49 |V(X,Y)..|... V1,I|
|00000650| 0d 02 b2 3a e3 20 49 3d | 31 20 b8 20 4e 51 3a 56 |...:. I=|1 . NQ:V|
|00000660| 31 3d 56 31 2b 51 28 30 | 2c 49 29 2f b6 28 28 58 |1=V1+Q(0|,I)/.((X|
|00000670| 2d 51 28 31 2c 49 29 29 | 5e 32 2b 28 59 2d 51 28 |-Q(1,I))|^2+(Y-Q(|
|00000680| 32 2c 49 29 29 5e 32 29 | 3a ed 0d 02 bc 07 3d 56 |2,I))^2)|:.....=V|
|00000690| 31 0d 02 c6 05 3a 0d 02 | d0 18 dd 20 f2 4e 45 57 |1....:..|... .NEW|
|000006a0| 54 28 56 2c f8 20 58 31 | 2c f8 20 59 31 29 0d 02 |T(V,. X1|,. Y1)..|
|000006b0| da 1e ea 20 52 2c 58 32 | 2c 59 32 2c 4e 58 2c 4e |... R,X2|,Y2,NX,N|
|000006c0| 59 2c 49 2c 44 56 44 4e | 3a 49 3d 30 0d 02 e4 05 |Y,I,DVDN|:I=0....|
|000006d0| f5 0d 02 ee 10 56 31 3d | a4 56 28 58 31 2c 59 31 |.....V1=|.V(X1,Y1|
|000006e0| 29 0d 02 f8 45 44 56 44 | 58 3d 28 a4 56 28 58 31 |)...EDVD|X=(.V(X1|
|000006f0| 2b 31 2c 59 31 29 2d a4 | 56 28 58 31 2d 31 2c 59 |+1,Y1)-.|V(X1-1,Y|
|00000700| 31 29 29 2f 32 3a 44 56 | 44 59 3d 28 a4 56 28 58 |1))/2:DV|DY=(.V(X|
|00000710| 31 2c 59 31 2b 31 29 2d | a4 56 28 58 31 2c 59 31 |1,Y1+1)-|.V(X1,Y1|
|00000720| 2d 31 29 29 2f 32 0d 03 | 02 39 44 56 44 4e 3d b6 |-1))/2..|.9DVDN=.|
|00000730| 28 44 56 44 58 2a 44 56 | 44 58 2b 44 56 44 59 2a |(DVDX*DV|DX+DVDY*|
|00000740| 44 56 44 59 29 3a 4e 58 | 3d 44 56 44 58 2f 44 56 |DVDY):NX|=DVDX/DV|
|00000750| 44 4e 3a 4e 59 3d 44 56 | 44 59 2f 44 56 44 4e 0d |DN:NY=DV|DY/DVDN.|
|00000760| 03 0c 2d 52 3d 28 56 2d | 56 31 29 2f 44 56 44 4e |..-R=(V-|V1)/DVDN|
|00000770| 3a e7 20 52 3e 35 30 20 | 52 3d 35 30 20 8b 20 e7 |:. R>50 |R=50 . .|
|00000780| 20 52 3c 2d 32 35 20 52 | 3d 2d 32 35 0d 03 16 1f | R<-25 R|=-25....|
|00000790| 58 31 3d 58 31 2b 52 2a | 4e 58 3a 59 31 3d 59 31 |X1=X1+R*|NX:Y1=Y1|
|000007a0| 2b 52 2a 4e 59 3a 49 3d | 49 2b 31 0d 03 20 14 fd |+R*NY:I=|I+1.. ..|
|000007b0| 20 94 28 52 29 3c 2e 35 | 20 84 20 49 3e 32 30 0d | .(R)<.5| . I>20.|
|000007c0| 03 2a 17 e7 20 54 45 53 | 54 20 f1 22 4e 45 57 54 |.*.. TES|T ."NEWT|
|000007d0| 20 49 3d 22 3b 49 0d 03 | 34 05 e1 0d 03 3e 05 3a | I=";I..|4....>.:|
|000007e0| 0d 03 48 0e dd 20 f2 43 | 48 41 52 47 45 53 0d 03 |..H.. .C|HARGES..|
|000007f0| 52 07 ea 20 49 0d 03 5c | 09 e6 20 31 33 32 0d 03 |R.. I..\|.. 132..|
|00000800| 66 05 da 0d 03 70 18 e6 | 20 31 3a c8 93 20 c8 90 |f....p..| 1:.. ..|
|00000810| 20 30 2c 30 2c 34 35 30 | 2c 34 30 0d 03 7a 30 58 | 0,0,450|,40..z0X|
|00000820| 4e 45 57 25 3d 35 35 30 | 3a 58 48 45 4c 50 25 3d |NEW%=550|:XHELP%=|
|00000830| 38 35 30 3a 58 53 49 4e | 42 49 4e 25 3d 31 31 32 |850:XSIN|BIN%=112|
|00000840| 30 3a 58 42 4f 58 25 3d | 31 36 30 0d 03 84 4c c8 |0:XBOX%=|160...L.|
|00000850| 93 20 c8 90 20 58 4e 45 | 57 25 2c 30 2c 58 42 4f |. .. XNE|W%,0,XBO|
|00000860| 58 25 2c 34 30 3a c8 93 | 20 c8 90 20 58 48 45 4c |X%,40:..| .. XHEL|
|00000870| 50 25 2c 30 2c 58 42 4f | 58 25 2c 34 30 3a c8 93 |P%,0,XBO|X%,40:..|
|00000880| 20 c8 90 20 58 53 49 4e | 42 49 4e 25 2c 30 2c 58 | .. XSIN|BIN%,0,X|
|00000890| 42 4f 58 25 2c 34 30 0d | 03 8e 7a 3a e6 20 37 3a |BOX%,40.|..z:. 7:|
|000008a0| ec 20 30 2c 33 35 3a f1 | 22 53 65 6c 65 63 74 20 |. 0,35:.|"Select |
|000008b0| 62 79 20 63 6c 69 63 6b | 69 6e 67 20 6f 6e 20 41 |by click|ing on A|
|000008c0| 44 4a 55 53 54 3a 22 3b | 3a ec 20 58 4e 45 57 25 |DJUST:";|:. XNEW%|
|000008d0| 2c 33 35 3a f1 22 4e 45 | 57 20 43 48 41 52 47 45 |,35:."NE|W CHARGE|
|000008e0| 22 3b 3a ec 20 58 48 45 | 4c 50 25 2c 33 35 3a f1 |";:. XHE|LP%,35:.|
|000008f0| 22 48 45 4c 50 22 3b 3a | ec 20 58 53 49 4e 42 49 |"HELP";:|. XSINBI|
|00000900| 4e 25 2c 33 35 3a f1 22 | 53 49 4e 20 42 49 4e 22 |N%,35:."|SIN BIN"|
|00000910| 3b 0d 03 98 09 e6 20 33 | 2c 37 0d 03 a2 0e e3 20 |;..... 3|,7..... |
|00000920| 49 3d 31 20 b8 20 4e 51 | 0d 03 ac 38 c8 8f 20 c8 |I=1 . NQ|...8.. .|
|00000930| 90 20 51 28 31 2c 49 29 | 2c 51 28 32 2c 49 29 2c |. Q(1,I)|,Q(2,I),|
|00000940| 31 30 3a ec 20 51 28 31 | 2c 49 29 2d 37 30 2c 51 |10:. Q(1|,I)-70,Q|
|00000950| 28 32 2c 49 29 2d 32 30 | 3a f1 51 28 30 2c 49 29 |(2,I)-20|:.Q(0,I)|
|00000960| 0d 03 b6 05 ed 0d 03 c0 | 07 e6 20 37 0d 03 ca 05 |........|.. 7....|
|00000970| e1 0d 03 d4 05 3a 0d 03 | de 0d dd 20 f2 53 50 52 |.....:..|... .SPR|
|00000980| 49 54 45 0d 03 e8 1f ec | 20 38 30 2c 38 30 3a ec |ITE.....| 80,80:.|
|00000990| 20 36 32 30 2c 37 32 30 | 3a 2a 53 47 45 54 20 42 | 620,720|:*SGET B|
|000009a0| 4f 58 0d 03 f2 1b e6 20 | 31 3a c8 93 20 c8 90 20 |OX..... |1:.. .. |
|000009b0| 38 30 2c 38 30 2c 35 34 | 30 2c 36 34 30 0d 03 fc |80,80,54|0,640...|
|000009c0| 1d e6 20 37 3a c8 93 20 | c8 90 20 31 30 30 2c 31 |.. 7:.. |.. 100,1|
|000009d0| 30 30 2c 35 30 30 2c 36 | 30 30 0d 04 06 23 e6 20 |00,500,6|00...#. |
|000009e0| 30 3a ec 20 31 31 30 2c | 36 38 30 3a 44 59 25 3d |0:. 110,|680:DY%=|
|000009f0| 33 36 3a 59 25 3d 36 38 | 30 2b 44 59 25 0d 04 10 |36:Y%=68|0+DY%...|
|00000a00| 36 59 25 3d 59 25 2d 44 | 59 25 3a ec 20 31 31 30 |6Y%=Y%-D|Y%:. 110|
|00000a10| 2c 59 25 3a f1 22 54 68 | 69 73 20 70 72 6f 67 72 |,Y%:."Th|is progr|
|00000a20| 61 6d 6d 65 20 64 72 61 | 77 73 20 20 20 20 20 20 |amme dra|ws |
|00000a30| 20 20 22 0d 04 1a 36 59 | 25 3d 59 25 2d 44 59 25 | "...6Y|%=Y%-DY%|
|00000a40| 3a ec 20 31 31 30 2c 59 | 25 3a f1 22 65 71 75 69 |:. 110,Y|%:."equi|
|00000a50| 70 6f 74 65 6e 74 69 61 | 6c 73 20 61 72 6f 75 6e |potentia|ls aroun|
|00000a60| 64 20 61 20 73 65 74 20 | 22 0d 04 24 36 59 25 3d |d a set |"..$6Y%=|
|00000a70| 59 25 2d 44 59 25 3a ec | 20 31 31 30 2c 59 25 3a |Y%-DY%:.| 110,Y%:|
|00000a80| f1 22 6f 66 20 63 68 61 | 72 67 65 73 2e 20 20 20 |."of cha|rges. |
|00000a90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 22 0d | | ".|
|00000aa0| 04 2e 3a 59 25 3d 59 25 | 2d 31 2e 35 2a 44 59 25 |..:Y%=Y%|-1.5*DY%|
|00000ab0| 3a ec 20 31 31 30 2c 59 | 25 3a f1 22 43 48 4f 4f |:. 110,Y|%:."CHOO|
|00000ac0| 53 45 20 61 20 70 6f 69 | 6e 74 20 62 79 20 63 6c |SE a poi|nt by cl|
|00000ad0| 69 63 6b 69 6e 67 20 20 | 22 0d 04 38 36 59 25 3d |icking |"..86Y%=|
|00000ae0| 59 25 2d 44 59 25 3a ec | 20 31 31 30 2c 59 25 3a |Y%-DY%:.| 110,Y%:|
|00000af0| f1 22 6f 6e 20 69 74 20 | 77 69 74 68 20 53 45 4c |."on it |with SEL|
|00000b00| 45 43 54 2c 20 74 68 65 | 20 20 20 20 20 20 22 0d |ECT, the| ".|
|00000b10| 04 42 36 59 25 3d 59 25 | 2d 44 59 25 3a ec 20 31 |.B6Y%=Y%|-DY%:. 1|
|00000b20| 31 30 2c 59 25 3a f1 22 | 6d 6f 75 73 65 20 62 75 |10,Y%:."|mouse bu|
|00000b30| 74 74 6f 6e 20 6f 6e 20 | 74 68 65 20 6c 65 66 74 |tton on |the left|
|00000b40| 2e 20 20 20 22 0d 04 4c | 3a 59 25 3d 59 25 2d 31 |. "..L|:Y%=Y%-1|
|00000b50| 2e 35 2a 44 59 25 3a ec | 20 31 31 30 2c 59 25 3a |.5*DY%:.| 110,Y%:|
|00000b60| f1 22 44 52 41 47 20 61 | 20 63 68 61 72 67 65 20 |."DRAG a| charge |
|00000b70| 62 79 20 63 6c 69 63 6b | 69 6e 67 20 6f 6e 22 0d |by click|ing on".|
|00000b80| 04 56 36 59 25 3d 59 25 | 2d 44 59 25 3a ec 20 31 |.V6Y%=Y%|-DY%:. 1|
|00000b90| 31 30 2c 59 25 3a f1 22 | 69 74 20 77 69 74 68 20 |10,Y%:."|it with |
|00000ba0| 41 44 4a 55 53 54 2c 20 | 74 68 65 20 72 69 67 68 |ADJUST, |the righ|
|00000bb0| 74 20 20 20 22 0d 04 60 | 36 59 25 3d 59 25 2d 44 |t "..`|6Y%=Y%-D|
|00000bc0| 59 25 3a ec 20 31 31 30 | 2c 59 25 3a f1 22 62 75 |Y%:. 110|,Y%:."bu|
|00000bd0| 74 74 6f 6e 2c 20 61 6e | 64 20 64 72 61 67 67 69 |tton, an|d draggi|
|00000be0| 6e 67 20 69 74 20 20 20 | 20 20 22 0d 04 6a 37 59 |ng it | "..j7Y|
|00000bf0| 25 3d 59 25 2d 44 59 25 | 3a ec 20 31 31 30 2c 59 |%=Y%-DY%|:. 110,Y|
|00000c00| 25 3a f1 22 73 6c 6f 77 | 6c 79 20 61 63 72 6f 73 |%:."slow|ly acros|
|00000c10| 73 20 74 68 65 20 73 63 | 72 65 65 6e 2e 20 20 20 |s the sc|reen. |
|00000c20| 20 22 0d 04 74 3a 59 25 | 3d 59 25 2d 31 2e 35 2a | "..t:Y%|=Y%-1.5*|
|00000c30| 44 59 25 3a ec 20 31 31 | 30 2c 59 25 3a f1 22 52 |DY%:. 11|0,Y%:."R|
|00000c40| 65 6d 6f 76 65 20 61 20 | 63 68 61 72 67 65 20 62 |emove a |charge b|
|00000c50| 79 20 20 20 20 20 20 20 | 20 20 20 22 0d 04 7e 36 |y | "..~6|
|00000c60| 59 25 3d 59 25 2d 44 59 | 25 3a ec 20 31 31 30 2c |Y%=Y%-DY|%:. 110,|
|00000c70| 59 25 3a f1 22 64 72 61 | 67 67 69 6e 67 20 69 74 |Y%:."dra|gging it|
|00000c80| 20 69 6e 74 6f 20 74 68 | 65 20 53 49 4e 20 42 49 | into th|e SIN BI|
|00000c90| 4e 22 0d 04 88 30 59 25 | 3d 59 25 2d 31 2e 35 2a |N"...0Y%|=Y%-1.5*|
|00000ca0| 44 59 25 3a ec 20 31 31 | 30 2c 59 25 3a f1 22 50 |DY%:. 11|0,Y%:."P|
|00000cb0| 72 65 73 73 20 45 53 43 | 20 74 6f 20 73 74 6f 70 |ress ESC| to stop|
|00000cc0| 2e 22 0d 04 92 36 59 25 | 3d 59 25 2d 44 59 25 3a |."...6Y%|=Y%-DY%:|
|00000cd0| ec 20 31 31 30 2c 59 25 | 3a f1 22 20 50 52 45 53 |. 110,Y%|:." PRES|
|00000ce0| 53 20 41 4e 59 20 4b 45 | 59 20 54 4f 20 43 4f 4e |S ANY KE|Y TO CON|
|00000cf0| 54 49 4e 55 45 20 20 22 | 0d 04 9c 08 c8 97 20 87 |TINUE "|...... .|
|00000d00| 0d 04 a6 0b 2a 46 58 32 | 31 2c 30 0d 04 b0 15 4b |....*FX2|1,0....K|
|00000d10| 24 3d be 3a 2a 53 43 48 | 4f 4f 53 45 20 42 4f 58 |$=.:*SCH|OOSE BOX|
|00000d20| 0d 04 ba 0e f0 26 45 44 | 2c 38 30 2c 38 30 0d 04 |.....&ED|,80,80..|
|00000d30| c4 07 e6 20 37 0d 04 ce | 0b 2a 46 58 32 31 2c 39 |... 7...|.*FX21,9|
|00000d40| 0d 04 d8 18 c8 97 20 ee | 3a c8 97 20 b8 20 58 48 |...... .|:.. . XH|
|00000d50| 45 4c 50 25 2c 31 30 30 | 0d 04 e2 05 e1 0d 04 ec |ELP%,100|........|
|00000d60| 05 3a 0d 04 f6 0e dd 20 | f2 42 55 54 54 4f 4e 31 |.:..... |.BUTTON1|
|00000d70| 0d 05 00 07 ea 20 49 0d | 05 0a 15 e7 20 59 3e 35 |..... I.|.... Y>5|
|00000d80| 30 20 4a 3d 30 3a e5 20 | 8d 74 6a 45 0d 05 14 15 |0 J=0:. |.tjE....|
|00000d90| f4 20 43 4c 49 43 4b 45 | 44 20 4f 4e 20 4d 45 4e |. CLICKE|D ON MEN|
|00000da0| 55 0d 05 1e 05 3a 0d 05 | 28 1f e7 20 58 3e 58 4e |U....:..|(.. X>XN|
|00000db0| 45 57 25 20 80 20 58 3c | 58 4e 45 57 25 2b 58 42 |EW% . X<|XNEW%+XB|
|00000dc0| 4f 58 25 20 8c 0d 05 32 | 10 f4 20 4e 45 57 20 43 |OX% ...2|.. NEW C|
|00000dd0| 48 41 52 47 45 0d 05 3c | 23 4e 51 3d 4e 51 2b 31 |HARGE..<|#NQ=NQ+1|
|00000de0| 3a 49 3d 4e 51 3a 58 3d | 58 4e 45 57 25 3a 59 3d |:I=NQ:X=|XNEW%:Y=|
|00000df0| 31 30 30 3a c8 97 20 87 | 0d 05 46 0b 2a 46 58 32 |100:.. .|..F.*FX2|
|00000e00| 31 2c 30 0d 05 50 4a ef | 37 3a ec 20 58 4e 45 57 |1,0..PJ.|7:. XNEW|
|00000e10| 25 2c 31 30 30 3a e8 22 | 43 48 41 52 47 45 20 22 |%,100:."|CHARGE "|
|00000e20| 2c 51 28 30 2c 49 29 3a | e7 20 51 28 30 2c 49 29 |,Q(0,I):|. Q(0,I)|
|00000e30| 3d 33 2e 31 34 20 8c 20 | 2a 48 41 52 44 43 4f 50 |=3.14 . |*HARDCOP|
|00000e40| 59 46 58 20 30 20 31 20 | 31 20 30 20 31 0d 05 5a |YFX 0 1 |1 0 1..Z|
|00000e50| 2e 51 28 31 2c 49 29 3d | 58 3a 51 28 32 2c 49 29 |.Q(1,I)=|X:Q(2,I)|
|00000e60| 3d 59 3a c8 97 20 b8 20 | 58 2c 59 3a c8 97 20 ee |=Y:.. . |X,Y:.. .|
|00000e70| 3a f2 43 48 41 52 47 45 | 53 3a e1 0d 05 64 05 3a |:.CHARGE|S:...d.:|
|00000e80| 0d 05 6e 22 cc e7 20 58 | 3e 58 48 45 4c 50 25 20 |..n".. X|>XHELP% |
|00000e90| 80 20 58 3c 58 48 45 4c | 50 25 2b 58 42 4f 58 25 |. X<XHEL|P%+XBOX%|
|00000ea0| 20 8c 0d 05 78 0b f2 53 | 50 52 49 54 45 0d 05 82 | ...x..S|PRITE...|
|00000eb0| 05 cd 0d 05 8c 05 e1 0d | 05 96 05 3a 0d 05 a0 1d |........|...:....|
|00000ec0| f4 20 44 52 41 47 47 49 | 4e 47 20 41 4e 20 4f 4c |. DRAGGI|NG AN OL|
|00000ed0| 44 20 43 48 41 52 47 45 | 3f 0d 05 aa 41 e3 20 49 |D CHARGE|?...A. I|
|00000ee0| 3d 30 20 b8 20 4e 51 3a | 5a 3d b6 28 28 58 2d 51 |=0 . NQ:|Z=.((X-Q|
|00000ef0| 28 31 2c 49 29 29 5e 32 | 2b 28 59 2d 51 28 32 2c |(1,I))^2|+(Y-Q(2,|
|00000f00| 49 29 29 5e 32 29 3a e7 | 20 5a 3c 35 30 20 80 20 |I))^2):.| Z<50 . |
|00000f10| 49 3e 30 20 e5 20 8d 74 | 7e 45 0d 05 b4 07 ed 3a |I>0 . .t|~E.....:|
|00000f20| e1 0d 05 be 2a e7 20 28 | 51 28 31 2c 49 29 3e 58 |....*. (|Q(1,I)>X|
|00000f30| 53 49 4e 42 49 4e 25 20 | 80 20 51 28 32 2c 49 29 |SINBIN% |. Q(2,I)|
|00000f40| 3c 36 30 29 20 e5 20 8d | 54 6c 46 0d 05 c8 16 e7 |<60) . .|TlF.....|
|00000f50| 20 4a 3d 30 20 f2 43 48 | 41 52 47 45 53 3a 4a 3d | J=0 .CH|ARGES:J=|
|00000f60| 31 0d 05 d2 09 e6 20 33 | 2c 37 0d 05 dc 38 c8 8f |1..... 3|,7...8..|
|00000f70| 20 c8 90 20 51 28 31 2c | 49 29 2c 51 28 32 2c 49 | .. Q(1,|I),Q(2,I|
|00000f80| 29 2c 31 30 3a ec 20 51 | 28 31 2c 49 29 2d 37 30 |),10:. Q|(1,I)-70|
|00000f90| 2c 51 28 32 2c 49 29 2d | 32 30 3a f1 51 28 30 2c |,Q(2,I)-|20:.Q(0,|
|00000fa0| 49 29 0d 05 e6 15 51 28 | 31 2c 49 29 3d 58 3a 51 |I)....Q(|1,I)=X:Q|
|00000fb0| 28 32 2c 49 29 3d 59 0d | 05 f0 38 c8 8f 20 c8 90 |(2,I)=Y.|..8.. ..|
|00000fc0| 20 51 28 31 2c 49 29 2c | 51 28 32 2c 49 29 2c 31 | Q(1,I),|Q(2,I),1|
|00000fd0| 30 3a ec 20 51 28 31 2c | 49 29 2d 37 30 2c 51 28 |0:. Q(1,|I)-70,Q(|
|00000fe0| 32 2c 49 29 2d 32 30 3a | f1 51 28 30 2c 49 29 0d |2,I)-20:|.Q(0,I).|
|00000ff0| 05 fa 07 e6 20 37 0d 06 | 04 25 c8 97 20 58 2c 59 |.... 7..|.%.. X,Y|
|00001000| 2c 42 55 54 54 4f 4e 25 | 3a e7 20 42 55 54 54 4f |,BUTTON%|:. BUTTO|
|00001010| 4e 25 3d 31 20 e5 20 8d | 74 6a 45 0d 06 0e 05 e1 |N%=1 . .|tjE.....|
|00001020| 0d 06 18 05 3a 0d 06 22 | 0d f4 20 53 49 4e 20 42 |....:.."|.. SIN B|
|00001030| 49 4e 0d 06 2c 37 51 28 | 30 2c 49 29 3d 51 28 30 |IN..,7Q(|0,I)=Q(0|
|00001040| 2c 4e 51 29 3a 58 3d 51 | 28 31 2c 4e 51 29 3a 59 |,NQ):X=Q|(1,NQ):Y|
|00001050| 3d 51 28 32 2c 4e 51 29 | 3a 4e 51 3d 4e 51 2d 31 |=Q(2,NQ)|:NQ=NQ-1|
|00001060| 3a c8 97 20 b8 20 58 2c | 59 0d 06 36 20 51 28 31 |:.. . X,|Y..6 Q(1|
|00001070| 2c 49 29 3d 58 3a 51 28 | 32 2c 49 29 3d 59 3a f2 |,I)=X:Q(|2,I)=Y:.|
|00001080| 43 48 41 52 47 45 53 3a | e1 0d 06 40 05 e1 0d 06 |CHARGES:|...@....|
|00001090| 4a 05 3a 0d 06 54 0c dd | 20 f2 46 49 45 4c 44 0d |J.:..T..| .FIELD.|
|000010a0| 06 5e 0d e6 20 30 2c 45 | 43 4f 4c 25 0d 06 68 24 |.^.. 0,E|COL%..h$|
|000010b0| 4e 25 3d 30 3a f4 20 44 | 49 52 45 43 54 49 4f 4e |N%=0:. D|IRECTION|
|000010c0| 20 41 54 20 53 54 41 52 | 54 3a 20 41 3d 2b 2d 31 | AT STAR|T: A=+-1|
|000010d0| 0d 06 72 0d 58 4f 3d 58 | 3a 59 4f 3d 59 0d 06 7c |..r.XO=X|:YO=Y..||
|000010e0| 0d 56 3d a4 56 28 58 2c | 59 29 0d 06 86 24 e3 20 |.V=.V(X,|Y)...$. |
|000010f0| 41 25 3d 2d 31 20 b8 20 | 31 20 88 20 32 3a f4 20 |A%=-1 . |1 . 2:. |
|00001100| 54 57 4f 20 44 49 52 45 | 43 54 49 4f 4e 53 0d 06 |TWO DIRE|CTIONS..|
|00001110| 90 16 53 54 50 3d 38 2a | 41 25 3a 58 3d 58 4f 3a |..STP=8*|A%:X=XO:|
|00001120| 59 3d 59 4f 0d 06 9a 09 | ec 20 58 2c 59 0d 06 a4 |Y=YO....|. X,Y...|
|00001130| 05 f5 0d 06 ae 3d 44 56 | 44 58 3d 28 a4 56 28 58 |.....=DV|DX=(.V(X|
|00001140| 2b 31 2c 59 29 2d a4 56 | 28 58 2d 31 2c 59 29 29 |+1,Y)-.V|(X-1,Y))|
|00001150| 2f 32 3a 44 56 44 59 3d | 28 a4 56 28 58 2c 59 2b |/2:DVDY=|(.V(X,Y+|
|00001160| 31 29 2d a4 56 28 58 2c | 59 2d 31 29 29 2f 32 0d |1)-.V(X,|Y-1))/2.|
|00001170| 06 b8 42 44 56 44 4e 3d | b6 28 44 56 44 58 2a 44 |..BDVDN=|.(DVDX*D|
|00001180| 56 44 58 2b 44 56 44 59 | 2a 44 56 44 59 29 3a e7 |VDX+DVDY|*DVDY):.|
|00001190| 20 44 56 44 4e 3e 30 20 | 53 58 3d 44 56 44 58 2f | DVDN>0 |SX=DVDX/|
|000011a0| 44 56 44 4e 3a 53 59 3d | 44 56 44 59 2f 44 56 44 |DVDN:SY=|DVDY/DVD|
|000011b0| 4e 0d 06 c2 19 58 3d 58 | 2b 53 54 50 2a 53 58 3a |N....X=X|+STP*SX:|
|000011c0| 59 3d 59 2b 53 59 2a 53 | 54 50 0d 06 cc 09 df 20 |Y=Y+SY*S|TP..... |
|000011d0| 58 2c 59 0d 06 d6 0b 4e | 25 3d 4e 25 2b 31 0d 06 |X,Y....N|%=N%+1..|
|000011e0| e0 0d 4e 53 54 3d 32 30 | 30 30 30 0d 06 ea 43 e3 |..NST=20|000...C.|
|000011f0| 20 49 3d 31 20 b8 20 4e | 51 3a 4e 45 41 52 3d 28 | I=1 . N|Q:NEAR=(|
|00001200| 28 58 2d 51 28 31 2c 49 | 29 29 5e 32 2b 28 59 2d |(X-Q(1,I|))^2+(Y-|
|00001210| 51 28 32 2c 49 29 29 5e | 32 29 3a e7 20 4e 45 41 |Q(2,I))^|2):. NEA|
|00001220| 52 3c 4e 53 54 20 4e 53 | 54 3d 4e 45 41 52 0d 06 |R<NST NS|T=NEAR..|
|00001230| f4 05 ed 0d 06 fe 36 fd | 20 4e 53 54 3c 32 30 30 |......6.| NST<200|
|00001240| 20 84 20 58 3c 30 20 84 | 20 58 3e 31 32 35 30 20 | . X<0 .| X>1250 |
|00001250| 84 20 59 3c 34 30 20 20 | 84 20 59 3e 31 30 32 34 |. Y<40 |. Y>1024|
|00001260| 20 84 20 4e 25 3e 34 30 | 30 0d 07 08 08 ed 20 41 | . N%>40|0..... A|
|00001270| 25 0d 07 12 0d 58 3d 58 | 4f 3a 59 3d 59 4f 0d 07 |%....X=X|O:Y=YO..|
|00001280| 1c 05 e1 0d ff | |..... | |
+--------+-------------------------+-------------------------+--------+--------+
