Home » Archimedes archive » Acorn User » AU 1998-08.adf » Regulars » StarInfo/Mellor/!BBC1/!RunImage
StarInfo/Mellor/!BBC1/!RunImage
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Acorn User » AU 1998-08.adf » Regulars |
| Filename: | StarInfo/Mellor/!BBC1/!RunImage |
| Read OK: | ✔ |
| File size: | 1B64 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
1REM>Output
2REMProduced by BasCompress v1.69 (04 Aug 1995)
3REM BBC1 Balloon
4REM By Philip Mellor
5REM ... "Bother", said Pooh, as his LAN manager went crackers
6SYS&400C0,200,&4B534154,"BBC Balloon"TO,Zy%:ONERRORSYS&406C2:VDU4,26:REPORT:PRINT" - ";ERL:END
7PROCU:PROC_:PROCJ:PROCV:U%=FALSE:M$=STRING$(31," "):U=RND(-TIME):R%=FALSE:g%=TRUE:I%=TRUE:b%=TRUE:O%=TRUE:Q%=0:z%=0:DIMA$(4),A%(4):A$()="Fastest","Fast","Medium","Slow","Slowest":A%()=0,10,20,30,40:S%=0:X%=256:M%=4:L%=4:ONERRORIFFNFPROCW:END
8REPEAT:PROCq:UNTILa%:PROCW:END
9DEFPROCV:J=OPENIN("<Balloon$Dir>.Messages"):B=EXT#J:DIMl%B+1024:S=1:FORQ=1TOB:l%!Q=(BGET#J)EOR255:NEXT:CLOSE#J:M=1:PROCZ(C%,4,"Philip Mellor"):ENDPROC
10DEFPROCU:SYS&400EATO,o%:SYS46,256+40,o%,"!bbc1"TO,,,K%,Ly%,r%,Sy%:IFSy%=12THENP$=""ELSEP$="22"
11SYS16TOF$:IFINSTR(F$,"-load ")>0THEN
12B$=RIGHT$(F$,LEN(F$)-INSTR(F$,"-load ")-5)
13ELSE:B$="<Balloon$Dir>.Balloons.BBCone"
14ENDIF:C$=B$+P$:m%=OPENIN(C$):d%=1024*16:CLOSE#m%:DIMW%d%:W%!0=d%:SYS46,256+9,W%:SYS46,256+10,W%,C$:SYS46,280,W%,"mask"TO,,r%:SYS46,280,W%,"canvas"TO,,t%:SYS46,280,W%,"balloon"TO,,p%:N=0:C=0:F=0:W=0:Xy%=0:My%=8:DIMV%20:ENDPROC
15DEFPROCQ:PROCB(t%):RECTANGLE284,0,4,288TO0,0:RECTANGLE0,0,288,288TO2,0:PROCP:PROCB(r%):FORP=0TO120STEP4:VDU24,0;P+24;116;P+28;:y%=SQR(3600-(60-P)^2):PROCO(t%,60-(y%),0,y%*2,1,120,1):NEXT:VDU26:PROCX(p%,0,0,My%):PROCP:ENDPROC
16DEFPROCW:SYS&400DD,Zy%,&4B534154:ENDPROC
17DEFPROCC:IFM=1THEN
18M$=RIGHT$(M$,30)+CHR$(l%!S):PROCZ(C%,4,M$):S+=1:IFS>BTHEN
19U%=FALSE:PROCZ(C%,4,"Philip Mellor")
20ENDIF:PROCM(C%,4)
21ENDIF:M+=1:IFM>4M=1ELSEWAIT
22ENDPROC
23DEFPROCq:IFU%=TRUEPROCC
24SYS&400C7,,A%TOj%:CASEj%OF
25WHEN0:IFU%=TRUETHEN
26PROCC
27ELSE:z%+=1:IFz%>A%(Q%)z%=0:PROCT:O%=TRUE
28ENDIF
29WHEN2:IF(A%!0)=D%THEN
30O%=FALSE:IFA%!8<160A%!8=160:A%!16=160+144
31IFA%!16>Z A%!16=Z:A%!8=Z-144
32IFI%=TRUE:IFA%!4<0A%!4=0:A%!12=160+120:S%=0
33IFI%=TRUE:IFA%!12>A A%!12=A:A%!4=A-120:S%=A-120
34ENDIF:CASE(A%!0)OF
35WHENq%:PROCS
36WHENP%:SYS&400C5,,A%:PROCS
37OTHERWISESYS&400C5,,A%
38ENDCASE
39WHEN3:SYS&400C6,,A%
40WHEN4:IF(A%!0)=P%ANDR%=FALSETHENSYS&400C6,,A%:PROCN(q%)
41WHEN6:PROCH
42WHEN9:PROCY
43WHEN17,18,19:PROCD
44ENDCASE:ENDPROC
45DEFPROCT:IFb%=TRUETHENPROCQ
46!A%=D%:SYS&400CB,,A%:S%=A%!4:X%=A%!8:IFO%=TRUETHENS%+=M%:X%+=L%
47IFX%<160THENL%=ABSL%
48IFX%>Z-144THENL%=-(ABSL%)
49IFI%=TRUETHEN
50IFS%<0THENM%=ABS(M%)
51IFM%>0ANDS%>A-120THENM%=-ABS(M%)
52ELSE:IFM%<0ANDS%<-120THENS%=A+400+RND(200):X%=RND(Z-144-192)+192:M%=-ABS(M%)
53IFM%>0ANDS%>ATHENM%=ABS(M%):S%=-400-RND(200):X%=RND(Z-144-192)+192
54ENDIF:IFg%=TRUETHEN
55IFRND(500)=1THEN
56PROCA(FNZ,FNZ)
57ENDIF
58ENDIF:!A%=D%:A%!4=S%:A%!8=X%:A%!12=S%+120:A%!16=X%+144:A%!20=0:A%!24=0:A%!28=-2:SYS&400C5,,A%:PROCM(D%,0):ENDPROC
59DEFFNZ:LOCALG:CASERND(3)OF
60WHEN1:G=-4
61WHEN2:G=0
62WHEN3:G=4
63ENDCASE:=G
64DEFPROCM(J%,F%):A%!0=J%:A%!4=F%:A%!8=0:A%!12=0:SYS&400CD,,A%:ENDPROC
65DEFFNS(J%,F%):!H%=J%:H%!4=F%:SYS&400CE,,H%:=H%!28
66DEFPROCZ(J%,F%,G$):$FNS(J%,F%)=G$:ENDPROC
67DEFPROCH:Cy%=A%!8:F%=A%!16:J%=A%!12:Y%=A%!0:T%=A%!4:CASEJ%OF
68WHEND%:CASECy%OF
69WHEN4:!A%=P%:SYS&400CB,,A%:A%!4=Y%-280:A%!12=Y%+280:A%!12=T%-124:A%!16=T%+124:A%!28=-1:SYS&400C5,,A%:PROCS
70WHEN1:!A%=D%:A%!4=1:SYS&400D0,,A%
71WHEN2:PROCZ(C%,4,"Philip Mellor"):PROCF(h%,!A%-64,A%!4)
72ENDCASE
73WHENC%:CASEF%OF
74WHEN8:IFU%=FALSETHEN
75U%=TRUE:M=1:S=1:M$=STRING$(31," ")
76ELSE:U%=FALSE:PROCZ(C%,4,"Philip Mellor"):PROCM(C%,4)
77ENDIF
78ENDCASE
79WHENP%:CASEF%OF
80WHEN0:!A%=P%:A%!4=1:SYS&400D0,,A%
81WHEN4:PROCA(0,4)
82WHEN5:PROCA(0,-4)
83WHEN6:PROCA(-4,0)
84WHEN7:PROCA(4,0)
85WHEN8:PROCA(-4,4)
86WHEN10:PROCA(4,4)
87WHEN9:PROCA(-4,-4)
88WHEN11:PROCA(4,-4)
89WHEN15:PROCA(0,0)
90WHEN14:g%=FNA(J%,F%)
91WHEN2:I%=FNA(J%,F%)
92WHEN16:b%=FNA(J%,F%)
93WHEN17,18:PROCF(i%,Y%,T%)
94ENDCASE
95ENDCASE:ENDPROC
96DEFPROCA(Y%,T%):M%=Y%:L%=T%:ENDPROC
97DEFFNA(J%,F%):LOCALB%:B%=A%+900:!B%=J%:B%!4=F%:SYS&400CE,,B%:=((B%!24)AND(1<<21))<>0
98DEFPROC_:DIMA%2000,G%4000,Z%4000,H%64:w%=G%+4000:a%=FALSE:PROCL:PROCG:PROCK:PROCR(h%,0,C%):ENDPROC
99DEFPROCL:SYS&400D9,,"<Balloon$Dir>.Templates":SYS&400DB,,A%,G%,w%,-1,"info",0TO,,G%:SYS&400C1,,A%TOC%:SYS&400DB,,A%,G%,w%,-1,"opts",0TO,,G%:SYS&400C1,,A%TOP%:SYS&400DB,,A%,G%,w%,-1,"shadow",0TO,,G%:SYS&400C1,,A%TOq%:SYS&400DA:A%!0=48:A%!4=160:A%!8=48+120:A%!16=160+144
100A%!16=0:A%!20=0:A%!24=-2:A%!28=-&7FFFF7AE:A%!32=&FF:A%?33=4:A%?34=4:A%?35=4:A%?36=4:A%?37=4:A%?38=4:A%?39=0:A%!40=0:A%!44=-144:A%!48=120:A%!52=0:A%!56=&80000000:A%!60=6:A%!64=W%:A%!68=0:$(A%+72)="win":A%!84=0:SYS&400C1,,A%TOD%:A%!0=D%:A%!4=0:A%!8=-144
101A%!12=120:A%!16=0:A%!20=&4000601A:$(A%+24)="mask":SYS&400C2,,A%TORy%:ENDPROC
102DEFPROCR(f%,Dy%,Vy%):!(f%+28+Dy%*24+4)=Vy%:ENDPROC
103DEFPROCG:RESTORE+1
104DATA Balloon,Info,Quit,*
105h%=FNM:ENDPROC
106DEFPROCK:RESTORE+1
107DATA "Speed","Fastest","Fast","Medium","Slow","Slowest",*
108i%=FNM:ENDPROC
109DEFFNM:N%=Z%:READJ$:$(N%)=J$:N%?12=7:N%?13=2:N%?14=7:N%?15=0:N%!20=44:N%!24=0:K%=LEN(J$)-3:Z%+=28:REPEAT:READZ$:IFZ$<>"*"THEN
110!Z%=0:c%=FALSE:_%=INSTR(Z$,"_"):IF_%THEN
111S$=RIGHT$(Z$,LEN(Z$)-_%):IFINSTR(S$,"T")!Z%=!Z%OR1
112IFINSTR(S$,"D")!Z%=!Z%OR2
113IFINSTR(S$,"W")!Z%=!Z%OR4:c%=TRUE:READu%:READJy%
114IFINSTR(S$,"M")!Z%=!Z%OR8
115Z$=LEFT$(Z$,_%-1)
116ENDIF:IFLENZ$>K%K%=LENZ$
117Z%!4=-1:IFc%THEN
118Z%!8=&700F121:Z%!12=u%:Z%!16=-1:Z%!20=Jy%:$u%=Z$
119ELSE:IFLENZ$<12THEN
120Z%!8=&7000021:$(Z%+12)=Z$
121ELSE:Z%!8=&7000121:Z%!12=G%:Z%!16=-1:Z%!20=LENZ$+1:$G%=Z$:G%+=LENZ$+1
122ENDIF
123ENDIF:Z%+=24
124ENDIF:UNTILZ$="*":N%!16=K%*16+32:!(Z%-24)=!(Z%-24)OR&80:Hy%=Z%:=N%
125DEFPROCF(f%,x%,s%):v%=f%:Fy%=x%:Wy%=s%:SYS&400D4,,f%,x%,s%:R%=TRUE:ENDPROC
126DEFPROCY:LOCALB%:B%=A%+900:SYS&400CF,,B%:Ay%=(B%!8AND1):SYS&400D5,,v%,A%,B%:`%=Q%:CASE$B%OF
127WHEN"Quit":a%=TRUE
128WHEN"Fastest":Q%=0
129WHEN"Fast":Q%=1
130WHEN"Medium":Q%=2
131WHEN"Slow":Q%=3
132WHEN"Slowest":Q%=4
133ENDCASE:IFQ%<>`%PROCZ(P%,17,A$(Q%)):PROCM(P%,17)
134R%=FALSE:IFAy%PROCF(v%,Fy%,Wy%)
135ENDPROC
136DEFPROCD:CASEA%!16OF
137WHEN0:a%=TRUE
138WHEN&400C1:PROCJ
139WHEN&400C9:R%=FALSE:U%=FALSE
140WHEN&502:PROCI
141ENDCASE:ENDPROC
142DEFFNF:!A%=ERR:CASE!A%OF
143WHEN1<<30:W$="":e%=1
144OTHERWISEW$="(internal code "+STR$ERL+")":e%=2
145ENDCASE:$(A%+4)=REPORT$+W$+CHR$0:SYS&400DF,A%,e%,"The BBC Balloon"TO,Gy%:=(Gy%=2)
146DEFPROCN(Yy%):!A%=Yy%:SYS&400CB,,A%:SYS&400C6,,A%:ENDPROC
147DEFPROCS:!A%=P%:SYS&400CB,,A%:!A%=q%:A%!4=(A%!4)+12:A%!8=(A%!8)-12:A%!12=(A%!12)+12:A%!16=(A%!16)-12:A%!28=P%:SYS&400C5,,A%:ENDPROC
148DEFPROCX(n%,x%,s%,Uy%):SYS46,512+34,W%,n%,x%,s%,Uy%:ENDPROC
149DEFPROCO(n%,x%,s%,Ky%,Iy%,Qy%,Ty%):!V%=Ky%:!(V%+4)=Iy%:!(V%+8)=Qy%:!(V%+12)=Ty%:SYS46,512+52,W%,n%,x%,s%,0,V%,0:ENDPROC
150DEFPROCJ:SYS53,-1,4TO,,Py%:SYS53,-1,5TO,,By%:SYS53,-1,11TO,,Ny%:SYS53,-1,12TO,,k%:A=Ny%<<Py%:Z=k%<<By%:ENDPROC
151DEFPROCB(n%):SYS46,572,W%,n%,0TON,C,F,W:OFF:ENDPROC
152DEFPROCP:SYS46,572,C,F,WTON,C,F,W:OFF:ENDPROC
153DEFPROCI:J%=A%!32:F%=A%!36:A$="You're watching BBC 1.":CASEJ%OF
154WHENC%:A$="This shows information about the program.":CASEF%OF
155WHEN0,1:A$="This is the name of the program."
156WHEN2,3:A$="This is the purpose of the program."
157WHEN4,5:A$="This is the author of the program.":IFU%=TRUETHENA$="Hmmm. This looks like a scrolling message.|M"+M$
158WHEN6,7:A$="This is the version number of the program."
159WHEN8:A$="Hmmm. I wonder what happens if I click this.... ?"
160ENDCASE
161WHEND%:A$="You're watching BBC 1.|MClick SELECT to open the control panel.|MDrag ADJUST to move the balloon.|MClick MENU for the main menu."
162WHENP%:A$="This is the balloon control panel.":CASEF%OF
163WHEN0:A$+="|MDrag SELECT or ADJUST to move."
164WHEN0:A$+="|M"
165WHEN2:A$+="|MWhen selected, the balloon can bounce off the left and right edges of the screen. When unselected, the balloon can drift off one edge of the screen to the other."
166WHEN14:A$+="|MWhen selected, the balloon can change direction from time to time. When unselected, it won't."
167WHEN16:A$+="|MWhen selected, the balloon rotates - it can slow the desktop down slightly so you may wish to turn this option off."
168WHEN17:A$+="|MThis shows the speed of the program. You can change it by clicking SELECT."
169WHEN18:A$+="|MClick SELECT to change the speed of the program."
170WHEN15:A$+="|MClick SELECT to stop the balloon from moving."
171WHEN4,5,6,7,8,9,10,11:A$+="|MClick SELECT to move the balloon in this direction."
172ENDCASE
173ENDCASE:A%!00=256:A%!12=A%!8:A%!16=&503:$(A%+20)=A$:SYS&400E7,17,A%,A%!4:ENDPROC
�>Output
0�Produced by BasCompress v1.69 (04 Aug 1995)
� BBC1 Balloon
� By Philip Mellor
?� ... "Bother", said Pooh, as his LAN manager went crackers
Kș&400C0,200,&4B534154,"BBC Balloon"�,Zy%:�ș&406C2:�4,26:�:�" - ";�:�
��U:�_:�J:�V:U%=�:M$=�31," "):U=�(-�):R%=�:g%=�:I%=�:b%=�:O%=�:Q%=0:z%=0:�A$(4),A%(4):A$()="Fastest","Fast","Medium","Slow","Slowest":A%()=0,10,20,30,40:S%=0:X%=256:M%=4:L%=4:��F�W:�
�:�q:�a%:�W:�
t��V:J=�("<Balloon$Dir>.Messages"):B=�#J:�l%B+1024:S=1:�Q=1�B:l%!Q=(�#J)�255:�:�#J:M=1:�Z(C%,4,"Philip Mellor"):�
R��U:ș&400EA�,o%:ș46,256+40,o%,"!bbc1"�,,,K%,Ly%,r%,Sy%:�Sy%=12�P$=""�P$="22"
ș16�F$:�F$,"-load ")>0�
!B$=�F$,�(F$)-�F$,"-load ")-5)
(�:B$="<Balloon$Dir>.Balloons.BBCone"
��:C$=B$+P$:m%=�(C$):d%=1024*16:�#m%:�W%d%:W%!0=d%:ș46,256+9,W%:ș46,256+10,W%,C$:ș46,280,W%,"mask"�,,r%:ș46,280,W%,"canvas"�,,t%:ș46,280,W%,"balloon"�,,p%:N=0:C=0:F=0:W=0:Xy%=0:My%=8:�V%20:�
���Q:�B(t%):ȓ284,0,4,288�0,0:ȓ0,0,288,288�2,0:�P:�B(r%):�P=0�120�4:�24,0;P+24;116;P+28;:y%=�(3600-(60-P)^2):�O(t%,60-(y%),0,y%*2,1,120,1):�:�26:�X(p%,0,0,My%):�P:�
��W:ș&400DD,Zy%,&4B534154:�
��C:�M=1�
-M$=�M$,30)+�(l%!S):�Z(C%,4,M$):S+=1:�S>B�
!U%=�:�Z(C%,4,"Philip Mellor")
�:�M(C%,4)
�:M+=1:�M>4M=1�Ȗ
�
��q:�U%=��C
ș&400C7,,A%�j%:Ȏj%�
�0:�U%=��
�C
"�:z%+=1:�z%>A%(Q%)z%=0:�T:O%=�
�
�2:�(A%!0)=D%�
(O%=�:�A%!8<160A%!8=160:A%!16=160+144
�A%!16>Z A%!16=Z:A%!8=Z-144
*�I%=�:�A%!4<0A%!4=0:A%!12=160+120:S%=0
!.�I%=�:�A%!12>A A%!12=A:A%!4=A-120:S%=A-120
"�:Ȏ(A%!0)�
#
�q%:�S
$�P%:ș&400C5,,A%:�S
%ș&400C5,,A%
&�
'�3:ș&400C6,,A%
(*�4:�(A%!0)=P%�R%=��ș&400C6,,A%:�N(q%)
) �6:�H
* �9:�Y
+�17,18,19:�D
,�:�
-��T:�b%=���Q
.;!A%=D%:ș&400CB,,A%:S%=A%!4:X%=A%!8:�O%=��S%+=M%:X%+=L%
/�X%<160�L%=�L%
0�X%>Z-144�L%=-(�L%)
1
�I%=��
2�S%<0�M%=�(M%)
3 �M%>0�S%>A-120�M%=-�(M%)
4A�:�M%<0�S%<-120�S%=A+400+�(200):X%=�(Z-144-192)+192:M%=-�(M%)
5:�M%>0�S%>A�M%=�(M%):S%=-400-�(200):X%=�(Z-144-192)+192
6 �:�g%=��
7�(500)=1�
8
�A(�Z,�Z)
9�
:g�:!A%=D%:A%!4=S%:A%!8=X%:A%!12=S%+120:A%!16=X%+144:A%!20=0:A%!24=0:A%!28=-2:ș&400C5,,A%:�M(D%,0):�
;ݤZ:�G:Ȏ�(3)�
< �1:G=-4
=
�2:G=0
>
�3:G=4
?�:=G
@<��M(J%,F%):A%!0=J%:A%!4=F%:A%!8=0:A%!12=0:ș&400CD,,A%:�
A1ݤS(J%,F%):!H%=J%:H%!4=F%:ș&400CE,,H%:=H%!28
B!��Z(J%,F%,G$):$�S(J%,F%)=G$:�
C8��H:Cy%=A%!8:F%=A%!16:J%=A%!12:Y%=A%!0:T%=A%!4:ȎJ%�
D�D%:ȎCy%�
Ef�4:!A%=P%:ș&400CB,,A%:A%!4=Y%-280:A%!12=Y%+280:A%!12=T%-124:A%!16=T%+124:A%!28=-1:ș&400C5,,A%:�S
F!�1:!A%=D%:A%!4=1:ș&400D0,,A%
G2�2:�Z(C%,4,"Philip Mellor"):�F(h%,!A%-64,A%!4)
H�
I
�C%:ȎF%�
J
�8:�U%=��
K U%=�:M=1:S=1:M$=�31," ")
L,�:U%=�:�Z(C%,4,"Philip Mellor"):�M(C%,4)
M�
N�
O
�P%:ȎF%�
P!�0:!A%=P%:A%!4=1:ș&400D0,,A%
Q�4:�A(0,4)
R�5:�A(0,-4)
S�6:�A(-4,0)
T�7:�A(4,0)
U�8:�A(-4,4)
V�10:�A(4,4)
W�9:�A(-4,-4)
X�11:�A(4,-4)
Y�15:�A(0,0)
Z�14:g%=�A(J%,F%)
[�2:I%=�A(J%,F%)
\�16:b%=�A(J%,F%)
]�17,18:�F(i%,Y%,T%)
^�
_�:�
` ��A(Y%,T%):M%=Y%:L%=T%:�
aNݤA(J%,F%):�B%:B%=A%+900:!B%=J%:B%!4=F%:ș&400CE,,B%:=((B%!24)�(1<<21))<>0
bI��_:�A%2000,G%4000,Z%4000,H%64:w%=G%+4000:a%=�:�L:�G:�K:�R(h%,0,C%):�
c���L:ș&400D9,,"<Balloon$Dir>.Templates":ș&400DB,,A%,G%,w%,-1,"info",0�,,G%:ș&400C1,,A%�C%:ș&400DB,,A%,G%,w%,-1,"opts",0�,,G%:ș&400C1,,A%�P%:ș&400DB,,A%,G%,w%,-1,"shadow",0�,,G%:ș&400C1,,A%�q%:ș&400DA:A%!0=48:A%!4=160:A%!8=48+120:A%!16=160+144
d�A%!16=0:A%!20=0:A%!24=-2:A%!28=-&7FFFF7AE:A%!32=&FF:A%?33=4:A%?34=4:A%?35=4:A%?36=4:A%?37=4:A%?38=4:A%?39=0:A%!40=0:A%!44=-144:A%!48=120:A%!52=0:A%!56=&80000000:A%!60=6:A%!64=W%:A%!68=0:$(A%+72)="win":A%!84=0:ș&400C1,,A%�D%:A%!0=D%:A%!4=0:A%!8=-144
eHA%!12=120:A%!16=0:A%!20=&4000601A:$(A%+24)="mask":ș&400C2,,A%�Ry%:�
f+��R(f%,Dy%,Vy%):!(f%+28+Dy%*24+4)=Vy%:�
g ��G:�+1
h� Balloon,Info,Quit,*
i h%=�M:�
j ��K:�+1
k:� "Speed","Fastest","Fast","Medium","Slow","Slowest",*
l i%=�M:�
mmݤM:N%=Z%:�J$:$(N%)=J$:N%?12=7:N%?13=2:N%?14=7:N%?15=0:N%!20=44:N%!24=0:K%=�(J$)-3:Z%+=28:�:�Z$:�Z$<>"*"�
n !Z%=0:c%=�:_%=�Z$,"_"):�_%�
o'S$=�Z$,�(Z$)-_%):�S$,"T")!Z%=!Z%�1
p�S$,"D")!Z%=!Z%�2
q$�S$,"W")!Z%=!Z%�4:c%=�:�u%:�Jy%
r�S$,"M")!Z%=!Z%�8
sZ$=�Z$,_%-1)
t�:�Z$>K%K%=�Z$
uZ%!4=-1:�c%�
v4Z%!8=&700F121:Z%!12=u%:Z%!16=-1:Z%!20=Jy%:$u%=Z$
w�:�Z$<12�
x Z%!8=&7000021:$(Z%+12)=Z$
yB�:Z%!8=&7000121:Z%!12=G%:Z%!16=-1:Z%!20=�Z$+1:$G%=Z$:G%+=�Z$+1
z�
{ �:Z%+=24
|=�:�Z$="*":N%!16=K%*16+32:!(Z%-24)=!(Z%-24)�&80:Hy%=Z%:=N%
}?��F(f%,x%,s%):v%=f%:Fy%=x%:Wy%=s%:ș&400D4,,f%,x%,s%:R%=�:�
~O��Y:�B%:B%=A%+900:ș&400CF,,B%:Ay%=(B%!8�1):ș&400D5,,v%,A%,B%:`%=Q%:Ȏ$B%�
�"Quit":a%=�
��"Fastest":Q%=0
��"Fast":Q%=1
��"Medium":Q%=2
��"Slow":Q%=3
��"Slowest":Q%=4
�'�:�Q%<>`%�Z(P%,17,A$(Q%)):�M(P%,17)
�R%=�:�Ay%�F(v%,Fy%,Wy%)
��
���D:ȎA%!16�
� �0:a%=�
��&400C1:�J
��&400C9:R%=�:U%=�
� �&502:�I
��:�
�ݤF:!A%=�:Ȏ!A%�
��1<<30:W$="":e%=1
�%W$="(internal code "+Þ+")":e%=2
�E�:$(A%+4)=�$+W$+�0:ș&400DF,A%,e%,"The BBC Balloon"�,Gy%:=(Gy%=2)
�0��N(Yy%):!A%=Yy%:ș&400CB,,A%:ș&400C6,,A%:�
�z��S:!A%=P%:ș&400CB,,A%:!A%=q%:A%!4=(A%!4)+12:A%!8=(A%!8)-12:A%!12=(A%!12)+12:A%!16=(A%!16)-12:A%!28=P%:ș&400C5,,A%:�
�3��X(n%,x%,s%,Uy%):ș46,512+34,W%,n%,x%,s%,Uy%:�
�o��O(n%,x%,s%,Ky%,Iy%,Qy%,Ty%):!V%=Ky%:!(V%+4)=Iy%:!(V%+8)=Qy%:!(V%+12)=Ty%:ș46,512+52,W%,n%,x%,s%,0,V%,0:�
�_��J:ș53,-1,4�,,Py%:ș53,-1,5�,,By%:ș53,-1,11�,,Ny%:ș53,-1,12�,,k%:A=Ny%<<Py%:Z=k%<<By%:�
�(��B(n%):ș46,572,W%,n%,0�N,C,F,W:�:�
�"��P:ș46,572,C,F,W�N,C,F,W:�:�
�;��I:J%=A%!32:F%=A%!36:A$="You're watching BBC 1.":ȎJ%�
�<�C%:A$="This shows information about the program.":ȎF%�
�.�0,1:A$="This is the name of the program."
�1�2,3:A$="This is the purpose of the program."
�k�4,5:A$="This is the author of the program.":�U%=��A$="Hmmm. This looks like a scrolling message.|M"+M$
�8�6,7:A$="This is the version number of the program."
�=�8:A$="Hmmm. I wonder what happens if I click this.... ?"
��
���D%:A$="You're watching BBC 1.|MClick SELECT to open the control panel.|MDrag ADJUST to move the balloon.|MClick MENU for the main menu."
�5�P%:A$="This is the balloon control panel.":ȎF%�
�-�0:A$+="|MDrag SELECT or ADJUST to move."
��0:A$+="|M"
���2:A$+="|MWhen selected, the balloon can bounce off the left and right edges of the screen. When unselected, the balloon can drift off one edge of the screen to the other."
�m�14:A$+="|MWhen selected, the balloon can change direction from time to time. When unselected, it won't."
���16:A$+="|MWhen selected, the balloon rotates - it can slow the desktop down slightly so you may wish to turn this option off."
�Z�17:A$+="|MThis shows the speed of the program. You can change it by clicking SELECT."
�@�18:A$+="|MClick SELECT to change the speed of the program."
�=�15:A$+="|MClick SELECT to stop the balloon from moving."
�R�4,5,6,7,8,9,10,11:A$+="|MClick SELECT to move the balloon in this direction."
��
�G�:A%!00=256:A%!12=A%!8:A%!16=&503:$(A%+20)=A$:ș&400E7,17,A%,A%!4:�
� 00000000 0d 00 01 0c f4 3e 4f 75 74 70 75 74 0d 00 02 30 |.....>Output...0|
00000010 f4 50 72 6f 64 75 63 65 64 20 62 79 20 42 61 73 |.Produced by Bas|
00000020 43 6f 6d 70 72 65 73 73 20 76 31 2e 36 39 20 28 |Compress v1.69 (|
00000030 30 34 20 41 75 67 20 31 39 39 35 29 0d 00 03 12 |04 Aug 1995)....|
00000040 f4 20 42 42 43 31 20 42 61 6c 6c 6f 6f 6e 0d 00 |. BBC1 Balloon..|
00000050 04 16 f4 20 42 79 20 50 68 69 6c 69 70 20 4d 65 |... By Philip Me|
00000060 6c 6c 6f 72 0d 00 05 3f f4 20 2e 2e 2e 20 22 42 |llor...?. ... "B|
00000070 6f 74 68 65 72 22 2c 20 73 61 69 64 20 50 6f 6f |other", said Poo|
00000080 68 2c 20 61 73 20 68 69 73 20 4c 41 4e 20 6d 61 |h, as his LAN ma|
00000090 6e 61 67 65 72 20 77 65 6e 74 20 63 72 61 63 6b |nager went crack|
000000a0 65 72 73 0d 00 06 4b c8 99 26 34 30 30 43 30 2c |ers...K..&400C0,|
000000b0 32 30 30 2c 26 34 42 35 33 34 31 35 34 2c 22 42 |200,&4B534154,"B|
000000c0 42 43 20 42 61 6c 6c 6f 6f 6e 22 b8 2c 5a 79 25 |BC Balloon".,Zy%|
000000d0 3a ee 85 c8 99 26 34 30 36 43 32 3a ef 34 2c 32 |:....&406C2:.4,2|
000000e0 36 3a f6 3a f1 22 20 2d 20 22 3b 9e 3a e0 0d 00 |6:.:." - ";.:...|
000000f0 07 bb f2 55 3a f2 5f 3a f2 4a 3a f2 56 3a 55 25 |...U:._:.J:.V:U%|
00000100 3d a3 3a 4d 24 3d c4 33 31 2c 22 20 22 29 3a 55 |=.:M$=.31," "):U|
00000110 3d b3 28 2d 91 29 3a 52 25 3d a3 3a 67 25 3d b9 |=.(-.):R%=.:g%=.|
00000120 3a 49 25 3d b9 3a 62 25 3d b9 3a 4f 25 3d b9 3a |:I%=.:b%=.:O%=.:|
00000130 51 25 3d 30 3a 7a 25 3d 30 3a de 41 24 28 34 29 |Q%=0:z%=0:.A$(4)|
00000140 2c 41 25 28 34 29 3a 41 24 28 29 3d 22 46 61 73 |,A%(4):A$()="Fas|
00000150 74 65 73 74 22 2c 22 46 61 73 74 22 2c 22 4d 65 |test","Fast","Me|
00000160 64 69 75 6d 22 2c 22 53 6c 6f 77 22 2c 22 53 6c |dium","Slow","Sl|
00000170 6f 77 65 73 74 22 3a 41 25 28 29 3d 30 2c 31 30 |owest":A%()=0,10|
00000180 2c 32 30 2c 33 30 2c 34 30 3a 53 25 3d 30 3a 58 |,20,30,40:S%=0:X|
00000190 25 3d 32 35 36 3a 4d 25 3d 34 3a 4c 25 3d 34 3a |%=256:M%=4:L%=4:|
000001a0 ee 85 e7 a4 46 f2 57 3a e0 0d 00 08 11 f5 3a f2 |....F.W:......:.|
000001b0 71 3a fd 61 25 3a f2 57 3a e0 0d 00 09 74 dd f2 |q:.a%:.W:....t..|
000001c0 56 3a 4a 3d 8e 28 22 3c 42 61 6c 6c 6f 6f 6e 24 |V:J=.("<Balloon$|
000001d0 44 69 72 3e 2e 4d 65 73 73 61 67 65 73 22 29 3a |Dir>.Messages"):|
000001e0 42 3d a2 23 4a 3a de 6c 25 42 2b 31 30 32 34 3a |B=.#J:.l%B+1024:|
000001f0 53 3d 31 3a e3 51 3d 31 b8 42 3a 6c 25 21 51 3d |S=1:.Q=1.B:l%!Q=|
00000200 28 9a 23 4a 29 82 32 35 35 3a ed 3a d9 23 4a 3a |(.#J).255:.:.#J:|
00000210 4d 3d 31 3a f2 5a 28 43 25 2c 34 2c 22 50 68 69 |M=1:.Z(C%,4,"Phi|
00000220 6c 69 70 20 4d 65 6c 6c 6f 72 22 29 3a e1 0d 00 |lip Mellor"):...|
00000230 0a 52 dd f2 55 3a c8 99 26 34 30 30 45 41 b8 2c |.R..U:..&400EA.,|
00000240 6f 25 3a c8 99 34 36 2c 32 35 36 2b 34 30 2c 6f |o%:..46,256+40,o|
00000250 25 2c 22 21 62 62 63 31 22 b8 2c 2c 2c 4b 25 2c |%,"!bbc1".,,,K%,|
00000260 4c 79 25 2c 72 25 2c 53 79 25 3a e7 53 79 25 3d |Ly%,r%,Sy%:.Sy%=|
00000270 31 32 8c 50 24 3d 22 22 8b 50 24 3d 22 32 32 22 |12.P$="".P$="22"|
00000280 0d 00 0b 1d c8 99 31 36 b8 46 24 3a e7 a7 46 24 |......16.F$:..F$|
00000290 2c 22 2d 6c 6f 61 64 20 22 29 3e 30 8c 0d 00 0c |,"-load ")>0....|
000002a0 21 42 24 3d c2 46 24 2c a9 28 46 24 29 2d a7 46 |!B$=.F$,.(F$)-.F|
000002b0 24 2c 22 2d 6c 6f 61 64 20 22 29 2d 35 29 0d 00 |$,"-load ")-5)..|
000002c0 0d 28 cc 3a 42 24 3d 22 3c 42 61 6c 6c 6f 6f 6e |.(.:B$="<Balloon|
000002d0 24 44 69 72 3e 2e 42 61 6c 6c 6f 6f 6e 73 2e 42 |$Dir>.Balloons.B|
000002e0 42 43 6f 6e 65 22 0d 00 0e c6 cd 3a 43 24 3d 42 |BCone".....:C$=B|
000002f0 24 2b 50 24 3a 6d 25 3d 8e 28 43 24 29 3a 64 25 |$+P$:m%=.(C$):d%|
00000300 3d 31 30 32 34 2a 31 36 3a d9 23 6d 25 3a de 57 |=1024*16:.#m%:.W|
00000310 25 64 25 3a 57 25 21 30 3d 64 25 3a c8 99 34 36 |%d%:W%!0=d%:..46|
00000320 2c 32 35 36 2b 39 2c 57 25 3a c8 99 34 36 2c 32 |,256+9,W%:..46,2|
00000330 35 36 2b 31 30 2c 57 25 2c 43 24 3a c8 99 34 36 |56+10,W%,C$:..46|
00000340 2c 32 38 30 2c 57 25 2c 22 6d 61 73 6b 22 b8 2c |,280,W%,"mask".,|
00000350 2c 72 25 3a c8 99 34 36 2c 32 38 30 2c 57 25 2c |,r%:..46,280,W%,|
00000360 22 63 61 6e 76 61 73 22 b8 2c 2c 74 25 3a c8 99 |"canvas".,,t%:..|
00000370 34 36 2c 32 38 30 2c 57 25 2c 22 62 61 6c 6c 6f |46,280,W%,"ballo|
00000380 6f 6e 22 b8 2c 2c 70 25 3a 4e 3d 30 3a 43 3d 30 |on".,,p%:N=0:C=0|
00000390 3a 46 3d 30 3a 57 3d 30 3a 58 79 25 3d 30 3a 4d |:F=0:W=0:Xy%=0:M|
000003a0 79 25 3d 38 3a de 56 25 32 30 3a e1 0d 00 0f a8 |y%=8:.V%20:.....|
000003b0 dd f2 51 3a f2 42 28 74 25 29 3a c8 93 32 38 34 |..Q:.B(t%):..284|
000003c0 2c 30 2c 34 2c 32 38 38 b8 30 2c 30 3a c8 93 30 |,0,4,288.0,0:..0|
000003d0 2c 30 2c 32 38 38 2c 32 38 38 b8 32 2c 30 3a f2 |,0,288,288.2,0:.|
000003e0 50 3a f2 42 28 72 25 29 3a e3 50 3d 30 b8 31 32 |P:.B(r%):.P=0.12|
000003f0 30 88 34 3a ef 32 34 2c 30 3b 50 2b 32 34 3b 31 |0.4:.24,0;P+24;1|
00000400 31 36 3b 50 2b 32 38 3b 3a 79 25 3d b6 28 33 36 |16;P+28;:y%=.(36|
00000410 30 30 2d 28 36 30 2d 50 29 5e 32 29 3a f2 4f 28 |00-(60-P)^2):.O(|
00000420 74 25 2c 36 30 2d 28 79 25 29 2c 30 2c 79 25 2a |t%,60-(y%),0,y%*|
00000430 32 2c 31 2c 31 32 30 2c 31 29 3a ed 3a ef 32 36 |2,1,120,1):.:.26|
00000440 3a f2 58 28 70 25 2c 30 2c 30 2c 4d 79 25 29 3a |:.X(p%,0,0,My%):|
00000450 f2 50 3a e1 0d 00 10 20 dd f2 57 3a c8 99 26 34 |.P:.... ..W:..&4|
00000460 30 30 44 44 2c 5a 79 25 2c 26 34 42 35 33 34 31 |00DD,Zy%,&4B5341|
00000470 35 34 3a e1 0d 00 11 0d dd f2 43 3a e7 4d 3d 31 |54:.......C:.M=1|
00000480 8c 0d 00 12 2d 4d 24 3d c2 4d 24 2c 33 30 29 2b |....-M$=.M$,30)+|
00000490 bd 28 6c 25 21 53 29 3a f2 5a 28 43 25 2c 34 2c |.(l%!S):.Z(C%,4,|
000004a0 4d 24 29 3a 53 2b 3d 31 3a e7 53 3e 42 8c 0d 00 |M$):S+=1:.S>B...|
000004b0 13 21 55 25 3d a3 3a f2 5a 28 43 25 2c 34 2c 22 |.!U%=.:.Z(C%,4,"|
000004c0 50 68 69 6c 69 70 20 4d 65 6c 6c 6f 72 22 29 0d |Philip Mellor").|
000004d0 00 14 0e cd 3a f2 4d 28 43 25 2c 34 29 0d 00 15 |....:.M(C%,4)...|
000004e0 15 cd 3a 4d 2b 3d 31 3a e7 4d 3e 34 4d 3d 31 8b |..:M+=1:.M>4M=1.|
000004f0 c8 96 0d 00 16 05 e1 0d 00 17 0f dd f2 71 3a e7 |.............q:.|
00000500 55 25 3d b9 f2 43 0d 00 18 19 c8 99 26 34 30 30 |U%=..C......&400|
00000510 43 37 2c 2c 41 25 b8 6a 25 3a c8 8e 6a 25 ca 0d |C7,,A%.j%:..j%..|
00000520 00 19 0d c9 30 3a e7 55 25 3d b9 8c 0d 00 1a 06 |....0:.U%=......|
00000530 f2 43 0d 00 1b 22 cc 3a 7a 25 2b 3d 31 3a e7 7a |.C...".:z%+=1:.z|
00000540 25 3e 41 25 28 51 25 29 7a 25 3d 30 3a f2 54 3a |%>A%(Q%)z%=0:.T:|
00000550 4f 25 3d b9 0d 00 1c 05 cd 0d 00 1d 12 c9 32 3a |O%=...........2:|
00000560 e7 28 41 25 21 30 29 3d 44 25 8c 0d 00 1e 28 4f |.(A%!0)=D%....(O|
00000570 25 3d a3 3a e7 41 25 21 38 3c 31 36 30 41 25 21 |%=.:.A%!8<160A%!|
00000580 38 3d 31 36 30 3a 41 25 21 31 36 3d 31 36 30 2b |8=160:A%!16=160+|
00000590 31 34 34 0d 00 1f 1f e7 41 25 21 31 36 3e 5a 20 |144.....A%!16>Z |
000005a0 41 25 21 31 36 3d 5a 3a 41 25 21 38 3d 5a 2d 31 |A%!16=Z:A%!8=Z-1|
000005b0 34 34 0d 00 20 2a e7 49 25 3d b9 3a e7 41 25 21 |44.. *.I%=.:.A%!|
000005c0 34 3c 30 41 25 21 34 3d 30 3a 41 25 21 31 32 3d |4<0A%!4=0:A%!12=|
000005d0 31 36 30 2b 31 32 30 3a 53 25 3d 30 0d 00 21 2e |160+120:S%=0..!.|
000005e0 e7 49 25 3d b9 3a e7 41 25 21 31 32 3e 41 20 41 |.I%=.:.A%!12>A A|
000005f0 25 21 31 32 3d 41 3a 41 25 21 34 3d 41 2d 31 32 |%!12=A:A%!4=A-12|
00000600 30 3a 53 25 3d 41 2d 31 32 30 0d 00 22 0f cd 3a |0:S%=A-120.."..:|
00000610 c8 8e 28 41 25 21 30 29 ca 0d 00 23 0a c9 71 25 |..(A%!0)...#..q%|
00000620 3a f2 53 0d 00 24 17 c9 50 25 3a c8 99 26 34 30 |:.S..$..P%:..&40|
00000630 30 43 35 2c 2c 41 25 3a f2 53 0d 00 25 11 7f c8 |0C5,,A%:.S..%...|
00000640 99 26 34 30 30 43 35 2c 2c 41 25 0d 00 26 05 cb |.&400C5,,A%..&..|
00000650 0d 00 27 13 c9 33 3a c8 99 26 34 30 30 43 36 2c |..'..3:..&400C6,|
00000660 2c 41 25 0d 00 28 2a c9 34 3a e7 28 41 25 21 30 |,A%..(*.4:.(A%!0|
00000670 29 3d 50 25 80 52 25 3d a3 8c c8 99 26 34 30 30 |)=P%.R%=....&400|
00000680 43 36 2c 2c 41 25 3a f2 4e 28 71 25 29 0d 00 29 |C6,,A%:.N(q%)..)|
00000690 09 c9 36 3a f2 48 0d 00 2a 09 c9 39 3a f2 59 0d |..6:.H..*..9:.Y.|
000006a0 00 2b 10 c9 31 37 2c 31 38 2c 31 39 3a f2 44 0d |.+..17,18,19:.D.|
000006b0 00 2c 07 cb 3a e1 0d 00 2d 10 dd f2 54 3a e7 62 |.,..:...-...T:.b|
000006c0 25 3d b9 8c f2 51 0d 00 2e 3b 21 41 25 3d 44 25 |%=...Q...;!A%=D%|
000006d0 3a c8 99 26 34 30 30 43 42 2c 2c 41 25 3a 53 25 |:..&400CB,,A%:S%|
000006e0 3d 41 25 21 34 3a 58 25 3d 41 25 21 38 3a e7 4f |=A%!4:X%=A%!8:.O|
000006f0 25 3d b9 8c 53 25 2b 3d 4d 25 3a 58 25 2b 3d 4c |%=..S%+=M%:X%+=L|
00000700 25 0d 00 2f 12 e7 58 25 3c 31 36 30 8c 4c 25 3d |%../..X%<160.L%=|
00000710 94 4c 25 0d 00 30 17 e7 58 25 3e 5a 2d 31 34 34 |.L%..0..X%>Z-144|
00000720 8c 4c 25 3d 2d 28 94 4c 25 29 0d 00 31 0a e7 49 |.L%=-(.L%)..1..I|
00000730 25 3d b9 8c 0d 00 32 12 e7 53 25 3c 30 8c 4d 25 |%=....2..S%<0.M%|
00000740 3d 94 28 4d 25 29 0d 00 33 1c e7 4d 25 3e 30 80 |=.(M%)..3..M%>0.|
00000750 53 25 3e 41 2d 31 32 30 8c 4d 25 3d 2d 94 28 4d |S%>A-120.M%=-.(M|
00000760 25 29 0d 00 34 41 cc 3a e7 4d 25 3c 30 80 53 25 |%)..4A.:.M%<0.S%|
00000770 3c 2d 31 32 30 8c 53 25 3d 41 2b 34 30 30 2b b3 |<-120.S%=A+400+.|
00000780 28 32 30 30 29 3a 58 25 3d b3 28 5a 2d 31 34 34 |(200):X%=.(Z-144|
00000790 2d 31 39 32 29 2b 31 39 32 3a 4d 25 3d 2d 94 28 |-192)+192:M%=-.(|
000007a0 4d 25 29 0d 00 35 3a e7 4d 25 3e 30 80 53 25 3e |M%)..5:.M%>0.S%>|
000007b0 41 8c 4d 25 3d 94 28 4d 25 29 3a 53 25 3d 2d 34 |A.M%=.(M%):S%=-4|
000007c0 30 30 2d b3 28 32 30 30 29 3a 58 25 3d b3 28 5a |00-.(200):X%=.(Z|
000007d0 2d 31 34 34 2d 31 39 32 29 2b 31 39 32 0d 00 36 |-144-192)+192..6|
000007e0 0c cd 3a e7 67 25 3d b9 8c 0d 00 37 0e e7 b3 28 |..:.g%=....7...(|
000007f0 35 30 30 29 3d 31 8c 0d 00 38 0d f2 41 28 a4 5a |500)=1...8..A(.Z|
00000800 2c a4 5a 29 0d 00 39 05 cd 0d 00 3a 67 cd 3a 21 |,.Z)..9....:g.:!|
00000810 41 25 3d 44 25 3a 41 25 21 34 3d 53 25 3a 41 25 |A%=D%:A%!4=S%:A%|
00000820 21 38 3d 58 25 3a 41 25 21 31 32 3d 53 25 2b 31 |!8=X%:A%!12=S%+1|
00000830 32 30 3a 41 25 21 31 36 3d 58 25 2b 31 34 34 3a |20:A%!16=X%+144:|
00000840 41 25 21 32 30 3d 30 3a 41 25 21 32 34 3d 30 3a |A%!20=0:A%!24=0:|
00000850 41 25 21 32 38 3d 2d 32 3a c8 99 26 34 30 30 43 |A%!28=-2:..&400C|
00000860 35 2c 2c 41 25 3a f2 4d 28 44 25 2c 30 29 3a e1 |5,,A%:.M(D%,0):.|
00000870 0d 00 3b 12 dd a4 5a 3a ea 47 3a c8 8e b3 28 33 |..;...Z:.G:...(3|
00000880 29 ca 0d 00 3c 0b c9 31 3a 47 3d 2d 34 0d 00 3d |)...<..1:G=-4..=|
00000890 0a c9 32 3a 47 3d 30 0d 00 3e 0a c9 33 3a 47 3d |..2:G=0..>..3:G=|
000008a0 34 0d 00 3f 08 cb 3a 3d 47 0d 00 40 3c dd f2 4d |4..?..:=G..@<..M|
000008b0 28 4a 25 2c 46 25 29 3a 41 25 21 30 3d 4a 25 3a |(J%,F%):A%!0=J%:|
000008c0 41 25 21 34 3d 46 25 3a 41 25 21 38 3d 30 3a 41 |A%!4=F%:A%!8=0:A|
000008d0 25 21 31 32 3d 30 3a c8 99 26 34 30 30 43 44 2c |%!12=0:..&400CD,|
000008e0 2c 41 25 3a e1 0d 00 41 31 dd a4 53 28 4a 25 2c |,A%:...A1..S(J%,|
000008f0 46 25 29 3a 21 48 25 3d 4a 25 3a 48 25 21 34 3d |F%):!H%=J%:H%!4=|
00000900 46 25 3a c8 99 26 34 30 30 43 45 2c 2c 48 25 3a |F%:..&400CE,,H%:|
00000910 3d 48 25 21 32 38 0d 00 42 21 dd f2 5a 28 4a 25 |=H%!28..B!..Z(J%|
00000920 2c 46 25 2c 47 24 29 3a 24 a4 53 28 4a 25 2c 46 |,F%,G$):$.S(J%,F|
00000930 25 29 3d 47 24 3a e1 0d 00 43 38 dd f2 48 3a 43 |%)=G$:...C8..H:C|
00000940 79 25 3d 41 25 21 38 3a 46 25 3d 41 25 21 31 36 |y%=A%!8:F%=A%!16|
00000950 3a 4a 25 3d 41 25 21 31 32 3a 59 25 3d 41 25 21 |:J%=A%!12:Y%=A%!|
00000960 30 3a 54 25 3d 41 25 21 34 3a c8 8e 4a 25 ca 0d |0:T%=A%!4:..J%..|
00000970 00 44 0e c9 44 25 3a c8 8e 43 79 25 ca 0d 00 45 |.D..D%:..Cy%...E|
00000980 66 c9 34 3a 21 41 25 3d 50 25 3a c8 99 26 34 30 |f.4:!A%=P%:..&40|
00000990 30 43 42 2c 2c 41 25 3a 41 25 21 34 3d 59 25 2d |0CB,,A%:A%!4=Y%-|
000009a0 32 38 30 3a 41 25 21 31 32 3d 59 25 2b 32 38 30 |280:A%!12=Y%+280|
000009b0 3a 41 25 21 31 32 3d 54 25 2d 31 32 34 3a 41 25 |:A%!12=T%-124:A%|
000009c0 21 31 36 3d 54 25 2b 31 32 34 3a 41 25 21 32 38 |!16=T%+124:A%!28|
000009d0 3d 2d 31 3a c8 99 26 34 30 30 43 35 2c 2c 41 25 |=-1:..&400C5,,A%|
000009e0 3a f2 53 0d 00 46 21 c9 31 3a 21 41 25 3d 44 25 |:.S..F!.1:!A%=D%|
000009f0 3a 41 25 21 34 3d 31 3a c8 99 26 34 30 30 44 30 |:A%!4=1:..&400D0|
00000a00 2c 2c 41 25 0d 00 47 32 c9 32 3a f2 5a 28 43 25 |,,A%..G2.2:.Z(C%|
00000a10 2c 34 2c 22 50 68 69 6c 69 70 20 4d 65 6c 6c 6f |,4,"Philip Mello|
00000a20 72 22 29 3a f2 46 28 68 25 2c 21 41 25 2d 36 34 |r"):.F(h%,!A%-64|
00000a30 2c 41 25 21 34 29 0d 00 48 05 cb 0d 00 49 0d c9 |,A%!4)..H....I..|
00000a40 43 25 3a c8 8e 46 25 ca 0d 00 4a 0d c9 38 3a e7 |C%:..F%...J..8:.|
00000a50 55 25 3d a3 8c 0d 00 4b 1c 55 25 3d b9 3a 4d 3d |U%=....K.U%=.:M=|
00000a60 31 3a 53 3d 31 3a 4d 24 3d c4 33 31 2c 22 20 22 |1:S=1:M$=.31," "|
00000a70 29 0d 00 4c 2c cc 3a 55 25 3d a3 3a f2 5a 28 43 |)..L,.:U%=.:.Z(C|
00000a80 25 2c 34 2c 22 50 68 69 6c 69 70 20 4d 65 6c 6c |%,4,"Philip Mell|
00000a90 6f 72 22 29 3a f2 4d 28 43 25 2c 34 29 0d 00 4d |or"):.M(C%,4)..M|
00000aa0 05 cd 0d 00 4e 05 cb 0d 00 4f 0d c9 50 25 3a c8 |....N....O..P%:.|
00000ab0 8e 46 25 ca 0d 00 50 21 c9 30 3a 21 41 25 3d 50 |.F%...P!.0:!A%=P|
00000ac0 25 3a 41 25 21 34 3d 31 3a c8 99 26 34 30 30 44 |%:A%!4=1:..&400D|
00000ad0 30 2c 2c 41 25 0d 00 51 0e c9 34 3a f2 41 28 30 |0,,A%..Q..4:.A(0|
00000ae0 2c 34 29 0d 00 52 0f c9 35 3a f2 41 28 30 2c 2d |,4)..R..5:.A(0,-|
00000af0 34 29 0d 00 53 0f c9 36 3a f2 41 28 2d 34 2c 30 |4)..S..6:.A(-4,0|
00000b00 29 0d 00 54 0e c9 37 3a f2 41 28 34 2c 30 29 0d |)..T..7:.A(4,0).|
00000b10 00 55 0f c9 38 3a f2 41 28 2d 34 2c 34 29 0d 00 |.U..8:.A(-4,4)..|
00000b20 56 0f c9 31 30 3a f2 41 28 34 2c 34 29 0d 00 57 |V..10:.A(4,4)..W|
00000b30 10 c9 39 3a f2 41 28 2d 34 2c 2d 34 29 0d 00 58 |..9:.A(-4,-4)..X|
00000b40 10 c9 31 31 3a f2 41 28 34 2c 2d 34 29 0d 00 59 |..11:.A(4,-4)..Y|
00000b50 0f c9 31 35 3a f2 41 28 30 2c 30 29 0d 00 5a 14 |..15:.A(0,0)..Z.|
00000b60 c9 31 34 3a 67 25 3d a4 41 28 4a 25 2c 46 25 29 |.14:g%=.A(J%,F%)|
00000b70 0d 00 5b 13 c9 32 3a 49 25 3d a4 41 28 4a 25 2c |..[..2:I%=.A(J%,|
00000b80 46 25 29 0d 00 5c 14 c9 31 36 3a 62 25 3d a4 41 |F%)..\..16:b%=.A|
00000b90 28 4a 25 2c 46 25 29 0d 00 5d 17 c9 31 37 2c 31 |(J%,F%)..]..17,1|
00000ba0 38 3a f2 46 28 69 25 2c 59 25 2c 54 25 29 0d 00 |8:.F(i%,Y%,T%)..|
00000bb0 5e 05 cb 0d 00 5f 07 cb 3a e1 0d 00 60 1c dd f2 |^...._..:...`...|
00000bc0 41 28 59 25 2c 54 25 29 3a 4d 25 3d 59 25 3a 4c |A(Y%,T%):M%=Y%:L|
00000bd0 25 3d 54 25 3a e1 0d 00 61 4e dd a4 41 28 4a 25 |%=T%:...aN..A(J%|
00000be0 2c 46 25 29 3a ea 42 25 3a 42 25 3d 41 25 2b 39 |,F%):.B%:B%=A%+9|
00000bf0 30 30 3a 21 42 25 3d 4a 25 3a 42 25 21 34 3d 46 |00:!B%=J%:B%!4=F|
00000c00 25 3a c8 99 26 34 30 30 43 45 2c 2c 42 25 3a 3d |%:..&400CE,,B%:=|
00000c10 28 28 42 25 21 32 34 29 80 28 31 3c 3c 32 31 29 |((B%!24).(1<<21)|
00000c20 29 3c 3e 30 0d 00 62 49 dd f2 5f 3a de 41 25 32 |)<>0..bI.._:.A%2|
00000c30 30 30 30 2c 47 25 34 30 30 30 2c 5a 25 34 30 30 |000,G%4000,Z%400|
00000c40 30 2c 48 25 36 34 3a 77 25 3d 47 25 2b 34 30 30 |0,H%64:w%=G%+400|
00000c50 30 3a 61 25 3d a3 3a f2 4c 3a f2 47 3a f2 4b 3a |0:a%=.:.L:.G:.K:|
00000c60 f2 52 28 68 25 2c 30 2c 43 25 29 3a e1 0d 00 63 |.R(h%,0,C%):...c|
00000c70 fd dd f2 4c 3a c8 99 26 34 30 30 44 39 2c 2c 22 |...L:..&400D9,,"|
00000c80 3c 42 61 6c 6c 6f 6f 6e 24 44 69 72 3e 2e 54 65 |<Balloon$Dir>.Te|
00000c90 6d 70 6c 61 74 65 73 22 3a c8 99 26 34 30 30 44 |mplates":..&400D|
00000ca0 42 2c 2c 41 25 2c 47 25 2c 77 25 2c 2d 31 2c 22 |B,,A%,G%,w%,-1,"|
00000cb0 69 6e 66 6f 22 2c 30 b8 2c 2c 47 25 3a c8 99 26 |info",0.,,G%:..&|
00000cc0 34 30 30 43 31 2c 2c 41 25 b8 43 25 3a c8 99 26 |400C1,,A%.C%:..&|
00000cd0 34 30 30 44 42 2c 2c 41 25 2c 47 25 2c 77 25 2c |400DB,,A%,G%,w%,|
00000ce0 2d 31 2c 22 6f 70 74 73 22 2c 30 b8 2c 2c 47 25 |-1,"opts",0.,,G%|
00000cf0 3a c8 99 26 34 30 30 43 31 2c 2c 41 25 b8 50 25 |:..&400C1,,A%.P%|
00000d00 3a c8 99 26 34 30 30 44 42 2c 2c 41 25 2c 47 25 |:..&400DB,,A%,G%|
00000d10 2c 77 25 2c 2d 31 2c 22 73 68 61 64 6f 77 22 2c |,w%,-1,"shadow",|
00000d20 30 b8 2c 2c 47 25 3a c8 99 26 34 30 30 43 31 2c |0.,,G%:..&400C1,|
00000d30 2c 41 25 b8 71 25 3a c8 99 26 34 30 30 44 41 3a |,A%.q%:..&400DA:|
00000d40 41 25 21 30 3d 34 38 3a 41 25 21 34 3d 31 36 30 |A%!0=48:A%!4=160|
00000d50 3a 41 25 21 38 3d 34 38 2b 31 32 30 3a 41 25 21 |:A%!8=48+120:A%!|
00000d60 31 36 3d 31 36 30 2b 31 34 34 0d 00 64 fd 41 25 |16=160+144..d.A%|
00000d70 21 31 36 3d 30 3a 41 25 21 32 30 3d 30 3a 41 25 |!16=0:A%!20=0:A%|
00000d80 21 32 34 3d 2d 32 3a 41 25 21 32 38 3d 2d 26 37 |!24=-2:A%!28=-&7|
00000d90 46 46 46 46 37 41 45 3a 41 25 21 33 32 3d 26 46 |FFFF7AE:A%!32=&F|
00000da0 46 3a 41 25 3f 33 33 3d 34 3a 41 25 3f 33 34 3d |F:A%?33=4:A%?34=|
00000db0 34 3a 41 25 3f 33 35 3d 34 3a 41 25 3f 33 36 3d |4:A%?35=4:A%?36=|
00000dc0 34 3a 41 25 3f 33 37 3d 34 3a 41 25 3f 33 38 3d |4:A%?37=4:A%?38=|
00000dd0 34 3a 41 25 3f 33 39 3d 30 3a 41 25 21 34 30 3d |4:A%?39=0:A%!40=|
00000de0 30 3a 41 25 21 34 34 3d 2d 31 34 34 3a 41 25 21 |0:A%!44=-144:A%!|
00000df0 34 38 3d 31 32 30 3a 41 25 21 35 32 3d 30 3a 41 |48=120:A%!52=0:A|
00000e00 25 21 35 36 3d 26 38 30 30 30 30 30 30 30 3a 41 |%!56=&80000000:A|
00000e10 25 21 36 30 3d 36 3a 41 25 21 36 34 3d 57 25 3a |%!60=6:A%!64=W%:|
00000e20 41 25 21 36 38 3d 30 3a 24 28 41 25 2b 37 32 29 |A%!68=0:$(A%+72)|
00000e30 3d 22 77 69 6e 22 3a 41 25 21 38 34 3d 30 3a c8 |="win":A%!84=0:.|
00000e40 99 26 34 30 30 43 31 2c 2c 41 25 b8 44 25 3a 41 |.&400C1,,A%.D%:A|
00000e50 25 21 30 3d 44 25 3a 41 25 21 34 3d 30 3a 41 25 |%!0=D%:A%!4=0:A%|
00000e60 21 38 3d 2d 31 34 34 0d 00 65 48 41 25 21 31 32 |!8=-144..eHA%!12|
00000e70 3d 31 32 30 3a 41 25 21 31 36 3d 30 3a 41 25 21 |=120:A%!16=0:A%!|
00000e80 32 30 3d 26 34 30 30 30 36 30 31 41 3a 24 28 41 |20=&4000601A:$(A|
00000e90 25 2b 32 34 29 3d 22 6d 61 73 6b 22 3a c8 99 26 |%+24)="mask":..&|
00000ea0 34 30 30 43 32 2c 2c 41 25 b8 52 79 25 3a e1 0d |400C2,,A%.Ry%:..|
00000eb0 00 66 2b dd f2 52 28 66 25 2c 44 79 25 2c 56 79 |.f+..R(f%,Dy%,Vy|
00000ec0 25 29 3a 21 28 66 25 2b 32 38 2b 44 79 25 2a 32 |%):!(f%+28+Dy%*2|
00000ed0 34 2b 34 29 3d 56 79 25 3a e1 0d 00 67 0b dd f2 |4+4)=Vy%:...g...|
00000ee0 47 3a f7 2b 31 0d 00 68 19 dc 20 42 61 6c 6c 6f |G:.+1..h.. Ballo|
00000ef0 6f 6e 2c 49 6e 66 6f 2c 51 75 69 74 2c 2a 0d 00 |on,Info,Quit,*..|
00000f00 69 0b 68 25 3d a4 4d 3a e1 0d 00 6a 0b dd f2 4b |i.h%=.M:...j...K|
00000f10 3a f7 2b 31 0d 00 6b 3a dc 20 22 53 70 65 65 64 |:.+1..k:. "Speed|
00000f20 22 2c 22 46 61 73 74 65 73 74 22 2c 22 46 61 73 |","Fastest","Fas|
00000f30 74 22 2c 22 4d 65 64 69 75 6d 22 2c 22 53 6c 6f |t","Medium","Slo|
00000f40 77 22 2c 22 53 6c 6f 77 65 73 74 22 2c 2a 0d 00 |w","Slowest",*..|
00000f50 6c 0b 69 25 3d a4 4d 3a e1 0d 00 6d 6d dd a4 4d |l.i%=.M:...mm..M|
00000f60 3a 4e 25 3d 5a 25 3a f3 4a 24 3a 24 28 4e 25 29 |:N%=Z%:.J$:$(N%)|
00000f70 3d 4a 24 3a 4e 25 3f 31 32 3d 37 3a 4e 25 3f 31 |=J$:N%?12=7:N%?1|
00000f80 33 3d 32 3a 4e 25 3f 31 34 3d 37 3a 4e 25 3f 31 |3=2:N%?14=7:N%?1|
00000f90 35 3d 30 3a 4e 25 21 32 30 3d 34 34 3a 4e 25 21 |5=0:N%!20=44:N%!|
00000fa0 32 34 3d 30 3a 4b 25 3d a9 28 4a 24 29 2d 33 3a |24=0:K%=.(J$)-3:|
00000fb0 5a 25 2b 3d 32 38 3a f5 3a f3 5a 24 3a e7 5a 24 |Z%+=28:.:.Z$:.Z$|
00000fc0 3c 3e 22 2a 22 8c 0d 00 6e 1f 21 5a 25 3d 30 3a |<>"*"...n.!Z%=0:|
00000fd0 63 25 3d a3 3a 5f 25 3d a7 5a 24 2c 22 5f 22 29 |c%=.:_%=.Z$,"_")|
00000fe0 3a e7 5f 25 8c 0d 00 6f 27 53 24 3d c2 5a 24 2c |:._%...o'S$=.Z$,|
00000ff0 a9 28 5a 24 29 2d 5f 25 29 3a e7 a7 53 24 2c 22 |.(Z$)-_%):..S$,"|
00001000 54 22 29 21 5a 25 3d 21 5a 25 84 31 0d 00 70 16 |T")!Z%=!Z%.1..p.|
00001010 e7 a7 53 24 2c 22 44 22 29 21 5a 25 3d 21 5a 25 |..S$,"D")!Z%=!Z%|
00001020 84 32 0d 00 71 24 e7 a7 53 24 2c 22 57 22 29 21 |.2..q$..S$,"W")!|
00001030 5a 25 3d 21 5a 25 84 34 3a 63 25 3d b9 3a f3 75 |Z%=!Z%.4:c%=.:.u|
00001040 25 3a f3 4a 79 25 0d 00 72 16 e7 a7 53 24 2c 22 |%:.Jy%..r...S$,"|
00001050 4d 22 29 21 5a 25 3d 21 5a 25 84 38 0d 00 73 10 |M")!Z%=!Z%.8..s.|
00001060 5a 24 3d c0 5a 24 2c 5f 25 2d 31 29 0d 00 74 13 |Z$=.Z$,_%-1)..t.|
00001070 cd 3a e7 a9 5a 24 3e 4b 25 4b 25 3d a9 5a 24 0d |.:..Z$>K%K%=.Z$.|
00001080 00 75 10 5a 25 21 34 3d 2d 31 3a e7 63 25 8c 0d |.u.Z%!4=-1:.c%..|
00001090 00 76 34 5a 25 21 38 3d 26 37 30 30 46 31 32 31 |.v4Z%!8=&700F121|
000010a0 3a 5a 25 21 31 32 3d 75 25 3a 5a 25 21 31 36 3d |:Z%!12=u%:Z%!16=|
000010b0 2d 31 3a 5a 25 21 32 30 3d 4a 79 25 3a 24 75 25 |-1:Z%!20=Jy%:$u%|
000010c0 3d 5a 24 0d 00 77 0e cc 3a e7 a9 5a 24 3c 31 32 |=Z$..w..:..Z$<12|
000010d0 8c 0d 00 78 1d 5a 25 21 38 3d 26 37 30 30 30 30 |...x.Z%!8=&70000|
000010e0 32 31 3a 24 28 5a 25 2b 31 32 29 3d 5a 24 0d 00 |21:$(Z%+12)=Z$..|
000010f0 79 42 cc 3a 5a 25 21 38 3d 26 37 30 30 30 31 32 |yB.:Z%!8=&700012|
00001100 31 3a 5a 25 21 31 32 3d 47 25 3a 5a 25 21 31 36 |1:Z%!12=G%:Z%!16|
00001110 3d 2d 31 3a 5a 25 21 32 30 3d a9 5a 24 2b 31 3a |=-1:Z%!20=.Z$+1:|
00001120 24 47 25 3d 5a 24 3a 47 25 2b 3d a9 5a 24 2b 31 |$G%=Z$:G%+=.Z$+1|
00001130 0d 00 7a 05 cd 0d 00 7b 0c cd 3a 5a 25 2b 3d 32 |..z....{..:Z%+=2|
00001140 34 0d 00 7c 3d cd 3a fd 5a 24 3d 22 2a 22 3a 4e |4..|=.:.Z$="*":N|
00001150 25 21 31 36 3d 4b 25 2a 31 36 2b 33 32 3a 21 28 |%!16=K%*16+32:!(|
00001160 5a 25 2d 32 34 29 3d 21 28 5a 25 2d 32 34 29 84 |Z%-24)=!(Z%-24).|
00001170 26 38 30 3a 48 79 25 3d 5a 25 3a 3d 4e 25 0d 00 |&80:Hy%=Z%:=N%..|
00001180 7d 3f dd f2 46 28 66 25 2c 78 25 2c 73 25 29 3a |}?..F(f%,x%,s%):|
00001190 76 25 3d 66 25 3a 46 79 25 3d 78 25 3a 57 79 25 |v%=f%:Fy%=x%:Wy%|
000011a0 3d 73 25 3a c8 99 26 34 30 30 44 34 2c 2c 66 25 |=s%:..&400D4,,f%|
000011b0 2c 78 25 2c 73 25 3a 52 25 3d b9 3a e1 0d 00 7e |,x%,s%:R%=.:...~|
000011c0 4f dd f2 59 3a ea 42 25 3a 42 25 3d 41 25 2b 39 |O..Y:.B%:B%=A%+9|
000011d0 30 30 3a c8 99 26 34 30 30 43 46 2c 2c 42 25 3a |00:..&400CF,,B%:|
000011e0 41 79 25 3d 28 42 25 21 38 80 31 29 3a c8 99 26 |Ay%=(B%!8.1):..&|
000011f0 34 30 30 44 35 2c 2c 76 25 2c 41 25 2c 42 25 3a |400D5,,v%,A%,B%:|
00001200 60 25 3d 51 25 3a c8 8e 24 42 25 ca 0d 00 7f 10 |`%=Q%:..$B%.....|
00001210 c9 22 51 75 69 74 22 3a 61 25 3d b9 0d 00 80 13 |."Quit":a%=.....|
00001220 c9 22 46 61 73 74 65 73 74 22 3a 51 25 3d 30 0d |."Fastest":Q%=0.|
00001230 00 81 10 c9 22 46 61 73 74 22 3a 51 25 3d 31 0d |...."Fast":Q%=1.|
00001240 00 82 12 c9 22 4d 65 64 69 75 6d 22 3a 51 25 3d |...."Medium":Q%=|
00001250 32 0d 00 83 10 c9 22 53 6c 6f 77 22 3a 51 25 3d |2....."Slow":Q%=|
00001260 33 0d 00 84 13 c9 22 53 6c 6f 77 65 73 74 22 3a |3....."Slowest":|
00001270 51 25 3d 34 0d 00 85 27 cb 3a e7 51 25 3c 3e 60 |Q%=4...'.:.Q%<>`|
00001280 25 f2 5a 28 50 25 2c 31 37 2c 41 24 28 51 25 29 |%.Z(P%,17,A$(Q%)|
00001290 29 3a f2 4d 28 50 25 2c 31 37 29 0d 00 86 1b 52 |):.M(P%,17)....R|
000012a0 25 3d a3 3a e7 41 79 25 f2 46 28 76 25 2c 46 79 |%=.:.Ay%.F(v%,Fy|
000012b0 25 2c 57 79 25 29 0d 00 87 05 e1 0d 00 88 10 dd |%,Wy%)..........|
000012c0 f2 44 3a c8 8e 41 25 21 31 36 ca 0d 00 89 0b c9 |.D:..A%!16......|
000012d0 30 3a 61 25 3d b9 0d 00 8a 0e c9 26 34 30 30 43 |0:a%=......&400C|
000012e0 31 3a f2 4a 0d 00 8b 15 c9 26 34 30 30 43 39 3a |1:.J.....&400C9:|
000012f0 52 25 3d a3 3a 55 25 3d a3 0d 00 8c 0c c9 26 35 |R%=.:U%=......&5|
00001300 30 32 3a f2 49 0d 00 8d 07 cb 3a e1 0d 00 8e 14 |02:.I.....:.....|
00001310 dd a4 46 3a 21 41 25 3d 9f 3a c8 8e 21 41 25 ca |..F:!A%=.:..!A%.|
00001320 0d 00 8f 15 c9 31 3c 3c 33 30 3a 57 24 3d 22 22 |.....1<<30:W$=""|
00001330 3a 65 25 3d 31 0d 00 90 25 7f 57 24 3d 22 28 69 |:e%=1...%.W$="(i|
00001340 6e 74 65 72 6e 61 6c 20 63 6f 64 65 20 22 2b c3 |nternal code "+.|
00001350 9e 2b 22 29 22 3a 65 25 3d 32 0d 00 91 45 cb 3a |.+")":e%=2...E.:|
00001360 24 28 41 25 2b 34 29 3d f6 24 2b 57 24 2b bd 30 |$(A%+4)=.$+W$+.0|
00001370 3a c8 99 26 34 30 30 44 46 2c 41 25 2c 65 25 2c |:..&400DF,A%,e%,|
00001380 22 54 68 65 20 42 42 43 20 42 61 6c 6c 6f 6f 6e |"The BBC Balloon|
00001390 22 b8 2c 47 79 25 3a 3d 28 47 79 25 3d 32 29 0d |".,Gy%:=(Gy%=2).|
000013a0 00 92 30 dd f2 4e 28 59 79 25 29 3a 21 41 25 3d |..0..N(Yy%):!A%=|
000013b0 59 79 25 3a c8 99 26 34 30 30 43 42 2c 2c 41 25 |Yy%:..&400CB,,A%|
000013c0 3a c8 99 26 34 30 30 43 36 2c 2c 41 25 3a e1 0d |:..&400C6,,A%:..|
000013d0 00 93 7a dd f2 53 3a 21 41 25 3d 50 25 3a c8 99 |..z..S:!A%=P%:..|
000013e0 26 34 30 30 43 42 2c 2c 41 25 3a 21 41 25 3d 71 |&400CB,,A%:!A%=q|
000013f0 25 3a 41 25 21 34 3d 28 41 25 21 34 29 2b 31 32 |%:A%!4=(A%!4)+12|
00001400 3a 41 25 21 38 3d 28 41 25 21 38 29 2d 31 32 3a |:A%!8=(A%!8)-12:|
00001410 41 25 21 31 32 3d 28 41 25 21 31 32 29 2b 31 32 |A%!12=(A%!12)+12|
00001420 3a 41 25 21 31 36 3d 28 41 25 21 31 36 29 2d 31 |:A%!16=(A%!16)-1|
00001430 32 3a 41 25 21 32 38 3d 50 25 3a c8 99 26 34 30 |2:A%!28=P%:..&40|
00001440 30 43 35 2c 2c 41 25 3a e1 0d 00 94 33 dd f2 58 |0C5,,A%:....3..X|
00001450 28 6e 25 2c 78 25 2c 73 25 2c 55 79 25 29 3a c8 |(n%,x%,s%,Uy%):.|
00001460 99 34 36 2c 35 31 32 2b 33 34 2c 57 25 2c 6e 25 |.46,512+34,W%,n%|
00001470 2c 78 25 2c 73 25 2c 55 79 25 3a e1 0d 00 95 6f |,x%,s%,Uy%:....o|
00001480 dd f2 4f 28 6e 25 2c 78 25 2c 73 25 2c 4b 79 25 |..O(n%,x%,s%,Ky%|
00001490 2c 49 79 25 2c 51 79 25 2c 54 79 25 29 3a 21 56 |,Iy%,Qy%,Ty%):!V|
000014a0 25 3d 4b 79 25 3a 21 28 56 25 2b 34 29 3d 49 79 |%=Ky%:!(V%+4)=Iy|
000014b0 25 3a 21 28 56 25 2b 38 29 3d 51 79 25 3a 21 28 |%:!(V%+8)=Qy%:!(|
000014c0 56 25 2b 31 32 29 3d 54 79 25 3a c8 99 34 36 2c |V%+12)=Ty%:..46,|
000014d0 35 31 32 2b 35 32 2c 57 25 2c 6e 25 2c 78 25 2c |512+52,W%,n%,x%,|
000014e0 73 25 2c 30 2c 56 25 2c 30 3a e1 0d 00 96 5f dd |s%,0,V%,0:...._.|
000014f0 f2 4a 3a c8 99 35 33 2c 2d 31 2c 34 b8 2c 2c 50 |.J:..53,-1,4.,,P|
00001500 79 25 3a c8 99 35 33 2c 2d 31 2c 35 b8 2c 2c 42 |y%:..53,-1,5.,,B|
00001510 79 25 3a c8 99 35 33 2c 2d 31 2c 31 31 b8 2c 2c |y%:..53,-1,11.,,|
00001520 4e 79 25 3a c8 99 35 33 2c 2d 31 2c 31 32 b8 2c |Ny%:..53,-1,12.,|
00001530 2c 6b 25 3a 41 3d 4e 79 25 3c 3c 50 79 25 3a 5a |,k%:A=Ny%<<Py%:Z|
00001540 3d 6b 25 3c 3c 42 79 25 3a e1 0d 00 97 28 dd f2 |=k%<<By%:....(..|
00001550 42 28 6e 25 29 3a c8 99 34 36 2c 35 37 32 2c 57 |B(n%):..46,572,W|
00001560 25 2c 6e 25 2c 30 b8 4e 2c 43 2c 46 2c 57 3a 87 |%,n%,0.N,C,F,W:.|
00001570 3a e1 0d 00 98 22 dd f2 50 3a c8 99 34 36 2c 35 |:...."..P:..46,5|
00001580 37 32 2c 43 2c 46 2c 57 b8 4e 2c 43 2c 46 2c 57 |72,C,F,W.N,C,F,W|
00001590 3a 87 3a e1 0d 00 99 3b dd f2 49 3a 4a 25 3d 41 |:.:....;..I:J%=A|
000015a0 25 21 33 32 3a 46 25 3d 41 25 21 33 36 3a 41 24 |%!32:F%=A%!36:A$|
000015b0 3d 22 59 6f 75 27 72 65 20 77 61 74 63 68 69 6e |="You're watchin|
000015c0 67 20 42 42 43 20 31 2e 22 3a c8 8e 4a 25 ca 0d |g BBC 1.":..J%..|
000015d0 00 9a 3c c9 43 25 3a 41 24 3d 22 54 68 69 73 20 |..<.C%:A$="This |
000015e0 73 68 6f 77 73 20 69 6e 66 6f 72 6d 61 74 69 6f |shows informatio|
000015f0 6e 20 61 62 6f 75 74 20 74 68 65 20 70 72 6f 67 |n about the prog|
00001600 72 61 6d 2e 22 3a c8 8e 46 25 ca 0d 00 9b 2e c9 |ram.":..F%......|
00001610 30 2c 31 3a 41 24 3d 22 54 68 69 73 20 69 73 20 |0,1:A$="This is |
00001620 74 68 65 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 |the name of the |
00001630 70 72 6f 67 72 61 6d 2e 22 0d 00 9c 31 c9 32 2c |program."...1.2,|
00001640 33 3a 41 24 3d 22 54 68 69 73 20 69 73 20 74 68 |3:A$="This is th|
00001650 65 20 70 75 72 70 6f 73 65 20 6f 66 20 74 68 65 |e purpose of the|
00001660 20 70 72 6f 67 72 61 6d 2e 22 0d 00 9d 6b c9 34 | program."...k.4|
00001670 2c 35 3a 41 24 3d 22 54 68 69 73 20 69 73 20 74 |,5:A$="This is t|
00001680 68 65 20 61 75 74 68 6f 72 20 6f 66 20 74 68 65 |he author of the|
00001690 20 70 72 6f 67 72 61 6d 2e 22 3a e7 55 25 3d b9 | program.":.U%=.|
000016a0 8c 41 24 3d 22 48 6d 6d 6d 2e 20 54 68 69 73 20 |.A$="Hmmm. This |
000016b0 6c 6f 6f 6b 73 20 6c 69 6b 65 20 61 20 73 63 72 |looks like a scr|
000016c0 6f 6c 6c 69 6e 67 20 6d 65 73 73 61 67 65 2e 7c |olling message.||
000016d0 4d 22 2b 4d 24 0d 00 9e 38 c9 36 2c 37 3a 41 24 |M"+M$...8.6,7:A$|
000016e0 3d 22 54 68 69 73 20 69 73 20 74 68 65 20 76 65 |="This is the ve|
000016f0 72 73 69 6f 6e 20 6e 75 6d 62 65 72 20 6f 66 20 |rsion number of |
00001700 74 68 65 20 70 72 6f 67 72 61 6d 2e 22 0d 00 9f |the program."...|
00001710 3d c9 38 3a 41 24 3d 22 48 6d 6d 6d 2e 20 49 20 |=.8:A$="Hmmm. I |
00001720 77 6f 6e 64 65 72 20 77 68 61 74 20 68 61 70 70 |wonder what happ|
00001730 65 6e 73 20 69 66 20 49 20 63 6c 69 63 6b 20 74 |ens if I click t|
00001740 68 69 73 2e 2e 2e 2e 20 3f 22 0d 00 a0 05 cb 0d |his.... ?"......|
00001750 00 a1 8d c9 44 25 3a 41 24 3d 22 59 6f 75 27 72 |....D%:A$="You'r|
00001760 65 20 77 61 74 63 68 69 6e 67 20 42 42 43 20 31 |e watching BBC 1|
00001770 2e 7c 4d 43 6c 69 63 6b 20 53 45 4c 45 43 54 20 |.|MClick SELECT |
00001780 74 6f 20 6f 70 65 6e 20 74 68 65 20 63 6f 6e 74 |to open the cont|
00001790 72 6f 6c 20 70 61 6e 65 6c 2e 7c 4d 44 72 61 67 |rol panel.|MDrag|
000017a0 20 41 44 4a 55 53 54 20 74 6f 20 6d 6f 76 65 20 | ADJUST to move |
000017b0 74 68 65 20 62 61 6c 6c 6f 6f 6e 2e 7c 4d 43 6c |the balloon.|MCl|
000017c0 69 63 6b 20 4d 45 4e 55 20 66 6f 72 20 74 68 65 |ick MENU for the|
000017d0 20 6d 61 69 6e 20 6d 65 6e 75 2e 22 0d 00 a2 35 | main menu."...5|
000017e0 c9 50 25 3a 41 24 3d 22 54 68 69 73 20 69 73 20 |.P%:A$="This is |
000017f0 74 68 65 20 62 61 6c 6c 6f 6f 6e 20 63 6f 6e 74 |the balloon cont|
00001800 72 6f 6c 20 70 61 6e 65 6c 2e 22 3a c8 8e 46 25 |rol panel.":..F%|
00001810 ca 0d 00 a3 2d c9 30 3a 41 24 2b 3d 22 7c 4d 44 |....-.0:A$+="|MD|
00001820 72 61 67 20 53 45 4c 45 43 54 20 6f 72 20 41 44 |rag SELECT or AD|
00001830 4a 55 53 54 20 74 6f 20 6d 6f 76 65 2e 22 0d 00 |JUST to move."..|
00001840 a4 0f c9 30 3a 41 24 2b 3d 22 7c 4d 22 0d 00 a5 |...0:A$+="|M"...|
00001850 b0 c9 32 3a 41 24 2b 3d 22 7c 4d 57 68 65 6e 20 |..2:A$+="|MWhen |
00001860 73 65 6c 65 63 74 65 64 2c 20 74 68 65 20 62 61 |selected, the ba|
00001870 6c 6c 6f 6f 6e 20 63 61 6e 20 62 6f 75 6e 63 65 |lloon can bounce|
00001880 20 6f 66 66 20 74 68 65 20 6c 65 66 74 20 61 6e | off the left an|
00001890 64 20 72 69 67 68 74 20 65 64 67 65 73 20 6f 66 |d right edges of|
000018a0 20 74 68 65 20 73 63 72 65 65 6e 2e 20 57 68 65 | the screen. Whe|
000018b0 6e 20 75 6e 73 65 6c 65 63 74 65 64 2c 20 74 68 |n unselected, th|
000018c0 65 20 62 61 6c 6c 6f 6f 6e 20 63 61 6e 20 64 72 |e balloon can dr|
000018d0 69 66 74 20 6f 66 66 20 6f 6e 65 20 65 64 67 65 |ift off one edge|
000018e0 20 6f 66 20 74 68 65 20 73 63 72 65 65 6e 20 74 | of the screen t|
000018f0 6f 20 74 68 65 20 6f 74 68 65 72 2e 22 0d 00 a6 |o the other."...|
00001900 6d c9 31 34 3a 41 24 2b 3d 22 7c 4d 57 68 65 6e |m.14:A$+="|MWhen|
00001910 20 73 65 6c 65 63 74 65 64 2c 20 74 68 65 20 62 | selected, the b|
00001920 61 6c 6c 6f 6f 6e 20 63 61 6e 20 63 68 61 6e 67 |alloon can chang|
00001930 65 20 64 69 72 65 63 74 69 6f 6e 20 66 72 6f 6d |e direction from|
00001940 20 74 69 6d 65 20 74 6f 20 74 69 6d 65 2e 20 57 | time to time. W|
00001950 68 65 6e 20 75 6e 73 65 6c 65 63 74 65 64 2c 20 |hen unselected, |
00001960 69 74 20 77 6f 6e 27 74 2e 22 0d 00 a7 83 c9 31 |it won't.".....1|
00001970 36 3a 41 24 2b 3d 22 7c 4d 57 68 65 6e 20 73 65 |6:A$+="|MWhen se|
00001980 6c 65 63 74 65 64 2c 20 74 68 65 20 62 61 6c 6c |lected, the ball|
00001990 6f 6f 6e 20 72 6f 74 61 74 65 73 20 2d 20 69 74 |oon rotates - it|
000019a0 20 63 61 6e 20 73 6c 6f 77 20 74 68 65 20 64 65 | can slow the de|
000019b0 73 6b 74 6f 70 20 64 6f 77 6e 20 73 6c 69 67 68 |sktop down sligh|
000019c0 74 6c 79 20 73 6f 20 79 6f 75 20 6d 61 79 20 77 |tly so you may w|
000019d0 69 73 68 20 74 6f 20 74 75 72 6e 20 74 68 69 73 |ish to turn this|
000019e0 20 6f 70 74 69 6f 6e 20 6f 66 66 2e 22 0d 00 a8 | option off."...|
000019f0 5a c9 31 37 3a 41 24 2b 3d 22 7c 4d 54 68 69 73 |Z.17:A$+="|MThis|
00001a00 20 73 68 6f 77 73 20 74 68 65 20 73 70 65 65 64 | shows the speed|
00001a10 20 6f 66 20 74 68 65 20 70 72 6f 67 72 61 6d 2e | of the program.|
00001a20 20 59 6f 75 20 63 61 6e 20 63 68 61 6e 67 65 20 | You can change |
00001a30 69 74 20 62 79 20 63 6c 69 63 6b 69 6e 67 20 53 |it by clicking S|
00001a40 45 4c 45 43 54 2e 22 0d 00 a9 40 c9 31 38 3a 41 |ELECT."...@.18:A|
00001a50 24 2b 3d 22 7c 4d 43 6c 69 63 6b 20 53 45 4c 45 |$+="|MClick SELE|
00001a60 43 54 20 74 6f 20 63 68 61 6e 67 65 20 74 68 65 |CT to change the|
00001a70 20 73 70 65 65 64 20 6f 66 20 74 68 65 20 70 72 | speed of the pr|
00001a80 6f 67 72 61 6d 2e 22 0d 00 aa 3d c9 31 35 3a 41 |ogram."...=.15:A|
00001a90 24 2b 3d 22 7c 4d 43 6c 69 63 6b 20 53 45 4c 45 |$+="|MClick SELE|
00001aa0 43 54 20 74 6f 20 73 74 6f 70 20 74 68 65 20 62 |CT to stop the b|
00001ab0 61 6c 6c 6f 6f 6e 20 66 72 6f 6d 20 6d 6f 76 69 |alloon from movi|
00001ac0 6e 67 2e 22 0d 00 ab 52 c9 34 2c 35 2c 36 2c 37 |ng."...R.4,5,6,7|
00001ad0 2c 38 2c 39 2c 31 30 2c 31 31 3a 41 24 2b 3d 22 |,8,9,10,11:A$+="|
00001ae0 7c 4d 43 6c 69 63 6b 20 53 45 4c 45 43 54 20 74 ||MClick SELECT t|
00001af0 6f 20 6d 6f 76 65 20 74 68 65 20 62 61 6c 6c 6f |o move the ballo|
00001b00 6f 6e 20 69 6e 20 74 68 69 73 20 64 69 72 65 63 |on in this direc|
00001b10 74 69 6f 6e 2e 22 0d 00 ac 05 cb 0d 00 ad 47 cb |tion."........G.|
00001b20 3a 41 25 21 30 30 3d 32 35 36 3a 41 25 21 31 32 |:A%!00=256:A%!12|
00001b30 3d 41 25 21 38 3a 41 25 21 31 36 3d 26 35 30 33 |=A%!8:A%!16=&503|
00001b40 3a 24 28 41 25 2b 32 30 29 3d 41 24 3a c8 99 26 |:$(A%+20)=A$:..&|
00001b50 34 30 30 45 37 2c 31 37 2c 41 25 2c 41 25 21 34 |400E7,17,A%,A%!4|
00001b60 3a e1 0d ff |:...|
00001b64 
.