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:
Back to previous page