Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape07a_acorn_eu_1990_january.wav » BOUNCE

BOUNCE

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 » Personal collection » Acorn tapes » Electron_User » Electron_User_tape07a_acorn_eu_1990_january.wav
Filename: BOUNCE
Read OK: ✔
File size: 14BC bytes
Load address: 2000
Exec address: 1900
Duplicates

There are 2 duplicate copies of this file in the archive:

File contents
   10 REM Bounce
   20 REM By Nicholas Darwin
   30 REM (c) Electron User
   40 MODE 5
   50 VDU 23,1,0;0;0;0;
   60 GOSUB 700
   70 REV=0
   80 VDU 23,240,255,129,129,129,129,129,129,255
   90 GOTO 110
  100 VDU 23,240,0,0,252,4,4,228,36,36
  110 VDU 23,224,255,255,255,255,255,255,255,255
  120 VDU 23,225,255,0,255,0,255,0,255,0
  130 VDU 23,226,85,170,85,170,85,170,85,170
  140 VDU 23,227,85,85,85,85,85,85,85,85
  150 VDU 23,241,255,129,137,129,137,129,137,255
  160 VDU 23,242,126,188,216,224,224,216,188,126
  170 REM VDU 23,240,0,0,0,0,0,0,0,0
  180 VDU 23,228,0,0,0,24,24,0,0,0
  190 VDU 23,229,0,0,60,126,126,126,60,0
  200 VDU 23,230,60,126,255,255,255,255,126,60
  210 PROCstart_up
  220 VDU 19,1,6;0;
  230 FL=1
  240 STI=0
  250 X=10
  260 ZX=0
  270 FLA=0
  280 E=0:F=0
  290 HI=0
  300 CO=0
  310 ZX=X
  320 FOR DELAY=1 TO 200:NEXT
  330 IF CO=324 END
  340 STI=STI-1
  350 IF STI<0 STI=0
  360 F=E
  370 IF FLA=1 HI=HI+1:IF HI>1 FLA=2:GOTO 390
  380 IF FLA=2 HI=HI-1:IF HI=0 FLA=0:SOUND 0,-15,4,1
  390 IF REV=1 THEN 430
  400 IF INKEY(-98) AND HI=0 X=X-1:IF X<1 X=1
  410 IF INKEY(-67) AND HI=0 X=X+1:IF X>18 X=18
  420 GOTO 450
  430 IF INKEY(-67) AND HI=0 X=X-1:IF X<1 X=1
  440 IF INKEY(-98) AND HI=0 X=X+1:IF X>18 X=18
  450 REM
  460 IF INKEY(-99) AND HI=0 AND STI=0 THEN FLA=1
  470 E=ASC FNreadcharacter(X,19)
  480 IF FL=1 C=LE(1,CO):CO=CO+1:FL=2 ELSE FL=1
  490 COLOUR 2:PRINT TAB(1,0);A$(C)
  500 PRINT TAB(0,0);:VDU 11
  510 IF CHR$ E=CHR$ 146 GOTO1420
  520 IF HI>0 GOTO 580
  530 IF CHR$ E=CHR$ 128 GOTO1420
  540 IF CHR$ E=CHR$ 129 HI=0:FLA=1
  550 IF CHR$ E=CHR$ 130 STI=35
  560 IF CHR$ E=CHR$ 131 AND REV=1 REV=0:SOUND 1,-15,120,1:GOTO 580
  570 IF CHR$ E=CHR$ 131 AND REV=0 REV=1:SOUND 1,-15,120,1
  580 REM
  590 COLOUR2:PRINT TAB(ZX,21);CHR$ F:COLOUR1:PRINT TAB(X,20);CHR$ (228+HI)
  600 VDU4
  610 GOTO 310
  620 REM ******************
  630 DEF FNreadcharacter(c%,r%)
  640 X%=POS:Y%=VPOS
  650 VDU 31,c%,r%
  660 A%=135
  670 C%=(USR(&FFF4) AND &FF00) DIV &100
  680 VDU 31,c%,r%
  690 =CHR$C%
  700 M$=CHR$ 224+CHR$ 224:N$=CHR$ 225+CHR$ 225:O$=CHR$ 226+CHR$ 226:P$=CHR$ 227+CHR$ 227:Q$=CHR$ 240+CHR$ 240:R$=CHR$ 242+CHR$ 242
  710 DIM A$(25),LE(1,330)
  720 A$(1)=Q$+Q$+M$+M$+M$+M$+M$+Q$+Q$
  730 A$(2)=N$+M$+N$+M$+N$+M$+N$+M$+N$
  740 A$(3)=M$+M$+M$+Q$+Q$+Q$+Q$+M$+M$
  750 A$(12)=Q$+Q$+Q$+O$+Q$+Q$+O$+Q$+Q$
  760 A$(4)=M$+M$+M$+M$+M$+M$+M$+M$+M$
  770 A$(5)=Q$+Q$+P$+Q$+Q$+P$+Q$+Q$+P$
  780 A$(6)=M$+Q$+N$+Q$+P$+M$+Q$+N$+Q$
  790 A$(7)=Q$+Q$+Q$+Q$+M$+Q$+Q$+Q$+Q$
  800 A$(8)=M$+Q$+Q$+M$+M$+M$+Q$+Q$+M$
  810 A$(9)=Q$+Q$+Q$+Q$+Q$+Q$+Q$+Q$+Q$
  820 A$(10)=Q$+Q$+Q$+Q$+M$+M$+M$+M$+M$
  830 A$(11)=M$+M$+M$+M$+M$+Q$+Q$+Q$+Q$
  840 A$(13)=N$+N$+N$+N$+N$+N$+N$+N$+N$
  850 A$(14)=M$+M$+M$+M$+Q$+M$+M$+M$+M$
  860 A$(15)=O$+O$+O$+O$+O$+O$+O$+O$+O$
  870 A$(16)=Q$+Q$+Q$+N$+Q$+Q$+O$+Q$+Q$
  880 A$(17)=Q$+Q$+Q$+R$+R$+R$+R$+R$+R$
  890 A$(18)=R$+R$+R$+R$+R$+R$+Q$+Q$+Q$
  900 A$(19)=Q$+Q$+Q$+R$+R$+R$+Q$+Q$+Q$
  910 A$(20)=R$+R$+R$+Q$+Q$+Q$+R$+R$+R$
  920 A$(21)=R$+Q$+R$+Q$+R$+Q$+R$+Q$+R$
  930 A$(22)=Q$+R$+Q$+R$+Q$+R$+Q$+R$+Q$
  940 A$(23)=M$+M$+M$+M$+Q$+M$+M$+M$+M$
  950 A$(24)=CHR$240+CHR$240+CHR$240+"***FINISH***"+CHR$240+CHR$240+CHR$240
  960 FOR A=1 TO 330
  970 READ LE(1,A)
  980 NEXT
  990 DATA 1,9,1,9,9,2,5,3,4,6,2,8,9,9,9,9,10,9,9,9,11,9,4,12,1,9,9,9,3,3,4,6,13,14,9,9,13,14,9,9,3,3,3,9,9,1,1,8,9,9,9,1,1,12,15,15,9,9,1,1,15,9,9,3,3,9,9,9
 1000 DATA 16,4,9,9,12,12,11,11,9,9,9,10,10,9,9,9,1,1,4,9,9,4,9,9,4,9,9,5,6,7,4,9,9,6,5,9,3,2,1
 1010 DATA 9,9,8,1,8,1,1,8,8,10,9,9,11,9,9,5,9,6,1,9,9,10,9,9,8,8,10,10,9,9,4,1,9,9,9,4,9,4,9,9,11,11,9,9,9,10,10,4
 1020 DATA 9,9,20,9,9,9,19,9,9,4,9,9,18,9,9,9,17,9,4,9,15,9,9,4,7,8,9,9,10,19,6,9,4,5,9,9
 1030 DATA 1,9,2,9,9,3,9,9,12,5,8,9,9,20,4,22,9,21,9,22,9,21,9,4,9,9,4,9,4,9,11,9,9,9,22,9,22,9,21,9,22,9,21,9,21,9,22,9,22,9,22,9,21,9,22,9,21,9,22,9,9,4,9,4,9,9,4,9,9,9,9,9,2,22
 1040 DATA 15,15,9,9,9,9,9,9,23,9,9,9,19,3,9,22,9,9,21,16,9,9,4,1,12,9,5,9,8,11
 1050 DATA 9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,24,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9
 1060 RETURN
 1070 DEF PROCstart_up
 1080 COLOUR 3
 1090 CLS
 1100 GCOL 0,1
 1110 X=500:Y=500:R=200
 1120 MOVEX,Y+R
 1130 FOR I=0 TO 2*PI STEP PI/10
 1140 DRAW X+R*SINI,Y+R*COSI
 1150 NEXT
 1160 FOR A=1 TO19
 1170 PRINT TAB(A,1);CHR$225
 1180 PRINT TAB(A,29);CHR$225
 1190 NEXT
 1200 FOR A=1 TO 29
 1210 PRINT TAB(1,A);CHR$227
 1220 PRINT TAB(19,A);CHR$227
 1230 NEXT
 1240 PRINT TAB(6,14);CHR$229+CHR$32+CHR$229
 1250 MOVE 450,450
 1260 DRAW 550,450
 1270 DRAW 520,420
 1280 DRAW480,420
 1290 DRAW450,450 
 1300 GCOL 0,2
 1310 PRINT TAB(2,28);"I-Inst. S-start"
 1320 MOVE 280,900:DRAW 280,800:DRAW 320,850:DRAW 280,900:DRAW 280,850:DRAW 320,850
 1330 MOVE 380,900:DRAW 350,850:DRAW 380,800:DRAW 410,850:DRAW 380,900
 1340 MOVE 440,900:DRAW 440,800:MOVE 470,800:DRAW 470,900:DRAW 510,800:DRAW510,900
 1350 MOVE 560,900:DRAW 540,850:DRAW560,800:DRAW 580,850:DRAW 570,850:DRAW590,850
 1360 SOUND 1,-15,120,3:SOUND 1,-15,110,3:SOUND 1,-15,120,3:SOUND 1,-15,110,3
 1370 SOUND 1,-15,120,3:SOUND 1,-15,110,3:SOUND 1,-15,120,3
 1380 SOUND 1,-15,60,3:SOUND 1,-15,50,3:SOUND 1,-15,60,3:SOUND 1,-15,50,3:SOUND 1,-15,60,3
 1390 SOUND 1,-15,50,3:SOUND 1,-15,60,3:SOUND 1,-15,50,3:SOUND 1,-15,60,3:SOUND 1,-15,60,3:SOUND 1,-15,70,3:SOUND 1,-15,60,3:SOUND 1,-15,65,3
 1400 k$=INKEY$0:IF k$="I" PROCinstruct:GOTO1070
 1410 IF k$="S" CLS:ENDPROC ELSE GOTO 1400
 1420 CLS
 1430 TT=(CO/324)*100
 1440 PRINT TAB(4,8);"Oh dear!"
 1450 PRINT TAB(2,12);"Completed ";INT(TT);"%"
 1460 IF TT<30 COLOUR1:PRINT TAB(4,18);"RUBBISH!!" ELSE IF TT<60 COLOUR 2:PRINT TAB(4,18);"PUNY!!" ELSE IF TT<80 COLOUR3:PRINT TAB(4,18);"OKAY" ELSE IF TT<100 COLOUR 1:PRINT TAB(4,18);"NOT BAD!"
 1470 SOUND 1,-15,60,2
 1480 SOUND 1,-15,64,4
 1490 FOR T=60 TO 40 STEP -5
 1500 SOUND 1,-15,T,3
 1510 NEXT
 1520 FOR G=1 TO 2000:NEXT
 1530 GOTO 70
 1540 DEF PROCinstruct
 1550 VDU22,4:PRINTTAB(10,2);"INSTRUCTIONS"
 1560 PRINT TAB(0,5)"You control Bertie Bounce, the little":PRINT:PRINT"blue ball. He decided to take a short":PRINT:PRINT"cut home through concrete city, but"
 1570 PRINT:PRINT"unfortunately, he forgot it was a":PRINT:PRINT"dangerous place"
 1580 PRINT:PRINT"Can you get him home?":PRINT:PRINT"I doubt it!"
 1590 GO=GET:VDU22,5:PRINT
 1600 PRINT "Special blocks...":PRINT'CHR$224;" needs to be jumped":PRINT'CHR$225;" makes you jump":PRINT'CHR$226;" makes you sticky":PRINT'CHR$227;" makes you drunk!":PRINT'CHR$242;" is unjumpable"
 1610 PRINT:PRINT"Z=Left  X=Right"
 1620 PRINT"Space=Jump":PRINT:PRINT"By N.Darwin"
 1630 GO=GET:CLS
 1640 ENDPROC



 � Bounce
 � By Nicholas Darwin
 � (c) Electron User
( � 5
2 � 23,1,0;0;0;0;
< � �t|B
F
 REV=0
P- � 23,240,255,129,129,129,129,129,129,255
Z � �Dn@
d# � 23,240,0,0,252,4,4,228,36,36
n- � 23,224,255,255,255,255,255,255,255,255
x% � 23,225,255,0,255,0,255,0,255,0
�) � 23,226,85,170,85,170,85,170,85,170
�% � 23,227,85,85,85,85,85,85,85,85
�- � 23,241,255,129,137,129,137,129,137,255
�- � 23,242,126,188,216,224,224,216,188,126
�! � VDU 23,240,0,0,0,0,0,0,0,0
� � 23,228,0,0,0,24,24,0,0,0
�% � 23,229,0,0,60,126,126,126,60,0
�+ � 23,230,60,126,255,255,255,255,126,60
� �start_up
� � 19,1,6;0;
�	 FL=1
�
 STI=0
�	 X=10
	 ZX=0

 FLA=0
 E=0:F=0
"	 HI=0
,	 CO=0
6	 ZX=X
@ � DELAY=1 � 200:�
J � CO=324 �
T STI=STI-1
^ � STI<0 STI=0
h F=E
r( � FLA=1 HI=HI+1:� HI>1 FLA=2:� �tFA
|- � FLA=2 HI=HI-1:� HI=0 FLA=0:� 0,-15,4,1
� � REV=1 � �tnA
�$ � �(-98) � HI=0 X=X-1:� X<1 X=1
�& � �(-67) � HI=0 X=X+1:� X>18 X=18
� � �dBA
�$ � �(-67) � HI=0 X=X-1:� X<1 X=1
�& � �(-98) � HI=0 X=X+1:� X>18 X=18
� �
�$ � �(-99) � HI=0 � STI=0 � FLA=1
� E=� �readcharacter(X,19)
�* � FL=1 C=LE(1,CO):CO=CO+1:FL=2 � FL=1
� � 2:� �1,0);A$(C)
� � �0,0);:� 11
� � � E=� 146 �tLE
 � HI>0 � �DDB
 � � E=� 128 �tLE
 � � E=� 129 HI=0:FLA=1
& � � E=� 130 STI=35
03 � � E=� 131 � REV=1 REV=0:� 1,-15,120,1:� �DDB
:, � � E=� 131 � REV=0 REV=1:� 1,-15,120,1
D �
N, �2:� �ZX,21);� F:�1:� �X,20);� (228+HI)
X �4
b � �TvA
l � ******************
v � �readcharacter(c%,r%)
� X%=�:Y%=�
� � 31,c%,r%
� A%=135
�! C%=(�(&FFF4) � &FF00) � &100
� � 31,c%,r%
�	 =�C%
�^ M$=� 224+� 224:N$=� 225+� 225:O$=� 226+� 226:P$=� 227+� 227:Q$=� 240+� 240:R$=� 242+� 242
� � A$(25),LE(1,330)
�% A$(1)=Q$+Q$+M$+M$+M$+M$+M$+Q$+Q$
�% A$(2)=N$+M$+N$+M$+N$+M$+N$+M$+N$
�% A$(3)=M$+M$+M$+Q$+Q$+Q$+Q$+M$+M$
�& A$(12)=Q$+Q$+Q$+O$+Q$+Q$+O$+Q$+Q$
�% A$(4)=M$+M$+M$+M$+M$+M$+M$+M$+M$
% A$(5)=Q$+Q$+P$+Q$+Q$+P$+Q$+Q$+P$
% A$(6)=M$+Q$+N$+Q$+P$+M$+Q$+N$+Q$
% A$(7)=Q$+Q$+Q$+Q$+M$+Q$+Q$+Q$+Q$
 % A$(8)=M$+Q$+Q$+M$+M$+M$+Q$+Q$+M$
*% A$(9)=Q$+Q$+Q$+Q$+Q$+Q$+Q$+Q$+Q$
4& A$(10)=Q$+Q$+Q$+Q$+M$+M$+M$+M$+M$
>& A$(11)=M$+M$+M$+M$+M$+Q$+Q$+Q$+Q$
H& A$(13)=N$+N$+N$+N$+N$+N$+N$+N$+N$
R& A$(14)=M$+M$+M$+M$+Q$+M$+M$+M$+M$
\& A$(15)=O$+O$+O$+O$+O$+O$+O$+O$+O$
f& A$(16)=Q$+Q$+Q$+N$+Q$+Q$+O$+Q$+Q$
p& A$(17)=Q$+Q$+Q$+R$+R$+R$+R$+R$+R$
z& A$(18)=R$+R$+R$+R$+R$+R$+Q$+Q$+Q$
�& A$(19)=Q$+Q$+Q$+R$+R$+R$+Q$+Q$+Q$
�& A$(20)=R$+R$+R$+Q$+Q$+Q$+R$+R$+R$
�& A$(21)=R$+Q$+R$+Q$+R$+Q$+R$+Q$+R$
�& A$(22)=Q$+R$+Q$+R$+Q$+R$+Q$+R$+Q$
�& A$(23)=M$+M$+M$+M$+Q$+M$+M$+M$+M$
�8 A$(24)=�240+�240+�240+"***FINISH***"+�240+�240+�240
� � A=1 � 330
� � LE(1,A)
� �
ޙ � 1,9,1,9,9,2,5,3,4,6,2,8,9,9,9,9,10,9,9,9,11,9,4,12,1,9,9,9,3,3,4,6,13,14,9,9,13,14,9,9,3,3,3,9,9,1,1,8,9,9,9,1,1,12,15,15,9,9,1,1,15,9,9,3,3,9,9,9
�[ � 16,4,9,9,12,12,11,11,9,9,9,10,10,9,9,9,1,1,4,9,9,4,9,9,4,9,9,5,6,7,4,9,9,6,5,9,3,2,1
�o � 9,9,8,1,8,1,1,8,8,10,9,9,11,9,9,5,9,6,1,9,9,10,9,9,8,8,10,10,9,9,4,1,9,9,9,4,9,4,9,9,11,11,9,9,9,10,10,4
�U � 9,9,20,9,9,9,19,9,9,4,9,9,18,9,9,9,17,9,4,9,15,9,9,4,7,8,9,9,10,19,6,9,4,5,9,9
� � 1,9,2,9,9,3,9,9,12,5,8,9,9,20,4,22,9,21,9,22,9,21,9,4,9,9,4,9,4,9,11,9,9,9,22,9,22,9,21,9,22,9,21,9,21,9,22,9,22,9,22,9,21,9,22,9,21,9,22,9,9,4,9,4,9,9,4,9,9,9,9,9,2,22
K � 15,15,9,9,9,9,9,9,23,9,9,9,19,3,9,22,9,9,21,16,9,9,4,1,12,9,5,9,8,11
M � 9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,24,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9
$ �
. � �start_up
8 � 3
B �
L
 � 0,1
V X=500:Y=500:R=200
` �X,Y+R
j � I=0 � 2*� � �/10
t � X+R*�I,Y+R*�I
~ �
� � A=1 �19
� � �A,1);�225
� � �A,29);�225
� �
� � A=1 � 29
� � �1,A);�227
� � �19,A);�227
� �
� � �6,14);�229+�32+�229
� � 450,450
� � 550,450
� � 520,420

 �480,420

 �450,450 

 � 0,2
 � �2,28);"I-Inst. S-start"
(@ � 280,900:� 280,800:� 320,850:� 280,900:� 280,850:� 320,850
26 � 380,900:� 350,850:� 380,800:� 410,850:� 380,900
<? � 440,900:� 440,800:� 470,800:� 470,900:� 510,800:�510,900
F> � 560,900:� 540,850:�560,800:� 580,850:� 570,850:�590,850
P< � 1,-15,120,3:� 1,-15,110,3:� 1,-15,120,3:� 1,-15,110,3
Z. � 1,-15,120,3:� 1,-15,110,3:� 1,-15,120,3
dE � 1,-15,60,3:� 1,-15,50,3:� 1,-15,60,3:� 1,-15,50,3:� 1,-15,60,3
nl � 1,-15,50,3:� 1,-15,60,3:� 1,-15,50,3:� 1,-15,60,3:� 1,-15,60,3:� 1,-15,70,3:� 1,-15,60,3:� 1,-15,65,3
x# k$=�0:� k$="I" �instruct:�TnD
� � k$="S" �:� � � �DxE
� �
� TT=(CO/324)*100
� � �4,8);"Oh dear!"
�$ � �2,12);"Completed ";�(TT);"%"
�� � TT<30 �1:� �4,18);"RUBBISH!!" � � TT<60 � 2:� �4,18);"PUNY!!" � � TT<80 �3:� �4,18);"OKAY" � � TT<100 � 1:� �4,18);"NOT BAD!"
� � 1,-15,60,2
� � 1,-15,64,4
� � T=60 � 40 � -5
� � 1,-15,T,3
� �
� � G=1 � 2000:�
� � �DF@
 � �instruct
! �22,4:�10,2);"INSTRUCTIONS"
� � �0,5)"You control Bertie Bounce, the little":�:�"blue ball. He decided to take a short":�:�"cut home through concrete city, but"
"@ �:�"unfortunately, he forgot it was a":�:�"dangerous place"
,0 �:�"Can you get him home?":�:�"I doubt it!"
6 GO=�:�22,5:�
@� � "Special blocks...":�'�224;" needs to be jumped":�'�225;" makes you jump":�'�226;" makes you sticky":�'�227;" makes you drunk!":�'�242;" is unjumpable"
J �:�"Z=Left  X=Right"
T# �"Space=Jump":�:�"By N.Darwin"
^ GO=�:�
h �
�
00000000  0d 00 0a 0d 20 f4 20 42  6f 75 6e 63 65 0d 00 14  |.... . Bounce...|
00000010  19 20 f4 20 42 79 20 4e  69 63 68 6f 6c 61 73 20  |. . By Nicholas |
00000020  44 61 72 77 69 6e 0d 00  1e 18 20 f4 20 28 63 29  |Darwin.... . (c)|
00000030  20 45 6c 65 63 74 72 6f  6e 20 55 73 65 72 0d 00  | Electron User..|
00000040  28 08 20 eb 20 35 0d 00  32 14 20 ef 20 32 33 2c  |(. . 5..2. . 23,|
00000050  31 2c 30 3b 30 3b 30 3b  30 3b 0d 00 3c 0b 20 e4  |1,0;0;0;0;..<. .|
00000060  20 8d 74 7c 42 0d 00 46  0a 20 52 45 56 3d 30 0d  | .t|B..F. REV=0.|
00000070  00 50 2d 20 ef 20 32 33  2c 32 34 30 2c 32 35 35  |.P- . 23,240,255|
00000080  2c 31 32 39 2c 31 32 39  2c 31 32 39 2c 31 32 39  |,129,129,129,129|
00000090  2c 31 32 39 2c 31 32 39  2c 32 35 35 0d 00 5a 0b  |,129,129,255..Z.|
000000a0  20 e5 20 8d 44 6e 40 0d  00 64 23 20 ef 20 32 33  | . .Dn@..d# . 23|
000000b0  2c 32 34 30 2c 30 2c 30  2c 32 35 32 2c 34 2c 34  |,240,0,0,252,4,4|
000000c0  2c 32 32 38 2c 33 36 2c  33 36 0d 00 6e 2d 20 ef  |,228,36,36..n- .|
000000d0  20 32 33 2c 32 32 34 2c  32 35 35 2c 32 35 35 2c  | 23,224,255,255,|
000000e0  32 35 35 2c 32 35 35 2c  32 35 35 2c 32 35 35 2c  |255,255,255,255,|
000000f0  32 35 35 2c 32 35 35 0d  00 78 25 20 ef 20 32 33  |255,255..x% . 23|
00000100  2c 32 32 35 2c 32 35 35  2c 30 2c 32 35 35 2c 30  |,225,255,0,255,0|
00000110  2c 32 35 35 2c 30 2c 32  35 35 2c 30 0d 00 82 29  |,255,0,255,0...)|
00000120  20 ef 20 32 33 2c 32 32  36 2c 38 35 2c 31 37 30  | . 23,226,85,170|
00000130  2c 38 35 2c 31 37 30 2c  38 35 2c 31 37 30 2c 38  |,85,170,85,170,8|
00000140  35 2c 31 37 30 0d 00 8c  25 20 ef 20 32 33 2c 32  |5,170...% . 23,2|
00000150  32 37 2c 38 35 2c 38 35  2c 38 35 2c 38 35 2c 38  |27,85,85,85,85,8|
00000160  35 2c 38 35 2c 38 35 2c  38 35 0d 00 96 2d 20 ef  |5,85,85,85...- .|
00000170  20 32 33 2c 32 34 31 2c  32 35 35 2c 31 32 39 2c  | 23,241,255,129,|
00000180  31 33 37 2c 31 32 39 2c  31 33 37 2c 31 32 39 2c  |137,129,137,129,|
00000190  31 33 37 2c 32 35 35 0d  00 a0 2d 20 ef 20 32 33  |137,255...- . 23|
000001a0  2c 32 34 32 2c 31 32 36  2c 31 38 38 2c 32 31 36  |,242,126,188,216|
000001b0  2c 32 32 34 2c 32 32 34  2c 32 31 36 2c 31 38 38  |,224,224,216,188|
000001c0  2c 31 32 36 0d 00 aa 21  20 f4 20 56 44 55 20 32  |,126...! . VDU 2|
000001d0  33 2c 32 34 30 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |3,240,0,0,0,0,0,|
000001e0  30 2c 30 2c 30 0d 00 b4  1f 20 ef 20 32 33 2c 32  |0,0,0.... . 23,2|
000001f0  32 38 2c 30 2c 30 2c 30  2c 32 34 2c 32 34 2c 30  |28,0,0,0,24,24,0|
00000200  2c 30 2c 30 0d 00 be 25  20 ef 20 32 33 2c 32 32  |,0,0...% . 23,22|
00000210  39 2c 30 2c 30 2c 36 30  2c 31 32 36 2c 31 32 36  |9,0,0,60,126,126|
00000220  2c 31 32 36 2c 36 30 2c  30 0d 00 c8 2b 20 ef 20  |,126,60,0...+ . |
00000230  32 33 2c 32 33 30 2c 36  30 2c 31 32 36 2c 32 35  |23,230,60,126,25|
00000240  35 2c 32 35 35 2c 32 35  35 2c 32 35 35 2c 31 32  |5,255,255,255,12|
00000250  36 2c 36 30 0d 00 d2 0e  20 f2 73 74 61 72 74 5f  |6,60.... .start_|
00000260  75 70 0d 00 dc 10 20 ef  20 31 39 2c 31 2c 36 3b  |up.... . 19,1,6;|
00000270  30 3b 0d 00 e6 09 20 46  4c 3d 31 0d 00 f0 0a 20  |0;.... FL=1.... |
00000280  53 54 49 3d 30 0d 00 fa  09 20 58 3d 31 30 0d 01  |STI=0.... X=10..|
00000290  04 09 20 5a 58 3d 30 0d  01 0e 0a 20 46 4c 41 3d  |.. ZX=0.... FLA=|
000002a0  30 0d 01 18 0c 20 45 3d  30 3a 46 3d 30 0d 01 22  |0.... E=0:F=0.."|
000002b0  09 20 48 49 3d 30 0d 01  2c 09 20 43 4f 3d 30 0d  |. HI=0..,. CO=0.|
000002c0  01 36 09 20 5a 58 3d 58  0d 01 40 16 20 e3 20 44  |.6. ZX=X..@. . D|
000002d0  45 4c 41 59 3d 31 20 b8  20 32 30 30 3a ed 0d 01  |ELAY=1 . 200:...|
000002e0  4a 0f 20 e7 20 43 4f 3d  33 32 34 20 e0 0d 01 54  |J. . CO=324 ...T|
000002f0  0e 20 53 54 49 3d 53 54  49 2d 31 0d 01 5e 12 20  |. STI=STI-1..^. |
00000300  e7 20 53 54 49 3c 30 20  53 54 49 3d 30 0d 01 68  |. STI<0 STI=0..h|
00000310  08 20 46 3d 45 0d 01 72  28 20 e7 20 46 4c 41 3d  |. F=E..r( . FLA=|
00000320  31 20 48 49 3d 48 49 2b  31 3a e7 20 48 49 3e 31  |1 HI=HI+1:. HI>1|
00000330  20 46 4c 41 3d 32 3a e5  20 8d 74 46 41 0d 01 7c  | FLA=2:. .tFA..||
00000340  2d 20 e7 20 46 4c 41 3d  32 20 48 49 3d 48 49 2d  |- . FLA=2 HI=HI-|
00000350  31 3a e7 20 48 49 3d 30  20 46 4c 41 3d 30 3a d4  |1:. HI=0 FLA=0:.|
00000360  20 30 2c 2d 31 35 2c 34  2c 31 0d 01 86 13 20 e7  | 0,-15,4,1.... .|
00000370  20 52 45 56 3d 31 20 8c  20 8d 74 6e 41 0d 01 90  | REV=1 . .tnA...|
00000380  24 20 e7 20 a6 28 2d 39  38 29 20 80 20 48 49 3d  |$ . .(-98) . HI=|
00000390  30 20 58 3d 58 2d 31 3a  e7 20 58 3c 31 20 58 3d  |0 X=X-1:. X<1 X=|
000003a0  31 0d 01 9a 26 20 e7 20  a6 28 2d 36 37 29 20 80  |1...& . .(-67) .|
000003b0  20 48 49 3d 30 20 58 3d  58 2b 31 3a e7 20 58 3e  | HI=0 X=X+1:. X>|
000003c0  31 38 20 58 3d 31 38 0d  01 a4 0b 20 e5 20 8d 64  |18 X=18.... . .d|
000003d0  42 41 0d 01 ae 24 20 e7  20 a6 28 2d 36 37 29 20  |BA...$ . .(-67) |
000003e0  80 20 48 49 3d 30 20 58  3d 58 2d 31 3a e7 20 58  |. HI=0 X=X-1:. X|
000003f0  3c 31 20 58 3d 31 0d 01  b8 26 20 e7 20 a6 28 2d  |<1 X=1...& . .(-|
00000400  39 38 29 20 80 20 48 49  3d 30 20 58 3d 58 2b 31  |98) . HI=0 X=X+1|
00000410  3a e7 20 58 3e 31 38 20  58 3d 31 38 0d 01 c2 06  |:. X>18 X=18....|
00000420  20 f4 0d 01 cc 24 20 e7  20 a6 28 2d 39 39 29 20  | ....$ . .(-99) |
00000430  80 20 48 49 3d 30 20 80  20 53 54 49 3d 30 20 8c  |. HI=0 . STI=0 .|
00000440  20 46 4c 41 3d 31 0d 01  d6 1d 20 45 3d 97 20 a4  | FLA=1.... E=. .|
00000450  72 65 61 64 63 68 61 72  61 63 74 65 72 28 58 2c  |readcharacter(X,|
00000460  31 39 29 0d 01 e0 2a 20  e7 20 46 4c 3d 31 20 43  |19)...* . FL=1 C|
00000470  3d 4c 45 28 31 2c 43 4f  29 3a 43 4f 3d 43 4f 2b  |=LE(1,CO):CO=CO+|
00000480  31 3a 46 4c 3d 32 20 8b  20 46 4c 3d 31 0d 01 ea  |1:FL=2 . FL=1...|
00000490  16 20 fb 20 32 3a f1 20  8a 31 2c 30 29 3b 41 24  |. . 2:. .1,0);A$|
000004a0  28 43 29 0d 01 f4 12 20  f1 20 8a 30 2c 30 29 3b  |(C).... . .0,0);|
000004b0  3a ef 20 31 31 0d 01 fe  16 20 e7 20 bd 20 45 3d  |:. 11.... . . E=|
000004c0  bd 20 31 34 36 20 e5 8d  74 4c 45 0d 02 08 12 20  |. 146 ..tLE.... |
000004d0  e7 20 48 49 3e 30 20 e5  20 8d 44 44 42 0d 02 12  |. HI>0 . .DDB...|
000004e0  16 20 e7 20 bd 20 45 3d  bd 20 31 32 38 20 e5 8d  |. . . E=. 128 ..|
000004f0  74 4c 45 0d 02 1c 1b 20  e7 20 bd 20 45 3d bd 20  |tLE.... . . E=. |
00000500  31 32 39 20 48 49 3d 30  3a 46 4c 41 3d 31 0d 02  |129 HI=0:FLA=1..|
00000510  26 17 20 e7 20 bd 20 45  3d bd 20 31 33 30 20 53  |&. . . E=. 130 S|
00000520  54 49 3d 33 35 0d 02 30  33 20 e7 20 bd 20 45 3d  |TI=35..03 . . E=|
00000530  bd 20 31 33 31 20 80 20  52 45 56 3d 31 20 52 45  |. 131 . REV=1 RE|
00000540  56 3d 30 3a d4 20 31 2c  2d 31 35 2c 31 32 30 2c  |V=0:. 1,-15,120,|
00000550  31 3a e5 20 8d 44 44 42  0d 02 3a 2c 20 e7 20 bd  |1:. .DDB..:, . .|
00000560  20 45 3d bd 20 31 33 31  20 80 20 52 45 56 3d 30  | E=. 131 . REV=0|
00000570  20 52 45 56 3d 31 3a d4  20 31 2c 2d 31 35 2c 31  | REV=1:. 1,-15,1|
00000580  32 30 2c 31 0d 02 44 06  20 f4 0d 02 4e 2c 20 fb  |20,1..D. ...N, .|
00000590  32 3a f1 20 8a 5a 58 2c  32 31 29 3b bd 20 46 3a  |2:. .ZX,21);. F:|
000005a0  fb 31 3a f1 20 8a 58 2c  32 30 29 3b bd 20 28 32  |.1:. .X,20);. (2|
000005b0  32 38 2b 48 49 29 0d 02  58 07 20 ef 34 0d 02 62  |28+HI)..X. .4..b|
000005c0  0b 20 e5 20 8d 54 76 41  0d 02 6c 19 20 f4 20 2a  |. . .TvA..l. . *|
000005d0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
000005e0  2a 0d 02 76 1c 20 dd 20  a4 72 65 61 64 63 68 61  |*..v. . .readcha|
000005f0  72 61 63 74 65 72 28 63  25 2c 72 25 29 0d 02 80  |racter(c%,r%)...|
00000600  0e 20 58 25 3d b1 3a 59  25 3d bc 0d 02 8a 0f 20  |. X%=.:Y%=..... |
00000610  ef 20 33 31 2c 63 25 2c  72 25 0d 02 94 0b 20 41  |. 31,c%,r%.... A|
00000620  25 3d 31 33 35 0d 02 9e  21 20 43 25 3d 28 ba 28  |%=135...! C%=(.(|
00000630  26 46 46 46 34 29 20 80  20 26 46 46 30 30 29 20  |&FFF4) . &FF00) |
00000640  81 20 26 31 30 30 0d 02  a8 0f 20 ef 20 33 31 2c  |. &100.... . 31,|
00000650  63 25 2c 72 25 0d 02 b2  09 20 3d bd 43 25 0d 02  |c%,r%.... =.C%..|
00000660  bc 5e 20 4d 24 3d bd 20  32 32 34 2b bd 20 32 32  |.^ M$=. 224+. 22|
00000670  34 3a 4e 24 3d bd 20 32  32 35 2b bd 20 32 32 35  |4:N$=. 225+. 225|
00000680  3a 4f 24 3d bd 20 32 32  36 2b bd 20 32 32 36 3a  |:O$=. 226+. 226:|
00000690  50 24 3d bd 20 32 32 37  2b bd 20 32 32 37 3a 51  |P$=. 227+. 227:Q|
000006a0  24 3d bd 20 32 34 30 2b  bd 20 32 34 30 3a 52 24  |$=. 240+. 240:R$|
000006b0  3d bd 20 32 34 32 2b bd  20 32 34 32 0d 02 c6 17  |=. 242+. 242....|
000006c0  20 de 20 41 24 28 32 35  29 2c 4c 45 28 31 2c 33  | . A$(25),LE(1,3|
000006d0  33 30 29 0d 02 d0 25 20  41 24 28 31 29 3d 51 24  |30)...% A$(1)=Q$|
000006e0  2b 51 24 2b 4d 24 2b 4d  24 2b 4d 24 2b 4d 24 2b  |+Q$+M$+M$+M$+M$+|
000006f0  4d 24 2b 51 24 2b 51 24  0d 02 da 25 20 41 24 28  |M$+Q$+Q$...% A$(|
00000700  32 29 3d 4e 24 2b 4d 24  2b 4e 24 2b 4d 24 2b 4e  |2)=N$+M$+N$+M$+N|
00000710  24 2b 4d 24 2b 4e 24 2b  4d 24 2b 4e 24 0d 02 e4  |$+M$+N$+M$+N$...|
00000720  25 20 41 24 28 33 29 3d  4d 24 2b 4d 24 2b 4d 24  |% A$(3)=M$+M$+M$|
00000730  2b 51 24 2b 51 24 2b 51  24 2b 51 24 2b 4d 24 2b  |+Q$+Q$+Q$+Q$+M$+|
00000740  4d 24 0d 02 ee 26 20 41  24 28 31 32 29 3d 51 24  |M$...& A$(12)=Q$|
00000750  2b 51 24 2b 51 24 2b 4f  24 2b 51 24 2b 51 24 2b  |+Q$+Q$+O$+Q$+Q$+|
00000760  4f 24 2b 51 24 2b 51 24  0d 02 f8 25 20 41 24 28  |O$+Q$+Q$...% A$(|
00000770  34 29 3d 4d 24 2b 4d 24  2b 4d 24 2b 4d 24 2b 4d  |4)=M$+M$+M$+M$+M|
00000780  24 2b 4d 24 2b 4d 24 2b  4d 24 2b 4d 24 0d 03 02  |$+M$+M$+M$+M$...|
00000790  25 20 41 24 28 35 29 3d  51 24 2b 51 24 2b 50 24  |% A$(5)=Q$+Q$+P$|
000007a0  2b 51 24 2b 51 24 2b 50  24 2b 51 24 2b 51 24 2b  |+Q$+Q$+P$+Q$+Q$+|
000007b0  50 24 0d 03 0c 25 20 41  24 28 36 29 3d 4d 24 2b  |P$...% A$(6)=M$+|
000007c0  51 24 2b 4e 24 2b 51 24  2b 50 24 2b 4d 24 2b 51  |Q$+N$+Q$+P$+M$+Q|
000007d0  24 2b 4e 24 2b 51 24 0d  03 16 25 20 41 24 28 37  |$+N$+Q$...% A$(7|
000007e0  29 3d 51 24 2b 51 24 2b  51 24 2b 51 24 2b 4d 24  |)=Q$+Q$+Q$+Q$+M$|
000007f0  2b 51 24 2b 51 24 2b 51  24 2b 51 24 0d 03 20 25  |+Q$+Q$+Q$+Q$.. %|
00000800  20 41 24 28 38 29 3d 4d  24 2b 51 24 2b 51 24 2b  | A$(8)=M$+Q$+Q$+|
00000810  4d 24 2b 4d 24 2b 4d 24  2b 51 24 2b 51 24 2b 4d  |M$+M$+M$+Q$+Q$+M|
00000820  24 0d 03 2a 25 20 41 24  28 39 29 3d 51 24 2b 51  |$..*% A$(9)=Q$+Q|
00000830  24 2b 51 24 2b 51 24 2b  51 24 2b 51 24 2b 51 24  |$+Q$+Q$+Q$+Q$+Q$|
00000840  2b 51 24 2b 51 24 0d 03  34 26 20 41 24 28 31 30  |+Q$+Q$..4& A$(10|
00000850  29 3d 51 24 2b 51 24 2b  51 24 2b 51 24 2b 4d 24  |)=Q$+Q$+Q$+Q$+M$|
00000860  2b 4d 24 2b 4d 24 2b 4d  24 2b 4d 24 0d 03 3e 26  |+M$+M$+M$+M$..>&|
00000870  20 41 24 28 31 31 29 3d  4d 24 2b 4d 24 2b 4d 24  | A$(11)=M$+M$+M$|
00000880  2b 4d 24 2b 4d 24 2b 51  24 2b 51 24 2b 51 24 2b  |+M$+M$+Q$+Q$+Q$+|
00000890  51 24 0d 03 48 26 20 41  24 28 31 33 29 3d 4e 24  |Q$..H& A$(13)=N$|
000008a0  2b 4e 24 2b 4e 24 2b 4e  24 2b 4e 24 2b 4e 24 2b  |+N$+N$+N$+N$+N$+|
000008b0  4e 24 2b 4e 24 2b 4e 24  0d 03 52 26 20 41 24 28  |N$+N$+N$..R& A$(|
000008c0  31 34 29 3d 4d 24 2b 4d  24 2b 4d 24 2b 4d 24 2b  |14)=M$+M$+M$+M$+|
000008d0  51 24 2b 4d 24 2b 4d 24  2b 4d 24 2b 4d 24 0d 03  |Q$+M$+M$+M$+M$..|
000008e0  5c 26 20 41 24 28 31 35  29 3d 4f 24 2b 4f 24 2b  |\& A$(15)=O$+O$+|
000008f0  4f 24 2b 4f 24 2b 4f 24  2b 4f 24 2b 4f 24 2b 4f  |O$+O$+O$+O$+O$+O|
00000900  24 2b 4f 24 0d 03 66 26  20 41 24 28 31 36 29 3d  |$+O$..f& A$(16)=|
00000910  51 24 2b 51 24 2b 51 24  2b 4e 24 2b 51 24 2b 51  |Q$+Q$+Q$+N$+Q$+Q|
00000920  24 2b 4f 24 2b 51 24 2b  51 24 0d 03 70 26 20 41  |$+O$+Q$+Q$..p& A|
00000930  24 28 31 37 29 3d 51 24  2b 51 24 2b 51 24 2b 52  |$(17)=Q$+Q$+Q$+R|
00000940  24 2b 52 24 2b 52 24 2b  52 24 2b 52 24 2b 52 24  |$+R$+R$+R$+R$+R$|
00000950  0d 03 7a 26 20 41 24 28  31 38 29 3d 52 24 2b 52  |..z& A$(18)=R$+R|
00000960  24 2b 52 24 2b 52 24 2b  52 24 2b 52 24 2b 51 24  |$+R$+R$+R$+R$+Q$|
00000970  2b 51 24 2b 51 24 0d 03  84 26 20 41 24 28 31 39  |+Q$+Q$...& A$(19|
00000980  29 3d 51 24 2b 51 24 2b  51 24 2b 52 24 2b 52 24  |)=Q$+Q$+Q$+R$+R$|
00000990  2b 52 24 2b 51 24 2b 51  24 2b 51 24 0d 03 8e 26  |+R$+Q$+Q$+Q$...&|
000009a0  20 41 24 28 32 30 29 3d  52 24 2b 52 24 2b 52 24  | A$(20)=R$+R$+R$|
000009b0  2b 51 24 2b 51 24 2b 51  24 2b 52 24 2b 52 24 2b  |+Q$+Q$+Q$+R$+R$+|
000009c0  52 24 0d 03 98 26 20 41  24 28 32 31 29 3d 52 24  |R$...& A$(21)=R$|
000009d0  2b 51 24 2b 52 24 2b 51  24 2b 52 24 2b 51 24 2b  |+Q$+R$+Q$+R$+Q$+|
000009e0  52 24 2b 51 24 2b 52 24  0d 03 a2 26 20 41 24 28  |R$+Q$+R$...& A$(|
000009f0  32 32 29 3d 51 24 2b 52  24 2b 51 24 2b 52 24 2b  |22)=Q$+R$+Q$+R$+|
00000a00  51 24 2b 52 24 2b 51 24  2b 52 24 2b 51 24 0d 03  |Q$+R$+Q$+R$+Q$..|
00000a10  ac 26 20 41 24 28 32 33  29 3d 4d 24 2b 4d 24 2b  |.& A$(23)=M$+M$+|
00000a20  4d 24 2b 4d 24 2b 51 24  2b 4d 24 2b 4d 24 2b 4d  |M$+M$+Q$+M$+M$+M|
00000a30  24 2b 4d 24 0d 03 b6 38  20 41 24 28 32 34 29 3d  |$+M$...8 A$(24)=|
00000a40  bd 32 34 30 2b bd 32 34  30 2b bd 32 34 30 2b 22  |.240+.240+.240+"|
00000a50  2a 2a 2a 46 49 4e 49 53  48 2a 2a 2a 22 2b bd 32  |***FINISH***"+.2|
00000a60  34 30 2b bd 32 34 30 2b  bd 32 34 30 0d 03 c0 10  |40+.240+.240....|
00000a70  20 e3 20 41 3d 31 20 b8  20 33 33 30 0d 03 ca 0e  | . A=1 . 330....|
00000a80  20 f3 20 4c 45 28 31 2c  41 29 0d 03 d4 06 20 ed  | . LE(1,A).... .|
00000a90  0d 03 de 99 20 dc 20 31  2c 39 2c 31 2c 39 2c 39  |.... . 1,9,1,9,9|
00000aa0  2c 32 2c 35 2c 33 2c 34  2c 36 2c 32 2c 38 2c 39  |,2,5,3,4,6,2,8,9|
00000ab0  2c 39 2c 39 2c 39 2c 31  30 2c 39 2c 39 2c 39 2c  |,9,9,9,10,9,9,9,|
00000ac0  31 31 2c 39 2c 34 2c 31  32 2c 31 2c 39 2c 39 2c  |11,9,4,12,1,9,9,|
00000ad0  39 2c 33 2c 33 2c 34 2c  36 2c 31 33 2c 31 34 2c  |9,3,3,4,6,13,14,|
00000ae0  39 2c 39 2c 31 33 2c 31  34 2c 39 2c 39 2c 33 2c  |9,9,13,14,9,9,3,|
00000af0  33 2c 33 2c 39 2c 39 2c  31 2c 31 2c 38 2c 39 2c  |3,3,9,9,1,1,8,9,|
00000b00  39 2c 39 2c 31 2c 31 2c  31 32 2c 31 35 2c 31 35  |9,9,1,1,12,15,15|
00000b10  2c 39 2c 39 2c 31 2c 31  2c 31 35 2c 39 2c 39 2c  |,9,9,1,1,15,9,9,|
00000b20  33 2c 33 2c 39 2c 39 2c  39 0d 03 e8 5b 20 dc 20  |3,3,9,9,9...[ . |
00000b30  31 36 2c 34 2c 39 2c 39  2c 31 32 2c 31 32 2c 31  |16,4,9,9,12,12,1|
00000b40  31 2c 31 31 2c 39 2c 39  2c 39 2c 31 30 2c 31 30  |1,11,9,9,9,10,10|
00000b50  2c 39 2c 39 2c 39 2c 31  2c 31 2c 34 2c 39 2c 39  |,9,9,9,1,1,4,9,9|
00000b60  2c 34 2c 39 2c 39 2c 34  2c 39 2c 39 2c 35 2c 36  |,4,9,9,4,9,9,5,6|
00000b70  2c 37 2c 34 2c 39 2c 39  2c 36 2c 35 2c 39 2c 33  |,7,4,9,9,6,5,9,3|
00000b80  2c 32 2c 31 0d 03 f2 6f  20 dc 20 39 2c 39 2c 38  |,2,1...o . 9,9,8|
00000b90  2c 31 2c 38 2c 31 2c 31  2c 38 2c 38 2c 31 30 2c  |,1,8,1,1,8,8,10,|
00000ba0  39 2c 39 2c 31 31 2c 39  2c 39 2c 35 2c 39 2c 36  |9,9,11,9,9,5,9,6|
00000bb0  2c 31 2c 39 2c 39 2c 31  30 2c 39 2c 39 2c 38 2c  |,1,9,9,10,9,9,8,|
00000bc0  38 2c 31 30 2c 31 30 2c  39 2c 39 2c 34 2c 31 2c  |8,10,10,9,9,4,1,|
00000bd0  39 2c 39 2c 39 2c 34 2c  39 2c 34 2c 39 2c 39 2c  |9,9,9,4,9,4,9,9,|
00000be0  31 31 2c 31 31 2c 39 2c  39 2c 39 2c 31 30 2c 31  |11,11,9,9,9,10,1|
00000bf0  30 2c 34 0d 03 fc 55 20  dc 20 39 2c 39 2c 32 30  |0,4...U . 9,9,20|
00000c00  2c 39 2c 39 2c 39 2c 31  39 2c 39 2c 39 2c 34 2c  |,9,9,9,19,9,9,4,|
00000c10  39 2c 39 2c 31 38 2c 39  2c 39 2c 39 2c 31 37 2c  |9,9,18,9,9,9,17,|
00000c20  39 2c 34 2c 39 2c 31 35  2c 39 2c 39 2c 34 2c 37  |9,4,9,15,9,9,4,7|
00000c30  2c 38 2c 39 2c 39 2c 31  30 2c 31 39 2c 36 2c 39  |,8,9,9,10,19,6,9|
00000c40  2c 34 2c 35 2c 39 2c 39  0d 04 06 af 20 dc 20 31  |,4,5,9,9.... . 1|
00000c50  2c 39 2c 32 2c 39 2c 39  2c 33 2c 39 2c 39 2c 31  |,9,2,9,9,3,9,9,1|
00000c60  32 2c 35 2c 38 2c 39 2c  39 2c 32 30 2c 34 2c 32  |2,5,8,9,9,20,4,2|
00000c70  32 2c 39 2c 32 31 2c 39  2c 32 32 2c 39 2c 32 31  |2,9,21,9,22,9,21|
00000c80  2c 39 2c 34 2c 39 2c 39  2c 34 2c 39 2c 34 2c 39  |,9,4,9,9,4,9,4,9|
00000c90  2c 31 31 2c 39 2c 39 2c  39 2c 32 32 2c 39 2c 32  |,11,9,9,9,22,9,2|
00000ca0  32 2c 39 2c 32 31 2c 39  2c 32 32 2c 39 2c 32 31  |2,9,21,9,22,9,21|
00000cb0  2c 39 2c 32 31 2c 39 2c  32 32 2c 39 2c 32 32 2c  |,9,21,9,22,9,22,|
00000cc0  39 2c 32 32 2c 39 2c 32  31 2c 39 2c 32 32 2c 39  |9,22,9,21,9,22,9|
00000cd0  2c 32 31 2c 39 2c 32 32  2c 39 2c 39 2c 34 2c 39  |,21,9,22,9,9,4,9|
00000ce0  2c 34 2c 39 2c 39 2c 34  2c 39 2c 39 2c 39 2c 39  |,4,9,9,4,9,9,9,9|
00000cf0  2c 39 2c 32 2c 32 32 0d  04 10 4b 20 dc 20 31 35  |,9,2,22...K . 15|
00000d00  2c 31 35 2c 39 2c 39 2c  39 2c 39 2c 39 2c 39 2c  |,15,9,9,9,9,9,9,|
00000d10  32 33 2c 39 2c 39 2c 39  2c 31 39 2c 33 2c 39 2c  |23,9,9,9,19,3,9,|
00000d20  32 32 2c 39 2c 39 2c 32  31 2c 31 36 2c 39 2c 39  |22,9,9,21,16,9,9|
00000d30  2c 34 2c 31 2c 31 32 2c  39 2c 35 2c 39 2c 38 2c  |,4,1,12,9,5,9,8,|
00000d40  31 31 0d 04 1a 4d 20 dc  20 39 2c 39 2c 39 2c 39  |11...M . 9,9,9,9|
00000d50  2c 39 2c 39 2c 39 2c 39  2c 39 2c 39 2c 39 2c 39  |,9,9,9,9,9,9,9,9|
00000d60  2c 39 2c 39 2c 39 2c 39  2c 39 2c 39 2c 39 2c 32  |,9,9,9,9,9,9,9,2|
00000d70  34 2c 39 2c 39 2c 39 2c  39 2c 39 2c 39 2c 39 2c  |4,9,9,9,9,9,9,9,|
00000d80  39 2c 39 2c 39 2c 39 2c  39 2c 39 2c 39 2c 39 0d  |9,9,9,9,9,9,9,9.|
00000d90  04 24 06 20 f8 0d 04 2e  10 20 dd 20 f2 73 74 61  |.$. ..... . .sta|
00000da0  72 74 5f 75 70 0d 04 38  08 20 fb 20 33 0d 04 42  |rt_up..8. . 3..B|
00000db0  06 20 db 0d 04 4c 0a 20  e6 20 30 2c 31 0d 04 56  |. ...L. . 0,1..V|
00000dc0  16 20 58 3d 35 30 30 3a  59 3d 35 30 30 3a 52 3d  |. X=500:Y=500:R=|
00000dd0  32 30 30 0d 04 60 0b 20  ec 58 2c 59 2b 52 0d 04  |200..`. .X,Y+R..|
00000de0  6a 17 20 e3 20 49 3d 30  20 b8 20 32 2a af 20 88  |j. . I=0 . 2*. .|
00000df0  20 af 2f 31 30 0d 04 74  14 20 df 20 58 2b 52 2a  | ./10..t. . X+R*|
00000e00  b5 49 2c 59 2b 52 2a 9b  49 0d 04 7e 06 20 ed 0d  |.I,Y+R*.I..~. ..|
00000e10  04 88 0e 20 e3 20 41 3d  31 20 b8 31 39 0d 04 92  |... . A=1 .19...|
00000e20  11 20 f1 20 8a 41 2c 31  29 3b bd 32 32 35 0d 04  |. . .A,1);.225..|
00000e30  9c 12 20 f1 20 8a 41 2c  32 39 29 3b bd 32 32 35  |.. . .A,29);.225|
00000e40  0d 04 a6 06 20 ed 0d 04  b0 0f 20 e3 20 41 3d 31  |.... ..... . A=1|
00000e50  20 b8 20 32 39 0d 04 ba  11 20 f1 20 8a 31 2c 41  | . 29.... . .1,A|
00000e60  29 3b bd 32 32 37 0d 04  c4 12 20 f1 20 8a 31 39  |);.227.... . .19|
00000e70  2c 41 29 3b bd 32 32 37  0d 04 ce 06 20 ed 0d 04  |,A);.227.... ...|
00000e80  d8 1b 20 f1 20 8a 36 2c  31 34 29 3b bd 32 32 39  |.. . .6,14);.229|
00000e90  2b bd 33 32 2b bd 32 32  39 0d 04 e2 0e 20 ec 20  |+.32+.229.... . |
00000ea0  34 35 30 2c 34 35 30 0d  04 ec 0e 20 df 20 35 35  |450,450.... . 55|
00000eb0  30 2c 34 35 30 0d 04 f6  0e 20 df 20 35 32 30 2c  |0,450.... . 520,|
00000ec0  34 32 30 0d 05 00 0d 20  df 34 38 30 2c 34 32 30  |420.... .480,420|
00000ed0  0d 05 0a 0e 20 df 34 35  30 2c 34 35 30 20 0d 05  |.... .450,450 ..|
00000ee0  14 0a 20 e6 20 30 2c 32  0d 05 1e 1f 20 f1 20 8a  |.. . 0,2.... . .|
00000ef0  32 2c 32 38 29 3b 22 49  2d 49 6e 73 74 2e 20 53  |2,28);"I-Inst. S|
00000f00  2d 73 74 61 72 74 22 0d  05 28 40 20 ec 20 32 38  |-start"..(@ . 28|
00000f10  30 2c 39 30 30 3a df 20  32 38 30 2c 38 30 30 3a  |0,900:. 280,800:|
00000f20  df 20 33 32 30 2c 38 35  30 3a df 20 32 38 30 2c  |. 320,850:. 280,|
00000f30  39 30 30 3a df 20 32 38  30 2c 38 35 30 3a df 20  |900:. 280,850:. |
00000f40  33 32 30 2c 38 35 30 0d  05 32 36 20 ec 20 33 38  |320,850..26 . 38|
00000f50  30 2c 39 30 30 3a df 20  33 35 30 2c 38 35 30 3a  |0,900:. 350,850:|
00000f60  df 20 33 38 30 2c 38 30  30 3a df 20 34 31 30 2c  |. 380,800:. 410,|
00000f70  38 35 30 3a df 20 33 38  30 2c 39 30 30 0d 05 3c  |850:. 380,900..<|
00000f80  3f 20 ec 20 34 34 30 2c  39 30 30 3a df 20 34 34  |? . 440,900:. 44|
00000f90  30 2c 38 30 30 3a ec 20  34 37 30 2c 38 30 30 3a  |0,800:. 470,800:|
00000fa0  df 20 34 37 30 2c 39 30  30 3a df 20 35 31 30 2c  |. 470,900:. 510,|
00000fb0  38 30 30 3a df 35 31 30  2c 39 30 30 0d 05 46 3e  |800:.510,900..F>|
00000fc0  20 ec 20 35 36 30 2c 39  30 30 3a df 20 35 34 30  | . 560,900:. 540|
00000fd0  2c 38 35 30 3a df 35 36  30 2c 38 30 30 3a df 20  |,850:.560,800:. |
00000fe0  35 38 30 2c 38 35 30 3a  df 20 35 37 30 2c 38 35  |580,850:. 570,85|
00000ff0  30 3a df 35 39 30 2c 38  35 30 0d 05 50 3c 20 d4  |0:.590,850..P< .|
00001000  20 31 2c 2d 31 35 2c 31  32 30 2c 33 3a d4 20 31  | 1,-15,120,3:. 1|
00001010  2c 2d 31 35 2c 31 31 30  2c 33 3a d4 20 31 2c 2d  |,-15,110,3:. 1,-|
00001020  31 35 2c 31 32 30 2c 33  3a d4 20 31 2c 2d 31 35  |15,120,3:. 1,-15|
00001030  2c 31 31 30 2c 33 0d 05  5a 2e 20 d4 20 31 2c 2d  |,110,3..Z. . 1,-|
00001040  31 35 2c 31 32 30 2c 33  3a d4 20 31 2c 2d 31 35  |15,120,3:. 1,-15|
00001050  2c 31 31 30 2c 33 3a d4  20 31 2c 2d 31 35 2c 31  |,110,3:. 1,-15,1|
00001060  32 30 2c 33 0d 05 64 45  20 d4 20 31 2c 2d 31 35  |20,3..dE . 1,-15|
00001070  2c 36 30 2c 33 3a d4 20  31 2c 2d 31 35 2c 35 30  |,60,3:. 1,-15,50|
00001080  2c 33 3a d4 20 31 2c 2d  31 35 2c 36 30 2c 33 3a  |,3:. 1,-15,60,3:|
00001090  d4 20 31 2c 2d 31 35 2c  35 30 2c 33 3a d4 20 31  |. 1,-15,50,3:. 1|
000010a0  2c 2d 31 35 2c 36 30 2c  33 0d 05 6e 6c 20 d4 20  |,-15,60,3..nl . |
000010b0  31 2c 2d 31 35 2c 35 30  2c 33 3a d4 20 31 2c 2d  |1,-15,50,3:. 1,-|
000010c0  31 35 2c 36 30 2c 33 3a  d4 20 31 2c 2d 31 35 2c  |15,60,3:. 1,-15,|
000010d0  35 30 2c 33 3a d4 20 31  2c 2d 31 35 2c 36 30 2c  |50,3:. 1,-15,60,|
000010e0  33 3a d4 20 31 2c 2d 31  35 2c 36 30 2c 33 3a d4  |3:. 1,-15,60,3:.|
000010f0  20 31 2c 2d 31 35 2c 37  30 2c 33 3a d4 20 31 2c  | 1,-15,70,3:. 1,|
00001100  2d 31 35 2c 36 30 2c 33  3a d4 20 31 2c 2d 31 35  |-15,60,3:. 1,-15|
00001110  2c 36 35 2c 33 0d 05 78  23 20 6b 24 3d bf 30 3a  |,65,3..x# k$=.0:|
00001120  e7 20 6b 24 3d 22 49 22  20 f2 69 6e 73 74 72 75  |. k$="I" .instru|
00001130  63 74 3a e5 8d 54 6e 44  0d 05 82 1a 20 e7 20 6b  |ct:..TnD.... . k|
00001140  24 3d 22 53 22 20 db 3a  e1 20 8b 20 e5 20 8d 44  |$="S" .:. . . .D|
00001150  78 45 0d 05 8c 06 20 db  0d 05 96 14 20 54 54 3d  |xE.... ..... TT=|
00001160  28 43 4f 2f 33 32 34 29  2a 31 30 30 0d 05 a0 17  |(CO/324)*100....|
00001170  20 f1 20 8a 34 2c 38 29  3b 22 4f 68 20 64 65 61  | . .4,8);"Oh dea|
00001180  72 21 22 0d 05 aa 24 20  f1 20 8a 32 2c 31 32 29  |r!"...$ . .2,12)|
00001190  3b 22 43 6f 6d 70 6c 65  74 65 64 20 22 3b a8 28  |;"Completed ";.(|
000011a0  54 54 29 3b 22 25 22 0d  05 b4 84 20 e7 20 54 54  |TT);"%".... . TT|
000011b0  3c 33 30 20 fb 31 3a f1  20 8a 34 2c 31 38 29 3b  |<30 .1:. .4,18);|
000011c0  22 52 55 42 42 49 53 48  21 21 22 20 8b 20 e7 20  |"RUBBISH!!" . . |
000011d0  54 54 3c 36 30 20 fb 20  32 3a f1 20 8a 34 2c 31  |TT<60 . 2:. .4,1|
000011e0  38 29 3b 22 50 55 4e 59  21 21 22 20 8b 20 e7 20  |8);"PUNY!!" . . |
000011f0  54 54 3c 38 30 20 fb 33  3a f1 20 8a 34 2c 31 38  |TT<80 .3:. .4,18|
00001200  29 3b 22 4f 4b 41 59 22  20 8b 20 e7 20 54 54 3c  |);"OKAY" . . TT<|
00001210  31 30 30 20 fb 20 31 3a  f1 20 8a 34 2c 31 38 29  |100 . 1:. .4,18)|
00001220  3b 22 4e 4f 54 20 42 41  44 21 22 0d 05 be 11 20  |;"NOT BAD!".... |
00001230  d4 20 31 2c 2d 31 35 2c  36 30 2c 32 0d 05 c8 11  |. 1,-15,60,2....|
00001240  20 d4 20 31 2c 2d 31 35  2c 36 34 2c 34 0d 05 d2  | . 1,-15,64,4...|
00001250  15 20 e3 20 54 3d 36 30  20 b8 20 34 30 20 88 20  |. . T=60 . 40 . |
00001260  2d 35 0d 05 dc 10 20 d4  20 31 2c 2d 31 35 2c 54  |-5.... . 1,-15,T|
00001270  2c 33 0d 05 e6 06 20 ed  0d 05 f0 13 20 e3 20 47  |,3.... ..... . G|
00001280  3d 31 20 b8 20 32 30 30  30 3a ed 0d 05 fa 0b 20  |=1 . 2000:..... |
00001290  e5 20 8d 44 46 40 0d 06  04 10 20 dd 20 f2 69 6e  |. .DF@.... . .in|
000012a0  73 74 72 75 63 74 0d 06  0e 21 20 ef 32 32 2c 34  |struct...! .22,4|
000012b0  3a f1 8a 31 30 2c 32 29  3b 22 49 4e 53 54 52 55  |:..10,2);"INSTRU|
000012c0  43 54 49 4f 4e 53 22 0d  06 18 87 20 f1 20 8a 30  |CTIONS".... . .0|
000012d0  2c 35 29 22 59 6f 75 20  63 6f 6e 74 72 6f 6c 20  |,5)"You control |
000012e0  42 65 72 74 69 65 20 42  6f 75 6e 63 65 2c 20 74  |Bertie Bounce, t|
000012f0  68 65 20 6c 69 74 74 6c  65 22 3a f1 3a f1 22 62  |he little":.:."b|
00001300  6c 75 65 20 62 61 6c 6c  2e 20 48 65 20 64 65 63  |lue ball. He dec|
00001310  69 64 65 64 20 74 6f 20  74 61 6b 65 20 61 20 73  |ided to take a s|
00001320  68 6f 72 74 22 3a f1 3a  f1 22 63 75 74 20 68 6f  |hort":.:."cut ho|
00001330  6d 65 20 74 68 72 6f 75  67 68 20 63 6f 6e 63 72  |me through concr|
00001340  65 74 65 20 63 69 74 79  2c 20 62 75 74 22 0d 06  |ete city, but"..|
00001350  22 40 20 f1 3a f1 22 75  6e 66 6f 72 74 75 6e 61  |"@ .:."unfortuna|
00001360  74 65 6c 79 2c 20 68 65  20 66 6f 72 67 6f 74 20  |tely, he forgot |
00001370  69 74 20 77 61 73 20 61  22 3a f1 3a f1 22 64 61  |it was a":.:."da|
00001380  6e 67 65 72 6f 75 73 20  70 6c 61 63 65 22 0d 06  |ngerous place"..|
00001390  2c 30 20 f1 3a f1 22 43  61 6e 20 79 6f 75 20 67  |,0 .:."Can you g|
000013a0  65 74 20 68 69 6d 20 68  6f 6d 65 3f 22 3a f1 3a  |et him home?":.:|
000013b0  f1 22 49 20 64 6f 75 62  74 20 69 74 21 22 0d 06  |."I doubt it!"..|
000013c0  36 11 20 47 4f 3d a5 3a  ef 32 32 2c 35 3a f1 0d  |6. GO=.:.22,5:..|
000013d0  06 40 9e 20 f1 20 22 53  70 65 63 69 61 6c 20 62  |.@. . "Special b|
000013e0  6c 6f 63 6b 73 2e 2e 2e  22 3a f1 27 bd 32 32 34  |locks...":.'.224|
000013f0  3b 22 20 6e 65 65 64 73  20 74 6f 20 62 65 20 6a  |;" needs to be j|
00001400  75 6d 70 65 64 22 3a f1  27 bd 32 32 35 3b 22 20  |umped":.'.225;" |
00001410  6d 61 6b 65 73 20 79 6f  75 20 6a 75 6d 70 22 3a  |makes you jump":|
00001420  f1 27 bd 32 32 36 3b 22  20 6d 61 6b 65 73 20 79  |.'.226;" makes y|
00001430  6f 75 20 73 74 69 63 6b  79 22 3a f1 27 bd 32 32  |ou sticky":.'.22|
00001440  37 3b 22 20 6d 61 6b 65  73 20 79 6f 75 20 64 72  |7;" makes you dr|
00001450  75 6e 6b 21 22 3a f1 27  bd 32 34 32 3b 22 20 69  |unk!":.'.242;" i|
00001460  73 20 75 6e 6a 75 6d 70  61 62 6c 65 22 0d 06 4a  |s unjumpable"..J|
00001470  19 20 f1 3a f1 22 5a 3d  4c 65 66 74 20 20 58 3d  |. .:."Z=Left  X=|
00001480  52 69 67 68 74 22 0d 06  54 23 20 f1 22 53 70 61  |Right"..T# ."Spa|
00001490  63 65 3d 4a 75 6d 70 22  3a f1 3a f1 22 42 79 20  |ce=Jump":.:."By |
000014a0  4e 2e 44 61 72 77 69 6e  22 0d 06 5e 0b 20 47 4f  |N.Darwin"..^. GO|
000014b0  3d a5 3a db 0d 06 68 06  20 e1 0d ff              |=.:...h. ...|
000014bc
BOUNCE.m0
BOUNCE.m1
BOUNCE.m2
BOUNCE.m4
BOUNCE.m5

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .