Home » Personal collection » Commodore disks » disk52a2_c16_progs.d64 » angles
angles
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 » Personal collection » Commodore disks » disk52a2_c16_progs.d64 |
| Filename: | angles |
| Read OK: | ✔ |
| File size: | 0496 bytes |
| Load address: | 1001 |
| Exec address: | 0000 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Personal collection » Commodore disks » disk52a2_c16_progs.d64 » angles
- Personal collection » Commodore tapes » Commodore_16 » drawer_br_tape04a_c16_c60_computer_tape_1.wav » angles
File contents
10 COLOR 1,1
20 COLOR 0,16
30 COLOR 4,16
40 PRINT"<clr><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down> ANGLES PROGRAM"
50 PRINT" 🮃🮃🮃🮃🮃🮃🮃🮃🮃🮃🮃🮃🮃🮃"
60 PRINT"<cursor down><cursor down><cursor down><cursor down> THE OBJECT OF THIS GAME IS TO GUESS HOW MANY DEGREES ROUND";
70 PRINT" THE CIRCLE THE LINE HAS ROTATED."
80 PRINT"<cursor down><cursor down><cursor down><cursor down> PRESS SPACE TO START."
90 GET A$:IF A$<>" " THEN GOTO 90
100 FOR A=1 TO 10
110 GRAPHIC 2,1
120 CIRCLE 1,160,80,70
130 B=INT(RND(1)*360)+1
140 CIRCLE 1,160,80,70,,B,B
150 DRAW TO 160,80
160 PRINT A;"<cursor left>) ";
170 INPUT"HOW MANY DEGREES";C
180 IF C<=B THEN GOTO 300
190 ON A GOTO 200,210,220,230,240,250,260,270,280,290
200 D=C-B:GOTO 410
210 E=C-B:GOTO 410
220 F=C-B:GOTO 410
230 G=C-B:GOTO 410
240 H=C-B:GOTO 410
250 I=C-B:GOTO 410
260 J=C-B:GOTO 410
270 K=C-B:GOTO 410
280 L=C-B:GOTO 410
290 M=C-B:GOTO 410
300 ON A GOTO 310,320,330,340,350,360,370,380,390,400
310 D=B-C:GOTO 410
320 E=B-C:GOTO 410
330 F=B-C:GOTO 410
340 G=B-C:GOTO 410
350 H=B-C:GOTO 410
360 I=B-C:GOTO 410
370 J=B-C:GOTO 410
380 K=B-C:GOTO 410
390 L=B-C:GOTO 410
400 M=B-C
410 PRINT"THE ANSWER WAS";B
420 PRINT"<cursor down> PRESS SPACE TO CONTINUE"
430 GETKEY A$
440 NEXT A
450 N=(D+E+F+G+H+I+J+K+L+M)/10
460 GRAPHIC 0
470 PRINT"<clr><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down> ON AVERAGE YOU WERE";N;"DEGREES OUT.
480 PRINT"<cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down> PRESS SPACE TO HAVE ANOTHER GO."
490 PRINT"<cursor down> PRESS E TO END."
500 GETKEY A$
510 IF A$=" " THEN GOTO 100
520 IF A$="E" THEN GRAPHIC CLR:SCNCLR:END"
530 GOTO 500
� 1,1 � 0,16 ! � 4,16 J( �"� ANGLES PROGRAM" k2 �" ��������������" �< �" THE OBJECT OF THIS GAME IS TO GUESS HOW MANY DEGREES ROUND"; �F �" THE CIRCLE THE LINE HAS ROTATED." P �" PRESS SPACE TO START." Z � A$:� A$��" " � � 90 -d � A�1 � 10 7n � 2,1 Ix � 1,160,80,70 ]� B��(�(1)�360)�1 t� � 1,160,80,70,,B,B �� � � 160,80 �� � A;"�) "; �� �"HOW MANY DEGREES";C �� � C��B � � 300 �� � A � 200,210,220,230,240,250,260,270,280,290 � D�C�B:� 410 � E�C�B:� 410 $� F�C�B:� 410 4� G�C�B:� 410 D� H�C�B:� 410 T� I�C�B:� 410 dJ�C�B:� 410 tK�C�B:� 410 �L�C�B:� 410 �"M�C�B:� 410 �,� A � 310,320,330,340,350,360,370,380,390,400 �6D�B�C:� 410 �@E�B�C:� 410 �JF�B�C:� 410 TG�B�C:� 410 ^H�B�C:� 410 &hI�B�C:� 410 6rJ�B�C:� 410 F|K�B�C:� 410 V�L�B�C:� 410 `�M�B�C x��"THE ANSWER WAS";B ���" PRESS SPACE TO CONTINUE" ���� A$ ��� A ��N�(D�E�F�G�H�I�J�K�L�M)�10 ��� 0 ��"� ON AVERAGE YOU WERE";N;"DEGREES OUT. ;��" PRESS SPACE TO HAVE ANOTHER GO." T��" PRESS E TO END." ^��� A$ s�� A$�" " � � 100 �� A$�"E" � � �:�:�" �� 500
KPJ@. 1,1@VPT@. 0,16@!P.@. 4,16@jP(@.".QQQQQQQ angles program"@KP2@." .............."@.P<@."QQQQ the object of this game is to guess how many degrees round";@.Pf@." the circle the line has rotated."@DQp@."QQQQ press space to start."@.Qz@. a$:. a$.." " . . 90@-QD@. a.1 . 10@7QN@. 2,1@iQX@. 1,160,80,70@]Q.@b..(.(1).360).1@TQ.@. 1,160,80,70,,b,b@.Q.@. . 160,80@.Q.@. a;".) ";@.Q.@."how many degrees";c@.Q.@. c..b . . 300@.Q.@. a . 200,210,220,230,240,250,260,270,280,290@DR.@d.c.b:. 410@TR.@e.c.b:. 410@$R.@f.c.b:. 410@4R.@g.c.b:. 410@dR.@h.c.b:. 410@tR.@i.c.b:. 410@DRDAj.c.b:. 410@TRNAk.c.b:. 410@.RXAl.c.b:. 410@.R"Am.c.b:. 410@.R,A. a . 310,320,330,340,350,360,370,380,390,400@.R6Ad.b.c:. 410@.R@Ae.b.c:. 410@.RjAf.b.c:. 410@FStAg.b.c:. 410@VS.Ah.b.c:. 410@&SHAi.b.c:. 410@6SRAj.b.c:. 410@fS.Ak.b.c:. 410@vS.Al.b.c:. 410@.S.Am.b.c@XS.A."the answer was";b@.S.A."Q press space to continue"@.S.A.. a$@.S.A. a@.S.An.(d.e.f.g.h.i.j.k.l.m).10@.S.A. 0@KT.A.".QQQQQQQQQQ on average you were";n;"degrees out.@;T.A."QQQQQQQ press space to have another go."@tT.A."Q press e to end."@.T.A.. a$@ST.A. a$." " . . 100@.THB. a$."e" . . .:.:."@.TRB. 500@@@
00000000 0b 10 0a 00 e7 20 31 2c 31 00 16 10 14 00 e7 20 |..... 1,1...... | 00000010 30 2c 31 36 00 21 10 1e 00 e7 20 34 2c 31 36 00 |0,16.!.... 4,16.| 00000020 4a 10 28 00 99 22 93 11 11 11 11 11 11 11 20 20 |J.(.."........ | 00000030 20 20 20 20 20 20 20 20 20 41 4e 47 4c 45 53 20 | ANGLES | 00000040 50 52 4f 47 52 41 4d 22 00 6b 10 32 00 99 22 20 |PROGRAM".k.2.." | 00000050 20 20 20 20 20 20 20 20 20 20 b8 b8 b8 b8 b8 b8 | ......| 00000060 b8 b8 b8 b8 b8 b8 b8 b8 22 00 b6 10 3c 00 99 22 |........"...<.."| 00000070 11 11 11 11 20 20 54 48 45 20 4f 42 4a 45 43 54 |.... THE OBJECT| 00000080 20 4f 46 20 54 48 49 53 20 47 41 4d 45 20 49 53 | OF THIS GAME IS| 00000090 20 54 4f 20 47 55 45 53 53 20 20 20 48 4f 57 20 | TO GUESS HOW | 000000a0 4d 41 4e 59 20 44 45 47 52 45 45 53 20 52 4f 55 |MANY DEGREES ROU| 000000b0 4e 44 22 3b 00 e1 10 46 00 99 22 20 54 48 45 20 |ND";...F.." THE | 000000c0 43 49 52 43 4c 45 20 54 48 45 20 20 20 4c 49 4e |CIRCLE THE LIN| 000000d0 45 20 48 41 53 20 52 4f 54 41 54 45 44 2e 22 00 |E HAS ROTATED.".| 000000e0 04 11 50 00 99 22 11 11 11 11 20 20 50 52 45 53 |..P..".... PRES| 000000f0 53 20 53 50 41 43 45 20 54 4f 20 53 54 41 52 54 |S SPACE TO START| 00000100 2e 22 00 1e 11 5a 00 a1 20 41 24 3a 8b 20 41 24 |."...Z.. A$:. A$| 00000110 b3 b1 22 20 22 20 a7 20 89 20 39 30 00 2d 11 64 |.." " . . 90.-.d| 00000120 00 81 20 41 b2 31 20 a4 20 31 30 00 37 11 6e 00 |.. A.1 . 10.7.n.| 00000130 de 20 32 2c 31 00 49 11 78 00 e2 20 31 2c 31 36 |. 2,1.I.x.. 1,16| 00000140 30 2c 38 30 2c 37 30 00 5d 11 82 00 42 b2 b5 28 |0,80,70.]...B..(| 00000150 bb 28 31 29 ac 33 36 30 29 aa 31 00 74 11 8c 00 |.(1).360).1.t...| 00000160 e2 20 31 2c 31 36 30 2c 38 30 2c 37 30 2c 2c 42 |. 1,160,80,70,,B| 00000170 2c 42 00 83 11 96 00 e5 20 a4 20 31 36 30 2c 38 |,B...... . 160,8| 00000180 30 00 95 11 a0 00 99 20 41 3b 22 9d 29 20 20 20 |0...... A;".) | 00000190 20 22 3b 00 af 11 aa 00 85 22 48 4f 57 20 4d 41 | ";......"HOW MA| 000001a0 4e 59 20 44 45 47 52 45 45 53 22 3b 43 00 c2 11 |NY DEGREES";C...| 000001b0 b4 00 8b 20 43 b3 b2 42 20 a7 20 89 20 33 30 30 |... C..B . . 300| 000001c0 00 f4 11 be 00 91 20 41 20 89 20 32 30 30 2c 32 |...... A . 200,2| 000001d0 31 30 2c 32 32 30 2c 32 33 30 2c 32 34 30 2c 32 |10,220,230,240,2| 000001e0 35 30 2c 32 36 30 2c 32 37 30 2c 32 38 30 2c 32 |50,260,270,280,2| 000001f0 39 30 00 04 12 c8 00 44 b2 43 ab 42 3a 89 20 34 |90.....D.C.B:. 4| 00000200 31 30 00 14 12 d2 00 45 b2 43 ab 42 3a 89 20 34 |10.....E.C.B:. 4| 00000210 31 30 00 24 12 dc 00 46 b2 43 ab 42 3a 89 20 34 |10.$...F.C.B:. 4| 00000220 31 30 00 34 12 e6 00 47 b2 43 ab 42 3a 89 20 34 |10.4...G.C.B:. 4| 00000230 31 30 00 44 12 f0 00 48 b2 43 ab 42 3a 89 20 34 |10.D...H.C.B:. 4| 00000240 31 30 00 54 12 fa 00 49 b2 43 ab 42 3a 89 20 34 |10.T...I.C.B:. 4| 00000250 31 30 00 64 12 04 01 4a b2 43 ab 42 3a 89 20 34 |10.d...J.C.B:. 4| 00000260 31 30 00 74 12 0e 01 4b b2 43 ab 42 3a 89 20 34 |10.t...K.C.B:. 4| 00000270 31 30 00 84 12 18 01 4c b2 43 ab 42 3a 89 20 34 |10.....L.C.B:. 4| 00000280 31 30 00 94 12 22 01 4d b2 43 ab 42 3a 89 20 34 |10...".M.C.B:. 4| 00000290 31 30 00 c6 12 2c 01 91 20 41 20 89 20 33 31 30 |10...,.. A . 310| 000002a0 2c 33 32 30 2c 33 33 30 2c 33 34 30 2c 33 35 30 |,320,330,340,350| 000002b0 2c 33 36 30 2c 33 37 30 2c 33 38 30 2c 33 39 30 |,360,370,380,390| 000002c0 2c 34 30 30 00 d6 12 36 01 44 b2 42 ab 43 3a 89 |,400...6.D.B.C:.| 000002d0 20 34 31 30 00 e6 12 40 01 45 b2 42 ab 43 3a 89 | 410...@.E.B.C:.| 000002e0 20 34 31 30 00 f6 12 4a 01 46 b2 42 ab 43 3a 89 | 410...J.F.B.C:.| 000002f0 20 34 31 30 00 06 13 54 01 47 b2 42 ab 43 3a 89 | 410...T.G.B.C:.| 00000300 20 34 31 30 00 16 13 5e 01 48 b2 42 ab 43 3a 89 | 410...^.H.B.C:.| 00000310 20 34 31 30 00 26 13 68 01 49 b2 42 ab 43 3a 89 | 410.&.h.I.B.C:.| 00000320 20 34 31 30 00 36 13 72 01 4a b2 42 ab 43 3a 89 | 410.6.r.J.B.C:.| 00000330 20 34 31 30 00 46 13 7c 01 4b b2 42 ab 43 3a 89 | 410.F.|.K.B.C:.| 00000340 20 34 31 30 00 56 13 86 01 4c b2 42 ab 43 3a 89 | 410.V...L.B.C:.| 00000350 20 34 31 30 00 60 13 90 01 4d b2 42 ab 43 00 78 | 410.`...M.B.C.x| 00000360 13 9a 01 99 22 54 48 45 20 41 4e 53 57 45 52 20 |...."THE ANSWER | 00000370 57 41 53 22 3b 42 00 99 13 a4 01 99 22 11 20 50 |WAS";B......". P| 00000380 52 45 53 53 20 53 50 41 43 45 20 54 4f 20 43 4f |RESS SPACE TO CO| 00000390 4e 54 49 4e 55 45 22 00 a3 13 ae 01 a1 f9 20 41 |NTINUE"....... A| 000003a0 24 00 ab 13 b8 01 82 20 41 00 ca 13 c2 01 4e b2 |$...... A.....N.| 000003b0 28 44 aa 45 aa 46 aa 47 aa 48 aa 49 aa 4a aa 4b |(D.E.F.G.H.I.J.K| 000003c0 aa 4c aa 4d 29 ad 31 30 00 d2 13 cc 01 de 20 30 |.L.M).10...... 0| 000003d0 00 0b 14 d6 01 99 22 93 11 11 11 11 11 11 11 11 |......".........| 000003e0 11 11 20 20 20 4f 4e 20 41 56 45 52 41 47 45 20 |.. ON AVERAGE | 000003f0 59 4f 55 20 57 45 52 45 22 3b 4e 3b 22 44 45 47 |YOU WERE";N;"DEG| 00000400 52 45 45 53 20 4f 55 54 2e 00 3b 14 e0 01 99 22 |REES OUT..;...."| 00000410 11 11 11 11 11 11 11 20 20 50 52 45 53 53 20 53 |....... PRESS S| 00000420 50 41 43 45 20 54 4f 20 48 41 56 45 20 41 4e 4f |PACE TO HAVE ANO| 00000430 54 48 45 52 20 47 4f 2e 22 00 54 14 ea 01 99 22 |THER GO.".T...."| 00000440 11 20 50 52 45 53 53 20 45 20 54 4f 20 45 4e 44 |. PRESS E TO END| 00000450 2e 22 00 5e 14 f4 01 a1 f9 20 41 24 00 73 14 fe |.".^..... A$.s..| 00000460 01 8b 20 41 24 b2 22 20 22 20 a7 20 89 20 31 30 |.. A$." " . . 10| 00000470 30 00 8b 14 08 02 8b 20 41 24 b2 22 45 22 20 a7 |0...... A$."E" .| 00000480 20 de 20 9c 3a e8 3a 80 22 00 95 14 12 02 89 20 | . .:.:."...... | 00000490 35 30 30 00 00 00 |500...| 00000496
.