home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1990-04-15 | 14.2 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 0b f4 3e 53 4c | 49 54 53 0d 00 14 10 ee |.....>SL|ITS.....|
|00000010| 20 85 20 2a 44 45 53 4b | 54 4f 50 0d 00 1e 0c 2a | . *DESK|TOP....*|
|00000020| 46 58 31 31 32 2c 30 0d | 00 28 0e 2a 50 4f 49 4e |FX112,0.|.(.*POIN|
|00000030| 54 45 52 20 31 0d 00 32 | 07 eb 31 32 0d 00 3c 14 |TER 1..2|..12..<.|
|00000040| 2a 41 4c 50 48 41 42 45 | 54 20 47 52 45 45 43 45 |*ALPHABE|T GREECE|
|00000050| 0d 00 46 09 f2 49 4e 49 | 54 0d 00 50 0a 53 4c 4f |..F..INI|T..P.SLO|
|00000060| 57 3d a3 0d 00 5a 12 f2 | 57 41 56 45 4c 45 4e 47 |W=...Z..|WAVELENG|
|00000070| 54 48 28 30 29 0d 00 64 | 05 f5 0d 00 6e 0b f2 52 |TH(0)..d|....n..R|
|00000080| 45 49 4e 49 54 0d 00 78 | 0e f2 44 52 41 57 53 4c |EINIT..x|..DRAWSL|
|00000090| 49 54 53 0d 00 82 15 e7 | 20 52 25 3c 3e 36 20 f2 |ITS.....| R%<>6 .|
|000000a0| 53 45 54 55 50 45 58 50 | 0d 00 8c 0d f2 44 52 41 |SETUPEXP|.....DRA|
|000000b0| 57 42 45 41 4d 0d 00 96 | 13 f2 50 52 49 4e 54 41 |WBEAM...|..PRINTA|
|000000c0| 4e 47 4c 45 53 28 30 29 | 0d 00 a0 0c f2 42 45 41 |NGLES(0)|.....BEA|
|000000d0| 4d 28 30 29 0d 00 aa 0c | f2 50 4c 4f 54 28 30 29 |M(0)....|.PLOT(0)|
|000000e0| 0d 00 b4 0d f2 57 45 44 | 47 45 28 30 29 0d 00 be |.....WED|GE(0)...|
|000000f0| 0a 53 4c 4f 57 3d a3 0d | 00 c8 0e f2 43 41 4c 43 |.SLOW=..|....CALC|
|00000100| 53 4c 49 54 53 0d 00 d2 | 09 f2 44 52 41 57 0d 00 |SLITS...|..DRAW..|
|00000110| dc 0b ec 20 30 2c 35 30 | 30 0d 00 e6 14 f2 4d 4f |... 0,50|0.....MO|
|00000120| 55 53 45 28 58 25 2c 59 | 25 2c 42 25 29 0d 00 f0 |USE(X%,Y|%,B%)...|
|00000130| 07 fd 20 a3 0d 00 fa 05 | e0 0d 01 04 05 3a 0d 01 |.. .....|.....:..|
|00000140| 0e 0b dd 20 f2 49 4e 49 | 54 0d 01 18 3d de 20 45 |... .INI|T...=. E|
|00000150| 25 28 33 30 29 3a 45 25 | 28 30 29 3d 31 3a 45 25 |%(30):E%|(0)=1:E%|
|00000160| 28 31 29 3d 31 30 30 3a | 45 25 28 32 29 3d 32 30 |(1)=100:|E%(2)=20|
|00000170| 30 3a 4c 41 4d 42 44 41 | 25 3d 35 30 3a 45 25 28 |0:LAMBDA|%=50:E%(|
|00000180| 33 29 3d 39 30 30 0d 01 | 22 1d 54 48 31 25 3d 36 |3)=900..|".TH1%=6|
|00000190| 30 3a 54 48 32 25 3d 2d | 36 30 3a f4 20 41 4e 47 |0:TH2%=-|60:. ANG|
|000001a0| 4c 45 53 0d 01 2c 0d 49 | 4e 4d 4f 55 53 45 3d a3 |LES..,.I|NMOUSE=.|
|000001b0| 0d 01 36 0b f2 41 53 49 | 4e 49 54 0d 01 40 30 4d |..6..ASI|NIT..@0M|
|000001c0| 41 58 25 3d 34 30 30 30 | 3a de 20 56 25 20 4d 41 |AX%=4000|:. V% MA|
|000001d0| 58 25 2c 55 25 20 4d 41 | 58 25 2c 49 4e 28 32 35 |X%,U% MA|X%,IN(25|
|000001e0| 36 29 2c 48 54 25 28 32 | 35 36 29 0d 01 4a 2d 58 |6),HT%(2|56)..J-X|
|000001f0| 4e 25 3d 39 32 30 3a 59 | 4e 25 3d 31 30 30 30 3a |N%=920:Y|N%=1000:|
|00000200| 4e 25 3d 2d 31 3a f4 20 | 4e 55 4d 42 45 52 20 4f |N%=-1:. |NUMBER O|
|00000210| 46 20 50 4f 49 4e 54 53 | 0d 01 54 08 42 57 3d a3 |F POINTS|..T.BW=.|
|00000220| 0d 01 5e 0e 52 25 3d 30 | 3a 57 25 3d 31 36 0d 01 |..^.R%=0|:W%=16..|
|00000230| 68 06 ef 35 0d 01 72 0a | 53 4c 4f 57 3d b9 0d 01 |h..5..r.|SLOW=...|
|00000240| 7c 08 c8 97 20 ee 0d 01 | 86 19 ef 20 31 39 2c 30 ||... ...|... 19,0|
|00000250| 2c 32 34 2c 31 32 30 2c | 31 32 30 2c 31 32 30 0d |,24,120,|120,120.|
|00000260| 01 90 12 fb 20 30 2c 38 | 30 2c 38 30 2c 38 30 3a |.... 0,8|0,80,80:|
|00000270| da 0d 01 9a 65 58 52 45 | 53 54 41 52 54 25 3d 35 |....eXRE|START%=5|
|00000280| 30 30 3a 59 52 45 53 54 | 41 52 54 25 3d 36 30 3a |00:YREST|ART%=60:|
|00000290| 57 52 45 53 54 41 52 54 | 25 3d 31 35 30 3a 48 52 |WRESTART|%=150:HR|
|000002a0| 45 53 54 41 52 54 25 3d | 35 30 3a f4 20 58 2c 59 |ESTART%=|50:. X,Y|
|000002b0| 2c 57 49 44 54 48 2c 48 | 45 49 47 48 54 20 4f 46 |,WIDTH,H|EIGHT OF|
|000002c0| 20 52 45 43 54 41 4e 47 | 4c 45 20 46 4f 52 20 52 | RECTANG|LE FOR R|
|000002d0| 45 53 54 41 52 54 0d 01 | a4 5a 58 43 52 45 53 54 |ESTART..|.ZXCREST|
|000002e0| 41 52 54 25 3d 37 30 30 | 3a 59 43 52 45 53 54 41 |ART%=700|:YCRESTA|
|000002f0| 52 54 25 3d 36 30 3a 57 | 43 52 45 53 54 41 52 54 |RT%=60:W|CRESTART|
|00000300| 25 3d 33 35 30 3a 48 43 | 52 45 53 54 41 52 54 25 |%=350:HC|RESTART%|
|00000310| 3d 35 30 3a f4 20 53 41 | 4d 45 20 46 4f 52 20 43 |=50:. SA|ME FOR C|
|00000320| 4c 45 41 52 20 41 4e 44 | 20 52 45 53 54 41 52 54 |LEAR AND| RESTART|
|00000330| 0d 01 ae 3a 58 55 41 25 | 3d 33 32 30 3a 59 55 41 |...:XUA%|=320:YUA|
|00000340| 25 3d 31 30 30 30 3a 41 | 42 57 25 3d 31 32 30 3a |%=1000:A|BW%=120:|
|00000350| 41 42 48 25 3d 31 34 30 | 3a f4 20 55 50 50 45 52 |ABH%=140|:. UPPER|
|00000360| 20 41 4e 47 4c 45 20 42 | 4f 58 0d 01 b8 28 58 4c | ANGLE B|OX...(XL|
|00000370| 41 25 3d 58 55 41 25 3a | 59 4c 41 25 3d 38 34 30 |A%=XUA%:|YLA%=840|
|00000380| 3a f4 20 4c 4f 57 45 52 | 20 41 4e 47 4c 45 20 42 |:. LOWER| ANGLE B|
|00000390| 4f 58 0d 01 c2 5e 58 42 | 45 41 4d 25 3d 58 55 41 |OX...^XB|EAM%=XUA|
|000003a0| 25 3a 59 42 45 41 4d 25 | 3d 36 38 30 3a 57 42 45 |%:YBEAM%|=680:WBE|
|000003b0| 41 4d 25 3d 41 42 57 25 | 3a 48 42 45 41 4d 25 3d |AM%=ABW%|:HBEAM%=|
|000003c0| 41 42 48 25 3a 54 48 42 | 45 41 4d 3d 30 3a 4f 54 |ABH%:THB|EAM=0:OT|
|000003d0| 48 42 45 41 4d 3d 30 3a | 43 48 42 45 41 4d 3d a3 |HBEAM=0:|CHBEAM=.|
|000003e0| 3a f4 20 42 45 41 4d 20 | 53 54 45 45 52 49 4e 47 |:. BEAM |STEERING|
|000003f0| 0d 01 cc 50 58 50 4c 4f | 54 25 3d 33 32 30 3a 59 |...PXPLO|T%=320:Y|
|00000400| 50 4c 4f 54 25 3d 35 32 | 30 3a 57 50 4c 4f 54 25 |PLOT%=52|0:WPLOT%|
|00000410| 3d 31 32 30 3a 48 50 4c | 4f 54 25 3d 31 30 30 3a |=120:HPL|OT%=100:|
|00000420| 4c 49 4e 4e 4f 54 4c 4f | 47 3d b9 3a f4 20 4c 4f |LINNOTLO|G=.:. LO|
|00000430| 47 20 4f 52 20 4c 49 4e | 45 41 52 20 50 4c 4f 54 |G OR LIN|EAR PLOT|
|00000440| 0d 01 d6 56 58 57 45 44 | 47 45 25 3d 33 32 30 3a |...VXWED|GE%=320:|
|00000450| 59 57 45 44 47 45 25 3d | 34 30 30 3a 57 57 45 44 |YWEDGE%=|400:WWED|
|00000460| 47 45 25 3d 31 32 30 3a | 48 57 45 44 47 45 25 3d |GE%=120:|HWEDGE%=|
|00000470| 31 30 30 3a 57 45 44 47 | 45 4f 55 54 3d b9 3a f4 |100:WEDG|EOUT=.:.|
|00000480| 20 47 4c 41 53 53 20 57 | 45 44 47 45 20 49 4e 20 | GLASS W|EDGE IN |
|00000490| 4f 52 20 4f 55 54 0d 01 | e0 0d 54 48 42 45 41 4d |OR OUT..|..THBEAM|
|000004a0| 25 3d 30 0d 01 ea 05 3a | 0d 01 f4 0a f2 53 54 4f |%=0....:|.....STO|
|000004b0| 52 59 0d 01 fe 09 e6 20 | 30 2c 31 0d 02 08 0e 47 |RY..... |0,1....G|
|000004c0| 57 49 4e 44 25 3d 34 37 | 30 0d 02 12 18 c8 93 20 |WIND%=47|0...... |
|000004d0| c8 90 20 30 2c 30 2c 47 | 57 49 4e 44 25 2d 34 2c |.. 0,0,G|WIND%-4,|
|000004e0| 34 0d 02 1c 1b c8 93 20 | c8 90 20 47 57 49 4e 44 |4...... |.. GWIND|
|000004f0| 25 2d 38 2c 30 2c 34 2c | 31 30 32 34 0d 02 26 1b |%-8,0,4,|1024..&.|
|00000500| c8 93 20 c8 90 20 30 2c | 31 30 31 36 2c 47 57 49 |.. .. 0,|1016,GWI|
|00000510| 4e 44 25 2d 34 2c 38 0d | 02 30 14 c8 93 20 c8 90 |ND%-4,8.|.0... ..|
|00000520| 20 30 2c 30 2c 34 2c 31 | 30 32 30 0d 02 44 0a 52 | 0,0,4,1|020..D.R|
|00000530| 45 51 37 3d a3 0d 02 4e | 05 e1 0d 02 58 05 3a 0d |EQ7=...N|....X.:.|
|00000540| 02 62 0d dd 20 f2 52 45 | 49 4e 49 54 0d 02 6c 49 |.b.. .RE|INIT..lI|
|00000550| e7 20 4e 25 3e 30 20 80 | 20 52 25 3d 37 20 e6 20 |. N%>0 .| R%=7 . |
|00000560| 33 2c 33 3a e3 20 49 3d | 30 20 b8 20 32 35 36 3a |3,3:. I=|0 . 256:|
|00000570| 86 20 31 32 37 36 2d 48 | 54 25 28 49 29 2c 34 2a |. 1276-H|T%(I),4*|
|00000580| 49 2c 31 32 37 36 2c 34 | 2a 49 3a 48 54 25 28 49 |I,1276,4|*I:HT%(I|
|00000590| 29 3d 30 3a ed 0d 02 76 | 1f e7 20 4e 25 3e 30 20 |)=0:...v|.. N%>0 |
|000005a0| ec 20 58 4e 25 2c 59 4e | 25 3a e6 20 33 2c 33 3a |. XN%,YN|%:. 3,3:|
|000005b0| f1 20 4e 25 0d 02 80 05 | e1 0d 02 8a 05 3a 0d 02 |. N%....|.....:..|
|000005c0| 94 0b dd 20 f2 44 52 41 | 57 0d 02 9e 32 4e 25 3d |... .DRA|W...2N%=|
|000005d0| 30 3a 51 25 3d 52 45 46 | 25 3a e3 20 49 25 3d 30 |0:Q%=REF|%:. I%=0|
|000005e0| 20 b8 20 52 45 46 25 3a | 3f 28 55 25 2b 49 25 29 | . REF%:|?(U%+I%)|
|000005f0| 3d 3f 28 56 25 2b 49 25 | 29 3a ed 0d 02 a8 3c e6 |=?(V%+I%|):....<.|
|00000600| 20 30 2c 33 3a ec 20 58 | 4e 25 2d 32 32 30 2c 59 | 0,3:. X|N%-220,Y|
|00000610| 4e 25 3a f1 22 4e 75 6d | 62 65 72 20 6f 66 20 70 |N%:."Num|ber of p|
|00000620| 6f 69 6e 74 73 20 3d 20 | 22 3a ec 20 58 4e 25 2c |oints = |":. XN%,|
|00000630| 59 4e 25 3a f1 4e 25 0d | 02 b2 09 e6 20 33 2c 33 |YN%:.N%.|.... 3,3|
|00000640| 0d 02 bc 05 f5 0d 02 c6 | 20 49 25 3d b3 28 51 25 |........| I%=.(Q%|
|00000650| 29 3a 4a 25 3d 3f 28 55 | 25 2b 49 25 29 3a 4b 25 |):J%=?(U|%+I%):K%|
|00000660| 3d 4a 25 2a 34 0d 02 d0 | 15 86 20 58 53 25 2c 59 |=J%*4...|.. XS%,Y|
|00000670| 53 25 2c 31 32 38 30 2c | 4b 25 0d 02 da 16 c8 92 |S%,1280,|K%......|
|00000680| 20 31 32 37 34 2d 48 54 | 25 28 4a 25 29 2c 4b 25 | 1274-HT|%(J%),K%|
|00000690| 0d 02 e4 57 48 54 25 28 | 4a 25 29 2b 3d 32 3a 3f |...WHT%(|J%)+=2:?|
|000006a0| 28 55 25 2b 49 25 29 3d | 3f 28 55 25 2b 51 25 29 |(U%+I%)=|?(U%+Q%)|
|000006b0| 3a 51 25 2d 3d 31 3a e7 | 20 51 25 3c 31 20 51 25 |:Q%-=1:.| Q%<1 Q%|
|000006c0| 3d 52 45 46 25 3a e3 20 | 49 25 3d 30 20 b8 20 52 |=REF%:. |I%=0 . R|
|000006d0| 45 46 25 3a 3f 28 55 25 | 2b 49 25 29 3d 3f 28 56 |EF%:?(U%|+I%)=?(V|
|000006e0| 25 2b 49 25 29 3a ed 0d | 02 ee 10 e7 20 bf 28 30 |%+I%):..|.... .(0|
|000006f0| 29 3c 3e 22 22 20 8c 0d | 02 f8 0c 2a 46 58 20 32 |)<>"" ..|...*FX 2|
|00000700| 31 2c 30 0d 03 02 10 d1 | 3d 30 3a f5 20 fd 20 91 |1,0.....|=0:. . .|
|00000710| 3e 35 30 0d 03 0c 05 cd | 0d 03 16 24 86 20 58 53 |>50.....|...$. XS|
|00000720| 25 2c 59 53 25 2c 31 32 | 38 30 2c 4b 25 3a ec 20 |%,YS%,12|80,K%:. |
|00000730| 58 4e 25 2c 59 4e 25 3a | f1 20 4e 25 0d 03 20 18 |XN%,YN%:|. N%.. .|
|00000740| 4e 25 2b 3d 31 3a ec 20 | 58 4e 25 2c 59 4e 25 3a |N%+=1:. |XN%,YN%:|
|00000750| f1 20 4e 25 0d 03 2a 0f | c8 97 20 58 25 2c 59 25 |. N%..*.|.. X%,Y%|
|00000760| 2c 42 25 0d 03 34 0b fd | 20 42 25 3c 3e 30 0d 03 |,B%..4..| B%<>0..|
|00000770| 3e 07 ef 32 36 0d 03 48 | 05 e1 0d 03 52 05 3a 0d |>..26..H|....R.:.|
|00000780| 03 5c 0f dd 20 f2 53 45 | 54 55 50 45 58 50 0d 03 |.\.. .SE|TUPEXP..|
|00000790| 66 2b f4 41 24 3d 22 22 | 3a 52 45 4d 49 4e 50 55 |f+.A$=""|:REMINPU|
|000007a0| 54 22 46 75 6e 63 74 69 | 6f 6e 20 6f 66 20 61 6e |T"Functi|on of an|
|000007b0| 67 6c 65 20 41 22 2c 41 | 24 0d 03 70 27 f4 49 46 |gle A",A|$..p'.IF|
|000007c0| 20 41 24 3d 22 22 20 41 | 24 3d 22 53 49 4e 28 38 | A$="" A|$="SIN(8|
|000007d0| 2a 41 29 2f 28 41 2b 30 | 2e 30 30 30 30 31 29 22 |*A)/(A+0|.00001)"|
|000007e0| 0d 03 7a 05 3a 0d 03 84 | 1d ef 32 34 2c 47 57 49 |..z.:...|..24,GWI|
|000007f0| 4e 44 25 3b 30 3b 31 32 | 37 39 3b 31 30 32 33 3b |ND%;0;12|79;1023;|
|00000800| 3a da 0d 03 8e 4f f4 47 | 43 4f 4c 20 30 2c 35 3a |:....O.G|COL 0,5:|
|00000810| 4d 44 3d 30 3a 4d 4f 56 | 45 20 35 30 30 2c 31 30 |MD=0:MOV|E 500,10|
|00000820| 30 30 3a 50 52 49 4e 54 | 22 4d 6f 64 65 3a 20 42 |00:PRINT|"Mode: B|
|00000830| 75 69 6c 64 22 3b 3a 52 | 45 43 54 41 4e 47 4c 45 |uild";:R|ECTANGLE|
|00000840| 20 34 38 30 2c 31 30 31 | 30 2c 32 30 30 2c 2d 35 | 480,101|0,200,-5|
|00000850| 30 0d 03 98 25 54 48 31 | 3d 54 48 31 25 2a 28 af |0...%TH1|=TH1%*(.|
|00000860| 2f 31 38 30 29 3a 54 48 | 32 3d 54 48 32 25 2a 28 |/180):TH|2=TH2%*(|
|00000870| af 2f 31 38 30 29 0d 03 | a2 23 59 53 25 3d 31 30 |./180)..|.#YS%=10|
|00000880| 32 34 2a b7 28 54 48 32 | 29 2f 28 b7 28 54 48 32 |24*.(TH2|)/(.(TH2|
|00000890| 29 2d b7 28 54 48 31 29 | 29 0d 03 ac 3e e7 20 54 |)-.(TH1)|)...>. T|
|000008a0| 48 32 25 3c 3e 30 20 58 | 53 25 3d 31 32 38 30 2b |H2%<>0 X|S%=1280+|
|000008b0| 59 53 25 2f b7 28 54 48 | 32 29 20 8b 20 58 53 25 |YS%/.(TH|2) . XS%|
|000008c0| 3d 31 30 32 34 2d 28 31 | 30 32 34 2d 58 53 25 29 |=1024-(1|024-XS%)|
|000008d0| 2f b7 28 54 48 31 29 0d | 03 b6 3a e6 20 30 2c 37 |/.(TH1).|..:. 0,7|
|000008e0| 3a 86 20 58 53 25 2c 59 | 53 25 2b 34 30 2c 58 53 |:. XS%,Y|S%+40,XS|
|000008f0| 25 2c 59 53 25 2d 34 30 | 3a ec 20 58 53 25 2d 38 |%,YS%-40|:. XS%-8|
|00000900| 38 2c 59 53 25 2b 34 38 | 3a f1 22 53 6c 69 74 73 |8,YS%+48|:."Slits|
|00000910| 22 0d 03 c0 41 e7 20 53 | 4c 4f 57 20 f2 48 45 4c |"...A. S|LOW .HEL|
|00000920| 50 28 22 54 68 65 20 61 | 63 74 75 61 6c 20 73 6c |P("The a|ctual sl|
|00000930| 69 74 73 20 61 72 65 20 | 73 68 6f 77 6e 20 61 62 |its are |shown ab|
|00000940| 6f 76 65 20 69 6e 20 77 | 68 69 74 65 2e 22 2c 22 |ove in w|hite.","|
|00000950| 22 29 0d 03 ca 45 e6 20 | 30 2c 37 3a 86 20 31 32 |")...E. |0,7:. 12|
|00000960| 37 36 2c 30 2c 31 32 37 | 36 2c 31 30 32 33 3a 86 |76,0,127|6,1023:.|
|00000970| 20 31 32 37 38 2c 30 2c | 31 32 37 38 2c 31 30 32 | 1278,0,|1278,102|
|00000980| 33 3a ec 20 31 31 30 30 | 2c 31 30 30 30 3a f1 22 |3:. 1100|,1000:."|
|00000990| 53 63 72 65 65 6e 22 0d | 03 d4 6c e7 20 53 4c 4f |Screen".|..l. SLO|
|000009a0| 57 20 f2 48 45 4c 50 28 | 22 54 68 65 20 73 63 72 |W .HELP(|"The scr|
|000009b0| 65 65 6e 20 69 73 20 6f | 6e 20 74 68 65 20 66 61 |een is o|n the fa|
|000009c0| 72 20 72 69 67 68 74 2e | 20 54 68 65 20 69 6e 74 |r right.| The int|
|000009d0| 65 6e 73 69 74 79 22 2c | 22 70 61 74 74 65 72 6e |ensity",|"pattern|
|000009e0| 20 77 69 6c 6c 20 62 65 | 20 73 68 6f 77 6e 20 61 | will be| shown a|
|000009f0| 73 20 61 20 79 65 6c 6c | 6f 77 20 67 72 61 70 68 |s a yell|ow graph|
|00000a00| 2e 22 29 0d 03 de 2e e6 | 20 30 2c 31 3a 86 20 58 |.").....| 0,1:. X|
|00000a10| 53 25 2c 59 53 25 2c 31 | 32 38 30 2c 31 30 32 33 |S%,YS%,1|280,1023|
|00000a20| 3a 86 20 58 53 25 2c 59 | 53 25 2c 31 32 38 30 2c |:. XS%,Y|S%,1280,|
|00000a30| 30 0d 03 e8 47 e7 20 53 | 4c 4f 57 20 f2 48 45 4c |0...G. S|LOW .HEL|
|00000a40| 50 28 22 54 68 65 73 65 | 20 72 61 79 73 20 73 68 |P("These| rays sh|
|00000a50| 6f 77 20 74 68 65 20 6c | 69 6d 69 74 73 20 6f 66 |ow the l|imits of|
|00000a60| 20 74 68 65 22 2c 22 73 | 63 61 74 74 65 72 65 64 | the","s|cattered|
|00000a70| 20 6c 69 67 68 74 22 29 | 0d 03 f2 05 3a 0d 03 fc | light")|....:...|
|00000a80| 05 e1 0d 04 06 05 3a 0d | 04 10 0f dd 20 f2 44 52 |......:.|.... .DR|
|00000a90| 41 57 42 45 41 4d 0d 04 | 1a 2e 43 48 42 45 41 4d |AWBEAM..|..CHBEAM|
|00000aa0| 3d 28 43 48 42 45 41 4d | 20 84 20 4f 54 48 42 45 |=(CHBEAM| . OTHBE|
|00000ab0| 41 4d 3c 3e 54 48 42 45 | 41 4d 29 20 80 20 20 52 |AM<>THBE|AM) . R|
|00000ac0| 25 3c 3e 37 0d 04 24 0e | e7 20 43 48 42 45 41 4d |%<>7..$.|. CHBEAM|
|00000ad0| 20 8c 0d 04 2e 33 20 20 | 20 e6 20 33 2c 31 3a 86 | ....3 | . 3,1:.|
|00000ae0| 20 35 30 30 2c 59 53 25 | 2d 28 58 53 25 2d 35 30 | 500,YS%|-(XS%-50|
|00000af0| 30 29 2a b7 28 4f 54 48 | 42 45 41 4d 29 2c 58 53 |0)*.(OTH|BEAM),XS|
|00000b00| 25 2c 59 53 25 0d 04 38 | 2e 20 20 20 ec 20 58 53 |%,YS%..8|. . XS|
|00000b10| 25 2d 32 30 30 2c 59 53 | 25 2d 32 30 30 2a b7 28 |%-200,YS|%-200*.(|
|00000b20| 4f 54 48 42 45 41 4d 29 | 2b 38 38 3a f1 22 42 65 |OTHBEAM)|+88:."Be|
|00000b30| 61 6d 22 0d 04 42 35 20 | 20 20 e6 20 33 2c 31 3a |am"..B5 | . 3,1:|
|00000b40| 86 20 58 53 25 2c 59 53 | 25 2c 31 32 37 32 2c 59 |. XS%,YS|%,1272,Y|
|00000b50| 53 25 2b 28 31 32 37 32 | 2d 58 53 25 29 2a b7 28 |S%+(1272|-XS%)*.(|
|00000b60| 4f 54 48 42 45 41 4d 29 | 0d 04 4c 05 cd 0d 04 56 |OTHBEAM)|..L....V|
|00000b70| 2a ec 20 58 53 25 2d 32 | 30 30 2c 59 53 25 2d 32 |*. XS%-2|00,YS%-2|
|00000b80| 30 30 2a b7 28 54 48 42 | 45 41 4d 29 2b 38 38 3a |00*.(THB|EAM)+88:|
|00000b90| f1 22 42 65 61 6d 22 0d | 04 60 2f e6 20 33 2c 31 |."Beam".|.`/. 3,1|
|00000ba0| 3a 86 20 35 30 30 2c 59 | 53 25 2d 28 58 53 25 2d |:. 500,Y|S%-(XS%-|
|00000bb0| 35 30 30 29 2a b7 28 54 | 48 42 45 41 4d 29 2c 58 |500)*.(T|HBEAM),X|
|00000bc0| 53 25 2c 59 53 25 0d 04 | 6a 30 e7 20 53 4c 4f 57 |S%,YS%..|j0. SLOW|
|00000bd0| 20 f2 48 45 4c 50 28 22 | 54 68 69 73 20 69 73 20 | .HELP("|This is |
|00000be0| 74 68 65 20 69 6e 63 69 | 64 65 6e 74 20 62 65 61 |the inci|dent bea|
|00000bf0| 6d 22 2c 22 22 29 0d 04 | 74 31 e6 20 33 2c 31 3a |m","")..|t1. 3,1:|
|00000c00| 86 20 58 53 25 2c 59 53 | 25 2c 31 32 37 32 2c 59 |. XS%,YS|%,1272,Y|
|00000c10| 53 25 2b 28 31 32 37 32 | 2d 58 53 25 29 2a b7 28 |S%+(1272|-XS%)*.(|
|00000c20| 54 48 42 45 41 4d 29 0d | 04 7e 46 e7 20 53 4c 4f |THBEAM).|.~F. SLO|
|00000c30| 57 20 f2 48 45 4c 50 28 | 22 54 68 69 73 20 6c 69 |W .HELP(|"This li|
|00000c40| 6e 65 20 73 68 6f 77 73 | 20 74 68 65 20 73 74 72 |ne shows| the str|
|00000c50| 61 69 67 68 74 2d 74 68 | 72 6f 75 67 68 20 64 69 |aight-th|rough di|
|00000c60| 72 65 63 74 69 6f 6e 2e | 22 2c 22 22 29 0d 04 88 |rection.|","")...|
|00000c70| 12 4f 54 48 42 45 41 4d | 3d 54 48 42 45 41 4d 0d |.OTHBEAM|=THBEAM.|
|00000c80| 04 92 0c 43 48 42 45 41 | 4d 3d a3 0d 04 9c 05 e1 |...CHBEA|M=......|
|00000c90| 0d 04 a6 05 3a 0d 04 b0 | 10 dd 20 f2 44 52 41 57 |....:...|.. .DRAW|
|00000ca0| 53 4c 49 54 53 0d 04 ba | 07 ef 32 36 0d 04 c4 1c |SLITS...|..26....|
|00000cb0| e6 20 30 2c 30 3a c8 93 | 20 c8 90 20 38 2c 38 2c |. 0,0:..| .. 8,8,|
|00000cc0| 32 37 30 2c 31 30 30 30 | 0d 04 ce 1e e6 20 30 2c |270,1000|..... 0,|
|00000cd0| 33 3a ec 20 36 2c 31 30 | 30 30 3a f1 22 20 20 53 |3:. 6,10|00:." S|
|00000ce0| 6c 69 74 73 3a 22 0d 04 | d8 20 e6 20 30 2c 35 3a |lits:"..|. . 0,5:|
|00000cf0| c8 93 20 c8 90 20 31 32 | 30 2c 38 2c 57 25 2c 45 |.. .. 12|0,8,W%,E|
|00000d00| 25 28 31 29 2d 38 0d 04 | e2 24 40 25 3d 26 31 30 |%(1)-8..|.$@%=&10|
|00000d10| 32 30 31 30 35 3a e3 20 | 49 25 3d 31 20 b8 20 32 |20105:. |I%=1 . 2|
|00000d20| 2a 45 25 28 30 29 20 88 | 20 32 0d 04 ec 31 e6 20 |*E%(0) .| 2...1. |
|00000d30| 30 2c 35 3a c8 93 20 c8 | 90 20 31 32 30 2c 45 25 |0,5:.. .|. 120,E%|
|00000d40| 28 49 25 2b 31 29 2c 57 | 25 2c 45 25 28 49 25 2b |(I%+1),W|%,E%(I%+|
|00000d50| 32 29 2d 45 25 28 49 25 | 2b 31 29 0d 04 f6 21 e6 |2)-E%(I%|+1)...!.|
|00000d60| 20 30 2c 37 3a 86 20 31 | 30 30 2c 45 25 28 49 25 | 0,7:. 1|00,E%(I%|
|00000d70| 29 2c 31 35 36 2c 45 25 | 28 49 25 29 0d 05 00 31 |),156,E%|(I%)...1|
|00000d80| ec 20 36 2c 45 25 28 49 | 25 29 3a f1 28 28 45 25 |. 6,E%(I|%):.((E%|
|00000d90| 28 49 25 29 2d 45 25 28 | 31 29 29 2f 4c 41 4d 42 |(I%)-E%(|1))/LAMB|
|00000da0| 44 41 25 29 3b 22 20 22 | 3b bd 32 33 35 0d 05 0a |DA%);" "|;.235...|
|00000db0| 1f 86 20 31 30 30 2c 45 | 25 28 49 25 2b 31 29 2c |.. 100,E|%(I%+1),|
|00000dc0| 31 35 36 2c 45 25 28 49 | 25 2b 31 29 0d 05 14 3a |156,E%(I|%+1)...:|
|00000dd0| ec 20 31 35 36 2c 33 32 | 2b 45 25 28 49 25 2b 31 |. 156,32|+E%(I%+1|
|00000de0| 29 3a f1 28 28 45 25 28 | 49 25 2b 31 29 2d 45 25 |):.((E%(|I%+1)-E%|
|00000df0| 28 31 29 29 2f 4c 41 4d | 42 44 41 25 29 3b 22 20 |(1))/LAM|BDA%);" |
|00000e00| 22 3b bd 32 33 35 0d 05 | 1e 05 ed 0d 05 28 0b 40 |";.235..|.....(.@|
|00000e10| 25 3d 26 38 30 39 0d 05 | 32 45 e7 20 53 4c 4f 57 |%=&809..|2E. SLOW|
|00000e20| 20 f2 48 45 4c 50 28 22 | 57 65 20 68 61 76 65 20 | .HELP("|We have |
|00000e30| 6e 6f 77 20 64 72 61 77 | 6e 20 6f 6e 65 20 73 6c |now draw|n one sl|
|00000e40| 69 74 2c 20 67 72 65 61 | 74 6c 79 20 6d 61 67 6e |it, grea|tly magn|
|00000e50| 69 66 69 65 64 2e 22 2c | 22 22 29 0d 05 3c 3c e7 |ified.",|"")..<<.|
|00000e60| 20 ac 20 57 45 44 47 45 | 4f 55 54 20 e6 20 33 2c | . WEDGE|OUT . 3,|
|00000e70| 37 3a 86 20 31 37 32 2c | 39 30 30 2c 31 37 32 2c |7:. 172,|900,172,|
|00000e80| 31 30 30 3a df 20 32 37 | 32 2c 39 30 30 3a df 20 |100:. 27|2,900:. |
|00000e90| 31 37 32 2c 39 30 30 0d | 05 46 05 e1 0d 05 50 05 |172,900.|.F....P.|
|00000ea0| 3a 0d 05 5a 10 dd 20 f2 | 43 41 4c 43 53 4c 49 54 |:..Z.. .|CALCSLIT|
|00000eb0| 53 0d 05 64 1d f4 20 43 | 41 4c 43 55 4c 41 54 45 |S..d.. C|ALCULATE|
|00000ec0| 20 46 55 4e 43 54 49 4f | 4e 20 4f 46 20 41 0d 05 | FUNCTIO|N OF A..|
|00000ed0| 6e 2b e6 20 30 2c 33 3a | ec 20 37 30 30 2c 34 30 |n+. 0,3:|. 700,40|
|00000ee0| 3a f1 22 50 72 65 70 61 | 72 69 6e 67 20 74 68 65 |:."Prepa|ring the|
|00000ef0| 20 73 6c 69 74 73 2e 2e | 22 0d 05 78 29 42 24 3d | slits..|"..x)B$=|
|00000f00| 22 22 3a 43 24 3d 22 22 | 3a 5a 3d 32 2a af 2f 4c |"":C$=""|:Z=2*./L|
|00000f10| 41 4d 42 44 41 25 3a 40 | 25 3d 26 31 30 32 30 33 |AMBDA%:@|%=&10203|
|00000f20| 30 39 0d 05 82 13 e3 20 | 49 3d 31 20 b8 20 32 2a |09..... |I=1 . 2*|
|00000f30| 45 25 28 30 29 0d 05 8c | 20 e7 20 28 49 20 83 20 |E%(0)...| . (I . |
|00000f40| 32 29 20 3d 31 20 53 24 | 3d 22 2b 22 20 8b 20 53 |2) =1 S$|="+" . S|
|00000f50| 24 3d 22 2d 22 0d 05 96 | 25 42 24 3d 42 24 2b 53 |$="-"...|%B$=B$+S|
|00000f60| 24 2b 22 43 4f 53 28 22 | 2b c3 28 5a 2a 45 25 28 |$+"COS("|+.(Z*E%(|
|00000f70| 49 29 29 2b 22 2a 53 41 | 29 22 0d 05 a0 25 43 24 |I))+"*SA|)"...%C$|
|00000f80| 3d 43 24 2b 53 24 2b 22 | 53 49 4e 28 22 2b c3 28 |=C$+S$+"|SIN("+.(|
|00000f90| 5a 2a 45 25 28 49 29 29 | 2b 22 2a 53 41 29 22 0d |Z*E%(I))|+"*SA)".|
|00000fa0| 05 aa 05 ed 0d 05 b4 0b | 40 25 3d 26 36 30 39 0d |........|@%=&609.|
|00000fb0| 05 be 12 4c 3d 31 32 38 | 30 2d 58 53 25 3a 53 3d |...L=128|0-XS%:S=|
|00000fc0| 30 0d 05 c8 44 e3 20 49 | 3d 30 20 b8 20 32 35 35 |0...D. I|=0 . 255|
|00000fd0| 3a 41 3d 99 28 28 49 2a | 34 2d 59 53 25 29 2f 4c |:A=.((I*|4-YS%)/L|
|00000fe0| 29 3a 53 41 3d b5 28 41 | 29 2d b5 28 54 48 42 45 |):SA=.(A|)-.(THBE|
|00000ff0| 41 4d 29 2b 57 45 44 47 | 45 50 48 41 53 45 2b 31 |AM)+WEDG|EPHASE+1|
|00001000| 2e 30 45 2d 37 0d 05 d2 | 24 4b 3d a0 28 42 24 29 |.0E-7...|$K=.(B$)|
|00001010| 3a 4d 3d a0 28 43 24 29 | 3a 4a 3d 28 4b 2a 4b 2b |:M=.(C$)|:J=(K*K+|
|00001020| 4d 2a 4d 29 2f 53 41 5e | 32 0d 05 dc 1d e7 20 ac |M*M)/SA^|2..... .|
|00001030| 20 4c 49 4e 4e 4f 54 4c | 4f 47 20 4a 3d 31 30 2a | LINNOTL|OG J=10*|
|00001040| aa 28 4a 2b 31 29 0d 05 | e6 13 49 4e 28 49 29 3d |.(J+1)..|..IN(I)=|
|00001050| 4a 3a 53 3d 53 2b 32 2a | 4a 0d 05 f0 05 ed 0d 05 |J:S=S+2*|J.......|
|00001060| fa 08 5a 25 3d 53 0d 06 | 04 15 53 3d 31 2e 38 2a |..Z%=S..|..S=1.8*|
|00001070| 4d 41 58 25 2f 53 3a 4a | 25 3d 30 0d 06 0e 46 e3 |MAX%/S:J|%=0...F.|
|00001080| 20 49 25 3d 30 20 b8 20 | 32 35 35 3a 4b 25 3d 2e | I%=0 . |255:K%=.|
|00001090| 35 2b 49 4e 28 49 25 29 | 2a 53 3a e7 20 4b 25 3e |5+IN(I%)|*S:. K%>|
|000010a0| 30 20 e3 20 4c 25 3d 4a | 25 20 b8 20 4a 25 2b 4b |0 . L%=J|% . J%+K|
|000010b0| 25 2d 31 3a 3f 28 56 25 | 2b 4c 25 29 3d 49 25 3a |%-1:?(V%|+L%)=I%:|
|000010c0| ed 0d 06 18 11 4a 25 3d | 4a 25 2b 4b 25 3a ed 20 |.....J%=|J%+K%:. |
|000010d0| 49 25 0d 06 22 0b 52 45 | 46 25 3d 4a 25 0d 06 2c |I%..".RE|F%=J%..,|
|000010e0| 2b e6 20 33 2c 33 3a ec | 20 37 30 30 2c 34 30 3a |+. 3,3:.| 700,40:|
|000010f0| f1 22 50 72 65 70 61 72 | 69 6e 67 20 74 68 65 20 |."Prepar|ing the |
|00001100| 73 6c 69 74 73 2e 2e 22 | 0d 06 36 05 e1 0d 06 40 |slits.."|..6....@|
|00001110| 05 3a 0d 06 4a 14 dd 20 | f2 57 41 56 45 4c 45 4e |.:..J.. |.WAVELEN|
|00001120| 47 54 48 28 49 29 0d 06 | 54 2c ef 32 36 3a 57 42 |GTH(I)..|T,.26:WB|
|00001130| 25 3d 32 38 30 3a e6 20 | 30 2c 30 3a c8 93 20 c8 |%=280:. |0,0:.. .|
|00001140| 90 20 57 42 25 2c 38 2c | 57 25 2c 4c 41 4d 42 44 |. WB%,8,|W%,LAMBD|
|00001150| 41 25 0d 06 5e 24 e6 20 | 30 2c 33 3a ec 20 57 42 |A%..^$. |0,3:. WB|
|00001160| 25 2b 32 30 2c 34 30 3a | 3a f1 22 57 61 76 65 6c |%+20,40:|:."Wavel|
|00001170| 65 6e 67 74 68 22 0d 06 | 68 2f e7 20 49 3c 3e 30 |ength"..|h/. I<>0|
|00001180| 20 80 20 59 25 3e 31 32 | 20 80 20 59 25 3c 38 30 | . Y%>12| . Y%<80|
|00001190| 30 20 4c 41 4d 42 44 41 | 25 3d 59 25 2d 28 59 25 |0 LAMBDA|%=Y%-(Y%|
|000011a0| 20 83 20 34 29 0d 06 72 | 20 e6 20 30 2c 35 3a c8 | . 4)..r| . 0,5:.|
|000011b0| 93 20 c8 90 20 57 42 25 | 2c 38 2c 57 25 2c 4c 41 |. .. WB%|,8,W%,LA|
|000011c0| 4d 42 44 41 25 0d 06 7c | 32 e7 20 53 4c 4f 57 20 |MBDA%..||2. SLOW |
|000011d0| f2 48 45 4c 50 28 22 54 | 68 69 73 20 69 73 20 74 |.HELP("T|his is t|
|000011e0| 68 65 20 77 61 76 65 6c | 65 6e 67 74 68 20 62 61 |he wavel|ength ba|
|000011f0| 72 2e 22 2c 22 22 29 0d | 06 86 17 e7 20 ac 20 53 |r.","").|.... . S|
|00001200| 4c 4f 57 20 f2 44 52 41 | 57 53 4c 49 54 53 0d 06 |LOW .DRA|WSLITS..|
|00001210| 90 05 e1 0d 06 9a 05 3a | 0d 06 a4 0b dd 20 f2 4d |.......:|..... .M|
|00001220| 4f 44 45 0d 06 ae 3b e6 | 20 33 2c 35 3a ec 20 32 |ODE...;.| 3,5:. 2|
|00001230| 30 30 2c 31 30 30 30 3a | e7 20 4d 44 3d 30 20 f1 |00,1000:|. MD=0 .|
|00001240| 22 4d 6f 64 65 3a 20 42 | 75 69 6c 64 22 3b 20 8b |"Mode: B|uild"; .|
|00001250| 20 f1 22 4d 6f 64 65 3a | 20 44 72 61 77 22 0d 06 | ."Mode:| Draw"..|
|00001260| b8 3d ec 20 32 30 30 2c | 31 30 30 30 3a 4d 44 3d |.=. 200,|1000:MD=|
|00001270| 31 2d 4d 44 3a e7 20 4d | 44 3d 31 20 f1 22 4d 6f |1-MD:. M|D=1 ."Mo|
|00001280| 64 65 20 3a 44 72 61 77 | 22 3a 20 8b 20 f1 22 4d |de :Draw|": . ."M|
|00001290| 6f 64 65 3a 20 42 75 69 | 6c 64 22 0d 06 c2 05 e1 |ode: Bui|ld".....|
|000012a0| 0d 06 cc 05 3a 0d 06 d6 | 1f dd 20 a4 49 4e 42 4f |....:...|.. .INBO|
|000012b0| 58 28 58 25 2c 59 25 2c | 4c 25 2c 42 25 2c 57 25 |X(X%,Y%,|L%,B%,W%|
|000012c0| 2c 48 25 29 0d 06 e0 1a | e7 20 48 25 3c 30 20 42 |,H%)....|. H%<0 B|
|000012d0| 25 3d 42 25 2b 48 25 3a | 48 25 3d 2d 48 25 0d 06 |%=B%+H%:|H%=-H%..|
|000012e0| ea 29 20 3d 58 25 3e 4c | 25 20 80 20 58 25 3c 4c |.) =X%>L|% . X%<L|
|000012f0| 25 2b 57 25 20 80 20 59 | 25 3e 42 25 20 80 20 59 |%+W% . Y|%>B% . Y|
|00001300| 25 3c 42 25 2b 48 25 0d | 06 f4 05 fa 0d 06 fe 05 |%<B%+H%.|........|
|00001310| 3a 0d 07 08 17 dd 20 a4 | 52 45 41 53 4f 4e 28 58 |:..... .|REASON(X|
|00001320| 25 2c 59 25 2c 42 25 29 | 0d 07 12 0f e7 20 42 25 |%,Y%,B%)|..... B%|
|00001330| 3d 32 20 8c 20 3d 30 0d | 07 1c 34 e7 20 94 28 58 |=2 . =0.|..4. .(X|
|00001340| 25 2d 31 32 38 29 3c 34 | 30 20 80 20 59 25 3e 45 |%-128)<4|0 . Y%>E|
|00001350| 25 28 31 29 2b 32 34 20 | 80 20 59 25 3c 39 30 30 |%(1)+24 |. Y%<900|
|00001360| 20 3d 31 3a f4 20 53 4c | 49 54 53 0d 07 26 3b e7 | =1:. SL|ITS..&;.|
|00001370| 20 a4 49 4e 42 4f 58 28 | 58 25 2c 59 25 2c 58 55 | .INBOX(|X%,Y%,XU|
|00001380| 41 25 2c 59 55 41 25 2c | 41 42 57 25 2c 2d 41 42 |A%,YUA%,|ABW%,-AB|
|00001390| 48 25 29 20 8c 20 3d 32 | 3a f4 20 55 50 50 45 52 |H%) . =2|:. UPPER|
|000013a0| 20 41 4e 47 4c 45 0d 07 | 30 3b e7 20 a4 49 4e 42 | ANGLE..|0;. .INB|
|000013b0| 4f 58 28 58 25 2c 59 25 | 2c 58 4c 41 25 2c 59 4c |OX(X%,Y%|,XLA%,YL|
|000013c0| 41 25 2c 41 42 57 25 2c | 2d 41 42 48 25 29 20 8c |A%,ABW%,|-ABH%) .|
|000013d0| 20 3d 33 3a f4 20 4c 4f | 57 45 52 20 41 4e 47 4c | =3:. LO|WER ANGL|
|000013e0| 45 0d 07 3a 39 e7 20 94 | 28 58 25 2d 57 42 25 2d |E..:9. .|(X%-WB%-|
|000013f0| 31 36 29 3c 34 30 20 80 | 20 94 28 59 25 2d 4c 41 |16)<40 .| .(Y%-LA|
|00001400| 4d 42 44 41 25 29 3c 32 | 30 30 20 3d 34 3a f4 20 |MBDA%)<2|00 =4:. |
|00001410| 57 41 56 45 4c 45 4e 47 | 54 48 0d 07 44 05 3a 0d |WAVELENG|TH..D.:.|
|00001420| 07 4e 57 e7 20 49 4e 4d | 4f 55 53 45 20 8c 20 e7 |.NW. INM|OUSE . .|
|00001430| 20 a4 49 4e 42 4f 58 28 | 58 25 2c 59 25 2c 58 52 | .INBOX(|X%,Y%,XR|
|00001440| 45 53 54 41 52 54 25 2c | 59 52 45 53 54 41 52 54 |ESTART%,|YRESTART|
|00001450| 25 2c 57 52 45 53 54 41 | 52 54 25 2c 2d 48 52 45 |%,WRESTA|RT%,-HRE|
|00001460| 53 54 41 52 54 25 29 20 | 8c 20 3d 36 3a f4 20 52 |START%) |. =6:. R|
|00001470| 45 53 54 41 52 54 0d 07 | 58 65 e7 20 49 4e 4d 4f |ESTART..|Xe. INMO|
|00001480| 55 53 45 20 8c 20 e7 20 | a4 49 4e 42 4f 58 28 58 |USE . . |.INBOX(X|
|00001490| 25 2c 59 25 2c 58 43 52 | 45 53 54 41 52 54 25 2c |%,Y%,XCR|ESTART%,|
|000014a0| 59 43 52 45 53 54 41 52 | 54 25 2c 57 43 52 45 53 |YCRESTAR|T%,WCRES|
|000014b0| 54 41 52 54 25 2c 2d 48 | 43 52 45 53 54 41 52 54 |TART%,-H|CRESTART|
|000014c0| 25 29 20 8c 20 3d 37 3a | f4 20 43 4c 45 41 52 20 |%) . =7:|. CLEAR |
|000014d0| 41 4e 44 20 52 45 53 54 | 41 52 54 0d 07 62 4b e7 |AND REST|ART..bK.|
|000014e0| 20 a4 49 4e 42 4f 58 28 | 58 25 2c 59 25 2c 58 50 | .INBOX(|X%,Y%,XP|
|000014f0| 4c 4f 54 25 2c 59 50 4c | 4f 54 25 2c 57 50 4c 4f |LOT%,YPL|OT%,WPLO|
|00001500| 54 25 2c 2d 48 50 4c 4f | 54 25 29 20 8c 20 3d 38 |T%,-HPLO|T%) . =8|
|00001510| 3a f4 20 43 48 41 4e 47 | 45 20 54 59 50 45 20 4f |:. CHANG|E TYPE O|
|00001520| 46 20 50 4c 4f 54 0d 07 | 6c 4b e7 20 a4 49 4e 42 |F PLOT..|lK. .INB|
|00001530| 4f 58 28 58 25 2c 59 25 | 2c 58 42 45 41 4d 25 2c |OX(X%,Y%|,XBEAM%,|
|00001540| 59 42 45 41 4d 25 2c 57 | 42 45 41 4d 25 2c 2d 48 |YBEAM%,W|BEAM%,-H|
|00001550| 42 45 41 4d 25 29 20 8c | 20 3d 39 3a f4 20 43 48 |BEAM%) .| =9:. CH|
|00001560| 41 4e 47 45 20 54 59 50 | 45 20 4f 46 20 42 45 41 |ANGE TYP|E OF BEA|
|00001570| 4d 0d 07 76 51 e7 20 a4 | 49 4e 42 4f 58 28 58 25 |M..vQ. .|INBOX(X%|
|00001580| 2c 59 25 2c 58 57 45 44 | 47 45 25 2c 59 57 45 44 |,Y%,XWED|GE%,YWED|
|00001590| 47 45 25 2c 57 57 45 44 | 47 45 25 2c 2d 48 57 45 |GE%,WWED|GE%,-HWE|
|000015a0| 44 47 45 25 29 20 8c 20 | 3d 31 30 3a f4 20 43 48 |DGE%) . |=10:. CH|
|000015b0| 41 4e 47 45 20 54 59 50 | 45 20 4f 46 20 57 45 44 |ANGE TYP|E OF WED|
|000015c0| 47 45 0d 07 80 0b 58 25 | 3d 2d 35 30 30 0d 07 8a |GE....X%|=-500...|
|000015d0| 06 3d 30 0d 07 94 05 3a | 0d 07 9e 16 dd 20 f2 4d |.=0....:|..... .M|
|000015e0| 4f 55 53 45 28 58 25 2c | 59 25 2c 42 25 29 0d 07 |OUSE(X%,|Y%,B%)..|
|000015f0| a8 15 49 4e 4d 4f 55 53 | 45 3d b9 3a 59 4f 4c 44 |..INMOUS|E=.:YOLD|
|00001600| 25 3d 30 0d 07 b2 08 e6 | 30 2c 35 0d 07 bc 57 ec |%=0.....|0,5...W.|
|00001610| 20 58 52 45 53 54 41 52 | 54 25 2b 32 30 2c 59 52 | XRESTAR|T%+20,YR|
|00001620| 45 53 54 41 52 54 25 2d | 31 30 3a f1 22 52 65 73 |ESTART%-|10:."Res|
|00001630| 74 61 72 74 22 3b 3a c8 | 93 20 58 52 45 53 54 41 |tart";:.|. XRESTA|
|00001640| 52 54 25 2c 59 52 45 53 | 54 41 52 54 25 2c 57 52 |RT%,YRES|TART%,WR|
|00001650| 45 53 54 41 52 54 25 2c | 2d 48 52 45 53 54 41 52 |ESTART%,|-HRESTAR|
|00001660| 54 25 0d 07 c6 08 e6 30 | 2c 35 0d 07 d0 67 ec 20 |T%.....0|,5...g. |
|00001670| 58 43 52 45 53 54 41 52 | 54 25 2b 32 30 2c 59 43 |XCRESTAR|T%+20,YC|
|00001680| 52 45 53 54 41 52 54 25 | 2d 31 30 3a f1 22 43 6c |RESTART%|-10:."Cl|
|00001690| 65 61 72 20 61 6e 64 20 | 72 65 73 74 61 72 74 22 |ear and |restart"|
|000016a0| 3b 3a c8 93 20 58 43 52 | 45 53 54 41 52 54 25 2c |;:.. XCR|ESTART%,|
|000016b0| 59 43 52 45 53 54 41 52 | 54 25 2c 57 43 52 45 53 |YCRESTAR|T%,WCRES|
|000016c0| 54 41 52 54 25 2c 2d 48 | 43 52 45 53 54 41 52 54 |TART%,-H|CRESTART|
|000016d0| 25 0d 07 da 18 52 25 3d | a4 52 45 41 53 4f 4e 28 |%....R%=|.REASON(|
|000016e0| 58 25 2c 59 25 2c 42 25 | 29 0d 07 e4 05 f5 0d 07 |X%,Y%,B%|).......|
|000016f0| ee 0b c8 8e 20 52 25 20 | ca 0d 07 f8 1c 20 20 20 |.... R% |..... |
|00001700| c9 20 30 3a 20 f2 45 58 | 54 52 41 48 45 4c 50 3a |. 0: .EX|TRAHELP:|
|00001710| 50 25 3d 32 30 0d 08 02 | 26 20 20 20 c9 20 31 3a |P%=20...|& . 1:|
|00001720| 20 f2 43 48 41 4e 47 45 | 53 4c 49 54 53 3a 50 25 | .CHANGE|SLITS:P%|
|00001730| 3d 2d 32 30 2a 28 42 25 | 2d 34 29 0d 08 0c 27 20 |=-20*(B%|-4)...' |
|00001740| 20 20 c9 20 32 3a 20 50 | 25 3d 36 3a f2 50 52 49 | . 2: P|%=6:.PRI|
|00001750| 4e 54 41 4e 47 4c 45 53 | 28 32 29 3a 52 45 51 37 |NTANGLES|(2):REQ7|
|00001760| 3d b9 0d 08 16 27 20 20 | 20 c9 20 33 3a 20 50 25 |=....' | . 3: P%|
|00001770| 3d 36 3a f2 50 52 49 4e | 54 41 4e 47 4c 45 53 28 |=6:.PRIN|TANGLES(|
|00001780| 33 29 3a 52 45 51 37 3d | b9 0d 08 20 1f 20 20 20 |3):REQ7=|... . |
|00001790| c9 20 34 3a 20 f2 57 41 | 56 45 4c 45 4e 47 54 48 |. 4: .WA|VELENGTH|
|000017a0| 28 31 29 3a 50 25 3d 34 | 0d 08 2a 11 20 20 20 c9 |(1):P%=4|..*. .|
|000017b0| 20 35 3a 20 f2 4d 4f 44 | 45 0d 08 34 21 20 20 20 | 5: .MOD|E..4! |
|000017c0| c9 20 38 3a 20 f2 50 4c | 4f 54 28 31 29 3a 50 25 |. 8: .PL|OT(1):P%|
|000017d0| 3d 31 30 3a 52 45 51 37 | 3d b9 0d 08 3e 1a 20 20 |=10:REQ7|=...>. |
|000017e0| 20 c9 20 39 3a 20 f2 42 | 45 41 4d 28 42 25 29 3a | . 9: .B|EAM(B%):|
|000017f0| 50 25 3d 36 0d 08 48 1c | 20 20 20 c9 20 31 30 3a |P%=6..H.| . 10:|
|00001800| 20 f2 57 45 44 47 45 28 | 31 29 3a 50 25 3d 32 30 | .WEDGE(|1):P%=20|
|00001810| 0d 08 52 05 cb 0d 08 5c | 14 f2 50 41 55 53 45 28 |..R....\|..PAUSE(|
|00001820| 50 25 29 3a 50 25 3d 31 | 30 0d 08 66 2e f5 20 c8 |P%):P%=1|0..f.. .|
|00001830| 97 20 58 25 2c 59 25 2c | 42 25 3a fd 20 42 25 3c |. X%,Y%,|B%:. B%<|
|00001840| 3e 30 3a 52 25 3d a4 52 | 45 41 53 4f 4e 28 58 25 |>0:R%=.R|EASON(X%|
|00001850| 2c 59 25 2c 42 25 29 0d | 08 70 11 fd 20 52 25 3d |,Y%,B%).|.p.. R%=|
|00001860| 36 20 84 20 52 25 3d 37 | 0d 08 7a 16 e7 20 52 45 |6 . R%=7|..z.. RE|
|00001870| 51 37 20 52 25 3d 37 3a | 52 45 51 37 3d a3 0d 08 |Q7 R%=7:|REQ7=...|
|00001880| 84 13 e7 20 52 25 3d 36 | 20 43 48 42 45 41 4d 3d |... R%=6| CHBEAM=|
|00001890| b9 0d 08 8e 5c e6 33 2c | 35 3a ec 20 58 52 45 53 |....\.3,|5:. XRES|
|000018a0| 54 41 52 54 25 2b 32 30 | 2c 59 52 45 53 54 41 52 |TART%+20|,YRESTAR|
|000018b0| 54 25 2d 31 30 3a f1 22 | 52 65 73 74 61 72 74 22 |T%-10:."|Restart"|
|000018c0| 3b 3a c8 93 20 58 52 45 | 53 54 41 52 54 25 2c 59 |;:.. XRE|START%,Y|
|000018d0| 52 45 53 54 41 52 54 25 | 2c 57 52 45 53 54 41 52 |RESTART%|,WRESTAR|
|000018e0| 54 25 2c 2d 48 52 45 53 | 54 41 52 54 25 0d 08 98 |T%,-HRES|TART%...|
|000018f0| 67 ec 20 58 43 52 45 53 | 54 41 52 54 25 2b 32 30 |g. XCRES|TART%+20|
|00001900| 2c 59 43 52 45 53 54 41 | 52 54 25 2d 31 30 3a f1 |,YCRESTA|RT%-10:.|
|00001910| 22 43 6c 65 61 72 20 61 | 6e 64 20 72 65 73 74 61 |"Clear a|nd resta|
|00001920| 72 74 22 3b 3a c8 93 20 | 58 43 52 45 53 54 41 52 |rt";:.. |XCRESTAR|
|00001930| 54 25 2c 59 43 52 45 53 | 54 41 52 54 25 2c 57 43 |T%,YCRES|TART%,WC|
|00001940| 52 45 53 54 41 52 54 25 | 2c 2d 48 43 52 45 53 54 |RESTART%|,-HCREST|
|00001950| 41 52 54 25 0d 08 a2 0d | 49 4e 4d 4f 55 53 45 3d |ART%....|INMOUSE=|
|00001960| a3 0d 08 ac 05 e1 0d 08 | b6 05 3a 0d 08 c0 0f dd |........|..:.....|
|00001970| 20 f2 50 41 55 53 45 28 | 50 29 0d 08 ca 0f d1 3d | .PAUSE(|P).....=|
|00001980| 30 3a f5 20 fd 20 91 3e | 50 0d 08 d4 05 e1 0d 08 |0:. . .>|P.......|
|00001990| de 05 3a 0d 08 e8 12 dd | 20 f2 43 48 41 4e 47 45 |..:.....| .CHANGE|
|000019a0| 53 4c 49 54 53 0d 08 f2 | 12 45 50 53 3d 4c 41 4d |SLITS...|.EPS=LAM|
|000019b0| 42 44 41 25 2f 31 30 0d | 08 fc 22 59 25 3d 4c 41 |BDA%/10.|.."Y%=LA|
|000019c0| 4d 42 44 41 25 2a a8 28 | 31 30 2a 59 25 2f 4c 41 |MBDA%*.(|10*Y%/LA|
|000019d0| 4d 42 44 41 25 29 2f 31 | 30 0d 09 06 0c e7 20 42 |MBDA%)/1|0..... B|
|000019e0| 25 3d 34 20 8c 0d 09 10 | 0e 20 20 f4 20 53 45 4c |%=4 ....|. . SEL|
|000019f0| 45 43 54 0d 09 1a 1f 20 | 20 e7 20 20 59 25 3e 45 |ECT.... | . Y%>E|
|00001a00| 25 28 32 2a 45 25 28 30 | 29 29 2b 33 2a 45 50 53 |%(2*E%(0|))+3*EPS|
|00001a10| 20 e1 0d 09 24 33 20 20 | e3 20 49 25 3d 32 20 b8 | ...$3 |. I%=2 .|
|00001a20| 20 32 2a 45 25 28 30 29 | 3a e7 20 94 28 59 25 2d | 2*E%(0)|:. .(Y%-|
|00001a30| 45 25 28 49 25 29 29 3c | 3d 33 2a 45 50 53 20 e5 |E%(I%))<|=3*EPS .|
|00001a40| 20 8d 44 42 49 0d 09 2e | 07 20 20 ed 0d 09 38 07 | .DBI...|. ...8.|
|00001a50| 20 20 e1 0d 09 42 38 20 | 20 e7 20 49 25 3d 32 20 | ...B8 | . I%=2 |
|00001a60| 80 20 59 25 3c 45 25 28 | 31 29 2b 32 2a 45 50 53 |. Y%<E%(|1)+2*EPS|
|00001a70| 20 e1 3a f4 20 43 41 4e | 54 20 43 4c 4f 53 45 20 | .:. CAN|T CLOSE |
|00001a80| 42 4f 54 54 4f 4d 20 53 | 4c 49 54 0d 09 4c 16 20 |BOTTOM S|LIT..L. |
|00001a90| 20 e7 20 59 25 3e 3d 45 | 25 28 49 25 2b 31 29 20 | . Y%>=E|%(I%+1) |
|00001aa0| 8c 0d 09 56 13 20 20 45 | 25 28 30 29 3d 45 25 28 |...V. E|%(0)=E%(|
|00001ab0| 30 29 2d 31 0d 09 60 17 | 20 20 45 25 28 45 25 28 |0)-1..`.| E%(E%(|
|00001ac0| 30 29 2a 32 2b 31 29 3d | 39 30 30 0d 09 6a 3a 20 |0)*2+1)=|900..j: |
|00001ad0| 20 e7 20 49 25 3c 32 2a | 45 25 28 30 29 2d 31 20 | . I%<2*|E%(0)-1 |
|00001ae0| 8c 20 e3 20 4a 25 3d 49 | 25 20 b8 20 32 2a 45 25 |. . J%=I|% . 2*E%|
|00001af0| 28 30 29 3a 45 25 28 4a | 25 29 3d 45 25 28 4a 25 |(0):E%(J|%)=E%(J%|
|00001b00| 2b 32 29 3a ed 0d 09 74 | 07 20 20 cc 0d 09 7e 0f |+2):...t|. ...~.|
|00001b10| 20 20 45 25 28 49 25 29 | 3d 59 25 0d 09 88 0e 20 | E%(I%)|=Y%.... |
|00001b20| 20 59 4f 4c 44 25 3d 59 | 25 0d 09 92 07 20 20 cd | YOLD%=Y|%.... .|
|00001b30| 0d 09 9c 05 cd 0d 09 a6 | 0c e7 20 42 25 3d 31 20 |........|.. B%=1 |
|00001b40| 8c 0d 09 b0 2d 20 20 e3 | 20 49 25 3d 32 20 b8 20 |....- .| I%=2 . |
|00001b50| 32 2a 45 25 28 30 29 3a | e7 20 94 28 59 25 2d 45 |2*E%(0):|. .(Y%-E|
|00001b60| 25 28 49 25 29 29 3c 33 | 2a 45 50 53 20 e1 0d 09 |%(I%))<3|*EPS ...|
|00001b70| ba 07 20 20 ed 0d 09 c4 | 11 45 25 28 30 29 3d 45 |.. ....|.E%(0)=E|
|00001b80| 25 28 30 29 2b 31 0d 09 | ce 15 45 25 28 45 25 28 |%(0)+1..|..E%(E%(|
|00001b90| 30 29 2a 32 2b 31 29 3d | 39 30 30 0d 09 d8 37 4a |0)*2+1)=|900...7J|
|00001ba0| 25 3d 32 2a 45 25 28 30 | 29 3a c8 95 20 59 25 3c |%=2*E%(0|):.. Y%<|
|00001bb0| 45 25 28 4a 25 2d 32 29 | 3a 45 25 28 4a 25 29 3d |E%(J%-2)|:E%(J%)=|
|00001bc0| 45 25 28 4a 25 2d 32 29 | 3a 4a 25 3d 4a 25 2d 31 |E%(J%-2)|:J%=J%-1|
|00001bd0| 3a ce 0d 09 e2 29 45 25 | 28 4a 25 29 3d 33 2a 45 |:....)E%|(J%)=3*E|
|00001be0| 50 53 2b 59 25 3a 45 25 | 28 4a 25 2d 31 29 3d 45 |PS+Y%:E%|(J%-1)=E|
|00001bf0| 25 28 4a 25 29 2d 36 2a | 45 50 53 0d 09 ec 19 f5 |%(J%)-6*|EPS.....|
|00001c00| 20 c8 97 20 58 25 2c 59 | 25 2c 42 25 3a 20 fd 20 | .. X%,Y|%,B%: . |
|00001c10| 42 25 3d 30 0d 09 f6 0b | 59 4f 4c 44 25 3d 30 0d |B%=0....|YOLD%=0.|
|00001c20| 0a 00 05 cd 0d 0a 0a 0e | f2 44 52 41 57 53 4c 49 |........|.DRAWSLI|
|00001c30| 54 53 0d 0a 14 05 e1 0d | 0a 1e 05 3a 0d 0a 28 16 |TS......|...:..(.|
|00001c40| dd 20 f2 50 52 49 4e 54 | 41 4e 47 4c 45 53 28 52 |. .PRINT|ANGLES(R|
|00001c50| 25 29 0d 0a 32 12 f4 20 | 50 52 49 4e 54 20 41 4e |%)..2.. |PRINT AN|
|00001c60| 47 4c 45 53 0d 0a 3c 07 | ef 32 36 0d 0a 46 0c e7 |GLES..<.|.26..F..|
|00001c70| 20 52 25 3d 32 20 8c 0d | 0a 50 1b 54 48 41 31 25 | R%=2 ..|.P.THA1%|
|00001c80| 3d 54 48 31 25 2b 28 42 | 25 2d 32 2e 35 29 2a 32 |=TH1%+(B|%-2.5)*2|
|00001c90| 2f 33 0d 0a 5a 29 e7 20 | 54 48 41 31 25 3c 38 31 |/3..Z). |THA1%<81|
|00001ca0| 20 80 20 54 48 41 31 25 | 3e 54 48 32 25 2b 31 30 | . THA1%|>TH2%+10|
|00001cb0| 20 54 48 31 25 3d 54 48 | 41 31 25 0d 0a 64 05 cd | TH1%=TH|A1%..d..|
|00001cc0| 0d 0a 6e 0c e7 20 52 25 | 3d 33 20 8c 0d 0a 78 1b |..n.. R%|=3 ...x.|
|00001cd0| 54 48 41 32 25 3d 54 48 | 32 25 2d 28 42 25 2d 32 |THA2%=TH|2%-(B%-2|
|00001ce0| 2e 35 29 2a 32 2f 33 0d | 0a 82 2a e7 20 54 48 41 |.5)*2/3.|..*. THA|
|00001cf0| 32 25 3c 54 48 31 25 2d | 31 30 20 80 20 54 48 41 |2%<TH1%-|10 . THA|
|00001d00| 32 25 3e 2d 38 31 20 54 | 48 32 25 3d 54 48 41 32 |2%>-81 T|H2%=THA2|
|00001d10| 25 0d 0a 8c 05 cd 0d 0a | 96 09 e6 20 30 2c 30 0d |%.......|... 0,0.|
|00001d20| 0a a0 1e c8 93 20 c8 90 | 20 58 55 41 25 2c 59 55 |..... ..| XUA%,YU|
|00001d30| 41 25 2c 41 42 57 25 2c | 2d 41 42 48 25 0d 0a aa |A%,ABW%,|-ABH%...|
|00001d40| 68 e6 20 30 2c 35 3a ec | 20 58 55 41 25 2b 32 30 |h. 0,5:.| XUA%+20|
|00001d50| 2c 59 55 41 25 2d 31 30 | 3a f1 22 55 70 70 65 72 |,YUA%-10|:."Upper|
|00001d60| 22 3b 3a ec 20 42 59 20 | 2d 38 30 2c 2d 34 30 3a |";:. BY |-80,-40:|
|00001d70| f1 22 61 6e 67 6c 65 22 | 3b 3a ec 20 42 59 20 2d |."angle"|;:. BY -|
|00001d80| 31 36 30 2c 2d 34 30 3a | f1 54 48 31 25 3a c8 93 |160,-40:|.TH1%:..|
|00001d90| 20 58 55 41 25 2c 59 55 | 41 25 2c 41 42 57 25 2c | XUA%,YU|A%,ABW%,|
|00001da0| 2d 41 42 48 25 0d 0a b4 | 54 e7 20 53 4c 4f 57 20 |-ABH%...|T. SLOW |
|00001db0| f2 48 45 4c 50 28 22 54 | 68 65 20 55 70 70 65 72 |.HELP("T|he Upper|
|00001dc0| 20 41 6e 67 6c 65 20 69 | 73 20 74 68 65 20 6d 61 | Angle i|s the ma|
|00001dd0| 78 69 6d 75 6d 20 64 65 | 76 69 61 74 69 6f 6e 22 |ximum de|viation"|
|00001de0| 2c 22 41 42 4f 56 45 20 | 74 68 65 20 63 65 6e 74 |,"ABOVE |the cent|
|00001df0| 72 61 6c 20 72 61 79 22 | 29 0d 0a be 05 3a 0d 0a |ral ray"|)....:..|
|00001e00| c8 24 e6 20 30 2c 30 3a | c8 93 20 c8 90 20 58 55 |.$. 0,0:|.. .. XU|
|00001e10| 41 25 2c 59 4c 41 25 2c | 41 42 57 25 2c 2d 41 42 |A%,YLA%,|ABW%,-AB|
|00001e20| 48 25 0d 0a d2 69 e6 20 | 30 2c 35 3a ec 20 58 4c |H%...i. |0,5:. XL|
|00001e30| 41 25 2b 32 30 2c 59 4c | 41 25 2d 31 30 3a f1 22 |A%+20,YL|A%-10:."|
|00001e40| 4c 6f 77 65 72 22 3b 3a | ec 20 42 59 20 2d 38 30 |Lower";:|. BY -80|
|00001e50| 2c 2d 34 30 3a f1 22 61 | 6e 67 6c 65 22 3b 3a ec |,-40:."a|ngle";:.|
|00001e60| 20 42 59 20 2d 31 36 30 | 2c 2d 34 30 3a f1 2d 54 | BY -160|,-40:.-T|
|00001e70| 48 32 25 3a c8 93 20 58 | 4c 41 25 2c 59 4c 41 25 |H2%:.. X|LA%,YLA%|
|00001e80| 2c 41 42 57 25 2c 2d 41 | 42 48 25 0d 0a dc 54 e7 |,ABW%,-A|BH%...T.|
|00001e90| 20 53 4c 4f 57 20 f2 48 | 45 4c 50 28 22 54 68 65 | SLOW .H|ELP("The|
|00001ea0| 20 4c 6f 77 65 72 20 41 | 6e 67 6c 65 20 69 73 20 | Lower A|ngle is |
|00001eb0| 74 68 65 20 6d 61 78 69 | 6d 75 6d 20 64 65 76 69 |the maxi|mum devi|
|00001ec0| 61 74 69 6f 6e 22 2c 22 | 42 45 4c 4f 57 20 74 68 |ation","|BELOW th|
|00001ed0| 65 20 63 65 6e 74 72 61 | 6c 20 72 61 79 22 29 0d |e centra|l ray").|
|00001ee0| 0a e6 05 e1 0d 0a f0 05 | 3a 0d 0a fa 0e dd 20 f2 |........|:..... .|
|00001ef0| 42 45 41 4d 28 49 29 0d | 0b 04 07 ef 32 36 0d 0b |BEAM(I).|....26..|
|00001f00| 0e 77 e6 20 33 2c 35 3a | c8 93 20 58 42 45 41 4d |.w. 3,5:|.. XBEAM|
|00001f10| 25 2c 59 42 45 41 4d 25 | 2c 57 42 45 41 4d 25 2c |%,YBEAM%|,WBEAM%,|
|00001f20| 2d 48 42 45 41 4d 25 3a | ec 20 58 42 45 41 4d 25 |-HBEAM%:|. XBEAM%|
|00001f30| 2b 32 30 2c 59 42 45 41 | 4d 25 2d 31 30 3a f1 22 |+20,YBEA|M%-10:."|
|00001f40| 42 65 61 6d 22 3b 3a ec | 20 42 59 20 2d 38 30 2c |Beam";:.| BY -80,|
|00001f50| 2d 34 30 3a f1 22 20 61 | 6e 67 6c 65 22 3b 3a ec |-40:." a|ngle";:.|
|00001f60| 20 42 59 20 2d 31 36 30 | 2c 2d 34 30 3a f1 54 48 | BY -160|,-40:.TH|
|00001f70| 42 45 41 4d 25 0d 0b 18 | 28 e7 20 49 3d 31 20 54 |BEAM%...|(. I=1 T|
|00001f80| 48 42 45 41 4d 25 2d 3d | 31 3a 20 8b 20 e7 20 49 |HBEAM%-=|1: . . I|
|00001f90| 3d 34 20 54 48 42 45 41 | 4d 25 2b 3d 31 0d 0b 22 |=4 THBEA|M%+=1.."|
|00001fa0| 1d e7 20 54 48 42 45 41 | 4d 25 3c 2d 34 35 20 54 |.. THBEA|M%<-45 T|
|00001fb0| 48 42 45 41 4d 25 3d 2d | 34 35 0d 0b 2c 1b e7 20 |HBEAM%=-|45..,.. |
|00001fc0| 54 48 42 45 41 4d 25 3e | 34 35 20 54 48 42 45 41 |THBEAM%>|45 THBEA|
|00001fd0| 4d 25 3d 34 35 0d 0b 36 | 77 e6 20 30 2c 35 3a c8 |M%=45..6|w. 0,5:.|
|00001fe0| 93 20 58 42 45 41 4d 25 | 2c 59 42 45 41 4d 25 2c |. XBEAM%|,YBEAM%,|
|00001ff0| 57 42 45 41 4d 25 2c 2d | 48 42 45 41 4d 25 3a ec |WBEAM%,-|HBEAM%:.|
|00002000| 20 58 42 45 41 4d 25 2b | 32 30 2c 59 42 45 41 4d | XBEAM%+|20,YBEAM|
|00002010| 25 2d 31 30 3a f1 22 42 | 65 61 6d 22 3b 3a ec 20 |%-10:."B|eam";:. |
|00002020| 42 59 20 2d 38 30 2c 2d | 34 30 3a f1 22 20 61 6e |BY -80,-|40:." an|
|00002030| 67 6c 65 22 3b 3a ec 20 | 42 59 20 2d 31 36 30 2c |gle";:. |BY -160,|
|00002040| 2d 34 30 3a f1 54 48 42 | 45 41 4d 25 0d 0b 40 22 |-40:.THB|EAM%..@"|
|00002050| 54 48 42 45 41 4d 3d 54 | 48 42 45 41 4d 25 2a af |THBEAM=T|HBEAM%*.|
|00002060| 2f 31 38 30 3a f4 20 52 | 41 44 49 41 4e 53 0d 0b |/180:. R|ADIANS..|
|00002070| 4a 11 43 48 42 45 41 4d | 3d 28 49 3c 3e 30 29 0d |J.CHBEAM|=(I<>0).|
|00002080| 0b 54 05 e1 0d 0b 5e 05 | 3a 0d 0b 68 0f dd 20 f2 |.T....^.|:..h.. .|
|00002090| 57 45 44 47 45 28 49 29 | 0d 0b 72 07 ef 32 36 0d |WEDGE(I)|..r..26.|
|000020a0| 0b 7c 5c e6 20 33 2c 35 | 3a c8 93 20 58 57 45 44 |.|\. 3,5|:.. XWED|
|000020b0| 47 45 25 2c 59 57 45 44 | 47 45 25 2c 57 57 45 44 |GE%,YWED|GE%,WWED|
|000020c0| 47 45 25 2c 2d 48 57 45 | 44 47 45 25 3a ec 20 58 |GE%,-HWE|DGE%:. X|
|000020d0| 57 45 44 47 45 25 2b 32 | 30 2c 59 57 45 44 47 45 |WEDGE%+2|0,YWEDGE|
|000020e0| 25 2d 31 30 3a f1 22 57 | 65 64 67 65 22 3b 3a ec |%-10:."W|edge";:.|
|000020f0| 20 42 59 20 2d 38 30 2c | 2d 34 30 0d 0b 86 20 e7 | BY -80,|-40... .|
|00002100| 20 57 45 44 47 45 4f 55 | 54 20 f1 22 20 6f 75 74 | WEDGEOU|T ." out|
|00002110| 22 3a 20 8b 20 f1 22 20 | 69 6e 22 0d 0b 90 1e e7 |": . ." |in".....|
|00002120| 20 49 3d 31 20 57 45 44 | 47 45 4f 55 54 3d 20 ac | I=1 WED|GEOUT= .|
|00002130| 20 57 45 44 47 45 4f 55 | 54 0d 0b 9a 5c e6 20 30 | WEDGEOU|T...\. 0|
|00002140| 2c 35 3a c8 93 20 58 57 | 45 44 47 45 25 2c 59 57 |,5:.. XW|EDGE%,YW|
|00002150| 45 44 47 45 25 2c 57 57 | 45 44 47 45 25 2c 2d 48 |EDGE%,WW|EDGE%,-H|
|00002160| 57 45 44 47 45 25 3a ec | 20 58 57 45 44 47 45 25 |WEDGE%:.| XWEDGE%|
|00002170| 2b 32 30 2c 59 57 45 44 | 47 45 25 2d 31 30 3a f1 |+20,YWED|GE%-10:.|
|00002180| 22 57 65 64 67 65 22 3b | 3a ec 20 42 59 20 2d 38 |"Wedge";|:. BY -8|
|00002190| 30 2c 2d 34 30 0d 0b a4 | 3d e7 20 57 45 44 47 45 |0,-40...|=. WEDGE|
|000021a0| 4f 55 54 20 f1 22 20 6f | 75 74 22 3a 57 45 44 47 |OUT ." o|ut":WEDG|
|000021b0| 45 50 48 41 53 45 3d 30 | 3a 20 8b 20 f1 22 20 69 |EPHASE=0|: . ." i|
|000021c0| 6e 22 3a 57 45 44 47 45 | 50 48 41 53 45 3d 2d 30 |n":WEDGE|PHASE=-0|
|000021d0| 2e 35 0d 0b ae 36 e7 20 | 49 3c 3e 30 20 e6 20 33 |.5...6. |I<>0 . 3|
|000021e0| 2c 37 3a 86 20 31 37 32 | 2c 39 30 30 2c 31 37 32 |,7:. 172|,900,172|
|000021f0| 2c 31 30 30 3a df 20 32 | 37 32 2c 39 30 30 3a df |,100:. 2|72,900:.|
|00002200| 20 31 37 32 2c 39 30 30 | 0d 0b b8 05 e1 0d 0b c2 | 172,900|........|
|00002210| 05 3a 0d 0b cc 12 dd 20 | f2 48 45 4c 50 28 41 24 |.:..... |.HELP(A$|
|00002220| 2c 42 24 29 0d 0b d6 24 | e6 20 33 2c 33 3a ec 20 |,B$)...$|. 3,3:. |
|00002230| 34 39 30 2c 31 31 32 3a | f1 41 24 3a ec 20 34 39 |490,112:|.A$:. 49|
|00002240| 30 2c 37 36 3a f1 42 24 | 0d 0b e0 17 f2 43 4c 49 |0,76:.B$|.....CLI|
|00002250| 43 4b 54 4f 43 4f 4e 54 | 49 4e 55 45 28 31 29 0d |CKTOCONT|INUE(1).|
|00002260| 0b ea 24 e6 20 33 2c 33 | 3a ec 20 34 39 30 2c 31 |..$. 3,3|:. 490,1|
|00002270| 31 32 3a f1 41 24 3a ec | 20 34 39 30 2c 37 36 3a |12:.A$:.| 490,76:|
|00002280| f1 42 24 0d 0b f4 05 e1 | 0d 0b fe 05 3a 0d 0c 08 |.B$.....|....:...|
|00002290| 19 dd 20 f2 43 4c 49 43 | 4b 54 4f 43 4f 4e 54 49 |.. .CLIC|KTOCONTI|
|000022a0| 4e 55 45 28 49 29 0d 0c | 12 3c e6 20 33 2c 31 30 |NUE(I)..|.<. 3,10|
|000022b0| 3a ec 20 34 39 30 2c 34 | 30 3a f1 22 20 20 20 20 |:. 490,4|0:." |
|000022c0| 20 43 6c 69 63 6b 20 61 | 20 6d 6f 75 73 65 20 62 | Click a| mouse b|
|000022d0| 75 74 74 6f 6e 20 74 6f | 20 63 6f 6e 74 69 6e 75 |utton to| continu|
|000022e0| 65 22 0d 0c 1c 20 e7 20 | 49 3d 31 20 e6 20 33 2c |e"... . |I=1 . 3,|
|000022f0| 33 3a c8 93 20 34 38 30 | 2c 34 2c 37 38 30 2c 31 |3:.. 480|,4,780,1|
|00002300| 32 30 0d 0c 26 18 f5 20 | c8 97 20 58 25 2c 59 25 |20..&.. |.. X%,Y%|
|00002310| 2c 42 25 3a fd 20 42 25 | 3d 30 0d 0c 30 19 f5 20 |,B%:. B%|=0..0.. |
|00002320| c8 97 20 58 25 2c 59 25 | 2c 42 25 3a fd 20 42 25 |.. X%,Y%|,B%:. B%|
|00002330| 3c 3e 30 0d 0c 3a 3c e6 | 20 33 2c 31 30 3a ec 20 |<>0..:<.| 3,10:. |
|00002340| 34 39 30 2c 34 30 3a f1 | 22 20 20 20 20 20 43 6c |490,40:.|" Cl|
|00002350| 69 63 6b 20 61 20 6d 6f | 75 73 65 20 62 75 74 74 |ick a mo|use butt|
|00002360| 6f 6e 20 74 6f 20 63 6f | 6e 74 69 6e 75 65 22 0d |on to co|ntinue".|
|00002370| 0c 44 20 e7 20 49 3d 31 | 20 e6 20 33 2c 33 3a c8 |.D . I=1| . 3,3:.|
|00002380| 93 20 34 38 30 2c 34 2c | 37 38 30 2c 31 32 30 0d |. 480,4,|780,120.|
|00002390| 0c 4e 18 f5 20 c8 97 20 | 58 25 2c 59 25 2c 42 25 |.N.. .. |X%,Y%,B%|
|000023a0| 3a fd 20 42 25 3d 30 0d | 0c 58 05 e1 0d 0c 62 05 |:. B%=0.|.X....b.|
|000023b0| 3a 0d 0c 6c 1a dd 20 f2 | 43 4c 49 43 4b 54 4f 43 |:..l.. .|CLICKTOC|
|000023c0| 4f 4e 54 49 4e 55 45 5a | 28 49 29 0d 0c 76 3c e6 |ONTINUEZ|(I)..v<.|
|000023d0| 20 33 2c 31 30 3a ec 20 | 34 39 30 2c 34 30 3a f1 | 3,10:. |490,40:.|
|000023e0| 22 20 20 20 20 20 43 6c | 69 63 6b 20 61 20 6d 6f |" Cl|ick a mo|
|000023f0| 75 73 65 20 62 75 74 74 | 6f 6e 20 74 6f 20 63 6f |use butt|on to co|
|00002400| 6e 74 69 6e 75 65 22 0d | 0c 80 20 e7 20 49 3d 31 |ntinue".|.. . I=1|
|00002410| 20 e6 20 33 2c 33 3a c8 | 93 20 34 38 30 2c 34 2c | . 3,3:.|. 480,4,|
|00002420| 37 38 30 2c 31 32 30 0d | 0c 8a 18 f5 20 c8 97 20 |780,120.|.... .. |
|00002430| 58 25 2c 59 25 2c 42 25 | 3a fd 20 42 25 3d 30 0d |X%,Y%,B%|:. B%=0.|
|00002440| 0c 94 19 f5 20 c8 97 20 | 58 25 2c 59 25 2c 42 25 |.... .. |X%,Y%,B%|
|00002450| 3a fd 20 42 25 3c 3e 30 | 0d 0c 9e 26 52 25 3d a4 |:. B%<>0|...&R%=.|
|00002460| 52 45 41 53 4f 4e 28 58 | 25 2c 59 25 2c 42 25 29 |REASON(X|%,Y%,B%)|
|00002470| 3a e7 20 52 25 3d 30 20 | e5 20 8d 54 74 4d 0d 0c |:. R%=0 |. .TtM..|
|00002480| a8 05 f5 0d 0c b2 0b c8 | 8e 20 52 25 20 ca 0d 0c |........|. R% ...|
|00002490| bc 26 20 20 20 c9 20 31 | 3a 20 f2 43 48 41 4e 47 |.& . 1|: .CHANG|
|000024a0| 45 53 4c 49 54 53 3a 50 | 25 3d 2d 32 30 2a 28 42 |ESLITS:P|%=-20*(B|
|000024b0| 25 2d 34 29 0d 0c c6 27 | 20 20 20 c9 20 32 3a 20 |%-4)...'| . 2: |
|000024c0| 50 25 3d 36 3a f2 50 52 | 49 4e 54 41 4e 47 4c 45 |P%=6:.PR|INTANGLE|
|000024d0| 53 28 32 29 3a 52 45 51 | 37 3d b9 0d 0c d0 27 20 |S(2):REQ|7=....' |
|000024e0| 20 20 c9 20 33 3a 20 50 | 25 3d 36 3a f2 50 52 49 | . 3: P|%=6:.PRI|
|000024f0| 4e 54 41 4e 47 4c 45 53 | 28 33 29 3a 52 45 51 37 |NTANGLES|(3):REQ7|
|00002500| 3d b9 0d 0c da 1f 20 20 | 20 c9 20 34 3a 20 f2 57 |=..... | . 4: .W|
|00002510| 41 56 45 4c 45 4e 47 54 | 48 28 31 29 3a 50 25 3d |AVELENGT|H(1):P%=|
|00002520| 34 0d 0c e4 11 20 20 20 | c9 20 35 3a 20 f2 4d 4f |4.... |. 5: .MO|
|00002530| 44 45 0d 0c ee 21 20 20 | 20 c9 20 38 3a 20 f2 50 |DE...! | . 8: .P|
|00002540| 4c 4f 54 28 31 29 3a 50 | 25 3d 31 30 3a 52 45 51 |LOT(1):P|%=10:REQ|
|00002550| 37 3d b9 0d 0c f8 1a 20 | 20 20 c9 20 39 3a 20 f2 |7=..... | . 9: .|
|00002560| 42 45 41 4d 28 42 25 29 | 3a 50 25 3d 36 0d 0d 02 |BEAM(B%)|:P%=6...|
|00002570| 1c 20 20 20 c9 20 31 30 | 3a 20 f2 57 45 44 47 45 |. . 10|: .WEDGE|
|00002580| 28 31 29 3a 50 25 3d 32 | 30 0d 0d 0c 05 cb 0d 0d |(1):P%=2|0.......|
|00002590| 16 14 f2 50 41 55 53 45 | 28 50 25 29 3a 50 25 3d |...PAUSE|(P%):P%=|
|000025a0| 31 30 0d 0d 20 2e f5 20 | c8 97 20 58 25 2c 59 25 |10.. .. |.. X%,Y%|
|000025b0| 2c 42 25 3a fd 20 42 25 | 3c 3e 30 3a 52 25 3d a4 |,B%:. B%|<>0:R%=.|
|000025c0| 52 45 41 53 4f 4e 28 58 | 25 2c 59 25 2c 42 25 29 |REASON(X|%,Y%,B%)|
|000025d0| 0d 0d 2a 0a fd 20 52 25 | 3d 30 0d 0d 34 3c e6 20 |..*.. R%|=0..4<. |
|000025e0| 33 2c 31 30 3a ec 20 34 | 39 30 2c 34 30 3a f1 22 |3,10:. 4|90,40:."|
|000025f0| 20 20 20 20 20 43 6c 69 | 63 6b 20 61 20 6d 6f 75 | Cli|ck a mou|
|00002600| 73 65 20 62 75 74 74 6f | 6e 20 74 6f 20 63 6f 6e |se butto|n to con|
|00002610| 74 69 6e 75 65 22 0d 0d | 3e 20 e7 20 49 3d 31 20 |tinue"..|> . I=1 |
|00002620| e6 20 33 2c 33 3a c8 93 | 20 34 38 30 2c 34 2c 37 |. 3,3:..| 480,4,7|
|00002630| 38 30 2c 31 32 30 0d 0d | 48 18 f5 20 c8 97 20 58 |80,120..|H.. .. X|
|00002640| 25 2c 59 25 2c 42 25 3a | fd 20 42 25 3d 30 0d 0d |%,Y%,B%:|. B%=0..|
|00002650| 52 05 e1 0d 0d 5c 05 3a | 0d 0d 66 10 dd 20 f2 45 |R....\.:|..f.. .E|
|00002660| 58 54 52 41 48 45 4c 50 | 0d 0d 70 0f f2 53 41 56 |XTRAHELP|..p..SAV|
|00002670| 45 53 43 52 45 45 4e 0d | 0d 7a 3c 42 41 52 57 25 |ESCREEN.|.z<BARW%|
|00002680| 3d 31 36 3a 46 57 49 4e | 44 25 3d 47 57 49 4e 44 |=16:FWIN|D%=GWIND|
|00002690| 25 2b 32 30 3a 57 54 4f | 50 25 3d 39 35 30 3a 57 |%+20:WTO|P%=950:W|
|000026a0| 45 44 47 45 25 3d 31 32 | 30 30 3a 57 42 4f 54 25 |EDGE%=12|00:WBOT%|
|000026b0| 3d 35 30 0d 0d 84 1e ef | 32 34 2c 46 57 49 4e 44 |=50.....|24,FWIND|
|000026c0| 25 3b 30 3b 57 45 44 47 | 45 25 3b 57 54 4f 50 25 |%;0;WEDG|E%;WTOP%|
|000026d0| 3b 0d 0d 8e 58 da 3a e6 | 20 30 2c 31 3a c8 93 20 |;...X.:.| 0,1:.. |
|000026e0| c8 90 20 20 46 57 49 4e | 44 25 2c 57 42 4f 54 25 |.. FWIN|D%,WBOT%|
|000026f0| 2c 42 41 52 57 25 2c 57 | 54 4f 50 25 2d 57 42 4f |,BARW%,W|TOP%-WBO|
|00002700| 54 25 3a c8 93 20 c8 90 | 20 20 57 45 44 47 45 25 |T%:.. ..| WEDGE%|
|00002710| 2c 57 42 4f 54 25 2c 2d | 42 41 52 57 25 2c 57 54 |,WBOT%,-|BARW%,WT|
|00002720| 4f 50 25 2d 57 42 4f 54 | 25 0d 0d 98 52 c8 93 20 |OP%-WBOT|%...R.. |
|00002730| c8 90 20 46 57 49 4e 44 | 25 2c 57 42 4f 54 25 2c |.. FWIND|%,WBOT%,|
|00002740| 57 45 44 47 45 25 2d 46 | 57 49 4e 44 25 2c 42 41 |WEDGE%-F|WIND%,BA|
|00002750| 52 57 25 3a c8 93 20 c8 | 90 20 46 57 49 4e 44 25 |RW%:.. .|. FWIND%|
|00002760| 2c 57 54 4f 50 25 2c 57 | 45 44 47 45 25 2d 46 57 |,WTOP%,W|EDGE%-FW|
|00002770| 49 4e 44 25 2c 2d 42 41 | 52 57 25 0d 0d a2 79 e6 |IND%,-BA|RW%...y.|
|00002780| 20 30 2c 33 3a c8 93 20 | 46 57 49 4e 44 25 2c 57 | 0,3:.. |FWIND%,W|
|00002790| 42 4f 54 25 2c 57 45 44 | 47 45 25 2d 46 57 49 4e |BOT%,WED|GE%-FWIN|
|000027a0| 44 25 2c 57 54 4f 50 25 | 2d 57 42 4f 54 25 3a c8 |D%,WTOP%|-WBOT%:.|
|000027b0| 93 20 46 57 49 4e 44 25 | 2b 42 41 52 57 25 2c 57 |. FWIND%|+BARW%,W|
|000027c0| 42 4f 54 25 2b 42 41 52 | 57 25 2c 57 45 44 47 45 |BOT%+BAR|W%,WEDGE|
|000027d0| 25 2d 46 57 49 4e 44 25 | 2d 32 2a 42 41 52 57 25 |%-FWIND%|-2*BARW%|
|000027e0| 2c 57 54 4f 50 25 2d 32 | 2a 42 41 52 57 25 2d 57 |,WTOP%-2|*BARW%-W|
|000027f0| 42 4f 54 25 0d 0d ac 81 | e6 20 30 2c 33 3a c8 93 |BOT%....|. 0,3:..|
|00002800| 20 46 57 49 4e 44 25 2b | 32 2c 57 42 4f 54 25 2c | FWIND%+|2,WBOT%,|
|00002810| 57 45 44 47 45 25 2d 46 | 57 49 4e 44 25 2d 34 2c |WEDGE%-F|WIND%-4,|
|00002820| 57 54 4f 50 25 2d 57 42 | 4f 54 25 3a c8 93 20 46 |WTOP%-WB|OT%:.. F|
|00002830| 57 49 4e 44 25 2b 42 41 | 52 57 25 2d 32 2c 57 42 |WIND%+BA|RW%-2,WB|
|00002840| 4f 54 25 2b 42 41 52 57 | 25 2c 57 45 44 47 45 25 |OT%+BARW|%,WEDGE%|
|00002850| 2d 46 57 49 4e 44 25 2d | 32 2a 42 41 52 57 25 2b |-FWIND%-|2*BARW%+|
|00002860| 34 2c 57 54 4f 50 25 2d | 32 2a 42 41 52 57 25 2d |4,WTOP%-|2*BARW%-|
|00002870| 57 42 4f 54 25 0d 0d b6 | 48 46 57 49 4e 44 25 2b |WBOT%...|HFWIND%+|
|00002880| 3d 34 30 3a 57 45 44 47 | 45 25 2d 3d 33 32 3a 57 |=40:WEDG|E%-=32:W|
|00002890| 42 4f 54 25 2b 3d 34 30 | 3a 57 54 4f 50 25 2d 3d |BOT%+=40|:WTOP%-=|
|000028a0| 34 30 3a ef 32 34 2c 46 | 57 49 4e 44 25 3b 30 3b |40:.24,F|WIND%;0;|
|000028b0| 57 45 44 47 45 25 3b 57 | 54 4f 50 25 3b 0d 0d c0 |WEDGE%;W|TOP%;...|
|000028c0| 18 ec 20 46 57 49 4e 44 | 25 2c 57 54 4f 50 25 3a |.. FWIND|%,WTOP%:|
|000028d0| e6 20 30 2c 33 0d 0d ca | 67 f1 22 20 57 68 65 6e |. 0,3...|g." When|
|000028e0| 20 74 68 65 20 70 72 6f | 67 72 61 6d 20 69 73 20 | the pro|gram is |
|000028f0| 72 75 6e 6e 69 6e 67 2c | 20 61 6e 79 74 68 69 6e |running,| anythin|
|00002900| 67 22 3a f1 22 73 68 6f | 77 6e 20 69 6e 20 6c 69 |g":."sho|wn in li|
|00002910| 67 68 74 20 62 6c 75 65 | 20 63 61 6e 20 62 65 20 |ght blue| can be |
|00002920| 63 68 61 6e 67 65 64 22 | 3a f1 22 75 73 69 6e 67 |changed"|:."using|
|00002930| 20 74 68 65 20 6d 6f 75 | 73 65 2e 22 0d 0d d4 21 | the mou|se."...!|
|00002940| f1 3a f1 22 20 20 54 68 | 65 20 6d 6f 75 73 65 20 |.:." Th|e mouse |
|00002950| 62 75 74 74 6f 6e 73 20 | 61 72 65 3a 22 0d 0d de |buttons |are:"...|
|00002960| 29 f1 22 20 20 20 20 20 | 20 20 6c 65 66 74 20 20 |)." | left |
|00002970| 20 20 20 20 20 63 65 6e | 74 72 65 20 20 20 20 20 | cen|tre |
|00002980| 72 69 67 68 74 22 0d 0d | e8 2c f1 22 20 20 20 20 |right"..|.,." |
|00002990| 20 20 53 45 4c 45 43 54 | 20 20 20 20 20 20 20 4d | SELECT| M|
|000029a0| 45 4e 55 20 20 20 20 20 | 20 41 44 4a 55 53 54 22 |ENU | ADJUST"|
|000029b0| 3a f1 0d 0d f2 55 f1 20 | 22 48 6f 6c 64 69 6e 67 |:....U. |"Holding|
|000029c0| 20 64 6f 77 6e 20 74 68 | 65 20 53 45 4c 45 43 54 | down th|e SELECT|
|000029d0| 20 20 62 75 74 74 6f 6e | 20 61 6e 64 22 3a f1 22 | button| and":."|
|000029e0| 6d 6f 76 69 6e 67 20 74 | 68 65 20 6d 6f 75 73 65 |moving t|he mouse|
|000029f0| 20 69 73 20 63 61 6c 6c | 65 64 20 44 52 41 47 47 | is call|ed DRAGG|
|00002a00| 49 4e 47 2e 22 3a f1 0d | 0d fc 55 f1 20 22 54 6f |ING.":..|..U. "To|
|00002a10| 20 63 68 61 6e 67 65 20 | 74 68 65 20 77 61 76 65 | change |the wave|
|00002a20| 6c 65 6e 67 74 68 2c 20 | 64 72 61 67 20 74 68 65 |length, |drag the|
|00002a30| 20 74 6f 70 22 3a f1 22 | 6f 66 20 74 68 65 20 77 | top":."|of the w|
|00002a40| 61 76 65 6c 65 6e 67 74 | 68 20 62 61 72 20 75 70 |avelengt|h bar up|
|00002a50| 20 6f 72 20 64 6f 77 6e | 2e 22 3a f1 0d 0e 06 53 | or down|.":....S|
|00002a60| f1 20 22 54 6f 20 63 68 | 61 6e 67 65 20 74 68 65 |. "To ch|ange the|
|00002a70| 20 77 69 64 74 68 20 6f | 66 20 61 20 73 6c 69 74 | width o|f a slit|
|00002a80| 2c 20 64 72 61 67 22 3a | f1 22 74 68 65 20 74 6f |, drag":|."the to|
|00002a90| 70 20 6f 72 20 62 6f 74 | 74 6f 6d 20 65 64 67 65 |p or bot|tom edge|
|00002aa0| 20 75 70 20 6f 72 20 64 | 6f 77 6e 2e 22 3a f1 0d | up or d|own.":..|
|00002ab0| 0e 10 58 f1 20 22 54 6f | 20 61 64 64 20 61 20 73 |..X. "To| add a s|
|00002ac0| 6c 69 74 2c 20 70 6c 61 | 63 65 20 74 68 65 20 6d |lit, pla|ce the m|
|00002ad0| 6f 75 73 65 20 6f 6e 20 | 74 68 65 22 3a f1 22 73 |ouse on |the":."s|
|00002ae0| 6c 69 74 20 62 61 72 20 | 61 6e 64 20 63 6c 69 63 |lit bar |and clic|
|00002af0| 6b 20 74 68 65 20 41 44 | 4a 55 53 54 20 62 75 74 |k the AD|JUST but|
|00002b00| 74 6f 6e 2e 22 3a f1 0d | 0e 1a 67 f1 20 22 54 6f |ton.":..|..g. "To|
|00002b10| 20 63 68 61 6e 67 65 20 | 74 68 65 20 61 6e 67 6c | change |the angl|
|00002b20| 65 73 2c 20 63 6c 69 63 | 6b 20 6f 6e 20 74 68 65 |es, clic|k on the|
|00002b30| 20 62 6f 78 22 3a f1 22 | 77 69 74 68 20 53 45 4c | box":."|with SEL|
|00002b40| 45 43 54 20 28 74 6f 20 | 69 6e 63 72 65 61 73 65 |ECT (to |increase|
|00002b50| 29 20 6f 72 20 41 44 4a | 55 53 54 22 3a f1 22 28 |) or ADJ|UST":."(|
|00002b60| 74 6f 20 64 65 63 72 65 | 61 73 65 29 2e 22 0d 0e |to decre|ase)."..|
|00002b70| 24 50 f1 3a f1 22 20 20 | 59 6f 75 20 63 61 6e 20 |$P.:." |You can |
|00002b80| 63 68 61 6e 67 65 20 74 | 68 65 20 64 69 72 65 63 |change t|he direc|
|00002b90| 74 69 6f 6e 20 6f 66 22 | 3a f1 22 74 68 65 20 69 |tion of"|:."the i|
|00002ba0| 6e 63 69 64 65 6e 74 20 | 62 65 61 6d 20 69 6e 20 |ncident |beam in |
|00002bb0| 74 68 65 20 73 61 6d 65 | 20 77 61 79 2e 22 0d 0e |the same| way."..|
|00002bc0| 2e 19 20 f2 43 4c 49 43 | 4b 54 4f 43 4f 4e 54 49 |.. .CLIC|KTOCONTI|
|00002bd0| 4e 55 45 5a 28 30 29 0d | 0e 38 1e ef 32 34 2c 46 |NUEZ(0).|.8..24,F|
|00002be0| 57 49 4e 44 25 3b 30 3b | 57 45 44 47 45 25 3b 57 |WIND%;0;|WEDGE%;W|
|00002bf0| 54 4f 50 25 3b 0d 0e 42 | 2c e6 20 30 2c 30 3a c8 |TOP%;..B|,. 0,0:.|
|00002c00| 93 20 c8 90 20 46 57 49 | 4e 44 25 2c 57 42 4f 54 |. .. FWI|ND%,WBOT|
|00002c10| 25 2d 31 36 2c 57 45 44 | 47 45 25 2c 57 54 4f 50 |%-16,WED|GE%,WTOP|
|00002c20| 25 0d 0e 4c 18 ec 20 46 | 57 49 4e 44 25 2c 57 54 |%..L.. F|WIND%,WT|
|00002c30| 4f 50 25 3a e6 20 30 2c | 33 0d 0e 56 5b f1 22 20 |OP%:. 0,|3..V[." |
|00002c40| 20 54 6f 20 74 6f 67 67 | 6c 65 20 62 65 74 77 65 | To togg|le betwe|
|00002c50| 65 6e 20 6c 6f 67 20 61 | 6e 64 20 6c 69 6e 65 61 |en log a|nd linea|
|00002c60| 72 22 3a f1 22 69 6e 74 | 65 6e 73 69 74 79 20 70 |r":."int|ensity p|
|00002c70| 6c 6f 74 73 2c 20 63 6c | 69 63 6b 20 6f 6e 20 74 |lots, cl|ick on t|
|00002c80| 68 65 20 22 22 50 6c 6f | 74 22 22 22 3a f1 22 62 |he ""Plo|t""":."b|
|00002c90| 6f 78 2e 22 0d 0e 60 b6 | f1 3a f1 3a f1 22 20 20 |ox."..`.|.:.:." |
|00002ca0| 43 6c 69 63 6b 69 6e 67 | 20 6f 6e 20 74 68 65 20 |Clicking| on the |
|00002cb0| 22 22 57 65 64 67 65 22 | 22 20 62 6f 78 20 69 6e |""Wedge"|" box in|
|00002cc0| 73 65 72 74 73 22 3a f1 | 22 6f 72 20 72 65 6d 6f |serts":.|"or remo|
|00002cd0| 76 65 73 20 61 20 74 68 | 69 6e 20 67 6c 61 73 73 |ves a th|in glass|
|00002ce0| 20 77 65 64 67 65 20 62 | 65 68 69 6e 64 22 3a f1 | wedge b|ehind":.|
|00002cf0| 22 74 68 65 20 73 6c 69 | 74 73 2e 20 54 68 69 73 |"the sli|ts. This|
|00002d00| 20 63 61 75 73 65 73 20 | 61 6e 20 61 64 64 69 74 | causes |an addit|
|00002d10| 69 6f 6e 61 6c 22 3a f1 | 22 70 6f 73 69 74 69 6f |ional":.|"positio|
|00002d20| 6e 2d 64 65 70 65 6e 64 | 65 6e 74 20 70 68 61 73 |n-depend|ent phas|
|00002d30| 65 20 63 68 61 6e 67 65 | 20 69 6e 20 74 68 65 22 |e change| in the"|
|00002d40| 3a f1 22 6c 69 67 68 74 | 2e 22 0d 0e 6a 8a f1 3a |:."light|."..j..:|
|00002d50| f1 22 20 20 54 68 69 73 | 20 70 68 61 73 65 20 63 |." This| phase c|
|00002d60| 68 61 6e 67 65 20 69 73 | 20 30 20 61 74 20 74 68 |hange is| 0 at th|
|00002d70| 65 20 62 6f 74 74 6f 6d | 22 3a f1 22 65 64 67 65 |e bottom|":."edge|
|00002d80| 20 6f 66 20 74 68 65 20 | 73 6c 69 74 73 2c 20 61 | of the |slits, a|
|00002d90| 6e 64 20 69 6e 63 72 65 | 61 73 65 73 20 62 79 22 |nd incre|ases by"|
|00002da0| 3a f1 bd 32 34 30 3b 22 | 20 70 65 72 20 77 61 76 |:..240;"| per wav|
|00002db0| 65 6c 65 6e 67 74 68 20 | 69 6e 20 74 68 65 20 75 |elength |in the u|
|00002dc0| 70 77 61 72 64 22 3a f1 | 22 64 69 72 65 63 74 69 |pward":.|"directi|
|00002dd0| 6f 6e 2e 22 0d 0e 74 45 | f1 3a f1 22 20 54 72 79 |on."..tE|.:." Try|
|00002de0| 20 69 74 2c 20 61 6e 64 | 20 73 65 65 20 69 66 20 | it, and| see if |
|00002df0| 69 74 20 61 67 72 65 65 | 73 20 77 69 74 68 22 3a |it agree|s with":|
|00002e00| f1 22 77 68 61 74 20 79 | 6f 75 20 77 6f 75 6c 64 |."what y|ou would|
|00002e10| 20 65 78 70 65 63 74 2e | 22 0d 0e 7e 46 f1 3a f1 | expect.|"..~F.:.|
|00002e20| 22 20 20 59 6f 75 20 63 | 61 6e 20 73 6c 6f 77 20 |" You c|an slow |
|00002e30| 64 6f 77 6e 20 74 68 65 | 20 70 72 6f 67 72 61 6d |down the| program|
|00002e40| 20 62 79 22 3a f1 22 70 | 72 65 73 73 69 6e 67 20 | by":."p|ressing |
|00002e50| 74 68 65 20 73 70 61 63 | 65 20 62 61 72 2e 22 0d |the spac|e bar.".|
|00002e60| 0e 7f 29 f1 3a f1 22 20 | 20 50 72 65 73 73 20 45 |..).:." | Press E|
|00002e70| 53 43 20 74 6f 20 73 74 | 6f 70 20 74 68 65 20 70 |SC to st|op the p|
|00002e80| 72 6f 67 72 61 6d 2e 22 | 0d 0e 88 18 f2 43 4c 49 |rogram."|.....CLI|
|00002e90| 43 4b 54 4f 43 4f 4e 54 | 49 4e 55 45 5a 28 30 29 |CKTOCONT|INUEZ(0)|
|00002ea0| 0d 0e 92 0f f2 4c 4f 41 | 44 53 43 52 45 45 4e 0d |.....LOA|DSCREEN.|
|00002eb0| 0e 9c 0f e7 20 49 4e 4d | 4f 55 53 45 20 8c 0d 0e |.... INM|OUSE ...|
|00002ec0| a6 2a 20 20 20 ef 32 36 | 3a e6 20 30 2c 30 3a c8 |.* .26|:. 0,0:.|
|00002ed0| 93 20 c8 90 20 32 30 2c | 31 32 2c 47 57 49 4e 44 |. .. 20,|12,GWIND|
|00002ee0| 25 2d 33 32 2c 39 39 32 | 0d 0e b0 11 20 20 20 f2 |%-32,992|.... .|
|00002ef0| 44 52 41 57 53 4c 49 54 | 53 0d 0e ba 15 20 20 20 |DRAWSLIT|S.... |
|00002f00| f2 57 41 56 45 4c 45 4e | 47 54 48 28 30 29 0d 0e |.WAVELEN|GTH(0)..|
|00002f10| c4 16 20 20 20 f2 50 52 | 49 4e 54 41 4e 47 4c 45 |.. .PR|INTANGLE|
|00002f20| 53 28 30 29 0d 0e ce 0f | 20 20 20 f2 42 45 41 4d |S(0)....| .BEAM|
|00002f30| 28 30 29 0d 0e d8 0f 20 | 20 20 f2 50 4c 4f 54 28 |(0).... | .PLOT(|
|00002f40| 30 29 0d 0e e2 10 20 20 | 20 f2 57 45 44 47 45 28 |0).... | .WEDGE(|
|00002f50| 30 29 0d 0e ec 05 cd 0d | 0e f6 1b ef 32 34 2c 47 |0)......|....24,G|
|00002f60| 57 49 4e 44 25 3b 30 3b | 31 32 37 39 3b 31 30 32 |WIND%;0;|1279;102|
|00002f70| 33 3b 0d 0f 00 05 e1 0d | 0f 0a 05 3a 0d 0f 14 0c |3;......|...:....|
|00002f80| dd 20 f2 53 54 4f 52 59 | 0d 0f 1e 14 ec 20 33 35 |. .STORY|..... 35|
|00002f90| 30 2c 31 30 30 30 3a e6 | 20 30 2c 33 0d 0f 28 37 |0,1000:.| 0,3..(7|
|00002fa0| f1 22 49 4e 54 45 52 46 | 45 52 45 4e 43 45 20 20 |."INTERF|ERENCE |
|00002fb0| 41 4e 44 20 20 44 49 46 | 46 52 41 43 54 49 4f 4e |AND DIF|FRACTION|
|00002fc0| 22 3a 86 20 33 34 30 2c | 39 36 34 2c 38 33 38 2c |":. 340,|964,838,|
|00002fd0| 39 36 34 0d 0f 32 0b ec | 20 30 2c 39 30 30 0d 0f |964..2..| 0,900..|
|00002fe0| 3c 48 f1 22 20 20 20 54 | 68 69 73 20 70 72 6f 67 |<H." T|his prog|
|00002ff0| 72 61 6d 20 69 6c 6c 75 | 73 74 72 61 74 65 73 20 |ram illu|strates |
|00003000| 69 6e 74 65 72 66 65 72 | 65 6e 63 65 20 61 6e 64 |interfer|ence and|
|00003010| 20 64 69 66 66 72 61 63 | 74 69 6f 6e 20 6f 66 20 | diffrac|tion of |
|00003020| 6c 69 67 68 74 22 0d 0f | 46 26 f1 22 20 20 20 62 |light"..|F&." b|
|00003030| 79 20 61 20 6e 75 6d 62 | 65 72 20 6f 66 20 6e 61 |y a numb|er of na|
|00003040| 72 72 6f 77 20 73 6c 69 | 74 73 2e 22 0d 0f 50 4d |rrow sli|ts."..PM|
|00003050| f1 22 20 20 20 54 68 65 | 20 6f 70 65 72 61 74 69 |." The| operati|
|00003060| 6f 6e 20 6f 66 20 74 68 | 65 20 70 72 6f 67 72 61 |on of th|e progra|
|00003070| 6d 20 69 73 20 63 6f 6e | 74 72 6f 6c 6c 65 64 20 |m is con|trolled |
|00003080| 62 79 20 79 6f 75 2c 20 | 75 73 69 6e 67 20 74 68 |by you, |using th|
|00003090| 65 20 6d 6f 75 73 65 2e | 22 0d 0f 5a 4c f1 22 20 |e mouse.|"..ZL." |
|000030a0| 20 20 59 6f 75 20 63 61 | 6e 20 67 65 74 20 68 65 | You ca|n get he|
|000030b0| 6c 70 20 61 74 20 61 6e | 79 20 74 69 6d 65 20 62 |lp at an|y time b|
|000030c0| 79 20 63 6c 69 63 6b 69 | 6e 67 20 61 6e 79 20 6f |y clicki|ng any o|
|000030d0| 66 20 74 68 65 20 6d 6f | 75 73 65 20 62 75 74 74 |f the mo|use butt|
|000030e0| 6f 6e 73 2e 22 0d 0f 64 | 1e f1 3a f1 22 59 6f 75 |ons."..d|..:."You|
|000030f0| 20 77 69 6c 6c 20 62 65 | 20 61 62 6c 65 20 74 6f | will be| able to|
|00003100| 20 3a 22 0d 0f 6e 26 f1 | 3a f1 22 20 20 20 20 20 | :"..n&.|:." |
|00003110| 2a 20 20 63 68 61 6e 67 | 65 20 74 68 65 20 77 61 |* chang|e the wa|
|00003120| 76 65 6c 65 6e 67 74 68 | 22 0d 0f 78 1f f1 3a f1 |velength|"..x..:.|
|00003130| 22 20 20 20 20 20 2a 20 | 20 61 64 64 20 6d 6f 72 |" * | add mor|
|00003140| 65 20 73 6c 69 74 73 22 | 0d 0f 82 1d f1 3a f1 22 |e slits"|.....:."|
|00003150| 20 20 20 20 20 2a 20 20 | 72 65 6d 6f 76 65 20 73 | * |remove s|
|00003160| 6c 69 74 73 22 0d 0f 8c | 36 f1 3a f1 22 20 20 20 |lits"...|6.:." |
|00003170| 20 20 2a 20 20 70 72 6f | 64 75 63 65 20 6c 69 6e | * pro|duce lin|
|00003180| 65 61 72 20 6f 72 20 6c | 6f 67 20 69 6e 74 65 6e |ear or l|og inten|
|00003190| 73 69 74 79 20 70 6c 6f | 74 73 22 0d 0f 96 4c f1 |sity plo|ts"...L.|
|000031a0| 3a f1 22 20 20 20 20 20 | 2a 20 20 63 68 61 6e 67 |:." |* chang|
|000031b0| 65 20 74 68 65 20 61 6e | 67 75 6c 61 72 20 6c 69 |e the an|gular li|
|000031c0| 6d 69 74 73 20 6f 66 20 | 74 68 65 20 65 6d 65 72 |mits of |the emer|
|000031d0| 67 69 6e 67 20 62 65 61 | 6d 2e 20 54 68 69 73 20 |ging bea|m. This |
|000031e0| 61 6c 6c 6f 77 73 22 0d | 0f a0 4d f1 22 20 20 20 |allows".|..M." |
|000031f0| 20 20 20 20 20 79 6f 75 | 20 74 6f 20 6c 6f 6f 6b | you| to look|
|00003200| 20 61 74 20 70 61 72 74 | 69 63 75 6c 61 72 20 70 | at part|icular p|
|00003210| 61 72 74 73 20 6f 66 20 | 74 68 65 20 70 61 74 74 |arts of |the patt|
|00003220| 65 72 6e 20 69 6e 20 6d | 6f 72 65 20 64 65 74 61 |ern in m|ore deta|
|00003230| 69 6c 2e 22 0d 0f aa 4e | f1 3a f1 22 20 20 20 20 |il."...N|.:." |
|00003240| 20 2a 20 20 73 75 70 65 | 72 69 6d 70 6f 73 65 20 | * supe|rimpose |
|00003250| 73 65 76 65 72 61 6c 20 | 70 61 74 74 65 72 6e 73 |several |patterns|
|00003260| 2e 20 46 6f 72 20 65 78 | 61 6d 70 6c 65 2c 20 79 |. For ex|ample, y|
|00003270| 6f 75 20 63 61 6e 20 6f | 62 74 61 69 6e 20 74 68 |ou can o|btain th|
|00003280| 65 22 0d 0f b4 4b f1 22 | 20 20 20 20 20 20 20 20 |e"...K."| |
|00003290| 70 61 74 74 65 72 6e 20 | 67 65 6e 65 72 61 74 65 |pattern |generate|
|000032a0| 64 20 66 72 6f 6d 20 61 | 20 62 65 61 6d 20 77 69 |d from a| beam wi|
|000032b0| 74 68 20 74 77 6f 20 64 | 69 66 66 65 72 65 6e 74 |th two d|ifferent|
|000032c0| 20 77 61 76 65 6c 65 6e | 67 74 68 73 22 0d 0f be | wavelen|gths"...|
|000032d0| 4b f1 3a f1 22 20 20 20 | 20 20 2a 20 20 63 68 61 |K.:." | * cha|
|000032e0| 6e 67 65 20 74 68 65 20 | 64 69 72 65 63 74 69 6f |nge the |directio|
|000032f0| 6e 20 6f 66 20 74 68 65 | 20 62 65 61 6d 2e 20 54 |n of the| beam. T|
|00003300| 68 69 73 20 61 6c 6c 6f | 77 73 20 79 6f 75 20 74 |his allo|ws you t|
|00003310| 6f 20 73 74 75 64 79 22 | 0d 0f c8 46 f1 22 20 20 |o study"|...F." |
|00003320| 20 20 20 20 20 20 72 65 | 73 6f 6c 76 69 6e 67 20 | re|solving |
|00003330| 70 6f 77 65 72 20 62 79 | 20 75 73 69 6e 67 20 74 |power by| using t|
|00003340| 77 6f 20 62 65 61 6d 73 | 20 61 74 20 64 69 66 66 |wo beams| at diff|
|00003350| 65 72 65 6e 74 20 61 6e | 67 6c 65 73 2e 22 0d 0f |erent an|gles."..|
|00003360| d2 4f f1 3a f1 22 20 20 | 20 20 20 2a 20 20 63 6f |.O.:." | * co|
|00003370| 76 65 72 20 74 68 65 20 | 73 6c 69 74 73 20 77 69 |ver the |slits wi|
|00003380| 74 68 20 61 20 67 6c 61 | 73 73 20 77 65 64 67 65 |th a gla|ss wedge|
|00003390| 2e 20 54 68 69 73 20 72 | 65 73 75 6c 74 73 20 69 |. This r|esults i|
|000033a0| 6e 20 61 20 70 6f 73 69 | 74 69 6f 6e 22 0d 0f dc |n a posi|tion"...|
|000033b0| 5c f1 22 20 20 20 20 20 | 20 20 20 64 65 70 65 6e |\." | depen|
|000033c0| 64 65 6e 74 20 70 68 61 | 73 65 20 63 68 61 6e 67 |dent pha|se chang|
|000033d0| 65 20 61 6e 64 20 22 3b | 3a e6 20 30 2c 31 3a f1 |e and ";|:. 0,1:.|
|000033e0| 22 69 73 20 6f 6e 6c 79 | 20 66 6f 72 20 74 68 65 |"is only| for the|
|000033f0| 20 72 65 61 6c 6c 79 20 | 64 65 64 69 63 61 74 65 | really |dedicate|
|00003400| 64 2e 22 3a e6 20 30 2c | 33 0d 0f e6 05 f1 0d 0f |d.":. 0,|3.......|
|00003410| f0 19 f2 43 4c 49 43 4b | 54 4f 43 4f 4e 54 49 4e |...CLICK|TOCONTIN|
|00003420| 55 45 28 30 29 3a db 0d | 0f fa 05 e1 0d 10 04 05 |UE(0):..|........|
|00003430| 3a 0d 10 0e 11 dd 20 f2 | 4f 55 54 28 41 24 2c 42 |:..... .|OUT(A$,B|
|00003440| 24 29 0d 10 18 0b f1 41 | 24 3a f1 42 24 0d 10 22 |$).....A|$:.B$.."|
|00003450| 06 f1 3a 0d 10 2c 05 e1 | 0d 10 36 05 3a 0d 10 40 |..:..,..|..6.:..@|
|00003460| 0e dd 20 f2 50 4c 4f 54 | 28 49 29 0d 10 4a 2d ef |.. .PLOT|(I)..J-.|
|00003470| 32 36 3a e6 20 33 2c 35 | 3a c8 93 20 58 50 4c 4f |26:. 3,5|:.. XPLO|
|00003480| 54 25 2c 59 50 4c 4f 54 | 25 2c 57 50 4c 4f 54 25 |T%,YPLOT|%,WPLOT%|
|00003490| 2c 2d 48 50 4c 4f 54 25 | 0d 10 5e 5a ec 20 58 50 |,-HPLOT%|..^Z. XP|
|000034a0| 4c 4f 54 25 2b 31 30 2c | 59 50 4c 4f 54 25 2d 32 |LOT%+10,|YPLOT%-2|
|000034b0| 30 3a f1 22 20 50 6c 6f | 74 3a 22 3a ec 20 58 50 |0:." Plo|t:":. XP|
|000034c0| 4c 4f 54 25 2b 31 30 2c | 59 50 4c 4f 54 25 2d 36 |LOT%+10,|YPLOT%-6|
|000034d0| 30 3a e7 20 4c 49 4e 4e | 4f 54 4c 4f 47 20 f1 22 |0:. LINN|OTLOG ."|
|000034e0| 6c 69 6e 65 61 72 22 3a | 8b 20 f1 20 22 20 6c 6f |linear":|. . " lo|
|000034f0| 67 22 0d 10 68 20 e7 20 | 49 3c 3e 30 20 4c 49 4e |g"..h . |I<>0 LIN|
|00003500| 4e 4f 54 4c 4f 47 3d ac | 20 4c 49 4e 4e 4f 54 4c |NOTLOG=.| LINNOTL|
|00003510| 4f 47 0d 10 72 29 e6 20 | 30 2c 35 3a c8 93 20 58 |OG..r). |0,5:.. X|
|00003520| 50 4c 4f 54 25 2c 59 50 | 4c 4f 54 25 2c 57 50 4c |PLOT%,YP|LOT%,WPL|
|00003530| 4f 54 25 2c 2d 48 50 4c | 4f 54 25 0d 10 7c 5a ec |OT%,-HPL|OT%..|Z.|
|00003540| 20 58 50 4c 4f 54 25 2b | 31 30 2c 59 50 4c 4f 54 | XPLOT%+|10,YPLOT|
|00003550| 25 2d 32 30 3a f1 22 20 | 50 6c 6f 74 3a 22 3a ec |%-20:." |Plot:":.|
|00003560| 20 58 50 4c 4f 54 25 2b | 31 30 2c 59 50 4c 4f 54 | XPLOT%+|10,YPLOT|
|00003570| 25 2d 36 30 3a e7 20 4c | 49 4e 4e 4f 54 4c 4f 47 |%-60:. L|INNOTLOG|
|00003580| 20 f1 22 6c 69 6e 65 61 | 72 22 3a 8b 20 f1 20 22 | ."linea|r":. . "|
|00003590| 20 6c 6f 67 22 0d 10 86 | 05 e1 0d 10 90 05 3a 0d | log"...|......:.|
|000035a0| 10 9a 11 dd 20 f2 53 41 | 56 45 53 43 52 45 45 4e |.... .SA|VESCREEN|
|000035b0| 0d 10 a4 38 c8 99 20 22 | 4f 53 5f 52 65 61 64 56 |...8.. "|OS_ReadV|
|000035c0| 64 75 56 61 72 69 61 62 | 6c 65 73 22 2c 49 6e 70 |duVariab|les",Inp|
|000035d0| 75 74 2c 4f 75 74 70 75 | 74 3a d6 20 53 61 76 65 |ut,Outpu|t:. Save|
|000035e0| 73 63 72 65 65 6e 3a e1 | 0d 10 ae 05 3a 0d 10 b8 |screen:.|....:...|
|000035f0| 11 dd 20 f2 4c 4f 41 44 | 53 43 52 45 45 4e 0d 10 |.. .LOAD|SCREEN..|
|00003600| c2 12 d6 20 4c 6f 61 64 | 73 63 72 65 65 6e 3a e1 |... Load|screen:.|
|00003610| 0d 10 cc 05 3a 0d 10 d6 | 0d dd 20 f2 41 53 49 4e |....:...|.. .ASIN|
|00003620| 49 54 0d 10 e0 33 73 63 | 72 65 65 6e 73 69 7a 65 |IT...3sc|reensize|
|00003630| 25 3d 38 30 2a 31 30 32 | 34 3a de 20 41 53 4d 43 |%=80*102|4:. ASMC|
|00003640| 4f 44 45 25 20 32 30 30 | 30 2b 73 63 72 65 65 6e |ODE% 200|0+screen|
|00003650| 73 69 7a 65 25 0d 10 ea | 30 e3 20 50 41 53 53 25 |size%...|0. PASS%|
|00003660| 3d 30 20 b8 20 32 20 88 | 20 32 3a 50 25 3d 41 53 |=0 . 2 .| 2:P%=AS|
|00003670| 4d 43 4f 44 45 25 3a f2 | 41 53 4d 53 28 50 41 53 |MCODE%:.|ASMS(PAS|
|00003680| 53 25 29 3a ed 0d 10 f4 | 05 e1 0d 10 fe 05 3a 0d |S%):....|......:.|
|00003690| 11 08 0e dd 20 f2 41 53 | 4d 53 28 5a 29 0d 11 12 |.... .AS|MS(Z)...|
|000036a0| 30 5b 4f 50 54 20 5a 3a | 2e 49 6e 70 75 74 20 45 |0[OPT Z:|.Input E|
|000036b0| 51 55 44 20 31 34 38 3a | 45 51 55 44 20 b9 3a 2e |QUD 148:|EQUD .:.|
|000036c0| 4f 75 74 70 75 74 20 45 | 51 55 44 20 30 0d 11 1c |Output E|QUD 0...|
|000036d0| 27 2e 53 61 76 65 73 63 | 72 65 65 6e 3a a4 53 61 |'.Savesc|reen:.Sa|
|000036e0| 76 65 73 63 72 65 65 6e | 3a 4d 4f 56 20 52 31 35 |vescreen|:MOV R15|
|000036f0| 2c 52 31 34 0d 11 26 21 | 2e 4c 6f 61 64 73 63 72 |,R14..&!|.Loadscr|
|00003700| 65 65 6e 3a a4 6c 6f 61 | 64 3a 4d 4f 56 20 52 31 |een:.loa|d:MOV R1|
|00003710| 35 2c 52 31 34 0d 11 30 | 22 2e 57 4f 52 4b 53 50 |5,R14..0|".WORKSP|
|00003720| 41 43 45 3a 5d 3a 50 25 | 2b 3d 73 63 72 65 65 6e |ACE:]:P%|+=screen|
|00003730| 73 69 7a 65 25 3a e1 0d | 11 3a 05 3a 0d 11 44 11 |size%:..|.:.:..D.|
|00003740| dd 20 a4 53 61 76 65 73 | 63 72 65 65 6e 0d 11 4e |. .Saves|creen..N|
|00003750| 3f 5b 4f 50 54 20 5a 3a | 41 44 52 20 52 30 2c 49 |?[OPT Z:|ADR R0,I|
|00003760| 6e 70 75 74 3a 41 44 52 | 20 52 31 2c 4f 75 74 70 |nput:ADR| R1,Outp|
|00003770| 75 74 3a 53 57 49 20 22 | 4f 53 5f 52 65 61 64 56 |ut:SWI "|OS_ReadV|
|00003780| 64 75 56 61 72 69 61 62 | 6c 65 73 22 0d 11 58 36 |duVariab|les"..X6|
|00003790| 4c 44 52 20 52 30 2c 4f | 75 74 70 75 74 3a 41 44 |LDR R0,O|utput:AD|
|000037a0| 52 20 52 31 2c 57 4f 52 | 4b 53 50 41 43 45 3a 4d |R R1,WOR|KSPACE:M|
|000037b0| 4f 56 20 52 32 2c 23 73 | 63 72 65 65 6e 73 69 7a |OV R2,#s|creensiz|
|000037c0| 65 25 0d 11 62 49 2e 53 | 61 76 65 31 3a 4c 44 4d |e%..bI.S|ave1:LDM|
|000037d0| 49 41 20 52 30 21 2c 7b | 52 33 2d 52 31 32 7d 3a |IA R0!,{|R3-R12}:|
|000037e0| 53 54 4d 49 41 20 52 31 | 21 2c 7b 52 33 2d 52 31 |STMIA R1|!,{R3-R1|
|000037f0| 32 7d 3a 53 55 42 53 20 | 52 32 2c 52 32 2c 23 34 |2}:SUBS |R2,R2,#4|
|00003800| 30 3a 42 4e 45 20 53 61 | 76 65 31 0d 11 6c 08 5d |0:BNE Sa|ve1..l.]|
|00003810| 3a 3d 30 0d 11 76 05 3a | 0d 11 80 0b dd 20 a4 6c |:=0..v.:|..... .l|
|00003820| 6f 61 64 0d 11 8a 3d 5b | 4f 50 54 20 5a 3a 41 44 |oad...=[|OPT Z:AD|
|00003830| 52 20 52 30 2c 57 4f 52 | 4b 53 50 41 43 45 3a 4c |R R0,WOR|KSPACE:L|
|00003840| 44 52 20 52 31 2c 4f 75 | 74 70 75 74 3a 4d 4f 56 |DR R1,Ou|tput:MOV|
|00003850| 20 52 32 2c 23 73 63 72 | 65 65 6e 73 69 7a 65 25 | R2,#scr|eensize%|
|00003860| 0d 11 94 49 2e 6c 6f 61 | 64 31 3a 4c 44 4d 49 41 |...I.loa|d1:LDMIA|
|00003870| 20 52 30 21 2c 7b 52 33 | 2d 52 31 32 7d 3a 53 54 | R0!,{R3|-R12}:ST|
|00003880| 4d 49 41 20 52 31 21 2c | 7b 52 33 2d 52 31 32 7d |MIA R1!,|{R3-R12}|
|00003890| 3a 53 55 42 53 20 52 32 | 2c 52 32 2c 23 34 30 3a |:SUBS R2|,R2,#40:|
|000038a0| 42 4e 45 20 6c 6f 61 64 | 31 0d 11 9e 08 5d 3a 3d |BNE load|1....]:=|
|000038b0| 30 0d 11 a8 05 3a 0d 11 | b2 1b ef 32 34 2c 47 57 |0....:..|...24,GW|
|000038c0| 49 4e 44 25 3b 30 3b 31 | 32 37 39 3b 31 30 32 33 |IND%;0;1|279;1023|
|000038d0| 3b 0d ff | |;.. | |
+--------+-------------------------+-------------------------+--------+--------+
