� Program 1
� Tape -> Disc
�6
(	� � �
2�'"Tape -> ADFS Disc ."
<�"-------------------"
F;�'"Do you want to use ADFS Discs(1) or DFS"'"Discs(2)?"
P�A$
Z�28,0,24,39,15
d�=&72B8
n	*FX16
x�"Insert source TAPE ."
�	*TAPE
�*LOAD"" 2000  
�A%=0
��
� n$=n$+�(A%?&3B2)    
� A%=A%+1  
� � A%=11 � A%?&3B2=0    
�� A$="1"� � �dR@ � � �dp@
��"Insert destination DISC"
�	*ADFS
�	�TDA
��"Insert destination DISC"
�	*DISC

V n$="SAVE "+n$+" 2000 +"+�~(?&3C6*256+(!&3C8 � &FFFF))+" "+�~(!&3C2)+" "+�~(!&3BE)


�'"*";n$'

	 � n$

"�

,	�tB@
�

00000000  0d 00 0a 0f f4 20 50 72  6f 67 72 61 6d 20 31 0d  |..... Program 1.|
00000010  00 14 12 f4 20 54 61 70  65 20 2d 3e 20 44 69 73  |.... Tape -> Dis|
00000020  63 0d 00 1e 06 eb 36 0d  00 28 09 ee 20 85 20 e0  |c.....6..(.. . .|
00000030  0d 00 32 1b f1 27 22 54  61 70 65 20 2d 3e 20 41  |..2..'"Tape -> A|
00000040  44 46 53 20 44 69 73 63  20 2e 22 0d 00 3c 1a f1  |DFS Disc ."..<..|
00000050  22 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |"---------------|
00000060  2d 2d 2d 2d 22 0d 00 46  3b f1 27 22 44 6f 20 79  |----"..F;.'"Do y|
00000070  6f 75 20 77 61 6e 74 20  74 6f 20 75 73 65 20 41  |ou want to use A|
00000080  44 46 53 20 44 69 73 63  73 28 31 29 20 6f 72 20  |DFS Discs(1) or |
00000090  44 46 53 22 27 22 44 69  73 63 73 28 32 29 3f 22  |DFS"'"Discs(2)?"|
000000a0  0d 00 50 07 e8 41 24 0d  00 5a 12 ef 32 38 2c 30  |..P..A$..Z..28,0|
000000b0  2c 32 34 2c 33 39 2c 31  35 0d 00 64 0b d3 3d 26  |,24,39,15..d..=&|
000000c0  37 32 42 38 0d 00 6e 09  2a 46 58 31 36 0d 00 78  |72B8..n.*FX16..x|
000000d0  1b f1 22 49 6e 73 65 72  74 20 73 6f 75 72 63 65  |.."Insert source|
000000e0  20 54 41 50 45 20 2e 22  0d 00 82 09 2a 54 41 50  | TAPE ."....*TAP|
000000f0  45 0d 00 8c 12 2a 4c 4f  41 44 22 22 20 32 30 30  |E....*LOAD"" 200|
00000100  30 20 20 0d 00 96 08 41  25 3d 30 0d 00 a0 05 f5  |0  ....A%=0.....|
00000110  0d 00 aa 19 20 6e 24 3d  6e 24 2b bd 28 41 25 3f  |.... n$=n$+.(A%?|
00000120  26 33 42 32 29 20 20 20  20 0d 00 b4 0e 20 41 25  |&3B2)    .... A%|
00000130  3d 41 25 2b 31 20 20 0d  00 be 1c 20 fd 20 41 25  |=A%+1  .... . A%|
00000140  3d 31 31 20 84 20 41 25  3f 26 33 42 32 3d 30 20  |=11 . A%?&3B2=0 |
00000150  20 20 20 0d 00 c8 1d e7  20 41 24 3d 22 31 22 8c  |   ..... A$="1".|
00000160  20 e5 20 8d 64 52 40 20  8b 20 e5 20 8d 64 70 40  | . .dR@ . . .dp@|
00000170  0d 00 d2 1e f1 22 49 6e  73 65 72 74 20 64 65 73  |....."Insert des|
00000180  74 69 6e 61 74 69 6f 6e  20 44 49 53 43 22 0d 00  |tination DISC"..|
00000190  dc 09 2a 41 44 46 53 0d  00 e6 09 e5 8d 54 44 41  |..*ADFS......TDA|
000001a0  0d 00 f0 1e f1 22 49 6e  73 65 72 74 20 64 65 73  |....."Insert des|
000001b0  74 69 6e 61 74 69 6f 6e  20 44 49 53 43 22 0d 00  |tination DISC"..|
000001c0  fa 09 2a 44 49 53 43 0d  01 04 56 20 6e 24 3d 22  |..*DISC...V n$="|
000001d0  53 41 56 45 20 22 2b 6e  24 2b 22 20 32 30 30 30  |SAVE "+n$+" 2000|
000001e0  20 2b 22 2b c3 7e 28 3f  26 33 43 36 2a 32 35 36  | +"+.~(?&3C6*256|
000001f0  2b 28 21 26 33 43 38 20  80 20 26 46 46 46 46 29  |+(!&3C8 . &FFFF)|
00000200  29 2b 22 20 22 2b c3 7e  28 21 26 33 43 32 29 2b  |)+" "+.~(!&3C2)+|
00000210  22 20 22 2b c3 7e 28 21  26 33 42 45 29 0d 01 0e  |" "+.~(!&3BE)...|
00000220  0d f1 27 22 2a 22 3b 6e  24 27 0d 01 18 09 20 ff  |..'"*";n$'.... .|
00000230  20 6e 24 0d 01 22 05 d8  0d 01 2c 09 e5 8d 74 42  | n$.."....,...tB|
00000240  40 0d ff                                          |@..|
00000243