� ROM saver
 �6:� 28,0,24,39,13
 �=&3000
(% �"Filename to save ROM under",F$
2e �"Which ROM slot (0-16) [N.B. Back Plus 1 slot is ROMS 0 and 1, front slot is ROMS2 and 3]",?&74
</ code=&B00:�pass=0 � 2 � 2:P%=code:[OPTpass
F� LDA&F4:PHA:LDA#15:STA&F4:STA&FE05:LDA&74:SEI:STA&F4:STA&FE05:LDA#&30:STA&73:LDA#&80:STA&71:LDA#0:STA&70:STA&72:TAY:.loop LDA(&70),Y:STA(&72),Y:INY:BNEloop:INC&71:INC&73:LDA&71:CMP#&C0:BNEloop:PLA:SEI:STA&F4:STA&FE05:CLI:RTS:]
P �:�code
Z �"SAVE "+F$+" 3000 7000"
dT �"File successfully saved"'"Save another file (Y/N)?":A$=�:� A$="Y" � � � � 6:�
�

00000000  0d 00 0a 10 20 f4 20 52  4f 4d 20 73 61 76 65 72  |.... . ROM saver|
00000010  0d 00 14 17 20 eb 36 3a  ef 20 32 38 2c 30 2c 32  |.... .6:. 28,0,2|
00000020  34 2c 33 39 2c 31 33 0d  00 1e 0c 20 d3 3d 26 33  |4,39,13.... .=&3|
00000030  30 30 30 0d 00 28 25 20  e8 22 46 69 6c 65 6e 61  |000..(% ."Filena|
00000040  6d 65 20 74 6f 20 73 61  76 65 20 52 4f 4d 20 75  |me to save ROM u|
00000050  6e 64 65 72 22 2c 46 24  0d 00 32 65 20 e8 22 57  |nder",F$..2e ."W|
00000060  68 69 63 68 20 52 4f 4d  20 73 6c 6f 74 20 28 30  |hich ROM slot (0|
00000070  2d 31 36 29 20 5b 4e 2e  42 2e 20 42 61 63 6b 20  |-16) [N.B. Back |
00000080  50 6c 75 73 20 31 20 73  6c 6f 74 20 69 73 20 52  |Plus 1 slot is R|
00000090  4f 4d 53 20 30 20 61 6e  64 20 31 2c 20 66 72 6f  |OMS 0 and 1, fro|
000000a0  6e 74 20 73 6c 6f 74 20  69 73 20 52 4f 4d 53 32  |nt slot is ROMS2|
000000b0  20 61 6e 64 20 33 5d 22  2c 3f 26 37 34 0d 00 3c  | and 3]",?&74..<|
000000c0  2f 20 63 6f 64 65 3d 26  42 30 30 3a e3 70 61 73  |/ code=&B00:.pas|
000000d0  73 3d 30 20 b8 20 32 20  88 20 32 3a 50 25 3d 63  |s=0 . 2 . 2:P%=c|
000000e0  6f 64 65 3a 5b 4f 50 54  70 61 73 73 0d 00 46 e6  |ode:[OPTpass..F.|
000000f0  20 4c 44 41 26 46 34 3a  50 48 41 3a 4c 44 41 23  | LDA&F4:PHA:LDA#|
00000100  31 35 3a 53 54 41 26 46  34 3a 53 54 41 26 46 45  |15:STA&F4:STA&FE|
00000110  30 35 3a 4c 44 41 26 37  34 3a 53 45 49 3a 53 54  |05:LDA&74:SEI:ST|
00000120  41 26 46 34 3a 53 54 41  26 46 45 30 35 3a 4c 44  |A&F4:STA&FE05:LD|
00000130  41 23 26 33 30 3a 53 54  41 26 37 33 3a 4c 44 41  |A#&30:STA&73:LDA|
00000140  23 26 38 30 3a 53 54 41  26 37 31 3a 4c 44 41 23  |#&80:STA&71:LDA#|
00000150  30 3a 53 54 41 26 37 30  3a 53 54 41 26 37 32 3a  |0:STA&70:STA&72:|
00000160  54 41 59 3a 2e 6c 6f 6f  70 20 4c 44 41 28 26 37  |TAY:.loop LDA(&7|
00000170  30 29 2c 59 3a 53 54 41  28 26 37 32 29 2c 59 3a  |0),Y:STA(&72),Y:|
00000180  49 4e 59 3a 42 4e 45 6c  6f 6f 70 3a 49 4e 43 26  |INY:BNEloop:INC&|
00000190  37 31 3a 49 4e 43 26 37  33 3a 4c 44 41 26 37 31  |71:INC&73:LDA&71|
000001a0  3a 43 4d 50 23 26 43 30  3a 42 4e 45 6c 6f 6f 70  |:CMP#&C0:BNEloop|
000001b0  3a 50 4c 41 3a 53 45 49  3a 53 54 41 26 46 34 3a  |:PLA:SEI:STA&F4:|
000001c0  53 54 41 26 46 45 30 35  3a 43 4c 49 3a 52 54 53  |STA&FE05:CLI:RTS|
000001d0  3a 5d 0d 00 50 0c 20 ed  3a d6 63 6f 64 65 0d 00  |:]..P. .:.code..|
000001e0  5a 1d 20 ff 22 53 41 56  45 20 22 2b 46 24 2b 22  |Z. ."SAVE "+F$+"|
000001f0  20 33 30 30 30 20 37 30  30 30 22 0d 00 64 54 20  | 3000 7000"..dT |
00000200  f1 22 46 69 6c 65 20 73  75 63 63 65 73 73 66 75  |."File successfu|
00000210  6c 6c 79 20 73 61 76 65  64 22 27 22 53 61 76 65  |lly saved"'"Save|
00000220  20 61 6e 6f 74 68 65 72  20 66 69 6c 65 20 28 59  | another file (Y|
00000230  2f 4e 29 3f 22 3a 41 24  3d be 3a e7 20 41 24 3d  |/N)?":A$=.:. A$=|
00000240  22 59 22 20 8c 20 f9 20  8b 20 eb 20 36 3a e0 0d  |"Y" . . . . 6:..|
00000250  ff                                                |.|
00000251