Fundamentals Of Math

Timex Computer Corporation

Date: 1983

Type: Cassette

Platform(s): TS 1000

Fundamentals Of Math is a four-program educational suite covering addition, subtraction, multiplication, and division, each saved as a separate file. Each program presents 10 problems per session across multiple difficulty levels (six levels for addition, five for subtraction, eight each for multiplication and division), with the difficulty automatically adjusted up or down based on the student’s score: eight or more correct advances the level, seven holds, and fewer causes a review of the previous level. Problem generation uses RND with RAND 0 to seed a consistent sequence, and carry/borrow conditions are enforced algorithmically by examining individual digit values via string indexing on N$ and M$. Animated feedback routines use block graphics characters to display a “happy” bouncing sprite for correct answers and a “sad” sprite for wrong ones, with the animation driven by nested FOR/NEXT loops and repeated PRINT AT sequences. The division module is the most complex, implementing a full long-division walkthrough with step-by-step borrowing display and optional remainder problems.

Program Analysis

The suite comprises four independent but structurally identical BASIC programs, each handling one arithmetic operation. All four share the same overall architecture: a title/logo screen, level selection, a test/review/end menu, a 10-problem session loop, animated right/wrong feedback, automatic level promotion or demotion, and a keypress-wait idiom. The division program is significantly more elaborate than the other three, running to line 1725.

Program Structure

Each program follows the same top-level flow:

Lines 5–20: Set operation name in Z$, display the AMT logo using block graphics, wait for Enter.
Lines 25–45: Display level menu, validate input into L.
Lines 50–80: Display the test/review/new-level/end menu, validate into R$.
Lines 85–165: Draw the bordered problem frame, initialize counters.
Lines 170–385: Main 10-problem loop; generate operands, accept answer, branch to correct/wrong routines.
Lines 390–455: End-of-session scoring, level adjustment, prompt to continue.
Lines 460–465: “Thank you” exit screen and STOP.
Lines 470–705: Wrong-answer animation, answer reveal with carry/borrow walkthrough.
Lines 710–798: Random problem generation subroutine.
Lines 800–955: Animation support subroutines (sprite setup, slide, bounce).
Lines 960–985: Title prompt / keypress-wait subroutine.
Lines 990–995: SAVE and restart.

Keypress-Wait Idiom

All four programs use the standard two-line debounce pattern at lines 970–980 (or 1700–1710 in the division module):

970 IF INKEY$ <>"" THEN GOTO 970 — waits for key release.
975 IF INKEY$ ="" THEN GOTO 975 — waits for key press.
980 LET G$=INKEY$ — captures the single keypress.

CHR$ 118 is the Enter/Newline key; CHR$ 39 is the delete/backspace key used in answer entry; CHR$ 54 (“6”, mapped as “Q” in some contexts) exits review mode back to the level menu.

Answer Entry and Editing

Answer entry (lines 190–245) builds the answer string S$ right-to-left (each new digit is prepended: LET S$=G$+S$), displaying a cursor * that shifts left as digits accumulate. Backspace (CHR$ 39) removes the leftmost digit of the displayed number. The display uses a fixed-width field at AT 11,13 (or AT 10,12 for multiplication), padded with spaces and the * cursor:

0 digits: " *"
1 digit: " *"+S$
2 digits: " *"+S$
3 digits: "*"+S$

Maximum answer length is 3 digits for addition/subtraction and 4 for multiplication.

Problem Generation

The generation subroutine at lines 710–798 uses RND seeded by RAND 0 at line 77. For addition, it ensures N >= M (larger number on top) and enforces carry/no-carry constraints by comparing the last digits of N$ and M$. Level-specific constraints are:

Program	Level	Constraint
Addition	3,5	Last digits sum < 10 (no carry)
Addition	4,6	Last digits sum ≥ 10 (carry)
Subtraction	2,4	Last digit of N ≥ last digit of M (no borrow)
Subtraction	3,5	Last digit of N < last digit of M (borrow)
Multiplication	6,7	Both operands two-digit; multi-step partial products shown
Division	1,3,5,7	Exact division (no remainder)
Division	2,4,6,8	Division with remainder

For levels requiring two-digit numbers, a value of 10 is added to the one-digit random result (e.g., LET N$=STR$ (N+10)), guaranteeing the tens digit is 1.

Animated Feedback Sprites

Two animated sprites are used — a “happy face” for correct answers and a “sad face” for wrong answers — both built from block graphics characters. The sprites are drawn and erased by printing the graphic string B$ followed immediately by the blank string A$ (LET A$=" ") at the same position. Subroutines handle four phases:

GOSUB 845: Set up left-side sprite (B$="\,,\,,", A=6).
GOSUB 935: Animate sprite vertically at column A.
GOSUB 800: Set up right-side sprite (B$="[,,][,,]", A=22).
GOSUB 900 / GOSUB 920: Slide sprite horizontally across row 11 in opposing directions using B, C, D, E to control range and step direction.

The correct-answer animation (lines 305–370) additionally bounces the sprite diagonally in a FOR J ... FOR I nested loop stepping through columns 15 down to F in steps of −4. In review mode, F is set to 11 (shorter travel) vs. 7 in test mode.

Carry and Borrow Walkthroughs

When a wrong answer is given (or in review mode), the programs display a step-by-step worked solution. For addition levels 4 and 6, lines 555–690 animate the carry digit appearing above the tens column. For subtraction levels 3 and 5, lines 553–660 show the borrowing process: the tens digit of the minuend is decremented (displayed in inverse video using CHR$ (CODE (N$(1))+128), i.e., adding 128 to the character code), the units digit is shown as 10+units, and the subtraction proceeds digit by digit with timed pauses via the GOSUB 695 delay loop (10 iterations).

Multiplication Long-Form Walkthrough

For levels 6 and 7 (two-digit × two-digit), the multiplication program displays a full partial-products breakdown (lines 553–580). Each partial product’s carry is accumulated by examining G$(1) (the tens digit of an intermediate string). The display uses inverse-video digits (CHR$ (CODE (N$(2))+128)) to highlight the active digit being multiplied. A variable Z tracks the current row offset for the second partial product line, and the program checks whether a five-digit total requires an extra column.

Division Long-Form Walkthrough

The division module (the longest of the four) implements a complete long-division display. Variable Z cycles through states (0, 3, 5, 6, 8) representing: initial quotient digit entry, subtraction entry, remainder carry-down, second quotient digit, and final remainder. The variable C$ holds the intermediate remainder after the first subtraction step. For two-digit quotients (LEN STR$ (INT (N/M))=2), a second pass through the division steps is triggered. Wrong answers trigger a fully animated worked solution spanning lines 1015–1255, including remainder display for even-level problems.

Scoring and Level Adjustment

After 10 problems, the score in R (correct) and W (wrong) is evaluated:

R > 7 (8–10 correct): advance one level (capped at the maximum for each operation).
R = 7: stay at the current level.
R < 7: drop one level (floored at 1).

A congratulations message is shown when the student successfully completes the highest level of each operation.

Notable Anomalies

Line 445 in the addition program prints "PRESS ENTER TO 7EGIN" — the “B” is replaced with “7”, an apparent typo in the original listing.
The subtraction program’s line 160 is missing (addition has 155 IF L=2 THEN LET G=9); the subtraction version jumps directly from 150 to 160, skipping a level-2 guard that would set G for double-digit results — this means level 2 uses the default G=19, which is correct for that level’s stated range, so it is effectively harmless.
In the multiplication program, line 698 appears where 698 should logically be 598 (inside a FOR J loop at 593–700); the line numbering jumps from 597 to 698, meaning the inner loop body occupies a non-sequential line number but still executes correctly as BASIC finds the next higher line number regardless.
The multiplication module’s GOSUB 800 sets C=12 and loops AT 10,I (row 10) rather than row 11 as in addition/subtraction, reflecting the shifted display layout for the multiplication problem frame.

Content

Appears On

Related Products

Fundamentals of Math

A progressive series of drill, practice and review sessions. Graded. 80% score promotes the student to the next level. Up...

Image Gallery

Source Code
REM (C) COPYRIGHT AMT, 1983
LET Z$="ADDITION"
PRINT AT 2,1;"▛▀▜";AT 3,1;"▌A▐ ADVANCED";AT 4,1;"▌ ▐";AT 5,1;"▌M▐  MICRO";AT 6,1;"▌ ▐";AT 7,1;"▌T▐   TECHNOLOGIES";AT 8,1;"▙▄▟";AT 12,8;"** PRESENTS **";AT 14,11;Z$
GOSUB 960
IF G$<>CHR$ 118 THEN GOTO 15
CLS
PRINT TAB 8;Z$;" LEVELS";AT 4,0;"1)  0-5   SINGLE DIGIT ANSWER";AT 6,0;"2)  0-9   DOUBLE DIGIT ANSWER";AT 8,0;"3)  0-19  ANSWER WITHOUT CARRY";AT 10,0;"4)  0-19  ANSWER WITH CARRY";AT 12,0;"5)  0-99  ANSWER WITHOUT CARRY";AT 14,0;"6)  0-99  ANSWER WITH CARRY";AT 19,7;"SELECT YOUR LEVEL";AT 21,9;"ENTER (1-6):"
GOSUB 970
IF G$<"1" OR G$>"6" THEN GOTO 35
LET L=VAL G$
CLS
LET L$=STR$ L
PRINT AT 1,4;"LEVEL ";L$;" HAS 10 PROBLEMS"
PRINT AT 6,5;"    DO YOU WISH:";AT 8,9;"1) A TEST";AT 10,9;"2) A REVIEW";AT 12,9;"3) A NEW LEVEL";AT 14,9;"4) TO END";AT 19,2;"PLEASE MAKE YOUR SELECTION";AT 21,9;"ENTER (1-4):"
GOSUB 970
IF G$<"1" OR G$>"4" THEN GOTO 65
IF G$="3" THEN GOTO 25
RAND 0
LET R$=G$
CLS
PRINT AT 1,11;Z$;AT 3,11;"LEVEL: ";L$;AT 5,4;"▛▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▜"
FOR I=6 TO 14
PRINT AT I,4;"▌";TAB 25;"▐"
NEXT I
PRINT AT 15,4;"▙████████████████████▟";AT 14,6;",,,,";TAB 22;"[,,][,,]"    
IF R$="4" THEN GOTO 460
LET X=1
IF R$="2" THEN PRINT AT 17,9;"** REVIEW **"
PRINT AT 19,11;"PROBLEM ";X
LET R=0
LET W=0
LET G=19
IF L=1 THEN LET G=5
IF L=2 THEN LET G=9
IF L>4 THEN LET G=99
GOTO 380
LET S=0
LET X=X+1
PRINT AT 14,6;",,,,";TAB 22;"[,,][,,]";AT 8,15;N$;AT 9,12;"+  ";M$;AT 10,12;"-----";AT 11,16;"*"
IF R$<>"2" THEN GOTO 190
PRINT AT 21,0;"PRESS ENTER FOR ANSWER, Q TO END"
GOSUB 970
IF G$=CHR$ 54 THEN GOTO 50
IF G$<>CHR$ 118 THEN GOTO 185
PRINT AT 21,0;"                                "
GOTO 505
LET S$=""
GOSUB 970
IF (G$=CHR$ 118 OR G$=CHR$ 39) AND S=1 THEN GOTO 250
IF LEN S$=3 OR G$<"0" OR G$>"9" THEN GOTO 195
LET S=1
LET S$=G$+S$
LET A$="*"+S$
IF LEN S$=0 THEN LET A$="   *"
IF LEN S$=1 THEN LET A$="  *"+S$
IF LEN S$=2 THEN LET A$=" *"+S$
PRINT AT 11,13;A$
GOTO 195
IF G$<>CHR$ 39 THEN GOTO 285
IF LEN S$>1 THEN GOTO 275
LET S$=""
LET S=0
GOTO 220
LET S$=S$(2 TO )
GOTO 220
PRINT AT 11,16-LEN S$;" "
IF VAL S$<>VAL N$+M THEN GOTO 470
LET R=R+1
GOSUB 845
PRINT AT 10,6;"~~~~▝";AT 10,6;",,,,▝▞";AT 10,6;A$;AT 9,8;",,,,▞";AT 9,8;"~~~~";AT 9,8;A$;AT 8,9;",,,,▞";AT 8,9;"~~~~";AT 8,9;A$
GOSUB 935
GOSUB 800
GOSUB 900
PRINT AT 11,13;A$;B$
FOR J=15 TO F STEP -4
FOR I=11 TO 7 STEP -1
PRINT AT I,J;B$;AT I,J;A$
NEXT I
FOR I=7 TO 11
PRINT AT I,J-2;B$;AT I,J-2;A$
NEXT I
NEXT J
GOSUB 920
IF X<11 THEN PRINT AT 19,19;X
IF X<11 THEN GOSUB 710
IF X<11 THEN GOTO 170
PRINT AT 17,9;"            "
IF R$="2" THEN GOTO 60
PRINT AT 19,11;"          ";AT 21,3;"                            ";AT 7,8;"YOUR SCORE IS:";AT 9,10;R;" CORRECT";AT 11,10;W;" WRONG";AT 19,2;
IF R>7 THEN GOTO 430
IF R=7 THEN GOTO 420
LET L=L-1
IF L=0 THEN LET L=1
PRINT "  LET US REVIEW LEVEL ";L;"."
GOTO 445
PRINT AT 19,2;"LET US CONTINUE AT LEVEL ";L;"."
GOTO 445
IF L=6 THEN PRINT AT 16,8;"CONGRATULATIONS";AT 18,0;"YOU HAVE SUCCESSFULLY COMPLETED";AT 19,6;"THE HIGHEST LEVEL.";AT 21,4;"PRESS ENTER TO CONTINUE"
IF L=6 THEN GOTO 447
LET L=L+1
PRINT "LET US ADVANCE TO LEVEL ";L;"."
PRINT AT 21,5;"PRESS ENTER TO 7EGIN"
GOSUB 970
IF G$<>CHR$ 118 THEN GOTO 447
GOTO 50
PRINT AT 8,8;"THANK YOU FOR";AT 10,7;"PLAYING ";Z$
STOP
LET W=W+1
GOSUB 845
PRINT AT 8,6;B$;"▗ ▗";AT 8,6;A$;AT 9,7;B$;"▚▘";AT 9,7;A$;AT 10,6;B$;"▗▘▚";AT 10,6;A$
GOSUB 935
GOSUB 800
GOSUB 900
PRINT AT 11,13;A$
FOR I=10 TO 8 STEP -1
PRINT AT I,9;B$;AT I,9;A$
NEXT I
FOR I=8 TO 10
PRINT AT I,7;B$;AT I,7;A$
NEXT I
GOSUB 920
LET T$=STR$ (VAL N$+M)
IF LEN T$=1 THEN LET T$="  "+T$
IF LEN T$=2 THEN LET T$=" "+T$
GOSUB 845
GOSUB 900
IF L=4 OR L=6 THEN GOTO 555
PRINT AT 11,16;T$(3);AT 11,13;B$;T$(2);AT 11,12;B$;T$(1)
LET C=10
GOSUB 920
PRINT AT 21,4;"PRESS ENTER TO CONTINUE"
GOSUB 970
IF G$<>CHR$ 118 THEN GOTO 546
PRINT AT 21,4;"                       "
GOSUB 800
LET F=11
GOTO 320
PRINT AT 11,15;A$
FOR I=8 TO 9
PRINT AT I,17;B$
GOSUB 695
PRINT AT I,17;A$
NEXT I
PRINT AT 11,16;T$(3);B$
GOSUB 695
PRINT AT 11,17;A$
IF VAL N$(LEN N$)+VAL M$(LEN M$)<10 THEN GOTO 615
PRINT AT 7,13;B$;"1"
GOSUB 695
PRINT AT 7,13;A$;AT 8,13;B$
GOSUB 695
PRINT AT 8,13;A$
IF M$(1)=" " THEN GOTO 650
PRINT AT 9,13;B$
GOSUB 695
PRINT AT 9,13;A$
PRINT AT 11,13;B$;T$(2)
GOSUB 695
PRINT AT 11,13;A$
IF L=4 OR M$(1)=" " THEN GOTO 540
IF VAL N$(1)+VAL M$(1)+1<10 THEN GOTO 540
PRINT AT 7,12;B$;"1"
GOSUB 695
PRINT AT 7,12;A$;AT 11,12;B$;"1"
GOTO 540
FOR J=1 TO 10
NEXT J
RETURN
LET N=INT (RND*G)+1
LET M=ABS ((INT (RND*G)+1)-N)
IF N>M THEN GOTO 740
LET S=M
LET M=N
LET N=S
IF L=2 AND N+M<10 THEN GOTO 710
LET N$=STR$ N
LET M$=STR$ M
IF L<3 THEN GOTO 785
LET A=VAL N$(LEN N$)+VAL M$(LEN M$)
IF ((L=4 OR L=6) AND A<10) OR ((L=3 OR L=5) AND A>9) THEN GOTO 710
IF L<>5 OR LEN N$<>2 OR LEN M$<>2 THEN GOTO 780
IF VAL N$(1)+VAL M$(1)>9 THEN GOTO 710
IF (L<5 AND N<10 AND M<10) OR (L>4 AND N<20 AND M<20) THEN LET N$=STR$ (N+10)
IF LEN N$=1 THEN LET N$=" "+N$
IF LEN M$=1 THEN LET M$=" "+M$
RETURN
LET B$="[,,][,,]"
LET A=22
LET B=21
LET C=12
LET D=-1
LET E=1
LET F=7
IF R$="2" THEN LET F=11
GOTO 875
LET B$=",,,,"
LET A=6
LET B=5
LET C=14
LET D=1
LET E=-1
LET A$="  "
FOR I=14 TO 11 STEP -1
PRINT AT I,A;B$;AT I,A;A$
NEXT I
RETURN
FOR I=B TO C STEP D
PRINT AT 11,I;" ";B$;" "
NEXT I
RETURN
FOR I=C TO B STEP E
PRINT AT 11,I;" ";B$;" "
NEXT I
FOR I=11 TO 13
PRINT AT I,A;B$;AT I,A;A$
NEXT I
PRINT AT 14,A;B$
RETURN
PRINT AT 21,5;"PRESS ENTER TO BEGIN"
IF INKEY$ <>"" THEN GOTO 970
IF INKEY$ ="" THEN GOTO 975
LET G$=INKEY$ 
RETURN
SAVE "AD[D]"
GOTO 5
 
 
REM (C) COPYRIGHT AMT, 1983
LET Z$="SUBTRACTION"
PRINT AT 2,1;"▛▀▜";TAB 1;"▌A▐ ADVANCED";TAB 1;"▌ ▐";TAB 1;"▌M▐  MICRO";TAB 1;"▌ ▐";TAB 1;"▌T▐   TECHNOLOGIES";TAB 1;"▙▄▟";AT 12,9;"** PRESENTS **";AT 14,10;Z$  
GOSUB 960
IF G$<>CHR$ 118 THEN GOTO 15
CLS
PRINT TAB 6;Z$;" LEVELS";AT 3,4;"SUBTRACT NUMBERS FROM:";AT 7,1;"1)  1 TO 9";AT 9,1;"2)  1 TO 19 WITHOUT CARRY";AT 11,1;"3)  1 TO 19 WITH CARRY";AT 13,1;"4)  1 TO 99 WITHOUT CARRY";AT 15,1;"5)  1 TO 99 WITH CARRY";AT 19,6;"SELECT YOUR LEVEL";AT 21,9;"ENTER (1-5):"
GOSUB 970
IF G$<"1" OR G$>"5" THEN GOTO 35
LET L=VAL G$
CLS
LET L$=STR$ L
PRINT AT 1,4;"LEVEL ";L$;" HAS 10 PROBLEMS"
PRINT AT 6,5;"    DO YOU WISH:";AT 8,9;"1) A TEST";AT 10,9;"2) A REVIEW";AT 12,9;"3) A NEW LEVEL";AT 14,9;"4) TO END";AT 19,2;"PLEASE MAKE YOUR SELECTION";AT 21,9;"ENTER (1-4):"
GOSUB 970
IF G$<"1" OR G$>"4" THEN GOTO 65
IF G$="3" THEN GOTO 25
RAND 0
LET R$=G$
CLS
PRINT AT 1,9;Z$;AT 3,11;"LEVEL: ";L$;AT 5,4;"▛▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▜"
FOR I=6 TO 14
PRINT AT I,4;"▌";TAB 25;"▐"
NEXT I
PRINT AT 15,4;"▙████████████████████▟";AT 14,6;",,,,";TAB 22;"[,,][,,]"    
IF R$="4" THEN GOTO 460
LET X=1
IF R$="2" THEN PRINT AT 17,9;"** REVIEW **"
PRINT AT 19,11;"PROBLEM ";X
LET R=0
LET W=0
LET G=19
IF L=1 THEN LET G=9
IF L>3 THEN LET G=99
GOTO 380
LET S=0
LET X=X+1
PRINT AT 14,6;",,,,";TAB 22;"[,,][,,]";AT 8,15;N$;AT 9,12;"-  ";M$;AT 10,12;"-----";AT 11,16;"*"
IF R$<>"2" THEN GOTO 190
PRINT AT 21,0;"PRESS ENTER FOR ANSWER, Q TO END"
GOSUB 970
IF G$=CHR$ 54 THEN GOTO 50
IF G$<>CHR$ 118 THEN GOTO 185
PRINT AT 21,0;"                                "
GOTO 520
LET S$=""
GOSUB 970
IF (G$=CHR$ 118 OR G$=CHR$ 39) AND S=1 THEN GOTO 250
IF LEN S$=3 OR G$<"0" OR G$>"9" THEN GOTO 195
LET S=1
LET S$=G$+S$
LET A$="*"+S$
IF LEN S$=0 THEN LET A$="   *"
IF LEN S$=1 THEN LET A$="  *"+S$
IF LEN S$=2 THEN LET A$=" *"+S$
PRINT AT 11,13;A$
GOTO 195
IF G$<>CHR$ 39 THEN GOTO 285
IF LEN S$>1 THEN GOTO 275
LET S$=""
LET S=0
GOTO 220
LET S$=S$(2 TO )
GOTO 220
PRINT AT 11,16-LEN S$;" "
IF VAL S$<>VAL T$ THEN GOTO 470
LET R=R+1
GOSUB 845
PRINT AT 10,6;"~~~~▝";AT 10,6;",,,,▝▞";AT 10,6;A$;AT 9,8;",,,,▞";AT 9,8;"~~~~";AT 9,8;A$;AT 8,9;",,,,▞";AT 8,9;"~~~~";AT 8,9;A$
GOSUB 935
GOSUB 800
GOSUB 900
PRINT AT 11,13;A$;B$
FOR J=15 TO F STEP -4
FOR I=11 TO 7 STEP -1
PRINT AT I,J;B$;AT I,J;A$
NEXT I
FOR I=7 TO 11
PRINT AT I,J-2;B$;AT I,J-2;A$
NEXT I
NEXT J
GOSUB 920
IF X<11 THEN PRINT AT 19,19;X
IF X<11 THEN GOSUB 710
IF X<11 THEN GOTO 170
PRINT AT 17,9;"            "
IF R$="2" THEN GOTO 60
PRINT AT 19,11;"          ";AT 21,3;"                            ";AT 7,8;"YOUR SCORE IS:";AT 9,10;R;" CORRECT";AT 11,10;W;" WRONG";AT 19,2;
IF R>7 THEN GOTO 430
IF R=7 THEN GOTO 420
LET L=L-1
IF L=0 THEN LET L=1
PRINT "  LET US REVIEW LEVEL ";L;"."
GOTO 445
PRINT AT 19,2;"LET US CONTINUE AT LEVEL ";L;"."
GOTO 445
IF L=5 THEN PRINT AT 16,8;"CONGRATULATIONS";AT 18,0;"YOU HAVE SUCCESSFULLY COMPLETED";AT 19,6;"THE HIGHEST LEVEL.";AT 21,4;"PRESS ENTER TO CONTINUE"
IF L=5 THEN GOTO 447
LET L=L+1
PRINT "LET US ADVANCE TO LEVEL ";L;"."
PRINT AT 21,5;"PRESS ENTER TO BEGIN"
GOSUB 970
IF G$<>CHR$ 118 THEN GOTO 447
GOTO 50
PRINT AT 8,8;"THANK YOU FOR";AT 10,5;"PLAYING ";Z$
STOP
LET W=W+1
GOSUB 845
PRINT AT 8,6;B$;"▗ ▗";AT 8,6;A$;AT 9,7;B$;"▚▘";AT 9,7;A$;AT 10,6;B$;"▗▘▚";AT 10,6;A$
GOSUB 935
GOSUB 800
GOSUB 900
PRINT AT 11,13;A$
FOR I=10 TO 8 STEP -1
PRINT AT I,9;B$;AT I,9;A$
NEXT I
FOR I=8 TO 10
PRINT AT I,7;B$;AT I,7;A$
NEXT I
GOSUB 920
GOSUB 845
GOSUB 900
IF L<3 OR L=4 OR N$(1)="1" THEN GOTO 535
GOTO 553
PRINT AT 11,16;T$(2);AT 11,13;B$;T$(1);AT 11,13;A$
LET C=10
GOSUB 920
PRINT AT 21,4;"PRESS ENTER TO CONTINUE"
GOSUB 970
IF G$<>CHR$ 118 THEN GOTO 545
PRINT AT 21,4;"                       "
GOSUB 800
LET F=11
GOTO 320
PRINT AT 11,15;A$
PRINT AT 8,15;CHR$ (CODE (N$(1))+128);AT 7,15;VAL N$(1)-1;AT 8,17;B$
GOSUB 695
PRINT AT 8,17;A$;AT 9,17;B$
GOSUB 695
PRINT AT 9,17;A$;AT 11,16;T$(2);B$
GOSUB 695
PRINT AT 11,17;A$;AT 7,13;B$
GOSUB 695
PRINT AT 7,13;A$
IF M$(1)=" " THEN GOTO 650
PRINT AT 9,13;B$
GOSUB 695
PRINT AT 9,13;A$;AT 11,13;B$;T$(1)
GOSUB 695
PRINT AT 11,13;A$
GOTO 540
FOR J=1 TO 10
NEXT J
RETURN
LET N=INT (RND*G)+1
LET M=ABS ((INT (RND*G)+1)-N)
IF N>M THEN GOTO 745
LET S=M
LET M=N
LET N=S
LET N$=STR$ N
LET M$=STR$ M
IF L=1 THEN GOTO 785
LET A=VAL N$(LEN N$)-VAL M$(LEN M$)
IF ((L=3 OR L=5) AND A>-1) OR ((L=2 OR L=4) AND A<0) THEN GOTO 710
IF L<>4 OR LEN N$<>2 OR LEN M$<>2 THEN GOTO 780
IF VAL N$(1)-VAL M$(1)<0 THEN GOTO 710
IF (L<5 AND N<10 AND M<10) OR (L>4 AND N<20 AND M<20) THEN LET N$=STR$ (N+10)
IF LEN N$=1 THEN LET N$=" "+N$
IF LEN M$=1 THEN LET M$=" "+M$
LET T$=STR$ (VAL N$-M)
IF LEN T$=1 THEN LET T$=" "+T$
RETURN
LET B$="[,,][,,]"
LET A=22
LET B=21
LET C=12
LET D=-1
LET E=1
LET F=7
IF R$="2" THEN LET F=11
GOTO 875
LET B$=",,,,"
LET A=6
LET B=5
LET C=14
LET D=1
LET E=-1
LET A$="  "
FOR I=14 TO 11 STEP -1
PRINT AT I,A;B$;AT I,A;A$
NEXT I
RETURN
FOR I=B TO C STEP D
PRINT AT 11,I;" ";B$;" "
NEXT I
RETURN
FOR I=C TO B STEP E
PRINT AT 11,I;" ";B$;" "
NEXT I
FOR I=11 TO 13
PRINT AT I,A;B$;AT I,A;A$
NEXT I
PRINT AT 14,A;B$
RETURN
PRINT AT 21,5;"PRESS ENTER TO BEGIN"
IF INKEY$ <>"" THEN GOTO 970
IF INKEY$ ="" THEN GOTO 975
LET G$=INKEY$ 
RETURN
SAVE "SU[B]"
GOTO 5
 
 
REM (C) COPYRIGHT AMT, 1983
LET Z$="MULTIPLICATION"
PRINT AT 2,1;"▛▀▜";TAB 1;"▌A▐ ADVANCED";TAB 1;"▌ ▐";TAB 1;"▌M▐  MICRO";TAB 1;"▌ ▐";TAB 1;"▌T▐   TECHNOLOGIES";TAB 1;"▙▄▟";AT 12,8;"** PRESENTS **";AT 14,8;Z$  
GOSUB 960
IF G$<>CHR$ 118 THEN GOTO 15
CLS
PRINT TAB 5;Z$;" LEVELS";AT 2,3;"MULTIPLIER   MULTIPLICAND";AT 4,0;"1)     1-5          1-5";AT 6,0;"2)     1-5          6-9";AT 8,0;"3)     6-9          6-9";AT 10,0;"4)     1-9         10-19";AT 12,0;"5)     1-9         20-99";AT 14,0;"6)    10-19        10-19";AT 16,0;"7)    20-99        20-99";AT 18,0;"8)  MULTIPLICATION TABLES (1-9)";AT 20,7;"SELECT YOUR LEVEL";AT 21,10;"ENTER (1-8):"
GOSUB 970
IF G$<"1" OR G$>"8" THEN GOTO 35
LET L=VAL G$
IF L<8 THEN GOTO 50
CLS
PRINT AT 3,5;Z$;" TABLES";AT 11,1;"PLEASE SELECT THE MULTIPLIER";AT 13,9;"FROM 1 TO 9.";AT 20,9;"ENTER (1-9):"
GOSUB 970
IF G$<"1" OR G$>"9" THEN GOTO 47
LET K$=G$
CLS
LET L$=STR$ L
PRINT AT 1,4;"LEVEL ";L$;" HAS 10 PROBLEMS"
PRINT AT 6,5;"    DO YOU WISH:";AT 8,9;"1) A TEST";AT 10,9;"2) A REVIEW";AT 12,9;"3) A NEW LEVEL";AT 14,9;"4) TO END";AT 19,2;"PLEASE MAKE YOUR SELECTION";AT 21,9;"ENTER (1-4):"
GOSUB 970
IF G$<"1" OR G$>"4" THEN GOTO 65
IF G$="3" THEN GOTO 25
RAND 0
LET R$=G$
CLS
PRINT AT 1,8;Z$;AT 3,11;"LEVEL: ";L$;AT 5,4;"▛▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▜"
FOR I=6 TO 14
PRINT AT I,4;"▌";TAB 25;"▐"
NEXT I
PRINT AT 15,4;"▙████████████████████▟";AT 14,6;",,,,";TAB 22;"[,,][,,]"    
IF R$="4" THEN GOTO 460
LET X=1
IF R$="2" THEN PRINT AT 17,9;"** REVIEW **"
PRINT AT 19,11;"PROBLEM ";X
LET R=0
LET W=0
IF L<8 THEN GOTO 146
LET N=X
LET M=VAL K$
GOSUB 784
GOTO 170
LET G=9
LET H=9
IF L<3 THEN LET G=5
IF L=6 THEN LET G=19
IF L=7 THEN LET G=99
IF L=1 THEN LET H=5
IF L=4 OR L=6 THEN LET H=19
IF L=5 OR L=7 THEN LET H=99
GOTO 380
LET S=0
LET Z=0
LET X=X+1
PRINT AT 14,6;",,,,";TAB 22;"[,,][,,]";AT 7,15;N$;AT 8,13;"X ";M$;AT 9,13;"----";AT 10,16;"*"
IF R$<>"2" THEN GOTO 190
PRINT AT 21,0;"PRESS ENTER FOR ANSWER, Q TO END"
GOSUB 970
IF G$=CHR$ 54 THEN GOTO 50
IF G$<>CHR$ 118 THEN GOTO 183
PRINT AT 21,0;"                                "
GOTO 510
LET S$=""
GOSUB 970
IF (G$=CHR$ 118 OR G$=CHR$ 39) AND S=1 THEN GOTO 250
IF LEN S$=4 OR G$<"0" OR G$>"9" THEN GOTO 195
LET S=1
LET S$=G$+S$
LET A$="*"+S$
IF LEN S$=0 THEN LET A$="    *"
IF LEN S$=1 THEN LET A$="   *"+S$
IF LEN S$=2 THEN LET A$="  *"+S$
IF LEN S$=3 THEN LET A$=" *"+S$
PRINT AT 10+Z,12;
IF Z=1 THEN PRINT AT 10+Z,11;
PRINT A$
GOTO 195
IF G$<>CHR$ 39 THEN GOTO 285
IF LEN S$>1 THEN GOTO 275
LET S$=""
LET S=0
GOTO 220
LET S$=S$(2 TO )
GOTO 220
IF Z=0 OR Z=3 THEN PRINT AT 10+Z,16-LEN S$;" "
IF L<6 OR L=8 THEN GOTO 301
IF Z=3 THEN GOTO 300
IF Z=0 THEN PRINT AT 11,15;"*"
IF Z=0 THEN LET T1=VAL S$
IF Z<>1 THEN GOTO 297
PRINT AT 11,14-LEN S$;"+ ";AT 12,12;"-----";AT 13,16;"*"
IF LEN S$>2 THEN PRINT AT 12,11;"-"
LET Z=Z+1
LET T2=VAL S$
LET Z=Z+1
LET S=0
GOTO 190
IF T1<>VAL M$(2)*N OR T2<>VAL M$(1)*N THEN GOTO 470
IF VAL S$<>VAL T$ THEN GOTO 470
LET R=R+1
GOSUB 845
PRINT AT 9,6;"~~~~▝";AT 9,6;",,,,▝▞";AT 9,6;A$;AT 8,8;",,,,▞";AT 8,8;"~~~~";AT 8,8;A$;AT 7,9;",,,,▞";AT 7,9;"~~~~";AT 7,9;A$
GOSUB 935
IF L=6 OR L=7 THEN GOTO 587
GOSUB 800
GOSUB 900
PRINT AT 10,13;A$;B$
FOR J=15 TO F STEP -4
FOR I=10 TO 6 STEP -1
PRINT AT I,J;B$;AT I,J;A$
NEXT I
FOR I=6 TO 10
PRINT AT I,J-2;B$;AT I,J-2;A$
NEXT I
NEXT J
GOSUB 920
IF X>10 THEN GOTO 387
PRINT AT 19,19;X
IF L=8 THEN GOTO 142
GOSUB 710
GOTO 170
IF R$="2" AND L=8 THEN GOTO 396
PRINT AT 17,9;"            "
IF R$="2" THEN GOTO 60
PRINT AT 19,11;"          ";AT 21,3;"                            ";AT 7,8;"YOUR SCORE IS:";AT 9,10;R;" CORRECT";AT 11,10;W;" WRONG";AT 19,2;
IF L<8 THEN GOTO 401
PRINT AT 19,11;"          "
PRINT AT 20,1;"PRESS ENTER TO RETURN TO MENU"
GOSUB 970
IF G$<>CHR$ 118 THEN GOTO 398
GOTO 25
IF R>7 THEN GOTO 430
IF R=7 THEN GOTO 420
IF L=1 THEN GOTO 415
LET L=L-1
PRINT "  LET US REVIEW LEVEL ";L;"."
GOTO 445
PRINT AT 19,2;"LET US CONTINUE AT LEVEL ";L;"."
GOTO 445
IF L=7 THEN PRINT AT 16,8;"CONGRATULATIONS";AT 18,0;"YOU HAVE SUCCESSFULLY COMPLETED";AT 19,6;"THE HIGHEST LEVEL.";AT 21,4;"PRESS ENTER TO CONTINUE"
IF L=7 THEN GOTO 447
LET L=L+1
PRINT "LET US ADVANCE TO LEVEL ";L;"."
PRINT AT 21,5;"PRESS ENTER TO BEGIN"
GOSUB 970
IF G$<>CHR$ 118 THEN GOTO 447
GOTO 50
PRINT AT 8,8;"THANK YOU FOR";AT 10,11;"PLAYING";AT 12,8;Z$
STOP
LET W=W+1
GOSUB 845
PRINT AT 7,6;B$;"▗ ▗";AT 7,6;A$;AT 8,7;B$;"▚▘";AT 8,7;A$;AT 9,6;B$;"▗▘▚";AT 9,6;A$
GOSUB 935
GOSUB 800
GOSUB 900
PRINT AT 10,13;A$
IF L<6 OR L=8 THEN GOTO 490
FOR J=15 TO 11 STEP -4
FOR I=10 TO 13
PRINT AT I,J;B$;AT I,J;A$
NEXT I
FOR I=13 TO 10 STEP -1
PRINT AT I,J-2;B$;AT I,J-2;A$
NEXT I
NEXT J
PRINT AT 10,9;A$
FOR I=9 TO 7 STEP -1
PRINT AT I,9;B$;AT I,9;A$
NEXT I
FOR I=7 TO 9
PRINT AT I,7;B$;AT I,7;A$
NEXT I
GOSUB 920
GOSUB 845
GOSUB 900
IF N$(1)<>" " THEN GOTO 553
PRINT AT 10,16;T$(4);AT 10,13;B$;T$(3);AT 10,12;B$;T$(2);AT 10,11;B$;T$(1)
LET C=9
GOSUB 920
PRINT AT 21,4;"PRESS ENTER TO CONTINUE"
GOSUB 970
IF G$<>CHR$ 118 THEN GOTO 545
PRINT AT 21,4;"                       "
GOSUB 800
LET F=12
GOTO 320
LET G$=STR$ (VAL N$(2)*VAL M$(2))
IF LEN G$=1 THEN LET G$=" "+G$
PRINT AT 7,16;CHR$ (CODE (N$(2))+128);AT 8,16;CHR$ (CODE (M$(2))+128);AT 10,16;G$(2);AT 10,14;B$;AT 6,15;G$(1)
GOSUB 703
LET H$=STR$ (VAL N$(1)*VAL M$(2))
IF G$(1)<>" " THEN LET H$=STR$ (VAL H$+VAL G$(1))
PRINT AT 7,16;N$(2);AT 7,15;CHR$ (CODE (N$(1))+128);AT 10,16-LEN H$;H$;AT 10,14-LEN H$;B$
GOSUB 703
PRINT AT 10,14-LEN H$;A$;AT 8,16;M$(2);AT 7,15;N$(1);AT 6,15;" "
IF M$(1)=" " THEN GOTO 540
LET G$=STR$ (VAL N$(2)*VAL M$(1))
IF LEN G$=1 THEN LET G$=" "+G$
PRINT AT 8,15;CHR$ (CODE (M$(1))+128);AT 7,16;CHR$ (CODE (N$(2))+128);AT 11,13;B$;G$(2);AT 6,15;G$(1)
GOSUB 703
LET H$=STR$ (VAL N$(1)*VAL M$(1))
IF G$(1)<>" " THEN LET H$=STR$ (VAL H$+VAL G$(1))
PRINT AT 7,16;N$(2);AT 7,15;CHR$ (CODE (N$(1))+128);AT 11,15-LEN H$;H$;AT 11,13-LEN H$;B$
GOSUB 703
PRINT AT 8,15;M$(1);AT 7,15;N$(1);AT 6,15;" ";AT 11,11-LEN H$;B$;"+ ";AT 12,12;"-----"
IF T$(1)<>" " THEN PRINT AT 12,11;"-"
PRINT AT 11,11-LEN H$;A$;AT 13,15;B$;AT 13,14;B$;T$(4);AT 13,13;B$;T$(3);AT 13,12;B$;T$(2);AT 13,11;B$;T$(1);AT 13,9;B$;A$;AT 13,7;B$;A$;AT 13,6;B$;A$;AT 13,6;A$;AT 14,6;B$
LET Z=0
PRINT AT 21,4;"PRESS ENTER TO CONTINUE"
GOSUB 970
IF G$<>CHR$ 118 THEN GOTO 585
LET B$="[,,][,,]"
PRINT AT 21,4;"                       "
IF L=4 OR L=5 THEN GOTO 315
PRINT AT 14,22;A$;AT 14,20;B$;AT 14,20;A$;
FOR J=16 TO 9-Z STEP -4
FOR I=13 TO 7 STEP -1
PRINT AT I,J;B$;AT I,J;A$
NEXT I
FOR I=7 TO 13
PRINT AT I,J-2;B$;AT I,J-2;A$
NEXT I
NEXT J
PRINT AT 14,22;B$
GOTO 375
FOR J=1 TO 10
NEXT J
RETURN
LET N=INT (RND*H)+1
LET M=INT (RND*G)+1
IF N>=M THEN GOTO 750
IF L=2 OR L=4 OR L=5 THEN GOTO 710
LET T=M
LET M=N
LET N=T
IF L=1 THEN GOTO 784
IF L>5 THEN GOTO 767
IF L=3 AND N<6 THEN LET M=M+4
IF L=3 AND N>5 THEN LET M=N-1
IF L=3 AND M=5 THEN LET M=6
IF L<4 AND N<6 THEN LET N=N+4
IF L=4 AND N<10 THEN LET N=N+10
IF L=5 AND N<20 THEN LET N=N+40
GOTO 784
IF L=7 THEN GOTO 775
IF N=10 THEN LET M=10
IF N>10 AND M<10 THEN LET M=N-1
IF N>9 THEN GOTO 784
LET N=N+10
LET M=M+10
GOTO 784
IF N=20 THEN LET M=20
IF N>20 AND M<20 THEN LET M=N-1
IF N>19 THEN GOTO 784
LET N=N+40
LET M=M+40
LET N$=STR$ N
LET M$=STR$ M
IF LEN N$=1 THEN LET N$=" "+N$
IF LEN M$=1 THEN LET M$=" "+M$
LET T$=STR$ (N*M)
IF LEN T$=1 THEN LET T$="   "+T$
IF LEN T$=2 THEN LET T$="  "+T$
IF LEN T$=3 THEN LET T$=" "+T$
RETURN
LET B$="[,,][,,]"
LET A=22
LET B=21
LET C=12
LET D=-1
LET E=1
LET F=7
IF R$="2" THEN LET F=12
GOTO 875
LET B$=",,,,"
LET A=6
LET B=5
LET C=14
LET D=1
LET E=-1
LET A$="  "
FOR I=14 TO 10 STEP -1
PRINT AT I,A;B$;AT I,A;A$
NEXT I
RETURN
FOR I=B TO C STEP D
PRINT AT 10,I;" ";B$;" "
NEXT I
RETURN
FOR I=C TO B STEP E
PRINT AT 10,I;" ";B$;" "
NEXT I
FOR I=10 TO 13
PRINT AT I,A;B$;AT I,A;A$
NEXT I
PRINT AT 14,A;B$
RETURN
PRINT AT 21,5;"PRESS ENTER TO BEGIN"
IF INKEY$ <>"" THEN GOTO 970
IF INKEY$ ="" THEN GOTO 975
LET G$=INKEY$ 
RETURN
SAVE "MUL[T]"
GOTO 5
 
 
REM (C) COPYRIGHT AMT, 1983
LET Z$="DIVISION"
PRINT AT 2,1;"▛▀▜";TAB 1;"▌A▐ ADVANCED";TAB 1;"▌ ▐";TAB 1;"▌M▐  MICRO";TAB 1;"▌ ▐";TAB 1;"▌T▐   TECHNOLOGIES";TAB 1;"▙▄▟";AT 12,8;"** PRESENTS **";AT 14,11;Z$  
GOSUB 1695
IF G$<>CHR$ 118 THEN GOTO 15
CLS
PRINT TAB 7;Z$;" LEVELS";AT 2,6;"DIVISOR  DIVIDEND";AT 4,1;"1)     1-9      1-9";AT 6,1;"2)     1-9      1-9   REMAINDER";AT 8,1;"3)     1-9     10-19";AT 10,1;"4)     1-9     10-19  REMAINDER";AT 12,1;"5)     1-9     20-99";AT 14,1;"6)     1-9     20-99  REMAINDER";AT 16,1;"7)    10-99    10-99";AT 18,1;"8)    10-99    10-99  REMAINDER";AT 20,6;"SELECT YOUR LEVEL";AT 21,9;"ENTER (1-8):"
GOSUB 1700
IF G$<"1" OR G$>"8" THEN GOTO 35
LET L=VAL G$
CLS
LET L$=STR$ L
PRINT AT 1,4;"LEVEL ";L$;" HAS 10 PROBLEMS"
PRINT AT 6,5;"    DO YOU WISH:";AT 8,9;"1) A TEST";AT 10,9;"2) A REVIEW";AT 12,9;"3) A NEW LEVEL";AT 14,9;"4) TO END";AT 19,2;"PLEASE MAKE YOUR SELECTION";AT 21,9;"ENTER (1-4):"
GOSUB 1700
IF G$<"1" OR G$>"4" THEN GOTO 70
IF G$="3" THEN GOTO 25
RAND 0
LET R$=G$
CLS
PRINT AT 1,11;Z$;AT 3,11;"LEVEL: ";L$;AT 5,4;"▛▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▜"
FOR I=6 TO 14
PRINT AT I,4;"▌";TAB 25;"▐"
NEXT I
PRINT AT 15,4;"▙████████████████████▟";AT 14,6;",,,,";TAB 22;"[,,][,,]"    
IF R$="4" THEN GOTO 880
LET X=1
IF R$="2" THEN PRINT AT 17,9;"** REVIEW **"
PRINT AT 19,11;"PROBLEM ";X
LET K=1
LET O=1
LET R=0
LET W=0
LET E$=""
LET G=9
LET H=10
IF L>6 THEN LET G=90
IF L<3 THEN LET H=9
IF L=5 OR L=6 THEN LET H=99
IF L>6 THEN LET H=90
IF H=10 OR H=90 THEN LET K=10
IF H=90 THEN LET O=10
GOTO 785
LET S=0
LET Z=0
LET Y=0
LET RE=0
LET C$=""
LET X=X+1
PRINT AT 14,6;",,,,";TAB 22;"[,,][,,]";AT 7,13;"▄▄▄▄";AT 8,11;M$;"▌";N$
PRINT AT 6,14;
IF M>VAL N$(1) THEN PRINT AT 6,15;
PRINT "*"
IF R$<>"2" THEN GOTO 305
PRINT AT 21,0;"PRESS ENTER FOR ANSWER, Q TO END"
GOSUB 1700
IF G$=CHR$ 54 THEN GOTO 50
IF G$<>CHR$ 118 THEN GOTO 280
PRINT AT 21,0;"                                "
GOTO 1015
LET D$=""
LET S$=""
GOSUB 1700
IF (G$=CHR$ 118 OR G$=CHR$ 39) AND S=1 THEN GOTO 425
IF LEN S$=2 OR G$<"0" OR G$>"9" THEN GOTO 315
IF (Z=0 OR (M<=VAL N$(1) AND C$="")) AND LEN S$=1 AND RE=0 THEN GOTO 315
LET S=1
IF RE=1 THEN LET S$=S$+G$
IF RE=0 THEN LET S$=G$+S$
IF Z<>0 THEN GOTO 390
LET A$=S$+"*"
IF S=0 THEN LET A$="*  "
IF LEN S$=1 THEN LET A$=S$+"* "
PRINT AT 6,14;
IF C$<>"" OR M>VAL N$(1) THEN PRINT AT 6,15;
IF RE=1 THEN PRINT AT 6,18;
GOTO 415
LET A$="*"+S$
IF S=0 THEN LET A$="  *"
IF LEN S$=1 THEN LET A$=" *"+S$
PRINT AT 6+Z,12;
IF M>VAL N$(1) OR C$<>"" THEN PRINT AT 6+Z,13;
PRINT A$
GOTO 315
IF G$<>CHR$ 39 THEN GOTO 465
IF LEN S$>1 THEN GOTO 450
LET S$=""
LET S=0
GOTO 350
IF RE=0 THEN LET S$=S$(2)
IF RE=1 THEN LET S$=S$(1)
GOTO 350
IF RE=1 THEN GOTO 665
IF Z=0 THEN GOTO 530
IF Z=8 THEN GOTO 605
IF Z<>5 THEN GOTO 560
LET C$=S$
IF M<=VAL N$(1) AND VAL C$<>VAL N$(1)-INT (VAL N$(1)/M)*M THEN LET Y=1
IF M>VAL N$(1) AND VAL C$<>VAL N$-INT (VAL N$/M)*M THEN LET Y=1
PRINT AT 11,13;" "
IF M>VAL N$(1) AND LEN S$=1 THEN PRINT AT 11,14;" "
IF M>VAL N$(1) OR LEN N$=1 THEN GOTO 615
PRINT AT 11,15;N$(2);AT 6,15;"*"
LET Z=0
GOTO 655
LET D$=D$+S$
PRINT AT 6,16;" "
IF M<=VAL N$(1) THEN PRINT AT 6,14+LEN D$;" "
LET Z=3
IF C$<>"" THEN LET Z=6
GOTO 640
IF (M>VAL N$(1) OR C$<>"") AND LEN S$=1 THEN PRINT AT 6+Z,14;" "
PRINT AT 6+Z,13;"-";AT 7+Z,13;"---"
IF Z=6 THEN GOTO 590
IF M<=VAL N$(1) AND VAL S$<>INT (VAL N$(1)/M)*M THEN LET Y=1
IF M>VAL N$(1) AND VAL S$<>INT (VAL N$/M)*M THEN LET Y=1
GOTO 595
IF VAL S$<>INT (VAL (STR$ (VAL N$(1)-INT (VAL N$(1)/M)*M)+N$(2))/M)*M THEN LET Y=1
LET Z=Z+2
GOTO 640
IF VAL S$<>N-INT (N/M)*M THEN LET Y=1
PRINT AT 14,15-LEN S$;" "
IF L=1 OR L=3 OR L=5 OR L=7 THEN GOTO 665
PRINT AT 6,17;"R*"
LET Z=0
LET RE=1
GOTO 655
PRINT AT 6+Z,15;
IF C$="" AND M<=VAL N$(1) THEN PRINT AT 6+Z,14;
PRINT "*"
LET S=0
GOTO 310
IF RE=1 AND VAL S$<>N-INT (N/M)*M THEN LET Y=1
IF RE=1 THEN PRINT AT 6,18+LEN S$;" "
IF Y=1 OR VAL D$<>INT (N/M) THEN GOTO 890
LET R=R+1
LET P=11
GOSUB 1575
PRINT AT 10,5;"~~▝";AT 10,5;",,▝▞";AT 10,5;" ";AT 9,6;",,,,▞";AT 9,6;"~~~~";AT 9,6;A$;AT 8,7;",,,,▞";AT 8,7;"~~~~";AT 8,7;A$
GOSUB 1670
IF LEN STR$ (INT (N/M))=2 THEN LET Z=6
IF LEN STR$ (INT (N/M))=2 THEN GOTO 1390
GOSUB 1525
GOSUB 1630
PRINT AT 6,13;A$
FOR J=15 TO F STEP -4
FOR I=6 TO 11
PRINT AT I,J;B$;AT I,J;A$
NEXT I
FOR I=11 TO 6 STEP -1
PRINT AT I,J-2;B$;AT I,J-2;A$
NEXT I
NEXT J
GOSUB 1650
IF X>10 THEN GOTO 795
PRINT AT 19,19;X
GOSUB 1460
GOTO 220
PRINT AT 17,9;"            "
IF R$="2" THEN GOTO 65
PRINT AT 19,11;"          ";AT 21,3;"                            ";AT 7,8;"YOUR SCORE IS:";AT 9,10;R;" CORRECT";AT 11,10;W;" WRONG";AT 19,2;
IF R>7 THEN GOTO 850
IF R=7 THEN GOTO 840
IF L=1 THEN GOTO 830
LET L=L-1
PRINT "  LET US REVIEW LEVEL ";L;"."
GOTO 865
PRINT AT 19,2;"LET US CONTINUE AT LEVEL ";L;"."
GOTO 865
IF L=8 THEN PRINT AT 16,8;"CONGRATULATIONS";AT 18,0;"YOU HAVE SUCCESSFULLY COMPLETED";AT 19,6;"THE HIGHEST LEVEL.";AT 21,4;"PRESS ENTER TO CONTINUE"
IF L=8 THEN GOTO 867
LET L=L+1
PRINT "LET US ADVANCE TO LEVEL ";L;"."
PRINT AT 21,5;"PRESS ENTER TO BEGIN"
GOSUB 1700
IF G$<>CHR$ 118 THEN GOTO 867
GOTO 50
PRINT AT 8,8;"THANK YOU FOR";AT 10,11;"PLAYING";AT 12,10;Z$
STOP
LET W=W+1
LET P=11
GOSUB 1575
PRINT AT 8,5;",,▗ ▗";AT 8,5;" ";AT 9,5;",,,,▚▘";AT 9,5;A$;AT 10,5;",,▗▘▚";AT 10,5;" "
GOSUB 1670
GOSUB 1525
GOSUB 1630
PRINT AT 6,13;A$;AT 6,15;B$;AT 6,15;A$;AT 6,16;B$;AT 6,16;A$;AT 8,16;B$;AT 8,16;A$;AT 9,16;B$;AT 9,16;A$;AT 9,14;B$;AT 9,14;A$
LET P=11
IF LEN D$=2 THEN LET P=14
FOR I=9 TO P
PRINT AT I,14;B$;AT I,14;A$
NEXT I
FOR I=P TO 9 STEP -1
PRINT AT I,12;B$;AT I,12;A$
NEXT I
PRINT AT 10,9;A$
FOR I=10 TO 8 STEP -1
PRINT AT I,8;B$;AT I,8;A$
NEXT I
FOR I=8 TO 10
PRINT AT I,6;B$;AT I,6;A$
NEXT I
LET P=10
GOSUB 1650
LET P=6
GOSUB 1575
LET C=12
GOSUB 1630
IF M>VAL N$(1) THEN PRINT AT 6,13;" ";B$;AT 6,15;INT (N/M);AT 6,13;B$;AT 6,12;B$;" " 
IF M<=VAL N$(1) THEN PRINT AT 6,14;INT (VAL N$(1)/M);AT 6,12;B$
LET C=10
LET B=8
GOSUB 1650
PRINT AT 6,9;A$;AT 7,9;B$;AT 7,9;A$;AT 8,9;B$;AT 8,9;A$;AT 9,9;B$;
LET P=9
LET C=12
GOSUB 1630
IF M<=VAL N$(1) THEN GOTO 1100
LET H$=STR$ (INT (N/M)*M)
IF LEN H$=1 THEN LET H$=" "+H$
PRINT AT 9,13;" ";B$;AT 9,15;H$(2);AT 9,13;B$;AT 9,14;H$(1);AT 9,12;B$
GOTO 1105
PRINT AT 9,14;INT (VAL N$(1)/M)*M;AT 9,12;B$
GOSUB 1445
PRINT AT 9,11;B$;"-";AT 9,11;A$;AT 10,11;B$;"---";AT 10,11;A$;AT 11,11;B$;AT 11,11;" ";B$;AT 11,12;" ";B$
IF M<=VAL N$(1) THEN GOTO 1140
LET H$=STR$ (N-INT (N/M)*M)
IF LEN H$=1 THEN LET H$=" "+H$
PRINT AT 11,13;" ";B$;AT 11,15;H$(2);AT 11,13;B$;AT 11,14;H$(1);AT 11,12;B$
GOTO 1145
PRINT AT 11,14;VAL N$(1)-INT (VAL N$(1)/M)*M;AT 11,12;B$
IF LEN STR$ (INT (N/M))<>2 THEN LET P=11
IF LEN STR$ (INT (N/M))<>2 THEN GOTO 1235
LET H$=STR$ (INT (N/M))
PRINT AT 11,15;N$(2)
GOSUB 1445
PRINT AT 11,12;A$;AT 6,15;B$;AT 6,15;H$(2);B$
GOSUB 1445
LET H$=STR$ (INT (VAL (STR$ (VAL N$(1)-INT (VAL N$(1)/M)*M)+N$(2))/M)*M)
PRINT AT 6,16;A$
FOR I=8 TO 12
PRINT AT I,16;B$;AT I,16;A$
NEXT I
IF LEN H$=1 THEN LET H$=" "+H$
PRINT AT 12,14;B$;AT 12,15;H$(2);AT 12,13;B$;AT 12,14;H$(1);AT 12,12;B$
GOSUB 1445
PRINT AT 12,13;"-";AT 12,11;B$;AT 12,11;A$;AT 13,11;B$;"---";AT 13,11;A$;AT 14,11;B$;AT 14,11;" ";B$;AT 14,12;" ";B$;AT 14,13;" ";B$;AT 14,15;N-INT (N/M)*M;AT 14,13;B$;AT 14,12;B$;" "
GOSUB 1445
LET P=14
IF L=1 OR L=3 OR L=5 OR L=7 THEN GOTO 1260
PRINT AT 11,12;A$;AT 14,12;A$;AT 6,17;B$;AT 6,17;"R";B$;AT 6,18;N-INT (N/M)*M;B$
GOSUB 1445
PRINT AT 6,18+LEN STR$ (N-INT (N/M)*M);A$;AT 6,12;B$
LET P=6
LET C=10
LET B=5
GOSUB 1650
IF P=14 THEN GOTO 1345
GOSUB 1670
IF (L=2 OR L=4 OR L=6 OR L=8) AND LEN STR$ (INT (N/M))=2 THEN GOTO 1345
PRINT AT 21,4;"PRESS ENTER TO CONTINUE"
GOSUB 1700
IF G$<>CHR$ 118 THEN GOTO 1305
PRINT AT 21,4;"                       "
GOSUB 1525
LET F=11
GOTO 720
LET Z=0
PRINT AT 21,4;"PRESS ENTER TO CONTINUE"
GOSUB 1700
IF G$<>CHR$ 118 THEN GOTO 1365
PRINT AT 21,4;"                       "
GOSUB 1525
PRINT AT 6,18;B$;AT 6,18;A$
FOR J=16 TO 12-Z STEP -4
FOR I=6 TO 14
PRINT AT I,J;B$;AT I,J;A$
NEXT I
FOR I=14 TO 6 STEP -1
PRINT AT I,J-2;B$;AT I,J-2;A$;AT 14,6;",,,,"
NEXT I
NEXT J
GOSUB 1650
GOTO 775
FOR J=1 TO 10
NEXT J
RETURN
LET N=INT (RND*H)+K
LET M=INT (RND*G)+O
IF N>=M THEN GOTO 1490
LET T=M
LET M=N
LET N=T
IF (L=5 OR L=6) AND N<20 THEN LET N=N+19
IF (L=1 OR L=3 OR L=5 OR L=7) AND N-INT (N/M)*M<>0 THEN GOTO 1460
IF (L=2 OR L=4 OR L=6 OR L=8) AND N-INT (N/M)*M=0 THEN GOTO 1460
LET N$=STR$ N
LET M$=STR$ M
IF LEN M$=1 THEN LET M$=" "+M$
RETURN
LET B$="[,,][,,]"
LET A=22
LET B=21
LET C=12
LET D=-1
LET E=1
LET P=6
LET F=7
IF R$="2" THEN LET F=12
GOTO 1605
LET B$=",,,,"
LET A=6
LET B=5
LET C=14
LET D=1
LET E=-1
LET A$="  "
FOR I=14 TO P STEP -1
PRINT AT I,A;B$;AT I,A;A$
NEXT I
RETURN
FOR I=B TO C STEP D
PRINT AT P,I;" ";B$;" "
NEXT I
RETURN
FOR I=C TO B STEP E
PRINT AT P,I;" ";B$;" "
NEXT I
IF B$=",,,," THEN RETURN
FOR I=P TO 13
PRINT AT I,A;B$;AT I,A;A$
NEXT I
PRINT AT 14,A;B$
RETURN
PRINT AT 21,5;"PRESS ENTER TO BEGIN"
IF INKEY$ <>"" THEN GOTO 1700
IF INKEY$ ="" THEN GOTO 1705
LET G$=INKEY$ 
RETURN
SAVE "DI[V]"
GOTO 5

Note: Type-in program listings on this website use ZMAKEBAS notation for graphics characters.