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:

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