� > !Display
� Display pictures
Z=0
(I�1:�'''"Screen pictures from"''"J.G.Harston BBC PD/Shareware Library"
2)�"15 Norris Road, SHEFFIELD, S6 4QR."
<3�'''"Press SPACE to move to the next picture"''
F �"Do you want a tune? (y/n)"
P� �(-69) � Z=1:� �Dn@
Z� �(-86) � Z=0:�Dn@
d	�DP@
n$OSGBPB=&FFD1:� ctrl% 20,name% 20
x�_DoDir(0)
��
�:
�:
���_DoDir(level%)
�� A%,X%,Y%,index%,ret%
�index%=0:�
�X%=ctrl%:Y%=X%�256:A%=8
�3ctrl%!1=name%:ctrl%!5=1:ctrl%!9=index%:� OSGBPB
�ret%=ctrl%!5:index%=ctrl%!9
�� ret%=0 �_DoFile(level%)
��ret%<>0
��
���_DoFile(level%)

�=0

� file$

)?(name%+?name%+1)=13:file$=$(name%+1)

"� �file$,1)="!" �

'� �file$,4)="MENU" �

,� �file$,1)="Z" �

61�:�"!ScrLoad "+file$:� Z=1 � �music � � �D@A 

@� � �(-99) � �>3000 

J�

T� �music

^}� 60,68,60,68,60,68,60,68,60,68,60,68,100,60,68,60,68,60,68,60,68,60,68,60,68,100,60,68,60,68,60,68,60,68,60,68,60,68,100

h�� 52,52,52,80,68,72,80,72,68,80,72,68,80,72,68,80,72,68,80,72,68,80,68,74,80,60,72,68,80,72,60,72,68,80,72,88,80,96,88,100,100,96,88,80,72,68,60,52

r�� 100,96,100,96,100,52,60,72,60,72,72,60,72,60,72,60,72,60,72,52,88,52,88,52,88,52,88,96,88,96,88,72,72,72,88,68,80,88,72,88,96,80,68,72,52,60,68,72,80,52,60,68,72,80,52,60,68,72,80

|�� 60,72,60,72,72,60,72,60,72,60,72,60,72,52,88,52,88,52,88,52,88,96,88,96,88,72,72,72,88,68,80,88,72,88,96,80,68,60,72,60,72,72,60,72,60,72,60,72,60,72,52,88,52,88,52,88,52,88,96,88,96,88,72,72,72,88,68,80,88,72,88,96,80,68,999,999

�TEMPO=3

�� P

�#� P=999 � � �TT@:� �Th@:�music 

�� �>5000 � �(-99) �

�� 1,-15,P,TEMPO

�	�tPA
�

00000000  0d 00 0a 10 f4 20 3e 20  21 44 69 73 70 6c 61 79  |..... > !Display|
00000010  0d 00 14 16 f4 20 44 69  73 70 6c 61 79 20 70 69  |..... Display pi|
00000020  63 74 75 72 65 73 0d 00  1e 07 5a 3d 30 0d 00 28  |ctures....Z=0..(|
00000030  49 eb 31 3a f1 27 27 27  22 53 63 72 65 65 6e 20  |I.1:.'''"Screen |
00000040  70 69 63 74 75 72 65 73  20 66 72 6f 6d 22 27 27  |pictures from"''|
00000050  22 4a 2e 47 2e 48 61 72  73 74 6f 6e 20 42 42 43  |"J.G.Harston BBC|
00000060  20 50 44 2f 53 68 61 72  65 77 61 72 65 20 4c 69  | PD/Shareware Li|
00000070  62 72 61 72 79 22 0d 00  32 29 f1 22 31 35 20 4e  |brary"..2)."15 N|
00000080  6f 72 72 69 73 20 52 6f  61 64 2c 20 53 48 45 46  |orris Road, SHEF|
00000090  46 49 45 4c 44 2c 20 53  36 20 34 51 52 2e 22 0d  |FIELD, S6 4QR.".|
000000a0  00 3c 33 f1 27 27 27 22  50 72 65 73 73 20 53 50  |.<3.'''"Press SP|
000000b0  41 43 45 20 74 6f 20 6d  6f 76 65 20 74 6f 20 74  |ACE to move to t|
000000c0  68 65 20 6e 65 78 74 20  70 69 63 74 75 72 65 22  |he next picture"|
000000d0  27 27 0d 00 46 20 f1 22  44 6f 20 79 6f 75 20 77  |''..F ."Do you w|
000000e0  61 6e 74 20 61 20 74 75  6e 65 3f 20 28 79 2f 6e  |ant a tune? (y/n|
000000f0  29 22 0d 00 50 19 e7 20  a6 28 2d 36 39 29 20 8c  |)"..P.. .(-69) .|
00000100  20 5a 3d 31 3a e5 20 8d  44 6e 40 0d 00 5a 18 e7  | Z=1:. .Dn@..Z..|
00000110  20 a6 28 2d 38 36 29 20  8c 20 5a 3d 30 3a e5 8d  | .(-86) . Z=0:..|
00000120  44 6e 40 0d 00 64 09 e5  8d 44 50 40 0d 00 6e 24  |Dn@..d...DP@..n$|
00000130  4f 53 47 42 50 42 3d 26  46 46 44 31 3a de 20 63  |OSGBPB=&FFD1:. c|
00000140  74 72 6c 25 20 32 30 2c  6e 61 6d 65 25 20 32 30  |trl% 20,name% 20|
00000150  0d 00 78 0e f2 5f 44 6f  44 69 72 28 30 29 0d 00  |..x.._DoDir(0)..|
00000160  82 05 e0 0d 00 8c 05 3a  0d 00 96 05 3a 0d 00 a0  |.......:....:...|
00000170  14 dd f2 5f 44 6f 44 69  72 28 6c 65 76 65 6c 25  |..._DoDir(level%|
00000180  29 0d 00 aa 1a ea 20 41  25 2c 58 25 2c 59 25 2c  |)..... A%,X%,Y%,|
00000190  69 6e 64 65 78 25 2c 72  65 74 25 0d 00 b4 0e 69  |index%,ret%....i|
000001a0  6e 64 65 78 25 3d 30 3a  f5 0d 00 be 1b 58 25 3d  |ndex%=0:.....X%=|
000001b0  63 74 72 6c 25 3a 59 25  3d 58 25 81 32 35 36 3a  |ctrl%:Y%=X%.256:|
000001c0  41 25 3d 38 0d 00 c8 33  63 74 72 6c 25 21 31 3d  |A%=8...3ctrl%!1=|
000001d0  6e 61 6d 65 25 3a 63 74  72 6c 25 21 35 3d 31 3a  |name%:ctrl%!5=1:|
000001e0  63 74 72 6c 25 21 39 3d  69 6e 64 65 78 25 3a d6  |ctrl%!9=index%:.|
000001f0  20 4f 53 47 42 50 42 0d  00 d2 1f 72 65 74 25 3d  | OSGBPB....ret%=|
00000200  63 74 72 6c 25 21 35 3a  69 6e 64 65 78 25 3d 63  |ctrl%!5:index%=c|
00000210  74 72 6c 25 21 39 0d 00  dc 1d e7 20 72 65 74 25  |trl%!9..... ret%|
00000220  3d 30 20 f2 5f 44 6f 46  69 6c 65 28 6c 65 76 65  |=0 ._DoFile(leve|
00000230  6c 25 29 0d 00 e6 0c fd  72 65 74 25 3c 3e 30 0d  |l%).....ret%<>0.|
00000240  00 f0 05 e1 0d 00 fa 15  dd f2 5f 44 6f 46 69 6c  |.........._DoFil|
00000250  65 28 6c 65 76 65 6c 25  29 0d 01 04 07 d1 3d 30  |e(level%).....=0|
00000260  0d 01 0e 0b ea 20 66 69  6c 65 24 0d 01 18 29 3f  |..... file$...)?|
00000270  28 6e 61 6d 65 25 2b 3f  6e 61 6d 65 25 2b 31 29  |(name%+?name%+1)|
00000280  3d 31 33 3a 66 69 6c 65  24 3d 24 28 6e 61 6d 65  |=13:file$=$(name|
00000290  25 2b 31 29 0d 01 22 15  e7 20 c0 66 69 6c 65 24  |%+1)..".. .file$|
000002a0  2c 31 29 3d 22 21 22 20  e1 0d 01 27 18 e7 20 c0  |,1)="!" ...'.. .|
000002b0  66 69 6c 65 24 2c 34 29  3d 22 4d 45 4e 55 22 20  |file$,4)="MENU" |
000002c0  e1 0d 01 2c 15 e7 20 c0  66 69 6c 65 24 2c 31 29  |...,.. .file$,1)|
000002d0  3d 22 5a 22 20 f9 0d 01  36 31 db 3a ff 22 21 53  |="Z" ...61.:."!S|
000002e0  63 72 4c 6f 61 64 20 22  2b 66 69 6c 65 24 3a e7  |crLoad "+file$:.|
000002f0  20 5a 3d 31 20 8c 20 f2  6d 75 73 69 63 20 8b 20  | Z=1 . .music . |
00000300  e5 20 8d 44 40 41 20 0d  01 40 18 f5 20 fd 20 a6  |. .D@A ..@.. . .|
00000310  28 2d 39 39 29 20 84 20  91 3e 33 30 30 30 20 0d  |(-99) . .>3000 .|
00000320  01 4a 05 e1 0d 01 54 0c  dd 20 f2 6d 75 73 69 63  |.J....T.. .music|
00000330  0d 01 5e 7d dc 20 36 30  2c 36 38 2c 36 30 2c 36  |..^}. 60,68,60,6|
00000340  38 2c 36 30 2c 36 38 2c  36 30 2c 36 38 2c 36 30  |8,60,68,60,68,60|
00000350  2c 36 38 2c 36 30 2c 36  38 2c 31 30 30 2c 36 30  |,68,60,68,100,60|
00000360  2c 36 38 2c 36 30 2c 36  38 2c 36 30 2c 36 38 2c  |,68,60,68,60,68,|
00000370  36 30 2c 36 38 2c 36 30  2c 36 38 2c 36 30 2c 36  |60,68,60,68,60,6|
00000380  38 2c 31 30 30 2c 36 30  2c 36 38 2c 36 30 2c 36  |8,100,60,68,60,6|
00000390  38 2c 36 30 2c 36 38 2c  36 30 2c 36 38 2c 36 30  |8,60,68,60,68,60|
000003a0  2c 36 38 2c 36 30 2c 36  38 2c 31 30 30 0d 01 68  |,68,60,68,100..h|
000003b0  97 dc 20 35 32 2c 35 32  2c 35 32 2c 38 30 2c 36  |.. 52,52,52,80,6|
000003c0  38 2c 37 32 2c 38 30 2c  37 32 2c 36 38 2c 38 30  |8,72,80,72,68,80|
000003d0  2c 37 32 2c 36 38 2c 38  30 2c 37 32 2c 36 38 2c  |,72,68,80,72,68,|
000003e0  38 30 2c 37 32 2c 36 38  2c 38 30 2c 37 32 2c 36  |80,72,68,80,72,6|
000003f0  38 2c 38 30 2c 36 38 2c  37 34 2c 38 30 2c 36 30  |8,80,68,74,80,60|
00000400  2c 37 32 2c 36 38 2c 38  30 2c 37 32 2c 36 30 2c  |,72,68,80,72,60,|
00000410  37 32 2c 36 38 2c 38 30  2c 37 32 2c 38 38 2c 38  |72,68,80,72,88,8|
00000420  30 2c 39 36 2c 38 38 2c  31 30 30 2c 31 30 30 2c  |0,96,88,100,100,|
00000430  39 36 2c 38 38 2c 38 30  2c 37 32 2c 36 38 2c 36  |96,88,80,72,68,6|
00000440  30 2c 35 32 0d 01 72 b9  dc 20 31 30 30 2c 39 36  |0,52..r.. 100,96|
00000450  2c 31 30 30 2c 39 36 2c  31 30 30 2c 35 32 2c 36  |,100,96,100,52,6|
00000460  30 2c 37 32 2c 36 30 2c  37 32 2c 37 32 2c 36 30  |0,72,60,72,72,60|
00000470  2c 37 32 2c 36 30 2c 37  32 2c 36 30 2c 37 32 2c  |,72,60,72,60,72,|
00000480  36 30 2c 37 32 2c 35 32  2c 38 38 2c 35 32 2c 38  |60,72,52,88,52,8|
00000490  38 2c 35 32 2c 38 38 2c  35 32 2c 38 38 2c 39 36  |8,52,88,52,88,96|
000004a0  2c 38 38 2c 39 36 2c 38  38 2c 37 32 2c 37 32 2c  |,88,96,88,72,72,|
000004b0  37 32 2c 38 38 2c 36 38  2c 38 30 2c 38 38 2c 37  |72,88,68,80,88,7|
000004c0  32 2c 38 38 2c 39 36 2c  38 30 2c 36 38 2c 37 32  |2,88,96,80,68,72|
000004d0  2c 35 32 2c 36 30 2c 36  38 2c 37 32 2c 38 30 2c  |,52,60,68,72,80,|
000004e0  35 32 2c 36 30 2c 36 38  2c 37 32 2c 38 30 2c 35  |52,60,68,72,80,5|
000004f0  32 2c 36 30 2c 36 38 2c  37 32 2c 38 30 0d 01 7c  |2,60,68,72,80..||
00000500  eb dc 20 36 30 2c 37 32  2c 36 30 2c 37 32 2c 37  |.. 60,72,60,72,7|
00000510  32 2c 36 30 2c 37 32 2c  36 30 2c 37 32 2c 36 30  |2,60,72,60,72,60|
00000520  2c 37 32 2c 36 30 2c 37  32 2c 35 32 2c 38 38 2c  |,72,60,72,52,88,|
00000530  35 32 2c 38 38 2c 35 32  2c 38 38 2c 35 32 2c 38  |52,88,52,88,52,8|
00000540  38 2c 39 36 2c 38 38 2c  39 36 2c 38 38 2c 37 32  |8,96,88,96,88,72|
00000550  2c 37 32 2c 37 32 2c 38  38 2c 36 38 2c 38 30 2c  |,72,72,88,68,80,|
00000560  38 38 2c 37 32 2c 38 38  2c 39 36 2c 38 30 2c 36  |88,72,88,96,80,6|
00000570  38 2c 36 30 2c 37 32 2c  36 30 2c 37 32 2c 37 32  |8,60,72,60,72,72|
00000580  2c 36 30 2c 37 32 2c 36  30 2c 37 32 2c 36 30 2c  |,60,72,60,72,60,|
00000590  37 32 2c 36 30 2c 37 32  2c 35 32 2c 38 38 2c 35  |72,60,72,52,88,5|
000005a0  32 2c 38 38 2c 35 32 2c  38 38 2c 35 32 2c 38 38  |2,88,52,88,52,88|
000005b0  2c 39 36 2c 38 38 2c 39  36 2c 38 38 2c 37 32 2c  |,96,88,96,88,72,|
000005c0  37 32 2c 37 32 2c 38 38  2c 36 38 2c 38 30 2c 38  |72,72,88,68,80,8|
000005d0  38 2c 37 32 2c 38 38 2c  39 36 2c 38 30 2c 36 38  |8,72,88,96,80,68|
000005e0  2c 39 39 39 2c 39 39 39  0d 01 86 0b 54 45 4d 50  |,999,999....TEMP|
000005f0  4f 3d 33 0d 01 90 07 f3  20 50 0d 01 9a 23 e7 20  |O=3..... P...#. |
00000600  50 3d 39 39 39 20 8c 20  f7 20 8d 54 54 40 3a f7  |P=999 . . .TT@:.|
00000610  20 8d 54 68 40 3a f2 6d  75 73 69 63 20 0d 01 a4  | .Th@:.music ...|
00000620  17 e7 20 91 3e 35 30 30  30 20 84 20 a6 28 2d 39  |.. .>5000 . .(-9|
00000630  39 29 20 e1 0d 01 ae 13  d4 20 31 2c 2d 31 35 2c  |9) ...... 1,-15,|
00000640  50 2c 54 45 4d 50 4f 0d  01 b8 09 e5 8d 74 50 41  |P,TEMPO......tPA|
00000650  0d ff                                             |..|
00000652