�>B.PrCtrl
� by J.R. Williams
� (c) The Micro User
(�7:*KEY0SA.$(PAGE+6)|M
2osbyte=&FFF4:oswrch=&FFEE
<
� � name$
F� name$="***" �
PP%=&C00
ZDA #3     \ Do FX3,10
d LDX #10
n  JSR osbyte \ old value in X
x]
�
� � C%
�!� C%>-1 [LDA #C%:JSR oswrch:]
�� C%=-1
�![LDA #3     \ Restore old FX3
� JSR osbyte
�
 RTS:]
�X%=&700:Y%=X%�256
�"$X%="SAVE "+name$+" C00 "+�~P%
��&FFF7:� �
�#� Data statements here in form:
�� name,code,code,..,-1
�� DRAFT,27,64,-1
�� DSTRIKE,27,71,-1

� SSTRIKE,27,72,-1

� ITALOFF,27,53,-1

� ITALON,27,52,-1

"� BOLDON,27,69,-1

,� BOLDOFF,27,70,-1

6� ELITE,27,77,-1

@� PICA,27,80,-1

J� BIGON,27,87,1,-1

T� BIGOFF,27,87,0,-1

^� CONDON,15,-1

h� CONDOFF,18,-1

r� SUPON,27,83,0,-1

|� SUBON,27,83,1,-1

�� SSCROFF,27,84,-1

�� RESET,27,64,-1

�'� TINY,27,72,27,83,0,27,51,18,15,-1

�	� ***
�

00000000  0d 00 0a 0e f4 3e 42 2e  50 72 43 74 72 6c 0d 00  |.....>B.PrCtrl..|
00000010  14 16 f4 20 62 79 20 4a  2e 52 2e 20 57 69 6c 6c  |... by J.R. Will|
00000020  69 61 6d 73 0d 00 1e 18  f4 20 28 63 29 20 54 68  |iams..... (c) Th|
00000030  65 20 4d 69 63 72 6f 20  55 73 65 72 0d 00 28 1a  |e Micro User..(.|
00000040  eb 37 3a 2a 4b 45 59 30  53 41 2e 24 28 50 41 47  |.7:*KEY0SA.$(PAG|
00000050  45 2b 36 29 7c 4d 0d 00  32 1d 6f 73 62 79 74 65  |E+6)|M..2.osbyte|
00000060  3d 26 46 46 46 34 3a 6f  73 77 72 63 68 3d 26 46  |=&FFF4:oswrch=&F|
00000070  46 45 45 0d 00 3c 0d f5  20 f3 20 6e 61 6d 65 24  |FEE..<.. . name$|
00000080  0d 00 46 13 e7 20 6e 61  6d 65 24 3d 22 2a 2a 2a  |..F.. name$="***|
00000090  22 20 e0 0d 00 50 0b 50  25 3d 26 43 30 30 0d 00  |" ...P.P%=&C00..|
000000a0  5a 1b 5b 4c 44 41 20 23  33 20 20 20 20 20 5c 20  |Z.[LDA #3     \ |
000000b0  44 6f 20 46 58 33 2c 31  30 0d 00 64 0c 20 4c 44  |Do FX3,10..d. LD|
000000c0  58 20 23 31 30 0d 00 6e  20 20 4a 53 52 20 6f 73  |X #10..n  JSR os|
000000d0  62 79 74 65 20 5c 20 6f  6c 64 20 76 61 6c 75 65  |byte \ old value|
000000e0  20 69 6e 20 58 0d 00 78  05 5d 0d 00 82 0a f5 20  | in X..x.]..... |
000000f0  f3 20 43 25 0d 00 8c 21  e7 20 43 25 3e 2d 31 20  |. C%...!. C%>-1 |
00000100  5b 4c 44 41 20 23 43 25  3a 4a 53 52 20 6f 73 77  |[LDA #C%:JSR osw|
00000110  72 63 68 3a 5d 0d 00 96  0b fd 20 43 25 3d 2d 31  |rch:]..... C%=-1|
00000120  0d 00 a0 21 5b 4c 44 41  20 23 33 20 20 20 20 20  |...![LDA #3     |
00000130  5c 20 52 65 73 74 6f 72  65 20 6f 6c 64 20 46 58  |\ Restore old FX|
00000140  33 0d 00 aa 0f 20 4a 53  52 20 6f 73 62 79 74 65  |3.... JSR osbyte|
00000150  0d 00 b4 0a 20 52 54 53  3a 5d 0d 00 be 15 58 25  |.... RTS:]....X%|
00000160  3d 26 37 30 30 3a 59 25  3d 58 25 81 32 35 36 0d  |=&700:Y%=X%.256.|
00000170  00 c8 22 24 58 25 3d 22  53 41 56 45 20 22 2b 6e  |.."$X%="SAVE "+n|
00000180  61 6d 65 24 2b 22 20 43  30 30 20 22 2b c3 7e 50  |ame$+" C00 "+.~P|
00000190  25 0d 00 d2 0e d6 26 46  46 46 37 3a fd 20 a3 0d  |%.....&FFF7:. ..|
000001a0  00 dc 23 f4 20 44 61 74  61 20 73 74 61 74 65 6d  |..#. Data statem|
000001b0  65 6e 74 73 20 68 65 72  65 20 69 6e 20 66 6f 72  |ents here in for|
000001c0  6d 3a 0d 00 e6 1a f4 20  6e 61 6d 65 2c 63 6f 64  |m:..... name,cod|
000001d0  65 2c 63 6f 64 65 2c 2e  2e 2c 2d 31 0d 00 f0 14  |e,code,..,-1....|
000001e0  dc 20 44 52 41 46 54 2c  32 37 2c 36 34 2c 2d 31  |. DRAFT,27,64,-1|
000001f0  0d 00 fa 16 dc 20 44 53  54 52 49 4b 45 2c 32 37  |..... DSTRIKE,27|
00000200  2c 37 31 2c 2d 31 0d 01  04 16 dc 20 53 53 54 52  |,71,-1..... SSTR|
00000210  49 4b 45 2c 32 37 2c 37  32 2c 2d 31 0d 01 0e 16  |IKE,27,72,-1....|
00000220  dc 20 49 54 41 4c 4f 46  46 2c 32 37 2c 35 33 2c  |. ITALOFF,27,53,|
00000230  2d 31 0d 01 18 15 dc 20  49 54 41 4c 4f 4e 2c 32  |-1..... ITALON,2|
00000240  37 2c 35 32 2c 2d 31 0d  01 22 15 dc 20 42 4f 4c  |7,52,-1..".. BOL|
00000250  44 4f 4e 2c 32 37 2c 36  39 2c 2d 31 0d 01 2c 16  |DON,27,69,-1..,.|
00000260  dc 20 42 4f 4c 44 4f 46  46 2c 32 37 2c 37 30 2c  |. BOLDOFF,27,70,|
00000270  2d 31 0d 01 36 14 dc 20  45 4c 49 54 45 2c 32 37  |-1..6.. ELITE,27|
00000280  2c 37 37 2c 2d 31 0d 01  40 13 dc 20 50 49 43 41  |,77,-1..@.. PICA|
00000290  2c 32 37 2c 38 30 2c 2d  31 0d 01 4a 16 dc 20 42  |,27,80,-1..J.. B|
000002a0  49 47 4f 4e 2c 32 37 2c  38 37 2c 31 2c 2d 31 0d  |IGON,27,87,1,-1.|
000002b0  01 54 17 dc 20 42 49 47  4f 46 46 2c 32 37 2c 38  |.T.. BIGOFF,27,8|
000002c0  37 2c 30 2c 2d 31 0d 01  5e 12 dc 20 43 4f 4e 44  |7,0,-1..^.. COND|
000002d0  4f 4e 2c 31 35 2c 2d 31  0d 01 68 13 dc 20 43 4f  |ON,15,-1..h.. CO|
000002e0  4e 44 4f 46 46 2c 31 38  2c 2d 31 0d 01 72 16 dc  |NDOFF,18,-1..r..|
000002f0  20 53 55 50 4f 4e 2c 32  37 2c 38 33 2c 30 2c 2d  | SUPON,27,83,0,-|
00000300  31 0d 01 7c 16 dc 20 53  55 42 4f 4e 2c 32 37 2c  |1..|.. SUBON,27,|
00000310  38 33 2c 31 2c 2d 31 0d  01 86 16 dc 20 53 53 43  |83,1,-1..... SSC|
00000320  52 4f 46 46 2c 32 37 2c  38 34 2c 2d 31 0d 01 90  |ROFF,27,84,-1...|
00000330  14 dc 20 52 45 53 45 54  2c 32 37 2c 36 34 2c 2d  |.. RESET,27,64,-|
00000340  31 0d 01 9a 27 dc 20 54  49 4e 59 2c 32 37 2c 37  |1...'. TINY,27,7|
00000350  32 2c 32 37 2c 38 33 2c  30 2c 32 37 2c 35 31 2c  |2,27,83,0,27,51,|
00000360  31 38 2c 31 35 2c 2d 31  0d 01 a4 09 dc 20 2a 2a  |18,15,-1..... **|
00000370  2a 0d ff                                          |*..|
00000373