00000000  2d 3d 5b 42 41 44 20 53  45 43 54 4f 52 5d 3d 2d  |-=[BAD SECTOR]=-|
*
00000100  0d 00 32 14 20 f4 20 2d  20 43 41 4c 4c 20 4d 31  |..2. . - CALL M1|
00000110  2c 43 57 25 0d 00 37 23  20 f4 20 20 20 52 6f 74  |,CW%..7# .   Rot|
00000120  61 74 65 73 20 4d 6f 74  6f 72 20 23 31 20 63 6c  |ates Motor #1 cl|
00000130  6f 63 6b 77 69 73 65 0d  00 3c 15 20 f4 20 2d 20  |ockwise..<. . - |
00000140  43 41 4c 4c 20 4d 31 2c  43 43 57 25 0d 00 41 2b  |CALL M1,CCW%..A+|
00000150  20 f4 20 20 20 52 6f 74  61 74 65 73 20 4d 6f 74  | .   Rotates Mot|
00000160  6f 72 20 23 31 20 63 6f  75 6e 74 65 72 2d 63 6c  |or #1 counter-cl|
00000170  6f 63 6b 77 69 73 65 0d  00 46 14 20 f4 20 2d 20  |ockwise..F. . - |
00000180  43 41 4c 4c 20 4d 31 2c  47 4f 25 0d 00 4b 2b 20  |CALL M1,GO%..K+ |
00000190  f4 20 20 20 53 77 69 74  63 68 65 73 20 64 65 76  |.   Switches dev|
000001a0  69 63 65 20 63 6f 6e 6e  65 63 74 65 64 20 74 6f  |ice connected to|
000001b0  20 4d 31 20 6f 6e 0d 00  50 16 20 f4 20 2d 20 43  | M1 on..P. . - C|
000001c0  41 4c 4c 20 4d 31 2c 48  41 4c 54 25 0d 00 55 2c  |ALL M1,HALT%..U,|
000001d0  20 f4 20 20 20 53 77 69  74 63 68 65 73 20 64 65  | .   Switches de|
000001e0  76 69 63 65 20 63 6f 6e  6e 65 63 74 65 64 20 74  |vice connected t|
000001f0  6f 20 4d 31 20 6f 66 66  0d 00 5a 34 20 f4 20 49  |o M1 off..Z4 . I|
00000200  2d 3d 5b 42 41 44 20 53  45 43 54 4f 52 5d 3d 2d  |-=[BAD SECTOR]=-|
*
00000400  73 61 76 65 3d 26 38 34  0d 00 aa 10 20 e9 20 78  |save=&84.... . x|
00000410  73 61 76 65 3d 26 38 35  0d 00 af 10 20 e9 20 79  |save=&85.... . y|
00000420  73 61 76 65 3d 26 38 36  0d 00 b4 0d 20 de 20 4d  |save=&86.... . M|
00000430  25 20 35 30 30 0d 00 b9  12 20 e3 20 5a 3d 30 20  |% 500.... . Z=0 |
00000440  b8 20 32 20 88 20 32 0d  00 be 0a 20 50 25 3d 4d  |. 2 . 2.... P%=M|
00000450  25 0d 00 c3 05 5b 0d 00  c8 0a 20 4f 50 54 20 5a  |%....[.... OPT Z|
00000460  0d 00 cd 1c 20 5c 20 2a  20 2a 20 4f 55 54 50 55  |.... \ * * OUTPU|
00000470  54 20 44 52 49 56 45 52  20 2a 20 2a 0d 00 d2 58  |T DRIVER * *...X|
00000480  20 2e 69 6e 69 74 3a 6c  64 61 20 23 30 3a 62 65  | .init:lda #0:be|
00000490  71 20 73 74 76 61 72 3a  6c 64 61 20 23 33 20 3a  |q stvar:lda #3 :|
000004a0  62 6e 65 20 62 6f 75 74  3a 6c 64 61 20 23 31 32  |bne bout:lda #12|
000004b0  3a 62 6e 65 20 62 6f 75  74 3a 6c 64 61 20 23 26  |:bne bout:lda #&|
000004c0  33 30 3a 62 6e 65 20 62  6f 75 74 3a 6c 64 61 20  |30:bne bout:lda |
000004d0  23 26 43 30 0d 00 d7 41  20 2e 62 6f 75 74 20 3a  |#&C0...A .bout :|
000004e0  73 74 61 20 6d 61 73 6b  3a 6c 64 61 20 61 76 61  |sta mask:lda ava|
000004f0  72 3a 6f 72 61 20 6d 61  73 6b 3a 73 74 61 20 61  |r:ora mask:sta a|
00000500  76 61 72 3a 6a 73 72 20  63 68 65 63 6b 3a 6a 6d  |var:jsr check:jm|
00000510  70 20 6f 6b 32 0d 00 dc  24 20 2e 63 68 65 63 6b  |p ok2...$ .check|
00000520  20 3a 6c 64 61 20 26 30  36 30 30 3a 63 6d 70 20  | :lda &0600:cmp |
00000530  23 31 3a 62 65 71 20 6f  6b 0d 00 e1 51 20 2e 65  |#1:beq ok...Q .e|
00000540  72 72 31 3a 62 72 6b 3a  5d 3a f2 65 71 75 62 20  |rr1:brk:]:.equb |
00000550  28 26 46 46 29 3a f2 65  71 75 73 20 28 22 55 73  |(&FF):.equs ("Us|
00000560  65 20 65 78 61 63 74 6c  79 20 6f 6e 65 20 70 61  |e exactly one pa|
00000570  72 61 6d 65 74 65 72 22  29 3a f2 65 71 75 62 20  |rameter"):.equb |
00000580  28 30 29 3a 5b 4f 50 54  20 5a 0d 00 e6 22 20 2e  |(0):[OPT Z..." .|
00000590  6f 6b 3a 6c 64 61 26 36  30 33 3a 20 63 6d 70 20  |ok:lda&603: cmp |
000005a0  23 34 3a 62 65 71 20 6f  6b 31 20 20 0d 00 eb 50  |#4:beq ok1  ...P|
000005b0  20 2e 65 72 72 32 3a 62  72 6b 3a 5d 3a f2 65 71  | .err2:brk:]:.eq|
000005c0  75 62 28 26 46 46 29 3a  f2 65 71 75 73 28 22 55  |ub(&FF):.equs("U|
000005d0  73 65 20 69 6e 74 65 67  65 72 20 70 61 72 61 6d  |se integer param|
000005e0  65 74 65 72 73 20 6f 6e  6c 79 22 29 3a f2 65 71  |eters only"):.eq|
000005f0  75 62 28 30 29 3a 5b 4f  50 54 20 5a 0d 00 f0 43  |ub(0):[OPT Z...C|
00000600  20 2e 6f 6b 31 3a 6c 64  61 20 26 36 30 31 3a 73  | .ok1:lda &601:s|
00000610  74 61 20 62 75 66 66 3a  6c 64 61 20 26 36 30 32  |ta buff:lda &602|
00000620  3a 73 74 61 20 62 75 66  66 2b 31 3a 6c 64 79 20  |:sta buff+1:ldy |
00000630  23 30 3a 6c 64 61 20 28  62 75 66 66 29 2c 59 0d  |#0:lda (buff),Y.|
00000640  00 f5 0f 20 2e 62 61 63  6b 3a 72 74 73 20 0d 00  |... .back:rts ..|
00000650  fa 2f 20 2e 6f 6b 32 3a  61 6e 64 20 6d 61 73 6b  |./ .ok2:and mask|
00000660  3a 73 74 61 20 6d 61 73  6b 3a 20 6c 64 61 20 61  |:sta mask: lda a|
00000670  76 61 72 3a 65 6f 72 20  6d 61 73 6b 20 0d 00 ff  |var:eor mask ...|
00000680  19 20 2e 73 74 76 61 72  3a 73 74 61 20 61 76 61  |. .stvar:sta ava|
00000690  72 3a 20 74 61 79 0d 01  04 40 20 2e 73 68 6f 75  |r: tay...@ .shou|
000006a0  74 3a 6a 73 72 20 73 61  76 65 3a 6c 64 79 20 23  |t:jsr save:ldy #|
000006b0  26 33 46 3a 6c 64 78 20  23 64 72 72 3a 6a 73 72  |&3F:ldx #drr:jsr|
000006c0  20 77 72 69 74 65 3a 6a  73 72 20 6c 6f 61 64 3a  | write:jsr load:|
000006d0  6c 64 78 20 23 38 0d 01  09 2e 20 2e 6c 6f 6f 70  |ldx #8.... .loop|
000006e0  3a 20 6c 64 61 20 23 26  33 30 3a 61 73 6c 20 61  |: lda #&30:asl a|
000006f0  76 61 72 3a 20 62 63 63  20 6e 75 6c 6c 3a 6f 72  |var: bcc null:or|
00000700  61 20 23 34 0d 01 0e 4e  20 2e 6e 75 6c 6c 3a 6a  |a #4...N .null:j|
00000710  73 72 20 73 61 76 65 3a  74 61 79 3a 6c 64 78 20  |sr save:tay:ldx |
00000720  23 75 70 3a 6a 73 72 20  77 72 69 74 65 3a 6a 73  |#up:jsr write:js|
00000730  72 20 6c 6f 61 64 3a 6f  72 61 20 23 38 3a 6a 73  |r load:ora #8:js|
00000740  72 20 73 61 76 65 3a 74  61 79 3a 6c 64 78 20 23  |r save:tay:ldx #|
00000750  75 70 0d 01 13 5e 20 6a  73 72 20 77 72 69 74 65  |up...^ jsr write|
00000760  3a 6a 73 72 20 6c 6f 61  64 3a 64 65 78 3a 62 6e  |:jsr load:dex:bn|
00000770  65 20 6c 6f 6f 70 3a 6a  73 72 20 73 61 76 65 3a  |e loop:jsr save:|
00000780  6c 64 79 20 23 26 33 31  3a 6c 64 78 20 23 75 70  |ldy #&31:ldx #up|
00000790  3a 6a 73 72 20 77 72 69  74 65 3a 6a 73 72 20 6c  |:jsr write:jsr l|
000007a0  6f 61 64 3a 73 74 79 20  61 76 61 72 3a 72 74 73  |oad:sty avar:rts|
000007b0  0d 01 18 18 20 2e 45 31  3a 6c 64 78 20 23 31 3a  |.... .E1:ldx #1:|
000007c0  6a 6d 70 20 74 65 73 74  0d 01 1d 18 20 2e 45 32  |jmp test.... .E2|
000007d0  3a 6c 64 78 20 23 32 3a  6a 6d 70 20 74 65 73 74  |:ldx #2:jmp test|
000007e0  0d 01 22 18 20 2e 45 33  3a 6c 64 78 20 23 34 3a  |..". .E3:ldx #4:|
000007f0  6a 6d 70 20 74 65 73 74  0d 01 27 18 20 2e 45 34  |jmp test..'. .E4|
00000800  3a 6c 64 78 20 23 38 3a  6a 6d 70 20 74 65 73 74  |:ldx #8:jmp test|
00000810  0d 01 2c 19 20 2e 45 35  3a 6c 64 78 20 23 31 36  |..,. .E5:ldx #16|
00000820  3a 6a 6d 70 20 74 65 73  74 0d 01 31 19 20 2e 45  |:jmp test..1. .E|
00000830  36 3a 6c 64 78 20 23 33  32 3a 6a 6d 70 20 74 65  |6:ldx #32:jmp te|
00000840  73 74 0d 01 36 19 20 2e  45 37 3a 6c 64 78 20 23  |st..6. .E7:ldx #|
00000850  36 34 3a 6a 6d 70 20 74  65 73 74 0d 01 3b 11 20  |64:jmp test..;. |
00000860  2e 45 38 3a 6c 64 78 20  23 31 32 38 0d 01 40 86  |.E8:ldx #128..@.|
00000870  20 2e 74 65 73 74 3a 73  74 78 20 6d 61 73 6b 3a  | .test:stx mask:|
00000880  6c 64 61 20 23 26 33 32  3a 6a 73 72 20 73 61 76  |lda #&32:jsr sav|
00000890  65 3a 6c 64 79 20 61 73  61 76 65 3a 6c 64 78 20  |e:ldy asave:ldx |
000008a0  23 75 70 3a 6a 73 72 20  77 72 69 74 65 3a 6a 73  |#up:jsr write:js|
000008b0  72 20 6c 6f 61 64 3a 6f  72 61 20 23 38 3a 6a 73  |r load:ora #8:js|
000008c0  72 20 73 61 76 65 3a 6c  64 79 20 61 73 61 76 65  |r save:ldy asave|
000008d0  3a 6c 64 78 20 23 75 70  3a 6a 73 72 20 77 72 69  |:ldx #up:jsr wri|
000008e0  74 65 3a 6a 73 72 20 6c  6f 61 64 3a 6c 64 78 20  |te:jsr load:ldx |
000008f0  23 38 0d 01 45 5a 20 2e  6c 6f 6f 70 32 3a 61 73  |#8..EZ .loop2:as|
00000900  6c 20 41 3a 6a 73 72 20  73 61 76 65 3a 6c 64 78  |l A:jsr save:ldx|
00000910  20 23 75 70 3a 6a 73 72  20 72 65 61 64 3a 74 79  | #up:jsr read:ty|
00000920  61 3a 61 6e 64 20 23 26  38 30 3a 62 65 71 20 6e  |a:and #&80:beq n|
00000930  75 6c 32 3a 6a 73 72 20  6c 6f 61 64 3a 6f 72 61  |ul2:jsr load:ora|
00000940  20 23 31 3a 6a 6d 70 20  6e 75 6c 33 0d 01 4a 13  | #1:jmp nul3..J.|
00000950  20 2e 6e 75 6c 32 3a 6a  73 72 20 6c 6f 61 64 0d  | .nul2:jsr load.|
00000960  01 4f 84 20 2e 6e 75 6c  33 3a 6a 73 72 20 73 61  |.O. .nul3:jsr sa|
00000970  76 65 3a 6c 64 79 20 23  26 33 30 3a 6c 64 78 20  |ve:ldy #&30:ldx |
00000980  23 75 70 3a 6a 73 72 20  77 72 69 74 65 3a 6a 73  |#up:jsr write:js|
00000990  72 20 6c 6f 61 64 3a 6c  64 79 20 23 26 33 38 3a  |r load:ldy #&38:|
000009a0  6c 64 78 20 23 75 70 3a  6a 73 72 20 77 72 69 74  |ldx #up:jsr writ|
000009b0  65 3a 6a 73 72 20 6c 6f  61 64 3a 64 65 78 3a 62  |e:jsr load:dex:b|
000009c0  6e 65 20 6c 6f 6f 70 32  3a 61 6e 64 20 6d 61 73  |ne loop2:and mas|
000009d0  6b 3a 62 65 71 20 62 61  63 6b 31 3a 6c 64 61 20  |k:beq back1:lda |
000009e0  23 31 20 0d 01 54 0b 20  2e 62 61 63 6b 31 0d 01  |#1 ..T. .back1..|
000009f0  59 08 20 72 74 73 0d 01  5e 1a 20 2e 45 58 3a 6c  |Y. rts..^. .EX:l|
00000a00  64 78 20 23 26 41 30 3a  6a 6d 70 20 70 6f 74 69  |dx #&A0:jmp poti|
00000a10  0d 01 63 11 20 2e 45 59  3a 6c 64 78 20 23 26 39  |..c. .EY:ldx #&9|
00000a20  30 0d 01 68 75 20 2e 70  6f 74 69 3a 73 65 69 3a  |0..hu .poti:sei:|
00000a30  6a 73 72 20 73 61 76 65  3a 6c 64 79 20 23 26 32  |jsr save:ldy #&2|
00000a40  30 3a 6c 64 78 20 23 74  69 63 3a 6a 73 72 20 77  |0:ldx #tic:jsr w|
00000a50  72 69 74 65 3a 6c 64 79  20 23 26 46 46 3a 6c 64  |rite:ldy #&FF:ld|
00000a60  78 20 23 74 69 6c 3a 6a  73 72 20 77 72 69 74 65  |x #til:jsr write|
00000a70  3a 6c 64 79 20 23 26 46  46 3a 6c 64 78 20 23 74  |:ldy #&FF:ldx #t|
00000a80  69 68 3a 6a 73 72 20 77  72 69 74 65 3a 6c 64 79  |ih:jsr write:ldy|
00000a90  20 78 73 61 76 65 0d 01  6d 3a 20 6c 64 78 20 23  | xsave..m: ldx #|
00000aa0  75 70 3a 6a 73 72 20 77  72 69 74 65 3a 6c 64 79  |up:jsr write:ldy|
00000ab0  20 23 26 33 38 3a 6c 64  78 20 23 75 70 3a 6a 73  | #&38:ldx #up:js|
00000ac0  72 20 77 72 69 74 65 3a  6a 73 72 20 6c 6f 61 64  |r write:jsr load|
00000ad0  0d 01 72 44 20 2e 74 73  74 3a 6a 73 72 20 73 61  |..rD .tst:jsr sa|
00000ae0  76 65 3a 6c 64 78 20 23  74 69 6c 3a 6a 73 72 20  |ve:ldx #til:jsr |
00000af0  72 65 61 64 3a 73 74 79  20 79 73 61 76 65 3a 6a  |read:sty ysave:j|
00000b00  2d 3d 5b 42 41 44 20 53  45 43 54 4f 52 5d 3d 2d  |-=[BAD SECTOR]=-|
*
00000e00  20 46 4f 52 53 43 48 55  4e 47 0d 02 58 07 20 f4  | FORSCHUNG..X. .|
00000e10  20 0d 02 62 0c 20 f4 20  49 4e 50 55 54 0d 02 6c  | ..b. . INPUT..l|
00000e20  20 20 f4 20 45 31 3d 52  45 41 44 20 49 4e 20 41  |  . E1=READ IN A|
00000e30  4e 47 55 4c 41 52 20 56  41 4c 55 45 53 0d 02 76  |NGULAR VALUES..v|
00000e40  13 20 f4 20 45 32 3d 53  48 49 46 54 2d 4b 45 59  |. . E2=SHIFT-KEY|
00000e50  0d 02 80 28 20 f4 20 45  33 3d 50 4c 4f 54 20 41  |...( . E3=PLOT A|
00000e60  20 50 49 58 45 4c 20 2f  20 50 52 49 4e 54 20 43  | PIXEL / PRINT C|
00000e70  48 41 52 41 43 54 45 52  0d 02 8a 62 20 f4 20 45  |HARACTER...b . E|
00000e80  34 3d 44 52 41 57 20 41  20 4c 49 4e 45 20 28 46  |4=DRAW A LINE (F|
00000e90  49 58 45 44 20 43 4f 4f  52 44 49 4e 41 54 45 53  |IXED COORDINATES|
00000ea0  29 20 2f 20 44 52 41 57  20 4f 46 46 48 41 4e 44  |) / DRAW OFFHAND|
00000eb0  20 4c 49 4e 45 20 2d 20  45 4e 44 2d 50 4f 49 4e  | LINE - END-POIN|
00000ec0  54 20 49 53 20 46 49 58  45 44 20 42 59 20 50 52  |T IS FIXED BY PR|
00000ed0  45 53 53 49 4e 47 20 45  31 2e 0d 02 94 1c 20 f4  |ESSING E1..... .|
00000ee0  20 45 35 3d 54 52 49 41  4e 47 4c 45 20 2f 20 46  | E5=TRIANGLE / F|
00000ef0  49 4c 4c 20 49 54 0d 02  9e 1d 20 f4 20 45 36 3d  |ILL IT.... . E6=|
00000f00  52 45 43 54 41 4e 47 4c  45 20 2f 20 46 49 4c 4c  |RECTANGLE / FILL|
00000f10  20 49 54 0d 02 a8 19 20  f4 20 45 37 3d 43 49 52  | IT.... . E7=CIR|
00000f20  43 4c 45 20 2f 46 49 4c  4c 20 49 54 0d 02 b2 16  |CLE /FILL IT....|
00000f30  20 f4 20 45 38 3d 43 4c  45 41 52 20 53 43 52 45  | . E8=CLEAR SCRE|
00000f40  45 4e 0d 02 bc 0e 20 f4  20 45 58 3d 42 45 54 41  |EN.... . EX=BETA|
00000f50  0d 02 c6 0f 20 f4 20 45  59 3d 41 4c 50 48 41 0d  |.... . EY=ALPHA.|
00000f60  02 d0 07 20 f4 20 0d 02  da 0d 20 f4 20 4f 55 54  |... . .... . OUT|
00000f70  50 55 54 0d 02 e4 1b 20  f4 20 4d 31 3d 47 52 41  |PUT.... . M1=GRA|
00000f80  50 48 49 43 20 49 53 20  41 43 54 49 56 45 0d 02  |PHIC IS ACTIVE..|
00000f90  ee 19 20 f4 20 4d 32 3d  52 45 41 44 59 20 46 4f  |.. . M2=READY FO|
00000fa0  52 20 49 4e 50 55 54 0d  02 f8 07 20 f4 20 0d 03  |R INPUT.... . ..|
00000fb0  02 1b 20 f4 20 46 55 4e  43 54 49 4f 4e 20 44 45  |.. . FUNCTION DE|
00000fc0  53 43 52 49 50 54 49 4f  4e 0d 03 0c 1e 20 f4 20  |SCRIPTION.... . |
00000fd0  54 52 41 4e 53 46 45 52  20 41 20 50 49 43 54 55  |TRANSFER A PICTU|
00000fe0  52 45 20 4f 4e 54 4f 0d  03 16 20 20 f4 20 54 48  |RE ONTO...  . TH|
00000ff0  45 20 47 52 41 50 48 49  43 20 53 43 52 45 45 4e  |E GRAPHIC SCREEN|
00001000  20 4f 46 20 54 48 45 0d  03 20 10 20 f4 20 43 4f  | OF THE.. . . CO|
00001010  4d 50 55 54 45 52 2e 0d  03 2a 07 20 f4 20 0d 03  |MPUTER...*. . ..|
00001020  34 15 20 f4 20 47 45 4f  4d 45 54 52 49 43 20 44  |4. . GEOMETRIC D|
00001030  41 54 41 0d 03 3e 2b 20  e9 20 57 41 3d 2d 30 2e  |ATA..>+ . WA=-0.|
00001040  36 38 30 36 38 20 3a 20  f4 20 41 4e 47 4c 45 20  |68068 : . ANGLE |
00001050  41 4c 50 48 41 20 54 4f  50 20 4c 45 46 54 0d 03  |ALPHA TOP LEFT..|
00001060  48 29 20 e9 20 57 42 3d  30 2e 39 33 37 32 34 20  |H) . WB=0.93724 |
00001070  3a 20 f4 20 41 4e 47 4c  45 20 42 45 54 41 20 54  |: . ANGLE BETA T|
00001080  4f 50 20 4c 45 46 54 0d  03 52 1e 20 e9 20 41 3d  |OP LEFT..R. . A=|
00001090  31 36 36 20 3a 20 f4 20  4c 45 4e 47 54 48 20 4f  |166 : . LENGTH O|
000010a0  46 20 41 52 4d 0d 03 5c  2e 20 e9 20 58 30 3d 31  |F ARM..\. . X0=1|
000010b0  33 37 20 3a 20 f4 20 4f  52 49 47 49 4e 20 4f 46  |37 : . ORIGIN OF|
000010c0  20 43 4f 5f 4f 52 44 49  4e 41 54 45 20 53 59 53  | CO_ORDINATE SYS|
000010d0  54 45 4d 0d 03 66 0d 20  e9 20 59 30 3d 32 34 37  |TEM..f. . Y0=247|
000010e0  0d 03 70 36 20 e9 20 53  58 3d 34 2a 31 2e 32 33  |..p6 . SX=4*1.23|
000010f0  36 34 20 3a 20 f4 20 53  43 41 4c 45 20 46 41 43  |64 : . SCALE FAC|
00001100  54 4f 52 20 58 2d 41 58  49 53 20 28 50 49 58 45  |TOR X-AXIS (PIXE|
00001110  4c 53 2f 4d 4d 29 0d 03  7a 36 20 e9 20 53 59 3d  |LS/MM)..z6 . SY=|
00001120  34 2a 31 2e 31 39 36 33  20 3a 20 f4 20 53 43 41  |4*1.1963 : . SCA|
00001130  4c 45 20 46 41 43 54 4f  52 20 59 2d 41 58 49 53  |LE FACTOR Y-AXIS|
00001140  20 28 50 49 58 45 4c 53  2f 4d 4d 29 0d 03 84 07  | (PIXELS/MM)....|
00001150  20 eb 36 0d 03 8e 17 20  f1 20 22 46 49 53 43 48  | .6.... . "FISCH|
00001160  45 52 54 45 43 48 4e 49  4b 22 0d 03 98 12 20 f1  |ERTECHNIK".... .|
00001170  20 22 43 4f 4d 50 55 54  49 4e 47 22 0d 03 a2 07  | "COMPUTING"....|
00001180  20 f1 20 0d 03 ac 16 20  f1 20 22 47 52 41 50 48  | . .... . "GRAPH|
00001190  49 43 20 50 41 4e 45 4c  22 0d 03 b6 07 20 f1 20  |IC PANEL".... . |
000011a0  0d 03 c0 05 20 0d 03 ca  19 20 f1 20 22 50 4c 45  |.... .... . "PLE|
000011b0  41 53 45 20 43 41 4c 49  42 52 41 54 45 22 0d 03  |ASE CALIBRATE"..|
000011c0  d4 06 20 f1 0d 03 de 14  20 f1 20 22 50 4f 53 54  |.. ..... . "POST|
000011d0  49 4f 4e 20 50 45 4e 22  0d 03 e8 21 20 f1 20 22  |ION PEN"...! . "|
000011e0  49 4e 20 54 48 45 20 55  50 50 45 52 20 4c 45 46  |IN THE UPPER LEF|
000011f0  54 20 43 4f 52 4e 45 52  22 0d 03 f2 1c 20 f1 20  |T CORNER".... . |
00001200  22 44 45 50 52 45 53 53  20 52 45 41 44 5f 49 4e  |"DEPRESS READ_IN|
00001210  20 4b 45 59 22 0d 03 fc  30 20 e7 20 a4 55 53 52  | KEY"...0 . .USR|
00001220  28 45 31 29 3d 30 20 8c  20 e5 20 8d 64 7c 43 3a  |(E1)=0 . . .d|C:|
00001230  f4 20 57 41 49 54 20 46  4f 52 20 41 43 43 45 50  |. WAIT FOR ACCEP|
00001240  54 20 4b 45 59 0d 04 06  12 20 e9 20 41 31 3d a4  |T KEY.... . A1=.|
00001250  55 53 52 28 45 59 29 0d  04 10 12 20 e9 20 42 31  |USR(EY).... . B1|
00001260  3d a4 55 53 52 28 45 58  29 0d 04 1a 42 20 e7 20  |=.USR(EX)...B . |
00001270  a4 55 53 52 28 45 31 29  3d 31 20 8c 20 e5 20 8d  |.USR(E1)=1 . . .|
00001280  54 5a 44 3a f4 20 57 41  49 54 20 55 4e 54 49 4c  |TZD:. WAIT UNTIL|
00001290  20 4b 45 59 20 49 53 20  4e 4f 20 4c 4f 4e 47 45  | KEY IS NO LONGE|
000012a0  52 20 44 45 50 52 45 53  53 45 44 0d 04 24 07 20  |R DEPRESSED..$. |
000012b0  f1 20 0d 04 2e 15 20 f1  20 22 50 4f 53 49 54 49  |. .... . "POSITI|
000012c0  4f 4e 20 50 45 4e 22 0d  04 38 22 20 f1 20 22 49  |ON PEN"..8" . "I|
000012d0  4e 20 54 48 45 20 4c 4f  57 45 52 20 52 49 47 48  |N THE LOWER RIGH|
000012e0  54 20 43 4f 52 4e 45 52  22 0d 04 42 1e 20 f1 20  |T CORNER"..B. . |
000012f0  22 44 45 50 52 45 53 53  20 52 45 41 44 5f 49 4e  |"DEPRESS READ_IN|
00001300  20 4b 45 59 22 20 20 0d  04 4c 33 20 e7 20 a4 55  | KEY"  ..L3 . .U|
00001310  53 52 28 45 31 29 3d 30  20 8c 20 e5 20 8d 44 4c  |SR(E1)=0 . . .DL|
00001320  44 3a f4 20 57 41 49 54  20 46 4f 52 20 52 45 41  |D:. WAIT FOR REA|
00001330  44 5f 49 4e 20 4b 45 59  20 20 0d 04 56 12 20 e9  |D_IN KEY  ..V. .|
00001340  20 41 32 3d a4 55 53 52  28 45 59 29 0d 04 60 12  | A2=.USR(EY)..`.|
00001350  20 e9 20 42 32 3d a4 55  53 52 28 45 58 29 0d 04  | . B2=.USR(EX)..|
00001360  6a 42 20 e7 20 a4 55 53  52 28 45 31 29 3d 31 20  |jB . .USR(E1)=1 |
00001370  8c 20 e5 20 8d 44 6a 44  3a f4 20 57 41 49 54 20  |. . .DjD:. WAIT |
00001380  55 4e 54 49 4c 20 4b 45  59 20 49 53 20 4e 4f 20  |UNTIL KEY IS NO |
00001390  4c 4f 4e 47 45 52 20 44  45 50 52 45 53 53 45 44  |LONGER DEPRESSED|
000013a0  0d 04 74 36 20 e9 20 41  46 3d 32 2e 31 32 30 35  |..t6 . AF=2.1205|
000013b0  38 2f 28 41 32 2d 41 31  29 3a 20 f4 20 32 2e 31  |8/(A2-A1): . 2.1|
000013c0  32 30 35 38 20 52 41 44  3d 41 4c 50 48 41 32 2d  |2058 RAD=ALPHA2-|
000013d0  41 4c 50 48 41 31 0d 04  7e 34 20 e9 20 42 46 3d  |ALPHA1..~4 . BF=|
000013e0  31 2e 30 32 31 30 32 2f  28 42 32 2d 42 31 29 3a  |1.02102/(B2-B1):|
000013f0  20 f4 20 31 2e 30 32 31  30 32 20 52 41 44 3d 42  | . 1.02102 RAD=B|
00001400  45 54 41 32 2d 42 45 54  41 31 0d 04 88 44 20 eb  |ETA2-BETA1...D .|
00001410  34 3a ef 20 35 3a f4 20  52 45 53 4f 4c 55 54 49  |4:. 5:. RESOLUTI|
00001420  4f 4e 20 33 32 30 78 32  35 36 2c 20 32 20 43 4f  |ON 320x256, 2 CO|
00001430  4c 4f 55 52 53 20 3b 20  47 52 41 50 48 49 43 20  |LOURS ; GRAPHIC |
00001440  43 55 52 53 4f 52 20 45  4e 41 42 4c 45 44 0d 04  |CURSOR ENABLED..|
00001450  92 28 20 d6 20 4d 31 2c  48 41 4c 54 25 3a f4 20  |.( . M1,HALT%:. |
00001460  27 41 43 54 49 56 45 27  2d 49 4e 44 49 43 41 54  |'ACTIVE'-INDICAT|
00001470  4f 52 20 4f 46 46 0d 04  9c 26 20 d6 20 4d 32 2c  |OR OFF...& . M2,|
00001480  47 4f 25 20 20 3a f4 20  27 52 45 41 44 59 27 2d  |GO%  :. 'READY'-|
00001490  49 4e 44 49 43 41 54 4f  52 20 4f 4e 0d 04 a6 11  |INDICATOR ON....|
000014a0  20 53 3d a4 55 53 52 28  45 32 29 2a 37 0d 04 b0  | S=.USR(E2)*7...|
000014b0  11 20 53 3d 53 2b a4 55  53 52 28 45 33 29 0d 04  |. S=S+.USR(E3)..|
000014c0  ba 13 20 53 3d 53 2b a4  55 53 52 28 45 34 29 2a  |.. S=S+.USR(E4)*|
000014d0  32 0d 04 c4 13 20 53 3d  53 2b a4 55 53 52 28 45  |2.... S=S+.USR(E|
000014e0  35 29 2a 33 0d 04 ce 14  20 53 3d 53 2b a4 55 53  |5)*3.... S=S+.US|
000014f0  52 28 45 36 29 2a 34 20  0d 04 d8 13 20 53 3d 53  |R(E6)*4 .... S=S|
00001500  2b a4 55 53 52 28 45 37  29 2a 35 0d 04 e2 13 20  |+.USR(E7)*5.... |
00001510  53 3d 53 2b a4 55 53 52  28 45 38 29 2a 36 0d 04  |S=S+.USR(E8)*6..|
00001520  ec 17 20 e7 20 53 3d 30  20 84 20 53 3d 37 20 e5  |.. . S=0 . S=7 .|
00001530  20 8d 74 66 44 0d 04 f6  28 20 d6 20 4d 32 2c 48  | .tfD...( . M2,H|
00001540  41 4c 54 25 3a 20 f4 20  27 52 45 41 44 59 27 2d  |ALT%: . 'READY'-|
00001550  49 4e 44 49 43 41 54 4f  52 20 4f 46 46 0d 05 00  |INDICATOR OFF...|
00001560  25 20 d6 20 4d 31 2c 47  4f 25 3a f4 20 27 41 43  |% . M1,GO%:. 'AC|
00001570  54 49 56 45 27 2d 49 4e  44 49 43 41 54 4f 52 20  |TIVE'-INDICATOR |
00001580  4f 4e 0d 05 0a 4b 20 ee  20 53 20 e5 20 8d 54 54  |ON...K . S . .TT|
00001590  45 2c 8d 54 72 45 2c 8d  44 6e 45 2c 8d 74 42 45  |E,.TrE,.DnE,.tBE|
000015a0  2c 8d 64 48 45 2c 8d 74  48 44 2c 8d 74 52 44 2c  |,.dHE,.tHD,.tRD,|
000015b0  8d 64 66 45 2c 8d 54 58  46 2c 8d 44 54 46 2c 8d  |.dfE,.TXF,.DTF,.|
000015c0  44 72 46 2c 8d 74 6e 46  2c 8d 74 52 44 0d 05 14  |DrF,.tnF,.tRD...|
000015d0  19 20 e4 20 8d 64 4c 46  3a f4 20 43 4f 4f 52 44  |. . .dLF:. COORD|
000015e0  49 4e 41 54 45 53 0d 05  1e 1a 20 f0 20 36 39 2c  |INATES.... . 69,|
000015f0  58 2c 59 3a f4 20 50 4c  4f 54 20 50 49 58 45 4c  |X,Y:. PLOT PIXEL|
00001600  0d 05 28 0b 20 e5 20 8d  74 52 44 0d 05 32 19 20  |..(. . .tRD..2. |
00001610  e4 20 8d 64 4c 46 3a f4  20 43 4f 4f 52 44 49 4e  |. .dLF:. COORDIN|
00001620  41 54 45 53 0d 05 3c 0b  20 e9 20 58 31 3d 58 0d  |ATES..<. . X1=X.|
00001630  05 46 1e 20 e9 20 59 31  3d 59 3a f4 20 53 41 56  |.F. . Y1=Y:. SAV|
00001640  45 20 43 4f 4f 52 44 49  4e 41 54 45 53 0d 05 50  |E COORDINATES..P|
00001650  0b 20 e4 20 8d 64 4c 46  0d 05 5a 1f 20 ec 20 58  |. . .dLF..Z. . X|
00001660  31 2c 59 31 3a df 20 58  2c 59 3a 20 f4 20 44 52  |1,Y1:. X,Y: . DR|
00001670  41 57 20 4c 49 4e 45 0d  05 64 0b 20 e5 20 8d 74  |AW LINE..d. . .t|
00001680  52 44 0d 05 6e 1b 20 e4  20 8d 54 42 48 3a f4 20  |RD..n. . .TBH:. |
00001690  44 52 41 57 20 54 52 49  41 4e 47 4c 45 0d 05 78  |DRAW TRIANGLE..x|
000016a0  0b 20 e5 20 8d 74 52 44  0d 05 82 19 20 e4 20 8d  |. . .tRD.... . .|
000016b0  64 4c 46 3a f4 20 43 4f  4f 52 44 49 4e 41 54 45  |dLF:. COORDINATE|
000016c0  53 0d 05 8c 0b 20 e9 20  58 31 3d 58 0d 05 96 0b  |S.... . X1=X....|
000016d0  20 e9 20 59 31 3d 59 0d  05 a0 19 20 e4 20 8d 64  | . Y1=Y.... . .d|
000016e0  4c 46 3a f4 20 43 4f 4f  52 44 49 4e 41 54 45 53  |LF:. COORDINATES|
000016f0  0d 05 aa 28 20 ec 20 58  31 2c 59 31 3a df 20 58  |...( . X1,Y1:. X|
00001700  2c 59 31 3a df 20 58 2c  59 3a df 20 58 31 2c 59  |,Y1:. X,Y:. X1,Y|
00001710  3a df 20 58 31 2c 59 31  0d 05 b4 10 20 f4 20 52  |:. X1,Y1.... . R|
00001720  45 43 54 41 4e 47 4c 45  0d 05 be 0b 20 e5 20 8d  |ECTANGLE.... . .|
00001730  74 52 44 0d 05 c8 09 20  4b 3d 36 35 0d 05 d2 19  |tRD.... K=65....|
00001740  20 e4 20 8d 44 7a 48 3a  f4 20 44 52 41 57 20 43  | . .DzH:. DRAW C|
00001750  49 52 43 4c 45 0d 05 dc  0b 20 e5 20 8d 74 52 44  |IRCLE.... . .tRD|
00001760  0d 05 e6 19 20 e4 20 8d  64 4c 46 3a f4 20 43 4f  |.... . .dLF:. CO|
00001770  4f 52 44 49 4e 41 54 45  53 0d 05 f0 08 20 43 3d  |ORDINATES.... C=|
00001780  a5 0d 05 fa 0c 20 43 24  3d bd 28 43 29 0d 06 04  |..... C$=.(C)...|
00001790  23 20 ec 20 58 2c 59 3a  f1 20 43 24 3a f4 20 44  |# . X,Y:. C$:. D|
000017a0  49 53 50 4c 41 59 20 43  48 41 52 41 43 54 45 52  |ISPLAY CHARACTER|
000017b0  0d 06 0e 0b 20 e5 20 8d  74 52 44 0d 06 18 1a 20  |.... . .tRD.... |
000017c0  e4 20 8d 64 4c 46 3a f4  20 53 54 41 52 54 20 53  |. .dLF:. START S|
000017d0  49 47 4e 41 4c 0d 06 22  1a 20 e7 20 a4 55 53 52  |IGNAL..". . .USR|
000017e0  28 45 31 29 3d 31 20 8c  20 e5 20 8d 74 52 44 0d  |(E1)=1 . . .tRD.|
000017f0  06 2c 1a 20 e4 20 8d 44  6c 47 3a 20 f4 20 43 4f  |.,. . .DlG: . CO|
00001800  2d 3d 5b 42 41 44 20 53  45 43 54 4f 52 5d 3d 2d  |-=[BAD SECTOR]=-|
*
00001e00  2d 3d 5b 42 41 44 20                              |-=[BAD |
00001e07