#��checkfloppyisthere(di%,file$)
Ad_ok%=-1:test%=0:�:�floppy_disk(di%,file$):�(error%=0)��d_ok%
�d_ok%:�desk_top
(�
2
<��floppy_disk(di%,file$)
FYș"OS_Byte",250,0,255 � ,dido%:ș"OS_Byte",251,0,255 � ,disee%:ș"OS_Byte",112,disee%
P=ș "OS_SpriteOp",&110,sparea2%,"discbg",0,320,360,920,600
Z�
dx��:� �:ș "OS_SpriteOp",&134,sparea2%,"discbg",320,360,0:ș "OS_SpriteOp",&119,sparea2%,"discbg":error%=1:test%=1:�
n��ONERRORLOCAL SYS"OS_Byte",250,0,255 TO ,scr%:SYS"OS_Byte",113,scr%:PRINT REPORT$+" (Internal error code "+STR$ERL+")"+CHR$0:x=GET:END
x�
�  error%=0
�W  �test%=1:�diskwindow("Please place the disk","'ElfKing"+�(di%)+"' in drive 0","")
�  *ADFS
�  *MOUNT 0
�%  ș"OS_GBPB",5,,input_disk_name%
�)  len_d_n%=?input_disk_name%:name$=""
�  �dn%=1�len_d_n%
�H  �?(input_disk_name%+dn%)>31:name$=name$+�(?(input_disk_name%+dn%))
�  �
�7  ș "OS_SpriteOp",&122,sparea2%,"discbg",320,360,0
�)  �name$<>"ElfKing"+�(di%) �:error%=1
�
  test%=1
�%  �"SET ElfK$chaindir $.!ElfKing"

G  �file$<>"":ș "XOS_Find",&40,"<ElfK$chaindir>."+file$ � h%:�:h%=1

'�(h%<>0)�(error%=0):�file$<>"":�#h%

]ș "OS_SpriteOp",&122,sparea2%,"discbg",320,360,0:ș "OS_SpriteOp",&119,sparea2%,"discbg"

"8ȗ � 2:�mousefull:ȗ � mx%,my%:ș"OS_Byte",112,dido%

,� �

6�

@

J&��diskwindow(line1$,line2$,line3$)

T�box(320,360,600,240,0,4)

^&�words(320,520,-1,3,-1,600,line1$)

h&�words(320,460,-1,3,-1,600,line2$)

r=�box(800,372,108,72,0,4):�words(800,390,-1,3,-1,108,"OK")

|K�line3$<>"":�box(336,372,240,72,0,4):�words(336,390,-1,3,-1,240,line3$)

�0ȗ ȓ 320,360,600,90:ȗ � 1:ș"OS_Byte",21,9

��line3$="" �

�Q �:ȗdmx%,dmy%,dmc%:�(dmc%=4)�(dmy%>=370)�(dmy%<=440)�(dmx%>=800)�(dmx%<=910)

�
 d_ok%=-1

��

�o �:ȗdmx%,dmy%,dmc%:�(dmc%=4)�(dmy%>=370)�(dmy%<=440)�(((dmx%>=800)�(dmx%<=910))�((dmx%>=336)�(dmx%<=576)))

�0 �(dmx%>=800)�(dmx%<=910):d_ok%=-1:�:d_ok%=0

��

��

�

�'��diskwindow2(line1$,line2$,line3$)

��box(320,360,600,240,0,4)

�&�words(320,520,-1,3,-1,600,line1$)
&�words(320,460,-1,3,-1,600,line2$)
&�words(320,400,-1,3,-1,600,line3$)
=�box(800,372,108,72,0,4):�words(800,390,-1,3,-1,108,"OK")
&0ȗ ȓ 780,360,140,90:ȗ � 1:ș"OS_Byte",21,9
0P�:ȗdmx%,dmy%,dmc%:�(dmc%=4)�(dmx%>=800)�(dmx%<=910)�(dmy%>=370)�(dmy%<=440)
:�
D
N��savetidyup
X+ș "OS_SpriteOp",&119,sparea2%,"discbg"
b8ȗ � 2:�mousefull:ȗ � mx%,my%:ș"OS_Byte",112,dido%
l�
v
�
�
�
�

00000000  0d 00 0a 23 dd f2 63 68  65 63 6b 66 6c 6f 70 70  |...#..checkflopp|
00000010  79 69 73 74 68 65 72 65  28 64 69 25 2c 66 69 6c  |yisthere(di%,fil|
00000020  65 24 29 0d 00 14 41 64  5f 6f 6b 25 3d 2d 31 3a  |e$)...Ad_ok%=-1:|
00000030  74 65 73 74 25 3d 30 3a  f5 3a f2 66 6c 6f 70 70  |test%=0:.:.flopp|
00000040  79 5f 64 69 73 6b 28 64  69 25 2c 66 69 6c 65 24  |y_disk(di%,file$|
00000050  29 3a fd 28 65 72 72 6f  72 25 3d 30 29 84 ac 64  |):.(error%=0)..d|
00000060  5f 6f 6b 25 0d 00 1e 15  e7 ac 64 5f 6f 6b 25 3a  |_ok%......d_ok%:|
00000070  f2 64 65 73 6b 5f 74 6f  70 0d 00 28 05 e1 0d 00  |.desk_top..(....|
00000080  32 04 0d 00 3c 1c dd f2  66 6c 6f 70 70 79 5f 64  |2...<...floppy_d|
00000090  69 73 6b 28 64 69 25 2c  66 69 6c 65 24 29 0d 00  |isk(di%,file$)..|
000000a0  46 59 c8 99 22 4f 53 5f  42 79 74 65 22 2c 32 35  |FY.."OS_Byte",25|
000000b0  30 2c 30 2c 32 35 35 20  b8 20 2c 64 69 64 6f 25  |0,0,255 . ,dido%|
000000c0  3a c8 99 22 4f 53 5f 42  79 74 65 22 2c 32 35 31  |:.."OS_Byte",251|
000000d0  2c 30 2c 32 35 35 20 b8  20 2c 64 69 73 65 65 25  |,0,255 . ,disee%|
000000e0  3a c8 99 22 4f 53 5f 42  79 74 65 22 2c 31 31 32  |:.."OS_Byte",112|
000000f0  2c 64 69 73 65 65 25 0d  00 50 3d c8 99 20 22 4f  |,disee%..P=.. "O|
00000100  53 5f 53 70 72 69 74 65  4f 70 22 2c 26 31 31 30  |S_SpriteOp",&110|
00000110  2c 73 70 61 72 65 61 32  25 2c 22 64 69 73 63 62  |,sparea2%,"discb|
00000120  67 22 2c 30 2c 33 32 30  2c 33 36 30 2c 39 32 30  |g",0,320,360,920|
00000130  2c 36 30 30 0d 00 5a 06  ea 85 0d 00 64 78 ee 85  |,600..Z.....dx..|
00000140  ea 3a f7 20 85 3a c8 99  20 22 4f 53 5f 53 70 72  |.:. .:.. "OS_Spr|
00000150  69 74 65 4f 70 22 2c 26  31 33 34 2c 73 70 61 72  |iteOp",&134,spar|
00000160  65 61 32 25 2c 22 64 69  73 63 62 67 22 2c 33 32  |ea2%,"discbg",32|
00000170  30 2c 33 36 30 2c 30 3a  c8 99 20 22 4f 53 5f 53  |0,360,0:.. "OS_S|
00000180  70 72 69 74 65 4f 70 22  2c 26 31 31 39 2c 73 70  |priteOp",&119,sp|
00000190  61 72 65 61 32 25 2c 22  64 69 73 63 62 67 22 3a  |area2%,"discbg":|
000001a0  65 72 72 6f 72 25 3d 31  3a 74 65 73 74 25 3d 31  |error%=1:test%=1|
000001b0  3a e1 0d 00 6e 8a f4 4f  4e 45 52 52 4f 52 4c 4f  |:...n..ONERRORLO|
000001c0  43 41 4c 20 53 59 53 22  4f 53 5f 42 79 74 65 22  |CAL SYS"OS_Byte"|
000001d0  2c 32 35 30 2c 30 2c 32  35 35 20 54 4f 20 2c 73  |,250,0,255 TO ,s|
000001e0  63 72 25 3a 53 59 53 22  4f 53 5f 42 79 74 65 22  |cr%:SYS"OS_Byte"|
000001f0  2c 31 31 33 2c 73 63 72  25 3a 50 52 49 4e 54 20  |,113,scr%:PRINT |
00000200  52 45 50 4f 52 54 24 2b  22 20 28 49 6e 74 65 72  |REPORT$+" (Inter|
00000210  6e 61 6c 20 65 72 72 6f  72 20 63 6f 64 65 20 22  |nal error code "|
00000220  2b 53 54 52 24 45 52 4c  2b 22 29 22 2b 43 48 52  |+STR$ERL+")"+CHR|
00000230  24 30 3a 78 3d 47 45 54  3a 45 4e 44 0d 00 78 05  |$0:x=GET:END..x.|
00000240  f5 0d 00 82 0e 20 20 65  72 72 6f 72 25 3d 30 0d  |.....  error%=0.|
00000250  00 8c 57 20 20 e7 74 65  73 74 25 3d 31 3a f2 64  |..W  .test%=1:.d|
00000260  69 73 6b 77 69 6e 64 6f  77 28 22 50 6c 65 61 73  |iskwindow("Pleas|
00000270  65 20 70 6c 61 63 65 20  74 68 65 20 64 69 73 6b  |e place the disk|
00000280  22 2c 22 27 45 6c 66 4b  69 6e 67 22 2b c3 28 64  |","'ElfKing"+.(d|
00000290  69 25 29 2b 22 27 20 69  6e 20 64 72 69 76 65 20  |i%)+"' in drive |
000002a0  30 22 2c 22 22 29 0d 00  96 0b 20 20 2a 41 44 46  |0","")....  *ADF|
000002b0  53 0d 00 a0 0e 20 20 2a  4d 4f 55 4e 54 20 30 0d  |S....  *MOUNT 0.|
000002c0  00 aa 25 20 20 c8 99 22  4f 53 5f 47 42 50 42 22  |..%  .."OS_GBPB"|
000002d0  2c 35 2c 2c 69 6e 70 75  74 5f 64 69 73 6b 5f 6e  |,5,,input_disk_n|
000002e0  61 6d 65 25 0d 00 b4 29  20 20 6c 65 6e 5f 64 5f  |ame%...)  len_d_|
000002f0  6e 25 3d 3f 69 6e 70 75  74 5f 64 69 73 6b 5f 6e  |n%=?input_disk_n|
00000300  61 6d 65 25 3a 6e 61 6d  65 24 3d 22 22 0d 00 be  |ame%:name$=""...|
00000310  15 20 20 e3 64 6e 25 3d  31 b8 6c 65 6e 5f 64 5f  |.  .dn%=1.len_d_|
00000320  6e 25 0d 00 c8 48 20 20  e7 3f 28 69 6e 70 75 74  |n%...H  .?(input|
00000330  5f 64 69 73 6b 5f 6e 61  6d 65 25 2b 64 6e 25 29  |_disk_name%+dn%)|
00000340  3e 33 31 3a 6e 61 6d 65  24 3d 6e 61 6d 65 24 2b  |>31:name$=name$+|
00000350  bd 28 3f 28 69 6e 70 75  74 5f 64 69 73 6b 5f 6e  |.(?(input_disk_n|
00000360  61 6d 65 25 2b 64 6e 25  29 29 0d 00 d2 07 20 20  |ame%+dn%))....  |
00000370  ed 0d 00 dc 37 20 20 c8  99 20 22 4f 53 5f 53 70  |....7  .. "OS_Sp|
00000380  72 69 74 65 4f 70 22 2c  26 31 32 32 2c 73 70 61  |riteOp",&122,spa|
00000390  72 65 61 32 25 2c 22 64  69 73 63 62 67 22 2c 33  |rea2%,"discbg",3|
000003a0  32 30 2c 33 36 30 2c 30  0d 00 e6 29 20 20 e7 6e  |20,360,0...)  .n|
000003b0  61 6d 65 24 3c 3e 22 45  6c 66 4b 69 6e 67 22 2b  |ame$<>"ElfKing"+|
000003c0  c3 28 64 69 25 29 20 8c  3a 65 72 72 6f 72 25 3d  |.(di%) .:error%=|
000003d0  31 0d 00 f0 0d 20 20 74  65 73 74 25 3d 31 0d 00  |1....  test%=1..|
000003e0  fa 25 20 20 ff 22 53 45  54 20 45 6c 66 4b 24 63  |.%  ."SET ElfK$c|
000003f0  68 61 69 6e 64 69 72 20  24 2e 21 45 6c 66 4b 69  |haindir $.!ElfKi|
00000400  6e 67 22 0d 01 04 47 20  20 e7 66 69 6c 65 24 3c  |ng"...G  .file$<|
00000410  3e 22 22 3a c8 99 20 22  58 4f 53 5f 46 69 6e 64  |>"":.. "XOS_Find|
00000420  22 2c 26 34 30 2c 22 3c  45 6c 66 4b 24 63 68 61  |",&40,"<ElfK$cha|
00000430  69 6e 64 69 72 3e 2e 22  2b 66 69 6c 65 24 20 b8  |indir>."+file$ .|
00000440  20 68 25 3a 8b 3a 68 25  3d 31 0d 01 0e 27 fd 28  | h%:.:h%=1...'.(|
00000450  68 25 3c 3e 30 29 80 28  65 72 72 6f 72 25 3d 30  |h%<>0).(error%=0|
00000460  29 3a e7 66 69 6c 65 24  3c 3e 22 22 3a d9 23 68  |):.file$<>"":.#h|
00000470  25 0d 01 18 5d c8 99 20  22 4f 53 5f 53 70 72 69  |%...].. "OS_Spri|
00000480  74 65 4f 70 22 2c 26 31  32 32 2c 73 70 61 72 65  |teOp",&122,spare|
00000490  61 32 25 2c 22 64 69 73  63 62 67 22 2c 33 32 30  |a2%,"discbg",320|
000004a0  2c 33 36 30 2c 30 3a c8  99 20 22 4f 53 5f 53 70  |,360,0:.. "OS_Sp|
000004b0  72 69 74 65 4f 70 22 2c  26 31 31 39 2c 73 70 61  |riteOp",&119,spa|
000004c0  72 65 61 32 25 2c 22 64  69 73 63 62 67 22 0d 01  |rea2%,"discbg"..|
000004d0  22 38 c8 97 20 ee 20 32  3a f2 6d 6f 75 73 65 66  |"8.. . 2:.mousef|
000004e0  75 6c 6c 3a c8 97 20 b8  20 6d 78 25 2c 6d 79 25  |ull:.. . mx%,my%|
000004f0  3a c8 99 22 4f 53 5f 42  79 74 65 22 2c 31 31 32  |:.."OS_Byte",112|
00000500  2c 64 69 64 6f 25 0d 01  2c 07 f7 20 85 0d 01 36  |,dido%..,.. ...6|
00000510  05 e1 0d 01 40 04 0d 01  4a 26 dd f2 64 69 73 6b  |....@...J&..disk|
00000520  77 69 6e 64 6f 77 28 6c  69 6e 65 31 24 2c 6c 69  |window(line1$,li|
00000530  6e 65 32 24 2c 6c 69 6e  65 33 24 29 0d 01 54 1d  |ne2$,line3$)..T.|
00000540  f2 62 6f 78 28 33 32 30  2c 33 36 30 2c 36 30 30  |.box(320,360,600|
00000550  2c 32 34 30 2c 30 2c 34  29 0d 01 5e 26 f2 77 6f  |,240,0,4)..^&.wo|
00000560  72 64 73 28 33 32 30 2c  35 32 30 2c 2d 31 2c 33  |rds(320,520,-1,3|
00000570  2c 2d 31 2c 36 30 30 2c  6c 69 6e 65 31 24 29 0d  |,-1,600,line1$).|
00000580  01 68 26 f2 77 6f 72 64  73 28 33 32 30 2c 34 36  |.h&.words(320,46|
00000590  30 2c 2d 31 2c 33 2c 2d  31 2c 36 30 30 2c 6c 69  |0,-1,3,-1,600,li|
000005a0  6e 65 32 24 29 0d 01 72  3d f2 62 6f 78 28 38 30  |ne2$)..r=.box(80|
000005b0  30 2c 33 37 32 2c 31 30  38 2c 37 32 2c 30 2c 34  |0,372,108,72,0,4|
000005c0  29 3a f2 77 6f 72 64 73  28 38 30 30 2c 33 39 30  |):.words(800,390|
000005d0  2c 2d 31 2c 33 2c 2d 31  2c 31 30 38 2c 22 4f 4b  |,-1,3,-1,108,"OK|
000005e0  22 29 0d 01 7c 4b e7 6c  69 6e 65 33 24 3c 3e 22  |")..|K.line3$<>"|
000005f0  22 3a f2 62 6f 78 28 33  33 36 2c 33 37 32 2c 32  |":.box(336,372,2|
00000600  34 30 2c 37 32 2c 30 2c  34 29 3a f2 77 6f 72 64  |40,72,0,4):.word|
00000610  73 28 33 33 36 2c 33 39  30 2c 2d 31 2c 33 2c 2d  |s(336,390,-1,3,-|
00000620  31 2c 32 34 30 2c 6c 69  6e 65 33 24 29 0d 01 86  |1,240,line3$)...|
00000630  30 c8 97 20 c8 93 20 33  32 30 2c 33 36 30 2c 36  |0.. .. 320,360,6|
00000640  30 30 2c 39 30 3a c8 97  20 ee 20 31 3a c8 99 22  |00,90:.. . 1:.."|
00000650  4f 53 5f 42 79 74 65 22  2c 32 31 2c 39 0d 01 90  |OS_Byte",21,9...|
00000660  10 e7 6c 69 6e 65 33 24  3d 22 22 20 8c 0d 01 9a  |..line3$="" ....|
00000670  51 20 f5 3a c8 97 64 6d  78 25 2c 64 6d 79 25 2c  |Q .:..dmx%,dmy%,|
00000680  64 6d 63 25 3a fd 28 64  6d 63 25 3d 34 29 80 28  |dmc%:.(dmc%=4).(|
00000690  64 6d 79 25 3e 3d 33 37  30 29 80 28 64 6d 79 25  |dmy%>=370).(dmy%|
000006a0  3c 3d 34 34 30 29 80 28  64 6d 78 25 3e 3d 38 30  |<=440).(dmx%>=80|
000006b0  30 29 80 28 64 6d 78 25  3c 3d 39 31 30 29 0d 01  |0).(dmx%<=910)..|
000006c0  a4 0d 20 64 5f 6f 6b 25  3d 2d 31 0d 01 ae 05 cc  |.. d_ok%=-1.....|
000006d0  0d 01 b8 6f 20 f5 3a c8  97 64 6d 78 25 2c 64 6d  |...o .:..dmx%,dm|
000006e0  79 25 2c 64 6d 63 25 3a  fd 28 64 6d 63 25 3d 34  |y%,dmc%:.(dmc%=4|
000006f0  29 80 28 64 6d 79 25 3e  3d 33 37 30 29 80 28 64  |).(dmy%>=370).(d|
00000700  6d 79 25 3c 3d 34 34 30  29 80 28 28 28 64 6d 78  |my%<=440).(((dmx|
00000710  25 3e 3d 38 30 30 29 80  28 64 6d 78 25 3c 3d 39  |%>=800).(dmx%<=9|
00000720  31 30 29 29 84 28 28 64  6d 78 25 3e 3d 33 33 36  |10)).((dmx%>=336|
00000730  29 80 28 64 6d 78 25 3c  3d 35 37 36 29 29 29 0d  |).(dmx%<=576))).|
00000740  01 c2 30 20 e7 28 64 6d  78 25 3e 3d 38 30 30 29  |..0 .(dmx%>=800)|
00000750  80 28 64 6d 78 25 3c 3d  39 31 30 29 3a 64 5f 6f  |.(dmx%<=910):d_o|
00000760  6b 25 3d 2d 31 3a 8b 3a  64 5f 6f 6b 25 3d 30 0d  |k%=-1:.:d_ok%=0.|
00000770  01 cc 05 cd 0d 01 d6 05  e1 0d 01 e0 04 0d 01 ea  |................|
00000780  27 dd f2 64 69 73 6b 77  69 6e 64 6f 77 32 28 6c  |'..diskwindow2(l|
00000790  69 6e 65 31 24 2c 6c 69  6e 65 32 24 2c 6c 69 6e  |ine1$,line2$,lin|
000007a0  65 33 24 29 0d 01 f4 1d  f2 62 6f 78 28 33 32 30  |e3$).....box(320|
000007b0  2c 33 36 30 2c 36 30 30  2c 32 34 30 2c 30 2c 34  |,360,600,240,0,4|
000007c0  29 0d 01 fe 26 f2 77 6f  72 64 73 28 33 32 30 2c  |)...&.words(320,|
000007d0  35 32 30 2c 2d 31 2c 33  2c 2d 31 2c 36 30 30 2c  |520,-1,3,-1,600,|
000007e0  6c 69 6e 65 31 24 29 0d  02 08 26 f2 77 6f 72 64  |line1$)...&.word|
000007f0  73 28 33 32 30 2c 34 36  30 2c 2d 31 2c 33 2c 2d  |s(320,460,-1,3,-|
00000800  31 2c 36 30 30 2c 6c 69  6e 65 32 24 29 0d 02 12  |1,600,line2$)...|
00000810  26 f2 77 6f 72 64 73 28  33 32 30 2c 34 30 30 2c  |&.words(320,400,|
00000820  2d 31 2c 33 2c 2d 31 2c  36 30 30 2c 6c 69 6e 65  |-1,3,-1,600,line|
00000830  33 24 29 0d 02 1c 3d f2  62 6f 78 28 38 30 30 2c  |3$)...=.box(800,|
00000840  33 37 32 2c 31 30 38 2c  37 32 2c 30 2c 34 29 3a  |372,108,72,0,4):|
00000850  f2 77 6f 72 64 73 28 38  30 30 2c 33 39 30 2c 2d  |.words(800,390,-|
00000860  31 2c 33 2c 2d 31 2c 31  30 38 2c 22 4f 4b 22 29  |1,3,-1,108,"OK")|
00000870  0d 02 26 30 c8 97 20 c8  93 20 37 38 30 2c 33 36  |..&0.. .. 780,36|
00000880  30 2c 31 34 30 2c 39 30  3a c8 97 20 ee 20 31 3a  |0,140,90:.. . 1:|
00000890  c8 99 22 4f 53 5f 42 79  74 65 22 2c 32 31 2c 39  |.."OS_Byte",21,9|
000008a0  0d 02 30 50 f5 3a c8 97  64 6d 78 25 2c 64 6d 79  |..0P.:..dmx%,dmy|
000008b0  25 2c 64 6d 63 25 3a fd  28 64 6d 63 25 3d 34 29  |%,dmc%:.(dmc%=4)|
000008c0  80 28 64 6d 78 25 3e 3d  38 30 30 29 80 28 64 6d  |.(dmx%>=800).(dm|
000008d0  78 25 3c 3d 39 31 30 29  80 28 64 6d 79 25 3e 3d  |x%<=910).(dmy%>=|
000008e0  33 37 30 29 80 28 64 6d  79 25 3c 3d 34 34 30 29  |370).(dmy%<=440)|
000008f0  0d 02 3a 05 e1 0d 02 44  04 0d 02 4e 10 dd f2 73  |..:....D...N...s|
00000900  61 76 65 74 69 64 79 75  70 0d 02 58 2b c8 99 20  |avetidyup..X+.. |
00000910  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 26 31  |"OS_SpriteOp",&1|
00000920  31 39 2c 73 70 61 72 65  61 32 25 2c 22 64 69 73  |19,sparea2%,"dis|
00000930  63 62 67 22 0d 02 62 38  c8 97 20 ee 20 32 3a f2  |cbg"..b8.. . 2:.|
00000940  6d 6f 75 73 65 66 75 6c  6c 3a c8 97 20 b8 20 6d  |mousefull:.. . m|
00000950  78 25 2c 6d 79 25 3a c8  99 22 4f 53 5f 42 79 74  |x%,my%:.."OS_Byt|
00000960  65 22 2c 31 31 32 2c 64  69 64 6f 25 0d 02 6c 05  |e",112,dido%..l.|
00000970  e1 0d 02 76 04 0d 02 80  04 0d 02 8a 04 0d 02 94  |...v............|
00000980  04 0d ff                                          |...|
00000983