195 *BEGIN›200 ,    C:#Z=@176/1024+3›205 ,    C:#Z=#Z*1024›210 ,    C:#Y=@B756*256›215 ,    C:@B756=#Z/256›220 ,    C:#W=#Z›225 R:#Y POINTS TO ORIGINAL CHARACTER SET›230 R:#Z POINTS TO NEW RAM CHARACTER SET›235 R:#W IS ALSO THE ADDRESS OF THE NEW CHARACTER SET›240 R:*******************************›245 R: PROGRAM DESIGNED FOR MERGING›250 R: WITH OTHER PROGRAMS - DO NOT›255 R:CHANGE THE LISTED LINE NUMBERS›260 R:*******************************›265 C:#M=0  [#M INITIALIZATION›270 C:#L=1  [#L IS THE MENU LINE THE POINTER IS ON›275 C:@B1373=16 [USE SPLIT SCREEN›280 C:@B1374=2  [USE LARGE CHARACTERS›285 POS:3,3›290 WRITE:S,›295 ,    C:@B756=#W/256›300 POS:3,3›305 WRITE:S,MATH PRACTICE›310 POS:3,6›315 WRITE:S, «  ­  ª  ¯›320 R:By Kathy and Phil Bergh›325 PA:40›330 ,    C:#X=0›335 *MOVEIT C:@B#Z=@B#Y [PART OF CHARACTER SET PROGRAM›340 ,    C:#Y=#Y+1›345 ,    C:#Z=#Z+1›350 ,    C:#X=#X+1›355 ,    J(#X<1024):*MOVEIT›360 ,    C:#W=#W+120›365 ,    C:@B#W=0›370 ,    C:#W=#W+1›375 ,    C:@B#W=24›380 ,    C:#W=#W+1›385 ,    C:@B#W=0›390 ,    C:#W=#W+1›395 ,    C:@B#W=126›400 ,    C:#W=#W+1›405 ,    C:@B#W=0›410 ,    C:#W=#W+1›415 ,    C:@B#W=24›420 ,    C:#W=#W+1›425 ,    C:@B#W=0›430 ,    C:#W=#W+1›435 ,    C:@B#W=0›440 CLOSE:S›445 *START›450 POS:3,2›455 C:@B1373=16 [USE SPLIT SCREEN›460 C:@B1374=2  [USE LARGE CHARACTERS›465 WRITE:S,}›470 ,    C:@B756=#W/256›475 POS:3,1›480 WRITE:S,« ADDITION›485 POS:3,3›490 WRITE:S,­ SUBTRACTION›495 POS:3,5›500 WRITE:S,Ø MULTIPLICATION›505 POS:3,7›510 WRITE:S,¯ DIVISION›515 POS:1,#L›520 WRITE:S,>›525 T:›530 T:      ÓÅÌÅÃÔ to move pointer›535 T:          ÓÔÁÒÔ to load›540 *CONSOLEBUTTONS›545 C:@B53279=8   [CLEARS CONSOLE BUTTON REGISTER›550 J(@B53279=6):*STARTPRESSED  [JUMP IF START IS PRESSED›555 J(@B53279=5):*INCREMENT  [JUMP IF SELECT IS PRESSED›560 PA:15›565 J:*CONSOLEBUTTONS   [LOOP IF NO BUTTON WAS PRESSED›570 *INCREMENT  [MOVE POINTER ARROW, LOCATION KEPT AS #L›575 POS:1,#L›580 WRITE:S,_›585 C:#L=#L+2›590 C(#L>7):#L=1›595 POS:1,#L›600 WRITE:S,>›605 PA:15›610 J:*CONSOLEBUTTONS›615 *STARTPRESSED›620 CLOSE:S›625 C(#L=1):$PROGRAMNAME=ADD›630 C(#L=3):$PROGRAMNAME=SUBTRACT›635 C(#L=5):$PROGRAMNAME=MULTIPLY›640 C(#L=7):$PROGRAMNAME=DIVIDE›645 *MERGEIT›650 J(#L=#M):*TAG2›655 C:#M=#L [DUMMY VALUE TO CHECK TO PREVENT LOADING THE SAME FILE THAT IS CURRENTLY IN MEMORY›660 GR:QUIT›665 T:›670 T:›675 T:PLEASE WAIT WHILE I LOAD $PROGRAMNAME›680 T:›682 T:›684 T:›686 T:›690 T:LOAD D:$PROGRAMNAME›692 T:›694 T:›696 T:J:*TAG2›700 C:@B842=13 [FORCES COMPUTER TO READ FROM SCREEN›705 E:›770 *TAG2›780 C:@B842=12 [FORCES COMPUTER TO WRITE TO SCREEN›790 GR:QUIT›795 C:@B756=#W/256›800 POS:4,2›820 POS:3,3›840 POS:3,4›850 T:›860 POS:14,2›880 POS:13,3›900 POS:13,4›910 T:›920 POS:24,2›940 POS:23,3›960 POS:23,4›970 T:›980 POS:34,2›1000 POS:33,3›1020 POS:33,4›1030 T:›1040 POS:4,9›1060 POS:3,10›1080 POS:3,11›1090 T:›1100 POS:14,9›1120 POS:13,10›1140 POS:13,11›1150 T:›1160 POS:24,9›1180 POS:23,10›1200 POS:23,11›1210 T:›1220 POS:34,9›1240 POS:33,10›1260 POS:33,11›1270 T:›1280 POS:4,16›1300 POS:3,17›1320 POS:3,18›1330 T:›1340 POS:14,16›1360 POS:13,17›1380 POS:13,18›1390 T:›1400 POS:24,16›1420 POS:23,17›1440 POS:23,18›1450 T:›1460 POS:34,16›1480 POS:33,17›1500 POS:33,18›1510 T:›1640 *PROBLEM1›1650 POS:4,5›1660 A:$ANSWER1›1670 M: $CORRECT1_›1680 UY:*CORRECT›1690 UN:*ERROR›1700 JN:*PROBLEM1›1710 *PROBLEM2›1720 POS:14,5›1730 A:$ANSWER2›1740 M: $CORRECT2_›1750 UY:*CORRECT›1760 UN:*ERROR›1770 JN:*PROBLEM2›1780 *PROBLEM3›1790 POS:24,5›1800 A:$ANSWER3›1810 M: $CORRECT3_›1820 UY:*CORRECT›1830 UN:*ERROR›1840 JN:*PROBLEM3›1850 *PROBLEM4›1860 POS:34,5›1870 A:$ANSWER4›1880 M: $CORRECT4_›1890 UY:*CORRECT›1900 UN:*ERROR›1910 JN:*PROBLEM4›1920 *PROBLEM5›1930 POS: 4,12›1940 A:$ANSWER5›1950 M: $CORRECT5_›1960 UY:*CORRECT›1970 UN:*ERROR›1980 JN:*PROBLEM5›1990 *PROBLEM6›2000 POS:14,12›2010 A:$ANSWER6›2020 M: $CORRECT6_›2030 UY:*CORRECT›2040 UN:*ERROR›2050 JN:*PROBLEM6›2060 *PROBLEM7›2070 POS:24,12›2080 A:$ANSWER7›2090 M: $CORRECT7_›2100 UY:*CORRECT›2110 UN:*ERROR›2120 JN:*PROBLEM7›2130 *PROBLEM8›2140 POS:34,12›2150 A:$ANSWER8›2160 M: $CORRECT8_›2170 UY:*CORRECT›2180 UN:*ERROR›2190 JN:*PROBLEM8›2200 *PROBLEM9›2210 POS: 4,19›2220 A:$ANSWER9›2230 M: $CORRECT9_›2240 UY:*CORRECT›2250 UN:*ERROR›2260 JN:*PROBLEM9›2270 *PROBLEM10›2280 POS:14,19›2290 A:$ANSWER10›2300 M: $CORRECT10_›2310 UY:*CORRECT›2320 UN:*ERROR›2330 JN:*PROBLEM10›2340 *PROBLEM11›2350 POS:24,19›2360 A:$ANSWER11›2370 M: $CORRECT11_›2380 UY:*CORRECT›2390 UN:*ERROR›2400 JN:*PROBLEM11›2410 *PROBLEM12›2420 POS:34,19›2430 A:$ANSWER12›2440 M: $CORRECT12_›2450 UY:*CORRECT›2460 UN:*ERROR›2470 JN:*PROBLEM12›2480 POS:2,21›2490 T:Would you like to try these problems again or try another skill? Type AGAIN, ANOTHER, or QUIT \›2500 A:$AGAIN›2510 M: AGAIN , ANOTHER , QUIT_›2520 JM:*TAG2,*START,*QUIT›2530 *QUIT›2540 T:}›2550 T:Thanks for playing.  See you again soon.›2560 E:›2570 *CORRECT›2580 C:#X=0›2590 *ANOTHERNOTE›2600 C:#J=?\8›2610 SO(#J=0):13›2620 C(#J=0):@B710=6›2630 SO(#J=1):15›2640 C(#J=1):@B710=14›2650 SO(#J=2):17›2660 C(#J=2):@B710=196›2670 SO(#J=3):18›2680 C(#J=3):@B710=100›2690 SO(#J=4):20›2700 C(#J=4):@B710=56›2710 SO(#J=5):22›2720 C(#J=5):@B710=148›2730 SO(#J=6):24›2740 C(#J=6):@B710=70›2750 SO(#J=7):25›2760 C(#J=7):@B710=26›2770 PA:?\2*4›2780 C:#X=#X+1›2790 J(#X<12):*ANOTHERNOTE›2800 PA:32›2810 SO:0›2820 C:@B710=148›2830 E:›2840 *ERROR›2850 SO:12›2860 PA:4›2870 SO:1›2880 PA:8›2890 SO:0›2900 E:›