DIVISION
FILE INFORMATION
FILENAME(S): DIVISION
FILE TYPE(S): PRG
FILE SIZE: 4.2K
FIRST SEEN: 2025-11-30 21:27:54
APPEARS ON: 1 disk(s)
FILE HASH
0702167db56f64b7f8553efad08248fe44cb25a0c0c31e86212a04d2b7c83c64
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LEERSPELLEN ALG | DIVISION | PRG | DuncanTwain | 9 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1B 08 02 00 4C 41 24 B2 22 30 31 32 33 34 |......LA$."01234|
00000010: 35 36 37 38 39 55 4E 43 4C 45 22 00 28 08 05 00 |56789UNCLE".(...|
00000020: 58 B2 BB 28 AB 54 49 29 00 4E 08 0A 00 54 54 24 |X..(.TI).N...TT$|
00000030: B2 22 44 49 56 49 53 49 4F 4E 20 4F 46 20 4E 41 |."DIVISION OF NA|
00000040: 54 55 52 41 4C 20 4E 55 4D 42 45 52 53 22 00 76 |TURAL NUMBERS".v|
00000050: 08 0B 00 99 22 93 22 3B A3 B5 28 28 34 30 AB C3 |....".";..((40..|
00000060: 28 54 54 24 29 29 AD 32 29 29 3B 22 12 22 3B 54 |(TT$)).2));".";T|
00000070: 54 24 3B 22 92 22 00 96 08 0C 00 99 22 11 22 3B |T$;"."......".";|
00000080: A3 31 32 29 3B 22 42 59 20 44 2E 20 53 2E 20 43 |.12);"BY D. S. C|
00000090: 4F 4F 50 45 52 22 00 B6 08 0D 00 99 22 11 22 3B |OOPER"......".";|
000000A0: A3 31 32 29 3B 22 53 43 48 52 45 49 42 45 52 2C |.12);"SCHREIBER,|
000000B0: 20 31 39 38 30 22 00 DC 08 0E 00 99 22 11 11 11 | 1980"......"...|
000000C0: 11 11 49 46 20 59 4F 55 20 57 49 53 48 20 54 4F |..IF YOU WISH TO|
000000D0: 20 47 49 56 45 20 55 50 20 4F 4E 22 00 FA 08 0F | GIVE UP ON"....|
000000E0: 00 99 22 41 20 50 41 52 54 49 43 55 4C 41 52 20 |.."A PARTICULAR |
000000F0: 51 55 45 53 54 49 4F 4E 2C 22 00 24 09 11 00 99 |QUESTION,".$....|
00000100: 22 11 4A 55 53 54 20 54 59 50 45 20 27 55 4E 43 |".JUST TYPE 'UNC|
00000110: 4C 45 27 20 41 53 20 59 4F 55 52 20 41 4E 53 57 |LE' AS YOUR ANSW|
00000120: 45 52 2E 22 00 3F 09 15 00 99 22 13 11 11 11 11 |ER.".?....".....|
00000130: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 22 00 |..............".|
00000140: 48 09 63 00 89 31 31 30 00 6C 09 64 00 99 22 11 |H.c..110.l.d..".|
00000150: 50 52 45 53 53 20 12 52 45 54 55 52 4E 92 20 54 |PRESS .RETURN. T|
00000160: 4F 20 43 4F 4E 54 49 4E 55 45 2E 22 00 7F 09 65 |O CONTINUE."...e|
00000170: 00 A1 41 24 3A 8B 41 24 B2 22 22 A7 31 30 31 00 |..A$:.A$."".101.|
00000180: 92 09 66 00 8B C6 28 41 24 29 B3 B1 31 33 A7 31 |..f...(A$)..13.1|
00000190: 30 31 00 A7 09 67 00 99 22 11 12 53 54 41 4E 44 |01...g.."..STAND|
000001A0: 20 42 59 92 22 3A 8E 00 B0 09 6E 00 8D 31 30 30 | BY.":....n..100|
000001B0: 00 B9 09 78 00 4B 4C B2 34 00 E5 09 7D 00 99 22 |...x.KL.4...}.."|
000001C0: 93 22 3B A3 B5 28 28 34 30 AB C3 28 54 54 24 29 |.";..((40..(TT$)|
000001D0: 29 AD 32 29 29 3B 22 12 22 3B 54 54 24 3B 22 92 |).2));".";TT$;".|
000001E0: 22 3A 8F 23 41 00 F7 09 7E 00 99 22 11 4F 50 54 |":.#A...~..".OPT|
000001F0: 49 4F 4E 53 3A 11 22 00 0E 0A 82 00 99 22 41 29 |IONS:."......"A)|
00000200: 20 4E 4F 20 52 45 4D 41 49 4E 44 45 52 22 00 2B | NO REMAINDER".+|
00000210: 0A 87 00 99 22 42 29 20 52 45 4D 41 49 4E 44 45 |...."B) REMAINDE|
00000220: 52 20 50 4F 53 53 49 42 4C 45 22 00 56 0A 91 00 |R POSSIBLE".V...|
00000230: 99 22 11 50 52 45 53 53 20 54 48 45 20 12 4C 45 |.".PRESS THE .LE|
00000240: 54 54 45 52 92 20 4F 46 20 59 4F 55 52 20 43 48 |TTER. OF YOUR CH|
00000250: 4F 49 43 45 2E 22 00 69 0A 96 00 A1 41 24 3A 8B |OICE.".i....A$:.|
00000260: 41 24 B2 22 22 A7 31 35 30 00 84 0A 97 00 8B C6 |A$."".150.......|
00000270: 28 41 24 29 B3 36 35 B0 C6 28 41 24 29 B1 36 36 |(A$).65..(A$).66|
00000280: A7 31 35 30 00 94 0A 98 00 43 48 24 B2 41 24 3A |.150.....CH$.A$:|
00000290: 99 43 48 24 00 C1 0A C8 00 99 22 11 48 4F 57 20 |.CH$......".HOW |
000002A0: 42 49 47 20 43 41 4E 20 54 48 45 20 44 49 56 49 |BIG CAN THE DIVI|
000002B0: 53 4F 52 20 42 45 3F 20 22 3B 3A 8D 31 30 33 31 |SOR BE? ";:.1031|
000002C0: 32 00 F3 0A CD 00 44 56 B2 C5 28 41 4E 24 29 3A |2.....DV..(AN$):|
000002D0: 8B 44 56 B3 32 A7 99 22 11 12 49 4C 4C 45 47 41 |.DV.2.."..ILLEGA|
000002E0: 4C 2D 2D 54 52 59 20 41 47 41 49 4E 21 22 3A 89 |L--TRY AGAIN!":.|
000002F0: 32 30 30 00 04 0B D2 00 8B 43 48 24 B2 22 41 22 |200......CH$."A"|
00000300: A7 32 33 30 00 32 0B D7 00 99 22 11 48 4F 57 20 |.230.2....".HOW |
00000310: 42 49 47 20 43 41 4E 20 54 48 45 20 44 49 56 49 |BIG CAN THE DIVI|
00000320: 44 45 4E 44 20 42 45 3F 20 22 3B 3A 8D 31 30 33 |DEND BE? ";:.103|
00000330: 31 32 00 65 0B DC 00 44 44 B2 C5 28 41 4E 24 29 |12.e...DD..(AN$)|
00000340: 3A 8B 44 44 B3 44 56 A7 99 22 11 12 49 4C 4C 45 |:.DD.DV.."..ILLE|
00000350: 47 41 4C 2D 2D 54 52 59 20 41 47 41 49 4E 21 22 |GAL--TRY AGAIN!"|
00000360: 3A 89 32 31 35 00 6E 0B E1 00 89 33 30 30 00 9C |:.215.n....300..|
00000370: 0B E6 00 99 22 11 48 4F 57 20 42 49 47 20 43 41 |....".HOW BIG CA|
00000380: 4E 20 54 48 45 20 51 55 4F 54 49 45 4E 54 20 42 |N THE QUOTIENT B|
00000390: 45 3F 20 22 3B 3A 8D 31 30 33 31 32 00 CE 0B EB |E? ";:.10312....|
000003A0: 00 51 51 B2 C5 28 41 4E 24 29 3A 8B 51 51 B3 32 |.QQ..(AN$):.QQ.2|
000003B0: A7 99 22 11 12 49 4C 4C 45 47 41 4C 2D 2D 54 52 |.."..ILLEGAL--TR|
000003C0: 59 20 41 47 41 49 4E 21 22 3A 89 32 33 30 00 11 |Y AGAIN!":.230..|
000003D0: 0C 2C 01 99 22 11 48 4F 57 20 4D 41 4E 59 20 49 |.,..".HOW MANY I|
000003E0: 54 45 4D 53 20 44 4F 20 59 4F 55 20 57 41 4E 54 |TEMS DO YOU WANT|
000003F0: 20 49 4E 20 54 48 49 53 20 44 52 49 4C 4C 22 3B | IN THIS DRILL";|
00000400: 3A 8D 31 30 33 31 32 3A 48 4D B2 C5 28 41 4E 24 |:.10312:HM..(AN$|
00000410: 29 00 24 0C 36 01 8B 48 4D B3 B1 B5 28 48 4D 29 |).$.6..HM...(HM)|
00000420: A7 33 35 30 00 32 0C 3B 01 8B 48 4D B3 31 A7 33 |.350.2.;..HM.1.3|
00000430: 35 30 00 40 0C 59 01 4B 4C B2 31 3A 89 33 36 30 |50.@.Y.KL.1:.360|
00000440: 00 60 0C 5E 01 99 22 11 12 49 4C 4C 45 47 41 4C |.`.^.."..ILLEGAL|
00000450: 20 52 45 53 50 4F 4E 53 45 92 22 3A 89 33 30 30 | RESPONSE.":.300|
00000460: 00 82 0C 68 01 4E 51 B2 31 3A 41 54 B2 30 3A 4E |...h.NQ.1:AT.0:N|
00000470: 57 B2 30 3A 4E 43 B2 30 3A 4E 46 B2 30 3A 4D 4B |W.0:NC.0:NF.0:MK|
00000480: B2 30 00 95 0C 6D 01 99 22 11 12 53 54 41 4E 44 |.0...m.."..STAND|
00000490: 20 42 59 92 22 00 B5 0C 6F 01 8F 20 44 4F 20 41 | BY."...o.. DO A|
000004A0: 20 47 4F 53 55 42 20 54 4F 20 53 45 54 20 55 50 | GOSUB TO SET UP|
000004B0: 20 54 45 53 54 00 BF 0C 72 01 8D 31 30 30 30 00 | TEST...r..1000.|
000004C0: CA 0C 7C 01 8D 31 30 30 30 30 00 D5 0C 86 01 8D |..|..10000......|
000004D0: 31 30 33 30 30 00 E0 0C 90 01 8D 31 31 30 30 30 |10300......11000|
000004E0: 00 F8 0C 9A 01 91 43 44 89 34 32 30 2C 35 30 30 |......CD.420,500|
000004F0: 2C 35 35 30 2C 36 31 30 00 0A 0D A4 01 8B 4E 57 |,550,610......NW|
00000500: B2 30 A7 4E 43 B2 4E 43 AA 31 00 1C 0D A5 01 8B |.0.NC.NC.1......|
00000510: 4E 57 B1 30 A7 4E 46 B2 4E 46 AA 31 00 2F 0D A6 |NW.0.NF.NF.1./..|
00000520: 01 8B 4E 57 B2 31 A7 4D 4B B2 4D 4B AA 2E 35 00 |..NW.1.MK.MK..5.|
00000530: 43 0D A7 01 8B 4E 57 B2 32 A7 4D 4B B2 4D 4B AA |C....NW.2.MK.MK.|
00000540: 2E 32 35 00 58 0D AE 01 99 22 11 12 52 49 47 48 |.25.X...."..RIGH|
00000550: 54 92 22 3A 8D 31 30 30 00 74 0D B8 01 4E 51 B2 |T.":.100.t...NQ.|
00000560: 4E 51 AA 31 3A 4E 57 B2 30 3A 8B 4E 51 B1 48 4D |NQ.1:NW.0:.NQ.HM|
00000570: A7 37 30 30 00 7D 0D C2 01 89 33 37 30 00 97 0D |.700.}....370...|
00000580: F4 01 99 22 11 57 52 4F 4E 47 2E 20 20 22 3B 3A |...".WRONG. ";:|
00000590: 4E 57 B2 4E 57 AA 31 00 A5 0D FE 01 8B 4E 57 B3 |NW.NW.1......NW.|
000005A0: 33 A7 36 30 30 00 AB 0D 08 02 99 00 CF 0D 12 02 |3.600...........|
000005B0: 99 22 11 54 48 45 20 43 4F 52 52 45 43 54 20 41 |.".THE CORRECT A|
000005C0: 4E 53 57 45 52 20 49 53 3A 22 3A 99 52 41 24 00 |NSWER IS:":.RA$.|
000005D0: DD 0D 1C 02 8D 31 30 30 3A 89 34 34 30 00 FC 0D |.....100:.440...|
000005E0: 26 02 99 22 11 43 4C 4F 53 45 21 20 20 22 3B 3A |&..".CLOSE! ";:|
000005F0: 4E 57 B2 4E 57 AA 31 3A 89 35 31 30 00 0E 0E 58 |NW.NW.1:.510...X|
00000600: 02 99 22 54 52 59 20 41 47 41 49 4E 2E 22 00 33 |.."TRY AGAIN.".3|
00000610: 0E 5D 02 8D 39 31 30 3A 4D 54 B2 54 49 3A 8D 31 |.]..910:MT.TI:.1|
00000620: 30 30 3A 41 54 B2 41 54 AA 54 49 AB 4D 54 3A 89 |00:AT.AT.TI.MT:.|
00000630: 33 38 30 00 41 0E 62 02 4E 57 B2 33 3A 89 35 32 |380.A.b.NW.3:.52|
00000640: 30 00 69 0E BC 02 99 22 93 22 3B A3 B5 28 28 34 |0.i....".";..((4|
00000650: 30 AB C3 28 54 54 24 29 29 AD 32 29 29 3B 22 12 |0..(TT$)).2));".|
00000660: 22 3B 54 54 24 3B 22 92 22 00 7E 0E C1 02 8F 20 |";TT$;".".~.... |
00000670: 4F 50 54 49 4F 4E 20 4D 45 53 53 41 47 45 00 9B |OPTION MESSAGE..|
00000680: 0E C2 02 99 22 11 4F 50 54 49 4F 4E 28 53 29 3A |....".OPTION(S):|
00000690: 20 20 22 3B 43 48 24 3A 8F 23 41 00 BB 0E C6 02 | ";CH$:.#A.....|
000006A0: 53 43 B2 B5 28 28 4E 43 AC 31 30 30 AD 48 4D AA |SC..((NC.100.HM.|
000006B0: 2E 30 35 29 AC 31 30 29 AD 31 30 00 E0 0E C7 02 |.05).10).10.....|
000006C0: 4D 4B B2 B5 28 28 28 4E 43 AA 4D 4B 29 AC 31 30 |MK..(((NC.MK).10|
000006D0: 30 AD 48 4D AA 2E 30 35 29 AC 31 30 29 AD 31 30 |0.HM..05).10).10|
000006E0: 00 1A 0F CB 02 4D 4E B2 B5 28 41 54 AD 33 36 30 |.....MN..(AT.360|
000006F0: 30 29 3A 53 4E B2 28 41 54 AB 33 36 30 30 AC 4D |0):SN.(AT.3600.M|
00000700: 4E 29 AD 36 30 3A 53 44 B2 B5 28 28 53 4E AA 2E |N).60:SD..((SN..|
00000710: 30 35 29 AC 31 30 29 AD 31 30 00 5A 0F D0 02 54 |05).10).10.Z...T|
00000720: 32 B2 B5 28 28 28 41 54 AD 36 30 29 AD 48 4D AA |2..(((AT.60).HM.|
00000730: 2E 30 35 29 AC 31 30 29 AD 31 30 3A 54 33 B2 B5 |.05).10).10:T3..|
00000740: 28 28 4E 43 AD 28 41 54 AD 33 36 30 30 29 AA 2E |((NC.(AT.3600)..|
00000750: 30 35 29 AC 31 30 29 AD 31 30 00 81 0F DA 02 99 |05).10).10......|
00000760: 22 11 54 48 49 53 20 44 52 49 4C 4C 20 48 41 44 |".THIS DRILL HAD|
00000770: 22 3B 48 4D 3B 22 51 55 45 53 54 49 4F 4E 53 2C |";HM;"QUESTIONS,|
00000780: 22 00 A2 0F DF 02 99 22 59 4F 55 20 43 4F 52 52 |"......"YOU CORR|
00000790: 45 43 54 4C 59 20 41 4E 53 57 45 52 45 44 22 3B |ECTLY ANSWERED";|
000007A0: 4E 43 00 C9 0F E4 02 99 22 59 4F 55 52 20 53 43 |NC......"YOUR SC|
000007B0: 4F 52 45 20 49 53 20 12 22 3B CA 28 C4 28 53 43 |ORE IS .";.(.(SC|
000007C0: 29 2C 32 29 3B 22 92 25 22 00 D7 0F E9 02 8B 4E |),2);".%"......N|
000007D0: 46 B2 30 A7 37 36 30 00 FD 0F EE 02 99 22 1D 1D |F.0.760......"..|
000007E0: 28 41 4C 53 4F 2C 20 59 4F 55 20 52 45 43 4F 56 |(ALSO, YOU RECOV|
000007F0: 45 52 45 44 20 46 52 4F 4D 22 3B 4E 46 00 2B 10 |ERED FROM";NF.+.|
00000800: F3 02 99 22 1D 1D 1D 41 4E 20 41 44 4A 55 53 54 |..."...AN ADJUST|
00000810: 45 44 20 53 43 4F 52 45 20 57 4F 55 4C 44 20 42 |ED SCORE WOULD B|
00000820: 45 22 3B 4D 4B 3B 22 9D 25 29 22 00 49 10 F8 02 |E";MK;".%)".I...|
00000830: 99 22 11 54 4F 54 41 4C 20 54 49 4D 45 20 54 41 |.".TOTAL TIME TA|
00000840: 4B 45 4E 20 57 41 53 22 3B 00 57 10 FD 02 8B 4D |KEN WAS";.W....M|
00000850: 4E B2 30 A7 37 37 35 00 71 10 02 03 99 4D 4E 3B |N.0.775.q....MN;|
00000860: 22 4D 49 4E 55 54 45 53 2C 22 3A 99 A3 32 30 29 |"MINUTES,":..20)|
00000870: 3B 00 84 10 07 03 99 53 44 3B 22 53 45 43 4F 4E |;......SD;"SECON|
00000880: 44 53 2E 22 00 B9 10 0C 03 99 22 54 48 41 54 27 |DS."......"THAT'|
00000890: 53 20 12 22 3B CA 28 C4 28 54 32 29 2C 32 29 3B |S .";.(.(T2),2);|
000008A0: 22 92 20 53 45 43 4F 4E 44 53 20 50 45 52 20 51 |". SECONDS PER Q|
000008B0: 55 45 53 54 49 4F 4E 2E 22 00 E9 10 11 03 99 22 |UESTION."......"|
000008C0: 59 4F 55 20 44 49 44 22 3B 54 33 3B 22 43 4F 52 |YOU DID";T3;"COR|
000008D0: 52 45 43 54 20 41 4E 53 57 45 52 53 20 50 45 52 |RECT ANSWERS PER|
000008E0: 20 4D 49 4E 55 54 45 2E 22 00 FB 10 20 03 8D 32 | MINUTE."... ..2|
000008F0: 30 30 30 30 3A 8D 32 31 30 30 30 00 42 11 25 03 |0000:.21000.B.%.|
00000900: 99 22 11 44 4F 20 59 4F 55 20 57 41 4E 54 20 54 |.".DO YOU WANT T|
00000910: 48 45 20 53 41 4D 45 20 4F 50 54 49 4F 4E 28 53 |HE SAME OPTION(S|
00000920: 29 20 28 59 20 4F 52 20 4E 29 3F 22 3A 8F 20 3F |) (Y OR N)?":. ?|
00000930: 26 38 31 30 2D 38 34 30 3F 26 47 4F 54 4F 31 31 |&810-840?&GOTO11|
00000940: 30 3F 00 55 11 2A 03 A1 41 24 3A 8B 41 24 B2 22 |0?.U.*..A$:.A$."|
00000950: 22 A7 38 31 30 00 65 11 34 03 8B 41 24 B2 22 4E |".810.e.4..A$."N|
00000960: 22 A7 31 32 30 00 7B 11 3E 03 8B 41 24 B2 22 59 |".120.{.>..A$."Y|
00000970: 22 A7 99 22 93 22 3A 89 33 30 30 00 84 11 48 03 |"..".":.300...H.|
00000980: 89 38 31 30 00 B8 11 84 03 97 33 33 37 34 37 2C |.810......33747,|
00000990: 33 3A 97 33 33 37 34 38 2C 31 32 3A 97 33 33 37 |3:.33748,12:.337|
000009A0: 34 39 2C 31 35 3A 97 33 33 37 35 30 2C 33 3A 97 |49,15:.33750,3:.|
000009B0: 33 33 37 35 31 2C 31 31 00 D1 11 85 03 97 33 33 |33751,11......33|
000009C0: 37 35 33 2C 39 3A 97 33 33 37 35 34 2C 31 39 3A |753,9:.33754,19:|
000009D0: 8E 00 06 12 8E 03 97 33 33 37 35 36 2C 31 38 3A |.......33756,18:|
000009E0: 97 33 33 37 35 37 2C 32 31 3A 97 33 33 37 35 38 |.33757,21:.33758|
000009F0: 2C 31 34 3A 97 33 33 37 35 39 2C 31 34 3A 97 33 |,14:.33759,14:.3|
00000A00: 33 37 36 30 2C 39 00 29 12 8F 03 97 33 33 37 36 |3760,9.)....3376|
00000A10: 31 2C 31 34 3A 97 33 33 37 36 32 2C 37 3A 8E 3A |1,14:.33762,7:.:|
00000A20: 8F 20 52 55 4E 4E 49 4E 47 00 48 12 98 03 81 49 |. RUNNING.H....I|
00000A30: 39 B2 33 33 37 35 36 A4 33 33 37 36 32 3A 97 49 |9.33756.33762:.I|
00000A40: 39 2C 33 32 3A 82 49 39 00 70 12 99 03 97 33 33 |9,32:.I9.p....33|
00000A50: 37 35 36 2C 31 35 3A 97 33 33 37 35 37 2C 36 3A |756,15:.33757,6:|
00000A60: 97 33 33 37 35 38 2C 36 3A 8E 3A 8F 20 4F 46 46 |.33758,6:.:. OFF|
00000A70: 00 8D 12 E8 03 56 B2 31 AA B5 28 44 56 AC BB 28 |.....V.1..(DV..(|
00000A80: 31 29 29 3A 8B 56 B2 31 A7 31 30 30 30 00 9F 12 |1)):.V.1.1000...|
00000A90: ED 03 8B 43 48 24 B2 22 42 22 A7 31 31 30 30 00 |...CH$."B".1100.|
00000AA0: C8 12 F2 03 51 B2 31 AA B5 28 51 51 AC BB 28 31 |....Q.1..(QQ..(1|
00000AB0: 29 29 3A 44 B2 56 AC 51 3A 52 41 24 B2 CA 28 C4 |)):D.V.Q:RA$..(.|
00000AC0: 28 51 29 2C 32 29 3A 8E 00 F0 12 4C 04 44 B2 56 |(Q),2):....L.D.V|
00000AD0: AA B5 28 BB 28 32 29 AC 28 44 44 AB 56 29 29 3A |..(.(2).(DD.V)):|
00000AE0: 51 B2 B5 28 44 AD 56 29 3A 52 B2 44 AB 51 AC 56 |Q..(D.V):R.D.Q.V|
00000AF0: 00 14 13 56 04 52 41 24 B2 C4 28 51 29 AA 22 20 |...V.RA$..(Q)." |
00000B00: 57 49 54 48 20 52 45 4D 41 49 4E 44 45 52 22 AA |WITH REMAINDER".|
00000B10: C4 28 52 29 00 1A 13 14 05 8E 00 42 13 10 27 99 |.(R).......B..'.|
00000B20: 22 93 22 3B A3 B5 28 28 34 30 AB C3 28 54 54 24 |".";..((40..(TT$|
00000B30: 29 29 AD 32 29 29 3B 22 12 22 3B 54 54 24 3B 22 |)).2));".";TT$;"|
00000B40: 92 22 00 65 13 15 27 99 22 11 23 22 3B 4E 51 3B |.".e..'.".#";NQ;|
00000B50: A3 31 39 29 3B 48 4D 3B 22 49 54 45 4D 20 44 52 |.19);HM;"ITEM DR|
00000B60: 49 4C 4C 11 22 00 7E 13 1B 27 99 22 4F 50 54 49 |ILL.".~..'."OPTI|
00000B70: 4F 4E 3A 20 20 22 3B 43 48 24 3B 22 11 22 00 A4 |ON: ";CH$;"."..|
00000B80: 13 2E 27 99 22 11 11 11 11 22 3B A3 31 32 29 3B |..'."....";.12);|
00000B90: 22 A5 9D 11 A5 9D 91 91 CF A3 A3 A3 A3 A3 A3 A3 |"...............|
00000BA0: A3 A3 A3 22 00 DC 13 33 27 99 A3 31 31 AB C3 28 |..."...3'..11..(|
00000BB0: C4 28 56 29 29 29 3B 56 3B 22 1D 22 3B 44 3B 22 |.(V)));V;".";D;"|
00000BC0: 91 91 22 3B C8 28 22 9D 9D 9D 9D 9D 9D 9D 9D 9D |..";.(".........|
00000BD0: 9D 22 2C C3 28 C4 28 51 29 29 29 3B 00 E2 13 3B |.",.(.(Q)));...;|
00000BE0: 28 8E 00 F6 13 3C 28 8D 39 30 30 3A 8D 39 31 30 |(....<(.900:.910|
00000BF0: 3A 4D 54 B2 54 49 00 FF 13 46 28 4B 4C B2 31 00 |:MT.TI...F(KL.1.|
00000C00: 13 14 47 28 8F 23 4D 20 53 54 41 52 54 53 20 48 |..G(.#M STARTS H|
00000C10: 45 52 45 00 1E 14 48 28 41 4E 24 B2 22 22 00 34 |ERE...H(AN$."".4|
00000C20: 14 49 28 A1 41 24 3A 8B 41 24 B3 B1 22 22 A7 31 |.I(.A$:.A$.."".1|
00000C30: 30 33 33 30 00 47 14 4A 28 99 22 12 20 92 9D 22 |0330.G.J(.". .."|
00000C40: 3B 3A 4D 55 B2 54 49 00 5B 14 4B 28 8B 54 49 AB |;:MU.TI.[.K(.TI.|
00000C50: 4D 55 B3 31 30 A7 31 30 33 31 35 00 71 14 4C 28 |MU.10.10315.q.L(|
00000C60: A1 41 24 3A 8B 41 24 B3 B1 22 22 A7 31 30 33 33 |.A$:.A$.."".1033|
00000C70: 30 00 82 14 4D 28 99 22 20 9D 22 3B 3A 4D 55 B2 |0...M(." .";:MU.|
00000C80: 54 49 00 96 14 4E 28 8B 54 49 AB 4D 55 B3 31 30 |TI...N(.TI.MU.10|
00000C90: A7 31 30 33 31 38 00 A1 14 4F 28 89 31 30 33 31 |.10318...O(.1031|
00000CA0: 33 00 BC 14 5A 28 8B C6 28 41 24 29 B2 31 33 AF |3...Z(..(A$).13.|
00000CB0: 41 4E 24 B2 22 22 A7 31 30 33 31 33 00 D7 14 5B |AN$."".10313...[|
00000CC0: 28 8B C6 28 41 24 29 B2 32 30 AF 41 4E 24 B2 22 |(..(A$).20.AN$."|
00000CD0: 22 A7 31 30 33 31 33 00 01 15 5C 28 8B C6 28 41 |".10313...\(..(A|
00000CE0: 24 29 B2 32 30 AF C3 28 41 4E 24 29 B2 31 A7 41 |$).20..(AN$).1.A|
00000CF0: 4E 24 B2 22 22 3A 99 41 24 3B 3A 89 31 30 33 31 |N$."":.A$;:.1031|
00000D00: 33 00 2F 15 5D 28 8B C6 28 41 24 29 B2 32 30 A7 |3./.](..(A$).20.|
00000D10: 99 41 24 3B 3A 41 4E 24 B2 C8 28 41 4E 24 2C C3 |.A$;:AN$..(AN$,.|
00000D20: 28 41 4E 24 29 AB 31 29 3A 89 31 30 33 31 33 00 |(AN$).1):.10313.|
00000D30: 43 15 5E 28 8B C6 28 41 24 29 B2 31 33 A7 31 30 |C.^(..(A$).13.10|
00000D40: 33 35 30 00 4C 15 5F 28 49 49 B2 31 00 77 15 60 |350.L._(II.1.w.`|
00000D50: 28 8B 41 24 B2 CA 28 4C 41 24 2C 49 49 2C 31 29 |(.A$..(LA$,II,1)|
00000D60: A7 99 41 24 3B 3A 41 4E 24 B2 41 4E 24 AA 41 24 |..A$;:AN$.AN$.A$|
00000D70: 3A 89 31 30 33 31 33 00 95 15 61 28 49 49 B2 49 |:.10313...a(II.I|
00000D80: 49 AA 31 3A 8B 49 49 B3 B2 C3 28 4C 41 24 29 A7 |I.1:.II...(LA$).|
00000D90: 31 30 33 33 36 00 A0 15 62 28 89 31 30 33 31 33 |10336...b(.10313|
00000DA0: 00 AA 15 6E 28 99 22 20 22 3B 00 B8 15 6F 28 8B |...n(." ";...o(.|
00000DB0: 4B 4C B2 34 A7 99 3A 8E 00 DB 15 73 28 8B 4B 4C |KL.4..:....s(.KL|
00000DC0: B2 32 B0 43 48 24 B2 22 41 22 A7 99 3A 99 22 11 |.2.CH$."A"..:.".|
00000DD0: 11 11 11 22 3A 89 31 30 33 39 39 00 FD 15 75 28 |...":.10399...u(|
00000DE0: 8B 41 4E 24 B2 22 55 4E 43 4C 45 22 A7 99 3A 99 |.AN$."UNCLE"..:.|
00000DF0: 22 11 11 11 11 22 3A 89 31 30 33 39 39 00 28 16 |"....":.10399.(.|
00000E00: 78 28 4B 4C B2 32 3A 51 41 24 B2 41 4E 24 3A 99 |x(KL.2:QA$.AN$:.|
00000E10: 22 20 20 52 45 4D 41 49 4E 44 45 52 3A 20 20 22 |" REMAINDER: "|
00000E20: 3B 3A 89 31 30 33 31 32 00 3F 16 9F 28 41 54 B2 |;:.10312.?..(AT.|
00000E30: 41 54 AA 54 49 AB 4D 54 3A 8D 39 32 30 3A 8E 00 |AT.TI.MT:.920:..|
00000E40: 5A 16 F8 2A 8F 20 44 45 43 49 44 45 20 41 4E 53 |Z..*. DECIDE ANS|
00000E50: 57 45 52 20 53 54 41 54 55 53 00 6C 16 F9 2A 8F |WER STATUS.l..*.|
00000E60: 20 52 49 47 48 54 2D 2D 43 44 3D 31 00 7E 16 FA | RIGHT--CD=1.~..|
00000E70: 2A 8F 20 57 52 4F 4E 47 2D 2D 43 44 3D 32 00 90 |*. WRONG--CD=2..|
00000E80: 16 FB 2A 8F 20 43 4C 4F 53 45 2D 2D 43 44 3D 33 |..*. CLOSE--CD=3|
00000E90: 00 A2 16 FC 2A 8F 20 55 4E 43 4C 45 2D 2D 43 44 |....*. UNCLE--CD|
00000EA0: 3D 34 00 BA 16 07 2B 8B 41 4E 24 B2 22 55 4E 43 |=4....+.AN$."UNC|
00000EB0: 4C 45 22 A7 43 44 B2 34 3A 8E 00 CD 16 0C 2B 8B |LE".CD.4:.....+.|
00000EC0: 43 48 24 B2 22 42 22 A7 31 31 31 30 30 00 E2 16 |CH$."B".11100...|
00000ED0: 11 2B 8B 51 B2 C5 28 41 4E 24 29 A7 43 44 B2 31 |.+.Q..(AN$).CD.1|
00000EE0: 3A 8E 00 ED 16 16 2B 43 44 B2 32 3A 8E 00 03 17 |:.....+CD.2:....|
00000EF0: 5C 2B 8B 51 B3 B1 C5 28 51 41 24 29 A7 43 44 B2 |\+.Q...(QA$).CD.|
00000F00: 32 3A 8E 00 19 17 66 2B 8B 52 B3 B1 C5 28 41 4E |2:....f+.R...(AN|
00000F10: 24 29 A7 43 44 B2 33 3A 8E 00 24 17 70 2B 43 44 |$).CD.3:..$.p+CD|
00000F20: B2 31 3A 8E 00 3A 17 20 4E 8F 20 4D 45 53 53 41 |.1:..:. N. MESSA|
00000F30: 47 45 20 53 45 43 54 49 4F 4E 00 63 17 21 4E 8F |GE SECTION.c.!N.|
00000F40: 20 53 45 4C 45 43 54 20 56 41 4C 55 45 20 4F 46 | SELECT VALUE OF|
00000F50: 20 43 44 20 54 4F 20 50 49 43 4B 20 4D 45 53 53 | CD TO PICK MESS|
00000F60: 41 47 45 00 7F 17 25 4E 8B 48 4D B1 34 AF 4E 43 |AGE...%N.HM.4.NC|
00000F70: AA 4E 46 B3 48 4D AD 32 A7 43 44 B2 33 3A 8E 00 |.NF.HM.2.CD.3:..|
00000F80: 97 17 26 4E 8B 48 4D B3 35 AF 53 43 B2 31 30 30 |..&N.HM.5.SC.100|
00000F90: A7 43 44 B2 32 3A 8E 00 A8 17 27 4E 8B 48 4D B3 |.CD.2:....'N.HM.|
00000FA0: 35 A7 43 44 B2 31 3A 8E 00 BA 17 28 4E 8B 4E 43 |5.CD.1:....(N.NC|
00000FB0: B2 48 4D A7 43 44 B2 34 3A 8E 00 CF 17 29 4E 8B |.HM.CD.4:....)N.|
00000FC0: 4E 43 AA 4E 46 B2 48 4D A7 43 44 B2 32 3A 8E 00 |NC.NF.HM.CD.2:..|
00000FD0: D8 17 84 4E 43 44 B2 31 00 DE 17 07 52 8E 00 FE |...NCD.1....R...|
00000FE0: 17 08 52 91 43 44 89 32 31 30 31 30 2C 32 31 30 |..R.CD.21010,210|
00000FF0: 31 31 2C 32 31 30 31 32 2C 32 31 30 31 33 00 04 |11,21012,21013..|
00001000: 18 12 52 8E 00 25 18 13 52 99 22 11 22 3B A3 31 |..R..%..R.".";.1|
00001010: 33 29 3B 22 2D 2D 57 45 4C 4C 20 44 4F 4E 45 2D |3);"--WELL DONE-|
00001020: 2D 11 22 3A 8E 00 53 18 14 52 99 22 11 22 3B A3 |-.":..S..R.".";.|
00001030: 37 29 3B 22 47 45 54 20 48 45 4C 50 20 46 52 4F |7);"GET HELP FRO|
00001040: 4D 20 59 4F 55 52 20 54 45 41 43 48 45 52 21 11 |M YOUR TEACHER!.|
00001050: 22 3A 8E 00 5C 18 15 52 99 22 11 22 00 74 18 16 |":..\..R.".".t..|
00001060: 52 99 A3 31 34 29 3B 22 D3 D3 D3 D3 D3 D3 D3 D3 |R..14);"........|
00001070: D3 D3 D3 22 00 8C 18 17 52 99 A3 31 34 29 3B 22 |..."....R..14);"|
00001080: D3 46 41 4E 54 41 53 54 49 43 D3 22 00 A4 18 18 |.FANTASTIC."....|
00001090: 52 99 A3 31 34 29 3B 22 D3 D3 D3 D3 D3 D3 D3 D3 |R..14);"........|
000010A0: D3 D3 D3 22 00 AC 18 19 52 99 3A 8E 00 00 00 49 |..."....R.:....I|
......LA$."0123456789UNCLE".(...X..(.TI)
.N...TT$."DIVISION OF NATURAL NUMBERS".V
....".";..((40.C(TT$)).2));".";TT$;"."..
....".";.12);"BY D. S. COOPER"......".";
.12);"SCHREIBER, 1980"......".....IF YOU
WISH TO GIVE UP ON"......"A PARTICULAR
QUESTION,".$....".JUST TYPE 'UNCLE' AS Y
OUR ANSWER.".?...."...................".
H.C..110.L.D..".PRESS .RETURN. TO CONTIN
UE."..E..A$:.A$."".101...F..F(A$)..13.1
01...G.."..STAND BY.":....N..100...X.KL.
4...}..".";..((40.C(TT$)).2));".";TT$;".
":.#A...~..".OPTIONS:."......"A) NO REMA
INDER".+...."B) REMAINDER POSSIBLE".V...
.".PRESS THE .LETTER. OF YOUR CHOICE.".I
....A$:.A$."".150......F(A$).65.F(A$).66
.150.....CH$.A$:.CH$.A.H..".HOW BIG CAN
THE DIVISOR BE? ";:.10312...M.DV.E(AN$):
.DV.2.."..ILLEGAL--TRY AGAIN!":.200...R.
.CH$."A".230.2.W..".HOW BIG CAN THE DIVI
DEND BE? ";:.10312.E...DD.E(AN$):.DD.DV.
."..ILLEGAL--TRY AGAIN!":.215.N....300..
....".HOW BIG CAN THE QUOTIENT BE? ";:.1
0312.N...QQ.E(AN$):.QQ.2.."..ILLEGAL--TR
Y AGAIN!":.230...,..".HOW MANY ITEMS DO
YOU WANT IN THIS DRILL";:.10312:HM.E(AN$
).$.6..HM...(HM).350.2.;..HM.1.350.@.Y.K
L.1:.360.`.^.."..ILLEGAL RESPONSE.":.300
...H.NQ.1:AT.0:NW.0:NC.0:NF.0:MK.0...M..
"..STAND BY."...O.. DO A GOSUB TO SET UP
TEST...R..1000.J.|..10000.U....10300...
...11000......CD.420,500,550,610......NW
.0.NC.NC.1......NW.0.NF.NF.1./....NW.1.M
K.MK..5.C....NW.2.MK.MK..25.X...."..RIGH
T.":.100.T...NQ.NQ.1:NW.0:.NQ.HM.700.}.B
..370......".WRONG. ";:NW.NW.1......NW.
3.600.......O....".THE CORRECT ANSWER IS
:":.RA$......100:.440...&..".CLOSE! ";:
NW.NW.1:.510...X.."TRY AGAIN.".3.]..910:
MT.TI:.100:AT.AT.TI.MT:.380.A.B.NW.3:.52
0.I....".";..((40.C(TT$)).2));".";TT$;".
".~.A.. OPTION MESSAGE...B..".OPTION(S):
";CH$:.#A...F.SC..((NC.100.HM..05).10)
.10...G.MK..(((NC.MK).100.HM..05).10).10
...K.MN..(AT.3600):SN.(AT.3600.MN).60:SD
..((SN..05).10).10.Z.P.T2..(((AT.60).HM.
.05).10).10:T3..((NC.(AT.3600)..05).10).
10...Z..".THIS DRILL HAD";HM;"QUESTIONS,
"......"YOU CORRECTLY ANSWERED";NC.I....
"YOUR SCORE IS .";J(D(SC),2);".%".W....N
F.0.760......"..(ALSO, YOU RECOVERED FRO
M";NF.+...."...AN ADJUSTED SCORE WOULD B
E";MK;".%)".I....".TOTAL TIME TAKEN WAS"
;.W....MN.0.775.Q....MN;"MINUTES,":..20)
;......SD;"SECONDS."......"THAT'S .";J(D
(T2),2);". SECONDS PER QUESTION."......"
YOU DID";T3;"CORRECT ANSWERS PER MINUTE.
"... ..20000:.21000.B.%..".DO YOU WANT T
HE SAME OPTION(S) (Y OR N)?":. ?&810-840
?&GOTO110?.U.*..A$:.A$."".810.E.4..A$."N
".120.{.>..A$."Y"..".":.300...H..810....
..33747,3:.33748,12:.33749,15:.33750,3:.
33751,11.Q....33753,9:.33754,19:.......3
3756,18:.33757,21:.33758,14:.33759,14:.3
3760,9.)....33761,14:.33762,7:.:. RUNNIN
G.H....I9.33756.33762:.I9,32:.I9.P....33
756,15:.33757,6:.33758,6:.:. OFF.....V.1
..(DV..(1)):.V.1.1000......CH$."B".1100.
H...Q.1..(QQ..(1)):D.V.Q:RA$.J(D(Q),2):.
...L.D.V..(.(2).(DD.V)):Q..(D.V):R.D.Q.V
...V.RA$.D(Q)." WITH REMAINDER".D(R)....
...B..'.".";..((40.C(TT$)).2));".";TT$;"
.".E..'.".#";NQ;.19);HM;"ITEM DRILL.".~.
.'."OPTION: ";CH$;"."....'."....";.12);
".......O.........."...3'..11.C(D(V)));V
;".";D;"..";H("..........",C(D(Q)));...;
(....<(.900:.910:MT.TI...F(KL.1...G(.#M
STARTS HERE...H(AN$."".4.I(.A$:.A$.."".1
0330.G.J(.". ..";:MU.TI.[.K(.TI.MU.10.10
315.Q.L(.A$:.A$.."".10330...M(." .";:MU.
TI...N(.TI.MU.10.10318...O(.10313...Z(.F
(A$).13.AN$."".10313.W.[(.F(A$).20.AN$."
".10313...\(.F(A$).20.C(AN$).1.AN$."":.A
$;:.10313./.](.F(A$).20..A$;:AN$.H(AN$,C
(AN$).1):.10313.C.^(.F(A$).13.10350.L._(
II.1.W.`(.A$.J(LA$,II,1)..A$;:AN$.AN$.A$
:.10313...A(II.II.1:.II..C(LA$).10336. .
B(.10313...N(." ";...O(.KL.4..:....S(.KL
.2.CH$."A"..:."....":.10399...U(.AN$."UN
CLE"..:."....":.10399.(.X(KL.2:QA$.AN$:.
" REMAINDER: ";:.10312.?..(AT.AT.TI.MT
:.920:..Z..*. DECIDE ANSWER STATUS.L..*.
RIGHT--CD=1.~..*. WRONG--CD=2....*. CLO
SE--CD=3....*. UNCLE--CD=4....+.AN$."UNC
LE".CD.4:..M..+.CH$."B".11100....+.Q.E(A
N$).CD.1:.....+CD.2:....\+.Q..E(QA$).CD.
2:....F+.R..E(AN$).CD.3:..$.P+CD.1:..:.
N. MESSAGE SECTION.C.!N. SELECT VALUE OF
CD TO PICK MESSAGE..%N.HM.4.NC.NF.HM.2
.CD.3:....&N.HM.5.SC.100.CD.2:....'N.HM.
5.CD.1:....(N.NC.HM.CD.4:..O.)N.NC.NF.HM
.CD.2:..X..NCD.1....R.....R.CD.21010,210
11,21012,21013....R..%..R.".";.13);"--WE
LL DONE--.":..S..R.".";.7);"GET HELP FRO
M YOUR TEACHER!.":..\..R.".".T..R..14);"
SSSSSSSSSSS"....R..14);"SFANTASTICS"....
R..14);"SSSSSSSSSSS"....R.:....I
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL