Home » CEEFAX disks » telesoftware15.adl » 28-04-89/Poster

28-04-89/Poster

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 » CEEFAX disks » telesoftware15.adl
Filename: 28-04-89/Poster
Read OK: ✔
File size: 1676 bytes
Load address: FFFF1C00
Exec address: FFFF8023
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
  100REM  PUZZLER  by  A. Pratt
  110REM  (c) The Micro User
  120MODE4
  130DIM A$(15),D$(9),list$(5)
  140DIM R%(15),N%(15),C%(16),S%(5)
  150PROCinitialise
  160PROCintroduction
  170PROCchoose
  180MODE5
  190FOR I%=0 TO 14:A$(I%)="*":NEXT
  200A$(15)=" "
  210IF P%<4 PROCfillposter
  220VDU23;8202;0;0;0;
  230VDU19,1,0;0;19,2,0;0;19,3,0;0;
  240MOVE 16,336:PROCbox(3,672)
  250PROCboard(1):VDU19,3,7;0;:PROCstory
  260VDU28,0,31,19,22:CLS:VDU26
  270PROCboard(1):PROCjumble:time=TIME
  280REPEAT
  290VDU19,1,4;0;19,2,1;0;
  300VDU19,1,1;0;19,2,4;0;
  310UNTIL TIME=time+200
  320VDU19,1,0;0;19,2,0;0;
  330PROCboard(2)
  340VDU19,1,1;0;19,2,4;0;
  350PROCpieces
  360old%=12:new%=old%:count=0:solved=FALSE
  370COLOUR2:PRINTTAB(13,14)"MOVES:":COLOUR3:PRINTTAB(15,16);count
  380VDU28,0,31,19,23:PROCinstruct
  390REPEAT:VDU5
  400MOVE (old% MOD 4)*160+80,888-(old% DIV 4)*160:GCOL 3,3:PRINT"+"
  410REPEAT:*FX15,1
  420valid=FALSE:key=GET
  430MOVE (old% MOD 4)*160+80,888-(old% DIV 4)*160:GCOL 3,3:PRINT"+"
  440IF (key=90 OR key=122) AND (old% MOD 4)<>0 THEN new%=old%-1:valid=TRUE
  450IF (key=88 OR key=120) AND (old% MOD 4)<>3 THEN new%=old%+1:valid=TRUE
  460IF (key=42 OR key=58) AND (old% DIV 4)<>0 THEN new%=old%-4:valid=TRUE
  470IF (key=47 OR key=63) AND (old% DIV 4)<>3 THEN new%=old%+4:valid=TRUE
  480MOVE (new% MOD 4)*160+80,888-(new% DIV 4)*160:GCOL 3,3:PRINT"+"
  490UNTIL valid
  500PROCwait(15)
  510count=count+1
  520MOVE (new% MOD 4)*160+40,840-(new% DIV 4)*160:PROCbox(0,150)
  530PROCwait(15)
  540MOVE (old% MOD 4)*160+40,840-(old% DIV 4)*160:PROCbox((N%(new%) AND 24)/8,150)
  550A$(old%)=A$(new%):T%=N%(old%):N%(old%)=N%(new%):N%(new%)=T%
  560MOVE (old% MOD 4)*160+80,928-(old% DIV 4)*160:PRINT A$(old%)
  570PROCwait(15)
  580MOVE 965,335:PROCbox(0,176)
  590MOVE 965,511:PRINT;count
  600VDU4
  610old%=new%:PROCtest
  620UNTIL solved
  630CLS:VDU19,1,9;0;19,2,12;0;19,3,11;0;
  640VDU5
  650MOVE 832,447:GCOL0,2:PRINT"SOLVED"
  660VDU4:PROCwait(20)
  670PRINT"PETE WISHES TO THANK"'" YOU   VERY   MUCH"
  680PROCwait(400)
  690MODE4
  700VDU19,0,4;0;
  710PRINTTAB(14,1)"WIZZ KIDS"''TAB(8)"Name"TAB(19)"Minimum Moves"
  720IF count>=min GOTO 760
  730min=count:J%=0
  740FOR I%=5 TO 1 STEP-1:IF min<=S%(I%) J%=I%
  750NEXT
  760FOR I%=1 TO 5
  770IF I%=J% PRINT'TAB(7)name$TAB(27);min
  780PRINT'TAB(7)list$(I%)TAB(27);S%(I%)
  790NEXT:COLOUR3
  800IF J%=0 PRINT'TAB(7)name$TAB(27);min
  810PRINT'''"1  Try to improve your score ";name$;" ?"
  820PRINT'"2  Try another puzzle ?"
  830PRINT'"3  Do you think you can do better ?"
  840REPEAT:VDU28,0,31,39,28:CLS:*FX15,1
  850INPUT"What is your choice (1 to 3) ? " Q%
  860UNTIL Q%>0 AND Q%<4
  870IF Q%=3 AND J% PROCnewlist
  880ON Q% GOTO 180,170,160
  890END
  900DEFPROCinitialise
  910FOR I%=1 TO 9:READ D$(I%)
  920NEXT
  930FOR I%=1 TO 5:READ list$(I%):READ S%(I%)
  940NEXT
  950FOR I%=0 TO 15:READ R:R%(I%)=R+7
  960NEXT
  970ENDPROC
  980DEFPROCintroduction
  990VDU26:CLS:VDU19,0,4;0;
 1000PRINT''"Welcome to Pete and his collection of"''"puzzling posters. Try and help him sort"''"out the letters into the correct order"''"and earn yourself a place on the list of"
 1010PRINT'TAB(14)"WIZZ KIDS"'''"Only puzzles 1 to 3 are shown sorted"''"out before being randomly jumbled just"''"like the other six."
 1020name$=""
 1030REPEAT:VDU28,0,31,39,28:CLS:*FX15,1
 1040INPUT"Enter your Name ? " name$
 1050IF LEN(name$)>8 name$=LEFT$(name$,8)
 1060UNTIL name$<>""
 1070min=9999
 1080ENDPROC
 1090DEFPROCchoose
 1100REPEAT:VDU28,0,31,39,28:CLS:*FX15,1
 1110INPUT"Choose your puzzle (Enter 1 to 9) ? " P%
 1120UNTIL P%>0 AND P%<10
 1130ENDPROC
 1140DEFPROCstory
 1150PRINTTAB(14,2)"POOR"TAB(13,4)"PETE'S"TAB(12,6)"PUZZLING"TAB(13,8)"POSTER"TAB(14,10)"No.";P%
 1160PROCwait(10):VDU19,1,1;0;19,2,4;0;:PROCpieces
 1170COLOUR1:PRINTTAB(0,22)"THIS  IS  WHAT  IT"'"SHOULD  LOOK  LIKE"'"HOWEVER SOME NAUGHTYBOYS  HAVE  JUMBLED"'"ALL   THE   LETTERS"
 1180COLOUR2:PRINT"CAN YOU TRY AND SORTIT OUT FOR POOR PETE":COLOUR3
 1190PROCwait(30)
 1200PRINT"Press the SPACE bar"
 1210REPEAT:UNTIL INKEY(-99)
 1220ENDPROC
 1230DEFPROCinstruct
 1240COLOUR2:PRINT"Use"''"to move the ";:COLOUR3:PRINT;"+";:COLOUR2:PRINT;" symbolonto the  piece  youwish  to  move  and sort out the Poster with  all  the  ";:COLOUR1:PRINT"red";:COLOUR2:PRINT" squares at the  top":COLOUR3
 1250PRINTTAB(4,0)"Up= *,  Down= ?   Left= Z, Right= X"
 1260ENDPROC
 1270DEFPROCnewlist
 1280IF J%=5 GOTO 1320
 1290FOR I%=4 TO J% STEP-1
 1300S%(I%+1)=S%(I%):list$(I%+1)=list$(I%)
 1310NEXT
 1320S%(J%)=min:list$(J%)=name$
 1330ENDPROC
 1340DEFPROCboard(R%):T%=0
 1350FOR Y%=840 TO 360 STEP -160
 1360FOR X%=40 TO 520 STEP 160
 1370MOVE X%,Y%
 1380IF R%=1 C%=1+(T% DIV 8)-2*(T%=15)
 1390IF R%=2 C%=1+((T%+T% DIV 4 MOD 2)MOD 2)-2*(T%=12)
 1400PROCbox(C%,150)
 1410T%=T%+1
 1420NEXT
 1430NEXT
 1440ENDPROC
 1450DEFPROCpieces
 1460VDU5
 1470FOR I%=0 TO 15
 1480MOVE (I% MOD 4)*160+80,928-(I% DIV 4)*160:PRINT A$(I%)
 1490NEXT
 1500VDU4:PROCwait(20)
 1510ENDPROC
 1520DEFPROCbox(C%,S%)
 1530GCOL 0,C%:PLOT 1,S%,0:PLOT 81,0,S%:PLOT 1,-S%,0:PLOT 81,0,-S%:GCOL 0,3
 1540ENDPROC
 1550DEFPROCfillposter
 1560K%=VAL(RIGHT$(D$(P%),1))
 1570FOR I%=0 TO 14:R%=I%+1
 1580PROCconvert
 1590NEXT
 1600A$(15)=" "
 1610ENDPROC
 1620DEFPROCjumble
 1630FOR I%=0 TO 16:C%(I%)=0:NEXT
 1640K%=VAL(RIGHT$(D$(P%),1))
 1650FOR L%=0 TO 14:I%=L%-(L%>11)
 1660R%=RND(8)+8*(I% DIV 4 MOD 2 EOR I% MOD 2)
 1670IF R%=16 OR C%(R%) GOTO 1660
 1680PROCconvert:C%(R%)=-1
 1690NEXT
 1700A$(12)=" ":N%(12)=R%(15)
 1710ENDPROC
 1720DEFPROCconvert
 1730B%=VAL(MID$(D$(P%),R%*2,1)):A$(I%)=CHR$(55+VAL(MID$(D$(P%),R%*2-1,1))*K%+B%*((B%<7)-(B%>7)))
 1740N%(I%)=R%(R%-1)
 1750ENDPROC
 1760DEFPROCtest
 1770failed=FALSE:F%=0:T$=""
 1780FOR I%=0 TO 15
 1790IF N%(I%)=R%(I%) THEN F%=F%+1 ELSE T$=T$+A$(I%)
 1800NEXT
 1810IF F%<16 failed=TRUE
 1820IF F%=14 AND LEFT$(T$,1)=RIGHT$(T$,1) failed=FALSE
 1830IF N%(15)<>25 failed=TRUE
 1840IF NOT failed THEN solved=TRUE
 1850ENDPROC
 1860DEFPROCwait(W%)
 1870time=TIME
 1880REPEAT:UNTIL TIME>time+W%
 1890ENDPROC
 1900REM puzzle data
 1910DATA 2244372123272747222445563637517
 1920DATA 9452634343745484637481424182614
 1930DATA 3251526163313532614342627151755
 1940DATA 4736442225375644233731432445568
 1950DATA 5322464142224434324653436434516
 1960DATA 4331546573356243614342623335635
 1970DATA 2437332344423144273337474522238
 1980DATA 4281426144749484533281424182614
 1990DATA 5334224342463634312265343366536
 2000DATA WIZARD,100,BRAINS,150,SMARTY,200,PETE,250,GRANDPA,300
 2010DATA 1,3,5,7,8,6,4,2,9,11,13,15,16,14,12,18
 4000REM Wordcoder
 4010REM Assemble the codes for all the alphabet
 4020MODE6
 4030DIM A%(26,5),B%(26,5),K%(26,5)
 4035PRINT TAB(15)"WORD CODER"''"Enter your 15 letters"'
 4040D$="                                ":D$=""
 4050FOR L%=1 TO 4
 4060FOR S%=10 TO 35:Z$=CHR$(S%+55):K%=L%+3
 4070A%=INT(S%/K%):B%=S%-A%*K%
 4080IF B%<8 A%=A%+1:B%=B%-K%
 4090IF B%<-6 A%=A%-1:B%=B%+K%
 4100IF A%>9 K%=K%+1:GOTO 4070
 4110IF A%<0 K%=K%-1:GOTO 4070
 4120A%(S%-9,L%)=A%:B%(S%-9,L%)=B%:K%(S%-9,L%)=K%
 4130NEXT
 4140NEXT
 4150REM Assemble code for the words
 4160X%=RND(4)
 4170FOR S%=1 TO 15
 4180PRINT"Letter ";S%;" ?";:INPUT " "A$:I%=ASC(A$)-64+32*(A$>="a")
 4190D$=D$+STR$(A%(I%,X%))
 4200IF B%(I%,X%)<0 D$=D$+STR$(-1*B%(I%,X%)) ELSE D$=D$+"7"
 4210NEXT
 4220D$=D$+STR$(X%+3):PRINT 'D$'

d�  PUZZLER  by  A. Pratt
n�  (c) The Micro User
x�4
�� A$(15),D$(9),list$(5)
� � R%(15),N%(15),C%(16),S%(5)
��initialise
��introduction
��choose
��5
�� I%=0 � 14:A$(I%)="*":�
�A$(15)=" "
�� P%<4 �fillposter
��23;8202;0;0;0;
� �19,1,0;0;19,2,0;0;19,3,0;0;
�� 16,336:�box(3,672)
��board(1):�19,3,7;0;:�story
�28,0,31,19,22:�:�26
�board(1):�jumble:time=�
�
"�19,1,4;0;19,2,1;0;
,�19,1,1;0;19,2,4;0;
6� �=time+200
@�19,1,0;0;19,2,0;0;
J
�board(2)
T�19,1,1;0;19,2,4;0;
^�pieces
h&old%=12:new%=old%:count=0:solved=�
r)�2:�13,14)"MOVES:":�3:�15,16);count
|�28,0,31,19,23:�instruct
��:�5
�5� (old% � 4)*160+80,888-(old% � 4)*160:� 3,3:�"+"
�
�:*FX15,1
�valid=�:key=�
�5� (old% � 4)*160+80,888-(old% � 4)*160:� 3,3:�"+"
�>� (key=90 � key=122) � (old% � 4)<>0 � new%=old%-1:valid=�
�>� (key=88 � key=120) � (old% � 4)<>3 � new%=old%+1:valid=�
�=� (key=42 � key=58) � (old% � 4)<>0 � new%=old%-4:valid=�
�=� (key=47 � key=63) � (old% � 4)<>3 � new%=old%+4:valid=�
�5� (new% � 4)*160+80,888-(new% � 4)*160:� 3,3:�"+"
�� valid
�
�wait(15)
�count=count+1
6� (new% � 4)*160+40,840-(new% � 4)*160:�box(0,150)

�wait(15)
F� (old% � 4)*160+40,840-(old% � 4)*160:�box((N%(new%) � 24)/8,150)
&?A$(old%)=A$(new%):T%=N%(old%):N%(old%)=N%(new%):N%(new%)=T%
05� (old% � 4)*160+80,928-(old% � 4)*160:� A$(old%)
:
�wait(15)
D� 965,335:�box(0,176)
N� 965,511:�;count
X�4
bold%=new%:�test
l� solved
v$�:�19,1,9;0;19,2,12;0;19,3,11;0;
��5
�� 832,447:�0,2:�"SOLVED"
��4:�wait(20)
�0�"PETE WISHES TO THANK"'" YOU   VERY   MUCH"
��wait(400)
��4
��19,0,4;0;
�4�14,1)"WIZZ KIDS"''�8)"Name"�19)"Minimum Moves"
�� count>=min � �dxB
�min=count:J%=0
�&� I%=5 � 1 �-1:� min<=S%(I%) J%=I%
��
�� I%=1 � 5
� I%=J% �'�7)name$�27);min
�'�7)list$(I%)�27);S%(I%)
�:�3
 � J%=0 �'�7)name$�27);min
*2�'''"1  Try to improve your score ";name$;" ?"
4�'"2  Try another puzzle ?"
>+�'"3  Do you think you can do better ?"
H�:�28,0,31,39,28:�:*FX15,1
R)�"What is your choice (1 to 3) ? " Q%
\� Q%>0 � Q%<4
f� Q%=3 � J% �newlist
p� Q% � �tt@,�tj@,�t`@
z�
���initialise
�� I%=1 � 9:� D$(I%)
��
�#� I%=1 � 5:� list$(I%):� S%(I%)
��
�� I%=0 � 15:� R:R%(I%)=R+7
��
��
���introduction
��26:�:�19,0,4;0;
��''"Welcome to Pete and his collection of"''"puzzling posters. Try and help him sort"''"out the letters into the correct order"''"and earn yourself a place on the list of"
��'�14)"WIZZ KIDS"'''"Only puzzles 1 to 3 are shown sorted"''"out before being randomly jumbled just"''"like the other six."
�name$=""
�:�28,0,31,39,28:�:*FX15,1
�"Enter your Name ? " name$
 � �(name$)>8 name$=�name$,8)
$� name$<>""
.min=9999
8�
B��choose
L�:�28,0,31,39,28:�:*FX15,1
V.�"Choose your puzzle (Enter 1 to 9) ? " P%
`� P%>0 � P%<10
j�
t��story
~L�14,2)"POOR"�13,4)"PETE'S"�12,6)"PUZZLING"�13,8)"POSTER"�14,10)"No.";P%
�)�wait(10):�19,1,1;0;19,2,4;0;:�pieces
�w�1:�0,22)"THIS  IS  WHAT  IT"'"SHOULD  LOOK  LIKE"'"HOWEVER SOME NAUGHTYBOYS  HAVE  JUMBLED"'"ALL   THE   LETTERS"
�5�2:�"CAN YOU TRY AND SORTIT OUT FOR POOR PETE":�3
�
�wait(30)
��"Press the SPACE bar"
��:� �(-99)
��
���instruct
ح�2:�"Use"''"to move the ";:�3:�;"+";:�2:�;" symbolonto the  piece  youwish  to  move  and sort out the Poster with  all  the  ";:�1:�"red";:�2:�" squares at the  top":�3
�/�4,0)"Up= *,  Down= ?   Left= Z, Right= X"
��
�
��newlist
� J%=5 � �ThE

� I%=4 � J% �-1
)S%(I%+1)=S%(I%):list$(I%+1)=list$(I%)
�
(S%(J%)=min:list$(J%)=name$
2�
<��board(R%):T%=0
F� Y%=840 � 360 � -160
P� X%=40 � 520 � 160
Z� X%,Y%
d"� R%=1 C%=1+(T% � 8)-2*(T%=15)
n.� R%=2 C%=1+((T%+T% � 4 � 2)� 2)-2*(T%=12)
x�box(C%,150)
�T%=T%+1
��
��
��
���pieces
��5
�� I%=0 � 15
�/� (I% � 4)*160+80,928-(I% � 4)*160:� A$(I%)
��
��4:�wait(20)
��
���box(C%,S%)
�8� 0,C%:� 1,S%,0:� 81,0,S%:� 1,-S%,0:� 81,0,-S%:� 0,3
�
��fillposter
K%=�(�D$(P%),1))
"� I%=0 � 14:R%=I%+1
,�convert
6�
@A$(15)=" "
J�
T��jumble
^� I%=0 � 16:C%(I%)=0:�
hK%=�(�D$(P%),1))
r� L%=0 � 14:I%=L%-(L%>11)
|#R%=�(8)+8*(I% � 4 � 2 � I% � 2)
�� R%=16 � C%(R%) � �D|F
��convert:C%(R%)=-1
��
�A$(12)=" ":N%(12)=R%(15)
��
�
��convert
�QB%=�(�D$(P%),R%*2,1)):A$(I%)=�(55+�(�D$(P%),R%*2-1,1))*K%+B%*((B%<7)-(B%>7)))
�N%(I%)=R%(R%-1)
��
�
��test
�failed=�:F%=0:T$=""
�� I%=0 � 15
�,� N%(I%)=R%(I%) � F%=F%+1 � T$=T$+A$(I%)
�
� F%<16 failed=�
$� F%=14 � �T$,1)=�T$,1) failed=�
&� N%(15)<>25 failed=�
0� � failed � solved=�
:�
D��wait(W%)
N
time=�
X�:� �>time+W%
b�
l� puzzle data
v%� 2244372123272747222445563637517
�%� 9452634343745484637481424182614
�%� 3251526163313532614342627151755
�%� 4736442225375644233731432445568
�%� 5322464142224434324653436434516
�%� 4331546573356243614342623335635
�%� 2437332344423144273337474522238
�%� 4281426144749484533281424182614
�%� 5334224342463634312265343366536
�;� WIZARD,100,BRAINS,150,SMARTY,200,PETE,250,GRANDPA,300
�,� 1,3,5,7,8,6,4,2,9,11,13,15,16,14,12,18
�� Wordcoder
�-� Assemble the codes for all the alphabet
��6
� � A%(26,5),B%(26,5),K%(26,5)
�0� �15)"WORD CODER"''"Enter your 15 letters"'
�/D$="                                ":D$=""
�� L%=1 � 4
�$� S%=10 � 35:Z$=�(S%+55):K%=L%+3
�A%=�(S%/K%):B%=S%-A%*K%
�� B%<8 A%=A%+1:B%=B%-K%
�� B%<-6 A%=A%-1:B%=B%+K%
� A%>9 K%=K%+1:� �dfO
� A%<0 K%=K%-1:� �dfO
0A%(S%-9,L%)=A%:B%(S%-9,L%)=B%:K%(S%-9,L%)=K%
"�
,�
6!� Assemble code for the words
@X%=�(4)
J� S%=1 � 15
T8�"Letter ";S%;" ?";:� " "A$:I%=�(A$)-64+32*(A$>="a")
^D$=D$+�(A%(I%,X%))
h3� B%(I%,X%)<0 D$=D$+�(-1*B%(I%,X%)) � D$=D$+"7"
r�
|D$=D$+�(X%+3):� 'D$'
�
00000000  0d 00 64 1c f4 20 20 50  55 5a 5a 4c 45 52 20 20  |..d..  PUZZLER  |
00000010  62 79 20 20 41 2e 20 50  72 61 74 74 0d 00 6e 19  |by  A. Pratt..n.|
00000020  f4 20 20 28 63 29 20 54  68 65 20 4d 69 63 72 6f  |.  (c) The Micro|
00000030  20 55 73 65 72 0d 00 78  06 eb 34 0d 00 82 1b de  | User..x..4.....|
00000040  20 41 24 28 31 35 29 2c  44 24 28 39 29 2c 6c 69  | A$(15),D$(9),li|
00000050  73 74 24 28 35 29 0d 00  8c 20 de 20 52 25 28 31  |st$(5)... . R%(1|
00000060  35 29 2c 4e 25 28 31 35  29 2c 43 25 28 31 36 29  |5),N%(15),C%(16)|
00000070  2c 53 25 28 35 29 0d 00  96 0f f2 69 6e 69 74 69  |,S%(5).....initi|
00000080  61 6c 69 73 65 0d 00 a0  11 f2 69 6e 74 72 6f 64  |alise.....introd|
00000090  75 63 74 69 6f 6e 0d 00  aa 0b f2 63 68 6f 6f 73  |uction.....choos|
000000a0  65 0d 00 b4 06 eb 35 0d  00 be 1c e3 20 49 25 3d  |e.....5..... I%=|
000000b0  30 20 b8 20 31 34 3a 41  24 28 49 25 29 3d 22 2a  |0 . 14:A$(I%)="*|
000000c0  22 3a ed 0d 00 c8 0e 41  24 28 31 35 29 3d 22 20  |":.....A$(15)=" |
000000d0  22 0d 00 d2 16 e7 20 50  25 3c 34 20 f2 66 69 6c  |"..... P%<4 .fil|
000000e0  6c 70 6f 73 74 65 72 0d  00 dc 13 ef 32 33 3b 38  |lposter.....23;8|
000000f0  32 30 32 3b 30 3b 30 3b  30 3b 0d 00 e6 20 ef 31  |202;0;0;0;... .1|
00000100  39 2c 31 2c 30 3b 30 3b  31 39 2c 32 2c 30 3b 30  |9,1,0;0;19,2,0;0|
00000110  3b 31 39 2c 33 2c 30 3b  30 3b 0d 00 f0 18 ec 20  |;19,3,0;0;..... |
00000120  31 36 2c 33 33 36 3a f2  62 6f 78 28 33 2c 36 37  |16,336:.box(3,67|
00000130  32 29 0d 00 fa 1f f2 62  6f 61 72 64 28 31 29 3a  |2).....board(1):|
00000140  ef 31 39 2c 33 2c 37 3b  30 3b 3a f2 73 74 6f 72  |.19,3,7;0;:.stor|
00000150  79 0d 01 04 18 ef 32 38  2c 30 2c 33 31 2c 31 39  |y.....28,0,31,19|
00000160  2c 32 32 3a db 3a ef 32  36 0d 01 0e 1c f2 62 6f  |,22:.:.26.....bo|
00000170  61 72 64 28 31 29 3a f2  6a 75 6d 62 6c 65 3a 74  |ard(1):.jumble:t|
00000180  69 6d 65 3d 91 0d 01 18  05 f5 0d 01 22 17 ef 31  |ime=........"..1|
00000190  39 2c 31 2c 34 3b 30 3b  31 39 2c 32 2c 31 3b 30  |9,1,4;0;19,2,1;0|
000001a0  3b 0d 01 2c 17 ef 31 39  2c 31 2c 31 3b 30 3b 31  |;..,..19,1,1;0;1|
000001b0  39 2c 32 2c 34 3b 30 3b  0d 01 36 10 fd 20 91 3d  |9,2,4;0;..6.. .=|
000001c0  74 69 6d 65 2b 32 30 30  0d 01 40 17 ef 31 39 2c  |time+200..@..19,|
000001d0  31 2c 30 3b 30 3b 31 39  2c 32 2c 30 3b 30 3b 0d  |1,0;0;19,2,0;0;.|
000001e0  01 4a 0d f2 62 6f 61 72  64 28 32 29 0d 01 54 17  |.J..board(2)..T.|
000001f0  ef 31 39 2c 31 2c 31 3b  30 3b 31 39 2c 32 2c 34  |.19,1,1;0;19,2,4|
00000200  3b 30 3b 0d 01 5e 0b f2  70 69 65 63 65 73 0d 01  |;0;..^..pieces..|
00000210  68 26 6f 6c 64 25 3d 31  32 3a 6e 65 77 25 3d 6f  |h&old%=12:new%=o|
00000220  6c 64 25 3a 63 6f 75 6e  74 3d 30 3a 73 6f 6c 76  |ld%:count=0:solv|
00000230  65 64 3d a3 0d 01 72 29  fb 32 3a f1 8a 31 33 2c  |ed=...r).2:..13,|
00000240  31 34 29 22 4d 4f 56 45  53 3a 22 3a fb 33 3a f1  |14)"MOVES:":.3:.|
00000250  8a 31 35 2c 31 36 29 3b  63 6f 75 6e 74 0d 01 7c  |.15,16);count..||
00000260  1c ef 32 38 2c 30 2c 33  31 2c 31 39 2c 32 33 3a  |..28,0,31,19,23:|
00000270  f2 69 6e 73 74 72 75 63  74 0d 01 86 08 f5 3a ef  |.instruct.....:.|
00000280  35 0d 01 90 35 ec 20 28  6f 6c 64 25 20 83 20 34  |5...5. (old% . 4|
00000290  29 2a 31 36 30 2b 38 30  2c 38 38 38 2d 28 6f 6c  |)*160+80,888-(ol|
000002a0  64 25 20 81 20 34 29 2a  31 36 30 3a e6 20 33 2c  |d% . 4)*160:. 3,|
000002b0  33 3a f1 22 2b 22 0d 01  9a 0d f5 3a 2a 46 58 31  |3:."+".....:*FX1|
000002c0  35 2c 31 0d 01 a4 11 76  61 6c 69 64 3d a3 3a 6b  |5,1....valid=.:k|
000002d0  65 79 3d a5 0d 01 ae 35  ec 20 28 6f 6c 64 25 20  |ey=....5. (old% |
000002e0  83 20 34 29 2a 31 36 30  2b 38 30 2c 38 38 38 2d  |. 4)*160+80,888-|
000002f0  28 6f 6c 64 25 20 81 20  34 29 2a 31 36 30 3a e6  |(old% . 4)*160:.|
00000300  20 33 2c 33 3a f1 22 2b  22 0d 01 b8 3e e7 20 28  | 3,3:."+"...>. (|
00000310  6b 65 79 3d 39 30 20 84  20 6b 65 79 3d 31 32 32  |key=90 . key=122|
00000320  29 20 80 20 28 6f 6c 64  25 20 83 20 34 29 3c 3e  |) . (old% . 4)<>|
00000330  30 20 8c 20 6e 65 77 25  3d 6f 6c 64 25 2d 31 3a  |0 . new%=old%-1:|
00000340  76 61 6c 69 64 3d b9 0d  01 c2 3e e7 20 28 6b 65  |valid=....>. (ke|
00000350  79 3d 38 38 20 84 20 6b  65 79 3d 31 32 30 29 20  |y=88 . key=120) |
00000360  80 20 28 6f 6c 64 25 20  83 20 34 29 3c 3e 33 20  |. (old% . 4)<>3 |
00000370  8c 20 6e 65 77 25 3d 6f  6c 64 25 2b 31 3a 76 61  |. new%=old%+1:va|
00000380  6c 69 64 3d b9 0d 01 cc  3d e7 20 28 6b 65 79 3d  |lid=....=. (key=|
00000390  34 32 20 84 20 6b 65 79  3d 35 38 29 20 80 20 28  |42 . key=58) . (|
000003a0  6f 6c 64 25 20 81 20 34  29 3c 3e 30 20 8c 20 6e  |old% . 4)<>0 . n|
000003b0  65 77 25 3d 6f 6c 64 25  2d 34 3a 76 61 6c 69 64  |ew%=old%-4:valid|
000003c0  3d b9 0d 01 d6 3d e7 20  28 6b 65 79 3d 34 37 20  |=....=. (key=47 |
000003d0  84 20 6b 65 79 3d 36 33  29 20 80 20 28 6f 6c 64  |. key=63) . (old|
000003e0  25 20 81 20 34 29 3c 3e  33 20 8c 20 6e 65 77 25  |% . 4)<>3 . new%|
000003f0  3d 6f 6c 64 25 2b 34 3a  76 61 6c 69 64 3d b9 0d  |=old%+4:valid=..|
00000400  01 e0 35 ec 20 28 6e 65  77 25 20 83 20 34 29 2a  |..5. (new% . 4)*|
00000410  31 36 30 2b 38 30 2c 38  38 38 2d 28 6e 65 77 25  |160+80,888-(new%|
00000420  20 81 20 34 29 2a 31 36  30 3a e6 20 33 2c 33 3a  | . 4)*160:. 3,3:|
00000430  f1 22 2b 22 0d 01 ea 0b  fd 20 76 61 6c 69 64 0d  |."+"..... valid.|
00000440  01 f4 0d f2 77 61 69 74  28 31 35 29 0d 01 fe 11  |....wait(15)....|
00000450  63 6f 75 6e 74 3d 63 6f  75 6e 74 2b 31 0d 02 08  |count=count+1...|
00000460  36 ec 20 28 6e 65 77 25  20 83 20 34 29 2a 31 36  |6. (new% . 4)*16|
00000470  30 2b 34 30 2c 38 34 30  2d 28 6e 65 77 25 20 81  |0+40,840-(new% .|
00000480  20 34 29 2a 31 36 30 3a  f2 62 6f 78 28 30 2c 31  | 4)*160:.box(0,1|
00000490  35 30 29 0d 02 12 0d f2  77 61 69 74 28 31 35 29  |50).....wait(15)|
000004a0  0d 02 1c 46 ec 20 28 6f  6c 64 25 20 83 20 34 29  |...F. (old% . 4)|
000004b0  2a 31 36 30 2b 34 30 2c  38 34 30 2d 28 6f 6c 64  |*160+40,840-(old|
000004c0  25 20 81 20 34 29 2a 31  36 30 3a f2 62 6f 78 28  |% . 4)*160:.box(|
000004d0  28 4e 25 28 6e 65 77 25  29 20 80 20 32 34 29 2f  |(N%(new%) . 24)/|
000004e0  38 2c 31 35 30 29 0d 02  26 3f 41 24 28 6f 6c 64  |8,150)..&?A$(old|
000004f0  25 29 3d 41 24 28 6e 65  77 25 29 3a 54 25 3d 4e  |%)=A$(new%):T%=N|
00000500  25 28 6f 6c 64 25 29 3a  4e 25 28 6f 6c 64 25 29  |%(old%):N%(old%)|
00000510  3d 4e 25 28 6e 65 77 25  29 3a 4e 25 28 6e 65 77  |=N%(new%):N%(new|
00000520  25 29 3d 54 25 0d 02 30  35 ec 20 28 6f 6c 64 25  |%)=T%..05. (old%|
00000530  20 83 20 34 29 2a 31 36  30 2b 38 30 2c 39 32 38  | . 4)*160+80,928|
00000540  2d 28 6f 6c 64 25 20 81  20 34 29 2a 31 36 30 3a  |-(old% . 4)*160:|
00000550  f1 20 41 24 28 6f 6c 64  25 29 0d 02 3a 0d f2 77  |. A$(old%)..:..w|
00000560  61 69 74 28 31 35 29 0d  02 44 19 ec 20 39 36 35  |ait(15)..D.. 965|
00000570  2c 33 33 35 3a f2 62 6f  78 28 30 2c 31 37 36 29  |,335:.box(0,176)|
00000580  0d 02 4e 15 ec 20 39 36  35 2c 35 31 31 3a f1 3b  |..N.. 965,511:.;|
00000590  63 6f 75 6e 74 0d 02 58  06 ef 34 0d 02 62 13 6f  |count..X..4..b.o|
000005a0  6c 64 25 3d 6e 65 77 25  3a f2 74 65 73 74 0d 02  |ld%=new%:.test..|
000005b0  6c 0c fd 20 73 6f 6c 76  65 64 0d 02 76 24 db 3a  |l.. solved..v$.:|
000005c0  ef 31 39 2c 31 2c 39 3b  30 3b 31 39 2c 32 2c 31  |.19,1,9;0;19,2,1|
000005d0  32 3b 30 3b 31 39 2c 33  2c 31 31 3b 30 3b 0d 02  |2;0;19,3,11;0;..|
000005e0  80 06 ef 35 0d 02 8a 1c  ec 20 38 33 32 2c 34 34  |...5..... 832,44|
000005f0  37 3a e6 30 2c 32 3a f1  22 53 4f 4c 56 45 44 22  |7:.0,2:."SOLVED"|
00000600  0d 02 94 10 ef 34 3a f2  77 61 69 74 28 32 30 29  |.....4:.wait(20)|
00000610  0d 02 9e 30 f1 22 50 45  54 45 20 57 49 53 48 45  |...0."PETE WISHE|
00000620  53 20 54 4f 20 54 48 41  4e 4b 22 27 22 20 59 4f  |S TO THANK"'" YO|
00000630  55 20 20 20 56 45 52 59  20 20 20 4d 55 43 48 22  |U   VERY   MUCH"|
00000640  0d 02 a8 0e f2 77 61 69  74 28 34 30 30 29 0d 02  |.....wait(400)..|
00000650  b2 06 eb 34 0d 02 bc 0e  ef 31 39 2c 30 2c 34 3b  |...4.....19,0,4;|
00000660  30 3b 0d 02 c6 34 f1 8a  31 34 2c 31 29 22 57 49  |0;...4..14,1)"WI|
00000670  5a 5a 20 4b 49 44 53 22  27 27 8a 38 29 22 4e 61  |ZZ KIDS"''.8)"Na|
00000680  6d 65 22 8a 31 39 29 22  4d 69 6e 69 6d 75 6d 20  |me".19)"Minimum |
00000690  4d 6f 76 65 73 22 0d 02  d0 17 e7 20 63 6f 75 6e  |Moves"..... coun|
000006a0  74 3e 3d 6d 69 6e 20 e5  20 8d 64 78 42 0d 02 da  |t>=min . .dxB...|
000006b0  12 6d 69 6e 3d 63 6f 75  6e 74 3a 4a 25 3d 30 0d  |.min=count:J%=0.|
000006c0  02 e4 26 e3 20 49 25 3d  35 20 b8 20 31 20 88 2d  |..&. I%=5 . 1 .-|
000006d0  31 3a e7 20 6d 69 6e 3c  3d 53 25 28 49 25 29 20  |1:. min<=S%(I%) |
000006e0  4a 25 3d 49 25 0d 02 ee  05 ed 0d 02 f8 0e e3 20  |J%=I%.......... |
000006f0  49 25 3d 31 20 b8 20 35  0d 03 02 1e e7 20 49 25  |I%=1 . 5..... I%|
00000700  3d 4a 25 20 f1 27 8a 37  29 6e 61 6d 65 24 8a 32  |=J% .'.7)name$.2|
00000710  37 29 3b 6d 69 6e 0d 03  0c 1d f1 27 8a 37 29 6c  |7);min.....'.7)l|
00000720  69 73 74 24 28 49 25 29  8a 32 37 29 3b 53 25 28  |ist$(I%).27);S%(|
00000730  49 25 29 0d 03 16 08 ed  3a fb 33 0d 03 20 1d e7  |I%).....:.3.. ..|
00000740  20 4a 25 3d 30 20 f1 27  8a 37 29 6e 61 6d 65 24  | J%=0 .'.7)name$|
00000750  8a 32 37 29 3b 6d 69 6e  0d 03 2a 32 f1 27 27 27  |.27);min..*2.'''|
00000760  22 31 20 20 54 72 79 20  74 6f 20 69 6d 70 72 6f  |"1  Try to impro|
00000770  76 65 20 79 6f 75 72 20  73 63 6f 72 65 20 22 3b  |ve your score ";|
00000780  6e 61 6d 65 24 3b 22 20  3f 22 0d 03 34 1f f1 27  |name$;" ?"..4..'|
00000790  22 32 20 20 54 72 79 20  61 6e 6f 74 68 65 72 20  |"2  Try another |
000007a0  70 75 7a 7a 6c 65 20 3f  22 0d 03 3e 2b f1 27 22  |puzzle ?"..>+.'"|
000007b0  33 20 20 44 6f 20 79 6f  75 20 74 68 69 6e 6b 20  |3  Do you think |
000007c0  79 6f 75 20 63 61 6e 20  64 6f 20 62 65 74 74 65  |you can do bette|
000007d0  72 20 3f 22 0d 03 48 1e  f5 3a ef 32 38 2c 30 2c  |r ?"..H..:.28,0,|
000007e0  33 31 2c 33 39 2c 32 38  3a db 3a 2a 46 58 31 35  |31,39,28:.:*FX15|
000007f0  2c 31 0d 03 52 29 e8 22  57 68 61 74 20 69 73 20  |,1..R)."What is |
00000800  79 6f 75 72 20 63 68 6f  69 63 65 20 28 31 20 74  |your choice (1 t|
00000810  6f 20 33 29 20 3f 20 22  20 51 25 0d 03 5c 11 fd  |o 3) ? " Q%..\..|
00000820  20 51 25 3e 30 20 80 20  51 25 3c 34 0d 03 66 18  | Q%>0 . Q%<4..f.|
00000830  e7 20 51 25 3d 33 20 80  20 4a 25 20 f2 6e 65 77  |. Q%=3 . J% .new|
00000840  6c 69 73 74 0d 03 70 19  ee 20 51 25 20 e5 20 8d  |list..p.. Q% . .|
00000850  74 74 40 2c 8d 74 6a 40  2c 8d 74 60 40 0d 03 7a  |tt@,.tj@,.t`@..z|
00000860  05 e0 0d 03 84 10 dd f2  69 6e 69 74 69 61 6c 69  |........initiali|
00000870  73 65 0d 03 8e 17 e3 20  49 25 3d 31 20 b8 20 39  |se..... I%=1 . 9|
00000880  3a f3 20 44 24 28 49 25  29 0d 03 98 05 ed 0d 03  |:. D$(I%).......|
00000890  a2 23 e3 20 49 25 3d 31  20 b8 20 35 3a f3 20 6c  |.#. I%=1 . 5:. l|
000008a0  69 73 74 24 28 49 25 29  3a f3 20 53 25 28 49 25  |ist$(I%):. S%(I%|
000008b0  29 0d 03 ac 05 ed 0d 03  b6 1e e3 20 49 25 3d 30  |).......... I%=0|
000008c0  20 b8 20 31 35 3a f3 20  52 3a 52 25 28 49 25 29  | . 15:. R:R%(I%)|
000008d0  3d 52 2b 37 0d 03 c0 05  ed 0d 03 ca 05 e1 0d 03  |=R+7............|
000008e0  d4 12 dd f2 69 6e 74 72  6f 64 75 63 74 69 6f 6e  |....introduction|
000008f0  0d 03 de 14 ef 32 36 3a  db 3a ef 31 39 2c 30 2c  |.....26:.:.19,0,|
00000900  34 3b 30 3b 0d 03 e8 af  f1 27 27 22 57 65 6c 63  |4;0;.....''"Welc|
00000910  6f 6d 65 20 74 6f 20 50  65 74 65 20 61 6e 64 20  |ome to Pete and |
00000920  68 69 73 20 63 6f 6c 6c  65 63 74 69 6f 6e 20 6f  |his collection o|
00000930  66 22 27 27 22 70 75 7a  7a 6c 69 6e 67 20 70 6f  |f"''"puzzling po|
00000940  73 74 65 72 73 2e 20 54  72 79 20 61 6e 64 20 68  |sters. Try and h|
00000950  65 6c 70 20 68 69 6d 20  73 6f 72 74 22 27 27 22  |elp him sort"''"|
00000960  6f 75 74 20 74 68 65 20  6c 65 74 74 65 72 73 20  |out the letters |
00000970  69 6e 74 6f 20 74 68 65  20 63 6f 72 72 65 63 74  |into the correct|
00000980  20 6f 72 64 65 72 22 27  27 22 61 6e 64 20 65 61  | order"''"and ea|
00000990  72 6e 20 79 6f 75 72 73  65 6c 66 20 61 20 70 6c  |rn yourself a pl|
000009a0  61 63 65 20 6f 6e 20 74  68 65 20 6c 69 73 74 20  |ace on the list |
000009b0  6f 66 22 0d 03 f2 7f f1  27 8a 31 34 29 22 57 49  |of".....'.14)"WI|
000009c0  5a 5a 20 4b 49 44 53 22  27 27 27 22 4f 6e 6c 79  |ZZ KIDS"'''"Only|
000009d0  20 70 75 7a 7a 6c 65 73  20 31 20 74 6f 20 33 20  | puzzles 1 to 3 |
000009e0  61 72 65 20 73 68 6f 77  6e 20 73 6f 72 74 65 64  |are shown sorted|
000009f0  22 27 27 22 6f 75 74 20  62 65 66 6f 72 65 20 62  |"''"out before b|
00000a00  65 69 6e 67 20 72 61 6e  64 6f 6d 6c 79 20 6a 75  |eing randomly ju|
00000a10  6d 62 6c 65 64 20 6a 75  73 74 22 27 27 22 6c 69  |mbled just"''"li|
00000a20  6b 65 20 74 68 65 20 6f  74 68 65 72 20 73 69 78  |ke the other six|
00000a30  2e 22 0d 03 fc 0c 6e 61  6d 65 24 3d 22 22 0d 04  |."....name$=""..|
00000a40  06 1e f5 3a ef 32 38 2c  30 2c 33 31 2c 33 39 2c  |...:.28,0,31,39,|
00000a50  32 38 3a db 3a 2a 46 58  31 35 2c 31 0d 04 10 1f  |28:.:*FX15,1....|
00000a60  e8 22 45 6e 74 65 72 20  79 6f 75 72 20 4e 61 6d  |."Enter your Nam|
00000a70  65 20 3f 20 22 20 6e 61  6d 65 24 0d 04 1a 20 e7  |e ? " name$... .|
00000a80  20 a9 28 6e 61 6d 65 24  29 3e 38 20 6e 61 6d 65  | .(name$)>8 name|
00000a90  24 3d c0 6e 61 6d 65 24  2c 38 29 0d 04 24 0f fd  |$=.name$,8)..$..|
00000aa0  20 6e 61 6d 65 24 3c 3e  22 22 0d 04 2e 0c 6d 69  | name$<>""....mi|
00000ab0  6e 3d 39 39 39 39 0d 04  38 05 e1 0d 04 42 0c dd  |n=9999..8....B..|
00000ac0  f2 63 68 6f 6f 73 65 0d  04 4c 1e f5 3a ef 32 38  |.choose..L..:.28|
00000ad0  2c 30 2c 33 31 2c 33 39  2c 32 38 3a db 3a 2a 46  |,0,31,39,28:.:*F|
00000ae0  58 31 35 2c 31 0d 04 56  2e e8 22 43 68 6f 6f 73  |X15,1..V.."Choos|
00000af0  65 20 79 6f 75 72 20 70  75 7a 7a 6c 65 20 28 45  |e your puzzle (E|
00000b00  6e 74 65 72 20 31 20 74  6f 20 39 29 20 3f 20 22  |nter 1 to 9) ? "|
00000b10  20 50 25 0d 04 60 12 fd  20 50 25 3e 30 20 80 20  | P%..`.. P%>0 . |
00000b20  50 25 3c 31 30 0d 04 6a  05 e1 0d 04 74 0b dd f2  |P%<10..j....t...|
00000b30  73 74 6f 72 79 0d 04 7e  4c f1 8a 31 34 2c 32 29  |story..~L..14,2)|
00000b40  22 50 4f 4f 52 22 8a 31  33 2c 34 29 22 50 45 54  |"POOR".13,4)"PET|
00000b50  45 27 53 22 8a 31 32 2c  36 29 22 50 55 5a 5a 4c  |E'S".12,6)"PUZZL|
00000b60  49 4e 47 22 8a 31 33 2c  38 29 22 50 4f 53 54 45  |ING".13,8)"POSTE|
00000b70  52 22 8a 31 34 2c 31 30  29 22 4e 6f 2e 22 3b 50  |R".14,10)"No.";P|
00000b80  25 0d 04 88 29 f2 77 61  69 74 28 31 30 29 3a ef  |%...).wait(10):.|
00000b90  31 39 2c 31 2c 31 3b 30  3b 31 39 2c 32 2c 34 3b  |19,1,1;0;19,2,4;|
00000ba0  30 3b 3a f2 70 69 65 63  65 73 0d 04 92 77 fb 31  |0;:.pieces...w.1|
00000bb0  3a f1 8a 30 2c 32 32 29  22 54 48 49 53 20 20 49  |:..0,22)"THIS  I|
00000bc0  53 20 20 57 48 41 54 20  20 49 54 22 27 22 53 48  |S  WHAT  IT"'"SH|
00000bd0  4f 55 4c 44 20 20 4c 4f  4f 4b 20 20 4c 49 4b 45  |OULD  LOOK  LIKE|
00000be0  22 27 22 48 4f 57 45 56  45 52 20 53 4f 4d 45 20  |"'"HOWEVER SOME |
00000bf0  4e 41 55 47 48 54 59 42  4f 59 53 20 20 48 41 56  |NAUGHTYBOYS  HAV|
00000c00  45 20 20 4a 55 4d 42 4c  45 44 22 27 22 41 4c 4c  |E  JUMBLED"'"ALL|
00000c10  20 20 20 54 48 45 20 20  20 4c 45 54 54 45 52 53  |   THE   LETTERS|
00000c20  22 0d 04 9c 35 fb 32 3a  f1 22 43 41 4e 20 59 4f  |"...5.2:."CAN YO|
00000c30  55 20 54 52 59 20 41 4e  44 20 53 4f 52 54 49 54  |U TRY AND SORTIT|
00000c40  20 4f 55 54 20 46 4f 52  20 50 4f 4f 52 20 50 45  | OUT FOR POOR PE|
00000c50  54 45 22 3a fb 33 0d 04  a6 0d f2 77 61 69 74 28  |TE":.3.....wait(|
00000c60  33 30 29 0d 04 b0 1a f1  22 50 72 65 73 73 20 74  |30)....."Press t|
00000c70  68 65 20 53 50 41 43 45  20 62 61 72 22 0d 04 ba  |he SPACE bar"...|
00000c80  0e f5 3a fd 20 a6 28 2d  39 39 29 0d 04 c4 05 e1  |..:. .(-99).....|
00000c90  0d 04 ce 0e dd f2 69 6e  73 74 72 75 63 74 0d 04  |......instruct..|
00000ca0  d8 ad fb 32 3a f1 22 55  73 65 22 27 27 22 74 6f  |...2:."Use"''"to|
00000cb0  20 6d 6f 76 65 20 74 68  65 20 22 3b 3a fb 33 3a  | move the ";:.3:|
00000cc0  f1 3b 22 2b 22 3b 3a fb  32 3a f1 3b 22 20 73 79  |.;"+";:.2:.;" sy|
00000cd0  6d 62 6f 6c 6f 6e 74 6f  20 74 68 65 20 20 70 69  |mbolonto the  pi|
00000ce0  65 63 65 20 20 79 6f 75  77 69 73 68 20 20 74 6f  |ece  youwish  to|
00000cf0  20 20 6d 6f 76 65 20 20  61 6e 64 20 73 6f 72 74  |  move  and sort|
00000d00  20 6f 75 74 20 74 68 65  20 50 6f 73 74 65 72 20  | out the Poster |
00000d10  77 69 74 68 20 20 61 6c  6c 20 20 74 68 65 20 20  |with  all  the  |
00000d20  22 3b 3a fb 31 3a f1 22  72 65 64 22 3b 3a fb 32  |";:.1:."red";:.2|
00000d30  3a f1 22 20 73 71 75 61  72 65 73 20 61 74 20 74  |:." squares at t|
00000d40  68 65 20 20 74 6f 70 22  3a fb 33 0d 04 e2 2f f1  |he  top":.3.../.|
00000d50  8a 34 2c 30 29 22 55 70  3d 20 2a 2c 20 20 44 6f  |.4,0)"Up= *,  Do|
00000d60  77 6e 3d 20 3f 20 20 20  4c 65 66 74 3d 20 5a 2c  |wn= ?   Left= Z,|
00000d70  20 52 69 67 68 74 3d 20  58 22 0d 04 ec 05 e1 0d  | Right= X"......|
00000d80  04 f6 0d dd f2 6e 65 77  6c 69 73 74 0d 05 00 11  |.....newlist....|
00000d90  e7 20 4a 25 3d 35 20 e5  20 8d 54 68 45 0d 05 0a  |. J%=5 . .ThE...|
00000da0  13 e3 20 49 25 3d 34 20  b8 20 4a 25 20 88 2d 31  |.. I%=4 . J% .-1|
00000db0  0d 05 14 29 53 25 28 49  25 2b 31 29 3d 53 25 28  |...)S%(I%+1)=S%(|
00000dc0  49 25 29 3a 6c 69 73 74  24 28 49 25 2b 31 29 3d  |I%):list$(I%+1)=|
00000dd0  6c 69 73 74 24 28 49 25  29 0d 05 1e 05 ed 0d 05  |list$(I%).......|
00000de0  28 1e 53 25 28 4a 25 29  3d 6d 69 6e 3a 6c 69 73  |(.S%(J%)=min:lis|
00000df0  74 24 28 4a 25 29 3d 6e  61 6d 65 24 0d 05 32 05  |t$(J%)=name$..2.|
00000e00  e1 0d 05 3c 14 dd f2 62  6f 61 72 64 28 52 25 29  |...<...board(R%)|
00000e10  3a 54 25 3d 30 0d 05 46  19 e3 20 59 25 3d 38 34  |:T%=0..F.. Y%=84|
00000e20  30 20 b8 20 33 36 30 20  88 20 2d 31 36 30 0d 05  |0 . 360 . -160..|
00000e30  50 17 e3 20 58 25 3d 34  30 20 b8 20 35 32 30 20  |P.. X%=40 . 520 |
00000e40  88 20 31 36 30 0d 05 5a  0b ec 20 58 25 2c 59 25  |. 160..Z.. X%,Y%|
00000e50  0d 05 64 22 e7 20 52 25  3d 31 20 43 25 3d 31 2b  |..d". R%=1 C%=1+|
00000e60  28 54 25 20 81 20 38 29  2d 32 2a 28 54 25 3d 31  |(T% . 8)-2*(T%=1|
00000e70  35 29 0d 05 6e 2e e7 20  52 25 3d 32 20 43 25 3d  |5)..n.. R%=2 C%=|
00000e80  31 2b 28 28 54 25 2b 54  25 20 81 20 34 20 83 20  |1+((T%+T% . 4 . |
00000e90  32 29 83 20 32 29 2d 32  2a 28 54 25 3d 31 32 29  |2). 2)-2*(T%=12)|
00000ea0  0d 05 78 10 f2 62 6f 78  28 43 25 2c 31 35 30 29  |..x..box(C%,150)|
00000eb0  0d 05 82 0b 54 25 3d 54  25 2b 31 0d 05 8c 05 ed  |....T%=T%+1.....|
00000ec0  0d 05 96 05 ed 0d 05 a0  05 e1 0d 05 aa 0c dd f2  |................|
00000ed0  70 69 65 63 65 73 0d 05  b4 06 ef 35 0d 05 be 0f  |pieces.....5....|
00000ee0  e3 20 49 25 3d 30 20 b8  20 31 35 0d 05 c8 2f ec  |. I%=0 . 15.../.|
00000ef0  20 28 49 25 20 83 20 34  29 2a 31 36 30 2b 38 30  | (I% . 4)*160+80|
00000f00  2c 39 32 38 2d 28 49 25  20 81 20 34 29 2a 31 36  |,928-(I% . 4)*16|
00000f10  30 3a f1 20 41 24 28 49  25 29 0d 05 d2 05 ed 0d  |0:. A$(I%)......|
00000f20  05 dc 10 ef 34 3a f2 77  61 69 74 28 32 30 29 0d  |....4:.wait(20).|
00000f30  05 e6 05 e1 0d 05 f0 10  dd f2 62 6f 78 28 43 25  |..........box(C%|
00000f40  2c 53 25 29 0d 05 fa 38  e6 20 30 2c 43 25 3a f0  |,S%)...8. 0,C%:.|
00000f50  20 31 2c 53 25 2c 30 3a  f0 20 38 31 2c 30 2c 53  | 1,S%,0:. 81,0,S|
00000f60  25 3a f0 20 31 2c 2d 53  25 2c 30 3a f0 20 38 31  |%:. 1,-S%,0:. 81|
00000f70  2c 30 2c 2d 53 25 3a e6  20 30 2c 33 0d 06 04 05  |,0,-S%:. 0,3....|
00000f80  e1 0d 06 0e 10 dd f2 66  69 6c 6c 70 6f 73 74 65  |.......fillposte|
00000f90  72 0d 06 18 14 4b 25 3d  bb 28 c2 44 24 28 50 25  |r....K%=.(.D$(P%|
00000fa0  29 2c 31 29 29 0d 06 22  17 e3 20 49 25 3d 30 20  |),1))..".. I%=0 |
00000fb0  b8 20 31 34 3a 52 25 3d  49 25 2b 31 0d 06 2c 0c  |. 14:R%=I%+1..,.|
00000fc0  f2 63 6f 6e 76 65 72 74  0d 06 36 05 ed 0d 06 40  |.convert..6....@|
00000fd0  0e 41 24 28 31 35 29 3d  22 20 22 0d 06 4a 05 e1  |.A$(15)=" "..J..|
00000fe0  0d 06 54 0c dd f2 6a 75  6d 62 6c 65 0d 06 5e 1a  |..T...jumble..^.|
00000ff0  e3 20 49 25 3d 30 20 b8  20 31 36 3a 43 25 28 49  |. I%=0 . 16:C%(I|
00001000  25 29 3d 30 3a ed 0d 06  68 14 4b 25 3d bb 28 c2  |%)=0:...h.K%=.(.|
00001010  44 24 28 50 25 29 2c 31  29 29 0d 06 72 1d e3 20  |D$(P%),1))..r.. |
00001020  4c 25 3d 30 20 b8 20 31  34 3a 49 25 3d 4c 25 2d  |L%=0 . 14:I%=L%-|
00001030  28 4c 25 3e 31 31 29 0d  06 7c 23 52 25 3d b3 28  |(L%>11)..|#R%=.(|
00001040  38 29 2b 38 2a 28 49 25  20 81 20 34 20 83 20 32  |8)+8*(I% . 4 . 2|
00001050  20 82 20 49 25 20 83 20  32 29 0d 06 86 1b e7 20  | . I% . 2)..... |
00001060  52 25 3d 31 36 20 84 20  43 25 28 52 25 29 20 e5  |R%=16 . C%(R%) .|
00001070  20 8d 44 7c 46 0d 06 90  16 f2 63 6f 6e 76 65 72  | .D|F.....conver|
00001080  74 3a 43 25 28 52 25 29  3d 2d 31 0d 06 9a 05 ed  |t:C%(R%)=-1.....|
00001090  0d 06 a4 1c 41 24 28 31  32 29 3d 22 20 22 3a 4e  |....A$(12)=" ":N|
000010a0  25 28 31 32 29 3d 52 25  28 31 35 29 0d 06 ae 05  |%(12)=R%(15)....|
000010b0  e1 0d 06 b8 0d dd f2 63  6f 6e 76 65 72 74 0d 06  |.......convert..|
000010c0  c2 51 42 25 3d bb 28 c1  44 24 28 50 25 29 2c 52  |.QB%=.(.D$(P%),R|
000010d0  25 2a 32 2c 31 29 29 3a  41 24 28 49 25 29 3d bd  |%*2,1)):A$(I%)=.|
000010e0  28 35 35 2b bb 28 c1 44  24 28 50 25 29 2c 52 25  |(55+.(.D$(P%),R%|
000010f0  2a 32 2d 31 2c 31 29 29  2a 4b 25 2b 42 25 2a 28  |*2-1,1))*K%+B%*(|
00001100  28 42 25 3c 37 29 2d 28  42 25 3e 37 29 29 29 0d  |(B%<7)-(B%>7))).|
00001110  06 cc 13 4e 25 28 49 25  29 3d 52 25 28 52 25 2d  |...N%(I%)=R%(R%-|
00001120  31 29 0d 06 d6 05 e1 0d  06 e0 0a dd f2 74 65 73  |1)...........tes|
00001130  74 0d 06 ea 17 66 61 69  6c 65 64 3d a3 3a 46 25  |t....failed=.:F%|
00001140  3d 30 3a 54 24 3d 22 22  0d 06 f4 0f e3 20 49 25  |=0:T$=""..... I%|
00001150  3d 30 20 b8 20 31 35 0d  06 fe 2c e7 20 4e 25 28  |=0 . 15...,. N%(|
00001160  49 25 29 3d 52 25 28 49  25 29 20 8c 20 46 25 3d  |I%)=R%(I%) . F%=|
00001170  46 25 2b 31 20 8b 20 54  24 3d 54 24 2b 41 24 28  |F%+1 . T$=T$+A$(|
00001180  49 25 29 0d 07 08 05 ed  0d 07 12 14 e7 20 46 25  |I%).......... F%|
00001190  3c 31 36 20 66 61 69 6c  65 64 3d b9 0d 07 1c 24  |<16 failed=....$|
000011a0  e7 20 46 25 3d 31 34 20  80 20 c0 54 24 2c 31 29  |. F%=14 . .T$,1)|
000011b0  3d c2 54 24 2c 31 29 20  66 61 69 6c 65 64 3d a3  |=.T$,1) failed=.|
000011c0  0d 07 26 19 e7 20 4e 25  28 31 35 29 3c 3e 32 35  |..&.. N%(15)<>25|
000011d0  20 66 61 69 6c 65 64 3d  b9 0d 07 30 19 e7 20 ac  | failed=...0.. .|
000011e0  20 66 61 69 6c 65 64 20  8c 20 73 6f 6c 76 65 64  | failed . solved|
000011f0  3d b9 0d 07 3a 05 e1 0d  07 44 0e dd f2 77 61 69  |=...:....D...wai|
00001200  74 28 57 25 29 0d 07 4e  0a 74 69 6d 65 3d 91 0d  |t(W%)..N.time=..|
00001210  07 58 11 f5 3a fd 20 91  3e 74 69 6d 65 2b 57 25  |.X..:. .>time+W%|
00001220  0d 07 62 05 e1 0d 07 6c  11 f4 20 70 75 7a 7a 6c  |..b....l.. puzzl|
00001230  65 20 64 61 74 61 0d 07  76 25 dc 20 32 32 34 34  |e data..v%. 2244|
00001240  33 37 32 31 32 33 32 37  32 37 34 37 32 32 32 34  |3721232727472224|
00001250  34 35 35 36 33 36 33 37  35 31 37 0d 07 80 25 dc  |45563637517...%.|
00001260  20 39 34 35 32 36 33 34  33 34 33 37 34 35 34 38  | 945263434374548|
00001270  34 36 33 37 34 38 31 34  32 34 31 38 32 36 31 34  |4637481424182614|
00001280  0d 07 8a 25 dc 20 33 32  35 31 35 32 36 31 36 33  |...%. 3251526163|
00001290  33 31 33 35 33 32 36 31  34 33 34 32 36 32 37 31  |3135326143426271|
000012a0  35 31 37 35 35 0d 07 94  25 dc 20 34 37 33 36 34  |51755...%. 47364|
000012b0  34 32 32 32 35 33 37 35  36 34 34 32 33 33 37 33  |4222537564423373|
000012c0  31 34 33 32 34 34 35 35  36 38 0d 07 9e 25 dc 20  |1432445568...%. |
000012d0  35 33 32 32 34 36 34 31  34 32 32 32 34 34 33 34  |5322464142224434|
000012e0  33 32 34 36 35 33 34 33  36 34 33 34 35 31 36 0d  |324653436434516.|
000012f0  07 a8 25 dc 20 34 33 33  31 35 34 36 35 37 33 33  |..%. 43315465733|
00001300  35 36 32 34 33 36 31 34  33 34 32 36 32 33 33 33  |5624361434262333|
00001310  35 36 33 35 0d 07 b2 25  dc 20 32 34 33 37 33 33  |5635...%. 243733|
00001320  32 33 34 34 34 32 33 31  34 34 32 37 33 33 33 37  |2344423144273337|
00001330  34 37 34 35 32 32 32 33  38 0d 07 bc 25 dc 20 34  |474522238...%. 4|
00001340  32 38 31 34 32 36 31 34  34 37 34 39 34 38 34 35  |2814261447494845|
00001350  33 33 32 38 31 34 32 34  31 38 32 36 31 34 0d 07  |33281424182614..|
00001360  c6 25 dc 20 35 33 33 34  32 32 34 33 34 32 34 36  |.%. 533422434246|
00001370  33 36 33 34 33 31 32 32  36 35 33 34 33 33 36 36  |3634312265343366|
00001380  35 33 36 0d 07 d0 3b dc  20 57 49 5a 41 52 44 2c  |536...;. WIZARD,|
00001390  31 30 30 2c 42 52 41 49  4e 53 2c 31 35 30 2c 53  |100,BRAINS,150,S|
000013a0  4d 41 52 54 59 2c 32 30  30 2c 50 45 54 45 2c 32  |MARTY,200,PETE,2|
000013b0  35 30 2c 47 52 41 4e 44  50 41 2c 33 30 30 0d 07  |50,GRANDPA,300..|
000013c0  da 2c dc 20 31 2c 33 2c  35 2c 37 2c 38 2c 36 2c  |.,. 1,3,5,7,8,6,|
000013d0  34 2c 32 2c 39 2c 31 31  2c 31 33 2c 31 35 2c 31  |4,2,9,11,13,15,1|
000013e0  36 2c 31 34 2c 31 32 2c  31 38 0d 0f a0 0f f4 20  |6,14,12,18..... |
000013f0  57 6f 72 64 63 6f 64 65  72 0d 0f aa 2d f4 20 41  |Wordcoder...-. A|
00001400  73 73 65 6d 62 6c 65 20  74 68 65 20 63 6f 64 65  |ssemble the code|
00001410  73 20 66 6f 72 20 61 6c  6c 20 74 68 65 20 61 6c  |s for all the al|
00001420  70 68 61 62 65 74 0d 0f  b4 06 eb 36 0d 0f be 20  |phabet.....6... |
00001430  de 20 41 25 28 32 36 2c  35 29 2c 42 25 28 32 36  |. A%(26,5),B%(26|
00001440  2c 35 29 2c 4b 25 28 32  36 2c 35 29 0d 0f c3 30  |,5),K%(26,5)...0|
00001450  f1 20 8a 31 35 29 22 57  4f 52 44 20 43 4f 44 45  |. .15)"WORD CODE|
00001460  52 22 27 27 22 45 6e 74  65 72 20 79 6f 75 72 20  |R"''"Enter your |
00001470  31 35 20 6c 65 74 74 65  72 73 22 27 0d 0f c8 2f  |15 letters"'.../|
00001480  44 24 3d 22 20 20 20 20  20 20 20 20 20 20 20 20  |D$="            |
00001490  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000014a0  20 20 20 20 22 3a 44 24  3d 22 22 0d 0f d2 0e e3  |    ":D$="".....|
000014b0  20 4c 25 3d 31 20 b8 20  34 0d 0f dc 24 e3 20 53  | L%=1 . 4...$. S|
000014c0  25 3d 31 30 20 b8 20 33  35 3a 5a 24 3d bd 28 53  |%=10 . 35:Z$=.(S|
000014d0  25 2b 35 35 29 3a 4b 25  3d 4c 25 2b 33 0d 0f e6  |%+55):K%=L%+3...|
000014e0  1b 41 25 3d a8 28 53 25  2f 4b 25 29 3a 42 25 3d  |.A%=.(S%/K%):B%=|
000014f0  53 25 2d 41 25 2a 4b 25  0d 0f f0 1b e7 20 42 25  |S%-A%*K%..... B%|
00001500  3c 38 20 41 25 3d 41 25  2b 31 3a 42 25 3d 42 25  |<8 A%=A%+1:B%=B%|
00001510  2d 4b 25 0d 0f fa 1c e7  20 42 25 3c 2d 36 20 41  |-K%..... B%<-6 A|
00001520  25 3d 41 25 2d 31 3a 42  25 3d 42 25 2b 4b 25 0d  |%=A%-1:B%=B%+K%.|
00001530  10 04 19 e7 20 41 25 3e  39 20 4b 25 3d 4b 25 2b  |.... A%>9 K%=K%+|
00001540  31 3a e5 20 8d 64 66 4f  0d 10 0e 19 e7 20 41 25  |1:. .dfO..... A%|
00001550  3c 30 20 4b 25 3d 4b 25  2d 31 3a e5 20 8d 64 66  |<0 K%=K%-1:. .df|
00001560  4f 0d 10 18 30 41 25 28  53 25 2d 39 2c 4c 25 29  |O...0A%(S%-9,L%)|
00001570  3d 41 25 3a 42 25 28 53  25 2d 39 2c 4c 25 29 3d  |=A%:B%(S%-9,L%)=|
00001580  42 25 3a 4b 25 28 53 25  2d 39 2c 4c 25 29 3d 4b  |B%:K%(S%-9,L%)=K|
00001590  25 0d 10 22 05 ed 0d 10  2c 05 ed 0d 10 36 21 f4  |%.."....,....6!.|
000015a0  20 41 73 73 65 6d 62 6c  65 20 63 6f 64 65 20 66  | Assemble code f|
000015b0  6f 72 20 74 68 65 20 77  6f 72 64 73 0d 10 40 0b  |or the words..@.|
000015c0  58 25 3d b3 28 34 29 0d  10 4a 0f e3 20 53 25 3d  |X%=.(4)..J.. S%=|
000015d0  31 20 b8 20 31 35 0d 10  54 38 f1 22 4c 65 74 74  |1 . 15..T8."Lett|
000015e0  65 72 20 22 3b 53 25 3b  22 20 3f 22 3b 3a e8 20  |er ";S%;" ?";:. |
000015f0  22 20 22 41 24 3a 49 25  3d 97 28 41 24 29 2d 36  |" "A$:I%=.(A$)-6|
00001600  34 2b 33 32 2a 28 41 24  3e 3d 22 61 22 29 0d 10  |4+32*(A$>="a")..|
00001610  5e 16 44 24 3d 44 24 2b  c3 28 41 25 28 49 25 2c  |^.D$=D$+.(A%(I%,|
00001620  58 25 29 29 0d 10 68 33  e7 20 42 25 28 49 25 2c  |X%))..h3. B%(I%,|
00001630  58 25 29 3c 30 20 44 24  3d 44 24 2b c3 28 2d 31  |X%)<0 D$=D$+.(-1|
00001640  2a 42 25 28 49 25 2c 58  25 29 29 20 8b 20 44 24  |*B%(I%,X%)) . D$|
00001650  3d 44 24 2b 22 37 22 0d  10 72 05 ed 0d 10 7c 18  |=D$+"7"..r....|.|
00001660  44 24 3d 44 24 2b c3 28  58 25 2b 33 29 3a f1 20  |D$=D$+.(X%+3):. |
00001670  27 44 24 27 0d ff                                 |'D$'..|
00001676
28-04-89/Poster.m0
28-04-89/Poster.m1
28-04-89/Poster.m2
28-04-89/Poster.m4
28-04-89/Poster.m5

© Dominic Ford 2021–2024.

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