Home » CEEFAX disks » telesoftware11.adl » 16-12-88/COLITES

16-12-88/COLITES

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 » telesoftware11.adl
Filename: 16-12-88/COLITES
Read OK: ✔
File size: 190B bytes
Load address: FFFF1900
Exec address: FFFF8023
Duplicates

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

File contents
   10REM COLOURED LIGHTS LESSON
   20REM By Rog Frost
   30REM (c) The Micro User
   40IF PAGE>&E00 GOSUB2250:REM This calls down loader for disc systems
   50MODE2
   60*FX11,0
   70*FX229,1
   80VDU23;8202;0;0;0;
   90PROCinit
  100PROCmenu
  110DEFPROCprimary:COLOUR128:CLS
  120COLOUR131:COLOUR4:PRINT'"The three primary"'"colours are:-    "
  130PROCCIRCLE(300,700,100,1,1):PRINTTAB(11,6);SPC(5)TAB(11,7)" RED "TAB(11,8);SPC(5)
  140PROCCIRCLE(300,500,100,2,1):PRINTTAB(11,13);SPC(7)TAB(11,14)" GREEN "TAB(11,15);SPC(7)
  150PROCCIRCLE(300,300,100,4,1):PRINTTAB(11,20);SPC(6)TAB(11,21)" BLUE "TAB(11,22);SPC(6)
  160PRINTTAB(3,27);SPC(13)TAB(3,28)" PRESS SPACE "TAB(3,29);SPC(13)
  170*FX15,0
  180REPEAT UNTIL GET=32
  190IF flag=0 PROCmenu ELSE PROCcoladd
  200ENDPROC
  210DEFPROCcoladd
  220COLOUR3:COLOUR128:CLS
  230VDU28,1,30,19,0
  240PRINT'''''"COLOUR ADDITION"''''"Two or more lights"''"shining together.":TIME=0:REPEAT UNTIL TIME>500:CLS
  250VDU28,0,31,19,25
  260PROCCIRCLE(500,550,250,1,1)
  270PROCCIRCLE(700,550,250,2,1)
  280PROCCIRCLE(600,750,250,4,1)
  290COLOUR135:CLS
  300COLOUR4:PRINT"When two primary"'"colours are mixed"'"a secondary colour"'"is seen."''"PRESS SPACE"
  310*FX15,0
  320REPEAT UNTIL GET=32:CLS
  330PRINT"Red and green give"'"yellow. Red and"'"blue give magenta."'"Blue and green give"'"cyan."'"PRESS SPACE"
  340*FX15,0
  350REPEAT UNTIL GET=32:CLS
  360PRINT"If all three of the primary colours mix then white is made."''"PRESS SPACE"
  370*FX15,0
  380REPEAT UNTILGET=32:CLS:CLG
  390VDU26
  400IF flag=0 PROCmenu ELSE PROCcomp
  410ENDPROC
  420DEFPROCcomp
  430COLOUR135:CLS
  440COLOUR4
  450PRINT'''"COMPLEMENTARY COLOUR"''SPC(6);"MIXING"
  460TIME=0:REPEATUNTILTIME>500:COLOUR128:CLS
  470VDU28,0,31,19,20
  480COLOUR135:CLS:COLOUR1
  490PRINT"Colours are said to be complementary if they make white whenmixed."
  500PROCCIRCLE(400,700,250,1,1)
  510PROCCIRCLE(800,700,250,6,1)
  520*FX15,0
  530PRINT''"PRESS SPACE":REPEAT UNTIL GET=32:CLS
  540PRINT"Red and cyan are"'"complementary to"'"each other."
  550PRINT''"PRESS SPACE"
  560*FX15,0
  570REPEAT UNTIL GET=32:GCOL0,128:CLG:CLS
  580PROCCIRCLE(800,700,250,3,1)
  590PROCCIRCLE(400,700,250,4,1)
  600PRINT"Yellow is made by"'"mixing red and greenso adding blue to"'"yellow means that"'"all three primary"'"colours are mixed"'"here."
  610PRINT''"PRESS SPACE"
  620*FX15,0
  630REPEAT UNTIL GET=32:VDU26:COLOUR128:CLS
  640IF flag=0 PROCmenu ELSE PROCcolsub
  650ENDPROC
  660DEFPROCcolsub
  670COLOUR135:CLS:COLOUR4
  680VDU28,1,30,19,0
  690PRINT''"COLOUR SUBTRACTION"'''"Here white light"''"is shining out"''"through colour"''"filters which"''"overlap."
  700TIME=0:REPEATUNTILTIME>500:CLS
  710VDU28,0,31,19,25
  720GCOL0,135
  730PROCCIRCLE(500,550,250,1,2)
  740PROCCIRCLE(700,550,250,2,2)
  750PROCCIRCLE(600,750,250,4,2)
  760PRINT"If primary colours  overlap then no"'"light gets out."
  770PRINT'"PRESS SPACE"
  780*FX15,0
  790REPEAT UNTIL GET=32:CLS:CLG
  800PROCCIRCLE(500,550,250,3,2)
  810PROCCIRCLE(700,550,250,5,2)
  820PROCCIRCLE(600,750,250,6,2)
  830PRINT"If two secondary"'"colours overlap, thecommon primary lightshines through."
  840PRINT'"PRESS SPACE"
  850*FX15,0
  860REPEAT UNTIL GET=32:CLS
  870PRINT"If all three coloursoverlap then no"'"light can get out."
  880PRINT'"PRESS SPACE"
  890*FX15,0
  900REPEAT UNTIL GET=32:CLS
  910PRINT"When coloured light shines on objects"'"the effects are"'"similar to this."
  920PRINT'"PRESS SPACE"
  930*FX15,0
  940REPEAT UNTILGET=32:VDU26:COLOUR128:CLS
  950IF flag=0 PROCmenu ELSE PROCques
  960ENDPROC
  970DEFPROCques
  980COLOUR3:COLOUR128:CLS
  990PRINT''''"   QUESTION TIME":TIME=0:REPEAT UNTIL TIME>500:CLS
 1000VDU28,0,31,19,26
 1010FOR C%=1 TO 6:COLOUR C%
 1020PRINTTAB(C%*3,1)+CHR$255 TAB(C%*3,3);C% 
 1030NEXT
 1040COLOUR7
 1050PRINTTAB(0,1)CHR$254 TAB(0,3)"0"
 1060VDU28,0,26,19,20
 1070VDU24,0;400;1279;1023;
 1080col%=RND(6)
 1090PROCCIRCLE(400,700,300,col%,1)
 1100PRINTTAB(0,0)"What is the"'"complement of the"'"colour shown? ";
 1110*FX15,0
 1120ans%=GET:IF ans%<48 OR ans%>54 THEN 1100 
 1130ans%=ans%-48
 1140PRINT;ans%
 1150IF col%+ans%=7 PROCCIRCLE(800,700,300,ans%,1)
 1160CLS
 1170IF col%+ans%=7 PRINT"WELL DONE ";name$(n%):score%(n%)=score%(n%)+1 ELSE PRINT"WRONG. CORRECT"'"COLOUR WAS ";7-col%
 1180PRINT'"PRESS SPACE"
 1190*FX15,0
 1200REPEAT UNTILGET=32:CLS:GCOL0,135:CLG
 1210PROCCIRCLE(400,700,300,5,2)
 1220PRINT"If magenta light"'"shines through a"'"yellow filter, what"'"colour will be seen? ";
 1230*FX15,0
 1240ans%=GET:IF ans%<48 OR ans%>54 THEN1230
 1250ans%=ans%-48
 1260PRINT;ans%
 1270PROCCIRCLE(800,700,300,3,2)
 1280CLS:IF ans%=1 PRINT"WELL DONE "name$(n%):score%(n%)=score%(n%)+1 ELSE PRINT"WRONG"
 1290PRINT''"PRESS SPACE"
 1300*FX15,0
 1310REPEAT UNTILGET=32:CLS:CLG
 1320VDU5:GCOL0,6:MOVE370,700:PRINT;eleph$:VDU4
 1330PRINT"This elephant is to be lit with yellow"'"light. What colour"'"will she be? ";
 1340*FX15,0
 1350ans%=GET:IF ans%<48 OR ans%>54 THEN1340
 1360ans%=ans%-48:PRINT;ans%
 1370PROCCIRCLE(400,700,300,3,2)
 1380CLS:IF ans%=2 PRINT"WELL DONE ";name$(n%):score%(n%)=score%(n%)+1 ELSE PRINT"WRONG"
 1390PRINT'"PRESS SPACE":REPEAT UNTIL GET=32:CLS:CLG
 1400*FX15,0
 1410VDU5:GCOL0,1:MOVE370,700:PRINT;eleph$:VDU4
 1420PRINT"This elephant is to be lit with green"'"light. What colour"'"will she be? ";
 1430*FX15,0
 1440ans%=GET:IF ans%<48 OR ans%>54 THEN1430
 1450ans%=ans%-48:PRINT;ans%
 1460PROCCIRCLE(400,700,300,2,2)
 1470CLS:IF ans%=0 PRINT"WELL DONE ";name$(n%):score%(n%)=score%(n%)+1 ELSE PRINT"WRONG"
 1480PRINT'"PRESS SPACE"
 1490*FX15,0
 1500REPEAT UNTILGET=32:CLS:CLG
 1510VDU5:GCOL0,3:MOVE340,670:PRINT;eleph$:VDU4
 1520PRINT"This elephant is to be lit with blue"'"light. What colour"'"will he be? ";
 1530*FX15,0
 1540ans%=GET:IF ans%<48 OR ans%>54 THEN1530
 1550ans%=ans%-48:PRINT;ans%
 1560PROCCIRCLE(400,700,300,4,2)
 1570CLS:IF ans%=0 PRINT"WELL DONE ";name$(n%):score%(n%)=score%(n%)+1 ELSE PRINT"WRONG"
 1580TIME=0:REPEATUNTILTIME>500:*FX15,0
 1590VDU26:COLOUR128:CLS:PRINT''''"LESSON OVER!!"'''"PRESS SPACE TO"''"RESTART PROGRAM":REPEAT UNTIL GET=32:CLS:PROCmenu
 1600ENDPROC
 1610DEFPROCCIRCLE(X,Y,R,C,S)
 1620GCOLS,C
 1630LOCALI,J
 1640FOR I=Y+R TO Y-R STEP -4
 1650J=SQR(ABS(R*R-(I-Y)*(I-Y)))
 1660MOVE X-J,I
 1670DRAWX+J,I
 1680NEXT
 1690ENDPROC
 1700DEFPROCmenu
 1710COLOUR128:CLS
 1720COLOUR132:COLOUR2:PRINTTAB(2,2)"COLOURED LIGHTS"
 1730COLOUR131:COLOUR4:PRINTTAB(0,6)"Here are the options"
 1740COLOUR134:FORY=9 TO 22:PRINTTAB(0,Y)SPC(20):NEXT
 1750COLOUR1
 1760PRINTTAB(0,10)"1) PRIMARY COLOURS"''"2) COLOUR ADDITION"''"3) COLOUR COMPLEMENT"'"4) COLOUR REMOVAL"''"5) COLOUR QUESTIONS"''"6) COMPLETE LESSON"
 1770COLOUR129:COLOUR7:PRINTTAB(2,28)"Make your choice"
 1780*FX15,0
 1790G$=GET$
 1800IF G$="1" flag=0:PROCprimary:ENDPROC
 1810IF G$="2" flag=0:PROCcoladd:ENDPROC
 1820IF G$="3" flag=0:PROCcomp:ENDPROC
 1830IF G$="4" flag=0:PROCcolsub:ENDPROC
 1840IF G$="5" flag=0:PROCname:PROCques:ENDPROC
 1850IF G$="6" flag=1:PROCname:PROCprimary:ENDPROC
 1860GOTO1790
 1870ENDPROC
 1880DEFPROCname
 1890IF n%=30 PROCscore
 1900n%=n%+1
 1910*FX15,0
 1920COLOUR132:CLS:COLOUR3:PRINTTAB(0,10)"Please enter your"''"name and then press"''"Return.  "
 1930INPUT'',name$(n%)
 1940FORPP%=1TOLEN(name$(n%))
 1950IF ASC(MID$(name$(n%),PP%,1))<65AND ASC(MID$(name$(n%),PP%,1))>32 ORASC(MID$(name$(n%),PP%,1))>90 PRINT''"Don't be silly":TIME=0:REPEATUNTILTIME>300:CLS:GOTO1910
 1960NEXT
 1970IF LEN(name$(n%))<2 COLOUR129:GOTO1920
 1980IF LEN(name$(n%))>9 name$(n%)=LEFT$(name$(n%),9)
 1990IF n%>1 AND name$(n%)="SCORE" n%=n%-1:PROCscore
 2000ENDPROC
 2010DEFPROCinit
 2020DIM name$(32):n%=0
 2030DIM score%(32)
 2040VDU23,254,255,129,129,129,129,129,129,255
 2050VDU23,255,255,255,255,255,255,255,255,255
 2060VDU23,224,12,12,63,63,51,51,63,63
 2070VDU23,225,0,0,255,255,255,255,255,255
 2080VDU23,226,63,63,51,51,243,243,3,3
 2090VDU23,227,255,255,207,207,207,207,207,207
 2100eleph$=CHR$224+CHR$225+CHR$10+CHR$8+CHR$8+CHR$226+CHR$227
 2110ENDPROC
 2120DEFPROCscore
 2130COLOUR132:CLS:COLOUR7
 2140VDU14
 2150PRINT
 2160FOR pos%=1 TO n% 
 2170PRINT name$(pos%);TAB(17);score%(pos%)
 2180NEXT
 2190IF n%=30 END
 2200REPEAT UNTIL GET=32
 2210VDU15
 2220PROCmenu
 2230ENDPROC
 2240REM DOWN LOAD MEMORY FOR DISC SYSTEMS
 2250*TAPE
 2260FOR I%=0 TO TOP-PAGE STEP 4:I%!&E00=I%!PAGE:NEXT:?&13=?&13-(PAGE-&E00)DIV256:PAGE=&E00:RUN


� COLOURED LIGHTS LESSON
� By Rog Frost
� (c) The Micro User
(<� �>&E00 �dJH:� This calls down loader for disc systems
2�2
<*FX11,0
F*FX229,1
P�23;8202;0;0;0;
Z	�init
d	�menu
n��primary:�128:�
x5�131:�4:�'"The three primary"'"colours are:-    "
�A�CIRCLE(300,700,100,1,1):�11,6);�(5)�11,7)" RED "�11,8);�(5)
�F�CIRCLE(300,500,100,2,1):�11,13);�(7)�11,14)" GREEN "�11,15);�(7)
�E�CIRCLE(300,300,100,4,1):�11,20);�(6)�11,21)" BLUE "�11,22);�(6)
�2�3,27);�(13)�3,28)" PRESS SPACE "�3,29);�(13)
�*FX15,0
�� � �=32
�� flag=0 �menu � �coladd
��
���coladd
�
�3:�128:�
��28,1,30,19,0
�X�'''''"COLOUR ADDITION"''''"Two or more lights"''"shining together.":�=0:� � �>500:�
��28,0,31,19,25
�CIRCLE(500,550,250,1,1)
�CIRCLE(700,550,250,2,1)
�CIRCLE(600,750,250,4,1)
"
�135:�
,]�4:�"When two primary"'"colours are mixed"'"a secondary colour"'"is seen."''"PRESS SPACE"
6*FX15,0
@� � �=32:�
Jl�"Red and green give"'"yellow. Red and"'"blue give magenta."'"Blue and green give"'"cyan."'"PRESS SPACE"
T*FX15,0
^� � �=32:�
hQ�"If all three of the primary colours mix then white is made."''"PRESS SPACE"
r*FX15,0
|� ��=32:�:�
��26
�� flag=0 �menu � �comp
��
�
��comp
�
�135:�
��4
�-�'''"COMPLEMENTARY COLOUR"''�(6);"MIXING"
��=0:���>500:�128:�
��28,0,31,19,20
�
�135:�:�1
�I�"Colours are said to be complementary if they make white whenmixed."
��CIRCLE(400,700,250,1,1)
��CIRCLE(800,700,250,6,1)
*FX15,0
�''"PRESS SPACE":� � �=32:�
8�"Red and cyan are"'"complementary to"'"each other."
&�''"PRESS SPACE"
0*FX15,0
:� � �=32:�0,128:�:�
D�CIRCLE(800,700,250,3,1)
N�CIRCLE(400,700,250,4,1)
X��"Yellow is made by"'"mixing red and greenso adding blue to"'"yellow means that"'"all three primary"'"colours are mixed"'"here."
b�''"PRESS SPACE"
l*FX15,0
v� � �=32:�26:�128:�
�� flag=0 �menu � �colsub
��
���colsub
�
�135:�:�4
��28,1,30,19,0
�q�''"COLOUR SUBTRACTION"'''"Here white light"''"is shining out"''"through colour"''"filters which"''"overlap."
��=0:���>500:�
��28,0,31,19,25
�
�0,135
��CIRCLE(500,550,250,1,2)
��CIRCLE(700,550,250,2,2)
��CIRCLE(600,750,250,4,2)
�<�"If primary colours  overlap then no"'"light gets out."
�'"PRESS SPACE"
*FX15,0
� � �=32:�:�
 �CIRCLE(500,550,250,3,2)
*�CIRCLE(700,550,250,5,2)
4�CIRCLE(600,750,250,6,2)
>Q�"If two secondary"'"colours overlap, thecommon primary lightshines through."
H�'"PRESS SPACE"
R*FX15,0
\� � �=32:�
f?�"If all three coloursoverlap then no"'"light can get out."
p�'"PRESS SPACE"
z*FX15,0
�� � �=32:�
�Q�"When coloured light shines on objects"'"the effects are"'"similar to this."
��'"PRESS SPACE"
�*FX15,0
�� ��=32:�26:�128:�
�� flag=0 �menu � �ques
��
�
��ques
�
�3:�128:�
�+�''''"   QUESTION TIME":�=0:� � �>500:�
��28,0,31,19,26
�� C%=1 � 6:� C%
��C%*3,1)+�255 �C%*3,3);C% 
�
�7
�0,1)�254 �0,3)"0"
$�28,0,26,19,20
.�24,0;400;1279;1023;
8
col%=�(6)
B�CIRCLE(400,700,300,col%,1)
L=�0,0)"What is the"'"complement of the"'"colour shown? ";
V*FX15,0
`&ans%=�:� ans%<48 � ans%>54 � �DLD 
jans%=ans%-48
t
�;ans%
~-� col%+ans%=7 �CIRCLE(800,700,300,ans%,1)
��
�j� col%+ans%=7 �"WELL DONE ";name$(n%):score%(n%)=score%(n%)+1 � �"WRONG. CORRECT"'"COLOUR WAS ";7-col%
��'"PRESS SPACE"
�*FX15,0
�� ��=32:�:�0,135:�
��CIRCLE(400,700,300,5,2)
�Y�"If magenta light"'"shines through a"'"yellow filter, what"'"colour will be seen? ";
�*FX15,0
�$ans%=�:� ans%<48 � ans%>54 ��dND
�ans%=ans%-48
�
�;ans%
��CIRCLE(800,700,300,3,2)
H�:� ans%=1 �"WELL DONE "name$(n%):score%(n%)=score%(n%)+1 � �"WRONG"

�''"PRESS SPACE"
*FX15,0
� ��=32:�:�
( �5:�0,6:�370,700:�;eleph$:�4
2S�"This elephant is to be lit with yellow"'"light. What colour"'"will she be? ";
<*FX15,0
F$ans%=�:� ans%<48 � ans%>54 ��T|E
Pans%=ans%-48:�;ans%
Z�CIRCLE(400,700,300,3,2)
dI�:� ans%=2 �"WELL DONE ";name$(n%):score%(n%)=score%(n%)+1 � �"WRONG"
n �'"PRESS SPACE":� � �=32:�:�
x*FX15,0
� �5:�0,1:�370,700:�;eleph$:�4
�R�"This elephant is to be lit with green"'"light. What colour"'"will she be? ";
�*FX15,0
�$ans%=�:� ans%<48 � ans%>54 ��tVE
�ans%=ans%-48:�;ans%
��CIRCLE(400,700,300,2,2)
�I�:� ans%=0 �"WELL DONE ";name$(n%):score%(n%)=score%(n%)+1 � �"WRONG"
��'"PRESS SPACE"
�*FX15,0
�� ��=32:�:�
� �5:�0,3:�340,670:�;eleph$:�4
�P�"This elephant is to be lit with blue"'"light. What colour"'"will he be? ";
�*FX15,0
$ans%=�:� ans%<48 � ans%>54 ��dzE
ans%=ans%-48:�;ans%
�CIRCLE(400,700,300,4,2)
"I�:� ans%=0 �"WELL DONE ";name$(n%):score%(n%)=score%(n%)+1 � �"WRONG"
,�=0:���>500:*FX15,0
6Z�26:�128:�:�''''"LESSON OVER!!"'''"PRESS SPACE TO"''"RESTART PROGRAM":� � �=32:�:�menu
@�
J��CIRCLE(X,Y,R,C,S)
T�S,C
^�I,J
h� I=Y+R � Y-R � -4
rJ=�(�(R*R-(I-Y)*(I-Y)))
|� X-J,I
�
�X+J,I
��
��
�
��menu
�
�128:�
�#�132:�2:�2,2)"COLOURED LIGHTS"
�(�131:�4:�0,6)"Here are the options"
� �134:�Y=9 � 22:�0,Y)�(20):�
��1
��0,10)"1) PRIMARY COLOURS"''"2) COLOUR ADDITION"''"3) COLOUR COMPLEMENT"'"4) COLOUR REMOVAL"''"5) COLOUR QUESTIONS"''"6) COMPLETE LESSON"
�%�129:�7:�2,28)"Make your choice"
�*FX15,0
�G$=�
� G$="1" flag=0:�primary:�
� G$="2" flag=0:�coladd:�
� G$="3" flag=0:�comp:�
&� G$="4" flag=0:�colsub:�
0!� G$="5" flag=0:�name:�ques:�
:$� G$="6" flag=1:�name:�primary:�
D	�d~F
N�
X
��name
b� n%=30 �score
ln%=n%+1
v*FX15,0
�L�132:�:�3:�0,10)"Please enter your"''"name and then press"''"Return.  "
��'',name$(n%)
��PP%=1��(name$(n%))
�w� �(�name$(n%),PP%,1))<65� �(�name$(n%),PP%,1))>32 ��(�name$(n%),PP%,1))>90 �''"Don't be silly":�=0:���>300:�:�DvG
��
�� �(name$(n%))<2 �129:�t@G
�,� �(name$(n%))>9 name$(n%)=�name$(n%),9)
�-� n%>1 � name$(n%)="SCORE" n%=n%-1:�score
��
�
��init
�� name$(32):n%=0
�� score%(32)
�+�23,254,255,129,129,129,129,129,129,255
+�23,255,255,255,255,255,255,255,255,255
#�23,224,12,12,63,63,51,51,63,63
'�23,225,0,0,255,255,255,255,255,255
 #�23,226,63,63,51,51,243,243,3,3
*+�23,227,255,255,207,207,207,207,207,207
4(eleph$=�224+�225+�10+�8+�8+�226+�227
>�
H��score
R
�132:�:�7
\�14
f�
p� pos%=1 � n% 
z#� name$(pos%);�17);score%(pos%)
��
�
� n%=30 �
�� � �=32
��15
�	�menu
��
�'� DOWN LOAD MEMORY FOR DISC SYSTEMS
�	*TAPE
�D� I%=0 � �P-� � 4:I%!&E00=I%!�:�:?&13=?&13-(�-&E00)�256:�=&E00:�
�
00000000  0d 00 0a 1c f4 20 43 4f  4c 4f 55 52 45 44 20 4c  |..... COLOURED L|
00000010  49 47 48 54 53 20 4c 45  53 53 4f 4e 0d 00 14 12  |IGHTS LESSON....|
00000020  f4 20 42 79 20 52 6f 67  20 46 72 6f 73 74 0d 00  |. By Rog Frost..|
00000030  1e 18 f4 20 28 63 29 20  54 68 65 20 4d 69 63 72  |... (c) The Micr|
00000040  6f 20 55 73 65 72 0d 00  28 3c e7 20 90 3e 26 45  |o User..(<. .>&E|
00000050  30 30 20 e4 8d 64 4a 48  3a f4 20 54 68 69 73 20  |00 ..dJH:. This |
00000060  63 61 6c 6c 73 20 64 6f  77 6e 20 6c 6f 61 64 65  |calls down loade|
00000070  72 20 66 6f 72 20 64 69  73 63 20 73 79 73 74 65  |r for disc syste|
00000080  6d 73 0d 00 32 06 eb 32  0d 00 3c 0b 2a 46 58 31  |ms..2..2..<.*FX1|
00000090  31 2c 30 0d 00 46 0c 2a  46 58 32 32 39 2c 31 0d  |1,0..F.*FX229,1.|
000000a0  00 50 13 ef 32 33 3b 38  32 30 32 3b 30 3b 30 3b  |.P..23;8202;0;0;|
000000b0  30 3b 0d 00 5a 09 f2 69  6e 69 74 0d 00 64 09 f2  |0;..Z..init..d..|
000000c0  6d 65 6e 75 0d 00 6e 14  dd f2 70 72 69 6d 61 72  |menu..n...primar|
000000d0  79 3a fb 31 32 38 3a db  0d 00 78 35 fb 31 33 31  |y:.128:...x5.131|
000000e0  3a fb 34 3a f1 27 22 54  68 65 20 74 68 72 65 65  |:.4:.'"The three|
000000f0  20 70 72 69 6d 61 72 79  22 27 22 63 6f 6c 6f 75  | primary"'"colou|
00000100  72 73 20 61 72 65 3a 2d  20 20 20 20 22 0d 00 82  |rs are:-    "...|
00000110  41 f2 43 49 52 43 4c 45  28 33 30 30 2c 37 30 30  |A.CIRCLE(300,700|
00000120  2c 31 30 30 2c 31 2c 31  29 3a f1 8a 31 31 2c 36  |,100,1,1):..11,6|
00000130  29 3b 89 28 35 29 8a 31  31 2c 37 29 22 20 52 45  |);.(5).11,7)" RE|
00000140  44 20 22 8a 31 31 2c 38  29 3b 89 28 35 29 0d 00  |D ".11,8);.(5)..|
00000150  8c 46 f2 43 49 52 43 4c  45 28 33 30 30 2c 35 30  |.F.CIRCLE(300,50|
00000160  30 2c 31 30 30 2c 32 2c  31 29 3a f1 8a 31 31 2c  |0,100,2,1):..11,|
00000170  31 33 29 3b 89 28 37 29  8a 31 31 2c 31 34 29 22  |13);.(7).11,14)"|
00000180  20 47 52 45 45 4e 20 22  8a 31 31 2c 31 35 29 3b  | GREEN ".11,15);|
00000190  89 28 37 29 0d 00 96 45  f2 43 49 52 43 4c 45 28  |.(7)...E.CIRCLE(|
000001a0  33 30 30 2c 33 30 30 2c  31 30 30 2c 34 2c 31 29  |300,300,100,4,1)|
000001b0  3a f1 8a 31 31 2c 32 30  29 3b 89 28 36 29 8a 31  |:..11,20);.(6).1|
000001c0  31 2c 32 31 29 22 20 42  4c 55 45 20 22 8a 31 31  |1,21)" BLUE ".11|
000001d0  2c 32 32 29 3b 89 28 36  29 0d 00 a0 32 f1 8a 33  |,22);.(6)...2..3|
000001e0  2c 32 37 29 3b 89 28 31  33 29 8a 33 2c 32 38 29  |,27);.(13).3,28)|
000001f0  22 20 50 52 45 53 53 20  53 50 41 43 45 20 22 8a  |" PRESS SPACE ".|
00000200  33 2c 32 39 29 3b 89 28  31 33 29 0d 00 aa 0b 2a  |3,29);.(13)....*|
00000210  46 58 31 35 2c 30 0d 00  b4 0c f5 20 fd 20 a5 3d  |FX15,0..... . .=|
00000220  33 32 0d 00 be 1c e7 20  66 6c 61 67 3d 30 20 f2  |32..... flag=0 .|
00000230  6d 65 6e 75 20 8b 20 f2  63 6f 6c 61 64 64 0d 00  |menu . .coladd..|
00000240  c8 05 e1 0d 00 d2 0c dd  f2 63 6f 6c 61 64 64 0d  |.........coladd.|
00000250  00 dc 0d fb 33 3a fb 31  32 38 3a db 0d 00 e6 11  |....3:.128:.....|
00000260  ef 32 38 2c 31 2c 33 30  2c 31 39 2c 30 0d 00 f0  |.28,1,30,19,0...|
00000270  58 f1 27 27 27 27 27 22  43 4f 4c 4f 55 52 20 41  |X.'''''"COLOUR A|
00000280  44 44 49 54 49 4f 4e 22  27 27 27 27 22 54 77 6f  |DDITION"''''"Two|
00000290  20 6f 72 20 6d 6f 72 65  20 6c 69 67 68 74 73 22  | or more lights"|
000002a0  27 27 22 73 68 69 6e 69  6e 67 20 74 6f 67 65 74  |''"shining toget|
000002b0  68 65 72 2e 22 3a d1 3d  30 3a f5 20 fd 20 91 3e  |her.":.=0:. . .>|
000002c0  35 30 30 3a db 0d 00 fa  12 ef 32 38 2c 30 2c 33  |500:......28,0,3|
000002d0  31 2c 31 39 2c 32 35 0d  01 04 1c f2 43 49 52 43  |1,19,25.....CIRC|
000002e0  4c 45 28 35 30 30 2c 35  35 30 2c 32 35 30 2c 31  |LE(500,550,250,1|
000002f0  2c 31 29 0d 01 0e 1c f2  43 49 52 43 4c 45 28 37  |,1).....CIRCLE(7|
00000300  30 30 2c 35 35 30 2c 32  35 30 2c 32 2c 31 29 0d  |00,550,250,2,1).|
00000310  01 18 1c f2 43 49 52 43  4c 45 28 36 30 30 2c 37  |....CIRCLE(600,7|
00000320  35 30 2c 32 35 30 2c 34  2c 31 29 0d 01 22 0a fb  |50,250,4,1).."..|
00000330  31 33 35 3a db 0d 01 2c  5d fb 34 3a f1 22 57 68  |135:...,].4:."Wh|
00000340  65 6e 20 74 77 6f 20 70  72 69 6d 61 72 79 22 27  |en two primary"'|
00000350  22 63 6f 6c 6f 75 72 73  20 61 72 65 20 6d 69 78  |"colours are mix|
00000360  65 64 22 27 22 61 20 73  65 63 6f 6e 64 61 72 79  |ed"'"a secondary|
00000370  20 63 6f 6c 6f 75 72 22  27 22 69 73 20 73 65 65  | colour"'"is see|
00000380  6e 2e 22 27 27 22 50 52  45 53 53 20 53 50 41 43  |n."''"PRESS SPAC|
00000390  45 22 0d 01 36 0b 2a 46  58 31 35 2c 30 0d 01 40  |E"..6.*FX15,0..@|
000003a0  0e f5 20 fd 20 a5 3d 33  32 3a db 0d 01 4a 6c f1  |.. . .=32:...Jl.|
000003b0  22 52 65 64 20 61 6e 64  20 67 72 65 65 6e 20 67  |"Red and green g|
000003c0  69 76 65 22 27 22 79 65  6c 6c 6f 77 2e 20 52 65  |ive"'"yellow. Re|
000003d0  64 20 61 6e 64 22 27 22  62 6c 75 65 20 67 69 76  |d and"'"blue giv|
000003e0  65 20 6d 61 67 65 6e 74  61 2e 22 27 22 42 6c 75  |e magenta."'"Blu|
000003f0  65 20 61 6e 64 20 67 72  65 65 6e 20 67 69 76 65  |e and green give|
00000400  22 27 22 63 79 61 6e 2e  22 27 22 50 52 45 53 53  |"'"cyan."'"PRESS|
00000410  20 53 50 41 43 45 22 0d  01 54 0b 2a 46 58 31 35  | SPACE"..T.*FX15|
00000420  2c 30 0d 01 5e 0e f5 20  fd 20 a5 3d 33 32 3a db  |,0..^.. . .=32:.|
00000430  0d 01 68 51 f1 22 49 66  20 61 6c 6c 20 74 68 72  |..hQ."If all thr|
00000440  65 65 20 6f 66 20 74 68  65 20 70 72 69 6d 61 72  |ee of the primar|
00000450  79 20 63 6f 6c 6f 75 72  73 20 6d 69 78 20 74 68  |y colours mix th|
00000460  65 6e 20 77 68 69 74 65  20 69 73 20 6d 61 64 65  |en white is made|
00000470  2e 22 27 27 22 50 52 45  53 53 20 53 50 41 43 45  |."''"PRESS SPACE|
00000480  22 0d 01 72 0b 2a 46 58  31 35 2c 30 0d 01 7c 0f  |"..r.*FX15,0..|.|
00000490  f5 20 fd a5 3d 33 32 3a  db 3a da 0d 01 86 07 ef  |. ..=32:.:......|
000004a0  32 36 0d 01 90 1a e7 20  66 6c 61 67 3d 30 20 f2  |26..... flag=0 .|
000004b0  6d 65 6e 75 20 8b 20 f2  63 6f 6d 70 0d 01 9a 05  |menu . .comp....|
000004c0  e1 0d 01 a4 0a dd f2 63  6f 6d 70 0d 01 ae 0a fb  |.......comp.....|
000004d0  31 33 35 3a db 0d 01 b8  06 fb 34 0d 01 c2 2d f1  |135:......4...-.|
000004e0  27 27 27 22 43 4f 4d 50  4c 45 4d 45 4e 54 41 52  |'''"COMPLEMENTAR|
000004f0  59 20 43 4f 4c 4f 55 52  22 27 27 89 28 36 29 3b  |Y COLOUR"''.(6);|
00000500  22 4d 49 58 49 4e 47 22  0d 01 cc 16 d1 3d 30 3a  |"MIXING".....=0:|
00000510  f5 fd 91 3e 35 30 30 3a  fb 31 32 38 3a db 0d 01  |...>500:.128:...|
00000520  d6 12 ef 32 38 2c 30 2c  33 31 2c 31 39 2c 32 30  |...28,0,31,19,20|
00000530  0d 01 e0 0d fb 31 33 35  3a db 3a fb 31 0d 01 ea  |.....135:.:.1...|
00000540  49 f1 22 43 6f 6c 6f 75  72 73 20 61 72 65 20 73  |I."Colours are s|
00000550  61 69 64 20 74 6f 20 62  65 20 63 6f 6d 70 6c 65  |aid to be comple|
00000560  6d 65 6e 74 61 72 79 20  69 66 20 74 68 65 79 20  |mentary if they |
00000570  6d 61 6b 65 20 77 68 69  74 65 20 77 68 65 6e 6d  |make white whenm|
00000580  69 78 65 64 2e 22 0d 01  f4 1c f2 43 49 52 43 4c  |ixed.".....CIRCL|
00000590  45 28 34 30 30 2c 37 30  30 2c 32 35 30 2c 31 2c  |E(400,700,250,1,|
000005a0  31 29 0d 01 fe 1c f2 43  49 52 43 4c 45 28 38 30  |1).....CIRCLE(80|
000005b0  30 2c 37 30 30 2c 32 35  30 2c 36 2c 31 29 0d 02  |0,700,250,6,1)..|
000005c0  08 0b 2a 46 58 31 35 2c  30 0d 02 12 1f f1 27 27  |..*FX15,0.....''|
000005d0  22 50 52 45 53 53 20 53  50 41 43 45 22 3a f5 20  |"PRESS SPACE":. |
000005e0  fd 20 a5 3d 33 32 3a db  0d 02 1c 38 f1 22 52 65  |. .=32:....8."Re|
000005f0  64 20 61 6e 64 20 63 79  61 6e 20 61 72 65 22 27  |d and cyan are"'|
00000600  22 63 6f 6d 70 6c 65 6d  65 6e 74 61 72 79 20 74  |"complementary t|
00000610  6f 22 27 22 65 61 63 68  20 6f 74 68 65 72 2e 22  |o"'"each other."|
00000620  0d 02 26 14 f1 27 27 22  50 52 45 53 53 20 53 50  |..&..''"PRESS SP|
00000630  41 43 45 22 0d 02 30 0b  2a 46 58 31 35 2c 30 0d  |ACE"..0.*FX15,0.|
00000640  02 3a 17 f5 20 fd 20 a5  3d 33 32 3a e6 30 2c 31  |.:.. . .=32:.0,1|
00000650  32 38 3a da 3a db 0d 02  44 1c f2 43 49 52 43 4c  |28:.:...D..CIRCL|
00000660  45 28 38 30 30 2c 37 30  30 2c 32 35 30 2c 33 2c  |E(800,700,250,3,|
00000670  31 29 0d 02 4e 1c f2 43  49 52 43 4c 45 28 34 30  |1)..N..CIRCLE(40|
00000680  30 2c 37 30 30 2c 32 35  30 2c 34 2c 31 29 0d 02  |0,700,250,4,1)..|
00000690  58 84 f1 22 59 65 6c 6c  6f 77 20 69 73 20 6d 61  |X.."Yellow is ma|
000006a0  64 65 20 62 79 22 27 22  6d 69 78 69 6e 67 20 72  |de by"'"mixing r|
000006b0  65 64 20 61 6e 64 20 67  72 65 65 6e 73 6f 20 61  |ed and greenso a|
000006c0  64 64 69 6e 67 20 62 6c  75 65 20 74 6f 22 27 22  |dding blue to"'"|
000006d0  79 65 6c 6c 6f 77 20 6d  65 61 6e 73 20 74 68 61  |yellow means tha|
000006e0  74 22 27 22 61 6c 6c 20  74 68 72 65 65 20 70 72  |t"'"all three pr|
000006f0  69 6d 61 72 79 22 27 22  63 6f 6c 6f 75 72 73 20  |imary"'"colours |
00000700  61 72 65 20 6d 69 78 65  64 22 27 22 68 65 72 65  |are mixed"'"here|
00000710  2e 22 0d 02 62 14 f1 27  27 22 50 52 45 53 53 20  |."..b..''"PRESS |
00000720  53 50 41 43 45 22 0d 02  6c 0b 2a 46 58 31 35 2c  |SPACE"..l.*FX15,|
00000730  30 0d 02 76 17 f5 20 fd  20 a5 3d 33 32 3a ef 32  |0..v.. . .=32:.2|
00000740  36 3a fb 31 32 38 3a db  0d 02 80 1c e7 20 66 6c  |6:.128:...... fl|
00000750  61 67 3d 30 20 f2 6d 65  6e 75 20 8b 20 f2 63 6f  |ag=0 .menu . .co|
00000760  6c 73 75 62 0d 02 8a 05  e1 0d 02 94 0c dd f2 63  |lsub...........c|
00000770  6f 6c 73 75 62 0d 02 9e  0d fb 31 33 35 3a db 3a  |olsub.....135:.:|
00000780  fb 34 0d 02 a8 11 ef 32  38 2c 31 2c 33 30 2c 31  |.4.....28,1,30,1|
00000790  39 2c 30 0d 02 b2 71 f1  27 27 22 43 4f 4c 4f 55  |9,0...q.''"COLOU|
000007a0  52 20 53 55 42 54 52 41  43 54 49 4f 4e 22 27 27  |R SUBTRACTION"''|
000007b0  27 22 48 65 72 65 20 77  68 69 74 65 20 6c 69 67  |'"Here white lig|
000007c0  68 74 22 27 27 22 69 73  20 73 68 69 6e 69 6e 67  |ht"''"is shining|
000007d0  20 6f 75 74 22 27 27 22  74 68 72 6f 75 67 68 20  | out"''"through |
000007e0  63 6f 6c 6f 75 72 22 27  27 22 66 69 6c 74 65 72  |colour"''"filter|
000007f0  73 20 77 68 69 63 68 22  27 27 22 6f 76 65 72 6c  |s which"''"overl|
00000800  61 70 2e 22 0d 02 bc 11  d1 3d 30 3a f5 fd 91 3e  |ap.".....=0:...>|
00000810  35 30 30 3a db 0d 02 c6  12 ef 32 38 2c 30 2c 33  |500:......28,0,3|
00000820  31 2c 31 39 2c 32 35 0d  02 d0 0a e6 30 2c 31 33  |1,19,25.....0,13|
00000830  35 0d 02 da 1c f2 43 49  52 43 4c 45 28 35 30 30  |5.....CIRCLE(500|
00000840  2c 35 35 30 2c 32 35 30  2c 31 2c 32 29 0d 02 e4  |,550,250,1,2)...|
00000850  1c f2 43 49 52 43 4c 45  28 37 30 30 2c 35 35 30  |..CIRCLE(700,550|
00000860  2c 32 35 30 2c 32 2c 32  29 0d 02 ee 1c f2 43 49  |,250,2,2).....CI|
00000870  52 43 4c 45 28 36 30 30  2c 37 35 30 2c 32 35 30  |RCLE(600,750,250|
00000880  2c 34 2c 32 29 0d 02 f8  3c f1 22 49 66 20 70 72  |,4,2)...<."If pr|
00000890  69 6d 61 72 79 20 63 6f  6c 6f 75 72 73 20 20 6f  |imary colours  o|
000008a0  76 65 72 6c 61 70 20 74  68 65 6e 20 6e 6f 22 27  |verlap then no"'|
000008b0  22 6c 69 67 68 74 20 67  65 74 73 20 6f 75 74 2e  |"light gets out.|
000008c0  22 0d 03 02 13 f1 27 22  50 52 45 53 53 20 53 50  |".....'"PRESS SP|
000008d0  41 43 45 22 0d 03 0c 0b  2a 46 58 31 35 2c 30 0d  |ACE"....*FX15,0.|
000008e0  03 16 10 f5 20 fd 20 a5  3d 33 32 3a db 3a da 0d  |.... . .=32:.:..|
000008f0  03 20 1c f2 43 49 52 43  4c 45 28 35 30 30 2c 35  |. ..CIRCLE(500,5|
00000900  35 30 2c 32 35 30 2c 33  2c 32 29 0d 03 2a 1c f2  |50,250,3,2)..*..|
00000910  43 49 52 43 4c 45 28 37  30 30 2c 35 35 30 2c 32  |CIRCLE(700,550,2|
00000920  35 30 2c 35 2c 32 29 0d  03 34 1c f2 43 49 52 43  |50,5,2)..4..CIRC|
00000930  4c 45 28 36 30 30 2c 37  35 30 2c 32 35 30 2c 36  |LE(600,750,250,6|
00000940  2c 32 29 0d 03 3e 51 f1  22 49 66 20 74 77 6f 20  |,2)..>Q."If two |
00000950  73 65 63 6f 6e 64 61 72  79 22 27 22 63 6f 6c 6f  |secondary"'"colo|
00000960  75 72 73 20 6f 76 65 72  6c 61 70 2c 20 74 68 65  |urs overlap, the|
00000970  63 6f 6d 6d 6f 6e 20 70  72 69 6d 61 72 79 20 6c  |common primary l|
00000980  69 67 68 74 73 68 69 6e  65 73 20 74 68 72 6f 75  |ightshines throu|
00000990  67 68 2e 22 0d 03 48 13  f1 27 22 50 52 45 53 53  |gh."..H..'"PRESS|
000009a0  20 53 50 41 43 45 22 0d  03 52 0b 2a 46 58 31 35  | SPACE"..R.*FX15|
000009b0  2c 30 0d 03 5c 0e f5 20  fd 20 a5 3d 33 32 3a db  |,0..\.. . .=32:.|
000009c0  0d 03 66 3f f1 22 49 66  20 61 6c 6c 20 74 68 72  |..f?."If all thr|
000009d0  65 65 20 63 6f 6c 6f 75  72 73 6f 76 65 72 6c 61  |ee coloursoverla|
000009e0  70 20 74 68 65 6e 20 6e  6f 22 27 22 6c 69 67 68  |p then no"'"ligh|
000009f0  74 20 63 61 6e 20 67 65  74 20 6f 75 74 2e 22 0d  |t can get out.".|
00000a00  03 70 13 f1 27 22 50 52  45 53 53 20 53 50 41 43  |.p..'"PRESS SPAC|
00000a10  45 22 0d 03 7a 0b 2a 46  58 31 35 2c 30 0d 03 84  |E"..z.*FX15,0...|
00000a20  0e f5 20 fd 20 a5 3d 33  32 3a db 0d 03 8e 51 f1  |.. . .=32:....Q.|
00000a30  22 57 68 65 6e 20 63 6f  6c 6f 75 72 65 64 20 6c  |"When coloured l|
00000a40  69 67 68 74 20 73 68 69  6e 65 73 20 6f 6e 20 6f  |ight shines on o|
00000a50  62 6a 65 63 74 73 22 27  22 74 68 65 20 65 66 66  |bjects"'"the eff|
00000a60  65 63 74 73 20 61 72 65  22 27 22 73 69 6d 69 6c  |ects are"'"simil|
00000a70  61 72 20 74 6f 20 74 68  69 73 2e 22 0d 03 98 13  |ar to this."....|
00000a80  f1 27 22 50 52 45 53 53  20 53 50 41 43 45 22 0d  |.'"PRESS SPACE".|
00000a90  03 a2 0b 2a 46 58 31 35  2c 30 0d 03 ac 16 f5 20  |...*FX15,0..... |
00000aa0  fd a5 3d 33 32 3a ef 32  36 3a fb 31 32 38 3a db  |..=32:.26:.128:.|
00000ab0  0d 03 b6 1a e7 20 66 6c  61 67 3d 30 20 f2 6d 65  |..... flag=0 .me|
00000ac0  6e 75 20 8b 20 f2 71 75  65 73 0d 03 c0 05 e1 0d  |nu . .ques......|
00000ad0  03 ca 0a dd f2 71 75 65  73 0d 03 d4 0d fb 33 3a  |.....ques.....3:|
00000ae0  fb 31 32 38 3a db 0d 03  de 2b f1 27 27 27 27 22  |.128:....+.''''"|
00000af0  20 20 20 51 55 45 53 54  49 4f 4e 20 54 49 4d 45  |   QUESTION TIME|
00000b00  22 3a d1 3d 30 3a f5 20  fd 20 91 3e 35 30 30 3a  |":.=0:. . .>500:|
00000b10  db 0d 03 e8 12 ef 32 38  2c 30 2c 33 31 2c 31 39  |......28,0,31,19|
00000b20  2c 32 36 0d 03 f2 13 e3  20 43 25 3d 31 20 b8 20  |,26..... C%=1 . |
00000b30  36 3a fb 20 43 25 0d 03  fc 1f f1 8a 43 25 2a 33  |6:. C%......C%*3|
00000b40  2c 31 29 2b bd 32 35 35  20 8a 43 25 2a 33 2c 33  |,1)+.255 .C%*3,3|
00000b50  29 3b 43 25 20 0d 04 06  05 ed 0d 04 10 06 fb 37  |);C% ..........7|
00000b60  0d 04 1a 17 f1 8a 30 2c  31 29 bd 32 35 34 20 8a  |......0,1).254 .|
00000b70  30 2c 33 29 22 30 22 0d  04 24 12 ef 32 38 2c 30  |0,3)"0"..$..28,0|
00000b80  2c 32 36 2c 31 39 2c 32  30 0d 04 2e 18 ef 32 34  |,26,19,20.....24|
00000b90  2c 30 3b 34 30 30 3b 31  32 37 39 3b 31 30 32 33  |,0;400;1279;1023|
00000ba0  3b 0d 04 38 0d 63 6f 6c  25 3d b3 28 36 29 0d 04  |;..8.col%=.(6)..|
00000bb0  42 1f f2 43 49 52 43 4c  45 28 34 30 30 2c 37 30  |B..CIRCLE(400,70|
00000bc0  30 2c 33 30 30 2c 63 6f  6c 25 2c 31 29 0d 04 4c  |0,300,col%,1)..L|
00000bd0  3d f1 8a 30 2c 30 29 22  57 68 61 74 20 69 73 20  |=..0,0)"What is |
00000be0  74 68 65 22 27 22 63 6f  6d 70 6c 65 6d 65 6e 74  |the"'"complement|
00000bf0  20 6f 66 20 74 68 65 22  27 22 63 6f 6c 6f 75 72  | of the"'"colour|
00000c00  20 73 68 6f 77 6e 3f 20  22 3b 0d 04 56 0b 2a 46  | shown? ";..V.*F|
00000c10  58 31 35 2c 30 0d 04 60  26 61 6e 73 25 3d a5 3a  |X15,0..`&ans%=.:|
00000c20  e7 20 61 6e 73 25 3c 34  38 20 84 20 61 6e 73 25  |. ans%<48 . ans%|
00000c30  3e 35 34 20 8c 20 8d 44  4c 44 20 0d 04 6a 10 61  |>54 . .DLD ..j.a|
00000c40  6e 73 25 3d 61 6e 73 25  2d 34 38 0d 04 74 0a f1  |ns%=ans%-48..t..|
00000c50  3b 61 6e 73 25 0d 04 7e  2d e7 20 63 6f 6c 25 2b  |;ans%..~-. col%+|
00000c60  61 6e 73 25 3d 37 20 f2  43 49 52 43 4c 45 28 38  |ans%=7 .CIRCLE(8|
00000c70  30 30 2c 37 30 30 2c 33  30 30 2c 61 6e 73 25 2c  |00,700,300,ans%,|
00000c80  31 29 0d 04 88 05 db 0d  04 92 6a e7 20 63 6f 6c  |1)........j. col|
00000c90  25 2b 61 6e 73 25 3d 37  20 f1 22 57 45 4c 4c 20  |%+ans%=7 ."WELL |
00000ca0  44 4f 4e 45 20 22 3b 6e  61 6d 65 24 28 6e 25 29  |DONE ";name$(n%)|
00000cb0  3a 73 63 6f 72 65 25 28  6e 25 29 3d 73 63 6f 72  |:score%(n%)=scor|
00000cc0  65 25 28 6e 25 29 2b 31  20 8b 20 f1 22 57 52 4f  |e%(n%)+1 . ."WRO|
00000cd0  4e 47 2e 20 43 4f 52 52  45 43 54 22 27 22 43 4f  |NG. CORRECT"'"CO|
00000ce0  4c 4f 55 52 20 57 41 53  20 22 3b 37 2d 63 6f 6c  |LOUR WAS ";7-col|
00000cf0  25 0d 04 9c 13 f1 27 22  50 52 45 53 53 20 53 50  |%.....'"PRESS SP|
00000d00  41 43 45 22 0d 04 a6 0b  2a 46 58 31 35 2c 30 0d  |ACE"....*FX15,0.|
00000d10  04 b0 16 f5 20 fd a5 3d  33 32 3a db 3a e6 30 2c  |.... ..=32:.:.0,|
00000d20  31 33 35 3a da 0d 04 ba  1c f2 43 49 52 43 4c 45  |135:......CIRCLE|
00000d30  28 34 30 30 2c 37 30 30  2c 33 30 30 2c 35 2c 32  |(400,700,300,5,2|
00000d40  29 0d 04 c4 59 f1 22 49  66 20 6d 61 67 65 6e 74  |)...Y."If magent|
00000d50  61 20 6c 69 67 68 74 22  27 22 73 68 69 6e 65 73  |a light"'"shines|
00000d60  20 74 68 72 6f 75 67 68  20 61 22 27 22 79 65 6c  | through a"'"yel|
00000d70  6c 6f 77 20 66 69 6c 74  65 72 2c 20 77 68 61 74  |low filter, what|
00000d80  22 27 22 63 6f 6c 6f 75  72 20 77 69 6c 6c 20 62  |"'"colour will b|
00000d90  65 20 73 65 65 6e 3f 20  22 3b 0d 04 ce 0b 2a 46  |e seen? ";....*F|
00000da0  58 31 35 2c 30 0d 04 d8  24 61 6e 73 25 3d a5 3a  |X15,0...$ans%=.:|
00000db0  e7 20 61 6e 73 25 3c 34  38 20 84 20 61 6e 73 25  |. ans%<48 . ans%|
00000dc0  3e 35 34 20 8c 8d 64 4e  44 0d 04 e2 10 61 6e 73  |>54 ..dND....ans|
00000dd0  25 3d 61 6e 73 25 2d 34  38 0d 04 ec 0a f1 3b 61  |%=ans%-48.....;a|
00000de0  6e 73 25 0d 04 f6 1c f2  43 49 52 43 4c 45 28 38  |ns%.....CIRCLE(8|
00000df0  30 30 2c 37 30 30 2c 33  30 30 2c 33 2c 32 29 0d  |00,700,300,3,2).|
00000e00  05 00 48 db 3a e7 20 61  6e 73 25 3d 31 20 f1 22  |..H.:. ans%=1 ."|
00000e10  57 45 4c 4c 20 44 4f 4e  45 20 22 6e 61 6d 65 24  |WELL DONE "name$|
00000e20  28 6e 25 29 3a 73 63 6f  72 65 25 28 6e 25 29 3d  |(n%):score%(n%)=|
00000e30  73 63 6f 72 65 25 28 6e  25 29 2b 31 20 8b 20 f1  |score%(n%)+1 . .|
00000e40  22 57 52 4f 4e 47 22 0d  05 0a 14 f1 27 27 22 50  |"WRONG".....''"P|
00000e50  52 45 53 53 20 53 50 41  43 45 22 0d 05 14 0b 2a  |RESS SPACE"....*|
00000e60  46 58 31 35 2c 30 0d 05  1e 0f f5 20 fd a5 3d 33  |FX15,0..... ..=3|
00000e70  32 3a db 3a da 0d 05 28  20 ef 35 3a e6 30 2c 36  |2:.:...( .5:.0,6|
00000e80  3a ec 33 37 30 2c 37 30  30 3a f1 3b 65 6c 65 70  |:.370,700:.;elep|
00000e90  68 24 3a ef 34 0d 05 32  53 f1 22 54 68 69 73 20  |h$:.4..2S."This |
00000ea0  65 6c 65 70 68 61 6e 74  20 69 73 20 74 6f 20 62  |elephant is to b|
00000eb0  65 20 6c 69 74 20 77 69  74 68 20 79 65 6c 6c 6f  |e lit with yello|
00000ec0  77 22 27 22 6c 69 67 68  74 2e 20 57 68 61 74 20  |w"'"light. What |
00000ed0  63 6f 6c 6f 75 72 22 27  22 77 69 6c 6c 20 73 68  |colour"'"will sh|
00000ee0  65 20 62 65 3f 20 22 3b  0d 05 3c 0b 2a 46 58 31  |e be? ";..<.*FX1|
00000ef0  35 2c 30 0d 05 46 24 61  6e 73 25 3d a5 3a e7 20  |5,0..F$ans%=.:. |
00000f00  61 6e 73 25 3c 34 38 20  84 20 61 6e 73 25 3e 35  |ans%<48 . ans%>5|
00000f10  34 20 8c 8d 54 7c 45 0d  05 50 17 61 6e 73 25 3d  |4 ..T|E..P.ans%=|
00000f20  61 6e 73 25 2d 34 38 3a  f1 3b 61 6e 73 25 0d 05  |ans%-48:.;ans%..|
00000f30  5a 1c f2 43 49 52 43 4c  45 28 34 30 30 2c 37 30  |Z..CIRCLE(400,70|
00000f40  30 2c 33 30 30 2c 33 2c  32 29 0d 05 64 49 db 3a  |0,300,3,2)..dI.:|
00000f50  e7 20 61 6e 73 25 3d 32  20 f1 22 57 45 4c 4c 20  |. ans%=2 ."WELL |
00000f60  44 4f 4e 45 20 22 3b 6e  61 6d 65 24 28 6e 25 29  |DONE ";name$(n%)|
00000f70  3a 73 63 6f 72 65 25 28  6e 25 29 3d 73 63 6f 72  |:score%(n%)=scor|
00000f80  65 25 28 6e 25 29 2b 31  20 8b 20 f1 22 57 52 4f  |e%(n%)+1 . ."WRO|
00000f90  4e 47 22 0d 05 6e 20 f1  27 22 50 52 45 53 53 20  |NG"..n .'"PRESS |
00000fa0  53 50 41 43 45 22 3a f5  20 fd 20 a5 3d 33 32 3a  |SPACE":. . .=32:|
00000fb0  db 3a da 0d 05 78 0b 2a  46 58 31 35 2c 30 0d 05  |.:...x.*FX15,0..|
00000fc0  82 20 ef 35 3a e6 30 2c  31 3a ec 33 37 30 2c 37  |. .5:.0,1:.370,7|
00000fd0  30 30 3a f1 3b 65 6c 65  70 68 24 3a ef 34 0d 05  |00:.;eleph$:.4..|
00000fe0  8c 52 f1 22 54 68 69 73  20 65 6c 65 70 68 61 6e  |.R."This elephan|
00000ff0  74 20 69 73 20 74 6f 20  62 65 20 6c 69 74 20 77  |t is to be lit w|
00001000  69 74 68 20 67 72 65 65  6e 22 27 22 6c 69 67 68  |ith green"'"ligh|
00001010  74 2e 20 57 68 61 74 20  63 6f 6c 6f 75 72 22 27  |t. What colour"'|
00001020  22 77 69 6c 6c 20 73 68  65 20 62 65 3f 20 22 3b  |"will she be? ";|
00001030  0d 05 96 0b 2a 46 58 31  35 2c 30 0d 05 a0 24 61  |....*FX15,0...$a|
00001040  6e 73 25 3d a5 3a e7 20  61 6e 73 25 3c 34 38 20  |ns%=.:. ans%<48 |
00001050  84 20 61 6e 73 25 3e 35  34 20 8c 8d 74 56 45 0d  |. ans%>54 ..tVE.|
00001060  05 aa 17 61 6e 73 25 3d  61 6e 73 25 2d 34 38 3a  |...ans%=ans%-48:|
00001070  f1 3b 61 6e 73 25 0d 05  b4 1c f2 43 49 52 43 4c  |.;ans%.....CIRCL|
00001080  45 28 34 30 30 2c 37 30  30 2c 33 30 30 2c 32 2c  |E(400,700,300,2,|
00001090  32 29 0d 05 be 49 db 3a  e7 20 61 6e 73 25 3d 30  |2)...I.:. ans%=0|
000010a0  20 f1 22 57 45 4c 4c 20  44 4f 4e 45 20 22 3b 6e  | ."WELL DONE ";n|
000010b0  61 6d 65 24 28 6e 25 29  3a 73 63 6f 72 65 25 28  |ame$(n%):score%(|
000010c0  6e 25 29 3d 73 63 6f 72  65 25 28 6e 25 29 2b 31  |n%)=score%(n%)+1|
000010d0  20 8b 20 f1 22 57 52 4f  4e 47 22 0d 05 c8 13 f1  | . ."WRONG".....|
000010e0  27 22 50 52 45 53 53 20  53 50 41 43 45 22 0d 05  |'"PRESS SPACE"..|
000010f0  d2 0b 2a 46 58 31 35 2c  30 0d 05 dc 0f f5 20 fd  |..*FX15,0..... .|
00001100  a5 3d 33 32 3a db 3a da  0d 05 e6 20 ef 35 3a e6  |.=32:.:.... .5:.|
00001110  30 2c 33 3a ec 33 34 30  2c 36 37 30 3a f1 3b 65  |0,3:.340,670:.;e|
00001120  6c 65 70 68 24 3a ef 34  0d 05 f0 50 f1 22 54 68  |leph$:.4...P."Th|
00001130  69 73 20 65 6c 65 70 68  61 6e 74 20 69 73 20 74  |is elephant is t|
00001140  6f 20 62 65 20 6c 69 74  20 77 69 74 68 20 62 6c  |o be lit with bl|
00001150  75 65 22 27 22 6c 69 67  68 74 2e 20 57 68 61 74  |ue"'"light. What|
00001160  20 63 6f 6c 6f 75 72 22  27 22 77 69 6c 6c 20 68  | colour"'"will h|
00001170  65 20 62 65 3f 20 22 3b  0d 05 fa 0b 2a 46 58 31  |e be? ";....*FX1|
00001180  35 2c 30 0d 06 04 24 61  6e 73 25 3d a5 3a e7 20  |5,0...$ans%=.:. |
00001190  61 6e 73 25 3c 34 38 20  84 20 61 6e 73 25 3e 35  |ans%<48 . ans%>5|
000011a0  34 20 8c 8d 64 7a 45 0d  06 0e 17 61 6e 73 25 3d  |4 ..dzE....ans%=|
000011b0  61 6e 73 25 2d 34 38 3a  f1 3b 61 6e 73 25 0d 06  |ans%-48:.;ans%..|
000011c0  18 1c f2 43 49 52 43 4c  45 28 34 30 30 2c 37 30  |...CIRCLE(400,70|
000011d0  30 2c 33 30 30 2c 34 2c  32 29 0d 06 22 49 db 3a  |0,300,4,2).."I.:|
000011e0  e7 20 61 6e 73 25 3d 30  20 f1 22 57 45 4c 4c 20  |. ans%=0 ."WELL |
000011f0  44 4f 4e 45 20 22 3b 6e  61 6d 65 24 28 6e 25 29  |DONE ";name$(n%)|
00001200  3a 73 63 6f 72 65 25 28  6e 25 29 3d 73 63 6f 72  |:score%(n%)=scor|
00001210  65 25 28 6e 25 29 2b 31  20 8b 20 f1 22 57 52 4f  |e%(n%)+1 . ."WRO|
00001220  4e 47 22 0d 06 2c 17 d1  3d 30 3a f5 fd 91 3e 35  |NG"..,..=0:...>5|
00001230  30 30 3a 2a 46 58 31 35  2c 30 0d 06 36 5a ef 32  |00:*FX15,0..6Z.2|
00001240  36 3a fb 31 32 38 3a db  3a f1 27 27 27 27 22 4c  |6:.128:.:.''''"L|
00001250  45 53 53 4f 4e 20 4f 56  45 52 21 21 22 27 27 27  |ESSON OVER!!"'''|
00001260  22 50 52 45 53 53 20 53  50 41 43 45 20 54 4f 22  |"PRESS SPACE TO"|
00001270  27 27 22 52 45 53 54 41  52 54 20 50 52 4f 47 52  |''"RESTART PROGR|
00001280  41 4d 22 3a f5 20 fd 20  a5 3d 33 32 3a db 3a f2  |AM":. . .=32:.:.|
00001290  6d 65 6e 75 0d 06 40 05  e1 0d 06 4a 17 dd f2 43  |menu..@....J...C|
000012a0  49 52 43 4c 45 28 58 2c  59 2c 52 2c 43 2c 53 29  |IRCLE(X,Y,R,C,S)|
000012b0  0d 06 54 08 e6 53 2c 43  0d 06 5e 08 ea 49 2c 4a  |..T..S,C..^..I,J|
000012c0  0d 06 68 16 e3 20 49 3d  59 2b 52 20 b8 20 59 2d  |..h.. I=Y+R . Y-|
000012d0  52 20 88 20 2d 34 0d 06  72 1b 4a 3d b6 28 94 28  |R . -4..r.J=.(.(|
000012e0  52 2a 52 2d 28 49 2d 59  29 2a 28 49 2d 59 29 29  |R*R-(I-Y)*(I-Y))|
000012f0  29 0d 06 7c 0b ec 20 58  2d 4a 2c 49 0d 06 86 0a  |)..|.. X-J,I....|
00001300  df 58 2b 4a 2c 49 0d 06  90 05 ed 0d 06 9a 05 e1  |.X+J,I..........|
00001310  0d 06 a4 0a dd f2 6d 65  6e 75 0d 06 ae 0a fb 31  |......menu.....1|
00001320  32 38 3a db 0d 06 b8 23  fb 31 33 32 3a fb 32 3a  |28:....#.132:.2:|
00001330  f1 8a 32 2c 32 29 22 43  4f 4c 4f 55 52 45 44 20  |..2,2)"COLOURED |
00001340  4c 49 47 48 54 53 22 0d  06 c2 28 fb 31 33 31 3a  |LIGHTS"...(.131:|
00001350  fb 34 3a f1 8a 30 2c 36  29 22 48 65 72 65 20 61  |.4:..0,6)"Here a|
00001360  72 65 20 74 68 65 20 6f  70 74 69 6f 6e 73 22 0d  |re the options".|
00001370  06 cc 20 fb 31 33 34 3a  e3 59 3d 39 20 b8 20 32  |.. .134:.Y=9 . 2|
00001380  32 3a f1 8a 30 2c 59 29  89 28 32 30 29 3a ed 0d  |2:..0,Y).(20):..|
00001390  06 d6 06 fb 31 0d 06 e0  8e f1 8a 30 2c 31 30 29  |....1......0,10)|
000013a0  22 31 29 20 50 52 49 4d  41 52 59 20 43 4f 4c 4f  |"1) PRIMARY COLO|
000013b0  55 52 53 22 27 27 22 32  29 20 43 4f 4c 4f 55 52  |URS"''"2) COLOUR|
000013c0  20 41 44 44 49 54 49 4f  4e 22 27 27 22 33 29 20  | ADDITION"''"3) |
000013d0  43 4f 4c 4f 55 52 20 43  4f 4d 50 4c 45 4d 45 4e  |COLOUR COMPLEMEN|
000013e0  54 22 27 22 34 29 20 43  4f 4c 4f 55 52 20 52 45  |T"'"4) COLOUR RE|
000013f0  4d 4f 56 41 4c 22 27 27  22 35 29 20 43 4f 4c 4f  |MOVAL"''"5) COLO|
00001400  55 52 20 51 55 45 53 54  49 4f 4e 53 22 27 27 22  |UR QUESTIONS"''"|
00001410  36 29 20 43 4f 4d 50 4c  45 54 45 20 4c 45 53 53  |6) COMPLETE LESS|
00001420  4f 4e 22 0d 06 ea 25 fb  31 32 39 3a fb 37 3a f1  |ON"...%.129:.7:.|
00001430  8a 32 2c 32 38 29 22 4d  61 6b 65 20 79 6f 75 72  |.2,28)"Make your|
00001440  20 63 68 6f 69 63 65 22  0d 06 f4 0b 2a 46 58 31  | choice"....*FX1|
00001450  35 2c 30 0d 06 fe 08 47  24 3d be 0d 07 08 1e e7  |5,0....G$=......|
00001460  20 47 24 3d 22 31 22 20  66 6c 61 67 3d 30 3a f2  | G$="1" flag=0:.|
00001470  70 72 69 6d 61 72 79 3a  e1 0d 07 12 1d e7 20 47  |primary:...... G|
00001480  24 3d 22 32 22 20 66 6c  61 67 3d 30 3a f2 63 6f  |$="2" flag=0:.co|
00001490  6c 61 64 64 3a e1 0d 07  1c 1b e7 20 47 24 3d 22  |ladd:...... G$="|
000014a0  33 22 20 66 6c 61 67 3d  30 3a f2 63 6f 6d 70 3a  |3" flag=0:.comp:|
000014b0  e1 0d 07 26 1d e7 20 47  24 3d 22 34 22 20 66 6c  |...&.. G$="4" fl|
000014c0  61 67 3d 30 3a f2 63 6f  6c 73 75 62 3a e1 0d 07  |ag=0:.colsub:...|
000014d0  30 21 e7 20 47 24 3d 22  35 22 20 66 6c 61 67 3d  |0!. G$="5" flag=|
000014e0  30 3a f2 6e 61 6d 65 3a  f2 71 75 65 73 3a e1 0d  |0:.name:.ques:..|
000014f0  07 3a 24 e7 20 47 24 3d  22 36 22 20 66 6c 61 67  |.:$. G$="6" flag|
00001500  3d 31 3a f2 6e 61 6d 65  3a f2 70 72 69 6d 61 72  |=1:.name:.primar|
00001510  79 3a e1 0d 07 44 09 e5  8d 64 7e 46 0d 07 4e 05  |y:...D...d~F..N.|
00001520  e1 0d 07 58 0a dd f2 6e  61 6d 65 0d 07 62 12 e7  |...X...name..b..|
00001530  20 6e 25 3d 33 30 20 f2  73 63 6f 72 65 0d 07 6c  | n%=30 .score..l|
00001540  0b 6e 25 3d 6e 25 2b 31  0d 07 76 0b 2a 46 58 31  |.n%=n%+1..v.*FX1|
00001550  35 2c 30 0d 07 80 4c fb  31 33 32 3a db 3a fb 33  |5,0...L.132:.:.3|
00001560  3a f1 8a 30 2c 31 30 29  22 50 6c 65 61 73 65 20  |:..0,10)"Please |
00001570  65 6e 74 65 72 20 79 6f  75 72 22 27 27 22 6e 61  |enter your"''"na|
00001580  6d 65 20 61 6e 64 20 74  68 65 6e 20 70 72 65 73  |me and then pres|
00001590  73 22 27 27 22 52 65 74  75 72 6e 2e 20 20 22 0d  |s"''"Return.  ".|
000015a0  07 8a 11 e8 27 27 2c 6e  61 6d 65 24 28 6e 25 29  |....'',name$(n%)|
000015b0  0d 07 94 17 e3 50 50 25  3d 31 b8 a9 28 6e 61 6d  |.....PP%=1..(nam|
000015c0  65 24 28 6e 25 29 29 0d  07 9e 77 e7 20 97 28 c1  |e$(n%))...w. .(.|
000015d0  6e 61 6d 65 24 28 6e 25  29 2c 50 50 25 2c 31 29  |name$(n%),PP%,1)|
000015e0  29 3c 36 35 80 20 97 28  c1 6e 61 6d 65 24 28 6e  |)<65. .(.name$(n|
000015f0  25 29 2c 50 50 25 2c 31  29 29 3e 33 32 20 84 97  |%),PP%,1))>32 ..|
00001600  28 c1 6e 61 6d 65 24 28  6e 25 29 2c 50 50 25 2c  |(.name$(n%),PP%,|
00001610  31 29 29 3e 39 30 20 f1  27 27 22 44 6f 6e 27 74  |1))>90 .''"Don't|
00001620  20 62 65 20 73 69 6c 6c  79 22 3a d1 3d 30 3a f5  | be silly":.=0:.|
00001630  fd 91 3e 33 30 30 3a db  3a e5 8d 44 76 47 0d 07  |..>300:.:..DvG..|
00001640  a8 05 ed 0d 07 b2 1f e7  20 a9 28 6e 61 6d 65 24  |........ .(name$|
00001650  28 6e 25 29 29 3c 32 20  fb 31 32 39 3a e5 8d 74  |(n%))<2 .129:..t|
00001660  40 47 0d 07 bc 2c e7 20  a9 28 6e 61 6d 65 24 28  |@G...,. .(name$(|
00001670  6e 25 29 29 3e 39 20 6e  61 6d 65 24 28 6e 25 29  |n%))>9 name$(n%)|
00001680  3d c0 6e 61 6d 65 24 28  6e 25 29 2c 39 29 0d 07  |=.name$(n%),9)..|
00001690  c6 2d e7 20 6e 25 3e 31  20 80 20 6e 61 6d 65 24  |.-. n%>1 . name$|
000016a0  28 6e 25 29 3d 22 53 43  4f 52 45 22 20 6e 25 3d  |(n%)="SCORE" n%=|
000016b0  6e 25 2d 31 3a f2 73 63  6f 72 65 0d 07 d0 05 e1  |n%-1:.score.....|
000016c0  0d 07 da 0a dd f2 69 6e  69 74 0d 07 e4 14 de 20  |......init..... |
000016d0  6e 61 6d 65 24 28 33 32  29 3a 6e 25 3d 30 0d 07  |name$(32):n%=0..|
000016e0  ee 10 de 20 73 63 6f 72  65 25 28 33 32 29 0d 07  |... score%(32)..|
000016f0  f8 2b ef 32 33 2c 32 35  34 2c 32 35 35 2c 31 32  |.+.23,254,255,12|
00001700  39 2c 31 32 39 2c 31 32  39 2c 31 32 39 2c 31 32  |9,129,129,129,12|
00001710  39 2c 31 32 39 2c 32 35  35 0d 08 02 2b ef 32 33  |9,129,255...+.23|
00001720  2c 32 35 35 2c 32 35 35  2c 32 35 35 2c 32 35 35  |,255,255,255,255|
*
00001740  2c 32 35 35 0d 08 0c 23  ef 32 33 2c 32 32 34 2c  |,255...#.23,224,|
00001750  31 32 2c 31 32 2c 36 33  2c 36 33 2c 35 31 2c 35  |12,12,63,63,51,5|
00001760  31 2c 36 33 2c 36 33 0d  08 16 27 ef 32 33 2c 32  |1,63,63...'.23,2|
00001770  32 35 2c 30 2c 30 2c 32  35 35 2c 32 35 35 2c 32  |25,0,0,255,255,2|
00001780  35 35 2c 32 35 35 2c 32  35 35 2c 32 35 35 0d 08  |55,255,255,255..|
00001790  20 23 ef 32 33 2c 32 32  36 2c 36 33 2c 36 33 2c  | #.23,226,63,63,|
000017a0  35 31 2c 35 31 2c 32 34  33 2c 32 34 33 2c 33 2c  |51,51,243,243,3,|
000017b0  33 0d 08 2a 2b ef 32 33  2c 32 32 37 2c 32 35 35  |3..*+.23,227,255|
000017c0  2c 32 35 35 2c 32 30 37  2c 32 30 37 2c 32 30 37  |,255,207,207,207|
000017d0  2c 32 30 37 2c 32 30 37  2c 32 30 37 0d 08 34 28  |,207,207,207..4(|
000017e0  65 6c 65 70 68 24 3d bd  32 32 34 2b bd 32 32 35  |eleph$=.224+.225|
000017f0  2b bd 31 30 2b bd 38 2b  bd 38 2b bd 32 32 36 2b  |+.10+.8+.8+.226+|
00001800  bd 32 32 37 0d 08 3e 05  e1 0d 08 48 0b dd f2 73  |.227..>....H...s|
00001810  63 6f 72 65 0d 08 52 0d  fb 31 33 32 3a db 3a fb  |core..R..132:.:.|
00001820  37 0d 08 5c 07 ef 31 34  0d 08 66 05 f1 0d 08 70  |7..\..14..f....p|
00001830  12 e3 20 70 6f 73 25 3d  31 20 b8 20 6e 25 20 0d  |.. pos%=1 . n% .|
00001840  08 7a 23 f1 20 6e 61 6d  65 24 28 70 6f 73 25 29  |.z#. name$(pos%)|
00001850  3b 8a 31 37 29 3b 73 63  6f 72 65 25 28 70 6f 73  |;.17);score%(pos|
00001860  25 29 0d 08 84 05 ed 0d  08 8e 0d e7 20 6e 25 3d  |%).......... n%=|
00001870  33 30 20 e0 0d 08 98 0c  f5 20 fd 20 a5 3d 33 32  |30 ...... . .=32|
00001880  0d 08 a2 07 ef 31 35 0d  08 ac 09 f2 6d 65 6e 75  |.....15.....menu|
00001890  0d 08 b6 05 e1 0d 08 c0  27 f4 20 44 4f 57 4e 20  |........'. DOWN |
000018a0  4c 4f 41 44 20 4d 45 4d  4f 52 59 20 46 4f 52 20  |LOAD MEMORY FOR |
000018b0  44 49 53 43 20 53 59 53  54 45 4d 53 0d 08 ca 09  |DISC SYSTEMS....|
000018c0  2a 54 41 50 45 0d 08 d4  44 e3 20 49 25 3d 30 20  |*TAPE...D. I%=0 |
000018d0  b8 20 b8 50 2d 90 20 88  20 34 3a 49 25 21 26 45  |. .P-. . 4:I%!&E|
000018e0  30 30 3d 49 25 21 90 3a  ed 3a 3f 26 31 33 3d 3f  |00=I%!.:.:?&13=?|
000018f0  26 31 33 2d 28 90 2d 26  45 30 30 29 81 32 35 36  |&13-(.-&E00).256|
00001900  3a d0 3d 26 45 30 30 3a  f9 0d ff                 |:.=&E00:...|
0000190b
16-12-88/COLITES.m0
16-12-88/COLITES.m1
16-12-88/COLITES.m2
16-12-88/COLITES.m4
16-12-88/COLITES.m5

© Dominic Ford 2021–2024.

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