Home » Archimedes archive » Acorn User » AU 1995-09.adf » !Regulars » Regulars/StarInfo/Thurlby/Russian
Regulars/StarInfo/Thurlby/Russian
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 » Archimedes archive » Acorn User » AU 1995-09.adf » !Regulars |
| Filename: | Regulars/StarInfo/Thurlby/Russian |
| Read OK: | ✔ |
| File size: | 0130 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10INPUT "Enter 1st number: "x 20INPUT "Enter 2nd number: "y 30PRINT 40ans = x * y 50 60total = 0 70REPEAT 80 IF (x MOD 2) = 1 total += y : z = total ELSE z = 0 90 PRINT x,y,z 100 x = x DIV 2 110 IF x > 0 y = y * 2 120UNTIL x = 0 130PRINT " "," ","----------" 140PRINT "Expected result",ans; 150IF total = ans PRINT " Correct" ELSE PRINT " Wrong!"
� "Enter 1st number: "x � "Enter 2nd number: "y � (ans = x * y 2 < total = 0 F� P1 � (x � 2) = 1 total += y : z = total � z = 0 Z � x,y,z d x = x � 2 n � x > 0 y = y * 2 x � x = 0 �� " "," ","----------" � � "Expected result",ans; �,� total = ans � " Correct" � � " Wrong!" �
00000000 0d 00 0a 1b e8 20 22 45 6e 74 65 72 20 31 73 74 |..... "Enter 1st| 00000010 20 6e 75 6d 62 65 72 3a 20 22 78 0d 00 14 1b e8 | number: "x.....| 00000020 20 22 45 6e 74 65 72 20 32 6e 64 20 6e 75 6d 62 | "Enter 2nd numb| 00000030 65 72 3a 20 22 79 0d 00 1e 05 f1 0d 00 28 0f 61 |er: "y.......(.a| 00000040 6e 73 20 3d 20 78 20 2a 20 79 0d 00 32 04 0d 00 |ns = x * y..2...| 00000050 3c 0d 74 6f 74 61 6c 20 3d 20 30 0d 00 46 05 f5 |<.total = 0..F..| 00000060 0d 00 50 31 20 e7 20 28 78 20 83 20 32 29 20 3d |..P1 . (x . 2) =| 00000070 20 31 20 74 6f 74 61 6c 20 2b 3d 20 79 20 3a 20 | 1 total += y : | 00000080 7a 20 3d 20 74 6f 74 61 6c 20 8b 20 7a 20 3d 20 |z = total . z = | 00000090 30 0d 00 5a 0c 20 f1 20 78 2c 79 2c 7a 0d 00 64 |0..Z. . x,y,z..d| 000000a0 0e 20 78 20 3d 20 78 20 81 20 32 0d 00 6e 16 20 |. x = x . 2..n. | 000000b0 e7 20 78 20 3e 20 30 20 79 20 3d 20 79 20 2a 20 |. x > 0 y = y * | 000000c0 32 0d 00 78 0b fd 20 78 20 3d 20 30 0d 00 82 1a |2..x.. x = 0....| 000000d0 f1 20 22 20 22 2c 22 20 22 2c 22 2d 2d 2d 2d 2d |. " "," ","-----| 000000e0 2d 2d 2d 2d 2d 22 0d 00 8c 1c f1 20 22 45 78 70 |-----"..... "Exp| 000000f0 65 63 74 65 64 20 72 65 73 75 6c 74 22 2c 61 6e |ected result",an| 00000100 73 3b 0d 00 96 2c e7 20 74 6f 74 61 6c 20 3d 20 |s;...,. total = | 00000110 61 6e 73 20 f1 20 22 20 43 6f 72 72 65 63 74 22 |ans . " Correct"| 00000120 20 8b 20 f1 20 22 20 57 72 6f 6e 67 21 22 0d ff | . . " Wrong!"..| 00000130
.