Home » Archimedes archive » Archimedes World » AW-1991-03.adf » !AWMar91/Goodies/Columns/!Columns/Columns
!AWMar91/Goodies/Columns/!Columns/Columns
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 » Archimedes World » AW-1991-03.adf |
| Filename: | !AWMar91/Goodies/Columns/!Columns/Columns |
| Read OK: | ✔ |
| File size: | 2342 bytes |
| Load address: | FFFFFB42 |
| Exec address: | 52C13FA7 |
File contents
10REM >Columns
20REM (C) Rick Hughes - March 1990
30
40Congratulated=FALSE
50ON ERROR GOTO 240
60
70MODE 9
80PROCinitialise
90PROCreadhiscores
100
110REPEAT
120 PROCintroscreen
130 PROCboard
140 PROCshowscore(Score%,688)
150 PROCshowscore(HiScore%(1),240)
160 PROCchangelevel
170 MOUSE TO 640,512
180 REPEAT
190 PROCdropem
200 UNTIL quit
210 PROCinquest
220UNTIL TheCowsComeHome
230
240REM An error has occurred
250ON ERROR OFF
260MODE 0
270IF ERR<>17 THEN
280 REPORT : PRINT " at ";ERL
290ELSE
300 IF Congratulated THEN
310 Handle%=OPENOUT("HiScores")
320 FOR I%=1 TO 5
330 PRINT #Handle%,Ace$(I%)
340 PRINT #Handle%,HiScore%(I%)
350 NEXT
360 CLOSE #Handle%
370 PRINT "High Score table saved"
380 ENDIF
390ENDIF
400END
410
420
430REM **************** Procedures and functions *********************
440
450DEFPROCinitialise
460 OFF
470 *pointer 1
480 X=RND(-TIME)
490 TheCowsComeHome=FALSE
500 BaseX%=800 : BaseY%=64
510
520 DIM Array%(7,28),Marked%(7,19)
530 DIM Ace$(5),HiScore%(5),Letter$(10),block 9
540
550REM Basic B/G and F/G
560 COLOUR 0,160,160,160
570 COLOUR 1, 32, 32, 32
580
590REM Sprite colours
600 COLOUR 2, 0,144, 0
610 COLOUR 3, 96, 96, 96
620
630REM Block colours
640 COLOUR 5,240, 0, 0
650 COLOUR 6, 0,192, 0
660 COLOUR 7, 0, 0,240
670 COLOUR 8,240,208, 0
680 COLOUR 9,160, 0,160
690 COLOUR 10, 0,160,240
700 COLOUR 11,160, 96, 96
710 COLOUR 12, 96,224,160
720 COLOUR 13,224,160,192
730
740REM Icon colours (grey and yellow)
750 COLOUR 14,112,112,112
760 COLOUR 15,240,240, 0
770ENDPROC
780
790
800DEFPROCreadhiscores
810REM If we don't find the file, create it
820 RESTORE 960
830 Handle%=OPENIN("HiScores")
840 FOR I%=1 TO 5
850 IF Handle% THEN
860 INPUT #Handle%,Ace$(I%),HiScore%(I%)
870 ELSE
880 READ Ace$(I%),HiScore%(I%)
890 ENDIF
900 NEXT
910 CLOSE #Handle%
920 HiScore%(0)=9999 :REM This guy is GOOD!
930ENDPROC
940
950
960DATA Rick,500,Sarah,450,Julie,400,Jeff,350,Scully,9
970
980
990DEFPROCintroscreen
1000 COLOUR 7
1010 COLOUR 0+128
1020 CLS
1030 GCOL 1
1040 RECTANGLE 32,32,1216,960
1050 PROCc(3,"COLUMNS")
1060 RESTORE 1490
1070 READ ytab%,a$
1080 REPEAT
1090 PRINT TAB(2,ytab%)a$
1100 READ ytab%,a$
1110 UNTIL a$="*"
1120 PROCc(11,"Left - Rotate Colours - Right")
1130 PROCc(14,"ESCAPE to finish")
1140 PROCc(17,"High score table")
1150 PROCc(25,"Choose your starting level:")
1160 PROCbignumbers
1170 COLOUR 8
1180 FOR I%=1 TO 5
1190 PROCc(18+I%,LEFT$(Ace$(I%)+STRING$(20,"."),20)+FNnorm(HiScore%(I%)))
1200 NEXT
1210 P%=0
1220 REPEAT
1230 MOUSE mx%,my%,mz%
1240 IF mz% P%=POINT(mx%,my%)
1250 UNTIL P%=2 OR P%=3
1260 Level%=((mx%-56) DIV 120) -1
1270
1280 Score%=0
1290 Colours%=6
1300 quit=FALSE
1310 Array%()=0
1320
1330 REM Fill the sides
1340 FOR row%=1 TO 18
1350 Array%(0,row%)=-1
1360 Array%(7,row%)=-1
1370 NEXT
1380
1390 REM Fill bottom row
1400 FOR col%=0 TO 7
1410 Array%(col%,0)=-1
1420 NEXT
1430
1440 RESTORE 5320
1450 READ trigger%
1460ENDPROC
1470
1480
1490DATA 6,"Make the blocks drop out by lining up"
1500DATA 7,"3 (or more) horizontally, vertically,"
1510DATA 8,"or diagonally. The game ends when a"
1520DATA 9,"column overflows. Mouse control:"
1530DATA 0,*
1540
1550
1560DEFPROCbignumbers
1570*SNew
1580FOR I%=0 TO 9
1590 ?block=I%+48
1600 SYS "OS_Word",10,block
1610 ?block=0
1620 FOR J%=0 TO 8
1630 byte%=block?J%
1640 mask%=128
1650 xtab%=0
1660 WHILE mask%>0
1670 IF byte% AND mask% THEN GCOL2 ELSE GCOL 3
1680 RECTANGLE FILL 56+120*I%+xtab%,144-12*J%,10,10
1690 xtab%+=12
1700 mask%=mask%/2
1710 ENDWHILE
1720 NEXT
1730 MOVE 56+120*I%,48
1740 MOVEBY 92,104
1750 OSCLI("SGet "+CHR$(48+I%))
1760NEXT
1770ENDPROC
1780
1790
1800DEFPROCboard
1810 CLS
1820 COLOUR 8
1830 GCOL 1
1840 LINE BaseX%-4,BaseY%-2,BaseX%+6*48,BaseY%-2
1850 LINE BaseX%-4,BaseY%-2,BaseX%-4,BaseY%-2+864
1860 LINE BaseX%+6*48,BaseY%-2,BaseX%+6*48,BaseY%-2+864
1870 RECTANGLE 152,648,496,176
1880 RECTANGLE 272,432,256,176
1890 RECTANGLE 152,204,496,176
1900 GCOL 3
1910 ELLIPSE FILL 400,944,192,48
1920 PRINT TAB(10,11)"Score"
1930 PRINT TAB(9,25)"Hi-Score"
1940 PRINT TAB(10,18)"Level"
1950 COLOUR 3+128
1960 PRINT TAB(9,2) "COLUMNS"
1970 COLOUR 14+128 : COLOUR 15
1980 FOR I%=0 TO 2
1990 GCOL 15 : RECTANGLE 16+260*I%,48,224,64
2000 GCOL 14 : RECTANGLE FILL 20+260*I%,52,216,56
2010 NEXT
2020 PRINT TAB(1,29)"Level"
2030 PRINT TAB(9,29)"Pause"
2040 PRINT TAB(17,29)"Plunge"
2050ENDPROC
2060
2070
2080DEFPROCshowscore(S%,ytab%)
2090 a$=FNnorm(S%)
2100 FOR I%=1 TO 4
2110 Digit%=VAL(MID$(a$,I%,1))
2120 VDU 23,27,0,Digit%|
2130 PLOT &ED,84+108*I%,ytab%
2140 NEXT
2150ENDPROC
2160
2170
2180DEFPROCchangelevel
2190 IF Level%<9 THEN
2200 Level%+=1
2210 VDU 23,27,0,Level%|
2220 PLOT &ED,352,472
2230 Delay%=70-5*Level%
2240 Colours%=6+(Level% DIV 3)
2250 ENDIF
2260 ENDIF
2270ENDPROC
2280
2290
2300DEFPROCinquest
2310 COLOUR 7
2320 COLOUR 0+128
2330 CLS
2340 Player%=5
2350 WHILE Score%>=HiScore%(Player%)
2360 Player%-=1
2370 ENDWHILE
2380 IF Player%<5 PROCcongratulations ELSE PROCcommiserations
2390ENDPROC
2400
2410
2420DEFPROCcongratulations
2430 quit=FALSE
2440 PROCc(4,"Congratulations!")
2450 PROCc(7,"You've made the high score table")
2460 PROCc(10,"Please enter your name:")
2470 FOR I%=1 TO 10
2480 GCOL 8 : RECTANGLE 64*I%+240,500,56,56
2490 GCOL 3 : RECTANGLE FILL 64*I%+244,504,48,48
2500 Letter$(I%)=" "
2510 NEXT
2520 COLOUR 8
2530 COLOUR 3+128
2540 RECTANGLE FILL 568,312,72,48
2550 PRINT TAB(18,21)"OK"
2560 Alpha$=" ABCDEFGHIJKLMNOPQRSTUVWXYZ A"
2570 REPEAT
2580 MOUSE mx%,my%,mz%
2590 P%=POINT(mx%,my%)
2600 IF mz% AND (P%=3 OR P%=8) THEN
2610 IF my%<500 THEN
2620 quit=TRUE
2630 ELSE
2640 letter%=(mx%-240) DIV 64
2650 Letter$=Letter$(letter%)
2660 ptr=INSTR(Alpha$,Letter$,2)
2670 CASE mz% OF
2680 WHEN 4 : Letter$=MID$(Alpha$,ptr+1,1)
2690 WHEN 2 : Letter$=" "
2700 WHEN 1 : Letter$=MID$(Alpha$,ptr-1,1)
2710 ENDCASE
2720 PRINT TAB(8+2*letter%,15)Letter$
2730 Letter$(letter%)=Letter$
2740 T%=TIME
2750 REPEAT UNTIL TIME>T%+20
2760 ENDIF
2770 ENDIF
2780 UNTIL quit
2790
2800 Ace$=""
2810 FOR I%=1 TO 10
2820 Ace$+=Letter$(I%)
2830 NEXT
2840
2850 WHILE LEFT$(Ace$,1)=" "
2860 Ace$=MID$(Ace$,2)
2870 ENDWHILE
2880
2890 WHILE RIGHT$(Ace$,1)=" "
2900 Ace$=LEFT$(Ace$,LEN(Ace$)-1)
2910 ENDWHILE
2920
2930 IF Ace$="" Ace$="Mr Lazy"
2940
2950 FOR I%=5 TO Player%+1 STEP -1
2960 Ace$(I%)=Ace$(I%-1)
2970 HiScore%(I%)=HiScore%(I%-1)
2980 NEXT
2990 Ace$(Player%+1)=Ace$
3000 HiScore%(Player%+1)=Score%
3010 Congratulated=TRUE
3020ENDPROC
3030
3040
3050DEFPROCcommiserations
3060 PROCc(4,"Game Over")
3070 PROCc(9,"Click the mouse to play again")
3080 REPEAT
3090 MOUSE mx%,my%,mz%
3100 UNTIL mz%=0
3110 REPEAT
3120 MOUSE mx%,my%,mz%
3130 UNTIL mz%>0
3140ENDPROC
3150
3160
3170DEFPROCdropem
3180 c1%=4+RND(Colours%)
3190 c2%=4+RND(Colours%)
3200 c3%=4+RND(Colours%)
3210 col%=1+RND(4)
3220 row%=16
3230 IF Array%(col%,row%)=0 THEN
3240 PROCdropit
3250 PROClander
3260 PROCpoints
3270 ELSE
3280 quit=TRUE
3290 ENDIF
3300ENDPROC
3310
3320
3330DEFPROCdropit
3340 moused=FALSE
3350 Plunged%=0
3360 REPEAT
3370 PROCshowit
3380 T%=TIME
3390 REPEAT
3400 MOUSE mx%,my%,mz%
3410 IF mz% THEN
3420 IF NOT moused THEN
3430 P%=POINT(mx%,my%)
3440 IF P%>13 THEN
3450 PROCicon
3460 ELSE
3470 IF mz%=1 PROCshift(+1)
3480 IF mz%=2 PROCrotate
3490 IF mz%=4 PROCshift(-1)
3500 ENDIF
3510 ENDIF
3520 ELSE
3530 moused=FALSE
3540 ENDIF
3550 UNTIL TIME>T%+Delay%
3560 row%-=1
3570 UNTIL Array%(col%,row%)
3580ENDPROC
3590
3600
3610DEFPROCicon
3620 moused=TRUE
3630 MOUSE TO mx%,240
3640 icon%=(mx%-16) DIV 260
3650 CASE icon% OF
3660 WHEN 0 : PROCchangelevel
3670 WHEN 1 : PROCpause
3680 WHEN 2 : PROCplunge
3690 ENDCASE
3700ENDPROC
3710
3720
3730DEFPROCpause
3740 resume=FALSE
3750 REPEAT
3760 MOUSE mx%,my%,mz%
3770 IF mz% THEN
3780 P%=POINT(mx%,my%)
3790 IF P%>13 AND mx%>290 AND mx%<550 THEN resume=TRUE
3800 ENDIF
3810 UNTIL resume
3820 MOUSE TO mx%,240
3830 IF Score% THEN
3840 Score%-=1
3850 PROCshowscore(Score%,688)
3860 ENDIF
3870ENDPROC
3880
3890
3900DEFPROCplunge
3910 WHILE Array%(col%,row%-1)=0
3920 Plunged%+=1
3930 row%-=1
3940 PROCshowit
3950 ENDWHILE
3960ENDPROC
3970
3980
3990DEFPROCshift(D%)
4000 IF Array%(col%+D%,row%)=0 THEN
4010 moused=TRUE
4020 GCOL 0
4030 RECTANGLE FILL X%,Y%,44,3*44+8
4040 col%+=D%
4050 PROCshowit
4060 ENDIF
4070ENDPROC
4080
4090
4100DEFPROCrotate
4110 moused=TRUE
4120 C%=c1%:c1%=c2%:c2%=c3%:c3%=C%
4130 PROCshowit
4140ENDPROC
4150
4160
4170DEFPROCshowit
4180 X%=BaseX%+48*(col%-1)
4190 Y%=BaseY%+48*(row%-1)
4200 GCOL c1% : RECTANGLE FILL X%,Y%,44,44
4210 GCOL c2% : RECTANGLE FILL X%,Y%+48,44,44
4220 GCOL c3% : RECTANGLE FILL X%,Y%+96,44,44
4230 GCOL 0 : RECTANGLE FILL X%,Y%+144,44,44
4240 GCOL 14
4250 RECTANGLE X%,Y%,44,140
4260 LINE X%,Y%+44,X%+44,Y%+44
4270 LINE X%,Y%+92,X%+44,Y%+92
4280ENDPROC
4290
4300
4310DEFPROClander
4320 Scored%=0
4330 Array%(col%,row%+1)=c1%
4340 Array%(col%,row%+2)=c2%
4350 Array%(col%,row%+3)=c3%
4360
4370 REPEAT
4380 GCOL 1
4390 marked%=FALSE
4400 Marked%()=0
4410 FOR col%=1 TO 6
4420 row%=1
4430 WHILE Array%(col%,row%) > 0
4440 C%=Array%(col%,row%)
4450 PROCcheckout( 0,+1)
4460 PROCcheckout(+1, 0)
4470 PROCcheckout(+1,+1)
4480 PROCcheckout(-1,+1)
4490 row%+=1
4500 ENDWHILE
4510 NEXT
4520
4530 REM If any were marked (they have been blacked out) knock them out
4540 REM of the array and drop the columns
4550 IF marked% THEN
4560 FOR col%=1 TO 6
4570 FOR row%=1 TO 18
4580 IF Marked%(col%,row%) THEN
4590 run%=0
4600 WHILE Marked%(col%,row%)
4610 row%+=1
4620 run%+=1
4630 ENDWHILE
4640 FOR J%=row% TO 24
4650 Array%(col%,J%-run%)=Array%(col%,J%)
4660 GCOL Array%(col%,J%)
4670 X%=BaseX%+48*(col%-1)
4680 Y%=BaseY%+48*(J%-run%-1)
4690 RECTANGLE FILL X%,Y%,44,44
4700 IF Array%(col%,J%) THEN
4710 GCOL 14
4720 RECTANGLE X%,Y%,44,140
4730 LINE X%,Y%+44,X%+44,Y%+44
4740 LINE X%,Y%+92,X%+44,Y%+92
4750 ENDIF
4760 NEXT
4770 ENDIF
4780 NEXT
4790 NEXT
4800 SOUND 1,-9,99,12
4810 ENDIF
4820 UNTIL NOT marked%
4830 IF Scored% THEN Scored%+=Plunged%
4840ENDPROC
4850
4860
4870DEFPROCcheckout(dr%,dc%)
4880 X%=col% : Y%=row%
4890 IF Array%(X%+dc%,Y%+dr%)=C% THEN
4900 IF Array%(X%+2*dc%,Y%+2*dr%)=C% THEN
4910 marked%=TRUE
4920 Total%=0
4930 WHILE Array%(X%,Y%)=C%
4940 Marked%(X%,Y%)=1
4950 Total%+=1
4960 RECTANGLE FILL BaseX%+48*(X%-1),BaseY%+48*(Y%-1),44,44
4970 X%+=dc% : Y%+=dr%
4980 ENDWHILE
4990 Scored%+=Total%+Level%
5000 ENDIF
5010 ENDIF
5020ENDPROC
5030
5040
5050DEFPROCpoints
5060 IF Scored% THEN
5070 Score%+=Scored%
5080 PROCshowscore(Score%,688)
5090 IF Score%>trigger% THEN
5100 READ trigger%
5110 PROCchangelevel
5120 ENDIF
5130 ENDIF
5140ENDPROC
5150
5160
5170DEFPROCc(Z%,a$)
5180 PRINT TAB(20-LEN(a$)/2,Z%);
5190 FOR J%=1 TO LENa$
5200 c$=MID$(a$,J%,1)
5210 PRINT c$;
5220 SOUND 1,-5,2*ASCc$,2
5230 WAIT:WAIT:WAIT
5240 NEXT
5250ENDPROC
5260
5270
5280DEFFNnorm(Z%)
5290=RIGHT$(STR$(10000+Z%),4)
5300
5310REM Trigger points at which the level increases
5320DATA 50,100,200,300,500,800,1000,1500,2000,9999
� >Columns
$� (C) Rick Hughes - March 1990
(Congratulated=�
2� � � �dp@
<
F� 9
P�initialise
Z�readhiscores
d
n�
x �introscreen
� �board
� �showscore(Score%,688)
� �showscore(HiScore%(1),240)
� �changelevel
� ȗ � 640,512
� �
�
�dropem
� � quit
�
�inquest
�� TheCowsComeHome
�
�� An error has occurred
� � � �
� 0
� �<>17 �
� : � " at ";�
"�
, � Congratulated �
6 Handle%=�("HiScores")
@ � I%=1 � 5
J � #Handle%,Ace$(I%)
T � #Handle%,HiScore%(I%)
^ �
h � #Handle%
r � "High Score table saved"
| �
��
��
�
�
�G� **************** Procedures and functions *********************
�
���initialise
� �
� *pointer 1
� X=�(-�)
� TheCowsComeHome=�
� BaseX%=800 : BaseY%=64
�
! � Array%(7,28),Marked%(7,19)
. � Ace$(5),HiScore%(5),Letter$(10),block 9
&� Basic B/G and F/G
0 � 0,160,160,160
: � 1, 32, 32, 32
D
N� Sprite colours
X � 2, 0,144, 0
b � 3, 96, 96, 96
l
v� Block colours
� � 5,240, 0, 0
� � 6, 0,192, 0
� � 7, 0, 0,240
� � 8,240,208, 0
� � 9,160, 0,160
� � 10, 0,160,240
� � 11,160, 96, 96
� � 12, 96,224,160
� � 13,224,160,192
�
�$� Icon colours (grey and yellow)
� � 14,112,112,112
� � 15,240,240, 0
�
��readhiscores
**� If we don't find the file, create it
4 � �d@C
> Handle%=�("HiScores")
H � I%=1 � 5
R � Handle% �
\' � #Handle%,Ace$(I%),HiScore%(I%)
f �
p � Ace$(I%),HiScore%(I%)
z �
� �
� � #Handle%
�, HiScore%(0)=9999 :� This guy is GOOD!
��
�
�
�4� Rick,500,Sarah,450,Julie,400,Jeff,350,Scully,9
�
�
���introscreen
� � 7
� � 0+128
� �
� 1
ȓ 32,32,1216,960
�c(3,"COLUMNS")
$ � �dRE
. � ytab%,a$
8 �
B � �2,ytab%)a$
L � ytab%,a$
V
� a$="*"
`+ �c(11,"Left - Rotate Colours - Right")
j �c(14,"ESCAPE to finish")
t �c(17,"High score table")
~) �c(25,"Choose your starting level:")
� �bignumbers
� � 8
� � I%=1 � 5
�: �c(18+I%,�Ace$(I%)+�20,"."),20)+�norm(HiScore%(I%)))
� �
� P%=0
� �
� ȗ mx%,my%,mz%
� � mz% P%=�mx%,my%)
� � P%=2 � P%=3
� Level%=((mx%-56) � 120) -1
�
Score%=0
Colours%=6
quit=�
Array%()=0
(
2 � Fill the sides
< � row%=1 � 18
F Array%(0,row%)=-1
P Array%(7,row%)=-1
Z �
d
n � Fill bottom row
x � col%=0 � 7
� Array%(col%,0)=-1
� �
�
� � �dHT
� � trigger%
��
�
�
�/� 6,"Make the blocks drop out by lining up"
�/� 7,"3 (or more) horizontally, vertically,"
�-� 8,"or diagonally. The game ends when a"
�+� 9,"column overflows. Mouse control:"
� � 0,*
��bignumbers
" *SNew
,� I%=0 � 9
6 ?block=I%+48
@ ș "OS_Word",10,block
J
?block=0
T � J%=0 � 8
^ byte%=block?J%
h mask%=128
r
xtab%=0
| ȕ mask%>0
�! � byte% � mask% � �2 � � 3
�, ȓ Ȑ 56+120*I%+xtab%,144-12*J%,10,10
� xtab%+=12
� mask%=mask%/2
� �
� �
� � 56+120*I%,48
� �BY 92,104
� �("SGet "+�(48+I%))
��
��
�
�
��board
�
� 8
& � 1
0- � BaseX%-4,BaseY%-2,BaseX%+6*48,BaseY%-2
:. � BaseX%-4,BaseY%-2,BaseX%-4,BaseY%-2+864
D4 � BaseX%+6*48,BaseY%-2,BaseX%+6*48,BaseY%-2+864
N ȓ 152,648,496,176
X ȓ 272,432,256,176
b ȓ 152,204,496,176
l � 3
v ȝ Ȑ 400,944,192,48
� � �10,11)"Score"
� � �9,25)"Hi-Score"
� � �10,18)"Level"
� � 3+128
� � �9,2) "COLUMNS"
� � 14+128 : � 15
� � I%=0 � 2
�# � 15 : ȓ 16+260*I%,48,224,64
�& � 14 : ȓ Ȑ 20+260*I%,52,216,56
� �
� � �1,29)"Level"
� � �9,29)"Pause"
� � �17,29)"Plunge"
�
��showscore(S%,ytab%)
* a$=�norm(S%)
4 � I%=1 � 4
> Digit%=�(�a$,I%,1))
H � 23,27,0,Digit%|
R � &ED,84+108*I%,ytab%
\ �
f�
p
z
���changelevel
� � Level%<9 �
� Level%+=1
� � 23,27,0,Level%|
� � &ED,352,472
� Delay%=70-5*Level%
� Colours%=6+(Level% � 3)
� �
� �
��
�
�
�
��inquest
� 7
� 0+128
�
$ Player%=5
.! ȕ Score%>=HiScore%(Player%)
8 Player%-=1
B �
L3 � Player%<5 �congratulations � �commiserations
V�
`
j
t��congratulations
~ quit=�
� �c(4,"Congratulations!")
�- �c(7,"You've made the high score table")
�% �c(10,"Please enter your name:")
� � I%=1 � 10
�" � 8 : ȓ 64*I%+240,500,56,56
�% � 3 : ȓ Ȑ 64*I%+244,504,48,48
� Letter$(I%)=" "
� �
� � 8
� � 3+128
� ȓ Ȑ 568,312,72,48
� � �18,21)"OK"
+ Alpha$=" ABCDEFGHIJKLMNOPQRSTUVWXYZ A"
�
ȗ mx%,my%,mz%
P%=�mx%,my%)
( � mz% � (P%=3 � P%=8) �
2 � my%<500 �
< quit=�
F �
P letter%=(mx%-240) � 64
Z Letter$=Letter$(letter%)
d ptr=�Alpha$,Letter$,2)
n Ȏ mz% �
x' � 4 : Letter$=�Alpha$,ptr+1,1)
� � 2 : Letter$=" "
�' � 1 : Letter$=�Alpha$,ptr-1,1)
� �
�! � �8+2*letter%,15)Letter$
� Letter$(letter%)=Letter$
� T%=�
� � � �>T%+20
� �
� �
� � quit
�
� Ace$=""
� � I%=1 � 10
Ace$+=Letter$(I%)
�
" ȕ �Ace$,1)=" "
, Ace$=�Ace$,2)
6 �
@
J ȕ �Ace$,1)=" "
T Ace$=�Ace$,�(Ace$)-1)
^ �
h
r � Ace$="" Ace$="Mr Lazy"
|
� � I%=5 � Player%+1 � -1
� Ace$(I%)=Ace$(I%-1)
�! HiScore%(I%)=HiScore%(I%-1)
� �
� Ace$(Player%+1)=Ace$
� HiScore%(Player%+1)=Score%
� Congratulated=�
��
�
�
���commiserations
� �c(4,"Game Over")
�* �c(9,"Click the mouse to play again")
�
ȗ mx%,my%,mz%
� mz%=0
& �
0 ȗ mx%,my%,mz%
: � mz%>0
D�
N
X
b ��dropem
l c1%=4+�(Colours%)
v c2%=4+�(Colours%)
� c3%=4+�(Colours%)
� col%=1+�(4)
� row%=16
� � Array%(col%,row%)=0 �
�
�dropit
�
�lander
�
�points
� �
� quit=�
� �
��
�
�
��dropit
moused=�
Plunged%=0
�
*
�showit
4
T%=�
> �
H ȗ mx%,my%,mz%
R � mz% �
\ � � moused �
f P%=�mx%,my%)
p � P%>13 �
z �icon
�
�
� � mz%=1 �shift(+1)
� � mz%=2 �rotate
� � mz%=4 �shift(-1)
�
�
� �
� �
� moused=�
� �
� � �>T%+Delay%
�
row%-=1
� � Array%(col%,row%)
��
��icon
$
moused=�
. ȗ � mx%,240
8 icon%=(mx%-16) � 260
B Ȏ icon% �
L � 0 : �changelevel
V � 1 : �pause
` � 2 : �plunge
j �
t�
~
�
� ��pause
�
resume=�
� �
� ȗ mx%,my%,mz%
�
� mz% �
� P%=�mx%,my%)
�- � P%>13 � mx%>290 � mx%<550 � resume=�
� �
�
� resume
� ȗ � mx%,240
� � Score% �
Score%-=1
�showscore(Score%,688)
�
�
(
2
< ��plunge
F ȕ Array%(col%,row%-1)=0
P Plunged%+=1
Z
row%-=1
d
�showit
n �
x�
�
�
���shift(D%)
� � Array%(col%+D%,row%)=0 �
� moused=�
� � 0
� ȓ Ȑ X%,Y%,44,3*44+8
� col%+=D%
�
�showit
� �
��
�
�
��rotate
moused=�
" C%=c1%:c1%=c2%:c2%=c3%:c3%=C%
" �showit
,�
6
@
J ��showit
T X%=BaseX%+48*(col%-1)
^ Y%=BaseY%+48*(row%-1)
h � c1% : ȓ Ȑ X%,Y%,44,44
r! � c2% : ȓ Ȑ X%,Y%+48,44,44
|! � c3% : ȓ Ȑ X%,Y%+96,44,44
� � 0 : ȓ Ȑ X%,Y%+144,44,44
� � 14
� ȓ X%,Y%,44,140
� � X%,Y%+44,X%+44,Y%+44
� � X%,Y%+92,X%+44,Y%+92
��
�
�
� ��lander
� Scored%=0
� Array%(col%,row%+1)=c1%
� Array%(col%,row%+2)=c2%
� Array%(col%,row%+3)=c3%
�
� 1
& marked%=�
0 Marked%()=0
: � col%=1 � 6
D
row%=1
N ȕ Array%(col%,row%) > 0
X C%=Array%(col%,row%)
b �checkout( 0,+1)
l �checkout(+1, 0)
v �checkout(+1,+1)
� �checkout(-1,+1)
� row%+=1
� �
� �
�
�E � If any were marked (they have been blacked out) knock them out
�( � of the array and drop the columns
� � marked% �
� � col%=1 � 6
� � row%=1 � 18
� � Marked%(col%,row%) �
� run%=0
� ȕ Marked%(col%,row%)
row%+=1
run%+=1
�
� J%=row% � 24
*/ Array%(col%,J%-run%)=Array%(col%,J%)
4 � Array%(col%,J%)
> X%=BaseX%+48*(col%-1)
H# Y%=BaseY%+48*(J%-run%-1)
R ȓ Ȑ X%,Y%,44,44
\ � Array%(col%,J%) �
f � 14
p ȓ X%,Y%,44,140
z" � X%,Y%+44,X%+44,Y%+44
�" � X%,Y%+92,X%+44,Y%+92
� �
� �
�
�
� �
� �
� � 1,-9,99,12
� �
� � � marked%
�" � Scored% � Scored%+=Plunged%
��
�
�
��checkout(dr%,dc%)
X%=col% : Y%=row%
! � Array%(X%+dc%,Y%+dr%)=C% �
$& � Array%(X%+2*dc%,Y%+2*dr%)=C% �
. marked%=�
8 Total%=0
B ȕ Array%(X%,Y%)=C%
L Marked%(X%,Y%)=1
V Total%+=1
`5 ȓ Ȑ BaseX%+48*(X%-1),BaseY%+48*(Y%-1),44,44
j X%+=dc% : Y%+=dr%
t �
~ Scored%+=Total%+Level%
� �
� �
��
�
�
� ��points
� � Scored% �
� Score%+=Scored%
� �showscore(Score%,688)
� � Score%>trigger% �
� � trigger%
� �changelevel
�
�
�
(
2��c(Z%,a$)
< � �20-�(a$)/2,Z%);
F � J%=1 � �a$
P c$=�a$,J%,1)
Z � c$;
d � 1,-5,2*�c$,2
n Ȗ:Ȗ:Ȗ
x �
��
�
�
�ݤnorm(Z%)
�=��(10000+Z%),4)
�
�1� Trigger points at which the level increases
�0� 50,100,200,300,500,800,1000,1500,2000,9999
� 00000000 0d 00 0a 0e f4 20 3e 43 6f 6c 75 6d 6e 73 0d 00 |..... >Columns..|
00000010 14 24 f4 20 28 43 29 20 52 69 63 6b 20 48 75 67 |.$. (C) Rick Hug|
00000020 68 65 73 20 20 2d 20 20 4d 61 72 63 68 20 31 39 |hes - March 19|
00000030 39 30 0d 00 1e 04 0d 00 28 13 43 6f 6e 67 72 61 |90......(.Congra|
00000040 74 75 6c 61 74 65 64 3d a3 0d 00 32 0e ee 20 85 |tulated=...2.. .|
00000050 20 e5 20 8d 64 70 40 0d 00 3c 04 0d 00 46 07 eb | . .dp@..<...F..|
00000060 20 39 0d 00 50 0f f2 69 6e 69 74 69 61 6c 69 73 | 9..P..initialis|
00000070 65 0d 00 5a 11 f2 72 65 61 64 68 69 73 63 6f 72 |e..Z..readhiscor|
00000080 65 73 0d 00 64 04 0d 00 6e 05 f5 0d 00 78 11 20 |es..d...n....x. |
00000090 f2 69 6e 74 72 6f 73 63 72 65 65 6e 0d 00 82 0b |.introscreen....|
000000a0 20 f2 62 6f 61 72 64 0d 00 8c 1b 20 f2 73 68 6f | .board.... .sho|
000000b0 77 73 63 6f 72 65 28 53 63 6f 72 65 25 2c 36 38 |wscore(Score%,68|
000000c0 38 29 0d 00 96 20 20 f2 73 68 6f 77 73 63 6f 72 |8)... .showscor|
000000d0 65 28 48 69 53 63 6f 72 65 25 28 31 29 2c 32 34 |e(HiScore%(1),24|
000000e0 30 29 0d 00 a0 11 20 f2 63 68 61 6e 67 65 6c 65 |0).... .changele|
000000f0 76 65 6c 0d 00 aa 11 20 c8 97 20 b8 20 36 34 30 |vel.... .. . 640|
00000100 2c 35 31 32 0d 00 b4 06 20 f5 0d 00 be 0d 20 20 |,512.... ..... |
00000110 f2 64 72 6f 70 65 6d 0d 00 c8 0b 20 fd 20 71 75 |.dropem.... . qu|
00000120 69 74 0d 00 d2 0d 20 f2 69 6e 71 75 65 73 74 0d |it.... .inquest.|
00000130 00 dc 15 fd 20 54 68 65 43 6f 77 73 43 6f 6d 65 |.... TheCowsCome|
00000140 48 6f 6d 65 0d 00 e6 04 0d 00 f0 1b f4 20 41 6e |Home......... An|
00000150 20 65 72 72 6f 72 20 68 61 73 20 6f 63 63 75 72 | error has occur|
00000160 72 65 64 0d 00 fa 09 ee 20 85 20 87 0d 01 04 07 |red..... . .....|
00000170 eb 20 30 0d 01 0e 0d e7 20 9f 3c 3e 31 37 20 8c |. 0..... .<>17 .|
00000180 0d 01 18 13 20 f6 20 3a 20 f1 20 22 20 61 74 20 |.... . : . " at |
00000190 22 3b 9e 0d 01 22 05 cc 0d 01 2c 16 20 e7 20 43 |";..."....,. . C|
000001a0 6f 6e 67 72 61 74 75 6c 61 74 65 64 20 8c 0d 01 |ongratulated ...|
000001b0 36 1b 20 20 48 61 6e 64 6c 65 25 3d ae 28 22 48 |6. Handle%=.("H|
000001c0 69 53 63 6f 72 65 73 22 29 0d 01 40 10 20 20 e3 |iScores")..@. .|
000001d0 20 49 25 3d 31 20 b8 20 35 0d 01 4a 1a 20 20 20 | I%=1 . 5..J. |
000001e0 f1 20 23 48 61 6e 64 6c 65 25 2c 41 63 65 24 28 |. #Handle%,Ace$(|
000001f0 49 25 29 0d 01 54 1e 20 20 20 f1 20 23 48 61 6e |I%)..T. . #Han|
00000200 64 6c 65 25 2c 48 69 53 63 6f 72 65 25 28 49 25 |dle%,HiScore%(I%|
00000210 29 0d 01 5e 07 20 20 ed 0d 01 68 10 20 20 d9 20 |)..^. ...h. . |
00000220 23 48 61 6e 64 6c 65 25 0d 01 72 20 20 20 f1 20 |#Handle%..r . |
00000230 22 48 69 67 68 20 53 63 6f 72 65 20 74 61 62 6c |"High Score tabl|
00000240 65 20 73 61 76 65 64 22 0d 01 7c 06 20 cd 0d 01 |e saved"..|. ...|
00000250 86 05 cd 0d 01 90 05 e0 0d 01 9a 04 0d 01 a4 04 |................|
00000260 0d 01 ae 47 f4 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |...G. **********|
00000270 2a 2a 2a 2a 2a 2a 20 20 50 72 6f 63 65 64 75 72 |****** Procedur|
00000280 65 73 20 61 6e 64 20 66 75 6e 63 74 69 6f 6e 73 |es and functions|
00000290 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | **************|
000002a0 2a 2a 2a 2a 2a 2a 2a 0d 01 b8 04 0d 01 c2 10 dd |*******.........|
000002b0 f2 69 6e 69 74 69 61 6c 69 73 65 0d 01 cc 06 20 |.initialise.... |
000002c0 87 0d 01 d6 0f 20 2a 70 6f 69 6e 74 65 72 20 31 |..... *pointer 1|
000002d0 0d 01 e0 0c 20 58 3d b3 28 2d 91 29 0d 01 ea 16 |.... X=.(-.)....|
000002e0 20 54 68 65 43 6f 77 73 43 6f 6d 65 48 6f 6d 65 | TheCowsComeHome|
000002f0 3d a3 0d 01 f4 1b 20 42 61 73 65 58 25 3d 38 30 |=..... BaseX%=80|
00000300 30 20 3a 20 42 61 73 65 59 25 3d 36 34 0d 01 fe |0 : BaseY%=64...|
00000310 04 0d 02 08 21 20 de 20 41 72 72 61 79 25 28 37 |....! . Array%(7|
00000320 2c 32 38 29 2c 4d 61 72 6b 65 64 25 28 37 2c 31 |,28),Marked%(7,1|
00000330 39 29 0d 02 12 2e 20 de 20 41 63 65 24 28 35 29 |9).... . Ace$(5)|
00000340 2c 48 69 53 63 6f 72 65 25 28 35 29 2c 4c 65 74 |,HiScore%(5),Let|
00000350 74 65 72 24 28 31 30 29 2c 62 6c 6f 63 6b 20 39 |ter$(10),block 9|
00000360 0d 02 1c 04 0d 02 26 17 f4 20 42 61 73 69 63 20 |......&.. Basic |
00000370 42 2f 47 20 61 6e 64 20 46 2f 47 0d 02 30 15 20 |B/G and F/G..0. |
00000380 fb 20 20 30 2c 31 36 30 2c 31 36 30 2c 31 36 30 |. 0,160,160,160|
00000390 0d 02 3a 15 20 fb 20 20 31 2c 20 33 32 2c 20 33 |..:. . 1, 32, 3|
000003a0 32 2c 20 33 32 0d 02 44 04 0d 02 4e 14 f4 20 53 |2, 32..D...N.. S|
000003b0 70 72 69 74 65 20 63 6f 6c 6f 75 72 73 0d 02 58 |prite colours..X|
000003c0 15 20 fb 20 20 32 2c 20 20 30 2c 31 34 34 2c 20 |. . 2, 0,144, |
000003d0 20 30 0d 02 62 15 20 fb 20 20 33 2c 20 39 36 2c | 0..b. . 3, 96,|
000003e0 20 39 36 2c 20 39 36 0d 02 6c 04 0d 02 76 13 f4 | 96, 96..l...v..|
000003f0 20 42 6c 6f 63 6b 20 63 6f 6c 6f 75 72 73 0d 02 | Block colours..|
00000400 80 15 20 fb 20 20 35 2c 32 34 30 2c 20 20 30 2c |.. . 5,240, 0,|
00000410 20 20 30 0d 02 8a 15 20 fb 20 20 36 2c 20 20 30 | 0.... . 6, 0|
00000420 2c 31 39 32 2c 20 20 30 0d 02 94 15 20 fb 20 20 |,192, 0.... . |
00000430 37 2c 20 20 30 2c 20 20 30 2c 32 34 30 0d 02 9e |7, 0, 0,240...|
00000440 15 20 fb 20 20 38 2c 32 34 30 2c 32 30 38 2c 20 |. . 8,240,208, |
00000450 20 30 0d 02 a8 15 20 fb 20 20 39 2c 31 36 30 2c | 0.... . 9,160,|
00000460 20 20 30 2c 31 36 30 0d 02 b2 15 20 fb 20 31 30 | 0,160.... . 10|
00000470 2c 20 20 30 2c 31 36 30 2c 32 34 30 0d 02 bc 15 |, 0,160,240....|
00000480 20 fb 20 31 31 2c 31 36 30 2c 20 39 36 2c 20 39 | . 11,160, 96, 9|
00000490 36 0d 02 c6 15 20 fb 20 31 32 2c 20 39 36 2c 32 |6.... . 12, 96,2|
000004a0 32 34 2c 31 36 30 0d 02 d0 15 20 fb 20 31 33 2c |24,160.... . 13,|
000004b0 32 32 34 2c 31 36 30 2c 31 39 32 0d 02 da 04 0d |224,160,192.....|
000004c0 02 e4 24 f4 20 49 63 6f 6e 20 63 6f 6c 6f 75 72 |..$. Icon colour|
000004d0 73 20 28 67 72 65 79 20 61 6e 64 20 79 65 6c 6c |s (grey and yell|
000004e0 6f 77 29 0d 02 ee 15 20 fb 20 31 34 2c 31 31 32 |ow).... . 14,112|
000004f0 2c 31 31 32 2c 31 31 32 0d 02 f8 15 20 fb 20 31 |,112,112.... . 1|
00000500 35 2c 32 34 30 2c 32 34 30 2c 20 20 30 0d 03 02 |5,240,240, 0...|
00000510 05 e1 0d 03 0c 04 0d 03 16 04 0d 03 20 12 dd f2 |............ ...|
00000520 72 65 61 64 68 69 73 63 6f 72 65 73 0d 03 2a 2a |readhiscores..**|
00000530 f4 20 49 66 20 77 65 20 64 6f 6e 27 74 20 66 69 |. If we don't fi|
00000540 6e 64 20 74 68 65 20 66 69 6c 65 2c 20 63 72 65 |nd the file, cre|
00000550 61 74 65 20 69 74 0d 03 34 0b 20 f7 20 8d 64 40 |ate it..4. . .d@|
00000560 43 0d 03 3e 1a 20 48 61 6e 64 6c 65 25 3d 8e 28 |C..>. Handle%=.(|
00000570 22 48 69 53 63 6f 72 65 73 22 29 0d 03 48 0f 20 |"HiScores")..H. |
00000580 e3 20 49 25 3d 31 20 b8 20 35 0d 03 52 11 20 20 |. I%=1 . 5..R. |
00000590 e7 20 48 61 6e 64 6c 65 25 20 8c 0d 03 5c 27 20 |. Handle% ...\' |
000005a0 20 20 e8 20 23 48 61 6e 64 6c 65 25 2c 41 63 65 | . #Handle%,Ace|
000005b0 24 28 49 25 29 2c 48 69 53 63 6f 72 65 25 28 49 |$(I%),HiScore%(I|
000005c0 25 29 0d 03 66 07 20 20 cc 0d 03 70 1e 20 20 20 |%)..f. ...p. |
000005d0 f3 20 41 63 65 24 28 49 25 29 2c 48 69 53 63 6f |. Ace$(I%),HiSco|
000005e0 72 65 25 28 49 25 29 0d 03 7a 07 20 20 cd 0d 03 |re%(I%)..z. ...|
000005f0 84 06 20 ed 0d 03 8e 0f 20 d9 20 23 48 61 6e 64 |.. ..... . #Hand|
00000600 6c 65 25 0d 03 98 2c 20 48 69 53 63 6f 72 65 25 |le%..., HiScore%|
00000610 28 30 29 3d 39 39 39 39 20 20 20 3a f4 20 54 68 |(0)=9999 :. Th|
00000620 69 73 20 67 75 79 20 69 73 20 47 4f 4f 44 21 0d |is guy is GOOD!.|
00000630 03 a2 05 e1 0d 03 ac 04 0d 03 b6 04 0d 03 c0 34 |...............4|
00000640 dc 20 52 69 63 6b 2c 35 30 30 2c 53 61 72 61 68 |. Rick,500,Sarah|
00000650 2c 34 35 30 2c 4a 75 6c 69 65 2c 34 30 30 2c 4a |,450,Julie,400,J|
00000660 65 66 66 2c 33 35 30 2c 53 63 75 6c 6c 79 2c 39 |eff,350,Scully,9|
00000670 0d 03 ca 04 0d 03 d4 04 0d 03 de 11 dd f2 69 6e |..............in|
00000680 74 72 6f 73 63 72 65 65 6e 0d 03 e8 08 20 fb 20 |troscreen.... . |
00000690 37 0d 03 f2 0c 20 fb 20 30 2b 31 32 38 0d 03 fc |7.... . 0+128...|
000006a0 06 20 db 0d 04 06 08 20 e6 20 31 0d 04 10 16 20 |. ..... . 1.... |
000006b0 c8 93 20 33 32 2c 33 32 2c 31 32 31 36 2c 39 36 |.. 32,32,1216,96|
000006c0 30 0d 04 1a 14 20 f2 63 28 33 2c 22 43 4f 4c 55 |0.... .c(3,"COLU|
000006d0 4d 4e 53 22 29 0d 04 24 0b 20 f7 20 8d 64 52 45 |MNS")..$. . .dRE|
000006e0 0d 04 2e 0f 20 f3 20 79 74 61 62 25 2c 61 24 0d |.... . ytab%,a$.|
000006f0 04 38 06 20 f5 0d 04 42 13 20 20 f1 20 8a 32 2c |.8. ...B. . .2,|
00000700 79 74 61 62 25 29 61 24 0d 04 4c 10 20 20 f3 20 |ytab%)a$..L. . |
00000710 79 74 61 62 25 2c 61 24 0d 04 56 0d 20 fd 20 61 |ytab%,a$..V. . a|
00000720 24 3d 22 2a 22 0d 04 60 2b 20 f2 63 28 31 31 2c |$="*"..`+ .c(11,|
00000730 22 4c 65 66 74 20 2d 20 52 6f 74 61 74 65 20 43 |"Left - Rotate C|
00000740 6f 6c 6f 75 72 73 20 2d 20 52 69 67 68 74 22 29 |olours - Right")|
00000750 0d 04 6a 1e 20 f2 63 28 31 34 2c 22 45 53 43 41 |..j. .c(14,"ESCA|
00000760 50 45 20 74 6f 20 66 69 6e 69 73 68 22 29 0d 04 |PE to finish")..|
00000770 74 1e 20 f2 63 28 31 37 2c 22 48 69 67 68 20 73 |t. .c(17,"High s|
00000780 63 6f 72 65 20 74 61 62 6c 65 22 29 0d 04 7e 29 |core table")..~)|
00000790 20 f2 63 28 32 35 2c 22 43 68 6f 6f 73 65 20 79 | .c(25,"Choose y|
000007a0 6f 75 72 20 73 74 61 72 74 69 6e 67 20 6c 65 76 |our starting lev|
000007b0 65 6c 3a 22 29 0d 04 88 10 20 f2 62 69 67 6e 75 |el:").... .bignu|
000007c0 6d 62 65 72 73 0d 04 92 08 20 fb 20 38 0d 04 9c |mbers.... . 8...|
000007d0 0f 20 e3 20 49 25 3d 31 20 b8 20 35 0d 04 a6 3a |. . I%=1 . 5...:|
000007e0 20 20 f2 63 28 31 38 2b 49 25 2c c0 41 63 65 24 | .c(18+I%,.Ace$|
000007f0 28 49 25 29 2b c4 32 30 2c 22 2e 22 29 2c 32 30 |(I%)+.20,"."),20|
00000800 29 2b a4 6e 6f 72 6d 28 48 69 53 63 6f 72 65 25 |)+.norm(HiScore%|
00000810 28 49 25 29 29 29 0d 04 b0 06 20 ed 0d 04 ba 09 |(I%))).... .....|
00000820 20 50 25 3d 30 0d 04 c4 06 20 f5 0d 04 ce 14 20 | P%=0.... ..... |
00000830 20 c8 97 20 6d 78 25 2c 6d 79 25 2c 6d 7a 25 0d | .. mx%,my%,mz%.|
00000840 04 d8 18 20 20 e7 20 6d 7a 25 20 50 25 3d b0 6d |... . mz% P%=.m|
00000850 78 25 2c 6d 79 25 29 0d 04 e2 12 20 fd 20 50 25 |x%,my%).... . P%|
00000860 3d 32 20 84 20 50 25 3d 33 0d 04 ec 1f 20 4c 65 |=2 . P%=3.... Le|
00000870 76 65 6c 25 3d 28 28 6d 78 25 2d 35 36 29 20 81 |vel%=((mx%-56) .|
00000880 20 31 32 30 29 20 2d 31 0d 04 f6 04 0d 05 00 0d | 120) -1........|
00000890 20 53 63 6f 72 65 25 3d 30 0d 05 0a 0f 20 43 6f | Score%=0.... Co|
000008a0 6c 6f 75 72 73 25 3d 36 0d 05 14 0b 20 71 75 69 |lours%=6.... qui|
000008b0 74 3d a3 0d 05 1e 0f 20 41 72 72 61 79 25 28 29 |t=..... Array%()|
000008c0 3d 30 0d 05 28 04 0d 05 32 15 20 f4 20 46 69 6c |=0..(...2. . Fil|
000008d0 6c 20 74 68 65 20 73 69 64 65 73 0d 05 3c 12 20 |l the sides..<. |
000008e0 e3 20 72 6f 77 25 3d 31 20 b8 20 31 38 0d 05 46 |. row%=1 . 18..F|
000008f0 17 20 20 41 72 72 61 79 25 28 30 2c 72 6f 77 25 |. Array%(0,row%|
00000900 29 3d 2d 31 0d 05 50 17 20 20 41 72 72 61 79 25 |)=-1..P. Array%|
00000910 28 37 2c 72 6f 77 25 29 3d 2d 31 0d 05 5a 06 20 |(7,row%)=-1..Z. |
00000920 ed 0d 05 64 04 0d 05 6e 16 20 f4 20 46 69 6c 6c |...d...n. . Fill|
00000930 20 62 6f 74 74 6f 6d 20 72 6f 77 0d 05 78 11 20 | bottom row..x. |
00000940 e3 20 63 6f 6c 25 3d 30 20 b8 20 37 0d 05 82 17 |. col%=0 . 7....|
00000950 20 20 41 72 72 61 79 25 28 63 6f 6c 25 2c 30 29 | Array%(col%,0)|
00000960 3d 2d 31 0d 05 8c 06 20 ed 0d 05 96 04 0d 05 a0 |=-1.... ........|
00000970 0b 20 f7 20 8d 64 48 54 0d 05 aa 0f 20 f3 20 74 |. . .dHT.... . t|
00000980 72 69 67 67 65 72 25 0d 05 b4 05 e1 0d 05 be 04 |rigger%.........|
00000990 0d 05 c8 04 0d 05 d2 2f dc 20 36 2c 22 4d 61 6b |......./. 6,"Mak|
000009a0 65 20 74 68 65 20 62 6c 6f 63 6b 73 20 64 72 6f |e the blocks dro|
000009b0 70 20 6f 75 74 20 62 79 20 6c 69 6e 69 6e 67 20 |p out by lining |
000009c0 75 70 22 0d 05 dc 2f dc 20 37 2c 22 33 20 28 6f |up".../. 7,"3 (o|
000009d0 72 20 6d 6f 72 65 29 20 68 6f 72 69 7a 6f 6e 74 |r more) horizont|
000009e0 61 6c 6c 79 2c 20 76 65 72 74 69 63 61 6c 6c 79 |ally, vertically|
000009f0 2c 22 0d 05 e6 2d dc 20 38 2c 22 6f 72 20 64 69 |,"...-. 8,"or di|
00000a00 61 67 6f 6e 61 6c 6c 79 2e 20 54 68 65 20 67 61 |agonally. The ga|
00000a10 6d 65 20 65 6e 64 73 20 77 68 65 6e 20 61 22 0d |me ends when a".|
00000a20 05 f0 2b dc 20 39 2c 22 63 6f 6c 75 6d 6e 20 6f |..+. 9,"column o|
00000a30 76 65 72 66 6c 6f 77 73 2e 20 20 4d 6f 75 73 65 |verflows. Mouse|
00000a40 20 63 6f 6e 74 72 6f 6c 3a 22 0d 05 fa 09 dc 20 | control:"..... |
00000a50 30 2c 2a 0d 06 04 04 0d 06 0e 04 0d 06 18 10 dd |0,*.............|
00000a60 f2 62 69 67 6e 75 6d 62 65 72 73 0d 06 22 09 2a |.bignumbers..".*|
00000a70 53 4e 65 77 0d 06 2c 0e e3 20 49 25 3d 30 20 b8 |SNew..,.. I%=0 .|
00000a80 20 39 0d 06 36 11 20 3f 62 6c 6f 63 6b 3d 49 25 | 9..6. ?block=I%|
00000a90 2b 34 38 0d 06 40 1a 20 c8 99 20 22 4f 53 5f 57 |+48..@. .. "OS_W|
00000aa0 6f 72 64 22 2c 31 30 2c 62 6c 6f 63 6b 0d 06 4a |ord",10,block..J|
00000ab0 0d 20 3f 62 6c 6f 63 6b 3d 30 0d 06 54 0f 20 e3 |. ?block=0..T. .|
00000ac0 20 4a 25 3d 30 20 b8 20 38 0d 06 5e 14 20 20 62 | J%=0 . 8..^. b|
00000ad0 79 74 65 25 3d 62 6c 6f 63 6b 3f 4a 25 0d 06 68 |yte%=block?J%..h|
00000ae0 0f 20 20 6d 61 73 6b 25 3d 31 32 38 0d 06 72 0d |. mask%=128..r.|
00000af0 20 20 78 74 61 62 25 3d 30 0d 06 7c 10 20 20 c8 | xtab%=0..|. .|
00000b00 95 20 6d 61 73 6b 25 3e 30 0d 06 86 21 20 20 20 |. mask%>0...! |
00000b10 e7 20 62 79 74 65 25 20 80 20 6d 61 73 6b 25 20 |. byte% . mask% |
00000b20 8c 20 e6 32 20 8b 20 e6 20 33 0d 06 90 2c 20 20 |. .2 . . 3..., |
00000b30 20 c8 93 20 c8 90 20 35 36 2b 31 32 30 2a 49 25 | .. .. 56+120*I%|
00000b40 2b 78 74 61 62 25 2c 31 34 34 2d 31 32 2a 4a 25 |+xtab%,144-12*J%|
00000b50 2c 31 30 2c 31 30 0d 06 9a 10 20 20 20 78 74 61 |,10,10.... xta|
00000b60 62 25 2b 3d 31 32 0d 06 a4 14 20 20 20 6d 61 73 |b%+=12.... mas|
00000b70 6b 25 3d 6d 61 73 6b 25 2f 32 0d 06 ae 07 20 20 |k%=mask%/2.... |
00000b80 ce 0d 06 b8 06 20 ed 0d 06 c2 13 20 ec 20 35 36 |..... ..... . 56|
00000b90 2b 31 32 30 2a 49 25 2c 34 38 0d 06 cc 0f 20 ec |+120*I%,48.... .|
00000ba0 42 59 20 39 32 2c 31 30 34 0d 06 d6 18 20 ff 28 |BY 92,104.... .(|
00000bb0 22 53 47 65 74 20 22 2b bd 28 34 38 2b 49 25 29 |"SGet "+.(48+I%)|
00000bc0 29 0d 06 e0 05 ed 0d 06 ea 05 e1 0d 06 f4 04 0d |)...............|
00000bd0 06 fe 04 0d 07 08 0b dd f2 62 6f 61 72 64 0d 07 |.........board..|
00000be0 12 06 20 db 0d 07 1c 08 20 fb 20 38 0d 07 26 08 |.. ..... . 8..&.|
00000bf0 20 e6 20 31 0d 07 30 2d 20 86 20 42 61 73 65 58 | . 1..0- . BaseX|
00000c00 25 2d 34 2c 42 61 73 65 59 25 2d 32 2c 42 61 73 |%-4,BaseY%-2,Bas|
00000c10 65 58 25 2b 36 2a 34 38 2c 42 61 73 65 59 25 2d |eX%+6*48,BaseY%-|
00000c20 32 0d 07 3a 2e 20 86 20 42 61 73 65 58 25 2d 34 |2..:. . BaseX%-4|
00000c30 2c 42 61 73 65 59 25 2d 32 2c 42 61 73 65 58 25 |,BaseY%-2,BaseX%|
00000c40 2d 34 2c 42 61 73 65 59 25 2d 32 2b 38 36 34 0d |-4,BaseY%-2+864.|
00000c50 07 44 34 20 86 20 42 61 73 65 58 25 2b 36 2a 34 |.D4 . BaseX%+6*4|
00000c60 38 2c 42 61 73 65 59 25 2d 32 2c 42 61 73 65 58 |8,BaseY%-2,BaseX|
00000c70 25 2b 36 2a 34 38 2c 42 61 73 65 59 25 2d 32 2b |%+6*48,BaseY%-2+|
00000c80 38 36 34 0d 07 4e 17 20 c8 93 20 31 35 32 2c 36 |864..N. .. 152,6|
00000c90 34 38 2c 34 39 36 2c 31 37 36 0d 07 58 17 20 c8 |48,496,176..X. .|
00000ca0 93 20 32 37 32 2c 34 33 32 2c 32 35 36 2c 31 37 |. 272,432,256,17|
00000cb0 36 0d 07 62 17 20 c8 93 20 31 35 32 2c 32 30 34 |6..b. .. 152,204|
00000cc0 2c 34 39 36 2c 31 37 36 0d 07 6c 08 20 e6 20 33 |,496,176..l. . 3|
00000cd0 0d 07 76 19 20 c8 9d 20 c8 90 20 34 30 30 2c 39 |..v. .. .. 400,9|
00000ce0 34 34 2c 31 39 32 2c 34 38 0d 07 80 15 20 f1 20 |44,192,48.... . |
00000cf0 8a 31 30 2c 31 31 29 22 53 63 6f 72 65 22 0d 07 |.10,11)"Score"..|
00000d00 8a 17 20 f1 20 8a 39 2c 32 35 29 22 48 69 2d 53 |.. . .9,25)"Hi-S|
00000d10 63 6f 72 65 22 0d 07 94 15 20 f1 20 8a 31 30 2c |core".... . .10,|
00000d20 31 38 29 22 4c 65 76 65 6c 22 0d 07 9e 0c 20 fb |18)"Level".... .|
00000d30 20 33 2b 31 32 38 0d 07 a8 16 20 f1 20 8a 39 2c | 3+128.... . .9,|
00000d40 32 29 20 22 43 4f 4c 55 4d 4e 53 22 0d 07 b2 14 |2) "COLUMNS"....|
00000d50 20 fb 20 31 34 2b 31 32 38 20 3a 20 fb 20 31 35 | . 14+128 : . 15|
00000d60 0d 07 bc 0f 20 e3 20 49 25 3d 30 20 b8 20 32 0d |.... . I%=0 . 2.|
00000d70 07 c6 23 20 20 e6 20 31 35 20 3a 20 c8 93 20 31 |..# . 15 : .. 1|
00000d80 36 2b 32 36 30 2a 49 25 2c 34 38 2c 32 32 34 2c |6+260*I%,48,224,|
00000d90 36 34 0d 07 d0 26 20 20 e6 20 31 34 20 3a 20 c8 |64...& . 14 : .|
00000da0 93 20 c8 90 20 32 30 2b 32 36 30 2a 49 25 2c 35 |. .. 20+260*I%,5|
00000db0 32 2c 32 31 36 2c 35 36 0d 07 da 06 20 ed 0d 07 |2,216,56.... ...|
00000dc0 e4 14 20 f1 20 8a 31 2c 32 39 29 22 4c 65 76 65 |.. . .1,29)"Leve|
00000dd0 6c 22 0d 07 ee 14 20 f1 20 8a 39 2c 32 39 29 22 |l".... . .9,29)"|
00000de0 50 61 75 73 65 22 0d 07 f8 16 20 f1 20 8a 31 37 |Pause".... . .17|
00000df0 2c 32 39 29 22 50 6c 75 6e 67 65 22 0d 08 02 05 |,29)"Plunge"....|
00000e00 e1 0d 08 0c 05 20 0d 08 16 04 0d 08 20 19 dd f2 |..... ...... ...|
00000e10 73 68 6f 77 73 63 6f 72 65 28 53 25 2c 79 74 61 |showscore(S%,yta|
00000e20 62 25 29 0d 08 2a 11 20 61 24 3d a4 6e 6f 72 6d |b%)..*. a$=.norm|
00000e30 28 53 25 29 0d 08 34 0f 20 e3 20 49 25 3d 31 20 |(S%)..4. . I%=1 |
00000e40 b8 20 34 0d 08 3e 19 20 20 44 69 67 69 74 25 3d |. 4..>. Digit%=|
00000e50 bb 28 c1 61 24 2c 49 25 2c 31 29 29 0d 08 48 17 |.(.a$,I%,1))..H.|
00000e60 20 20 ef 20 32 33 2c 32 37 2c 30 2c 44 69 67 69 | . 23,27,0,Digi|
00000e70 74 25 7c 0d 08 52 1b 20 20 f0 20 26 45 44 2c 38 |t%|..R. . &ED,8|
00000e80 34 2b 31 30 38 2a 49 25 2c 79 74 61 62 25 0d 08 |4+108*I%,ytab%..|
00000e90 5c 06 20 ed 0d 08 66 05 e1 0d 08 70 05 20 0d 08 |\. ...f....p. ..|
00000ea0 7a 04 0d 08 84 11 dd f2 63 68 61 6e 67 65 6c 65 |z.......changele|
00000eb0 76 65 6c 0d 08 8e 11 20 e7 20 4c 65 76 65 6c 25 |vel.... . Level%|
00000ec0 3c 39 20 8c 0d 08 98 0f 20 20 4c 65 76 65 6c 25 |<9 ..... Level%|
00000ed0 2b 3d 31 0d 08 a2 17 20 20 ef 20 32 33 2c 32 37 |+=1.... . 23,27|
00000ee0 2c 30 2c 4c 65 76 65 6c 25 7c 0d 08 ac 13 20 20 |,0,Level%|.... |
00000ef0 f0 20 26 45 44 2c 33 35 32 2c 34 37 32 0d 08 b6 |. &ED,352,472...|
00000f00 18 20 20 44 65 6c 61 79 25 3d 37 30 2d 35 2a 4c |. Delay%=70-5*L|
00000f10 65 76 65 6c 25 0d 08 c0 1d 20 20 43 6f 6c 6f 75 |evel%.... Colou|
00000f20 72 73 25 3d 36 2b 28 4c 65 76 65 6c 25 20 81 20 |rs%=6+(Level% . |
00000f30 33 29 0d 08 ca 07 20 20 cd 0d 08 d4 06 20 cd 0d |3).... ..... ..|
00000f40 08 de 05 e1 0d 08 e8 04 0d 08 f2 04 0d 08 fc 0d |................|
00000f50 dd f2 69 6e 71 75 65 73 74 0d 09 06 08 20 fb 20 |..inquest.... . |
00000f60 37 0d 09 10 0c 20 fb 20 30 2b 31 32 38 0d 09 1a |7.... . 0+128...|
00000f70 06 20 db 0d 09 24 0e 20 50 6c 61 79 65 72 25 3d |. ...$. Player%=|
00000f80 35 0d 09 2e 21 20 c8 95 20 53 63 6f 72 65 25 3e |5...! .. Score%>|
00000f90 3d 48 69 53 63 6f 72 65 25 28 50 6c 61 79 65 72 |=HiScore%(Player|
00000fa0 25 29 0d 09 38 10 20 20 50 6c 61 79 65 72 25 2d |%)..8. Player%-|
00000fb0 3d 31 0d 09 42 06 20 ce 0d 09 4c 33 20 e7 20 50 |=1..B. ...L3 . P|
00000fc0 6c 61 79 65 72 25 3c 35 20 f2 63 6f 6e 67 72 61 |layer%<5 .congra|
00000fd0 74 75 6c 61 74 69 6f 6e 73 20 8b 20 f2 63 6f 6d |tulations . .com|
00000fe0 6d 69 73 65 72 61 74 69 6f 6e 73 0d 09 56 05 e1 |miserations..V..|
00000ff0 0d 09 60 04 0d 09 6a 04 0d 09 74 15 dd f2 63 6f |..`...j...t...co|
00001000 6e 67 72 61 74 75 6c 61 74 69 6f 6e 73 0d 09 7e |ngratulations..~|
00001010 0b 20 71 75 69 74 3d a3 0d 09 88 1d 20 f2 63 28 |. quit=..... .c(|
00001020 34 2c 22 43 6f 6e 67 72 61 74 75 6c 61 74 69 6f |4,"Congratulatio|
00001030 6e 73 21 22 29 0d 09 92 2d 20 f2 63 28 37 2c 22 |ns!")...- .c(7,"|
00001040 59 6f 75 27 76 65 20 6d 61 64 65 20 74 68 65 20 |You've made the |
00001050 68 69 67 68 20 73 63 6f 72 65 20 74 61 62 6c 65 |high score table|
00001060 22 29 0d 09 9c 25 20 f2 63 28 31 30 2c 22 50 6c |")...% .c(10,"Pl|
00001070 65 61 73 65 20 65 6e 74 65 72 20 79 6f 75 72 20 |ease enter your |
00001080 6e 61 6d 65 3a 22 29 0d 09 a6 10 20 e3 20 49 25 |name:").... . I%|
00001090 3d 31 20 b8 20 31 30 0d 09 b0 22 20 20 e6 20 38 |=1 . 10..." . 8|
000010a0 20 3a 20 c8 93 20 36 34 2a 49 25 2b 32 34 30 2c | : .. 64*I%+240,|
000010b0 35 30 30 2c 35 36 2c 35 36 0d 09 ba 25 20 20 e6 |500,56,56...% .|
000010c0 20 33 20 3a 20 c8 93 20 c8 90 20 36 34 2a 49 25 | 3 : .. .. 64*I%|
000010d0 2b 32 34 34 2c 35 30 34 2c 34 38 2c 34 38 0d 09 |+244,504,48,48..|
000010e0 c4 15 20 20 4c 65 74 74 65 72 24 28 49 25 29 3d |.. Letter$(I%)=|
000010f0 22 20 22 0d 09 ce 06 20 ed 0d 09 d8 08 20 fb 20 |" ".... ..... . |
00001100 38 0d 09 e2 0c 20 fb 20 33 2b 31 32 38 0d 09 ec |8.... . 3+128...|
00001110 18 20 c8 93 20 c8 90 20 35 36 38 2c 33 31 32 2c |. .. .. 568,312,|
00001120 37 32 2c 34 38 0d 09 f6 12 20 f1 20 8a 31 38 2c |72,48.... . .18,|
00001130 32 31 29 22 4f 4b 22 0d 0a 00 2b 20 41 6c 70 68 |21)"OK"...+ Alph|
00001140 61 24 3d 22 20 41 42 43 44 45 46 47 48 49 4a 4b |a$=" ABCDEFGHIJK|
00001150 4c 4d 4e 4f 50 51 52 53 54 55 56 57 58 59 5a 20 |LMNOPQRSTUVWXYZ |
00001160 41 22 0d 0a 0a 06 20 f5 0d 0a 14 14 20 20 c8 97 |A".... ..... ..|
00001170 20 6d 78 25 2c 6d 79 25 2c 6d 7a 25 0d 0a 1e 12 | mx%,my%,mz%....|
00001180 20 20 50 25 3d b0 6d 78 25 2c 6d 79 25 29 0d 0a | P%=.mx%,my%)..|
00001190 28 1d 20 20 e7 20 6d 7a 25 20 80 20 28 50 25 3d |(. . mz% . (P%=|
000011a0 33 20 84 20 50 25 3d 38 29 20 8c 0d 0a 32 12 20 |3 . P%=8) ...2. |
000011b0 20 20 e7 20 6d 79 25 3c 35 30 30 20 8c 0d 0a 3c | . my%<500 ...<|
000011c0 0e 20 20 20 20 71 75 69 74 3d b9 0d 0a 46 08 20 |. quit=...F. |
000011d0 20 20 cc 0d 0a 50 1e 20 20 20 20 6c 65 74 74 65 | ...P. lette|
000011e0 72 25 3d 28 6d 78 25 2d 32 34 30 29 20 81 20 36 |r%=(mx%-240) . 6|
000011f0 34 0d 0a 5a 20 20 20 20 20 4c 65 74 74 65 72 24 |4..Z Letter$|
00001200 3d 4c 65 74 74 65 72 24 28 6c 65 74 74 65 72 25 |=Letter$(letter%|
00001210 29 0d 0a 64 1e 20 20 20 20 70 74 72 3d a7 41 6c |)..d. ptr=.Al|
00001220 70 68 61 24 2c 4c 65 74 74 65 72 24 2c 32 29 0d |pha$,Letter$,2).|
00001230 0a 6e 10 20 20 20 20 c8 8e 20 6d 7a 25 20 ca 0d |.n. .. mz% ..|
00001240 0a 78 27 20 20 20 20 20 c9 20 34 20 3a 20 4c 65 |.x' . 4 : Le|
00001250 74 74 65 72 24 3d c1 41 6c 70 68 61 24 2c 70 74 |tter$=.Alpha$,pt|
00001260 72 2b 31 2c 31 29 0d 0a 82 1a 20 20 20 20 20 c9 |r+1,1).... .|
00001270 20 32 20 3a 20 4c 65 74 74 65 72 24 3d 22 20 22 | 2 : Letter$=" "|
00001280 0d 0a 8c 27 20 20 20 20 20 c9 20 31 20 3a 20 4c |...' . 1 : L|
00001290 65 74 74 65 72 24 3d c1 41 6c 70 68 61 24 2c 70 |etter$=.Alpha$,p|
000012a0 74 72 2d 31 2c 31 29 0d 0a 96 09 20 20 20 20 cb |tr-1,1).... .|
000012b0 0d 0a a0 21 20 20 20 20 f1 20 8a 38 2b 32 2a 6c |...! . .8+2*l|
000012c0 65 74 74 65 72 25 2c 31 35 29 4c 65 74 74 65 72 |etter%,15)Letter|
000012d0 24 0d 0a aa 20 20 20 20 20 4c 65 74 74 65 72 24 |$... Letter$|
000012e0 28 6c 65 74 74 65 72 25 29 3d 4c 65 74 74 65 72 |(letter%)=Letter|
000012f0 24 0d 0a b4 0c 20 20 20 20 54 25 3d 91 0d 0a be |$.... T%=....|
00001300 13 20 20 20 20 f5 20 fd 20 91 3e 54 25 2b 32 30 |. . . .>T%+20|
00001310 0d 0a c8 08 20 20 20 cd 0d 0a d2 07 20 20 cd 0d |.... ..... ..|
00001320 0a dc 0b 20 fd 20 71 75 69 74 0d 0a e6 04 0d 0a |... . quit......|
00001330 f0 0c 20 41 63 65 24 3d 22 22 0d 0a fa 10 20 e3 |.. Ace$="".... .|
00001340 20 49 25 3d 31 20 b8 20 31 30 0d 0b 04 17 20 20 | I%=1 . 10.... |
00001350 41 63 65 24 2b 3d 4c 65 74 74 65 72 24 28 49 25 |Ace$+=Letter$(I%|
00001360 29 0d 0b 0e 06 20 ed 0d 0b 18 04 0d 0b 22 14 20 |).... .......". |
00001370 c8 95 20 c0 41 63 65 24 2c 31 29 3d 22 20 22 0d |.. .Ace$,1)=" ".|
00001380 0b 2c 13 20 20 41 63 65 24 3d c1 41 63 65 24 2c |.,. Ace$=.Ace$,|
00001390 32 29 0d 0b 36 06 20 ce 0d 0b 40 04 0d 0b 4a 14 |2)..6. ...@...J.|
000013a0 20 c8 95 20 c2 41 63 65 24 2c 31 29 3d 22 20 22 | .. .Ace$,1)=" "|
000013b0 0d 0b 54 1b 20 20 41 63 65 24 3d c0 41 63 65 24 |..T. Ace$=.Ace$|
000013c0 2c a9 28 41 63 65 24 29 2d 31 29 0d 0b 5e 06 20 |,.(Ace$)-1)..^. |
000013d0 ce 0d 0b 68 04 0d 0b 72 1d 20 e7 20 41 63 65 24 |...h...r. . Ace$|
000013e0 3d 22 22 20 41 63 65 24 3d 22 4d 72 20 4c 61 7a |="" Ace$="Mr Laz|
000013f0 79 22 0d 0b 7c 04 0d 0b 86 1c 20 e3 20 49 25 3d |y"..|..... . I%=|
00001400 35 20 b8 20 50 6c 61 79 65 72 25 2b 31 20 88 20 |5 . Player%+1 . |
00001410 2d 31 0d 0b 90 19 20 20 41 63 65 24 28 49 25 29 |-1.... Ace$(I%)|
00001420 3d 41 63 65 24 28 49 25 2d 31 29 0d 0b 9a 21 20 |=Ace$(I%-1)...! |
00001430 20 48 69 53 63 6f 72 65 25 28 49 25 29 3d 48 69 | HiScore%(I%)=Hi|
00001440 53 63 6f 72 65 25 28 49 25 2d 31 29 0d 0b a4 06 |Score%(I%-1)....|
00001450 20 ed 0d 0b ae 19 20 41 63 65 24 28 50 6c 61 79 | ..... Ace$(Play|
00001460 65 72 25 2b 31 29 3d 41 63 65 24 0d 0b b8 1f 20 |er%+1)=Ace$.... |
00001470 48 69 53 63 6f 72 65 25 28 50 6c 61 79 65 72 25 |HiScore%(Player%|
00001480 2b 31 29 3d 53 63 6f 72 65 25 0d 0b c2 14 20 43 |+1)=Score%.... C|
00001490 6f 6e 67 72 61 74 75 6c 61 74 65 64 3d b9 0d 0b |ongratulated=...|
000014a0 cc 05 e1 0d 0b d6 04 0d 0b e0 04 0d 0b ea 14 dd |................|
000014b0 f2 63 6f 6d 6d 69 73 65 72 61 74 69 6f 6e 73 0d |.commiserations.|
000014c0 0b f4 16 20 f2 63 28 34 2c 22 47 61 6d 65 20 4f |... .c(4,"Game O|
000014d0 76 65 72 22 29 0d 0b fe 2a 20 f2 63 28 39 2c 22 |ver")...* .c(9,"|
000014e0 43 6c 69 63 6b 20 74 68 65 20 6d 6f 75 73 65 20 |Click the mouse |
000014f0 74 6f 20 70 6c 61 79 20 61 67 61 69 6e 22 29 0d |to play again").|
00001500 0c 08 06 20 f5 0d 0c 12 14 20 20 c8 97 20 6d 78 |... ..... .. mx|
00001510 25 2c 6d 79 25 2c 6d 7a 25 0d 0c 1c 0c 20 fd 20 |%,my%,mz%.... . |
00001520 6d 7a 25 3d 30 0d 0c 26 06 20 f5 0d 0c 30 14 20 |mz%=0..&. ...0. |
00001530 20 c8 97 20 6d 78 25 2c 6d 79 25 2c 6d 7a 25 0d | .. mx%,my%,mz%.|
00001540 0c 3a 0c 20 fd 20 6d 7a 25 3e 30 0d 0c 44 05 e1 |.:. . mz%>0..D..|
00001550 0d 0c 4e 04 0d 0c 58 04 0d 0c 62 0c dd f2 64 72 |..N...X...b...dr|
00001560 6f 70 65 6d 0d 0c 6c 16 20 63 31 25 3d 34 2b b3 |opem..l. c1%=4+.|
00001570 28 43 6f 6c 6f 75 72 73 25 29 0d 0c 76 16 20 63 |(Colours%)..v. c|
00001580 32 25 3d 34 2b b3 28 43 6f 6c 6f 75 72 73 25 29 |2%=4+.(Colours%)|
00001590 0d 0c 80 16 20 63 33 25 3d 34 2b b3 28 43 6f 6c |.... c3%=4+.(Col|
000015a0 6f 75 72 73 25 29 0d 0c 8a 10 20 63 6f 6c 25 3d |ours%).... col%=|
000015b0 31 2b b3 28 34 29 0d 0c 94 0c 20 72 6f 77 25 3d |1+.(4).... row%=|
000015c0 31 36 0d 0c 9e 1c 20 e7 20 41 72 72 61 79 25 28 |16.... . Array%(|
000015d0 63 6f 6c 25 2c 72 6f 77 25 29 3d 30 20 8c 0d 0c |col%,row%)=0 ...|
000015e0 a8 0d 20 20 f2 64 72 6f 70 69 74 0d 0c b2 0d 20 |.. .dropit.... |
000015f0 20 f2 6c 61 6e 64 65 72 0d 0c bc 0d 20 20 f2 70 | .lander.... .p|
00001600 6f 69 6e 74 73 0d 0c c6 06 20 cc 0d 0c d0 0c 20 |oints.... ..... |
00001610 20 71 75 69 74 3d b9 0d 0c da 06 20 cd 0d 0c e4 | quit=..... ....|
00001620 05 e1 0d 0c ee 04 0d 0c f8 04 0d 0d 02 0c dd f2 |................|
00001630 64 72 6f 70 69 74 0d 0d 0c 0d 20 6d 6f 75 73 65 |dropit.... mouse|
00001640 64 3d a3 0d 0d 16 0f 20 50 6c 75 6e 67 65 64 25 |d=..... Plunged%|
00001650 3d 30 0d 0d 20 06 20 f5 0d 0d 2a 0d 20 20 f2 73 |=0.. . ...*. .s|
00001660 68 6f 77 69 74 0d 0d 34 0a 20 20 54 25 3d 91 0d |howit..4. T%=..|
00001670 0d 3e 07 20 20 f5 0d 0d 48 15 20 20 20 c8 97 20 |.>. ...H. .. |
00001680 6d 78 25 2c 6d 79 25 2c 6d 7a 25 0d 0d 52 0e 20 |mx%,my%,mz%..R. |
00001690 20 20 e7 20 6d 7a 25 20 8c 0d 0d 5c 14 20 20 20 | . mz% ...\. |
000016a0 20 e7 20 ac 20 6d 6f 75 73 65 64 20 8c 0d 0d 66 | . . moused ...f|
000016b0 15 20 20 20 20 20 50 25 3d b0 6d 78 25 2c 6d 79 |. P%=.mx%,my|
000016c0 25 29 0d 0d 70 12 20 20 20 20 20 e7 20 50 25 3e |%)..p. . P%>|
000016d0 31 33 20 8c 0d 0d 7a 0f 20 20 20 20 20 20 f2 69 |13 ...z. .i|
000016e0 63 6f 6e 0d 0d 84 0a 20 20 20 20 20 cc 0d 0d 8e |con.... ....|
000016f0 1c 20 20 20 20 20 20 e7 20 6d 7a 25 3d 31 20 f2 |. . mz%=1 .|
00001700 73 68 69 66 74 28 2b 31 29 0d 0d 98 19 20 20 20 |shift(+1).... |
00001710 20 20 20 e7 20 6d 7a 25 3d 32 20 f2 72 6f 74 61 | . mz%=2 .rota|
00001720 74 65 0d 0d a2 1c 20 20 20 20 20 20 e7 20 6d 7a |te.... . mz|
00001730 25 3d 34 20 f2 73 68 69 66 74 28 2d 31 29 0d 0d |%=4 .shift(-1)..|
00001740 ac 0a 20 20 20 20 20 cd 0d 0d b6 09 20 20 20 20 |.. ..... |
00001750 cd 0d 0d c0 08 20 20 20 cc 0d 0d ca 10 20 20 20 |..... ..... |
00001760 20 6d 6f 75 73 65 64 3d a3 0d 0d d4 08 20 20 20 | moused=..... |
00001770 cd 0d 0d de 13 20 20 fd 20 91 3e 54 25 2b 44 65 |..... . .>T%+De|
00001780 6c 61 79 25 0d 0d e8 0d 20 20 72 6f 77 25 2d 3d |lay%.... row%-=|
00001790 31 0d 0d f2 18 20 fd 20 41 72 72 61 79 25 28 63 |1.... . Array%(c|
000017a0 6f 6c 25 2c 72 6f 77 25 29 0d 0d fc 05 e1 0d 0e |ol%,row%).......|
000017b0 06 04 0d 0e 10 04 0d 0e 1a 0a dd f2 69 63 6f 6e |............icon|
000017c0 0d 0e 24 0d 20 6d 6f 75 73 65 64 3d b9 0d 0e 2e |..$. moused=....|
000017d0 11 20 c8 97 20 b8 20 6d 78 25 2c 32 34 30 0d 0e |. .. . mx%,240..|
000017e0 38 19 20 69 63 6f 6e 25 3d 28 6d 78 25 2d 31 36 |8. icon%=(mx%-16|
000017f0 29 20 81 20 32 36 30 0d 0e 42 0f 20 c8 8e 20 69 |) . 260..B. .. i|
00001800 63 6f 6e 25 20 ca 0d 0e 4c 18 20 20 c9 20 30 20 |con% ...L. . 0 |
00001810 3a 20 f2 63 68 61 6e 67 65 6c 65 76 65 6c 0d 0e |: .changelevel..|
00001820 56 12 20 20 c9 20 31 20 3a 20 f2 70 61 75 73 65 |V. . 1 : .pause|
00001830 0d 0e 60 13 20 20 c9 20 32 20 3a 20 f2 70 6c 75 |..`. . 2 : .plu|
00001840 6e 67 65 0d 0e 6a 06 20 cb 0d 0e 74 05 e1 0d 0e |nge..j. ...t....|
00001850 7e 04 0d 0e 88 04 0d 0e 92 0b dd f2 70 61 75 73 |~...........paus|
00001860 65 0d 0e 9c 0d 20 72 65 73 75 6d 65 3d a3 0d 0e |e.... resume=...|
00001870 a6 06 20 f5 0d 0e b0 14 20 20 c8 97 20 6d 78 25 |.. ..... .. mx%|
00001880 2c 6d 79 25 2c 6d 7a 25 0d 0e ba 0d 20 20 e7 20 |,my%,mz%.... . |
00001890 6d 7a 25 20 8c 0d 0e c4 13 20 20 20 50 25 3d b0 |mz% ..... P%=.|
000018a0 6d 78 25 2c 6d 79 25 29 0d 0e ce 2d 20 20 20 e7 |mx%,my%)...- .|
000018b0 20 50 25 3e 31 33 20 80 20 6d 78 25 3e 32 39 30 | P%>13 . mx%>290|
000018c0 20 80 20 6d 78 25 3c 35 35 30 20 8c 20 72 65 73 | . mx%<550 . res|
000018d0 75 6d 65 3d b9 0d 0e d8 07 20 20 cd 0d 0e e2 0d |ume=..... .....|
000018e0 20 fd 20 72 65 73 75 6d 65 0d 0e ec 11 20 c8 97 | . resume.... ..|
000018f0 20 b8 20 6d 78 25 2c 32 34 30 0d 0e f6 0f 20 e7 | . mx%,240.... .|
00001900 20 53 63 6f 72 65 25 20 8c 0d 0f 00 0f 20 20 53 | Score% ..... S|
00001910 63 6f 72 65 25 2d 3d 31 0d 0f 0a 1c 20 20 f2 73 |core%-=1.... .s|
00001920 68 6f 77 73 63 6f 72 65 28 53 63 6f 72 65 25 2c |howscore(Score%,|
00001930 36 38 38 29 0d 0f 14 06 20 cd 0d 0f 1e 05 e1 0d |688).... .......|
00001940 0f 28 04 0d 0f 32 04 0d 0f 3c 0c dd f2 70 6c 75 |.(...2...<...plu|
00001950 6e 67 65 0d 0f 46 1d 20 c8 95 20 41 72 72 61 79 |nge..F. .. Array|
00001960 25 28 63 6f 6c 25 2c 72 6f 77 25 2d 31 29 3d 30 |%(col%,row%-1)=0|
00001970 0d 0f 50 11 20 20 50 6c 75 6e 67 65 64 25 2b 3d |..P. Plunged%+=|
00001980 31 0d 0f 5a 0d 20 20 72 6f 77 25 2d 3d 31 0d 0f |1..Z. row%-=1..|
00001990 64 0d 20 20 f2 73 68 6f 77 69 74 0d 0f 6e 06 20 |d. .showit..n. |
000019a0 ce 0d 0f 78 05 e1 0d 0f 82 04 0d 0f 8c 04 0d 0f |...x............|
000019b0 96 0f dd f2 73 68 69 66 74 28 44 25 29 0d 0f a0 |....shift(D%)...|
000019c0 1f 20 e7 20 41 72 72 61 79 25 28 63 6f 6c 25 2b |. . Array%(col%+|
000019d0 44 25 2c 72 6f 77 25 29 3d 30 20 8c 0d 0f aa 0e |D%,row%)=0 .....|
000019e0 20 20 6d 6f 75 73 65 64 3d b9 0d 0f b4 09 20 20 | moused=..... |
000019f0 e6 20 30 0d 0f be 1b 20 20 c8 93 20 c8 90 20 58 |. 0.... .. .. X|
00001a00 25 2c 59 25 2c 34 34 2c 33 2a 34 34 2b 38 0d 0f |%,Y%,44,3*44+8..|
00001a10 c8 0e 20 20 63 6f 6c 25 2b 3d 44 25 0d 0f d2 0d |.. col%+=D%....|
00001a20 20 20 f2 73 68 6f 77 69 74 0d 0f dc 06 20 cd 0d | .showit.... ..|
00001a30 0f e6 05 e1 0d 0f f0 04 0d 0f fa 04 0d 10 04 0c |................|
00001a40 dd f2 72 6f 74 61 74 65 0d 10 0e 0d 20 6d 6f 75 |..rotate.... mou|
00001a50 73 65 64 3d b9 0d 10 18 22 20 43 25 3d 63 31 25 |sed=...." C%=c1%|
00001a60 3a 63 31 25 3d 63 32 25 3a 63 32 25 3d 63 33 25 |:c1%=c2%:c2%=c3%|
00001a70 3a 63 33 25 3d 43 25 0d 10 22 0c 20 f2 73 68 6f |:c3%=C%..". .sho|
00001a80 77 69 74 0d 10 2c 05 e1 0d 10 36 04 0d 10 40 04 |wit..,....6...@.|
00001a90 0d 10 4a 0c dd f2 73 68 6f 77 69 74 0d 10 54 1a |..J...showit..T.|
00001aa0 20 58 25 3d 42 61 73 65 58 25 2b 34 38 2a 28 63 | X%=BaseX%+48*(c|
00001ab0 6f 6c 25 2d 31 29 0d 10 5e 1a 20 59 25 3d 42 61 |ol%-1)..^. Y%=Ba|
00001ac0 73 65 59 25 2b 34 38 2a 28 72 6f 77 25 2d 31 29 |seY%+48*(row%-1)|
00001ad0 0d 10 68 1e 20 e6 20 63 31 25 20 3a 20 c8 93 20 |..h. . c1% : .. |
00001ae0 c8 90 20 58 25 2c 59 25 2c 34 34 2c 34 34 0d 10 |.. X%,Y%,44,44..|
00001af0 72 21 20 e6 20 63 32 25 20 3a 20 c8 93 20 c8 90 |r! . c2% : .. ..|
00001b00 20 58 25 2c 59 25 2b 34 38 2c 34 34 2c 34 34 0d | X%,Y%+48,44,44.|
00001b10 10 7c 21 20 e6 20 63 33 25 20 3a 20 c8 93 20 c8 |.|! . c3% : .. .|
00001b20 90 20 58 25 2c 59 25 2b 39 36 2c 34 34 2c 34 34 |. X%,Y%+96,44,44|
00001b30 0d 10 86 20 20 e6 20 30 20 3a 20 c8 93 20 c8 90 |... . 0 : .. ..|
00001b40 20 58 25 2c 59 25 2b 31 34 34 2c 34 34 2c 34 34 | X%,Y%+144,44,44|
00001b50 0d 10 90 09 20 e6 20 31 34 0d 10 9a 14 20 c8 93 |.... . 14.... ..|
00001b60 20 58 25 2c 59 25 2c 34 34 2c 31 34 30 0d 10 a4 | X%,Y%,44,140...|
00001b70 1b 20 86 20 58 25 2c 59 25 2b 34 34 2c 58 25 2b |. . X%,Y%+44,X%+|
00001b80 34 34 2c 59 25 2b 34 34 0d 10 ae 1b 20 86 20 58 |44,Y%+44.... . X|
00001b90 25 2c 59 25 2b 39 32 2c 58 25 2b 34 34 2c 59 25 |%,Y%+92,X%+44,Y%|
00001ba0 2b 39 32 0d 10 b8 05 e1 0d 10 c2 04 0d 10 cc 04 |+92.............|
00001bb0 0d 10 d6 0c dd f2 6c 61 6e 64 65 72 0d 10 e0 0e |......lander....|
00001bc0 20 53 63 6f 72 65 64 25 3d 30 0d 10 ea 1c 20 41 | Scored%=0.... A|
00001bd0 72 72 61 79 25 28 63 6f 6c 25 2c 72 6f 77 25 2b |rray%(col%,row%+|
00001be0 31 29 3d 63 31 25 0d 10 f4 1c 20 41 72 72 61 79 |1)=c1%.... Array|
00001bf0 25 28 63 6f 6c 25 2c 72 6f 77 25 2b 32 29 3d 63 |%(col%,row%+2)=c|
00001c00 32 25 0d 10 fe 1c 20 41 72 72 61 79 25 28 63 6f |2%.... Array%(co|
00001c10 6c 25 2c 72 6f 77 25 2b 33 29 3d 63 33 25 0d 11 |l%,row%+3)=c3%..|
00001c20 08 04 0d 11 12 06 20 f5 0d 11 1c 09 20 20 e6 20 |...... ..... . |
00001c30 31 0d 11 26 0f 20 20 6d 61 72 6b 65 64 25 3d a3 |1..&. marked%=.|
00001c40 0d 11 30 11 20 20 4d 61 72 6b 65 64 25 28 29 3d |..0. Marked%()=|
00001c50 30 0d 11 3a 12 20 20 e3 20 63 6f 6c 25 3d 31 20 |0..:. . col%=1 |
00001c60 b8 20 36 0d 11 44 0d 20 20 20 72 6f 77 25 3d 31 |. 6..D. row%=1|
00001c70 0d 11 4e 1f 20 20 20 c8 95 20 41 72 72 61 79 25 |..N. .. Array%|
00001c80 28 63 6f 6c 25 2c 72 6f 77 25 29 20 3e 20 30 0d |(col%,row%) > 0.|
00001c90 11 58 1c 20 20 20 20 43 25 3d 41 72 72 61 79 25 |.X. C%=Array%|
00001ca0 28 63 6f 6c 25 2c 72 6f 77 25 29 0d 11 62 18 20 |(col%,row%)..b. |
00001cb0 20 20 20 f2 63 68 65 63 6b 6f 75 74 28 20 30 2c | .checkout( 0,|
00001cc0 2b 31 29 0d 11 6c 18 20 20 20 20 f2 63 68 65 63 |+1)..l. .chec|
00001cd0 6b 6f 75 74 28 2b 31 2c 20 30 29 0d 11 76 18 20 |kout(+1, 0)..v. |
00001ce0 20 20 20 f2 63 68 65 63 6b 6f 75 74 28 2b 31 2c | .checkout(+1,|
00001cf0 2b 31 29 0d 11 80 18 20 20 20 20 f2 63 68 65 63 |+1).... .chec|
00001d00 6b 6f 75 74 28 2d 31 2c 2b 31 29 0d 11 8a 0f 20 |kout(-1,+1).... |
00001d10 20 20 20 72 6f 77 25 2b 3d 31 0d 11 94 08 20 20 | row%+=1.... |
00001d20 20 ce 0d 11 9e 07 20 20 ed 0d 11 a8 04 0d 11 b2 | ..... ........|
00001d30 45 20 f4 20 49 66 20 61 6e 79 20 77 65 72 65 20 |E . If any were |
00001d40 6d 61 72 6b 65 64 20 28 74 68 65 79 20 68 61 76 |marked (they hav|
00001d50 65 20 62 65 65 6e 20 62 6c 61 63 6b 65 64 20 6f |e been blacked o|
00001d60 75 74 29 20 6b 6e 6f 63 6b 20 74 68 65 6d 20 6f |ut) knock them o|
00001d70 75 74 0d 11 bc 28 20 f4 20 6f 66 20 74 68 65 20 |ut...( . of the |
00001d80 61 72 72 61 79 20 61 6e 64 20 64 72 6f 70 20 74 |array and drop t|
00001d90 68 65 20 63 6f 6c 75 6d 6e 73 0d 11 c6 11 20 20 |he columns.... |
00001da0 e7 20 6d 61 72 6b 65 64 25 20 8c 0d 11 d0 13 20 |. marked% ..... |
00001db0 20 20 e3 20 63 6f 6c 25 3d 31 20 b8 20 36 0d 11 | . col%=1 . 6..|
00001dc0 da 15 20 20 20 20 e3 20 72 6f 77 25 3d 31 20 b8 |.. . row%=1 .|
00001dd0 20 31 38 0d 11 e4 1f 20 20 20 20 20 e7 20 4d 61 | 18.... . Ma|
00001de0 72 6b 65 64 25 28 63 6f 6c 25 2c 72 6f 77 25 29 |rked%(col%,row%)|
00001df0 20 8c 0d 11 ee 10 20 20 20 20 20 20 72 75 6e 25 | ..... run%|
00001e00 3d 30 0d 11 f8 1f 20 20 20 20 20 20 c8 95 20 4d |=0.... .. M|
00001e10 61 72 6b 65 64 25 28 63 6f 6c 25 2c 72 6f 77 25 |arked%(col%,row%|
00001e20 29 0d 12 02 12 20 20 20 20 20 20 20 72 6f 77 25 |).... row%|
00001e30 2b 3d 31 0d 12 0c 12 20 20 20 20 20 20 20 72 75 |+=1.... ru|
00001e40 6e 25 2b 3d 31 0d 12 16 0b 20 20 20 20 20 20 ce |n%+=1.... .|
00001e50 0d 12 20 18 20 20 20 20 20 20 e3 20 4a 25 3d 72 |.. . . J%=r|
00001e60 6f 77 25 20 b8 20 32 34 0d 12 2a 2f 20 20 20 20 |ow% . 24..*/ |
00001e70 20 20 20 41 72 72 61 79 25 28 63 6f 6c 25 2c 4a | Array%(col%,J|
00001e80 25 2d 72 75 6e 25 29 3d 41 72 72 61 79 25 28 63 |%-run%)=Array%(c|
00001e90 6f 6c 25 2c 4a 25 29 0d 12 34 1c 20 20 20 20 20 |ol%,J%)..4. |
00001ea0 20 20 e6 20 41 72 72 61 79 25 28 63 6f 6c 25 2c | . Array%(col%,|
00001eb0 4a 25 29 0d 12 3e 20 20 20 20 20 20 20 20 58 25 |J%)..> X%|
00001ec0 3d 42 61 73 65 58 25 2b 34 38 2a 28 63 6f 6c 25 |=BaseX%+48*(col%|
00001ed0 2d 31 29 0d 12 48 23 20 20 20 20 20 20 20 59 25 |-1)..H# Y%|
00001ee0 3d 42 61 73 65 59 25 2b 34 38 2a 28 4a 25 2d 72 |=BaseY%+48*(J%-r|
00001ef0 75 6e 25 2d 31 29 0d 12 52 1c 20 20 20 20 20 20 |un%-1)..R. |
00001f00 20 c8 93 20 c8 90 20 58 25 2c 59 25 2c 34 34 2c | .. .. X%,Y%,44,|
00001f10 34 34 0d 12 5c 1e 20 20 20 20 20 20 20 e7 20 41 |44..\. . A|
00001f20 72 72 61 79 25 28 63 6f 6c 25 2c 4a 25 29 20 8c |rray%(col%,J%) .|
00001f30 0d 12 66 10 20 20 20 20 20 20 20 20 e6 20 31 34 |..f. . 14|
00001f40 0d 12 70 1b 20 20 20 20 20 20 20 20 c8 93 20 58 |..p. .. X|
00001f50 25 2c 59 25 2c 34 34 2c 31 34 30 0d 12 7a 22 20 |%,Y%,44,140..z" |
00001f60 20 20 20 20 20 20 20 86 20 58 25 2c 59 25 2b 34 | . X%,Y%+4|
00001f70 34 2c 58 25 2b 34 34 2c 59 25 2b 34 34 0d 12 84 |4,X%+44,Y%+44...|
00001f80 22 20 20 20 20 20 20 20 20 86 20 58 25 2c 59 25 |" . X%,Y%|
00001f90 2b 39 32 2c 58 25 2b 34 34 2c 59 25 2b 39 32 0d |+92,X%+44,Y%+92.|
00001fa0 12 8e 0c 20 20 20 20 20 20 20 cd 0d 12 98 0b 20 |... ..... |
00001fb0 20 20 20 20 20 ed 0d 12 a2 0a 20 20 20 20 20 cd | ..... .|
00001fc0 0d 12 ac 09 20 20 20 20 ed 0d 12 b6 08 20 20 20 |.... ..... |
00001fd0 ed 0d 12 c0 13 20 20 20 d4 20 31 2c 2d 39 2c 39 |..... . 1,-9,9|
00001fe0 39 2c 31 32 0d 12 ca 07 20 20 cd 0d 12 d4 10 20 |9,12.... ..... |
00001ff0 fd 20 ac 20 6d 61 72 6b 65 64 25 0d 12 de 22 20 |. . marked%..." |
00002000 e7 20 53 63 6f 72 65 64 25 20 8c 20 53 63 6f 72 |. Scored% . Scor|
00002010 65 64 25 2b 3d 50 6c 75 6e 67 65 64 25 0d 12 e8 |ed%+=Plunged%...|
00002020 05 e1 0d 12 f2 04 0d 12 fc 04 0d 13 06 17 dd f2 |................|
00002030 63 68 65 63 6b 6f 75 74 28 64 72 25 2c 64 63 25 |checkout(dr%,dc%|
00002040 29 0d 13 10 16 20 58 25 3d 63 6f 6c 25 20 3a 20 |).... X%=col% : |
00002050 59 25 3d 72 6f 77 25 0d 13 1a 21 20 e7 20 41 72 |Y%=row%...! . Ar|
00002060 72 61 79 25 28 58 25 2b 64 63 25 2c 59 25 2b 64 |ray%(X%+dc%,Y%+d|
00002070 72 25 29 3d 43 25 20 8c 0d 13 24 26 20 20 e7 20 |r%)=C% ...$& . |
00002080 41 72 72 61 79 25 28 58 25 2b 32 2a 64 63 25 2c |Array%(X%+2*dc%,|
00002090 59 25 2b 32 2a 64 72 25 29 3d 43 25 20 8c 0d 13 |Y%+2*dr%)=C% ...|
000020a0 2e 10 20 20 20 6d 61 72 6b 65 64 25 3d b9 0d 13 |.. marked%=...|
000020b0 38 0f 20 20 20 54 6f 74 61 6c 25 3d 30 0d 13 42 |8. Total%=0..B|
000020c0 1a 20 20 20 c8 95 20 41 72 72 61 79 25 28 58 25 |. .. Array%(X%|
000020d0 2c 59 25 29 3d 43 25 0d 13 4c 18 20 20 20 20 4d |,Y%)=C%..L. M|
000020e0 61 72 6b 65 64 25 28 58 25 2c 59 25 29 3d 31 0d |arked%(X%,Y%)=1.|
000020f0 13 56 11 20 20 20 20 54 6f 74 61 6c 25 2b 3d 31 |.V. Total%+=1|
00002100 0d 13 60 35 20 20 20 20 c8 93 20 c8 90 20 42 61 |..`5 .. .. Ba|
00002110 73 65 58 25 2b 34 38 2a 28 58 25 2d 31 29 2c 42 |seX%+48*(X%-1),B|
00002120 61 73 65 59 25 2b 34 38 2a 28 59 25 2d 31 29 2c |aseY%+48*(Y%-1),|
00002130 34 34 2c 34 34 0d 13 6a 19 20 20 20 20 58 25 2b |44,44..j. X%+|
00002140 3d 64 63 25 20 3a 20 59 25 2b 3d 64 72 25 0d 13 |=dc% : Y%+=dr%..|
00002150 74 08 20 20 20 ce 0d 13 7e 1d 20 20 20 53 63 6f |t. ...~. Sco|
00002160 72 65 64 25 2b 3d 54 6f 74 61 6c 25 2b 4c 65 76 |red%+=Total%+Lev|
00002170 65 6c 25 0d 13 88 07 20 20 cd 0d 13 92 06 20 cd |el%.... ..... .|
00002180 0d 13 9c 05 e1 0d 13 a6 04 0d 13 b0 04 0d 13 ba |................|
00002190 0c dd f2 70 6f 69 6e 74 73 0d 13 c4 10 20 e7 20 |...points.... . |
000021a0 53 63 6f 72 65 64 25 20 8c 0d 13 ce 15 20 20 53 |Scored% ..... S|
000021b0 63 6f 72 65 25 2b 3d 53 63 6f 72 65 64 25 0d 13 |core%+=Scored%..|
000021c0 d8 1c 20 20 f2 73 68 6f 77 73 63 6f 72 65 28 53 |.. .showscore(S|
000021d0 63 6f 72 65 25 2c 36 38 38 29 0d 13 e2 19 20 20 |core%,688).... |
000021e0 e7 20 53 63 6f 72 65 25 3e 74 72 69 67 67 65 72 |. Score%>trigger|
000021f0 25 20 8c 0d 13 ec 11 20 20 20 f3 20 74 72 69 67 |% ..... . trig|
00002200 67 65 72 25 0d 13 f6 13 20 20 20 f2 63 68 61 6e |ger%.... .chan|
00002210 67 65 6c 65 76 65 6c 0d 14 00 07 20 20 cd 0d 14 |gelevel.... ...|
00002220 0a 06 20 cd 0d 14 14 05 e1 0d 14 1e 04 0d 14 28 |.. ............(|
00002230 04 0d 14 32 0e dd f2 63 28 5a 25 2c 61 24 29 0d |...2...c(Z%,a$).|
00002240 14 3c 17 20 f1 20 8a 32 30 2d a9 28 61 24 29 2f |.<. . .20-.(a$)/|
00002250 32 2c 5a 25 29 3b 0d 14 46 11 20 e3 20 4a 25 3d |2,Z%);..F. . J%=|
00002260 31 20 b8 20 a9 61 24 0d 14 50 12 20 20 63 24 3d |1 . .a$..P. c$=|
00002270 c1 61 24 2c 4a 25 2c 31 29 0d 14 5a 0b 20 20 f1 |.a$,J%,1)..Z. .|
00002280 20 63 24 3b 0d 14 64 14 20 20 d4 20 31 2c 2d 35 | c$;..d. . 1,-5|
00002290 2c 32 2a 97 63 24 2c 32 0d 14 6e 0e 20 20 c8 96 |,2*.c$,2..n. ..|
000022a0 3a c8 96 3a c8 96 0d 14 78 06 20 ed 0d 14 82 05 |:..:....x. .....|
000022b0 e1 0d 14 8c 04 0d 14 96 04 0d 14 a0 0e dd a4 6e |...............n|
000022c0 6f 72 6d 28 5a 25 29 0d 14 aa 14 3d c2 c3 28 31 |orm(Z%)....=..(1|
000022d0 30 30 30 30 2b 5a 25 29 2c 34 29 0d 14 b4 04 0d |0000+Z%),4).....|
000022e0 14 be 31 f4 20 54 72 69 67 67 65 72 20 70 6f 69 |..1. Trigger poi|
000022f0 6e 74 73 20 61 74 20 77 68 69 63 68 20 74 68 65 |nts at which the|
00002300 20 6c 65 76 65 6c 20 69 6e 63 72 65 61 73 65 73 | level increases|
00002310 0d 14 c8 30 dc 20 35 30 2c 31 30 30 2c 32 30 30 |...0. 50,100,200|
00002320 2c 33 30 30 2c 35 30 30 2c 38 30 30 2c 31 30 30 |,300,500,800,100|
00002330 30 2c 31 35 30 30 2c 32 30 30 30 2c 39 39 39 39 |0,1500,2000,9999|
00002340 0d ff |..|
00002342 
.