Home » Recent acquisitions » Acorn tapes » tape045b_acorn_acorn_user_1985_04_electron.wav » HINTS
HINTS
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 » Recent acquisitions » Acorn tapes » tape045b_acorn_acorn_user_1985_04_electron.wav |
| Filename: | HINTS |
| Read OK: | ✔ |
| File size: | 0C92 bytes |
| Load address: | FFFF1900 |
| Exec address: | FFFF1900 |
Duplicates
There are 2 duplicate copies of this file in the archive:
- Recent acquisitions » Acorn tapes » tape045a_acorn_acorn_user_1985_04_bbc.wav » HINTS
- Recent acquisitions » Acorn tapes » tape045b_acorn_acorn_user_1985_04_electron.wav » HINTS
- AEW website » au » au_5_25_discs_Acorn-User-85-04_D-AU8504.ssd » D.IDIOT
File contents
10 REM Interactive Determination of
11 REM Intellectual Objectivity
12 REM Test Meter
20 REM Martin Phillips
30 REM For BBC and Electron
40 REM (C) Acorn User April 1985
50 :
60 MODE1
70 PROCinitialise
80 PROCinstructions
90 PROCscale
100 PROCrun
110 PROCcrash
120 END
130 :
140 DEF PROCinstructions
150 GCOL0,1
160 PROCdouble("Interactive Determination of",192,1007)
170 PROCdouble("Intellectual Objectivity Test Meter",96,928)
180 GCOL0,3
190 PRINT''" The computer is connected to a highly"
200 PRINT"sensitive amplifier which is able to"
210 PRINT"monitor low-level, high frequency"
220 PRINT"electromagnetic radiation."
230 PRINT" The human brain relies on tiny"
240 PRINT"electrical impulses to send messages."
250 PRINT"The strength and frequency of these"
260 PRINT"impulses are a measure of the activity"
270 PRINT"of the brain."
280 PRINT" This meter can detect these tiny"
290 PRINT"impulses and by measuring the frequency"
300 PRINT"and intensity of them is able to"
310 PRINT"determine one's IQ."
320 PRINT" The aerial must be 50cm from the fore-"
330 PRINT"head, and you must concentrate as hard"
340 PRINT"as possible on the simple problems"
350 PRINT"presented at the bottom of the screen,"
360 PRINT"and say the answers out loud."
370 PRINT" The computer then sets the rate at"
380 PRINT"which the problems are presented, until"
390 PRINT"it reaches an optimum speed. Then the"
400 PRINT"computer will be able to calculate and"
410 PRINT"display your IQ."'
420 VDU19,3,4,0,0,0
430 GCOL 0,1
440 PRINT SPC(8);"Press space to start"
450 REPEAT:UNTIL GET=32
460 ENDPROC
470 :
480 DEF PROCinitialise
490 *FX11,0
500 X1=156:Y1=693
510 VDU5
520 VDU19,0,7,0,0,0
530 VDU19,3,7,0,0,0
540 VDU23;8202;0;0;0;
550 PX=0:PY=0
560 *KEY10 OLD|M MODE1|M VDU23;8202;0;0;0;|M GOTO1390|M
570 ENDPROC
580 :
590 DEF PROCscale
600 GCOL0,128
610 CLG
620 GCOL0,3
630 FOR S=0 TO 20
640 angle=0.07*S+0.869:L=740
650 IF S MOD2=0 THEN L=L-24
660 IF S MOD4=0 THEN L=L-24
670 X=ABS(-640+(L*COS(angle)))
680 Y=120+L*SIN(angle)
690 MOVE X,Y
700 X=ABS(-640+(764*COS(angle)))
710 Y=120+764*SIN(angle)
720 DRAW X,Y
730 DRAW X1,Y1
740 IF S MOD4=0 THEN PROCdouble(STR$(S*10),X,Y+80)
750 X1=X:Y1=Y
760 NEXT S
770 ENDPROC
780 :
790 DEF PROCbezel(text$)
800 GCOL0,130
810 VDU24,0;0;1279;250;
820 CLG
830 GCOL0,3
840 X=640-(16*LEN(text$))
850 PROCdouble(text$,X,175)
860 VDU24,0;250;1279;1023;
870 ENDPROC
880 :
890 DEF PROCpointer(val)
900 GCOL0,0
910 PROCdrawpointer
920 angle=0.869+val*0.007
930 PY=50+750*SIN(angle)
940 PX=ABS(-640+680*COS(angle))
950 GCOL0,1
960 PROCdrawpointer
970 ENDPROC
980 :
990 DEF PROCdrawpointer
1000 MOVE(640-(200/TAN(angle))),252
1010 DRAW PX,PY
1020 ENDPROC
1030 :
1040 DEF PROCdouble(A$,K,L)
1050 A%=&A:X%=0:Y%=&A:D=&A00
1060 FOR T=1 TO LEN(A$)
1070 K1=K+(32*(T-2))
1080 B$=MID$(A$,T,1)
1090 ?D=ASC(B$)
1100 CALL &FFF1
1110 VDU23,240,D?1,D?1,D?2,D?2,D?3,D?3,D?4,D?4
1120 VDU23,241,D?5,D?5,D?6,D?6,D?7,D?7,D?8,D?8
1130 MOVE K1,L:PRINTCHR$(240);
1140 MOVE K1,L-32:PRINTCHR$(241);
1150 NEXT T
1160 ENDPROC
1170 :
1180 DEF PROCrun
1190 angle=1.57
1200 FOR N=1 TO 30
1210 PROCsum
1220 I=INKEY(200-5*N)
1230 PROCpointer(50+N*3+RND(20)-RND(20))
1240 NEXT N
1250 FOR N=50 TO -60 STEP-5
1260 PROCsum
1270 I=INKEY(RND(25))
1280 PROCpointer(50+N*2+RND(20)-RND(20))
1290 NEXT N
1300 ENDPROC
1310 :
1320 DEF PROCcrash
1330 FOR N=1 TO 200
1340 VDU19,0,(RND(15)),0,0,0
1350 VDU19,1,(RND(15)),0,0,0
1360 VDU19,2,(RND(15)),0,0,0
1370 VDU19,3,(RND(15)),0,0,0
1380 NEXT N
1390 VDU19,0,0,0,0,0
1400 VDU19,1,0,0,0,0
1410 VDU19,2,0,0,0,0
1420 VDU19,3,0,0,0,0
1430 SOUND1,-15,4,255
1440 *FX200,1
1450 *MOTOR1
1460 VDU4,14
1470 REPEAT
1480 FOR N=1 TO 35:PRINT:NEXT N
1490 UNTIL 0
1500 ENDPROC
1510 :
1520 DEF PROCsum
1530 a$=STR$(1+RND(9))
1540 b$=STR$(1+RND(9))
1550 PROCbezel(a$+" x "+b$+" = ")
1560 ENDPROC
# � Interactive Determination of
� Intellectual Objectivity
� Test Meter
� Martin Phillips
� For BBC and Electron
(! � (C) Acorn User April 1985
2 :
< �1
F �initialise
P �instructions
Z �scale
d �run
n �crash
x �
� :
� � �instructions
� �0,1
�5 �double("Interactive Determination of",192,1007)
�: �double("Intellectual Objectivity Test Meter",96,928)
� �0,3
�0 �''" The computer is connected to a highly"
�, �"sensitive amplifier which is able to"
�) �"monitor low-level, high frequency"
�" �"electromagnetic radiation."
�' �" The human brain relies on tiny"
�- �"electrical impulses to send messages."
�+ �"The strength and frequency of these"
. �"impulses are a measure of the activity"
�"of the brain."
) �" This meter can detect these tiny"
"/ �"impulses and by measuring the frequency"
,( �"and intensity of them is able to"
6 �"determine one's IQ."
@/ �" The aerial must be 50cm from the fore-"
J. �"head, and you must concentrate as hard"
T* �"as possible on the simple problems"
^. �"presented at the bottom of the screen,"
h% �"and say the answers out loud."
r+ �" The computer then sets the rate at"
|/ �"which the problems are presented, until"
�- �"it reaches an optimum speed. Then the"
�. �"computer will be able to calculate and"
� �"display your IQ."'
� �19,3,4,0,0,0
�
� 0,1
�" � �(8);"Press space to start"
�
�:� �=32
� �
� :
� � �initialise
� *FX11,0
� X1=156:Y1=693
� �5
�19,0,7,0,0,0
�19,3,7,0,0,0
�23;8202;0;0;0;
& PX=0:PY=0
08 *KEY10 OLD|M MODE1|M VDU23;8202;0;0;0;|M GOTO1390|M
: �
D :
N
� �scale
X �0,128
b �
l �0,3
v � S=0 � 20
� angle=0.07*S+0.869:L=740
� � S �2=0 � L=L-24
� � S �4=0 � L=L-24
� X=�(-640+(L*�(angle)))
� Y=120+L*�(angle)
�
� X,Y
� X=�(-640+(764*�(angle)))
� Y=120+764*�(angle)
�
� X,Y
� � X1,Y1
�' � S �4=0 � �double(�(S*10),X,Y+80)
� X1=X:Y1=Y
� � S
�
:
� �bezel(text$)
�0,130
* �24,0;0;1279;250;
4 �
> �0,3
H X=640-(16*�(text$))
R �double(text$,X,175)
\ �24,0;250;1279;1023;
f �
p :
z � �pointer(val)
� �0,0
� �drawpointer
� angle=0.869+val*0.007
� PY=50+750*�(angle)
� PX=�(-640+680*�(angle))
� �0,1
� �drawpointer
� �
� :
� � �drawpointer
� �(640-(200/�(angle))),252
� � PX,PY
� �
:
� �double(A$,K,L)
A%=&A:X%=0:Y%=&A:D=&A00
$ � T=1 � �(A$)
. K1=K+(32*(T-2))
8 B$=�A$,T,1)
B
?D=�(B$)
L � &FFF1
V, �23,240,D?1,D?1,D?2,D?2,D?3,D?3,D?4,D?4
`, �23,241,D?5,D?5,D?6,D?6,D?7,D?7,D?8,D?8
j � K1,L:�(240);
t � K1,L-32:�(241);
~ � T
� �
� :
� � �run
� angle=1.57
� � N=1 � 30
� �sum
� I=�(200-5*N)
�! �pointer(50+N*3+�(20)-�(20))
� � N
� � N=50 � -60 �-5
� �sum
� I=�(�(25))
! �pointer(50+N*2+�(20)-�(20))
� N
�
:
(
� �crash
2 � N=1 � 200
< �19,0,(�(15)),0,0,0
F �19,1,(�(15)),0,0,0
P �19,2,(�(15)),0,0,0
Z �19,3,(�(15)),0,0,0
d � N
n �19,0,0,0,0,0
x �19,1,0,0,0,0
� �19,2,0,0,0,0
� �19,3,0,0,0,0
� �1,-15,4,255
�
*FX200,1
� *MOTOR1
�
�4,14
� �
� � N=1 � 35:�:� N
� � 0
� �
� :
� � �sum
� a$=�(1+�(9))
b$=�(1+�(9))
�bezel(a$+" x "+b$+" = ")
�
� 00000000 0d 00 0a 23 20 f4 20 49 6e 74 65 72 61 63 74 69 |...# . Interacti|
00000010 76 65 20 44 65 74 65 72 6d 69 6e 61 74 69 6f 6e |ve Determination|
00000020 20 6f 66 0d 00 0b 1f 20 f4 20 49 6e 74 65 6c 6c | of.... . Intell|
00000030 65 63 74 75 61 6c 20 4f 62 6a 65 63 74 69 76 69 |ectual Objectivi|
00000040 74 79 0d 00 0c 11 20 f4 20 54 65 73 74 20 4d 65 |ty.... . Test Me|
00000050 74 65 72 0d 00 14 16 20 f4 20 4d 61 72 74 69 6e |ter.... . Martin|
00000060 20 50 68 69 6c 6c 69 70 73 0d 00 1e 1b 20 f4 20 | Phillips.... . |
00000070 46 6f 72 20 42 42 43 20 61 6e 64 20 45 6c 65 63 |For BBC and Elec|
00000080 74 72 6f 6e 0d 00 28 21 20 f4 20 28 43 29 20 41 |tron..(! . (C) A|
00000090 63 6f 72 6e 20 55 73 65 72 20 41 70 72 69 6c 20 |corn User April |
000000a0 31 39 38 35 20 0d 00 32 06 20 3a 0d 00 3c 07 20 |1985 ..2. :..<. |
000000b0 eb 31 0d 00 46 10 20 f2 69 6e 69 74 69 61 6c 69 |.1..F. .initiali|
000000c0 73 65 0d 00 50 12 20 f2 69 6e 73 74 72 75 63 74 |se..P. .instruct|
000000d0 69 6f 6e 73 0d 00 5a 0b 20 f2 73 63 61 6c 65 0d |ions..Z. .scale.|
000000e0 00 64 09 20 f2 72 75 6e 0d 00 6e 0b 20 f2 63 72 |.d. .run..n. .cr|
000000f0 61 73 68 0d 00 78 06 20 e0 0d 00 82 06 20 3a 0d |ash..x. ..... :.|
00000100 00 8c 14 20 dd 20 f2 69 6e 73 74 72 75 63 74 69 |... . .instructi|
00000110 6f 6e 73 0d 00 96 09 20 e6 30 2c 31 0d 00 a0 35 |ons.... .0,1...5|
00000120 20 f2 64 6f 75 62 6c 65 28 22 49 6e 74 65 72 61 | .double("Intera|
00000130 63 74 69 76 65 20 44 65 74 65 72 6d 69 6e 61 74 |ctive Determinat|
00000140 69 6f 6e 20 6f 66 22 2c 31 39 32 2c 31 30 30 37 |ion of",192,1007|
00000150 29 0d 00 aa 3a 20 f2 64 6f 75 62 6c 65 28 22 49 |)...: .double("I|
00000160 6e 74 65 6c 6c 65 63 74 75 61 6c 20 4f 62 6a 65 |ntellectual Obje|
00000170 63 74 69 76 69 74 79 20 54 65 73 74 20 4d 65 74 |ctivity Test Met|
00000180 65 72 22 2c 39 36 2c 39 32 38 29 0d 00 b4 09 20 |er",96,928).... |
00000190 e6 30 2c 33 0d 00 be 30 20 f1 27 27 22 20 54 68 |.0,3...0 .''" Th|
000001a0 65 20 63 6f 6d 70 75 74 65 72 20 69 73 20 63 6f |e computer is co|
000001b0 6e 6e 65 63 74 65 64 20 74 6f 20 61 20 68 69 67 |nnected to a hig|
000001c0 68 6c 79 22 0d 00 c8 2c 20 f1 22 73 65 6e 73 69 |hly"..., ."sensi|
000001d0 74 69 76 65 20 61 6d 70 6c 69 66 69 65 72 20 77 |tive amplifier w|
000001e0 68 69 63 68 20 69 73 20 61 62 6c 65 20 74 6f 22 |hich is able to"|
000001f0 0d 00 d2 29 20 f1 22 6d 6f 6e 69 74 6f 72 20 6c |...) ."monitor l|
00000200 6f 77 2d 6c 65 76 65 6c 2c 20 68 69 67 68 20 66 |ow-level, high f|
00000210 72 65 71 75 65 6e 63 79 22 0d 00 dc 22 20 f1 22 |requency"..." ."|
00000220 65 6c 65 63 74 72 6f 6d 61 67 6e 65 74 69 63 20 |electromagnetic |
00000230 72 61 64 69 61 74 69 6f 6e 2e 22 0d 00 e6 27 20 |radiation."...' |
00000240 f1 22 20 54 68 65 20 68 75 6d 61 6e 20 62 72 61 |." The human bra|
00000250 69 6e 20 72 65 6c 69 65 73 20 6f 6e 20 74 69 6e |in relies on tin|
00000260 79 22 0d 00 f0 2d 20 f1 22 65 6c 65 63 74 72 69 |y"...- ."electri|
00000270 63 61 6c 20 69 6d 70 75 6c 73 65 73 20 74 6f 20 |cal impulses to |
00000280 73 65 6e 64 20 6d 65 73 73 61 67 65 73 2e 22 0d |send messages.".|
00000290 00 fa 2b 20 f1 22 54 68 65 20 73 74 72 65 6e 67 |..+ ."The streng|
000002a0 74 68 20 61 6e 64 20 66 72 65 71 75 65 6e 63 79 |th and frequency|
000002b0 20 6f 66 20 74 68 65 73 65 22 0d 01 04 2e 20 f1 | of these".... .|
000002c0 22 69 6d 70 75 6c 73 65 73 20 61 72 65 20 61 20 |"impulses are a |
000002d0 6d 65 61 73 75 72 65 20 6f 66 20 74 68 65 20 61 |measure of the a|
000002e0 63 74 69 76 69 74 79 22 0d 01 0e 15 20 f1 22 6f |ctivity".... ."o|
000002f0 66 20 74 68 65 20 62 72 61 69 6e 2e 22 0d 01 18 |f the brain."...|
00000300 29 20 f1 22 20 54 68 69 73 20 6d 65 74 65 72 20 |) ." This meter |
00000310 63 61 6e 20 64 65 74 65 63 74 20 74 68 65 73 65 |can detect these|
00000320 20 74 69 6e 79 22 0d 01 22 2f 20 f1 22 69 6d 70 | tiny".."/ ."imp|
00000330 75 6c 73 65 73 20 61 6e 64 20 62 79 20 6d 65 61 |ulses and by mea|
00000340 73 75 72 69 6e 67 20 74 68 65 20 66 72 65 71 75 |suring the frequ|
00000350 65 6e 63 79 22 0d 01 2c 28 20 f1 22 61 6e 64 20 |ency"..,( ."and |
00000360 69 6e 74 65 6e 73 69 74 79 20 6f 66 20 74 68 65 |intensity of the|
00000370 6d 20 69 73 20 61 62 6c 65 20 74 6f 22 0d 01 36 |m is able to"..6|
00000380 1b 20 f1 22 64 65 74 65 72 6d 69 6e 65 20 6f 6e |. ."determine on|
00000390 65 27 73 20 49 51 2e 22 0d 01 40 2f 20 f1 22 20 |e's IQ."..@/ ." |
000003a0 54 68 65 20 61 65 72 69 61 6c 20 6d 75 73 74 20 |The aerial must |
000003b0 62 65 20 35 30 63 6d 20 66 72 6f 6d 20 74 68 65 |be 50cm from the|
000003c0 20 66 6f 72 65 2d 22 0d 01 4a 2e 20 f1 22 68 65 | fore-"..J. ."he|
000003d0 61 64 2c 20 61 6e 64 20 79 6f 75 20 6d 75 73 74 |ad, and you must|
000003e0 20 63 6f 6e 63 65 6e 74 72 61 74 65 20 61 73 20 | concentrate as |
000003f0 68 61 72 64 22 0d 01 54 2a 20 f1 22 61 73 20 70 |hard"..T* ."as p|
00000400 6f 73 73 69 62 6c 65 20 6f 6e 20 74 68 65 20 73 |ossible on the s|
00000410 69 6d 70 6c 65 20 70 72 6f 62 6c 65 6d 73 22 0d |imple problems".|
00000420 01 5e 2e 20 f1 22 70 72 65 73 65 6e 74 65 64 20 |.^. ."presented |
00000430 61 74 20 74 68 65 20 62 6f 74 74 6f 6d 20 6f 66 |at the bottom of|
00000440 20 74 68 65 20 73 63 72 65 65 6e 2c 22 0d 01 68 | the screen,"..h|
00000450 25 20 f1 22 61 6e 64 20 73 61 79 20 74 68 65 20 |% ."and say the |
00000460 61 6e 73 77 65 72 73 20 6f 75 74 20 6c 6f 75 64 |answers out loud|
00000470 2e 22 0d 01 72 2b 20 f1 22 20 54 68 65 20 63 6f |."..r+ ." The co|
00000480 6d 70 75 74 65 72 20 74 68 65 6e 20 73 65 74 73 |mputer then sets|
00000490 20 74 68 65 20 72 61 74 65 20 61 74 22 0d 01 7c | the rate at"..||
000004a0 2f 20 f1 22 77 68 69 63 68 20 74 68 65 20 70 72 |/ ."which the pr|
000004b0 6f 62 6c 65 6d 73 20 61 72 65 20 70 72 65 73 65 |oblems are prese|
000004c0 6e 74 65 64 2c 20 75 6e 74 69 6c 22 0d 01 86 2d |nted, until"...-|
000004d0 20 f1 22 69 74 20 72 65 61 63 68 65 73 20 61 6e | ."it reaches an|
000004e0 20 6f 70 74 69 6d 75 6d 20 73 70 65 65 64 2e 20 | optimum speed. |
000004f0 54 68 65 6e 20 74 68 65 22 0d 01 90 2e 20 f1 22 |Then the".... ."|
00000500 63 6f 6d 70 75 74 65 72 20 77 69 6c 6c 20 62 65 |computer will be|
00000510 20 61 62 6c 65 20 74 6f 20 63 61 6c 63 75 6c 61 | able to calcula|
00000520 74 65 20 61 6e 64 22 0d 01 9a 19 20 f1 22 64 69 |te and".... ."di|
00000530 73 70 6c 61 79 20 79 6f 75 72 20 49 51 2e 22 27 |splay your IQ."'|
00000540 0d 01 a4 12 20 ef 31 39 2c 33 2c 34 2c 30 2c 30 |.... .19,3,4,0,0|
00000550 2c 30 0d 01 ae 0a 20 e6 20 30 2c 31 0d 01 b8 22 |,0.... . 0,1..."|
00000560 20 f1 20 89 28 38 29 3b 22 50 72 65 73 73 20 73 | . .(8);"Press s|
00000570 70 61 63 65 20 74 6f 20 73 74 61 72 74 22 0d 01 |pace to start"..|
00000580 c2 0d 20 f5 3a fd 20 a5 3d 33 32 0d 01 cc 06 20 |.. .:. .=32.... |
00000590 e1 0d 01 d6 06 20 3a 0d 01 e0 12 20 dd 20 f2 69 |..... :.... . .i|
000005a0 6e 69 74 69 61 6c 69 73 65 0d 01 ea 0c 20 2a 46 |nitialise.... *F|
000005b0 58 31 31 2c 30 0d 01 f4 12 20 58 31 3d 31 35 36 |X11,0.... X1=156|
000005c0 3a 59 31 3d 36 39 33 0d 01 fe 07 20 ef 35 0d 02 |:Y1=693.... .5..|
000005d0 08 12 20 ef 31 39 2c 30 2c 37 2c 30 2c 30 2c 30 |.. .19,0,7,0,0,0|
000005e0 0d 02 12 12 20 ef 31 39 2c 33 2c 37 2c 30 2c 30 |.... .19,3,7,0,0|
000005f0 2c 30 0d 02 1c 14 20 ef 32 33 3b 38 32 30 32 3b |,0.... .23;8202;|
00000600 30 3b 30 3b 30 3b 0d 02 26 0e 20 50 58 3d 30 3a |0;0;0;..&. PX=0:|
00000610 50 59 3d 30 0d 02 30 38 20 2a 4b 45 59 31 30 20 |PY=0..08 *KEY10 |
00000620 4f 4c 44 7c 4d 20 4d 4f 44 45 31 7c 4d 20 56 44 |OLD|M MODE1|M VD|
00000630 55 32 33 3b 38 32 30 32 3b 30 3b 30 3b 30 3b 7c |U23;8202;0;0;0;||
00000640 4d 20 47 4f 54 4f 31 33 39 30 7c 4d 0d 02 3a 06 |M GOTO1390|M..:.|
00000650 20 e1 0d 02 44 06 20 3a 0d 02 4e 0d 20 dd 20 f2 | ...D. :..N. . .|
00000660 73 63 61 6c 65 0d 02 58 0b 20 e6 30 2c 31 32 38 |scale..X. .0,128|
00000670 0d 02 62 06 20 da 0d 02 6c 09 20 e6 30 2c 33 0d |..b. ...l. .0,3.|
00000680 02 76 0f 20 e3 20 53 3d 30 20 b8 20 32 30 0d 02 |.v. . S=0 . 20..|
00000690 80 1d 20 61 6e 67 6c 65 3d 30 2e 30 37 2a 53 2b |.. angle=0.07*S+|
000006a0 30 2e 38 36 39 3a 4c 3d 37 34 30 0d 02 8a 16 20 |0.869:L=740.... |
000006b0 e7 20 53 20 83 32 3d 30 20 8c 20 4c 3d 4c 2d 32 |. S .2=0 . L=L-2|
000006c0 34 0d 02 94 16 20 e7 20 53 20 83 34 3d 30 20 8c |4.... . S .4=0 .|
000006d0 20 4c 3d 4c 2d 32 34 0d 02 9e 1b 20 58 3d 94 28 | L=L-24.... X=.(|
000006e0 2d 36 34 30 2b 28 4c 2a 9b 28 61 6e 67 6c 65 29 |-640+(L*.(angle)|
000006f0 29 29 0d 02 a8 15 20 59 3d 31 32 30 2b 4c 2a b5 |)).... Y=120+L*.|
00000700 28 61 6e 67 6c 65 29 0d 02 b2 0a 20 ec 20 58 2c |(angle).... . X,|
00000710 59 0d 02 bc 1d 20 58 3d 94 28 2d 36 34 30 2b 28 |Y.... X=.(-640+(|
00000720 37 36 34 2a 9b 28 61 6e 67 6c 65 29 29 29 0d 02 |764*.(angle)))..|
00000730 c6 17 20 59 3d 31 32 30 2b 37 36 34 2a b5 28 61 |.. Y=120+764*.(a|
00000740 6e 67 6c 65 29 0d 02 d0 0a 20 df 20 58 2c 59 0d |ngle).... . X,Y.|
00000750 02 da 0c 20 df 20 58 31 2c 59 31 0d 02 e4 27 20 |... . X1,Y1...' |
00000760 e7 20 53 20 83 34 3d 30 20 8c 20 f2 64 6f 75 62 |. S .4=0 . .doub|
00000770 6c 65 28 c3 28 53 2a 31 30 29 2c 58 2c 59 2b 38 |le(.(S*10),X,Y+8|
00000780 30 29 0d 02 ee 0e 20 58 31 3d 58 3a 59 31 3d 59 |0).... X1=X:Y1=Y|
00000790 0d 02 f8 08 20 ed 20 53 0d 03 02 06 20 e1 0d 03 |.... . S.... ...|
000007a0 0c 06 20 3a 0d 03 16 14 20 dd 20 f2 62 65 7a 65 |.. :.... . .beze|
000007b0 6c 28 74 65 78 74 24 29 0d 03 20 0b 20 e6 30 2c |l(text$).. . .0,|
000007c0 31 33 30 0d 03 2a 16 20 ef 32 34 2c 30 3b 30 3b |130..*. .24,0;0;|
000007d0 31 32 37 39 3b 32 35 30 3b 0d 03 34 06 20 da 0d |1279;250;..4. ..|
000007e0 03 3e 09 20 e6 30 2c 33 0d 03 48 18 20 58 3d 36 |.>. .0,3..H. X=6|
000007f0 34 30 2d 28 31 36 2a a9 28 74 65 78 74 24 29 29 |40-(16*.(text$))|
00000800 0d 03 52 19 20 f2 64 6f 75 62 6c 65 28 74 65 78 |..R. .double(tex|
00000810 74 24 2c 58 2c 31 37 35 29 0d 03 5c 19 20 ef 32 |t$,X,175)..\. .2|
00000820 34 2c 30 3b 32 35 30 3b 31 32 37 39 3b 31 30 32 |4,0;250;1279;102|
00000830 33 3b 0d 03 66 06 20 e1 0d 03 70 06 20 3a 0d 03 |3;..f. ...p. :..|
00000840 7a 14 20 dd 20 f2 70 6f 69 6e 74 65 72 28 76 61 |z. . .pointer(va|
00000850 6c 29 0d 03 84 09 20 e6 30 2c 30 0d 03 8e 11 20 |l).... .0,0.... |
00000860 f2 64 72 61 77 70 6f 69 6e 74 65 72 0d 03 98 1a |.drawpointer....|
00000870 20 61 6e 67 6c 65 3d 30 2e 38 36 39 2b 76 61 6c | angle=0.869+val|
00000880 2a 30 2e 30 30 37 0d 03 a2 17 20 50 59 3d 35 30 |*0.007.... PY=50|
00000890 2b 37 35 30 2a b5 28 61 6e 67 6c 65 29 0d 03 ac |+750*.(angle)...|
000008a0 1d 20 50 58 3d 94 28 2d 36 34 30 2b 36 38 30 2a |. PX=.(-640+680*|
000008b0 9b 28 61 6e 67 6c 65 29 29 20 0d 03 b6 09 20 e6 |.(angle)) .... .|
000008c0 30 2c 31 0d 03 c0 11 20 f2 64 72 61 77 70 6f 69 |0,1.... .drawpoi|
000008d0 6e 74 65 72 0d 03 ca 06 20 e1 0d 03 d4 06 20 3a |nter.... ..... :|
000008e0 0d 03 de 13 20 dd 20 f2 64 72 61 77 70 6f 69 6e |.... . .drawpoin|
000008f0 74 65 72 0d 03 e8 1e 20 ec 28 36 34 30 2d 28 32 |ter.... .(640-(2|
00000900 30 30 2f b7 28 61 6e 67 6c 65 29 29 29 2c 32 35 |00/.(angle))),25|
00000910 32 0d 03 f2 0c 20 df 20 50 58 2c 50 59 0d 03 fc |2.... . PX,PY...|
00000920 06 20 e1 0d 04 06 06 20 3a 0d 04 10 16 20 dd 20 |. ..... :.... . |
00000930 f2 64 6f 75 62 6c 65 28 41 24 2c 4b 2c 4c 29 0d |.double(A$,K,L).|
00000940 04 1a 1c 20 41 25 3d 26 41 3a 58 25 3d 30 3a 59 |... A%=&A:X%=0:Y|
00000950 25 3d 26 41 3a 44 3d 26 41 30 30 0d 04 24 12 20 |%=&A:D=&A00..$. |
00000960 e3 20 54 3d 31 20 b8 20 a9 28 41 24 29 0d 04 2e |. T=1 . .(A$)...|
00000970 14 20 4b 31 3d 4b 2b 28 33 32 2a 28 54 2d 32 29 |. K1=K+(32*(T-2)|
00000980 29 0d 04 38 10 20 42 24 3d c1 41 24 2c 54 2c 31 |)..8. B$=.A$,T,1|
00000990 29 0d 04 42 0d 20 3f 44 3d 97 28 42 24 29 0d 04 |)..B. ?D=.(B$)..|
000009a0 4c 0c 20 d6 20 26 46 46 46 31 0d 04 56 2c 20 ef |L. . &FFF1..V, .|
000009b0 32 33 2c 32 34 30 2c 44 3f 31 2c 44 3f 31 2c 44 |23,240,D?1,D?1,D|
000009c0 3f 32 2c 44 3f 32 2c 44 3f 33 2c 44 3f 33 2c 44 |?2,D?2,D?3,D?3,D|
000009d0 3f 34 2c 44 3f 34 0d 04 60 2c 20 ef 32 33 2c 32 |?4,D?4..`, .23,2|
000009e0 34 31 2c 44 3f 35 2c 44 3f 35 2c 44 3f 36 2c 44 |41,D?5,D?5,D?6,D|
000009f0 3f 36 2c 44 3f 37 2c 44 3f 37 2c 44 3f 38 2c 44 |?6,D?7,D?7,D?8,D|
00000a00 3f 38 0d 04 6a 14 20 ec 20 4b 31 2c 4c 3a f1 bd |?8..j. . K1,L:..|
00000a10 28 32 34 30 29 3b 0d 04 74 17 20 ec 20 4b 31 2c |(240);..t. . K1,|
00000a20 4c 2d 33 32 3a f1 bd 28 32 34 31 29 3b 0d 04 7e |L-32:..(241);..~|
00000a30 08 20 ed 20 54 0d 04 88 06 20 e1 0d 04 92 06 20 |. . T.... ..... |
00000a40 3a 0d 04 9c 0b 20 dd 20 f2 72 75 6e 0d 04 a6 0f |:.... . .run....|
00000a50 20 61 6e 67 6c 65 3d 31 2e 35 37 0d 04 b0 0f 20 | angle=1.57.... |
00000a60 e3 20 4e 3d 31 20 b8 20 33 30 0d 04 ba 09 20 f2 |. N=1 . 30.... .|
00000a70 73 75 6d 0d 04 c4 11 20 49 3d a6 28 32 30 30 2d |sum.... I=.(200-|
00000a80 35 2a 4e 29 0d 04 ce 21 20 f2 70 6f 69 6e 74 65 |5*N)...! .pointe|
00000a90 72 28 35 30 2b 4e 2a 33 2b b3 28 32 30 29 2d b3 |r(50+N*3+.(20)-.|
00000aa0 28 32 30 29 29 0d 04 d8 08 20 ed 20 4e 0d 04 e2 |(20)).... . N...|
00000ab0 15 20 e3 20 4e 3d 35 30 20 b8 20 2d 36 30 20 88 |. . N=50 . -60 .|
00000ac0 2d 35 0d 04 ec 09 20 f2 73 75 6d 0d 04 f6 0f 20 |-5.... .sum.... |
00000ad0 49 3d a6 28 b3 28 32 35 29 29 0d 05 00 21 20 f2 |I=.(.(25))...! .|
00000ae0 70 6f 69 6e 74 65 72 28 35 30 2b 4e 2a 32 2b b3 |pointer(50+N*2+.|
00000af0 28 32 30 29 2d b3 28 32 30 29 29 0d 05 0a 08 20 |(20)-.(20)).... |
00000b00 ed 20 4e 0d 05 14 06 20 e1 0d 05 1e 06 20 3a 0d |. N.... ..... :.|
00000b10 05 28 0d 20 dd 20 f2 63 72 61 73 68 0d 05 32 10 |.(. . .crash..2.|
00000b20 20 e3 20 4e 3d 31 20 b8 20 32 30 30 0d 05 3c 18 | . N=1 . 200..<.|
00000b30 20 ef 31 39 2c 30 2c 28 b3 28 31 35 29 29 2c 30 | .19,0,(.(15)),0|
00000b40 2c 30 2c 30 0d 05 46 18 20 ef 31 39 2c 31 2c 28 |,0,0..F. .19,1,(|
00000b50 b3 28 31 35 29 29 2c 30 2c 30 2c 30 0d 05 50 18 |.(15)),0,0,0..P.|
00000b60 20 ef 31 39 2c 32 2c 28 b3 28 31 35 29 29 2c 30 | .19,2,(.(15)),0|
00000b70 2c 30 2c 30 0d 05 5a 18 20 ef 31 39 2c 33 2c 28 |,0,0..Z. .19,3,(|
00000b80 b3 28 31 35 29 29 2c 30 2c 30 2c 30 0d 05 64 08 |.(15)),0,0,0..d.|
00000b90 20 ed 20 4e 0d 05 6e 12 20 ef 31 39 2c 30 2c 30 | . N..n. .19,0,0|
00000ba0 2c 30 2c 30 2c 30 0d 05 78 12 20 ef 31 39 2c 31 |,0,0,0..x. .19,1|
00000bb0 2c 30 2c 30 2c 30 2c 30 0d 05 82 12 20 ef 31 39 |,0,0,0,0.... .19|
00000bc0 2c 32 2c 30 2c 30 2c 30 2c 30 0d 05 8c 12 20 ef |,2,0,0,0,0.... .|
00000bd0 31 39 2c 33 2c 30 2c 30 2c 30 2c 30 0d 05 96 11 |19,3,0,0,0,0....|
00000be0 20 d4 31 2c 2d 31 35 2c 34 2c 32 35 35 0d 05 a0 | .1,-15,4,255...|
00000bf0 0d 20 2a 46 58 32 30 30 2c 31 0d 05 aa 0c 20 2a |. *FX200,1.... *|
00000c00 4d 4f 54 4f 52 31 0d 05 b4 0a 20 ef 34 2c 31 34 |MOTOR1.... .4,14|
00000c10 0d 05 be 06 20 f5 0d 05 c8 15 20 e3 20 4e 3d 31 |.... ..... . N=1|
00000c20 20 b8 20 33 35 3a f1 3a ed 20 4e 0d 05 d2 08 20 | . 35:.:. N.... |
00000c30 fd 20 30 0d 05 dc 06 20 e1 0d 05 e6 06 20 3a 0d |. 0.... ..... :.|
00000c40 05 f0 0b 20 dd 20 f2 73 75 6d 0d 05 fa 11 20 61 |... . .sum.... a|
00000c50 24 3d c3 28 31 2b b3 28 39 29 29 0d 06 04 11 20 |$=.(1+.(9)).... |
00000c60 62 24 3d c3 28 31 2b b3 28 39 29 29 0d 06 0e 1e |b$=.(1+.(9))....|
00000c70 20 f2 62 65 7a 65 6c 28 61 24 2b 22 20 78 20 22 | .bezel(a$+" x "|
00000c80 2b 62 24 2b 22 20 3d 20 22 29 0d 06 18 06 20 e1 |+b$+" = ").... .|
00000c90 0d ff |..|
00000c92 
HINTS.m0
HINTS.m1
HINTS.m2
HINTS.m4
HINTS.m5
.