MA021 AUTO ADD
FILE INFORMATION
FILENAME(S): MA021 AUTO ADD
FILE TYPE(S): PRG
FILE SIZE: 7.6K
FIRST SEEN: 2025-11-30 01:08:42
APPEARS ON: 2 disk(s)
FILE HASH
7c2ed808ef590538125590fa0d3fde4d50a5304b499602655aa69dbf8102b64c
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREESOFT DISK NR | MA021 AUTO ADD | PRG | Treasure Chest - Wolfgang Rauprich | 30 | 7 | DOWNLOAD FILE |
| L EHRNEN | MA021 AUTO ADD | PRG | Treasure Chest - Wolfgang Rauprich | 30 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0F 08 28 00 97 35 39 34 36 38 2C 31 32 00 |....(..59468,12.|
00000010: 40 08 32 00 44 45 24 B2 22 20 20 20 20 20 20 20 |@.2.DE$." |
00000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
00000040: 00 70 08 64 00 99 22 93 12 20 20 20 20 20 20 20 |.p.d..".. |
00000050: 20 20 20 41 55 54 4F 2D 41 44 44 2D 54 45 41 43 | AUTO-ADD-TEAC|
00000060: 48 45 52 20 20 20 20 20 20 20 20 20 20 11 11 22 |HER .."|
00000070: 00 9C 08 6E 00 99 22 54 48 49 53 20 50 52 4F 47 |...n.."THIS PROG|
00000080: 52 41 4D 4D 45 20 41 55 54 4F 4D 41 54 49 43 41 |RAMME AUTOMATICA|
00000090: 4C 4C 59 20 43 48 41 4E 47 45 53 22 00 C9 08 78 |LLY CHANGES"...x|
000000A0: 00 99 22 4C 45 56 45 4C 20 41 46 54 45 52 20 53 |.."LEVEL AFTER S|
000000B0: 49 58 20 53 55 4D 53 20 57 49 54 48 4F 55 54 20 |IX SUMS WITHOUT |
000000C0: 4D 49 53 54 41 4B 45 53 22 00 F4 08 82 00 99 22 |MISTAKES"......"|
000000D0: 4F 46 20 41 4E 59 20 4B 49 4E 44 20 4F 54 48 45 |OF ANY KIND OTHE|
000000E0: 52 57 49 53 45 20 49 54 20 52 45 4D 41 49 4E 53 |RWISE IT REMAINS|
000000F0: 20 4F 4E 22 00 21 09 8C 00 99 22 54 48 45 20 53 | ON".!...."THE S|
00000100: 41 4D 45 20 4C 45 56 45 4C 2E 41 54 20 54 48 45 |AME LEVEL.AT THE|
00000110: 20 45 4E 44 20 4F 46 20 41 20 53 45 54 20 4F 46 | END OF A SET OF|
00000120: 22 00 4D 09 96 00 99 22 54 45 4E 20 47 52 4F 55 |".M...."TEN GROU|
00000130: 50 53 20 4F 46 20 53 49 58 20 53 55 4D 53 20 49 |PS OF SIX SUMS I|
00000140: 54 20 57 49 4C 4C 20 50 52 49 4E 54 22 00 78 09 |T WILL PRINT".x.|
00000150: A0 00 99 22 41 20 54 45 41 43 48 45 52 53 20 52 |..."A TEACHERS R|
00000160: 45 50 4F 52 54 20 53 48 4F 57 49 4E 47 20 53 43 |EPORT SHOWING SC|
00000170: 4F 52 45 53 20 41 54 22 00 8B 09 AA 00 99 22 45 |ORES AT"......"E|
00000180: 41 43 48 20 4C 45 56 45 4C 2E 22 00 93 09 B4 00 |ACH LEVEL.".....|
00000190: 99 3A 99 00 A0 09 BE 00 99 22 4C 45 56 45 4C 22 |.:......."LEVEL"|
000001A0: 00 CA 09 C8 00 99 22 1D 1D 31 2E 41 44 44 49 4E |......"..1.ADDIN|
000001B0: 47 20 57 49 54 48 20 54 4F 54 41 4C 53 20 55 50 |G WITH TOTALS UP|
000001C0: 20 54 4F 20 46 49 56 45 2E 22 00 F4 09 D2 00 99 | TO FIVE."......|
000001D0: 22 1D 1D 32 2E 41 44 44 49 4E 47 20 57 49 54 48 |"..2.ADDING WITH|
000001E0: 20 54 4F 54 41 4C 53 20 55 50 20 54 4F 20 4E 49 | TOTALS UP TO NI|
000001F0: 4E 45 2E 22 00 22 0A DC 00 99 22 1D 1D 33 2E 41 |NE."."...."..3.A|
00000200: 44 44 49 4E 47 20 57 49 54 48 20 54 4F 54 41 4C |DDING WITH TOTAL|
00000210: 53 20 42 45 54 57 45 45 4E 20 31 30 20 41 4E 44 |S BETWEEN 10 AND|
00000220: 20 22 00 45 0A E6 00 99 22 1D 1D 20 20 31 39 20 | ".E....".. 19 |
00000230: 41 4C 57 41 59 53 20 43 41 52 52 59 49 4E 47 20 |ALWAYS CARRYING |
00000240: 54 45 4E 2E 22 00 71 0A F0 00 99 22 1D 1D 34 2E |TEN.".q...."..4.|
00000250: 41 44 44 20 54 57 4F 20 4E 55 4D 42 45 52 53 20 |ADD TWO NUMBERS |
00000260: 42 45 54 57 45 45 4E 20 30 20 41 4E 44 20 31 39 |BETWEEN 0 AND 19|
00000270: 2E 00 9A 0A FA 00 99 22 1D 1D 35 2E 41 44 44 20 |......."..5.ADD |
00000280: 54 48 52 45 45 20 4E 55 4D 42 45 52 53 20 54 4F |THREE NUMBERS TO|
00000290: 54 41 4C 20 3C 20 31 30 2E 22 00 C3 0A 04 01 99 |TAL < 10."......|
000002A0: 22 1D 1D 36 2E 41 44 44 20 54 48 52 45 45 20 4E |"..6.ADD THREE N|
000002B0: 55 4D 42 45 52 53 20 54 4F 54 41 4C 20 3C 20 31 |UMBERS TOTAL < 1|
000002C0: 39 2E 22 00 EC 0A 0E 01 99 22 1D 1D 37 2E 41 44 |9."......"..7.AD|
000002D0: 44 20 54 48 52 45 45 20 4E 55 4D 42 45 52 53 20 |D THREE NUMBERS |
000002E0: 54 4F 54 41 4C 20 3C 20 34 35 2E 22 00 15 0B 18 |TOTAL < 45."....|
000002F0: 01 99 22 1D 1D 38 2E 41 44 44 20 54 48 52 45 45 |.."..8.ADD THREE|
00000300: 20 4E 55 4D 42 45 52 53 20 54 4F 54 41 4C 20 3C | NUMBERS TOTAL <|
00000310: 20 39 39 2E 22 00 29 0B 22 01 86 52 43 28 32 30 | 99.".)."..RC(20|
00000320: 29 3A 86 4C 56 28 32 30 29 00 33 0B 2C 01 8D 32 |):.LV(20).3.,..2|
00000330: 36 31 30 00 6A 0B 36 01 44 24 B2 22 13 12 11 11 |610.j.6.D$."....|
00000340: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000350: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000360: 11 11 11 22 3A 8D 32 33 32 30 00 77 0B 40 01 53 |...":.2320.w.@.S|
00000370: 24 B2 22 54 45 4E 22 00 99 0B 4A 01 85 22 11 20 |$."TEN"...J..". |
00000380: 20 43 48 4F 4F 53 45 20 53 54 41 52 54 49 4E 47 | CHOOSE STARTING|
00000390: 20 4C 45 56 45 4C 22 3B 4C 00 B4 0B 4F 01 8B 4C | LEVEL";L...O..L|
000003A0: B1 38 A7 3A 99 22 91 22 44 45 24 22 91 91 22 3A |.8.:."."DE$"..":|
000003B0: 89 33 33 30 00 C3 0B 54 01 8D 32 33 32 30 3A 99 |.330...T..2320:.|
000003C0: 22 93 22 00 D9 0B 5E 01 8D 34 31 30 3A 8F 20 52 |"."...^..410:. R|
000003D0: 45 56 20 4C 20 53 49 44 45 00 F2 0B 68 01 8D 34 |EV L SIDE...h..4|
000003E0: 34 30 3A 8F 20 43 4C 20 52 49 47 48 54 20 53 49 |40:. CL RIGHT SI|
000003F0: 44 45 00 FB 0B 72 01 89 34 37 30 00 04 0C 7C 01 |DE...r..470...|.|
00000400: 99 22 93 22 00 0D 0C 86 01 99 22 13 22 00 13 0C |."."......"."...|
00000410: 90 01 8E 00 3A 0C 9A 01 8F 2D 2D 2D 2D 53 55 42 |....:....----SUB|
00000420: 54 4F 20 52 45 56 20 4C 45 46 54 20 53 49 44 45 |TO REV LEFT SIDE|
00000430: 20 4F 46 20 53 43 52 45 45 4E 00 66 0C A4 01 97 | OF SCREEN.f....|
00000440: 38 33 36 2C 30 30 3A 97 38 32 39 2C 32 34 3A 97 |836,00:.829,24:.|
00000450: 38 33 33 2C 31 36 30 3A 97 38 33 31 2C 32 30 3A |833,160:.831,20:|
00000460: 9E 28 38 32 36 29 00 6C 0C AE 01 8E 00 94 0C B8 |.(826).l........|
00000470: 01 8F 2D 53 55 42 20 54 4F 20 43 4C 45 41 52 20 |..-SUB TO CLEAR |
00000480: 52 49 47 48 54 20 53 49 44 45 20 4F 46 20 53 43 |RIGHT SIDE OF SC|
00000490: 52 45 45 4E 00 BF 0C C2 01 97 38 33 36 2C 32 30 |REEN......836,20|
000004A0: 3A 97 38 32 39 2C 32 34 3A 97 38 33 33 2C 33 32 |:.829,24:.833,32|
000004B0: 3A 97 38 33 31 2C 31 39 3A 9E 28 38 32 36 29 00 |:.831,19:.(826).|
000004C0: C5 0C CC 01 8E 00 EA 0C D6 01 8F 2D 53 55 42 20 |...........-SUB |
000004D0: 54 4F 20 43 48 4F 4F 53 45 20 41 4E 44 20 53 54 |TO CHOOSE AND ST|
000004E0: 52 24 20 4E 55 4D 42 45 52 53 00 FB 0C E0 01 8B |R$ NUMBERS......|
000004F0: 46 35 B2 35 A7 3A 8D 32 32 34 30 00 0D 0D EA 01 |F5.5.:.2240.....|
00000500: 4E 31 B2 B5 28 BB 28 31 29 AC 56 31 29 00 1B 0D |N1..(.(1).V1)...|
00000510: F4 01 4E 31 24 B2 C4 28 4E 31 29 00 2C 0D FE 01 |..N1$..(N1).,...|
00000520: 55 31 24 B2 C9 28 4E 31 24 2C 31 29 00 3A 0D 08 |U1$..(N1$,1).:..|
00000530: 02 55 31 B2 C5 28 55 31 24 29 00 4D 0D 12 02 54 |.U1..(U1$).M...T|
00000540: 31 24 B2 CA 28 4E 31 24 2C 32 2C 31 29 00 5B 0D |1$..(N1$,2,1).[.|
00000550: 1C 02 54 31 B2 C5 28 54 31 24 29 00 75 0D 26 02 |..T1..(T1$).u.&.|
00000560: 8B 4E 31 B3 31 30 A7 3A 54 31 24 B2 22 12 20 22 |.N1.10.:T1$.". "|
00000570: 3A 54 31 B2 30 00 87 0D 30 02 4E 32 B2 B5 28 BB |:T1.0...0.N2..(.|
00000580: 28 31 29 AC 56 32 29 00 9C 0D 3A 02 8B 4E 31 AA |(1).V2)...:..N1.|
00000590: 4E 32 AA 4E 33 B1 56 34 A7 34 38 30 00 B1 0D 44 |N2.N3.V4.480...D|
000005A0: 02 8B 4E 31 AA 4E 32 AA 4E 33 B3 56 35 A7 34 38 |..N1.N2.N3.V5.48|
000005B0: 30 00 BF 0D 4E 02 4E 32 24 B2 C4 28 4E 32 29 00 |0...N.N2$..(N2).|
000005C0: D0 0D 58 02 55 32 24 B2 C9 28 4E 32 24 2C 31 29 |..X.U2$..(N2$,1)|
000005D0: 00 DE 0D 62 02 55 32 B2 C5 28 55 32 24 29 00 EE |...b.U2..(U2$)..|
000005E0: 0D 6C 02 55 54 B2 55 31 AA 55 32 AA 55 33 00 01 |.l.UT.U1.U2.U3..|
000005F0: 0E 76 02 54 32 24 B2 CA 28 4E 32 24 2C 32 2C 31 |.v.T2$..(N2$,2,1|
00000600: 29 00 0F 0E 80 02 54 32 B2 C5 28 54 32 24 29 00 |).....T2..(T2$).|
00000610: 29 0E 8A 02 8B 4E 32 B3 31 30 A7 3A 54 32 24 B2 |)....N2.10.:T2$.|
00000620: 22 12 20 22 3A 54 32 B2 30 00 49 0E 94 02 8B 55 |". ":T2.0.I....U|
00000630: 54 B1 39 A7 3A 46 31 B2 31 3A 43 24 B2 22 31 22 |T.9.:F1.1:C$."1"|
00000640: 3A 53 24 B2 22 54 45 4E 22 00 66 0E 9E 02 8B 55 |:S$."TEN".f....U|
00000650: 54 B1 31 39 A7 3A 43 24 B2 22 32 22 3A 53 24 B2 |T.19.:C$."2":S$.|
00000660: 22 54 45 4E 53 22 00 75 0E A8 02 8F 2A 2A 2A 52 |"TENS".u....***R|
00000670: 45 54 55 52 4E 00 8E 0E B2 02 8F 2D 54 4F 20 50 |ETURN......-TO P|
00000680: 52 49 4E 54 20 54 4F 20 53 43 52 45 45 4E 00 9A |RINT TO SCREEN..|
00000690: 0E BC 02 4E 55 B2 4E 55 AA 31 00 A4 0E C6 02 53 |...NU.NU.1.....S|
000006A0: 50 B2 31 30 00 B4 0E D0 02 8B 46 31 B2 31 A7 3A |P.10......F1.1.:|
000006B0: 53 50 B2 39 00 D0 0E DA 02 99 C8 28 44 24 2C 33 |SP.9.......(D$,3|
000006C0: 29 A6 35 29 22 92 20 4C 45 56 45 4C 20 22 3B 4C |).5)". LEVEL ";L|
000006D0: 00 DF 0E E4 02 46 34 B2 31 3A 8D 32 31 37 30 00 |.....F4.1:.2170.|
000006E0: FF 0E EE 02 99 C8 28 44 24 2C 35 29 22 20 20 20 |......(D$,5)" |
000006F0: 53 55 4D 20 4E 55 4D 42 45 52 20 22 3B 4E 55 00 |SUM NUMBER ";NU.|
00000700: 21 0F F8 02 99 C8 28 44 24 2C 38 29 22 20 20 20 |!.....(D$,8)" |
00000710: 20 54 45 4E 53 20 20 20 55 4E 49 54 53 20 20 20 | TENS UNITS |
00000720: 22 00 4B 0F 02 03 99 C8 28 44 24 2C 31 30 29 22 |".K.....(D$,10)"|
00000730: 20 20 20 20 20 20 22 54 33 24 22 20 20 20 20 20 | "T3$" |
00000740: 20 22 55 33 24 22 20 20 20 20 22 00 75 0F 0C 03 | "U3$" ".u...|
00000750: 99 C8 28 44 24 2C 31 32 29 22 20 20 20 20 20 20 |..(D$,12)" |
00000760: 22 54 31 24 22 20 20 20 20 20 20 22 55 31 24 22 |"T1$" "U1$"|
00000770: 20 20 20 20 22 00 9F 0F 16 03 99 C8 28 44 24 2C | ".......(D$,|
00000780: 31 34 29 22 20 20 20 2B 20 20 22 54 32 24 22 20 |14)" + "T2$" |
00000790: 20 20 20 20 20 22 55 32 24 22 20 20 20 20 22 00 | "U2$" ".|
000007A0: BF 0F 20 03 99 C8 28 44 24 2C 31 36 29 22 20 20 |.. ...(D$,16)" |
000007B0: 20 20 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 22 00 | ............".|
000007C0: E3 0F 2A 03 99 C8 28 44 24 2C 31 37 29 22 20 20 |..*...(D$,17)" |
000007D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000007E0: 20 20 22 00 07 10 34 03 99 C8 28 44 24 2C 31 39 | "...4...(D$,19|
000007F0: 29 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |)" |
00000800: 20 20 20 20 20 20 22 00 2A 10 3E 03 99 C8 28 44 | ".*.>...(D|
00000810: 24 2C 32 31 29 22 20 20 20 20 59 4F 55 52 20 53 |$,21)" YOUR S|
00000820: 43 4F 52 45 20 49 53 20 20 22 00 4C 10 48 03 99 |CORE IS ".L.H..|
00000830: C8 28 44 24 2C 32 33 29 22 20 20 20 22 53 43 22 |.(D$,23)" "SC"|
00000840: 20 4F 55 54 20 4F 46 20 36 20 20 22 00 5F 10 52 | OUT OF 6 "._.R|
00000850: 03 8F 2D 2D 49 4E 50 55 54 20 55 4E 49 54 53 00 |..--INPUT UNITS.|
00000860: 70 10 5C 03 8F 2D 2D 47 45 54 20 55 4E 49 54 53 |p.\..--GET UNITS|
00000870: 00 87 10 66 03 8D 32 30 33 30 3A 41 55 24 B2 49 |...f..2030:AU$.I|
00000880: 24 3A 49 24 B2 22 22 00 98 10 70 03 43 4F 24 B2 |$:I$.""...p.CO$.|
00000890: 22 20 55 4E 49 54 53 22 00 C5 10 7A 03 8B C5 28 |" UNITS"...z...(|
000008A0: 41 55 24 29 B2 55 54 A7 3A 8D 34 34 30 3A 8D 31 |AU$).UT.:.440:.1|
000008B0: 37 38 30 3A 81 49 B2 31 A4 31 30 30 30 3A 82 3A |780:.I.1.1000:.:|
000008C0: 89 31 30 33 30 00 ED 10 84 03 8B C5 28 41 55 24 |.1030.......(AU$|
000008D0: 29 B3 B1 55 54 A7 3A 46 32 B2 31 3A 8D 39 31 30 |)..UT.:F2.1:.910|
000008E0: 3A 46 33 B2 46 33 AA 31 3A 89 38 36 30 00 0E 11 |:F3.F3.1:.860...|
000008F0: 8E 03 8F 2D 2D 50 52 49 4E 54 20 57 52 4F 4E 47 |...--PRINT WRONG|
00000900: 20 54 52 59 20 41 47 41 49 4E 20 53 55 42 00 1A | TRY AGAIN SUB..|
00000910: 11 98 03 46 33 B2 46 33 AA 31 00 23 11 A2 03 8D |...F3.F3.1.#....|
00000920: 34 34 30 00 3E 11 AC 03 8B 46 32 B2 31 A7 3A 46 |440.>....F2.1.:F|
00000930: 32 B2 30 3A 8D 31 35 32 30 3A 89 39 36 30 00 48 |2.0:.1520:.960.H|
00000940: 11 B6 03 8D 31 36 35 30 00 73 11 C0 03 8B C5 28 |....1650.s.....(|
00000950: 41 55 24 29 B3 55 54 A7 3A 99 C8 28 44 24 2C 31 |AU$).UT.:..(D$,1|
00000960: 30 29 A6 32 35 29 22 92 54 4F 4F 20 53 4D 41 4C |0).25)".TOO SMAL|
00000970: 4C 2E 22 00 9E 11 CA 03 8B C5 28 41 54 24 29 B3 |L.".......(AT$).|
00000980: 54 41 A7 3A 99 C8 28 44 24 2C 31 30 29 A6 32 35 |TA.:..(D$,10).25|
00000990: 29 22 92 54 4F 4F 20 53 4D 41 4C 4C 2E 22 00 C9 |)".TOO SMALL."..|
000009A0: 11 D4 03 8B C5 28 41 55 24 29 B1 55 54 A7 3A 99 |.....(AU$).UT.:.|
000009B0: C8 28 44 24 2C 31 30 29 A6 32 35 29 22 92 20 54 |.(D$,10).25)". T|
000009C0: 4F 4F 20 42 49 47 2E 20 22 00 F4 11 DE 03 8B C5 |OO BIG. ".......|
000009D0: 28 41 54 24 29 B1 54 41 A7 3A 99 C8 28 44 24 2C |(AT$).TA.:..(D$,|
000009E0: 31 30 29 A6 32 35 29 22 92 20 54 4F 4F 20 42 49 |10).25)". TOO BI|
000009F0: 47 2E 20 22 00 12 12 E8 03 99 C8 28 44 24 2C 31 |G. ".......(D$,1|
00000A00: 32 29 A6 32 34 29 22 92 20 20 20 20 54 52 59 20 |2).24)". TRY |
00000A10: 20 22 00 30 12 F2 03 99 C8 28 44 24 2C 31 34 29 | ".0.....(D$,14)|
00000A20: A6 32 34 29 22 92 20 20 20 41 47 41 49 4E 2E 22 |.24)". AGAIN."|
00000A30: 00 36 12 FC 03 8E 00 49 12 06 04 8F 2A 2A 2A 2A |.6.....I....****|
00000A40: 2A 2A 4D 49 53 54 41 4B 45 00 58 12 10 04 8B 46 |**MISTAKE.X....F|
00000A50: 36 B2 31 A7 31 33 34 30 00 70 12 1A 04 8F 2D 2D |6.1.1340.p....--|
00000A60: 20 43 41 52 52 59 20 54 45 4E 20 46 4C 41 53 48 | CARRY TEN FLASH|
00000A70: 00 7F 12 24 04 99 C8 28 44 24 2C 31 37 29 3B 00 |...$...(D$,17);.|
00000A80: 8A 12 2E 04 81 43 B2 31 A4 33 00 A8 12 38 04 99 |.....C.1.3...8..|
00000A90: C8 28 44 24 2C 31 36 29 A6 32 35 29 22 92 20 20 |.(D$,16).25)". |
00000AA0: 20 20 20 20 20 20 20 22 00 B6 12 42 04 81 54 B2 | "...B..T.|
00000AB0: 31 A4 37 30 3A 82 00 D7 12 4C 04 99 C8 28 44 24 |1.70:....L...(D$|
00000AC0: 2C 31 36 29 A6 32 35 29 22 43 41 52 52 59 20 22 |,16).25)"CARRY "|
00000AD0: 3B 53 24 3B 22 3F 22 00 E6 12 56 04 81 54 B2 31 |;S$;"?"...V..T.1|
00000AE0: A4 35 30 30 3A 82 00 EC 12 60 04 82 00 0C 13 6A |.500:....`.....j|
00000AF0: 04 99 C8 28 44 24 2C 31 38 29 A6 32 34 29 22 54 |...(D$,18).24)"T|
00000B00: 59 50 45 27 59 27 4F 52 27 4E 27 22 00 20 13 74 |YPE'Y'OR'N'". .t|
00000B10: 04 A1 51 24 3A 8B 51 24 B2 22 22 A7 31 31 34 30 |..Q$:.Q$."".1140|
00000B20: 00 37 13 7E 04 8B 51 24 B2 22 4E 22 AF 46 31 B2 |.7.~..Q$."N".F1.|
00000B30: 31 A7 8D 31 38 36 30 00 4F 13 88 04 8B 51 24 B2 |1..1860.O....Q$.|
00000B40: 22 59 22 AF 46 31 B2 31 A7 3A 89 31 32 30 30 00 |"Y".F1.1.:.1200.|
00000B50: 65 13 92 04 8B 51 24 B2 22 4E 22 AF 46 31 B2 30 |e....Q$."N".F1.0|
00000B60: A7 31 33 34 30 00 7C 13 9C 04 8B 51 24 B2 22 59 |.1340.|....Q$."Y|
00000B70: 22 AF 46 31 B2 30 A7 8D 31 38 36 30 00 86 13 A6 |".F1.0..1860....|
00000B80: 04 89 31 31 34 30 00 9C 13 B0 04 8F 2D 2D 41 4E |..1140......--AN|
00000B90: 49 4D 41 54 45 44 20 43 41 52 52 59 00 AB 13 BA |IMATED CARRY....|
00000BA0: 04 99 C8 28 44 24 2C 31 37 29 3B 00 B6 13 C4 04 |...(D$,17);.....|
00000BB0: 81 43 B2 31 A4 33 00 C8 13 CE 04 99 A6 53 50 AA |.C.1.3.......SP.|
00000BC0: 33 29 22 12 22 3B 43 24 00 D7 13 D8 04 81 54 B2 |3)".";C$......T.|
00000BD0: 31 A4 34 30 30 3A 82 00 E9 13 E2 04 99 A6 53 50 |1.400:........SP|
00000BE0: 29 22 91 12 20 20 20 20 22 00 EF 13 EC 04 82 00 |)".. ".......|
00000BF0: FD 13 F6 04 99 C8 28 44 24 2C 31 38 29 00 08 14 |......(D$,18)...|
00000C00: 00 05 81 43 B2 31 A4 36 00 14 14 0A 05 43 32 B2 |...C.1.6.....C2.|
00000C10: 43 32 AA 31 00 1E 14 14 05 99 22 12 20 22 00 36 |C2.1......". ".6|
00000C20: 14 1E 05 99 A6 31 32 AB 43 32 29 22 91 12 22 43 |.....12.C2)".."C|
00000C30: 24 3B 22 9D 22 3B 00 45 14 28 05 81 54 B2 31 A4 |$;".";.E.(..T.1.|
00000C40: 34 30 30 3A 82 00 4C 14 32 05 82 43 00 65 14 3C |400:..L.2..C.e.<|
00000C50: 05 43 32 B2 30 3A 8D 34 34 30 3A 46 34 B2 32 3A |.C2.0:.440:F4.2:|
00000C60: 8D 32 31 37 30 00 7B 14 46 05 53 50 B2 33 3A 8F |.2170.{.F.SP.3:.|
00000C70: 20 49 4E 50 55 54 20 54 45 4E 53 00 90 14 50 05 | INPUT TENS...P.|
00000C80: 54 41 B2 54 31 AA 54 32 AA 54 33 3A 46 34 B2 32 |TA.T1.T2.T3:F4.2|
00000C90: 00 AA 14 5A 05 8B 55 54 B1 31 39 A7 3A 54 41 B2 |...Z..UT.19.:TA.|
00000CA0: 54 41 AA 32 3A 89 31 33 39 30 00 BD 14 64 05 8B |TA.2:.1390...d..|
00000CB0: 55 54 B1 39 A7 3A 54 41 B2 54 41 AA 31 00 CD 14 |UT.9.:TA.TA.1...|
00000CC0: 6E 05 8B 54 41 B1 39 A7 3A 53 50 B2 32 00 E8 14 |n..TA.9.:SP.2...|
00000CD0: 78 05 99 C8 28 44 24 2C 31 37 29 A6 53 50 29 22 |x...(D$,17).SP)"|
00000CE0: 20 20 20 20 20 20 20 22 00 0A 15 82 05 99 C8 28 | ".......(|
00000CF0: 44 24 2C 31 37 29 A6 53 50 AA 34 29 3B 3A 8D 32 |D$,17).SP.4);:.2|
00000D00: 30 33 30 3A 41 32 24 B2 49 24 00 1B 15 8C 05 41 |030:A2$.I$.....A|
00000D10: 54 24 B2 C8 28 41 32 24 2C 32 29 00 39 15 96 05 |T$..(A2$,2).9...|
00000D20: 8B C5 28 41 54 24 29 B2 54 41 AB 31 A7 3A 8D 32 |..(AT$).TA.1.:.2|
00000D30: 34 38 30 3A 89 31 33 35 30 00 4B 15 A0 05 8B C6 |480:.1350.K.....|
00000D40: 28 41 54 24 29 B2 36 34 A7 3A 80 00 5B 15 AA 05 |(AT$).64.:..[...|
00000D50: 43 4F 24 B2 22 20 54 45 4E 53 22 00 7C 15 B4 05 |CO$." TENS".|...|
00000D60: 8B C5 28 41 54 24 29 B2 54 41 A7 3A 8D 34 34 30 |..(AT$).TA.:.440|
00000D70: 3A 8D 31 37 38 30 3A 89 31 34 38 30 00 8B 15 BE |:.1780:.1480....|
00000D80: 05 8D 39 31 30 3A 89 31 34 30 30 00 9C 15 C8 05 |..910:.1400.....|
00000D90: 8B 46 33 B2 30 A7 3A 8D 31 38 32 30 00 B2 15 D2 |.F3.0.:.1820....|
00000DA0: 05 8B 4E 55 B2 36 A7 8D 32 35 36 30 3A 8D 32 33 |..NU.6..2560:.23|
00000DB0: 32 30 00 C2 15 DC 05 81 43 B2 31 A4 32 30 30 30 |20......C.1.2000|
00000DC0: 3A 82 00 DF 15 E6 05 46 33 B2 30 3A 53 50 B2 30 |:......F3.0:SP.0|
00000DD0: 3A 46 31 B2 30 3A 46 32 B2 30 3A 89 33 36 30 00 |:F1.0:F2.0:.360.|
00000DE0: 00 16 F0 05 8F 2D 2D 50 52 49 4E 54 20 55 4E 49 |.....--PRINT UNI|
00000DF0: 54 22 A2 22 4F 4E 20 52 20 4F 46 20 53 43 52 4E |T"."ON R OF SCRN|
00000E00: 00 0F 16 FA 05 8B 46 35 B2 35 A7 31 36 34 30 00 |......F5.5.1640.|
00000E10: 26 16 04 06 99 22 13 11 11 11 22 A6 33 33 29 22 |&...."....".33)"|
00000E20: 55 4E 49 54 53 22 00 35 16 0E 06 8B 55 31 B2 30 |UNITS".5....U1.0|
00000E30: A7 31 35 39 30 00 41 16 18 06 81 43 B2 31 A4 55 |.1590.A....C.1.U|
00000E40: 31 00 4E 16 22 06 99 A6 33 36 29 22 A2 22 00 54 |1.N."...36)".".T|
00000E50: 16 2C 06 82 00 63 16 36 06 8B 55 32 B2 30 A7 31 |.,...c.6..U2.0.1|
00000E60: 36 34 30 00 7A 16 40 06 99 A6 33 36 29 22 20 22 |640.z.@...36)" "|
00000E70: 3A 8F 2A 2A 2A 2A 2A 2A 2A 2A 00 86 16 4A 06 81 |:.********...J..|
00000E80: 43 B2 31 A4 55 32 00 93 16 54 06 99 A6 33 36 29 |C.1.U2...T...36)|
00000E90: 22 A8 22 00 99 16 5E 06 82 00 9F 16 68 06 8E 00 |"."...^.....h...|
00000EA0: C2 16 72 06 8F 2D 2D 54 45 4E 53 20 4E 45 57 20 |..r..--TENS NEW |
00000EB0: 4F 4E 20 52 49 47 48 54 20 4F 46 20 53 43 52 45 |ON RIGHT OF SCRE|
00000EC0: 45 4E 00 D1 16 7C 06 8B 46 35 B2 35 A7 31 37 37 |EN...|..F5.5.177|
00000ED0: 30 00 E6 16 86 06 99 22 13 11 11 11 22 A6 32 31 |0......"....".21|
00000EE0: 29 22 54 45 4E 53 00 F5 16 90 06 8B 54 31 B2 30 |)"TENS......T1.0|
00000EF0: A7 31 37 32 30 00 01 17 9A 06 81 43 B2 31 A4 54 |.1720......C.1.T|
00000F00: 31 00 0E 17 A4 06 99 A6 32 32 29 22 A2 22 00 14 |1.......22)"."..|
00000F10: 17 AE 06 82 00 23 17 B8 06 8B 54 32 B2 30 A7 31 |.....#....T2.0.1|
00000F20: 37 36 30 00 2F 17 C2 06 81 43 B2 31 A4 54 32 00 |760./....C.1.T2.|
00000F30: 3C 17 CC 06 99 A6 32 32 29 22 A8 22 00 42 17 D6 |<.....22)".".B..|
00000F40: 06 82 00 59 17 E0 06 8B 55 54 B1 39 A7 99 22 11 |...Y....UT.9..".|
00000F50: 11 22 A6 32 32 29 22 A8 22 00 5F 17 EA 06 8E 00 |.".22)"."._.....|
00000F60: 86 17 F4 06 8F 2D 2D 2D 53 55 42 20 54 4F 20 50 |.....---SUB TO P|
00000F70: 52 49 4E 54 20 43 4F 52 52 45 43 54 20 41 4E 44 |RINT CORRECT AND|
00000F80: 20 53 43 4F 52 45 00 9E 17 FE 06 99 C8 28 44 24 | SCORE.......(D$|
00000F90: 2C 31 32 29 A6 32 36 29 22 92 22 43 4F 24 00 BB |,12).26)"."CO$..|
00000FA0: 17 08 07 99 C8 28 44 24 2C 31 34 29 A6 32 36 29 |.....(D$,14).26)|
00000FB0: 22 92 43 4F 52 52 45 43 54 2E 22 00 C1 17 12 07 |".CORRECT.".....|
00000FC0: 8E 00 D7 17 1C 07 8F 2D 2D 4B 45 45 50 20 53 43 |.......--KEEP SC|
00000FD0: 4F 52 45 20 53 55 42 00 E3 17 26 07 53 43 B2 53 |ORE SUB...&.SC.S|
00000FE0: 43 AA 31 00 E9 17 30 07 8E 00 07 18 3A 07 8F 2D |C.1...0.....:..-|
00000FF0: 2D 2D 43 48 45 43 4B 20 43 41 52 45 46 55 4C 4C |--CHECK CAREFULL|
00001000: 59 20 53 55 42 52 54 00 16 18 44 07 8B 46 B2 31 |Y SUBRT...D..F.1|
00001010: A7 3A 8D 34 34 30 00 22 18 4E 07 46 33 B2 46 33 |.:.440.".N.F3.F3|
00001020: AA 31 00 30 18 58 07 99 C8 28 44 24 2C 31 30 29 |.1.0.X...(D$,10)|
00001030: 00 49 18 62 07 99 A6 32 34 29 22 12 20 20 20 20 |.I.b...24)". |
00001040: 20 20 20 20 20 20 20 20 22 00 62 18 6C 07 99 A6 | ".b.l...|
00001050: 32 34 29 22 12 20 20 20 43 48 45 43 4B 20 20 20 |24)". CHECK |
00001060: 20 22 00 7B 18 76 07 99 A6 32 34 29 22 12 20 20 | ".{.v...24)". |
00001070: 20 20 20 20 20 20 20 20 20 20 22 00 94 18 80 07 | ".....|
00001080: 99 A6 32 34 29 22 12 20 43 41 52 45 46 55 4C 4C |..24)". CAREFULL|
00001090: 59 20 20 22 00 AD 18 8A 07 99 A6 32 34 29 22 12 |Y ".......24)".|
000010A0: 20 20 20 20 20 20 20 20 20 20 20 20 22 00 C6 18 | "...|
000010B0: 94 07 99 A6 32 34 29 22 12 20 20 20 20 20 20 20 |....24)". |
000010C0: 20 20 20 20 20 22 00 DF 18 9E 07 99 A6 32 34 29 | ".......24)|
000010D0: 22 12 20 20 20 20 20 20 20 20 20 20 20 20 22 00 |". ".|
000010E0: F1 18 A8 07 8D 31 30 35 30 3A 46 33 B2 46 33 AA |.....1050:F3.F3.|
000010F0: 31 00 F7 18 B2 07 8E 00 0E 19 BC 07 8F 2D 2D 2D |1............---|
00001100: 57 49 50 45 20 53 55 4D 20 53 55 42 52 54 00 1C |WIPE SUM SUBRT..|
00001110: 19 C6 07 99 C8 28 44 24 2C 31 30 29 00 40 19 D0 |.....(D$,10).@..|
00001120: 07 81 54 B2 31 A4 38 3A 99 22 12 20 20 20 20 20 |..T.1.8:.". |
00001130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
00001140: 00 46 19 DA 07 82 00 4C 19 E4 07 8E 00 8C 19 EE |.F.....L........|
00001150: 07 8F 2D 47 45 54 20 53 54 52 49 4E 47 20 57 49 |..-GET STRING WI|
00001160: 54 48 20 44 49 53 41 42 4C 45 44 20 52 45 54 55 |TH DISABLED RETU|
00001170: 52 4E 20 41 4E 44 20 44 45 4C 45 54 45 20 4F 4E |RN AND DELETE ON|
00001180: 20 46 49 52 53 54 20 27 47 45 54 27 00 A8 19 F8 | FIRST 'GET'....|
00001190: 07 99 C8 28 44 24 2C 31 37 29 A6 53 50 29 22 20 |...(D$,17).SP)" |
000011A0: 20 20 20 20 20 20 20 22 00 BD 19 02 08 99 C8 28 | ".......(|
000011B0: 44 24 2C 31 37 29 A6 53 50 AA 34 29 3B 00 C8 19 |D$,17).SP.4);...|
000011C0: 0C 08 97 31 35 38 2C 30 00 F5 19 16 08 99 22 9D |...158,0......".|
000011D0: 20 22 3B 3A A1 4B 24 3A 99 22 9D 3F 22 3B 3A 81 | ";:.K$:.".?";:.|
000011E0: 43 B2 31 A4 31 30 3A 82 43 3A 8B 4B 24 B2 22 22 |C.1.10:.C:.K$.""|
000011F0: A7 32 30 37 30 00 11 1A 20 08 8B 4B 24 B2 C7 28 |.2070... ..K$..(|
00001200: 31 33 29 B0 4B 24 B2 C7 28 32 30 29 A7 32 30 37 |13).K$..(20).207|
00001210: 30 00 1B 1A 2A 08 99 22 9D 22 3B 00 2A 1A 34 08 |0...*..".";.*.4.|
00001220: 49 24 B2 4B 24 3A 99 4B 24 3B 00 3E 1A 3E 08 A1 |I$.K$:.K$;.>.>..|
00001230: 4B 24 3A 8B 4B 24 B2 22 22 A7 32 31 31 30 00 53 |K$:.K$."".2110.S|
00001240: 1A 48 08 8B 4B 24 B2 C7 28 32 30 29 A7 3A 89 32 |.H..K$..(20).:.2|
00001250: 30 34 30 00 66 1A 52 08 8B 4B 24 B2 C7 28 31 33 |040.f.R..K$..(13|
00001260: 29 A7 32 31 36 30 00 78 1A 5C 08 49 24 B2 49 24 |).2160.x.\.I$.I$|
00001270: AA 4B 24 3A 99 4B 24 3B 00 82 1A 66 08 89 32 31 |.K$:.K$;...f..21|
00001280: 31 30 00 88 1A 70 08 8E 00 AA 1A 7A 08 8F 2D 2D |10...p.....z..--|
00001290: 54 59 50 45 20 48 4F 57 20 4D 41 4E 54 20 54 4F |TYPE HOW MANT TO|
000012A0: 20 52 47 48 54 20 53 49 44 45 00 CD 1A 84 08 8B | RGHT SIDE......|
000012B0: 46 34 B2 31 A7 3A 99 C8 28 44 24 2C 35 29 A6 32 |F4.1.:..(D$,5).2|
000012C0: 36 29 22 92 4E 45 57 20 53 55 4D 2E 22 00 E9 1A |6)".NEW SUM."...|
000012D0: 8E 08 99 C8 28 44 24 2C 31 30 29 A6 32 36 29 22 |....(D$,10).26)"|
000012E0: 92 20 48 4F 57 20 20 20 22 00 06 1B 98 08 99 C8 |. HOW ".......|
000012F0: 28 44 24 2C 31 32 29 A6 32 36 29 22 92 20 20 4D |(D$,12).26)". M|
00001300: 41 4E 59 20 20 22 00 30 1B A2 08 8B 46 34 B2 31 |ANY ".0....F4.1|
00001310: A7 3A 99 C8 28 44 24 2C 31 34 29 A6 32 36 29 22 |.:..(D$,14).26)"|
00001320: 92 20 20 20 55 4E 49 54 53 2E 22 3A 46 34 B2 30 |. UNITS.":F4.0|
00001330: 00 59 1B AC 08 8B 46 34 B2 32 A7 3A 99 C8 28 44 |.Y....F4.2.:..(D|
00001340: 24 2C 31 34 29 A6 32 36 29 22 92 20 20 20 54 45 |$,14).26)". TE|
00001350: 4E 53 3F 22 3A 46 34 B2 30 00 5F 1B B6 08 8E 00 |NS?":F4.0._.....|
00001360: 71 1B C0 08 4E 33 B2 B5 28 BB 28 31 29 AC 56 33 |q...N3..(.(1).V3|
00001370: 29 00 7F 1B CA 08 4E 33 24 B2 C4 28 4E 33 29 00 |).....N3$..(N3).|
00001380: 90 1B D4 08 55 33 24 B2 C9 28 4E 33 24 2C 31 29 |....U3$..(N3$,1)|
00001390: 00 9E 1B DE 08 55 33 B2 C5 28 55 33 24 29 00 B1 |.....U3..(U3$)..|
000013A0: 1B E8 08 54 33 24 B2 CA 28 4E 33 24 2C 32 2C 31 |...T3$..(N3$,2,1|
000013B0: 29 00 BF 1B F2 08 54 33 B2 C5 28 54 33 24 29 00 |).....T3..(T3$).|
000013C0: D8 1B FC 08 8B 4E 33 B3 31 30 A7 3A 54 33 24 B2 |.....N3.10.:T3$.|
000013D0: 22 20 22 3A 54 33 B2 30 00 DE 1B 06 09 8E 00 FB |" ":T3.0........|
000013E0: 1B 10 09 8F 2D 2D 41 55 54 4F 4C 45 56 45 4C 20 |....--AUTOLEVEL |
000013F0: 43 4F 4E 54 52 4F 4C 20 53 55 42 00 0C 1C 1A 09 |CONTROL SUB.....|
00001400: 8B 53 43 B3 36 A7 3A 4C B2 4C AB 31 00 22 1C 24 |.SC.6.:L.L.1.".$|
00001410: 09 8B 53 43 B3 36 AF 4E 55 B2 36 A7 3A 8D 33 32 |..SC.6.NU.6.:.32|
00001420: 38 30 00 30 1C 2E 09 8B 4C B3 30 A7 3A 4C B2 30 |80.0....L.0.:L.0|
00001430: 00 40 1C 38 09 8B 53 43 B2 36 A7 8D 32 38 35 30 |.@.8..SC.6..2850|
00001440: 00 5E 1C 42 09 8F 2D 2D 56 34 3D 3D 55 50 50 45 |.^.B..--V4==UPPE|
00001450: 52 20 4C 49 4D 49 54 20 41 4E 53 57 45 52 00 7F |R LIMIT ANSWER..|
00001460: 1C 4C 09 8F 2D 2D 56 35 3D 3D 4C 4F 57 45 52 20 |.L..--V5==LOWER |
00001470: 4C 49 4D 49 54 20 4F 46 20 41 4E 53 57 45 52 00 |LIMIT OF ANSWER.|
00001480: B0 1C 56 09 8B 4C B2 30 A7 3A 4C B2 31 3A 56 31 |..V..L.0.:L.1:V1|
00001490: B2 35 3A 56 32 B2 35 3A 56 33 B2 30 3A 56 34 B2 |.5:V2.5:V3.0:V4.|
000014A0: 35 3A 4C B2 31 3A 46 36 B2 31 3A 89 32 34 37 30 |5:L.1:F6.1:.2470|
000014B0: 00 DD 1C 60 09 8B 4C B2 31 A7 3A 4C B2 32 3A 56 |...`..L.1.:L.2:V|
000014C0: 31 B2 39 3A 56 32 B2 39 3A 56 34 B2 39 3A 56 35 |1.9:V2.9:V4.9:V5|
000014D0: B2 35 3A 46 36 B2 31 3A 89 32 34 37 30 00 0E 1D |.5:F6.1:.2470...|
000014E0: 6A 09 8B 4C B2 32 A7 3A 4C B2 33 3A 56 31 B2 31 |j..L.2.:L.3:V1.1|
000014F0: 30 3A 56 32 B2 31 30 3A 56 34 B2 31 39 3A 56 35 |0:V2.10:V4.19:V5|
00001500: B2 31 30 3A 46 36 B2 30 3A 89 32 34 37 30 00 3E |.10:F6.0:.2470.>|
00001510: 1D 74 09 8B 4C B2 33 A7 3A 4C B2 34 3A 56 31 B2 |.t..L.3.:L.4:V1.|
00001520: 31 30 3A 56 32 B2 31 30 3A 56 34 B2 31 39 3A 56 |10:V2.10:V4.19:V|
00001530: 35 B2 30 3A 46 36 B2 30 3A 89 32 34 37 30 00 73 |5.0:F6.0:.2470.s|
00001540: 1D 7E 09 8B 4C B2 34 A7 3A 4C B2 35 3A 56 31 B2 |.~..L.4.:L.5:V1.|
00001550: 31 30 3A 56 32 B2 31 30 3A 56 33 B2 31 30 3A 56 |10:V2.10:V3.10:V|
00001560: 34 B2 39 3A 56 35 B2 30 3A 46 35 B2 35 3A 89 32 |4.9:V5.0:F5.5:.2|
00001570: 34 37 30 00 A9 1D 88 09 8B 4C B2 35 A7 3A 4C B2 |470......L.5.:L.|
00001580: 36 3A 56 31 B2 31 30 3A 56 32 B2 31 30 3A 56 33 |6:V1.10:V2.10:V3|
00001590: B2 30 3A 56 34 B2 31 39 3A 56 35 B2 31 30 3A 46 |.0:V4.19:V5.10:F|
000015A0: 36 B2 30 3A 89 32 34 37 30 00 DF 1D 92 09 8B 4C |6.0:.2470......L|
000015B0: B2 36 A7 3A 4C B2 37 3A 56 31 B2 35 30 3A 56 32 |.6.:L.7:V1.50:V2|
000015C0: B2 35 30 3A 56 33 B2 30 3A 56 34 B2 34 35 3A 56 |.50:V3.0:V4.45:V|
000015D0: 35 B2 32 30 3A 46 36 B2 30 3A 89 32 34 37 30 00 |5.20:F6.0:.2470.|
000015E0: 1B 1E 9C 09 8B 4C B2 37 A7 3A 4C B2 38 3A 56 31 |.....L.7.:L.8:V1|
000015F0: B2 39 39 3A 56 32 B2 39 39 3A 56 33 B2 39 39 3A |.99:V2.99:V3.99:|
00001600: 56 34 B2 39 39 3A 56 35 B2 35 30 3A 46 36 B2 30 |V4.99:V5.50:F6.0|
00001610: 3A 46 35 B2 35 3A 89 32 34 37 30 00 2F 1E 9D 09 |:F5.5:.2470./...|
00001620: 8B 4C B2 38 A7 3A 4C B2 37 3A 89 32 34 36 30 00 |.L.8.:L.7:.2460.|
00001630: 3F 1E A6 09 53 43 B2 30 3A 4E 55 B2 30 3A 8E 00 |?...SC.0:NU.0:..|
00001640: 5E 1E B0 09 8F 2D 2D 46 4F 52 47 4F 54 54 45 4E |^....--FORGOTTEN|
00001650: 20 43 41 52 52 59 20 54 45 4E 20 53 55 42 00 6A | CARRY TEN SUB.j|
00001660: 1E BA 09 46 33 B2 46 33 AA 31 00 79 1E C4 09 8B |...F3.F3.1.y....|
00001670: 46 31 B2 30 A7 32 35 35 30 00 97 1E CE 09 99 C8 |F1.0.2550.......|
00001680: 28 44 24 2C 31 37 29 A6 32 33 29 22 92 59 4F 55 |(D$,17).23)".YOU|
00001690: 20 48 41 56 45 20 22 00 B5 1E D8 09 99 C8 28 44 | HAVE ".......(D|
000016A0: 24 2C 31 39 29 A6 32 33 29 22 92 46 4F 52 47 4F |$,19).23)".FORGO|
000016B0: 54 54 45 4E 22 00 D8 1E E2 09 99 C8 28 44 24 2C |TTEN".......(D$,|
000016C0: 32 31 29 A6 32 33 29 22 92 54 48 45 20 22 3B 53 |21).23)".THE ";S|
000016D0: 24 3B 22 20 59 4F 55 22 00 F5 1E EC 09 99 C8 28 |$;" YOU".......(|
000016E0: 44 24 2C 32 33 29 A6 32 33 29 22 92 43 41 52 52 |D$,23).23)".CARR|
000016F0: 49 45 44 2E 22 00 FB 1E F6 09 8E 00 21 1F 00 0A |IED.".......!...|
00001700: 8F 20 20 20 4B 45 45 50 20 41 43 43 4F 55 4E 54 |. KEEP ACCOUNT|
00001710: 20 4F 46 20 53 43 4F 52 45 53 20 53 55 42 2D 52 | OF SCORES SUB-R|
00001720: 43 00 2D 1F 0A 0A 49 31 B2 49 31 AA 31 00 44 1F |C.-...I1.I1.1.D.|
00001730: 14 0A 52 43 28 49 31 29 B2 53 43 3A 4C 56 28 49 |..RC(I1).SC:LV(I|
00001740: 31 29 B2 4C 00 55 1F 1E 0A 8B 49 31 B2 31 30 A7 |1).L.U....I1.10.|
00001750: 8D 32 37 34 30 00 5B 1F 28 0A 8E 00 7C 1F 32 0A |.2740.[.(...|.2.|
00001760: 83 20 32 34 2C 32 31 36 2C 31 36 32 2C 32 35 2C |. 24,216,162,25,|
00001770: 31 36 30 2C 32 30 2C 31 36 39 2C 36 00 9D 1F 3C |160,20,169,6...<|
00001780: 0A 83 20 31 33 36 2C 31 35 33 2C 30 30 2C 31 32 |.. 136,153,00,12|
00001790: 38 2C 32 30 38 2C 32 35 30 2C 31 36 39 00 BC 1F |8,208,250,169...|
000017A0: 46 0A 83 20 34 30 2C 31 30 39 2C 36 38 2C 33 2C |F.. 40,109,68,3,|
000017B0: 31 34 31 2C 36 38 2C 33 2C 31 36 39 00 DA 1F 50 |141,68,3,169...P|
000017C0: 0A 83 20 30 30 2C 31 30 39 2C 36 39 2C 33 2C 32 |.. 00,109,69,3,2|
000017D0: 34 2C 31 34 31 2C 36 39 2C 33 00 F7 1F 5A 0A 83 |4,141,69,3...Z..|
000017E0: 20 32 30 32 2C 32 30 38 2C 32 32 36 2C 31 36 39 | 202,208,226,169|
000017F0: 2C 30 30 2C 31 34 31 00 16 20 64 0A 83 20 36 38 |,00,141.. d.. 68|
00001800: 2C 33 2C 31 36 39 2C 31 32 38 2C 31 34 31 2C 36 |,3,169,128,141,6|
00001810: 39 2C 33 2C 39 36 00 2F 20 6E 0A 81 5A B2 38 32 |9,3,96./ n..Z.82|
00001820: 36 A4 38 37 30 3A 87 41 3A 97 5A 2C 41 3A 82 00 |6.870:.A:.Z,A:..|
00001830: 4E 20 78 0A 97 38 32 39 2C 32 34 3A 8F 2D 53 54 |N x..829,24:.-ST|
00001840: 53 20 4E 55 4D 20 4F 46 20 4C 49 4E 45 53 00 72 |S NUM OF LINES.r|
00001850: 20 82 0A 97 38 33 31 2C 31 38 3A 8F 2D 53 54 53 | ...831,18:.-STS|
00001860: 20 4E 55 4D 20 4F 46 20 43 48 41 52 41 43 54 45 | NUM OF CHARACTE|
00001870: 52 53 00 96 20 8C 0A 97 38 33 33 2C 36 3A 8F 2D |RS.. ...833,6:.-|
00001880: 53 54 53 20 43 48 41 52 41 43 54 45 52 20 54 4F |STS CHARACTER TO|
00001890: 20 50 52 49 4E 54 00 BE 20 96 0A 97 38 33 37 2C | PRINT.. ...837,|
000018A0: 31 32 38 3A 8F 2D 53 45 54 53 20 48 49 47 48 20 |128:.-SETS HIGH |
000018B0: 50 4F 49 4E 54 3C 3E 54 48 41 4E 31 32 39 00 DB |POINT<>THAN129..|
000018C0: 20 A0 0A 97 38 33 36 2C 32 31 3A 8F 2D 53 45 54 | ...836,21:.-SET|
000018D0: 53 20 4C 4F 57 20 50 4F 49 4E 54 00 E3 20 AA 0A |S LOW POINT.. ..|
000018E0: 8C 3A 8E 00 FF 20 B4 0A 8F 2D 2D 50 52 49 4E 54 |.:... ...--PRINT|
000018F0: 20 4F 55 54 20 52 45 43 4F 52 44 20 53 55 42 00 | OUT RECORD SUB.|
00001900: 08 21 BE 0A 99 22 93 22 00 28 21 C8 0A 99 22 1D |.!...".".(!...".|
00001910: 1D 1D 1D 1D 1D 4C 45 56 45 4C 1D 1D 1D 1D 1D 1D |.....LEVEL......|
00001920: 1D 1D 53 43 4F 52 45 22 00 2E 21 D2 0A 99 00 3A |..SCORE"..!....:|
00001930: 21 DC 0A 81 49 B2 31 A4 31 30 00 70 21 E6 0A 99 |!...I.1.10.p!...|
00001940: 22 1D 1D 1D 1D 1D 1D 1D 22 4C 56 28 49 29 22 1D |"......."LV(I)".|
00001950: 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 52 43 28 49 29 22 |........."RC(I)"|
00001960: 1D 1D 1D 1D 1D 1D 4F 55 54 20 4F 46 20 36 2E 22 |......OUT OF 6."|
00001970: 00 76 21 F0 0A 82 00 A3 21 FA 0A 99 22 11 54 45 |.v!.....!...".TE|
00001980: 4C 4C 20 59 4F 55 52 20 54 45 41 43 48 45 52 20 |LL YOUR TEACHER |
00001990: 59 4F 55 20 48 41 56 45 20 46 49 4E 49 53 48 45 |YOU HAVE FINISHE|
000019A0: 44 2E 22 00 CA 21 04 0B 99 22 11 12 54 59 50 45 |D."..!..."..TYPE|
000019B0: 20 53 50 41 43 45 20 54 4F 20 52 45 54 55 52 4E | SPACE TO RETURN|
000019C0: 20 54 4F 20 53 54 41 52 54 22 00 DF 21 0E 0B A1 | TO START"..!...|
000019D0: 52 24 3A 8B 52 24 B2 22 22 A7 20 32 38 33 30 00 |R$:.R$."". 2830.|
000019E0: EA 21 18 0B 9C 3A 89 31 30 30 00 F0 21 22 0B 8F |.!...:.100..!"..|
000019F0: 00 05 22 2C 0B 8B 4C B2 B1 38 A7 3A 4C B2 38 3A |..",..L..8.:L.8:|
00001A00: 8D 33 33 36 30 00 37 22 36 0B 97 38 33 31 2C 37 |.3360.7"6..831,7|
00001A10: 3A 97 38 32 39 2C 31 30 3A 97 38 33 33 2C 33 32 |:.829,10:.833,32|
00001A20: 3A 97 38 33 37 2C 31 33 30 3A 97 38 33 36 2C 38 |:.837,130:.836,8|
00001A30: 3A 9E 28 38 32 36 29 00 49 22 40 0B 8F 20 20 20 |:.(826).I"@.. |
00001A40: 20 20 46 49 47 55 52 45 53 00 4F 22 4A 0B 8F 00 | FIGURES.O"J...|
00001A50: 59 22 54 0B 89 32 39 33 30 00 6A 22 5E 0B 81 43 |Y"T..2930.j"^..C|
00001A60: B2 31 A4 32 30 30 3A 82 3A 8E 00 70 22 68 0B 8F |.1.200:.:..p"h..|
00001A70: 00 76 22 72 0B 8F 00 86 22 7C 0B 41 B2 33 32 38 |.v"r...."|.A.328|
00001A80: 32 38 AA 35 30 33 00 92 22 86 0B 8F 2D 2D 42 4F |28.503.."...--BO|
00001A90: 44 59 00 B0 22 90 0B 97 41 2C 38 37 3A 97 41 AA |DY.."...A,87:.A.|
00001AA0: 34 30 2C 32 33 30 3A 97 41 AA 38 30 2C 32 33 30 |40,230:.A.80,230|
00001AB0: 00 BC 22 9A 0B 8F 2D 2D 4C 45 47 53 00 D4 22 A4 |.."...--LEGS..".|
00001AC0: 0B 97 41 AA 31 31 39 2C 37 38 3A 97 41 AA 31 32 |..A.119,78:.A.12|
00001AD0: 31 2C 37 37 00 EF 22 AE 0B 8F 2D 2D 41 52 4D 53 |1,77.."...--ARMS|
00001AE0: 20 41 4E 44 20 41 52 4D 20 57 41 56 49 4E 47 00 | AND ARM WAVING.|
00001AF0: 05 23 B8 0B 97 41 AA 34 31 2C 39 39 3A 97 41 AA |.#...A.41,99:.A.|
00001B00: 33 39 2C 39 39 00 12 23 C2 0B 8F 2D 20 20 53 54 |39,99..#...- ST|
00001B10: 4F 50 00 28 23 CC 0B 97 41 AA 34 31 2C 39 39 3A |OP.(#...A.41,99:|
00001B20: 97 41 AA 33 39 2C 39 39 00 35 23 D6 0B 81 41 31 |.A.39,99.5#...A1|
00001B30: B2 31 A4 31 30 00 4B 23 E0 0B 97 41 AB 32 2C 31 |.1.10.K#...A.2,1|
00001B40: 30 33 3A 97 41 AA 32 2C 31 30 31 00 55 23 EA 0B |03:.A.2,101.U#..|
00001B50: 8D 32 39 31 30 00 69 23 F4 0B 97 41 AB 32 2C 33 |.2910.i#...A.2,3|
00001B60: 32 3A 97 41 AA 32 2C 33 32 00 7F 23 FE 0B 97 41 |2:.A.2,32..#...A|
00001B70: AA 33 38 2C 39 39 3A 97 41 AA 34 32 2C 39 39 00 |.38,99:.A.42,99.|
00001B80: 89 23 08 0C 8D 32 39 31 30 00 9F 23 12 0C 97 41 |.#...2910..#...A|
00001B90: AA 33 38 2C 33 32 3A 97 41 AA 34 32 2C 33 32 00 |.38,32:.A.42,32.|
00001BA0: A5 23 1C 0C 82 00 BD 23 26 0C 8F 2D 2D 57 41 56 |.#.....#&..--WAV|
00001BB0: 49 4E 47 20 42 4F 54 48 20 41 52 4D 53 00 D3 23 |ING BOTH ARMS..#|
00001BC0: 30 0C 97 41 AA 34 31 2C 39 39 3A 97 41 AA 33 39 |0..A.41,99:.A.39|
00001BD0: 2C 39 39 00 DF 23 3A 0C 81 41 31 B2 31 A4 38 00 |,99..#:..A1.1.8.|
00001BE0: F6 23 44 0C 97 41 AB 32 2C 31 30 33 3A 97 41 AA |.#D..A.2,103:.A.|
00001BF0: 34 32 2C 31 30 31 00 00 24 4E 0C 8D 32 39 31 30 |42,101..$N..2910|
00001C00: 00 15 24 58 0C 97 41 AB 32 2C 33 32 3A 97 41 AA |..$X..A.2,32:.A.|
00001C10: 34 32 2C 33 32 00 2C 24 62 0C 97 41 AA 33 38 2C |42,32.,$b..A.38,|
00001C20: 31 30 33 3A 97 41 AA 32 2C 31 30 31 00 36 24 6C |103:.A.2,101.6$l|
00001C30: 0C 8D 32 39 31 30 00 4B 24 76 0C 97 41 AA 32 2C |..2910.K$v..A.2,|
00001C40: 33 32 3A 97 41 AA 33 38 2C 33 32 00 51 24 80 0C |32:.A.38,32.Q$..|
00001C50: 82 00 68 24 8A 0C 97 41 AB 32 2C 31 30 33 3A 97 |..h$...A.2,103:.|
00001C60: 41 AA 34 32 2C 31 30 31 00 71 24 94 0C 8D 34 34 |A.42,101.q$...44|
00001C70: 30 00 A5 24 9E 0C 99 C8 28 44 24 2C 31 36 29 22 |0..$....(D$,16)"|
00001C80: 92 1D 1D 1D 1D 1D 1D 1D 57 45 4C 4C 20 44 4F 4E |........WELL DON|
00001C90: 45 2E 59 4F 55 20 48 41 44 20 36 20 43 4F 52 52 |E.YOU HAD 6 CORR|
00001CA0: 45 43 54 2E 22 00 B4 24 9F 0C 8B 4C B2 38 A7 4C |ECT."..$...L.8.L|
00001CB0: B2 4C AB 31 00 C2 24 A0 0C 8B 4C B2 38 A7 33 32 |.L.1..$...L.8.32|
00001CC0: 35 30 00 E4 24 A8 0C 99 22 92 1D 1D 1D 1D 1D 1D |50..$...".......|
00001CD0: 1D 1D 1D 47 4F 20 54 4F 20 4C 45 56 45 4C 20 22 |...GO TO LEVEL "|
00001CE0: 3B 4C AA 31 00 F4 24 B2 0C 81 54 B2 31 A4 34 30 |;L.1..$...T.1.40|
00001CF0: 30 30 3A 82 00 08 25 BC 0C 8D 32 39 31 30 3A 8D |00:...%...2910:.|
00001D00: 34 31 30 3A 8D 34 34 30 00 0E 25 C6 0C 8E 00 33 |410:.440..%....3|
00001D10: 25 D0 0C 8F 2D 2D 2D 45 4E 44 20 4F 46 20 53 45 |%...---END OF SE|
00001D20: 54 20 57 49 54 48 20 4D 49 53 54 41 4B 45 53 20 |T WITH MISTAKES |
00001D30: 53 55 42 00 45 25 DA 0C 99 22 93 11 11 11 11 11 |SUB.E%..."......|
00001D40: 11 11 11 11 22 00 6A 25 E4 0C 99 22 59 4F 55 20 |....".j%..."YOU |
00001D50: 53 43 4F 52 45 44 20 22 3B 53 43 3B 22 20 4F 55 |SCORED ";SC;" OU|
00001D60: 54 20 4F 46 20 53 49 58 2E 22 00 86 25 EE 0C 99 |T OF SIX."..%...|
00001D70: 22 11 11 53 54 41 59 20 4F 4E 20 4C 45 56 45 4C |"..STAY ON LEVEL|
00001D80: 20 22 3B 4C AA 31 00 AD 25 F8 0C 99 22 11 11 11 | ";L.1..%..."...|
00001D90: 12 50 52 45 53 53 20 53 50 41 43 45 20 54 4F 20 |.PRESS SPACE TO |
00001DA0: 53 54 41 52 54 20 41 47 41 49 4E 2E 22 00 C1 25 |START AGAIN."..%|
00001DB0: 02 0D A1 52 24 3A 8B 52 24 B2 22 22 A7 33 33 33 |...R$:.R$."".333|
00001DC0: 30 00 D4 25 0C 0D 99 22 93 22 3A 8D 34 31 30 3A |0..%...".":.410:|
00001DD0: 8D 34 34 30 00 DA 25 16 0D 8E 00 FC 25 20 0D 99 |.440..%.....% ..|
00001DE0: 22 93 11 11 11 11 11 11 59 4F 55 20 41 52 45 20 |".......YOU ARE |
00001DF0: 4F 4E 20 4C 45 56 45 4C 20 38 2E 22 00 22 26 2A |ON LEVEL 8."."&*|
00001E00: 0D 99 22 11 11 54 48 49 53 20 49 53 20 54 48 45 |.."..THIS IS THE|
00001E10: 20 48 49 47 48 45 53 54 20 4C 45 56 45 4C 20 49 | HIGHEST LEVEL I|
00001E20: 4E 22 00 3A 26 34 0D 99 22 11 54 48 49 53 20 50 |N".:&4..".THIS P|
00001E30: 52 4F 47 52 41 4D 4D 45 2E 22 00 4A 26 3E 0D 81 |ROGRAMME.".J&>..|
00001E40: 54 B2 31 A4 31 30 30 30 3A 82 00 50 26 48 0D 8E |T.1.1000:..P&H..|
00001E50: 00 00 00 |... |
....(..59468,12.@.2.DE$."
".P.D.."..
AUTO-ADD-TEACHER .."...N.."T
HIS PROGRAMME AUTOMATICALLY CHANGES".I.X
.."LEVEL AFTER SIX SUMS WITHOUT MISTAKES
"......"OF ANY KIND OTHERWISE IT REMAINS
ON".!...."THE SAME LEVEL.AT THE END OF
A SET OF".M...."TEN GROUPS OF SIX SUMS I
T WILL PRINT".X. .."A TEACHERS REPORT SH
OWING SCORES AT"......"EACH LEVEL.".....
.:.. ...."LEVEL".J.H.."..1.ADDING WITH T
OTALS UP TO FIVE."...R.."..2.ADDING WITH
TOTALS UP TO NINE."."...."..3.ADDING WI
TH TOTALS BETWEEN 10 AND ".E....".. 19
ALWAYS CARRYING TEN.".Q...."..4.ADD TWO
NUMBERS BETWEEN 0 AND 19......."..5.ADD
THREE NUMBERS TOTAL < 10.".C...."..6.ADD
THREE NUMBERS TOTAL < 19."......"..7.AD
D THREE NUMBERS TOTAL < 45."......"..8.A
DD THREE NUMBERS TOTAL < 99.".)."..RC(20
):.LV(20).3.,..2610.J.6.D$."............
...........................":.2320.W.@.S
$."TEN"...J..". CHOOSE STARTING LEVEL";
L...O..L.8.:."."DE$"..":.330.C.T..2320:.
".".Y.^..410:. REV L SIDE...H..440:. CL
RIGHT SIDE...R..470...|.."."......"."...
....:....----SUBTO REV LEFT SIDE OF SCRE
EN.F....836,00:.829,24:.833,160:.831,20:
.(826).L..........-SUB TO CLEAR RIGHT SI
DE OF SCREEN...B..836,20:.829,24:.833,32
:.831,19:.(826).E.L.....V..-SUB TO CHOOS
E AND STR$ NUMBERS......F5.5.:.2240.....
N1..(.(1).V1).....N1$.D(N1).,...U1$.I(N1
$,1).:...U1.E(U1$).M...T1$.J(N1$,2,1).[.
..T1.E(T1$).U.&..N1.10.:T1$.". ":T1.0...
0.N2..(.(1).V2)...:..N1.N2.N3.V4.480...D
..N1.N2.N3.V5.480...N.N2$.D(N2).P.X.U2$.
I(N2$,1)...B.U2.E(U2$)...L.UT.U1.U2.U3..
.V.T2$.J(N2$,2,1).....T2.E(T2$).)....N2.
10.:T2$.". ":T2.0.I....UT.9.:F1.1:C$."1"
:S$."TEN".F....UT.19.:C$."2":S$."TENS".U
....***RETURN......-TO PRINT TO SCREEN..
...NU.NU.1...F.SP.10...P..F1.1.:SP.9.P.Z
..H(D$,3).5)". LEVEL ";L.....F4.1:.2170.
.....H(D$,5)" SUM NUMBER ";NU.!....H(D
$,8)" TENS UNITS ".K....H(D$,10)"
"T3$" "U3$" ".U....H(D$,12
)" "T1$" "U1$" "......H(D$,
14)" + "T2$" "U2$" "... ..H(D
$,16)" ............"...*..H(D$,17)"
"...4..H(D$,19)"
".*.>..H(D$,21)" YOUR S
CORE IS ".L.H..H(D$,23)" "SC" OUT OF
6 "._.R..--INPUT UNITS.P.\..--GET UNITS
...F..2030:AU$.I$:I$.""...P.CO$." UNITS"
.E.Z..E(AU$).UT.:.440:.1780:.I.1.1000:.:
.1030......E(AU$)..UT.:F2.1:.910:F3.F3.1
:.860......--PRINT WRONG TRY AGAIN SUB..
...F3.F3.1.#....440.>....F2.1.:F2.0:.152
0:.960.H....1650.S....E(AU$).UT.:.H(D$,1
0).25)".TOO SMALL."...J..E(AT$).TA.:.H(D
$,10).25)".TOO SMALL.".I.T..E(AU$).UT.:.
H(D$,10).25)". TOO BIG. "......E(AT$).TA
.:.H(D$,10).25)". TOO BIG. "......H(D$,1
2).24)". TRY ".0....H(D$,14).24)".
AGAIN.".6.....I....******MISTAKE.X....F
6.1.1340.P....-- CARRY TEN FLASH..$..H(
D$,17);......C.1.3...8..H(D$,16).25)".
"...B..T.1.70:..W.L..H(D$,16).25)
"CARRY ";S$;"?"...V..T.1.500:....`.....J
..H(D$,18).24)"TYPE'Y'OR'N'". .T..Q$:.Q$
."".1140.7.~..Q$."N".F1.1..1860.O....Q$.
"Y".F1.1.:.1200.E....Q$."N".F1.0.1340.|.
...Q$."Y".F1.0..1860......1140......--AN
IMATED CARRY......H(D$,17);...D..C.1.3.H
.N...SP.3)".";C$.W.X..T.1.400:........SP
)".. "............H(D$,18)......C.1.6
.....C2.C2.1......". ".6.....12.C2)".."C
$;".";.E.(..T.1.400:..L.2..C.E.<.C2.0:.4
40:F4.2:.2170.{.F.SP.3:. INPUT TENS...P.
TA.T1.T2.T3:F4.2...Z..UT.19.:TA.TA.2:.13
90...D..UT.9.:TA.TA.1.M.N..TA.9.:SP.2...
X..H(D$,17).SP)" "......H(D$,17).S
P.4);:.2030:A2$.I$.....AT$.H(A2$,2).9...
.E(AT$).TA.1.:.2480:.1350.K. ..F(AT$).64
.:..[...CO$." TENS".|....E(AT$).TA.:.440
:.1780:.1480......910:.1400...H..F3.0.:.
1820...R..NU.6..2560:.2320.B....C.1.2000
:......F3.0:SP.0:F1.0:F2.0:.360......--P
RINT UNIT"."ON R OF SCRN......F5.5.1640.
&...."....".33)"UNITS".5....U1.0.1590.A.
...C.1.U1.N."...36)".".T.,...C.6..U2.0.1
640.Z.@...36)" ":.********...J..C.1.U2..
.T...36)"."...^.....H...B.R..--TENS NEW
ON RIGHT OF SCREEN.Q.|..F5.5.1770......"
....".21)"TENS......T1.0.1720......C.1.T
1.......22)".".......#....T2.0.1760./.B.
.C.1.T2.<.L...22)".".B.V...Y....UT.9..".
.".22)"."._..........---SUB TO PRINT COR
RECT AND SCORE......H(D$,12).26)"."CO$..
....H(D$,14).26)".CORRECT.".A.....W....-
-KEEP SCORE SUB...&.SC.SC.1...0.....:..-
--CHECK CAREFULLY SUBRT...D..F.1.:.440."
.N.F3.F3.1.0.X..H(D$,10).I.B...24)".
".B.L...24)". CHECK ".{.V..
.24)". ".......24)". CAREFULL
Y ".......24)". ".F.....24)"
. ".......24)". ".
.....1050:F3.F3.1............---WIPE SUM
SUBRT...F..H(D$,10).@.P..T.1.8:.".
".F.Z...L..........-GET S
TRING WITH DISABLED RETURN AND DELETE ON
FIRST 'GET'......H(D$,17).SP)" "
......H(D$,17).SP.4);.H....158,0......".
";:.K$:.".?";:.C.1.10:.C:.K$."".2070...
..K$.G(13).K$.G(20).2070...*..".";.*.4.
I$.K$:.K$;.>.>..K$:.K$."".2110.S.H..K$.G
(20).:.2040.F.R..K$.G(13).2160.X.\.I$.I$
.K$:.K$;...F..2110...P.....Z..--TYPE HOW
MANT TO RGHT SIDE.M....F4.1.:.H(D$,5).2
6)".NEW SUM."......H(D$,10).26)". HOW
"......H(D$,12).26)". MANY ".0....F4.1
.:.H(D$,14).26)". UNITS.":F4.0.Y....F4
.2.:.H(D$,14).26)". TENS?":F4.0._.....
Q...N3..(.(1).V3)..J.N3$.D(N3)...T.U3$.
I(N3$,1).....U3.E(U3$).....T3$.J(N3$,2,1
).....T3.E(T3$).X....N3.10.:T3$." ":T3.0
............--AUTOLEVEL CONTROL SUB.....
.SC.6.:L.L.1.".$..SC.6.NU.6.:.3280.0....
L.0.:L.0.@.8..SC.6..2850.^.B..--V4==UPPE
R LIMIT ANSWER..L..--V5==LOWER LIMIT OF
ANSWER...V..L.0.:L.1:V1.5:V2.5:V3.0:V4.
5:L.1:F6.1:.2470...`..L.1.:L.2:V1.9:V2.9
:V4.9:V5.5:F6.1:.2470...J..L.2.:L.3:V1.1
0:V2.10:V4.19:V5.10:F6.0:.2470.>.T..L.3.
:L.4:V1.10:V2.10:V4.19:V5.0:F6.0:.2470.S
.~..L.4.:L.5:V1.10:V2.10:V3.10:V4.9:V5.0
:F5.5:.2470......L.5.:L.6:V1.10:V2.10:V3
.0:V4.19:V5.10:F6.0:.2470......L.6.:L.7:
V1.50:V2.50:V3.0:V4.45:V5.20:F6.0:.2470.
.....L.7.:L.8:V1.99:V2.99:V3.99:V4.99:V5
.50:F6.0:F5.5:.2470./....L.8.:L.7:.2460.
?...SC.0:NU.0:..^....--FORGOTTEN CARRY T
EN SUB.J...F3.F3.1.Y.D..F1.0.2550...N..H
(D$,17).23)".YOU HAVE "...X..H(D$,19).23
)".FORGOTTEN".X....H(D$,21).23)".THE ";S
$;" YOU"......H(D$,23).23)".CARRIED."...
....!.... KEEP ACCOUNT OF SCORES SUB-R
C.-...I1.I1.1.D...RC(I1).SC:LV(I1).L.U..
..I1.10..2740.[.(...|.2.. 24,216,162,25,
160,20,169,6...<.. 136,153,00,128,208,25
0,169...F.. 40,109,68,3,141,68,3,169.Z.P
.. 00,109,69,3,24,141,69,3...Z.. 202,208
,226,169,00,141.. D.. 68,3,169,128,141,6
9,3,96./ N..Z.826.870:.A:.Z,A:..N X..829
,24:.-STS NUM OF LINES.R ...831,18:.-STS
NUM OF CHARACTERS.. ...833,6:.-STS CHAR
ACTER TO PRINT.. ...837,128:.-SETS HIGH
POINT<>THAN129.. ..836,21:.-SETS LOW PO
INT.. ...:... ...--PRINT OUT RECORD SUB.
.!...".".(!H.."......LEVEL........SCORE"
..!R...:!...I.1.10.P!..."......."LV(I)".
........."RC(I)"......OUT OF 6.".V!.....
!...".TELL YOUR TEACHER YOU HAVE FINISHE
D.".J!..."..TYPE SPACE TO RETURN TO STAR
T"..!...R$:.R$."". 2830..!...:.100..!"..
..",..L..8.:L.8:.3360.7"6..831,7:.829,10
:.833,32:.837,130:.836,8:.(826).I"@..
FIGURES.O"J...Y"T..2930.J"^..C.1.200:.
:..P"H...V"R...."|.A.32828.503.."...--BO
DY.."...A,87:.A.40,230:.A.80,230.."...--
LEGS.T"...A.119,78:.A.121,77.."...--ARMS
AND ARM WAVING..#...A.41,99:.A.39,99..#
B..- STOP.(#L..A.41,99:.A.39,99.5#V..A1
.1.10.K#...A.2,103:.A.2,101.U#...2910.I#
...A.2,32:.A.2,32.#...A.38,99:.A.42,99.
.#...2910..#...A.38,32:.A.42,32..#.....#
&..--WAVING BOTH ARMS.S#0..A.41,99:.A.39
,99..#:..A1.1.8..#D..A.2,103:.A.42,101..
$N..2910..$X..A.2,32:.A.42,32.,$B..A.38,
103:.A.2,101.6$L..2910.K$V..A.2,32:.A.38
,32.Q$....H$...A.2,103:.A.42,101.Q$...44
0..$...H(D$,16)"........WELL DONE.YOU HA
D 6 CORRECT."..$...L.8.L.L.1.B$ ..L.8.32
50..$..."..........GO TO LEVEL ";L.1..$.
..T.1.4000:...%...2910:.410:.440..%F...3
%P..---END OF SET WITH MISTAKES SUB.E%Z.
."..........".J%..."YOU SCORED ";SC;" OU
T OF SIX."..%..."..STAY ON LEVEL ";L.1..
%..."....PRESS SPACE TO START AGAIN.".A%
...R$:.R$."".3330.T%...".":.410:.440.Z%.
....% ..".......YOU ARE ON LEVEL 8."."&*
.."..THIS IS THE HIGHEST LEVEL IN".:&4..
".THIS PROGRAMME.".J&>..T.1.1000:..P&H..
...
> CLICK IMAGE PREVIEW FOR FULL MODAL