PERCENT
FILE INFORMATION
FILENAME(S): PERCENT
FILE TYPE(S): PRG
FILE SIZE: 5.7K
FIRST SEEN: 2025-12-02 02:06:47
APPEARS ON: 1 disk(s)
FILE HASH
c269e35ffdd27bfae05d21a2765e0955e579119c43481d814149e6cc9e5acc6c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| REKENEN LBO 01 | PERCENT | PRG | Shocktrooper | 22 | 10 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0F 08 64 00 97 35 39 34 36 38 2C 31 32 00 |....d..59468,12.|
00000010: 1C 08 6E 00 58 B2 BB 28 AB 54 49 29 00 36 08 78 |..n.X..(.TI).6.x|
00000020: 00 54 54 24 B2 22 27 50 45 52 43 45 4E 54 27 20 |.TT$."'PERCENT' |
00000030: 44 52 49 4C 4C 22 00 60 08 82 00 99 22 93 22 3B |DRILL".`....".";|
00000040: A3 31 AA B5 28 28 34 30 AB C3 28 54 54 24 29 29 |.1..((40..(TT$))|
00000050: AD 32 29 29 3B 22 12 22 3B 54 54 24 3B 22 92 22 |.2));".";TT$;"."|
00000060: 00 80 08 8C 00 99 22 11 22 3B A3 31 33 29 3B 22 |......".";.13);"|
00000070: 42 59 20 44 2E 20 53 2E 20 43 4F 4F 50 45 52 22 |BY D. S. COOPER"|
00000080: 00 A0 08 96 00 99 22 11 22 3B A3 31 33 29 3B 22 |......".";.13);"|
00000090: 53 43 48 52 45 49 42 45 52 2C 20 31 39 38 30 22 |SCHREIBER, 1980"|
000000A0: 00 C6 08 A0 00 99 22 11 11 11 11 11 49 46 20 59 |......".....IF Y|
000000B0: 4F 55 20 57 49 53 48 20 54 4F 20 47 49 56 45 20 |OU WISH TO GIVE |
000000C0: 55 50 20 4F 4E 22 00 E4 08 AA 00 99 22 41 20 50 |UP ON"......"A P|
000000D0: 41 52 54 49 43 55 4C 41 52 20 51 55 45 53 54 49 |ARTICULAR QUESTI|
000000E0: 4F 4E 2C 22 00 0E 09 B4 00 99 22 11 4A 55 53 54 |ON,"......".JUST|
000000F0: 20 54 59 50 45 20 27 55 4E 43 4C 45 27 20 41 53 | TYPE 'UNCLE' AS|
00000100: 20 59 4F 55 52 20 41 4E 53 57 45 52 2E 22 00 29 | YOUR ANSWER.".)|
00000110: 09 BE 00 99 22 13 11 11 11 11 11 11 11 11 11 11 |...."...........|
00000120: 11 11 11 11 11 11 11 11 22 00 32 09 C8 00 89 32 |........".2....2|
00000130: 35 30 00 56 09 D2 00 99 22 11 50 52 45 53 53 20 |50.V....".PRESS |
00000140: 12 52 45 54 55 52 4E 92 20 54 4F 20 43 4F 4E 54 |.RETURN. TO CONT|
00000150: 49 4E 55 45 2E 22 00 69 09 DC 00 A1 41 24 3A 8B |INUE.".i....A$:.|
00000160: 41 24 B2 22 22 A7 32 32 30 00 7C 09 E6 00 8B C6 |A$."".220.|.....|
00000170: 28 41 24 29 B3 B1 31 33 A7 32 32 30 00 91 09 F0 |(A$)..13.220....|
00000180: 00 99 22 11 12 53 54 41 4E 44 20 42 59 92 22 3A |.."..STAND BY.":|
00000190: 8E 00 9A 09 FA 00 8D 32 31 30 00 B7 09 04 01 8F |.......210......|
000001A0: 20 42 55 49 4C 44 20 4F 50 54 49 4F 4E 20 50 41 | BUILD OPTION PA|
000001B0: 47 45 20 48 45 52 45 00 CA 09 0E 01 99 22 93 4F |GE HERE......".O|
000001C0: 50 54 49 4F 4E 53 3A 11 11 22 00 EE 09 18 01 99 |PTIONS:.."......|
000001D0: 22 41 29 20 43 48 41 4E 47 45 20 50 45 52 43 45 |"A) CHANGE PERCE|
000001E0: 4E 54 20 54 4F 20 44 45 43 49 4D 41 4C 22 00 12 |NT TO DECIMAL"..|
000001F0: 0A 22 01 99 22 42 29 20 43 48 41 4E 47 45 20 44 |.".."B) CHANGE D|
00000200: 45 43 49 4D 41 4C 20 54 4F 20 50 45 52 43 45 4E |ECIMAL TO PERCEN|
00000210: 54 22 00 36 0A 2C 01 99 22 43 29 20 46 49 4E 44 |T".6.,.."C) FIND|
00000220: 20 57 48 4F 4C 45 20 25 20 4F 46 20 41 20 44 45 | WHOLE % OF A DE|
00000230: 43 49 4D 41 4C 22 00 5C 0A 36 01 99 22 44 29 20 |CIMAL".\.6.."D) |
00000240: 46 49 4E 44 20 44 45 43 49 4D 41 4C 20 25 20 4F |FIND DECIMAL % O|
00000250: 46 20 41 20 44 45 43 49 4D 41 4C 22 00 87 0A 40 |F A DECIMAL"...@|
00000260: 01 99 22 45 29 20 41 20 44 45 43 49 4D 41 4C 20 |.."E) A DECIMAL |
00000270: 49 53 20 57 48 41 54 20 25 20 4F 46 20 41 20 44 |IS WHAT % OF A D|
00000280: 45 43 49 4D 41 4C 22 00 90 0A 4A 01 99 22 11 22 |ECIMAL"...J.."."|
00000290: 00 AA 0A 54 01 8F 20 43 48 4F 4F 53 45 20 4F 50 |...T.. CHOOSE OP|
000002A0: 54 49 4F 4E 53 20 48 45 52 45 00 E5 0A 5E 01 99 |TIONS HERE...^..|
000002B0: 22 50 52 45 53 53 20 54 48 45 20 12 4C 45 54 54 |"PRESS THE .LETT|
000002C0: 45 52 92 20 4F 52 20 12 4C 45 54 54 45 52 53 92 |ER. OR .LETTERS.|
000002D0: 20 4F 46 22 3A 99 22 59 4F 55 52 20 43 48 4F 49 | OF":."YOUR CHOI|
000002E0: 43 45 3B 11 22 00 03 0B 68 01 99 22 54 48 45 4E |CE;."...h.."THEN|
000002F0: 20 50 52 45 53 53 20 12 52 45 54 55 52 4E 92 2E | PRESS .RETURN..|
00000300: 22 3A 99 00 0E 0B 72 01 43 48 24 B2 22 22 00 21 |":....r.CH$."".!|
00000310: 0B 7C 01 A1 43 24 3A 8B 43 24 B2 22 22 A7 33 38 |.|..C$:.C$."".38|
00000320: 30 00 33 0B 86 01 8B C6 28 43 24 29 B2 31 33 A7 |0.3.....(C$).13.|
00000330: 34 32 30 00 4E 0B 90 01 8B C6 28 43 24 29 B3 36 |420.N.....(C$).6|
00000340: 35 B0 C6 28 43 24 29 B1 36 39 A7 33 38 30 00 67 |5..(C$).69.380.g|
00000350: 0B 9A 01 99 43 24 3B 3A 43 48 24 B2 43 48 24 AA |....C$;:CH$.CH$.|
00000360: 43 24 3A 89 33 38 30 00 77 0B A4 01 8B 43 48 24 |C$:.380.w....CH$|
00000370: B2 22 22 A7 33 38 30 00 80 0B AE 01 99 22 93 22 |."".380......"."|
00000380: 00 B2 0B B8 01 99 22 11 48 4F 57 20 4D 41 4E 59 |......".HOW MANY|
00000390: 20 49 54 45 4D 53 20 44 4F 20 59 4F 55 20 57 41 | ITEMS DO YOU WA|
000003A0: 4E 54 20 49 4E 20 54 48 49 53 20 44 52 49 4C 4C |NT IN THIS DRILL|
000003B0: 22 3B 00 BA 0B C2 01 85 48 4D 00 CD 0B CC 01 8B |";......HM......|
000003C0: 48 4D B3 B1 B5 28 48 4D 29 A7 34 39 30 00 DB 0B |HM...(HM).490...|
000003D0: D6 01 8B 48 4D B3 31 A7 34 39 30 00 E4 0B E0 01 |...HM.1.490.....|
000003E0: 89 35 30 30 00 04 0C EA 01 99 22 11 12 49 4C 4C |.500......"..ILL|
000003F0: 45 47 41 4C 20 52 45 53 50 4F 4E 53 45 92 22 3A |EGAL RESPONSE.":|
00000400: 89 34 34 30 00 26 0C F4 01 4E 51 B2 31 3A 41 54 |.440.&...NQ.1:AT|
00000410: B2 30 3A 4E 57 B2 30 3A 4E 43 B2 30 3A 4E 46 B2 |.0:NW.0:NC.0:NF.|
00000420: 30 3A 4D 4B B2 30 00 39 0C FE 01 99 22 11 12 53 |0:MK.0.9...."..S|
00000430: 54 41 4E 44 20 42 59 92 22 00 59 0C 08 02 8F 20 |TAND BY.".Y.... |
00000440: 44 4F 20 41 20 47 4F 53 55 42 20 54 4F 20 53 45 |DO A GOSUB TO SE|
00000450: 54 20 55 50 20 54 45 53 54 00 63 0C 12 02 8D 31 |T UP TEST.c....1|
00000460: 30 39 30 00 6D 0C 1C 02 8D 31 36 39 30 00 77 0C |090.m....1690.w.|
00000470: 26 02 8D 31 37 36 30 00 81 0C 30 02 8D 31 38 30 |&..1760...0..180|
00000480: 30 00 99 0C 3A 02 91 43 44 89 35 38 30 2C 36 35 |0...:..CD.580,65|
00000490: 30 2C 37 35 30 2C 37 38 30 00 AB 0C 44 02 8B 4E |0,750,780...D..N|
000004A0: 57 B2 30 A7 4E 43 B2 4E 43 AA 31 00 BD 0C 4E 02 |W.0.NC.NC.1...N.|
000004B0: 8B 4E 57 B1 30 A7 4E 46 B2 4E 46 AA 31 00 D0 0C |.NW.0.NF.NF.1...|
000004C0: 58 02 8B 4E 57 B2 31 A7 4D 4B B2 4D 4B AA 2E 35 |X..NW.1.MK.MK..5|
000004D0: 00 E4 0C 62 02 8B 4E 57 B2 32 A7 4D 4B B2 4D 4B |...b..NW.2.MK.MK|
000004E0: AA 2E 32 35 00 F9 0C 6C 02 99 22 11 12 52 49 47 |..25...l.."..RIG|
000004F0: 48 54 92 22 3A 8D 32 31 30 00 15 0D 76 02 4E 51 |HT.":.210...v.NQ|
00000500: B2 4E 51 AA 31 3A 4E 57 B2 30 3A 8B 4E 51 B1 48 |.NQ.1:NW.0:.NQ.H|
00000510: 4D A7 37 39 30 00 1E 0D 80 02 89 35 33 30 00 38 |M.790......530.8|
00000520: 0D 8A 02 99 22 11 57 52 4F 4E 47 2E 20 20 22 3B |....".WRONG. ";|
00000530: 3A 4E 57 B2 4E 57 AA 31 00 46 0D 94 02 8B 4E 57 |:NW.NW.1.F....NW|
00000540: B3 33 A7 37 36 30 00 4C 0D 9E 02 99 00 6F 0D A8 |.3.760.L.....o..|
00000550: 02 99 22 11 54 48 45 20 43 4F 52 52 45 43 54 20 |..".THE CORRECT |
00000560: 41 4E 53 57 45 52 20 49 53 20 22 3B 52 41 24 00 |ANSWER IS ";RA$.|
00000570: A8 0D B2 02 99 22 11 44 4F 20 59 4F 55 20 57 41 |.....".DO YOU WA|
00000580: 4E 54 20 54 4F 20 53 45 45 20 48 4F 57 20 54 48 |NT TO SEE HOW TH|
00000590: 49 53 20 49 53 20 44 4F 4E 45 3F 22 3A 99 22 28 |IS IS DONE?":."(|
000005A0: 59 20 4F 52 20 4E 29 22 00 BB 0D BC 02 A1 47 24 |Y OR N)"......G$|
000005B0: 3A 8B 47 24 B2 22 22 A7 37 30 30 00 CB 0D C6 02 |:.G$."".700.....|
000005C0: 8B 47 24 B2 22 4E 22 A7 37 34 30 00 DC 0D D0 02 |.G$."N".740.....|
000005D0: 8B 47 24 B3 B1 22 59 22 A7 37 30 30 00 E6 0D DA |.G$.."Y".700....|
000005E0: 02 8D 31 39 35 30 00 F4 0D E4 02 8D 32 31 30 3A |..1950......210:|
000005F0: 89 36 33 30 00 13 0E EE 02 99 22 11 43 4C 4F 53 |.630......".CLOS|
00000600: 45 21 20 20 22 3B 3A 4E 57 B2 4E 57 AA 31 3A 89 |E! ";:NW.NW.1:.|
00000610: 36 36 30 00 25 0E F8 02 99 22 54 52 59 20 41 47 |660.%...."TRY AG|
00000620: 41 49 4E 2E 22 00 4B 0E 02 03 8D 31 30 35 30 3A |AIN.".K....1050:|
00000630: 4D 54 B2 54 49 3A 8D 32 31 30 3A 41 54 B2 41 54 |MT.TI:.210:AT.AT|
00000640: AA 54 49 AB 4D 54 3A 89 35 34 30 00 59 0E 0C 03 |.TI.MT:.540.Y...|
00000650: 4E 57 B2 33 3A 89 36 37 30 00 81 0E 16 03 99 22 |NW.3:.670......"|
00000660: 93 22 3B A3 B5 28 28 34 30 AB C3 28 54 54 24 29 |.";..((40..(TT$)|
00000670: 29 AD 32 29 29 3B 22 12 22 3B 54 54 24 3B 22 92 |).2));".";TT$;".|
00000680: 22 00 96 0E 20 03 8F 20 4F 50 54 49 4F 4E 20 4D |"... .. OPTION M|
00000690: 45 53 53 41 47 45 00 B6 0E 2A 03 53 43 B2 B5 28 |ESSAGE...*.SC..(|
000006A0: 28 4E 43 AC 31 30 30 AD 48 4D AA 2E 30 35 29 AC |(NC.100.HM..05).|
000006B0: 31 30 29 AD 31 30 00 DB 0E 34 03 4D 4B B2 B5 28 |10).10...4.MK..(|
000006C0: 28 28 4E 43 AA 4D 4B 29 AC 31 30 30 AD 48 4D AA |((NC.MK).100.HM.|
000006D0: 2E 30 35 29 AC 31 30 29 AD 31 30 00 15 0F 3E 03 |.05).10).10...>.|
000006E0: 4D 4E B2 B5 28 41 54 AD 33 36 30 30 29 3A 53 4E |MN..(AT.3600):SN|
000006F0: B2 28 41 54 AB 33 36 30 30 AC 4D 4E 29 AD 36 30 |.(AT.3600.MN).60|
00000700: 3A 53 44 B2 B5 28 28 53 4E AA 2E 30 35 29 AC 31 |:SD..((SN..05).1|
00000710: 30 29 AD 31 30 00 55 0F 48 03 54 32 B2 B5 28 28 |0).10.U.H.T2..((|
00000720: 28 41 54 AD 36 30 29 AD 48 4D AA 2E 30 35 29 AC |(AT.60).HM..05).|
00000730: 31 30 29 AD 31 30 3A 54 33 B2 B5 28 28 4E 43 AD |10).10:T3..((NC.|
00000740: 28 41 54 AD 33 36 30 30 29 AA 2E 30 35 29 AC 31 |(AT.3600)..05).1|
00000750: 30 29 AD 31 30 00 7C 0F 52 03 99 22 11 54 48 49 |0).10.|.R..".THI|
00000760: 53 20 44 52 49 4C 4C 20 48 41 44 22 3B 48 4D 3B |S DRILL HAD";HM;|
00000770: 22 51 55 45 53 54 49 4F 4E 53 2C 22 00 9D 0F 5C |"QUESTIONS,"...\|
00000780: 03 99 22 59 4F 55 20 43 4F 52 52 45 43 54 4C 59 |.."YOU CORRECTLY|
00000790: 20 41 4E 53 57 45 52 45 44 22 3B 4E 43 00 C4 0F | ANSWERED";NC...|
000007A0: 66 03 99 22 59 4F 55 52 20 53 43 4F 52 45 20 49 |f.."YOUR SCORE I|
000007B0: 53 20 12 22 3B CA 28 C4 28 53 43 29 2C 32 29 3B |S .";.(.(SC),2);|
000007C0: 22 92 25 22 00 D2 0F 70 03 8B 4E 46 B2 30 A7 39 |".%"...p..NF.0.9|
000007D0: 31 30 00 F8 0F 7A 03 99 22 1D 1D 28 41 4C 53 4F |10...z.."..(ALSO|
000007E0: 2C 20 59 4F 55 20 52 45 43 4F 56 45 52 45 44 20 |, YOU RECOVERED |
000007F0: 46 52 4F 4D 22 3B 4E 46 00 26 10 84 03 99 22 1D |FROM";NF.&....".|
00000800: 1D 1D 41 4E 20 41 44 4A 55 53 54 45 44 20 53 43 |..AN ADJUSTED SC|
00000810: 4F 52 45 20 57 4F 55 4C 44 20 42 45 22 3B 4D 4B |ORE WOULD BE";MK|
00000820: 3B 22 9D 25 29 22 00 43 10 8E 03 99 22 54 4F 54 |;".%)".C...."TOT|
00000830: 41 4C 20 54 49 4D 45 20 54 41 4B 45 4E 20 57 41 |AL TIME TAKEN WA|
00000840: 53 22 3B 00 51 10 98 03 8B 4D 4E B2 30 A7 39 34 |S";.Q....MN.0.94|
00000850: 30 00 6B 10 A2 03 99 4D 4E 3B 22 4D 49 4E 55 54 |0.k....MN;"MINUT|
00000860: 45 53 2C 22 3A 99 A3 32 30 29 3B 00 7E 10 AC 03 |ES,":..20);.~...|
00000870: 99 53 44 3B 22 53 45 43 4F 4E 44 53 2E 22 00 A7 |.SD;"SECONDS."..|
00000880: 10 B6 03 99 22 54 48 41 54 27 53 22 3B 54 32 3B |...."THAT'S";T2;|
00000890: 22 53 45 43 4F 4E 44 53 20 50 45 52 20 51 55 45 |"SECONDS PER QUE|
000008A0: 53 54 49 4F 4E 2E 22 00 D7 10 C0 03 99 22 59 4F |STION."......"YO|
000008B0: 55 20 44 49 44 22 3B 54 33 3B 22 43 4F 52 52 45 |U DID";T3;"CORRE|
000008C0: 43 54 20 41 4E 53 57 45 52 53 20 50 45 52 20 4D |CT ANSWERS PER M|
000008D0: 49 4E 55 54 45 2E 22 00 E7 10 CA 03 8D 32 32 37 |INUTE."......227|
000008E0: 30 3A 8D 32 33 36 30 00 2D 11 D4 03 99 22 44 4F |0:.2360.-...."DO|
000008F0: 20 59 4F 55 20 57 41 4E 54 20 54 48 45 20 53 41 | YOU WANT THE SA|
00000900: 4D 45 20 4F 50 54 49 4F 4E 28 53 29 20 28 59 20 |ME OPTION(S) (Y |
00000910: 4F 52 20 4E 29 3F 22 3A 8F 20 3F 26 38 31 30 2D |OR N)?":. ?&810-|
00000920: 38 34 30 3F 26 47 4F 54 4F 31 31 30 3F 00 40 11 |840?&GOTO110?.@.|
00000930: DE 03 A1 41 24 3A 8B 41 24 B2 22 22 A7 39 39 30 |...A$:.A$."".990|
00000940: 00 50 11 E8 03 8B 41 24 B2 22 4E 22 A7 32 35 30 |.P....A$."N".250|
00000950: 00 66 11 F2 03 8B 41 24 B2 22 59 22 A7 99 22 93 |.f....A$."Y"..".|
00000960: 22 3A 89 34 34 30 00 6F 11 FC 03 89 39 39 30 00 |":.440.o....990.|
00000970: A3 11 06 04 97 33 33 37 34 37 2C 33 3A 97 33 33 |.....33747,3:.33|
00000980: 37 34 38 2C 31 32 3A 97 33 33 37 34 39 2C 31 35 |748,12:.33749,15|
00000990: 3A 97 33 33 37 35 30 2C 33 3A 97 33 33 37 35 31 |:.33750,3:.33751|
000009A0: 2C 31 31 00 BC 11 10 04 97 33 33 37 35 33 2C 39 |,11......33753,9|
000009B0: 3A 97 33 33 37 35 34 2C 31 39 3A 8E 00 F1 11 1A |:.33754,19:.....|
000009C0: 04 97 33 33 37 35 36 2C 31 38 3A 97 33 33 37 35 |..33756,18:.3375|
000009D0: 37 2C 32 31 3A 97 33 33 37 35 38 2C 31 34 3A 97 |7,21:.33758,14:.|
000009E0: 33 33 37 35 39 2C 31 34 3A 97 33 33 37 36 30 2C |33759,14:.33760,|
000009F0: 39 00 14 12 24 04 97 33 33 37 36 31 2C 31 34 3A |9...$..33761,14:|
00000A00: 97 33 33 37 36 32 2C 37 3A 8E 3A 8F 20 52 55 4E |.33762,7:.:. RUN|
00000A10: 4E 49 4E 47 00 33 12 2E 04 81 49 39 B2 33 33 37 |NING.3....I9.337|
00000A20: 35 36 A4 33 33 37 36 32 3A 97 49 39 2C 33 32 3A |56.33762:.I9,32:|
00000A30: 82 49 39 00 5B 12 38 04 97 33 33 37 35 36 2C 31 |.I9.[.8..33756,1|
00000A40: 35 3A 97 33 33 37 35 37 2C 36 3A 97 33 33 37 35 |5:.33757,6:.3375|
00000A50: 38 2C 36 3A 8E 3A 8F 20 4F 46 46 00 7B 12 42 04 |8,6:.:. OFF.{.B.|
00000A60: 8F 20 4D 41 4B 45 20 55 50 20 4E 45 57 20 51 55 |. MAKE UP NEW QU|
00000A70: 45 53 54 49 4F 4E 20 48 45 52 45 00 92 12 4C 04 |ESTION HERE...L.|
00000A80: 43 B2 31 AA B5 28 C3 28 43 48 24 29 AC BB 28 31 |C.1..(.(CH$)..(1|
00000A90: 29 29 00 AF 12 56 04 43 24 B2 CA 28 43 48 24 2C |))...V.C$..(CH$,|
00000AA0: 43 2C 31 29 3A 43 B2 C6 28 43 24 29 AB 36 34 00 |C,1):C..(C$).64.|
00000AB0: CF 12 60 04 91 43 8D 31 31 34 30 2C 31 32 33 30 |..`..C.1140,1230|
00000AC0: 2C 31 33 32 30 2C 31 34 33 30 2C 31 35 37 30 00 |,1320,1430,1570.|
00000AD0: D5 12 6A 04 8E 00 EE 12 74 04 8F 20 50 45 52 43 |..j.....t.. PERC|
00000AE0: 45 4E 54 20 54 4F 20 44 45 43 49 4D 41 4C 00 F7 |ENT TO DECIMAL..|
00000AF0: 12 7E 04 4B 4C B2 31 00 0D 13 88 04 41 B2 B5 28 |.~.KL.1.....A..(|
00000B00: 31 30 30 30 AC BB 28 34 29 29 AC 31 30 00 23 13 |1000..(4)).10.#.|
00000B10: 92 04 58 B2 31 AA B5 28 35 AC BB 28 37 29 29 3A |..X.1..(5..(7)):|
00000B20: 42 B2 31 00 47 13 9C 04 81 49 B2 31 A4 58 3A 42 |B.1.G....I.1.X:B|
00000B30: B2 42 AC 31 30 3A 82 3A 41 B2 41 AD 42 3A 8B 41 |.B.10:.:A.A.B:.A|
00000B40: B3 31 A7 31 31 36 30 00 63 13 A6 04 52 41 B2 41 |.1.1160.c...RA.A|
00000B50: AD 31 30 30 3A 52 41 24 B2 CA 28 C4 28 52 41 29 |.100:RA$..(.(RA)|
00000B60: 2C 32 29 00 85 13 B0 04 51 55 24 B2 22 43 48 41 |,2).....QU$."CHA|
00000B70: 4E 47 45 20 49 4E 54 4F 20 41 20 44 45 43 49 4D |NGE INTO A DECIM|
00000B80: 41 4C 3A 11 22 00 97 13 BA 04 51 51 24 B2 C4 28 |AL:.".....QQ$..(|
00000B90: 41 29 AA 22 25 3D 22 00 9D 13 C4 04 8E 00 B6 13 |A)."%=".........|
00000BA0: CE 04 8F 20 44 45 43 49 4D 41 4C 20 54 4F 20 50 |... DECIMAL TO P|
00000BB0: 45 52 43 45 4E 54 00 BF 13 D8 04 4B 4C B2 32 00 |ERCENT.....KL.2.|
00000BC0: D5 13 E2 04 41 B2 B5 28 31 30 30 30 AC BB 28 34 |....A..(1000..(4|
00000BD0: 29 29 AC 31 30 00 EB 13 EC 04 58 B2 31 AA B5 28 |)).10.....X.1..(|
00000BE0: 35 AC BB 28 37 29 29 3A 42 B2 31 00 11 14 F6 04 |5..(7)):B.1.....|
00000BF0: 81 49 B2 31 A4 58 3A 42 B2 42 AC 31 30 3A 82 3A |.I.1.X:B.B.10:.:|
00000C00: 41 B2 41 AD 42 3A 8B 41 B3 2E 30 31 A7 31 31 36 |A.A.B:.A..01.116|
00000C10: 30 00 31 14 00 05 52 41 B2 41 AC 31 30 30 3A 52 |0.1...RA.A.100:R|
00000C20: 41 24 B2 CA 28 C4 28 52 41 29 2C 32 29 AA 22 25 |A$..(.(RA),2)."%|
00000C30: 22 00 53 14 0A 05 51 55 24 B2 22 43 48 41 4E 47 |".S...QU$."CHANG|
00000C40: 45 20 49 4E 54 4F 20 41 20 50 45 52 43 45 4E 54 |E INTO A PERCENT|
00000C50: 3A 11 22 00 64 14 14 05 51 51 24 B2 C4 28 41 29 |:.".d...QQ$..(A)|
00000C60: AA 22 3D 22 00 6A 14 1E 05 8E 00 90 14 28 05 8F |."=".j.......(..|
00000C70: 20 54 41 4B 45 20 57 48 4F 4C 45 20 50 45 52 43 | TAKE WHOLE PERC|
00000C80: 45 4E 54 20 4F 46 20 41 20 44 45 43 49 4D 41 4C |ENT OF A DECIMAL|
00000C90: 00 99 14 32 05 4B 4C B2 31 00 AB 14 3C 05 41 B2 |...2.KL.1...<.A.|
00000CA0: B5 28 31 30 31 AC BB 28 32 29 29 00 D8 14 46 05 |.(101..(2))...F.|
00000CB0: 42 B2 B5 28 31 30 30 30 AC BB 28 32 29 29 3A 58 |B..(1000..(2)):X|
00000CC0: B2 B5 28 35 AC BB 28 33 29 29 3A 48 B2 31 3A 8B |..(5..(3)):H.1:.|
00000CD0: 58 B2 30 A7 31 33 37 30 00 EC 14 50 05 81 49 B2 |X.0.1370...P..I.|
00000CE0: 31 A4 58 3A 48 B2 48 AC 31 30 3A 82 00 02 15 5A |1.X:H.H.10:....Z|
00000CF0: 05 42 B2 42 AD 48 3A 8B 42 B3 2E 30 31 A7 31 33 |.B.B.H:.B..01.13|
00000D00: 35 30 00 1E 15 64 05 52 41 B2 41 AC 42 AD 31 30 |50...d.RA.A.B.10|
00000D10: 30 3A 8B 52 41 B3 2E 30 31 A7 31 33 34 30 00 31 |0:.RA..01.1340.1|
00000D20: 15 6E 05 52 41 24 B2 CA 28 C4 28 52 41 29 2C 32 |.n.RA$..(.(RA),2|
00000D30: 29 00 42 15 78 05 51 55 24 B2 22 46 49 4E 44 3A |).B.x.QU$."FIND:|
00000D40: 11 22 00 60 15 82 05 51 51 24 B2 C4 28 41 29 AA |.".`...QQ$..(A).|
00000D50: 22 25 20 4F 46 22 AA C4 28 42 29 AA 22 20 3D 22 |"% OF"..(B)." ="|
00000D60: 00 66 15 8C 05 8E 00 8E 15 96 05 8F 20 54 41 4B |.f.......... TAK|
00000D70: 45 20 44 45 43 49 4D 41 4C 20 50 45 52 43 45 4E |E DECIMAL PERCEN|
00000D80: 54 20 4F 46 20 41 20 44 45 43 49 4D 41 4C 00 97 |T OF A DECIMAL..|
00000D90: 15 A0 05 4B 4C B2 31 00 C3 15 AA 05 41 B2 B5 28 |...KL.1.....A..(|
00000DA0: 31 30 31 AC BB 28 32 29 29 3A 58 B2 B5 28 35 AC |101..(2)):X..(5.|
00000DB0: BB 28 34 29 29 3A 48 B2 31 3A 8B 58 B2 30 A7 31 |.(4)):H.1:.X.0.1|
00000DC0: 34 38 30 00 DA 15 B4 05 8B 58 B1 B2 34 A7 41 B2 |480......X..4.A.|
00000DD0: 41 AC 31 30 3A 89 31 34 39 30 00 EE 15 BE 05 81 |A.10:.1490......|
00000DE0: 49 B2 31 A4 58 3A 48 B2 48 AC 31 30 3A 82 00 04 |I.1.X:H.H.10:...|
00000DF0: 16 C8 05 41 B2 41 AD 48 3A 8B 41 B3 2E 30 31 A7 |...A.A.H:.A..01.|
00000E00: 31 34 35 30 00 31 16 D2 05 42 B2 B5 28 31 30 30 |1450.1...B..(100|
00000E10: 30 AC BB 28 32 29 29 3A 58 B2 B5 28 35 AC BB 28 |0..(2)):X..(5..(|
00000E20: 33 29 29 3A 48 B2 31 3A 8B 58 B2 30 A7 31 35 31 |3)):H.1:.X.0.151|
00000E30: 30 00 45 16 DC 05 81 49 B2 31 A4 58 3A 48 B2 48 |0.E....I.1.X:H.H|
00000E40: AC 31 30 3A 82 00 5B 16 E6 05 42 B2 42 AD 48 3A |.10:..[...B.B.H:|
00000E50: 8B 42 B3 2E 30 31 A7 31 34 39 30 00 77 16 F0 05 |.B..01.1490.w...|
00000E60: 52 41 B2 41 AC 42 AD 31 30 30 3A 8B 52 41 B3 2E |RA.A.B.100:.RA..|
00000E70: 30 31 A7 31 34 35 30 00 8A 16 FA 05 52 41 24 B2 |01.1450.....RA$.|
00000E80: CA 28 C4 28 52 41 29 2C 32 29 00 9B 16 04 06 51 |.(.(RA),2).....Q|
00000E90: 55 24 B2 22 46 49 4E 44 3A 11 22 00 B9 16 0E 06 |U$."FIND:.".....|
00000EA0: 51 51 24 B2 C4 28 41 29 AA 22 25 20 4F 46 22 AA |QQ$..(A)."% OF".|
00000EB0: C4 28 42 29 AA 22 20 3D 22 00 BF 16 18 06 8E 00 |.(B)." =".......|
00000EC0: E3 16 22 06 8F 20 44 45 43 49 4D 41 4C 3D 3F 20 |..".. DECIMAL=? |
00000ED0: 57 48 41 54 20 25 20 4F 46 20 41 20 44 45 43 49 |WHAT % OF A DECI|
00000EE0: 4D 41 4C 00 EC 16 2C 06 4B 4C B2 32 00 FE 16 36 |MAL...,.KL.2...6|
00000EF0: 06 41 B2 B5 28 31 30 31 AC BB 28 32 29 29 00 2B |.A..(101..(2)).+|
00000F00: 17 40 06 42 B2 B5 28 31 30 30 30 AC BB 28 32 29 |.@.B..(1000..(2)|
00000F10: 29 3A 58 B2 B5 28 35 AC BB 28 33 29 29 3A 48 B2 |):X..(5..(3)):H.|
00000F20: 31 3A 8B 58 B2 30 A7 31 36 32 30 00 3F 17 4A 06 |1:.X.0.1620.?.J.|
00000F30: 81 49 B2 31 A4 58 3A 48 B2 48 AC 31 30 3A 82 00 |.I.1.X:H.H.10:..|
00000F40: 55 17 54 06 42 B2 42 AD 48 3A 8B 42 B3 2E 30 31 |U.T.B.B.H:.B..01|
00000F50: A7 31 36 30 30 00 71 17 5E 06 52 41 B2 41 AC 42 |.1600.q.^.RA.A.B|
00000F60: AD 31 30 30 3A 8B 52 41 B3 2E 30 31 A7 31 35 39 |.100:.RA..01.159|
00000F70: 30 00 87 17 68 06 52 41 24 B2 CA 28 C4 28 41 29 |0...h.RA$..(.(A)|
00000F80: 2C 32 29 AA 22 25 22 00 99 17 72 06 8B BB 28 38 |,2)."%"...r...(8|
00000F90: 29 B3 2E 35 A7 31 36 38 30 00 C6 17 7C 06 51 55 |)..5.1680...|.QU|
00000FA0: 24 B2 C4 28 52 41 29 AA 22 20 49 53 20 57 48 41 |$..(RA)." IS WHA|
00000FB0: 54 20 50 45 52 43 45 4E 54 20 4F 46 22 AA C4 28 |T PERCENT OF"..(|
00000FC0: 42 29 AA 22 3F 22 00 DD 17 86 06 51 51 24 B2 22 |B)."?".....QQ$."|
00000FD0: 11 41 4E 53 57 45 52 3A 20 20 22 3A 8E 00 12 18 |.ANSWER: ":....|
00000FE0: 90 06 51 55 24 B2 22 57 48 41 54 20 50 45 52 43 |..QU$."WHAT PERC|
00000FF0: 45 4E 54 20 4F 46 22 AA C4 28 42 29 AA 22 20 49 |ENT OF"..(B)." I|
00001000: 53 22 AA C4 28 52 41 29 AA 22 3F 22 3A 89 31 36 |S"..(RA)."?":.16|
00001010: 37 30 00 3A 18 9A 06 99 22 93 22 3B A3 B5 28 28 |70.:....".";..((|
00001020: 34 30 AB C3 28 54 54 24 29 29 AD 32 29 29 3B 22 |40..(TT$)).2));"|
00001030: 12 22 3B 54 54 24 3B 22 92 22 00 5D 18 A4 06 99 |.";TT$;".".]....|
00001040: 22 11 23 22 3B 4E 51 3B A3 31 39 29 3B 48 4D 3B |".#";NQ;.19);HM;|
00001050: 22 49 54 45 4D 20 44 52 49 4C 4C 11 22 00 72 18 |"ITEM DRILL.".r.|
00001060: AE 06 8F 20 4F 50 54 49 4F 4E 20 4D 45 53 53 41 |... OPTION MESSA|
00001070: 47 45 00 8E 18 B8 06 99 22 4F 50 54 49 4F 4E 28 |GE......"OPTION(|
00001080: 53 29 3A 20 20 22 3B 43 48 24 3B 22 11 22 00 A8 |S): ";CH$;"."..|
00001090: 18 C2 06 8F 20 50 52 49 4E 54 20 51 55 45 53 54 |.... PRINT QUEST|
000010A0: 49 4F 4E 20 48 45 52 45 00 B7 18 CC 06 99 51 55 |ION HERE......QU|
000010B0: 24 3A 99 51 51 24 3B 00 BD 18 D6 06 8E 00 D3 18 |$:.QQ$;.........|
000010C0: E0 06 8D 31 30 33 30 3A 8D 31 30 35 30 3A 4D 54 |...1030:.1050:MT|
000010D0: B2 54 49 00 EE 18 EA 06 8F 20 50 55 54 20 49 4E |.TI...... PUT IN|
000010E0: 50 55 54 53 2F 47 45 54 53 20 48 45 52 45 00 F7 |PUTS/GETS HERE..|
000010F0: 18 F4 06 85 41 4E 24 00 0F 19 FE 06 41 54 B2 41 |....AN$.....AT.A|
00001100: 54 AA 54 49 AB 4D 54 3A 8D 31 30 37 30 3A 8E 00 |T.TI.MT:.1070:..|
00001110: 2A 19 08 07 8F 20 44 45 43 49 44 45 20 41 4E 53 |*.... DECIDE ANS|
00001120: 57 45 52 20 53 54 41 54 55 53 00 3C 19 12 07 8F |WER STATUS.<....|
00001130: 20 52 49 47 48 54 2D 2D 43 44 3D 31 00 4E 19 1C | RIGHT--CD=1.N..|
00001140: 07 8F 20 57 52 4F 4E 47 2D 2D 43 44 3D 32 00 60 |.. WRONG--CD=2.`|
00001150: 19 26 07 8F 20 43 4C 4F 53 45 2D 2D 43 44 3D 33 |.&.. CLOSE--CD=3|
00001160: 00 72 19 30 07 8F 20 55 4E 43 4C 45 2D 2D 43 44 |.r.0.. UNCLE--CD|
00001170: 3D 34 00 84 19 3A 07 91 4B 4C 89 31 38 36 30 2C |=4...:..KL.1860,|
00001180: 31 38 38 30 00 AC 19 44 07 8B C5 28 41 4E 24 29 |1880...D...(AN$)|
00001190: B2 C5 28 52 41 24 29 AF C9 28 41 4E 24 2C 31 29 |..(RA$)..(AN$,1)|
000011A0: B3 B1 22 25 22 A7 43 44 B2 31 3A 8E 00 B6 19 4E |.."%".CD.1:....N|
000011B0: 07 89 31 39 30 30 00 DD 19 58 07 8B C5 28 41 4E |..1900...X...(AN|
000011C0: 24 29 B2 C5 28 52 41 24 29 AF C9 28 41 4E 24 2C |$)..(RA$)..(AN$,|
000011D0: 31 29 B2 22 25 22 A7 43 44 B2 31 3A 8E 00 E7 19 |1)."%".CD.1:....|
000011E0: 62 07 89 31 39 30 30 00 FF 19 6C 07 8B 41 4E 24 |b..1900...l..AN$|
000011F0: B2 22 55 4E 43 4C 45 22 A7 43 44 B2 34 3A 8E 00 |."UNCLE".CD.4:..|
00001200: 1D 1A 76 07 8B C8 28 41 4E 24 2C 34 29 B2 C8 28 |..v...(AN$,4)..(|
00001210: 52 41 24 2C 34 29 A7 43 44 B2 33 3A 8E 00 3B 1A |RA$,4).CD.3:..;.|
00001220: 80 07 8B C9 28 41 4E 24 2C 34 29 B2 C9 28 52 41 |....(AN$,4)..(RA|
00001230: 24 2C 34 29 A7 43 44 B2 33 3A 8E 00 44 1A 8A 07 |$,4).CD.3:..D...|
00001240: 43 44 B2 32 00 4A 1A 94 07 8E 00 6A 1A 9E 07 91 |CD.2.J.....j....|
00001250: 43 89 31 39 36 30 2C 32 30 31 30 2C 32 30 36 30 |C.1960,2010,2060|
00001260: 2C 32 31 33 30 2C 32 32 30 30 00 76 1A A8 07 8D |,2130,2200.v....|
00001270: 31 36 39 30 3A 99 00 98 1A B2 07 99 22 11 11 54 |1690:......."..T|
00001280: 4F 20 41 4E 53 57 45 52 20 54 48 49 53 20 51 55 |O ANSWER THIS QU|
00001290: 45 53 54 49 4F 4E 2C 22 00 B2 1A BC 07 99 22 44 |ESTION,"......"D|
000012A0: 49 56 49 44 45 22 3B 41 3B 22 42 59 20 31 30 30 |IVIDE";A;"BY 100|
000012B0: 2E 22 00 D4 1A C6 07 99 22 11 54 48 55 53 2C 20 |."......".THUS, |
000012C0: 22 3B 51 51 24 3B 41 3B 22 9D 2F 31 30 30 3D 22 |";QQ$;A;"./100="|
000012D0: 3B 52 41 24 00 DA 1A D0 07 8E 00 E6 1A DA 07 8D |;RA$............|
000012E0: 31 36 39 30 3A 99 00 08 1B E4 07 99 22 11 11 54 |1690:......."..T|
000012F0: 4F 20 41 4E 53 57 45 52 20 54 48 49 53 20 51 55 |O ANSWER THIS QU|
00001300: 45 53 54 49 4F 4E 2C 22 00 25 1B EE 07 99 22 4D |ESTION,".%...."M|
00001310: 55 4C 54 49 50 4C 59 22 3B 41 3B 22 42 59 20 31 |ULTIPLY";A;"BY 1|
00001320: 30 30 25 2E 22 00 47 1B F8 07 99 22 11 54 48 55 |00%.".G....".THU|
00001330: 53 2C 20 22 3B 51 51 24 3B 41 3B 22 D6 31 30 30 |S, ";QQ$;A;".100|
00001340: 25 3D 22 3B 52 41 24 00 4D 1B 02 08 8E 00 59 1B |%=";RA$.M.....Y.|
00001350: 0C 08 8D 31 36 39 30 3A 99 00 7B 1B 16 08 99 22 |...1690:..{...."|
00001360: 11 11 54 4F 20 41 4E 53 57 45 52 20 54 48 49 53 |..TO ANSWER THIS|
00001370: 20 51 55 45 53 54 49 4F 4E 2C 22 00 96 1B 20 08 | QUESTION,"... .|
00001380: 99 22 43 48 41 4E 47 45 20 27 4F 46 27 20 54 4F |."CHANGE 'OF' TO|
00001390: 20 27 D6 27 20 22 00 B3 1B 2A 08 99 22 41 4E 44 | '.' "...*.."AND|
000013A0: 22 3B 41 3B 22 25 22 3B 22 20 54 4F 22 3B 41 AD |";A;"%";" TO";A.|
000013B0: 31 30 30 00 CB 1B 34 08 99 22 11 54 48 55 53 2C |100...4..".THUS,|
000013C0: 20 22 3B 51 51 24 3B 22 9D 20 22 00 EE 1B 3E 08 | ";QQ$;". "...>.|
000013D0: 99 22 20 20 20 20 20 3D 22 3B 41 AD 31 30 30 3B |." =";A.100;|
000013E0: 22 9D D6 22 3B 42 3B 22 3D 22 3B 52 41 24 00 F4 |"..";B;"=";RA$..|
000013F0: 1B 48 08 8E 00 00 1C 52 08 8D 31 36 39 30 3A 99 |.H.....R..1690:.|
00001400: 00 22 1C 5C 08 99 22 11 11 54 4F 20 41 4E 53 57 |.".\.."..TO ANSW|
00001410: 45 52 20 54 48 49 53 20 51 55 45 53 54 49 4F 4E |ER THIS QUESTION|
00001420: 2C 22 00 3D 1C 66 08 99 22 43 48 41 4E 47 45 20 |,".=.f.."CHANGE |
00001430: 27 4F 46 27 20 54 4F 20 27 D6 27 20 22 00 5A 1C |'OF' TO '.' ".Z.|
00001440: 70 08 99 22 41 4E 44 22 3B 41 3B 22 25 22 3B 22 |p.."AND";A;"%";"|
00001450: 20 54 4F 22 3B 41 AD 31 30 30 00 72 1C 7A 08 99 | TO";A.100.r.z..|
00001460: 22 11 54 48 55 53 2C 20 22 3B 51 51 24 3B 22 9D |".THUS, ";QQ$;".|
00001470: 20 22 00 95 1C 84 08 99 22 20 20 20 20 20 3D 22 | "......" ="|
00001480: 3B 41 AD 31 30 30 3B 22 9D D6 22 3B 42 3B 22 3D |;A.100;"..";B;"=|
00001490: 22 3B 52 41 24 00 9B 1C 8E 08 8E 00 A7 1C 98 08 |";RA$...........|
000014A0: 8D 31 36 39 30 3A 99 00 C8 1C A2 08 99 22 11 54 |.1690:.......".T|
000014B0: 4F 20 41 4E 53 57 45 52 20 54 48 49 53 20 51 55 |O ANSWER THIS QU|
000014C0: 45 53 54 49 4F 4E 2C 22 00 ED 1C AC 08 99 22 57 |ESTION,"......"W|
000014D0: 45 20 48 41 56 45 20 54 4F 20 44 49 56 49 44 45 |E HAVE TO DIVIDE|
000014E0: 22 3B 42 3B 22 49 4E 54 4F 22 3B 52 41 00 0F 1D |";B;"INTO";RA...|
000014F0: B6 08 99 22 41 4E 44 20 54 48 45 4E 20 4D 55 4C |..."AND THEN MUL|
00001500: 54 49 50 4C 59 20 42 59 20 31 30 30 25 2E 22 00 |TIPLY BY 100%.".|
00001510: 38 1D C0 08 99 22 11 54 48 55 53 2C 22 3B 52 41 |8....".THUS,";RA|
00001520: 3B 22 9D 2F 22 3B CA 28 C4 28 42 29 2C 32 29 3B |;"./";.(.(B),2);|
00001530: 22 3D 22 3B 52 41 AD 42 00 53 1D CA 08 99 22 20 |"=";RA.B.S...." |
00001540: 20 20 20 3D 22 3B 52 41 AD 42 3B 22 9D D6 31 30 | =";RA.B;"..10|
00001550: 30 25 22 00 66 1D D4 08 99 22 20 20 20 20 3D 22 |0%".f...." ="|
00001560: 3B 52 41 24 3A 8E 00 7C 1D DE 08 8F 20 4D 45 53 |;RA$:..|.... MES|
00001570: 53 41 47 45 20 53 45 43 54 49 4F 4E 00 A5 1D E8 |SAGE SECTION....|
00001580: 08 8F 20 53 45 4C 45 43 54 20 56 41 4C 55 45 20 |.. SELECT VALUE |
00001590: 4F 46 20 43 44 20 54 4F 20 50 49 43 4B 20 4D 45 |OF CD TO PICK ME|
000015A0: 53 53 41 47 45 00 C1 1D F2 08 8B 48 4D B1 34 AF |SSAGE......HM.4.|
000015B0: 4E 43 AA 4E 46 B3 48 4D AD 32 A7 43 44 B2 33 3A |NC.NF.HM.2.CD.3:|
000015C0: 8E 00 D9 1D FC 08 8B 48 4D B3 35 AF 53 43 B2 31 |.......HM.5.SC.1|
000015D0: 30 30 A7 43 44 B2 32 3A 8E 00 EA 1D 06 09 8B 48 |00.CD.2:.......H|
000015E0: 4D B3 35 A7 43 44 B2 31 3A 8E 00 FC 1D 10 09 8B |M.5.CD.1:.......|
000015F0: 4E 43 B2 48 4D A7 43 44 B2 34 3A 8E 00 11 1E 1A |NC.HM.CD.4:.....|
00001600: 09 8B 4E 43 AA 4E 46 B2 48 4D A7 43 44 B2 32 3A |..NC.NF.HM.CD.2:|
00001610: 8E 00 1A 1E 24 09 43 44 B2 31 00 20 1E 2E 09 8E |....$.CD.1. ....|
00001620: 00 3C 1E 38 09 91 43 44 89 32 33 37 30 2C 32 33 |.<.8..CD.2370,23|
00001630: 38 30 2C 32 33 39 30 2C 32 34 30 30 00 42 1E 42 |80,2390,2400.B.B|
00001640: 09 8E 00 63 1E 4C 09 99 22 11 22 3B A3 31 33 29 |...c.L..".";.13)|
00001650: 3B 22 2D 2D 57 45 4C 4C 20 44 4F 4E 45 2D 2D 11 |;"--WELL DONE--.|
00001660: 22 3A 8E 00 91 1E 56 09 99 22 11 22 3B A3 37 29 |":....V..".";.7)|
00001670: 3B 22 47 45 54 20 48 45 4C 50 20 46 52 4F 4D 20 |;"GET HELP FROM |
00001680: 59 4F 55 52 20 54 45 41 43 48 45 52 21 11 22 3A |YOUR TEACHER!.":|
00001690: 8E 00 9A 1E 60 09 99 22 11 22 00 B2 1E 6A 09 99 |....`.."."...j..|
000016A0: A3 31 34 29 3B 22 D3 D3 D3 D3 D3 D3 D3 D3 D3 D3 |.14);"..........|
000016B0: D3 22 00 CA 1E 74 09 99 A3 31 34 29 3B 22 D3 46 |."...t...14);".F|
000016C0: 41 4E 54 41 53 54 49 43 D3 22 00 E2 1E 7E 09 99 |ANTASTIC."...~..|
000016D0: A3 31 34 29 3B 22 D3 D3 D3 D3 D3 D3 D3 D3 D3 D3 |.14);"..........|
000016E0: D3 22 00 EA 1E 88 09 99 3A 8E 00 00 00 |."......:.... |
....D..59468,12...N.X..(.TI).6.X.TT$."'P
ERCENT' DRILL".`....".";.1..((40.C(TT$))
.2));".";TT$;"."......".";.13);"BY D. S.
COOPER". ....".";.13);"SCHREIBER, 1980"
.F. ..".....IF YOU WISH TO GIVE UP ON"..
...."A PARTICULAR QUESTION,"......".JUST
TYPE 'UNCLE' AS YOUR ANSWER.".)...."...
................".2.H..250.V.R..".PRESS
.RETURN. TO CONTINUE.".I....A$:.A$."".22
0.|....F(A$)..13.220......"..STAND BY.":
.......210...... BUILD OPTION PAGE HERE.
J....".OPTIONS:.."......"A) CHANGE PERCE
NT TO DECIMAL"...".."B) CHANGE DECIMAL T
O PERCENT".6.,.."C) FIND WHOLE % OF A DE
CIMAL".\.6.."D) FIND DECIMAL % OF A DECI
MAL"...@.."E) A DECIMAL IS WHAT % OF A D
ECIMAL"...J.."."...T.. CHOOSE OPTIONS HE
RE...^.."PRESS THE .LETTER. OR .LETTERS.
OF":."YOUR CHOICE;."...H.."THEN PRESS .
RETURN..":....R.CH$."".!.|..C$:.C$."".38
0.3....F(C$).13.420.N....F(C$).65.F(C$).
69.380.G....C$;:CH$.CH$.C$:.380.W....CH$
."".380......"."......".HOW MANY ITEMS D
O YOU WANT IN THIS DRILL";...B..HM.M.L..
HM...(HM).490...V..HM.1.490......500....
.."..ILLEGAL RESPONSE.":.440.&...NQ.1:AT
.0:NW.0:NC.0:NF.0:MK.0.9...."..STAND BY.
".Y.... DO A GOSUB TO SET UP TEST.C....1
090.M....1690.W.&..1760...0..1800...:..C
D.580,650,750,780...D..NW.0.NC.NC.1...N.
.NW.0.NF.NF.1.P.X..NW.1.MK.MK..5...B..NW
.2.MK.MK..25...L.."..RIGHT.":.210...V.NQ
.NQ.1:NW.0:.NQ.HM.790......530.8....".WR
ONG. ";:NW.NW.1.F....NW.3.760.L.....O..
..".THE CORRECT ANSWER IS ";RA$......".D
O YOU WANT TO SEE HOW THIS IS DONE?":."(
Y OR N)"......G$:.G$."".700.K.F..G$."N".
740...P..G$.."Y".700...Z..1950......210:
.630......".CLOSE! ";:NW.NW.1:.660.%...
."TRY AGAIN.".K....1050:MT.TI:.210:AT.AT
.TI.MT:.540.Y...NW.3:.670......".";..((4
0.C(TT$)).2));".";TT$;"."... .. OPTION M
ESSAGE...*.SC..((NC.100.HM..05).10).10..
.4.MK..(((NC.MK).100.HM..05).10).10...>.
MN..(AT.3600):SN.(AT.3600.MN).60:SD..((S
N..05).10).10.U.H.T2..(((AT.60).HM..05).
10).10:T3..((NC.(AT.3600)..05).10).10.|.
R..".THIS DRILL HAD";HM;"QUESTIONS,"...\
.."YOU CORRECTLY ANSWERED";NC.D.F.."YOUR
SCORE IS .";J(D(SC),2);".%".R.P..NF.0.9
10...Z.."..(ALSO, YOU RECOVERED FROM";NF
.&...."...AN ADJUSTED SCORE WOULD BE";MK
;".%)".C...."TOTAL TIME TAKEN WAS";.Q...
.MN.0.940.K....MN;"MINUTES,":..20);.~...
.SD;"SECONDS."......"THAT'S";T2;"SECONDS
PER QUESTION.".W...."YOU DID";T3;"CORRE
CT ANSWERS PER MINUTE."...J..2270:.2360.
-.T.."DO YOU WANT THE SAME OPTION(S) (Y
OR N)?":. ?&810-840?&GOTO110?.@....A$:.A
$."".990.P....A$."N".250.F....A$."Y"..".
":.440.O....990......33747,3:.33748,12:.
33749,15:.33750,3:.33751,11......33753,9
:.33754,19:.......33756,18:.33757,21:.33
758,14:.33759,14:.33760,9...$..33761,14:
.33762,7:.:. RUNNING.3....I9.33756.33762
:.I9,32:.I9.[.8..33756,15:.33757,6:.3375
8,6:.:. OFF.{.B.. MAKE UP NEW QUESTION H
ERE...L.C.1..(C(CH$)..(1))...V.C$.J(CH$,
C,1):C.F(C$).64.O.`..C.1140,1230,1320,14
30,1570.U.J.....T.. PERCENT TO DECIMAL..
.~.KL.1.....A..(1000..(4)).10.#...X.1..(
5..(7)):B.1.G....I.1.X:B.B.10:.:A.A.B:.A
.1.1160.C...RA.A.100:RA$.J(D(RA),2).....
QU$."CHANGE INTO A DECIMAL:.".....QQ$.D(
A)."%="...D.....N.. DECIMAL TO PERCENT..
.X.KL.2.U...A..(1000..(4)).10.....X.1..(
5..(7)):B.1......I.1.X:B.B.10:.:A.A.B:.A
..01.1160.1...RA.A.100:RA$.J(D(RA),2)."%
".S...QU$."CHANGE INTO A PERCENT:.".D...
QQ$.D(A)."=".J.......(.. TAKE WHOLE PERC
ENT OF A DECIMAL...2.KL.1...<.A..(101..(
2)).X.F.B..(1000..(2)):X..(5..(3)):H.1:.
X.0.1370...P..I.1.X:H.H.10:....Z.B.B.H:.
B..01.1350...D.RA.A.B.100:.RA..01.1340.1
.N.RA$.J(D(RA),2).B.X.QU$."FIND:.".`...Q
Q$.D(A)."% OF".D(B)." =".F.......... TAK
E DECIMAL PERCENT OF A DECIMAL... .KL.1.
C...A..(101..(2)):X..(5..(4)):H.1:.X.0.1
480.Z....X..4.A.A.10:.1490......I.1.X:H.
H.10:....H.A.A.H:.A..01.1450.1.R.B..(100
0..(2)):X..(5..(3)):H.1:.X.0.1510.E....I
.1.X:H.H.10:..[...B.B.H:.B..01.1490.W...
RA.A.B.100:.RA..01.1450.....RA$.J(D(RA),
2).....QU$."FIND:.".....QQ$.D(A)."% OF".
D(B)." =".........".. DECIMAL=? WHAT % O
F A DECIMAL...,.KL.2...6.A..(101..(2)).+
.@.B..(1000..(2)):X..(5..(3)):H.1:.X.0.1
620.?.J..I.1.X:H.H.10:..U.T.B.B.H:.B..01
.1600.Q.^.RA.A.B.100:.RA..01.1590...H.RA
$.J(D(A),2)."%"...R...(8)..5.1680.F.|.QU
$.D(RA)." IS WHAT PERCENT OF".D(B)."?"..
...QQ$.".ANSWER: ":......QU$."WHAT PERC
ENT OF".D(B)." IS".D(RA)."?":.1670.:....
".";..((40.C(TT$)).2));".";TT$;".".]....
".#";NQ;.19);HM;"ITEM DRILL.".R.... OPTI
ON MESSAGE......"OPTION(S): ";CH$;"."..
.B.. PRINT QUESTION HERE...L..QU$:.QQ$;.
..V...S....1030:.1050:MT.TI...... PUT IN
PUTS/GETS HERE......AN$.....AT.AT.TI.MT:
.1070:..*.... DECIDE ANSWER STATUS.<....
RIGHT--CD=1.N.... WRONG--CD=2.`.&.. CLO
SE--CD=3.R.0.. UNCLE--CD=4...:..KL.1860,
1880...D..E(AN$).E(RA$).I(AN$,1).."%".CD
.1:....N..1900...X..E(AN$).E(RA$).I(AN$,
1)."%".CD.1:....B..1900...L..AN$."UNCLE"
.CD.4:....V..H(AN$,4).H(RA$,4).CD.3:..;.
...I(AN$,4).I(RA$,4).CD.3:..D...CD.2.J..
...J....C.1960,2010,2060,2130,2200.V....
1690:......."..TO ANSWER THIS QUESTION,"
......"DIVIDE";A;"BY 100.".T.F..".THUS,
";QQ$;A;"./100=";RA$.Z.P.....Z..1690:...
...."..TO ANSWER THIS QUESTION,".%...."M
ULTIPLY";A;"BY 100%.".G....".THUS, ";QQ$
;A;"V100%=";RA$.M.....Y....1690:..{...."
..TO ANSWER THIS QUESTION,"... .."CHANGE
'OF' TO 'V' "...*.."AND";A;"%";" TO";A.
100.K.4..".THUS, ";QQ$;". "...>.." =
";A.100;".V";B;"=";RA$...H.....R..1690:.
.".\.."..TO ANSWER THIS QUESTION,".=.F..
"CHANGE 'OF' TO 'V' ".Z.P.."AND";A;"%";"
TO";A.100.R.Z..".THUS, ";QQ$;". "......
" =";A.100;".V";B;"=";RA$...........
.1690:..H....".TO ANSWER THIS QUESTION,"
......"WE HAVE TO DIVIDE";B;"INTO";RA...
..."AND THEN MULTIPLY BY 100%.".8....".T
HUS,";RA;"./";J(D(B),2);"=";RA.B.S.J.."
=";RA.B;".V100%".F.T.." =";RA$:..|
.... MESSAGE SECTION...... SELECT VALUE
OF CD TO PICK MESSAGE.A....HM.4.NC.NF.HM
.2.CD.3:..Y....HM.5.SC.100.CD.2:.......H
M.5.CD.1:.......NC.HM.CD.4:.......NC.NF.
HM.CD.2:....$.CD.1. .....<.8..CD.2370,23
80,2390,2400.B.B...C.L..".";.13);"--WELL
DONE--.":....V..".";.7);"GET HELP FROM
YOUR TEACHER!.":....`.."."...J...14);"SS
SSSSSSSSS".J.T...14);"SFANTASTICS"...~..
.14);"SSSSSSSSSSS"......:....
> CLICK IMAGE PREVIEW FOR FULL MODAL