@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@P1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD` D  C D     )16CS S)  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙` d J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "  $G@LLL&0") $G% }H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 })8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH) }  hyhyB q L> Lm JJ  Ln*` dB%' }8  H H` 1 { LL   !L     Hh SY?  q  1L }  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF } G) *Gȩ GȽG GȌd q q G`  8   0G  `D}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y}`piH n0)բY? 08`0 }  0$L GGȽG L `8L`L}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}1LJ舩9GIH`LJJ`HGHh l`} S gL   8 rii `дCDCG W  }C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}}L I |||DDOS DOSDOS SYS }}}}CDOS SYS} 0`BDELV !B }`LVUQ   ]   TU J ]L!T  #      TU  } L ? .  t`GBJ V~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI   0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -'}LLu DEHILV 9 .l 9 .l  `` s$B VBH(}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL)}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e*}1i1232435ޥ<<8}10 R:SIMPLE ADD ONE DRILL20 R:ILLUSTRATED WITH ASTERISKS30 C:@B1373=1640 C:@B1374=250 WRITE:S,60 WRITE:S,70 WRITE:S,804,} WRITE:S, PLUS ONE90 PA:100100 WRITE:S,}110 *START120 C:#A=?\10130 J(#A=0):*START140 J(#A=1):*ONE150 J(#A=2):*TWO14-}60 J(#A=3):*THREE170 J(#A=4):*FOUR180 J(#A=5):*FIVE190 J(#A=6):*SIX200 J(#A=7):*SEVEN210 J(#A=8):*EIGHT220 J(#A=9):*NIN4.}E230 E:240 *ONE250 POS:2,2260 WRITE:S,1 + 1 =270 WRITE:S,280 POS:2,5290 WRITE:S,* + * =300 A:=310 T(@B764=30): GOOD!4/}320 J(@B764<>30):*ONE330 POS:10,2340 WRITE:S,2350 POS:10,5360 WRITE:S,370 PA:90380 WRITE:S,}390 J:*START400 E:41040} *TWO420 POS:2,2430 WRITE:S, 2 + 1 =440 WRITE:S,450 POS:2,5460 WRITE:S,** + * =470 A:=480 T(@B764=26): GOOD!490 J(@B741}64<>26):*TWO500 POS:11,2510 WRITE:S,3520 POS:11,5530 WRITE:S,540 PA:90550 WRITE:S,}560 J:*START570 *THREE580 POS:42}2,2590 WRITE:S, 3 + 1 =600 WRITE:S,610 POS:2,5620 WRITE:S,*** + * =630 A:=640 T(@B764=24): GOOD!650 J(@B764<>24):*THRE43}E660 POS:12,2670 WRITE:S,4680 POS:12,5690 WRITE:S,700 PA:90710 WRITE:S,}720 J:*START730 E:740 *FOUR750 POS:2,244}760 WRITE:S, 4 + 1 =770 WRITE:S,780 POS:2,5790 WRITE:S,**** + * =800 A:=810 T(@B764=29): GOOD!820 J(@B764<>29):*FOUR8345}0 POS:13,2840 WRITE:S,5850 POS:13,5860 WRITE:S,870 PA:90880 WRITE:S,}890 J:*START900 E:910 *FIVE920 POS:1,293046} WRITE:S, 5 + 1 =940 WRITE:S,950 POS:1,5960 WRITE:S,***** + * =970 A:=980 T(@B764=27): GOOD!990 J(@B764<>27):*FIVE10047}0 POS:13,21010 WRITE:S,61020 POS:13,51030 WRITE:S,1040 PA:901050 WRITE:S,}1060 J:*START1070 E:1080 *SIX1090 PO48}S:2,21100 WRITE:S, 6 + 1 =1110 WRITE:S,1120 POS:2,51130 WRITE:S,*** + * =1140 POS:2,61150 WRITE:S,***1160 A:=1170 T(@49}B764=51): GOOD!1180 J(@B764<>51):*SIX1190 POS:12,21200 WRITE:S,71210 POS:12,51220 WRITE:S,1230 POS:12,61240 WRITE:4:}S,1250 PA:901260 WRITE:S,}1270 J:*START1280 E:1290 *SEVEN1300 POS:2,21310 WRITE:S, 7 + 1 =1320 WRITE:S,1330 POS:4;}2,51340 WRITE:S,**** + * =1350 POS:2,61360 WRITE:S,***1370 A:=1380 T(@B764=53): GOOD!1390 J(@B764<>53):*SEVEN1400 POS:4<}13,21410 WRITE:S,81420 POS:13,51430 WRITE:S,1440 POS:13,61450 WRITE:S,1460 PA:901470 WRITE:S,}1480 J:*START14=}490 E:1500 *EIGHT1510 POS:2,21520 WRITE:S, 8 + 1 =1530 WRITE:S,1540 POS:2,51550 WRITE:S,**** + * =1560 POS:2,61570 W4>}RITE:S,****1580 A:=1590 T(@B764=48): GOOD!1600 J(@B764<>48):*EIGHT1610 POS:13,21620 WRITE:S, 91630 POS:13,51640 WRITE:4?}S,1650 POS:13,61660 WRITE:S,1670 PA:901680 WRITE:S,}1690 J:*START1700 E:1710 *NINE1720 POS:2,21730 WRITE:S,4@} 9 + 1 =1740 WRITE:S,1750 POS:2,41760 WRITE:S,***1770 POS:2,51780 WRITE:S,*** + * =1790 POS:2,61800 WRITE:S,***1810 A4A}:=1820 T(@B764=50): GOOD!1830 J(@B764<>50):*NINE1840 POS:13,21850 WRITE:S, 101860 POS:13,51870 WRITE:S,1880 POS:14B}3,61890 WRITE:S,1900 PA:901910 WRITE:S,}1920 J:*START1930 E:RITE:S, 101860 POS:13,51870 WRITE:S,1880 POS:14G10 R:INTRODUCTION TO COLOR PROGRAM20 R:LOADS OTHERCOL30 R:by Ruth Ellsworth40 U:*BLUEBALL50 U:*YELLOWBALL60 U:*REDBALL7pD}0 LOAD D:OTHERCOL80 *BALL90 GR:GOTO-10,-12100 GR:TURNTO-90;36(DRAW2;TURN5);TURNTO90;DRAW4;36(DRAW2;TURN5);TURNTO-90110 GRpE}:DRAW4120 GR:36(FILL2;TURN5)130 E:140 *BLUEBALL150 GR:CLEAR160 GR:PEN BLUE170 U:*BALL180 T:THIS BALL IS BLUE190 PA:20pF}0200 E:210 *YELLOWBALL220 GR:CLEAR230 GR:PENYELLOW240 U:*BALL250 T:THIS BALL IS YELLOW260 PA:200270 E:280 *REDBALL2pG}90 GR:CLEAR;PENRED300 U:*BALL310 T:THIS BALL IS RED320 PA:200330 E::THIS BALL IS YELLOW260 PA:200270 E:280 *REDBALL2pH10 R:SECONDARY COLORS20 R:by Ruth Ellsworth30 U:*GREENBALL40 U:*PURPLEBALL50 U:*ORANGEBALL60 LOAD D:YOUCOLOR70 *BALL80tI} GR:GOTO-10,-1290 GR:TURNTO-90;36(DRAW2;TURN5);TURNTO90;DRAW4;36(DRAW2;TURN5);TURNTO-90100 GR:DRAW4110 GR:36(FILL2;TURN5)tJ}120 E:130 *GREENBALL140 GR:CLEAR150 C:@B708=188+7160 GR:PEN RED170 U:*BALL180 T:THIS BALL IS GREEN190 PA:200200 E:21tK}0 *PURPLEBALL220 GR:CLEAR230 C:@B708=96+4240 GR:PENRED250 U:*BALL260 T:THIS BALL IS PURPLE270 PA:200280 E:290 *ORANGEtL}BALL300 GR:CLEAR310 C:@B708=48+7320 GR:PENRED330 U:*BALL340 T:THIS BALL IS ORANGE350 PA:200360 E:0280 E:290 *ORANGEti10 R:COLOR THE BALL20 R:by Ruth Ellsworth30 R:REMOVE LINE 80 TO USE WITHOUT BALL40 GR:CLEAR50 C:@B708=68+060 T:YOU COxN}LOR THE BALL70 U:*YOUCOLOR80 *YOUCOLOR90 J:*BALL100 E:110 *BALL120 GR:PEN RED ;GOTO-50,-12130 GR:TURNTO-90;36(DRAW2;TUxO}RN5);TURNTO90;DRAW4;36(DRAW2;TURN5);TURNTO-90140 GR:DRAW4150 GR:PEN YELLOW160 GR:GOTO40,30;TURNTO0170 GR:4(DRAW10;TURN90)xP};TURNTO0;FILL10180 GR:PEN RED190 GR:GOTO40,10;TURNTO0200 GR:4(DRAW10;TURN90);TURNTO0;FILL10210 GR:PEN BLUE220 GR:GOTO40,xQ}-10;TURNTO0230 GR:4(DRAW10;TURN90);TURNTO0;FILL10240 GR:PEN ERASE250 *JOY260 J(%T8=1):*CHOICE270 J(%J0=1):*TOPBOX280 J(xR}%J0=8):*MIDBOX290 J(%J0=2):*BOTBOX300 J:*JOY310 E:320 *MIDBOX330 U:*NBOT340 U:*NTOP350 GR:PENRED360 GR:GOTO39,15;DRAWxS}TO-22,13370 J:*JOY380 E:390 *TOPBOX400 U:*NMID410 U:*NBOT420 GR:PENYELLOW430 GR:GOTO39,35;DRAWTO-22,13440 J:*JOY450 xT}E:460 *BOTBOX470 U:*NMID480 U:*NTOP490 GR:PENBLUE500 GR:GOTO39,-5;DRAWTO-22,13510 J:*JOY520 E:530 *NTOP540 GR:PEN ERx}]) !"`3!3#X):*HIGH150 J(#Y<#X):*LOW160 E:170 *HIGH180 T:TOO HIGH h}TRY A LOWER NUMBER190 J:*MAIN200 E:210 *LOW220 T:TOO LOW TRY A HIGHER NUMBER230 J:*MAIN240 E:70 T:YOUR GUESS?80 A:#Ye10 R:NIM20 C:@B1373=030 C:@B1374=240 WRITE:S,50 WRITE:S60 WRITE:S,70 WRITE:S, ͛80 PA:10090 GR:QUIT100 POS:2,j}5110 T:***INSTRUCTIONS***120 T:130 T:NIM IS A SUBTRACTION GAME. THE PLAYER WHO TAKES THE LAST SNOWFLAKE WINS. YOU MAY SUk}BSTRACT 1 OR 2140 T:SNOWFLAKES EACH TURN..150 PA:400160 GR:CLEAR170 C:#C=0180 C:#T=0190 GR:GOTO-70,35200 *ROW1210 GR:l}PENRED220 C:#C=#C+1230 U:*STAR240 GR:TURNTO90;GO20250 J(#C<8):*ROW1260 *SECROW270 GR:GOTO-70,15280 C:#C=0290 *ROW230m}0 U:*STAR310 C:#C=#C+1320 GR:TURNTO90;GO20330 J(#C<8):*ROW2340 GR:GOTO-70,35350 J:*PLAYER1360 *STAR370 GR:8(DRAW3;TURNn}180;GO3;TURN225)380 E:390 C:#T=0400 GR:GOTO-70,35410 *PLAYER1420 A:430 M:1,2440 JM:*ONE,*TWO450 TN:TRY AGAIN460 J:*Po}LAYER1470 E:480 *ONE490 GR:PENERASE500 U(%X>70):*TIME2510 GR:PENERASE520 U:*STAR530 GR:PENRED;TURNTO90;GO20540 C:#T=#p}T+1550 J(#T=16):*WIN560 J:*PLAYER2570 E:580 *TWO590 U(%X>70):*TIME2600 GR:PENERASE610 U:*STAR620 GR:PENRED;TURNTO90;Gq}O20630 C:#T=#T+1640 J(#T=16):*WIN650 U(%X>70):*TIME2660 GR:PENERASE670 U:*STAR680 GR:PENRED;TURNTO90;GO20690 C:#T=#T+1r}700 J(#T=16):*WIN710 J:*PLAYER2720 E:730 *PLAYER2740 A:750 M:1,2760 JM:*SONE,*STWO770 TN:TRY AGAIN780 J:*PLAYER2790s} E:800 *SONE810 J(#X>70):*TIME2820 GR:PENERASE830 U:*STAR840 GR:PENRED;TURNTO90;GO20850 C:#T=#T+1860 J(#T=16):*WIN870t} J:*PLAYER1880 E:890 *STWO900 U(#X>70):*TIME2910 GR:PENERASE920 U:*STAR930 GR:PENRED;TURNTO90;GO20940 C:#T=#T+1950 J(u}#T=16):*WIN960 U(#X>70):*TIME2970 GR:PENERASE980 U:*STAR990 GR:PENRED;TURNTO90;GO201000 C:#T=#T+11010 J(#T=16):*WIN102v}0 J:*PLAYER11030 E:1040 *TIME21050 GR:GOTO-70,151060 U:*STAR1070 E:1080 *WIN1090 T:YOU WIN!1100 C:@B712=48+71110 PA:w}301120 C:@B712=128+01130 PA:301140 C:@B712=30+01150 PA:301160 C:@B712=208+71170 PA:301180 C:@B712=80+41190 PA:301200x} C:@B712=0+01210 GR:QUIT1220 E:=240 WRITE:S,50 WRITE:S60 WRITE:S,70 WRITE:S, ͛80 PA:10090 GR:QUIT100 POS:2,"10 R:THIS IS A PILOT PROGRAM20 R:TREE.PIL A RECURSIVE EXAMPLE30 R:FROM COMPUTE 4/83 PG.14540 *TREE50 GR:CLEAR;GOTO 0,-3z}0;TURNTO 0;PEN BLUE60 T: TREE By Aaron Cohen, U of M70 C:#L=2*2*2*2*2*280 *BRANCH90 C:#L=#L/2100 GR:DRAW #L110 GR:TU{}RN -45120 U(#L<>1):*BRANCH130 GR:TURN 90140 U(#L<>1):*BRANCH150 GR:TURN -45;DRAW -#L160 C:#L=#L*2170 E:180 GR:TURN 60|}190 U(#L<>0):*UOFM200 GR:TURN -120210 U(#L<>0):*UOFM220 GR:TURN 60230 U(#L<>0):*UOFM240 GR:TURN 90250 U(#L<>0):*UOFM26}}0 GR:TURN -90270 U(#L<>0):*UOFM280 C:#L=#L+1290 E:300 GR:TURN 90310 U:*LHILBERT320 GR:DRAW 2330 GR:TURN -90340 U:*RHI~}LBERT350 GR:DRAW 2360 U:*RHILBERT370 GR:TURN -90380 GR:DRAW 2390 U:*LHILBERT400 GR:TURN 90410 *REND420 C:#L=#L+1430 }E:R:THIS IS A PILOT PROGRAM20 R:TREE.PIL A RECURSIVE EXAMPLE30 R:FROM COMPUTE 4/83 PG.14540 *TREE50 GR:CLEAR;GOTO 0,-310 R:NOTES20 R:by Ruth Ellsworth30 GR:CLEAR40 C:@B712=128+0[PEN ERASE - BACKGROUND - DARK BLUE50 C:@B709=0+0 [PEN YELLOW }- BLACK60 C:@B710=144+14 [PEN BLUE - WHITE70 C:@B708=48+0 [PEN RED - DARK ORANGE RED80 U:*KEYBOARD90 U:*MUSIC100 *EBLKEY }110 GR:2(TURNTO180;DRAW14;TURNTO90;DRAW1;TURNTO0;DRAW14;TURNTO90;DRAW1)120 GR:TURNTO180;DRAW14130 E:140 *ELEFTSK150 GR:2 }(TURNTO180;DRAW25;TURN-90;DRAW1;TURNTO0;DRAW25;TURN90;DRAW1);TURNTO180;DRAW25160 GR:TURN-90;DRAW1;TURNTO0;DRAW10;TURN90;DRAW }1;TURNTO180;DRAW10170 E:180 *EFKEY190 GR:TURNTO0;DRAW25;2(TURN90;DRAW1;TURNTO180;DRAW25;TURN-90;DRAW1;TURNTO0;DRAW25)200 }GR:TURN90;DRAW1;TURNTO180;DRAW25210 GR:TURNTO90;DRAW1;TURNTO0;DRAW10;TURN90;DRAW1;TURNTO180;DRAW10220 E:230 *EKBTWN240 GR }:TURNTO180;DRAW25;TURN90;DRAW1;TURNTO0;DRAW10;TURN-90;DRAW1;TURNTO180;DRAW10;TURNTO90;DRAW3250 GR:TURNTO0;DRAW25;TURN90;DRAW }1;TURNTO180;DRAW25;TURNTO90;DRAW1;TURNTO0;DRAW10;TURN90;DRAW1;TURNTO180;DRAW10260 E:270 *ERSK280 GR:TURNTO180;DRAW25;TURN9 }0;DRAW1;TURNTO0;DRAW10;TURN-90;DRAW1;TURNTO180;DRAW10;TURNTO90;DRAW3290 GR:TURNTO0;DRAW25;TURN90;DRAW1;TURNTO180;DRAW25;TURN }-90;DRAW1;TURNTO0;DRAW25;TURN90;DRAW1;TURNTO180;DRAW25300 E:310 *BLACKKEY320 GR:TURNTO90;DRAW4;TURN90;DRAW14;TURN90;DRAW4; }TURN90;FILL14[BLACK KEY330 E:340 *LEFTSK350 GR:TURNTO90;DRAW4;TURN90;DRAW15;TURNTO90;DRAW2;TURN90;DRAW10;TURN90;DRAW6;TURN }TO0360 GR:FILL25 [WHITE KEY LEFT STRAIGHT EDGE370 E:380 *RIGHTSK390 GR:TURNTO90;DRAW4;TURNTO180;DRAW25;TURN90400 GR:DRAW }6;TURNTO0;FILL10;TURNTO90;DRAW2;TURNTO0;FILL15[WHITE KEY STRAIGHT WHITE EDGE410 E:420 *KEYBETWEEN430 GR:TURNTO90;DRAW2;TUR }N90;DRAW15;TURNTO90;DRAW2;TURNTO180;DRAW10;TURN90440 GR:DRAW6;TURNTO0;FILL10;TURNTO90;DRAW2;TURNTO0;FILL15[WHITE KEY BETWEEN } BLACKEYS450 E:460 *FIRSTKEY470 GR:TURNTO90;DRAW5;TURN90;DRAW15;TURNTO90;DRAW2;TURN90;DRAW10;TURN90;DRAW7;TURNTO0480 GR:F }ILL25 [WHITE KEY LEFT STRAIGHT EDGE490 E:500 *EKBTWN510 GR:TURNTO180;DRAW25;TURN90;DRAW1;TURNTO0;DRAW10;TURN-90;DRAW1;TURN }TO180;DRAW10;TURNTO90;DRAW3520 GR:TURNTO0;DRAW25;TURN90;DRAW1;TURNTO180;DRAW25;TURNTO90;DRAW1;TURNTO0;DRAW10;TURN90;DRAW1;TU }RNTO180;DRAW10530 E:540 *KEYBOARD550 GR:PENBLUE;GOTO-75,25 [KEY 1560 U:*FIRSTKEY570 GR:PENYELLOW;GOTO-69,25 [KEY 2580 U }:*BLACKKEY590 GR:PENBLUE;GOTO-64,25 [KEY 3600 U:*KEYBETWEEN610 GR:PENYELLOW;GOTO-61,25[KEY 4620 U:*BLACKKEY630 GR:PENBLU }E;GOTO-56,25 [KEY 5640 U:*RIGHTSK650 GR:PENBLUE;GOTO-50,25 [KEY 6660 U:*LEFTSK670 GR:PEN YELLOW;GOTO-45,25 [KEY 7680 U:* }BLACKKEY690 GR:PENBLUE;GOTO-40,25700 U:*KEYBETWEEN710 GR:PEN YELLOW;GOTO-37,25 [KEY 9720 U:*BLACKKEY730 GR:PEN BLUE;GOTO }-32,25 [KEY 10740 U:*KEYBETWEEN750 GR:PEN YELLOW;GOTO-29,25 [KEY11760 U:*BLACKKEY770 GR:PEN BLUE;GOTO-24,25 [KEY12780 U: }*RIGHTSK790 GR:PEN BLUE;GOTO-18,25 [KEY13800 U:*LEFTSK810 GR:PEN YELLOW;GOTO-13,25 [KEY14820 U:*BLACKKEY830 GR:PEN BLUE; }GOTO-8,25 [KEY15840 U:*KEYBETWEEN850 GR:PEN YELLOW;GOTO-5,25 [KEY16860 U:*BLACKKEY870 GR:PEN BLUE;GOTO0,25 [KEY17880 U:* }RIGHTSK890 GR:PENBLUE;GOTO6,25 [KEY18900 U:*LEFTSK910 GR:PENYELLOW;GOTO11,25 [KEY19920 U:*BLACKKEY930 GR:PENBLUE;GOTO16, }25 [KEY 20940 U:*KEYBETWEEN950 GR:PENYELLOW;GOTO19,25 [KEY 21960 U:*BLACKKEY970 GR:PENBLUE;GOTO24,25 [KEY22980 U:*KEYBET }WEEN990 GR:PEN YELLOW;GOTO27,25 [KEY231000 U:*BLACKKEY1010 GR:PENBLUE;GOTO32,25 [KEY241020 U:*RIGHTSK1030 GR:PEN BLUE;GO }TO38,25 [KEY251040 U:*LEFTSK1050 GR:PEN YELLOW;GOTO43,25 [KEY261060 U:*BLACKKEY1070 GR:PEN BLUE;GOTO48,25 [KEY 271080 U: }*KEYBETWEEN1090 GR:PEN YELLOW;GOTO51,251100 U:*BLACKKEY1110 GR:PEN BLUE;GOTO56,25 [KEY291120 U:*RIGHTSK1130 GR:PEN BLUE; }GOTO62,25 [KEY 301140 U:*LEFTSK1150 GR:PEN YELLOW;GOTO67,25 [KEY311160 U:*BLACKKEY1170 E:1180 *MUSIC1190 T:TYPE 1 TO 9, } AND THE LETTERED KEYS1200 T:FOR NOTES LOW C TO HIGH F1210 T:TYPE M TO END PROGRAM1220 A:#S1230 MS:1,2,3,4,5,6,7,8,9,Q,W, }E,R,T,Y,U,I,O,P,A,S,D,F,G,H,J,K,L,Z,X,C,M1240 JM:*1,*2,*3,*4,*5,*6,*7,*8,*9,*Q,*W,*E,*R,*T,*Y,*U,*I,*O,*P,*A,*S,*D,*F,*G,*H, }*J,*K,*L,*Z,*X,*C,*M1250 *11260 GR:PENRED;GOTO-75,01270 U:*EFKEY1280 SO:11290 PA:321300 SO:01310 GR:PENBLUE;GOTO-75,0 }1320 U:*EFKEY1330 J:*MUSIC1340 E:1350 *21360 GR:PENRED;GOTO-69,251370 U:*EBLKEY1380 SO:21390 PA:321400 SO:01410 GR:P }ENYELLOW;GOTO-69,251420 U:*EBLKEY1430 J:*MUSIC1440 E:1450 *3 [LOW D1460 GR:PENRED;GOTO-64,251470 U:*EKBTWN1480 SO:314 }90 PA:321500 SO:01510 GR:PENBLUE;GOTO-64,251520 U:*EKBTWN1530 J:*MUSIC1540 *4 [LOW D SHARP OR E FLAT1550 GR:PENRED;GOTO }-61,251560 U:*EBLKEY1570 SO:41580 PA:321590 SO:01600 GR:PENYELLOW;GOTO-61,251610 U:*EBLKEY1620 J:*MUSIC1630 E:1640 * }5 [LOW E1650 GR:PENRED;GOTO-56,251660 U:*ERSK1670 SO:51680 PA:321690 SO:01700 GR:PENBLUE;GOTO-56,251710 U:*ERSK1720 J }:*MUSIC1730 E:1740 *6 [LOW F1750 GR:PENRED;GOTO-50,251760 U:*ELEFTSK1770 SO:61780 PA:321790 SO:01800 GR:PENBLUE;GOTO- }50,251810 U:*ELEFTSK1820 J:*MUSIC1830 E:1840 *7 [LOW F SHARP OR G FLAT1850 GR:PENRED;GOTO-45,251860 U:*EBLKEY1870 SO:7 }1880 PA:321890 SO:01900 GR:PENYELLOW;GOTO-45,251910 U:*EBLKEY1920 J:*MUSIC1930 E:1940 *8 [LOW G1950 GR:PENRED;GOTO-40 },251960 U:*EKBTWN1970 SO:81980 PA:321990 SO:02000 GR:PENBLUE;GOTO-40,252010 U:*EKBTWN2020 J:*MUSIC2030 *9 [LOW G SHAR }P OR A FLAT2040 GR:PENRED;GOTO-37,252050 U:*EBLKEY2060 SO:92070 PA:322080 SO:02090 GR:PENYELLOW;GOTO-37,252100 U:*EBLK }EY2110 J:*MUSIC2120 E:2130 *Q [LOW A2140 GR:PENRED;GOTO-32,252150 U:*EKBTWN2160 SO:102170 PA:322180 SO:02190 GR:PENB }LUE;GOTO-32,252200 U:*EKBTWN2210 J:*MUSIC2220 E:2230 *W [LOW A SHARP OR B FLAT2240 GR:PENRED;GOTO-29,252250 U:*EBLKEY2 }260 SO:112270 PA:322280 SO:02290 GR:PENYELLOW;GOTO-29,252300 U:*EBLKEY2310 J:*MUSIC2320 E:2330 *E [LOW B2340 GR:PENRE }D;GOTO-24,252350 U:*ERSK2360 SO:122370 PA:322380 SO:02390 GR:PENBLUE;GOTO-24,252400 U:*ERSK2410 J:*MUSIC2420 E:2430 }*R [MIDDLE C2440 GR:PENRED;GOTO-18,252450 U:*ELEFTSK2460 SO:132470 PA:322480 SO:02490 GR:PENBLUE;GOTO-18,252500 U:*ELE }FTSK2510 J:*MUSIC2520 E:2530 *T [C SHARP OR D FLAT2540 GR:PENRED;GOTO-13,252550 U:*EBLKEY2560 SO:142570 PA:322580 SO: }02590 GR:PENYELLOW;GOTO-13,252600 U:*EBLKEY2610 J:*MUSIC2620 E:2630 *Y [D2640 GR:PENRED;GOTO-8,252650 U:*EKBTWN2660 S }O:152670 PA:322680 SO:02690 GR:PENBLUE;GOTO-8,252700 U:*EKBTWN2710 J:*MUSIC2720 E:2730 *U [D SHARP OR E FLAT2740 GR:P }ENRED;GOTO-5,252750 U:*EBLKEY2760 SO:162770 PA:322780 SO:02790 GR:PENYELLOW;GOTO-5,252800 U:*EBLKEY2810 J:*MUSIC2820 }E:2830 *I [E2840 GR:PENRED;GOTO0,252850 U:*ERSK2860 SO:172870 PA:322880 SO:02890 GR:PENBLUE;GOTO0,252900 U:*ERSK2910 } J:*MUSIC2920 E:2930 *O [F2940 GR:PENRED;GOTO6,252950 U:*ELEFTSK2960 SO:182970 PA:322980 SO:02990 GR:PENBLUE;GOTO6,25 }3000 U:*ELEFTSK3010 J:*MUSIC3020 GR:PENERASE;GOTO11,253030 E:3040 *P [F SHARP OR G FLAT3050 GR:PENRED;GOTO11,253060 U: }*EBLKEY3070 SO:193080 PA:323090 SO:03100 GR:PENYELLOW;GOTO11,253110 U:*EBLKEY3120 J:*MUSIC3130 E:3140 *A [G3150 GR:P }ENRED;GOTO16,253160 U:*EKBTWN3170 SO:203180 PA:323190 SO:03200 GR:PENBLUE;GOTO16,253210 U:*EKBTWN3220 J:*MUSIC3230 E: }3240 *S [G SHARP OR A FLAT3250 GR:PENRED;GOTO19,253260 U:*EBLKEY3270 SO:213280 PA:323290 SO:03300 GR:PENYELLOW;GOTO19, }253310 U:*EBLKEY3320 J:*MUSIC3330 E:3340 *D [ A3350 GR:PENRED;GOTO24,253360 U:*EKBTWN3370 SO:223380 PA:323390 SO:03 }400 GR:PENBLUE;GOTO24,253410 U:*EKBTWN3420 J:*MUSIC3430 E:3440 *F [A SHARP OR B FLAT3450 GR:PENRED;GOTO27,253460 U:*EBL }KEY3470 SO:233480 PA:323490 SO:03500 GR:PENYELLOW;GOTO27,253510 U:*EBLKEY3520 J:*MUSIC3530 E:3540 *G [ B3550 GR:PENR }ED;GOTO32,253560 U:*ERSK3570 SO:243580 PA:323590 SO:03600 GR:PENBLUE;GOTO32,253610 U:*ERSK3620 J:*MUSIC3630 E:3640 * }H [HIGH C3650 GR:PENRED;GOTO38,253660 U:*ELEFTSK3670 SO:253680 PA:323690 SO:03700 GR:PENBLUE;GOTO38,253710 U:*ELEFTSK }3720 J:*MUSIC3730 E:3740 *J [HIGH C SHARP OR D FLAT3750 GR:PENRED;GOTO43,253760 U:*EBLKEY3770 SO:263780 PA:323790 SO:0 }3800 GR:PENYELLOW;GOTO43,253810 U:*EBLKEY3820 J:*MUSIC3830 E:3840 *K [HIGH D3850 GR:PENRED;GOTO48,253860 U:*EKBTWN387 }0 SO:273880 PA:323890 SO:03900 GR:PENBLUE;GOTO48,253910 U:*EKBTWN3920 J:*MUSIC3930 E:3940 *L [HIGH D SHARP OR E FLAT3 }950 GR:PENRED;GOTO51,253960 U:*EBLKEY3970 SO:283980 PA:323990 SO:04000 GR:PENYELLOW;GOTO51,254010 U:*EBLKEY4020 J:*MUS }IC4030 *Z [HIGH E4040 GR:PENRED;GOTO56,254050 U:*ERSK4060 SO:294070 PA:324080 SO:04090 GR:PENBLUE;GOTO56,254100 U:*ER }SK4110 J:*MUSIC4120 E:4130 *X [HIGH F4140 GR:PENRED;GOTO62,254150 U:*ELEFTSK4160 SO:304170 PA:324180 SO:04190 GR:PEN }BLUE;GOTO62,254200 U:*ELEFTSK4210 J:*MUSIC4220 E:4230 *C [HIGH F SHARP4240 GR:PENRED;GOTO67,254250 U:*EBLKEY4260 SO:31 }4270 PA:324280 SO:04290 GR:PENYELLOW;GOTO67,254300 U:*EBLKEY4310 J:*MUSIC4320 *M [END PROGRAM OPTION4330 SO:04340 E: }10 R:FLOWERS20 R:JOYSTICK COLOR PROGRAM30 R:by Ruth Ellsworth40 GR:CLEAR50 T:YOU COLOR THE FLOWERS60 U:*YOUCOLOR270 *YO$}UCOLOR280 J:*BOXES90 E:100 *BOXES110 GR:PEN YELLOW;TURNTO0120 GR:GOTO40,30;TURNTO0130 GR:4(DRAW10;TURN90);TURNTO0;FILL1$}0140 GR:PEN RED150 GR:GOTO40,10;TURNTO0160 GR:4(DRAW10;TURN90);TURNTO0;FILL10170 GR:PEN BLUE180 GR:GOTO40,-10;TURNTO019$}0 GR:4(DRAW10;TURN90);TURNTO0;FILL10200 GR:GOTO0,0;TURNTO0;PENYELLOW210 C:#C=0220 U:*FLOWER230 U:*STEM240 GR:GOTO-23,20;$}TURNTO0250 C:#C=0260 U:*FLOWER270 U:*STEM2280 J:*JOY290 E:300 *FLOWER310 U:*PETAL320 C:#C=#C+1330 GR:TURN30340 J(#C$}<6):*FLOWER350 E:360 *PETAL370 U:*ARCR380 GR:TURN90390 U:*ARCR400 E:410 *ARCR420 GR:18(DRAW1;TURN5)430 E:440 *STEM$}450 GR:GOTO-32,-24;TURNTO0;PENYELLOW;18(TURN5;DRAW2)460 E:470 *STEM2480 GR:GOTO-32,-23;TURNTO315;PENYELLOW;18(TURN5;DRAW2)$};PENERASE490 E:500 *JOY510 J(%T8=1):*SECHOICE520 J(%J0=1):*TOPBOX530 J(%J0=8):*MIDBOX540 J(%J0=2):*BOTBOX550 J:*JOY56$}0 E:570 E:580 *MIDBOX590 U:*NBOT600 U:*NTOP610 GR:PENRED620 GR:GOTO39,15;DRAWTO12,13630 J:*JOY640 E:650 *TOPBOX660 $}U:*NMID670 U:*NBOT680 GR:PENYELLOW690 GR:GOTO39,35;DRAWTO-12,25700 J:*JOY710 E:720 *BOTBOX730 U:*NMID740 U:*NTOP750 $}GR:PENBLUE760 GR:GOTO39,-5;DRAWTO10,3770 J:*JOY780 E:790 *NTOP800 GR:PENERASE;GOTO39,35;DRAWTO-12,25810 E:820 *NMID83$}0 GR:PEN ERASE;GOTO39,15;DRAWTO12,13840 E:850 *NBOT860 GR:PENERASE;GOTO39,-5;DRAWTO10,3870 E:880 *FILL1890 GR:GOTO0,-1;$}TURNTO0900 GR:17(FILL1;TURN5)910 GR:GOTO0,0;TURN-90;DRAW2;TURN90;DRAW3;GOTO0,0920 GR:GOTO6,-5;TURNTO315;FILL5;TURNTO45;FIL$}L3930 GR:GOTO0,0940 GR:GOTO5,-15;TURNTO315;4(FILL2;TURN5);TURNTO0;FILL6950 GR:GOTO0,0960 GR:GOTO-10,-12;2(FILL3;TURN2);TU$}RNTO45;FILL4;DRAW2;TURNTO90970 GR:DRAW5;GOTO0,0980 GR:GOTO-9,-2;TURNTO315;FILL4;GOTO-13,1;FILL3990 GR:GOTO-13,4;TURNTO90;D$}RAW8;GOTO0,01000 GR:TURNTO315;FILL71010 GR:GOTO-5,5;TURNTO0;FILL101020 E:1030 *FILL21040 GR:GOTO-23,19;TURNTO01050 GR:1$}7(FILL1;TURN5)1060 GR:GOTO-23,20;TURN-90;DRAW2;TURN90;DRAW3;GOTO-23,201070 GR:GOTO-17,15;TURNTO315;FILL5;TURNTO45;FILL3108$}0 GR:GOTO-23,201090 GR:TURNTO90;GO5;TURNTO180;GO15;TURNTO315;4(FILL2;TURN5);TURNTO0;FILL61100 GR:GOTO-23,201110 GR:GOTO-33$},8;2(FILL3;TURN2);TURNTO45;FILL4;DRAW2;TURNTO901120 GR:DRAW5;GOTO-23,201130 GR:GOTO-32,18;TURNTO315;FILL4;GOTO-36,21;FILL3$}1140 GR:GOTO-36,24;TURNTO90;DRAW8;GOTO-23,201150 GR:TURNTO315;FILL71160 GR:GOTO-28,25;TURNTO0;FILL101170 E:1180 *SECHOICE$}1190 J(@B1363=0):*JOY1200 GR:GOTO0,0;TURNTO01210 U:*FILL11220 GR:GOTO-23,20;TURNTO01230 U:*FILL21240 T:1250 T:1260 T($}@B1363=1):THESE FLOWERS ARE RED1270 T(@B1363=2):THESE FLOWERS ARE YELLOW1280 T(@B1363=3):THESE FLOWERS ARE BLUE1290 GR:PEN$}ERASE;GOTO0,0;TURNTO01300 C:#C=01310 U:*FLOWER1320 GR:PENERASE;GOTO-23,20;TURNTO01330 C:#C=01340 U:*FLOWER1350 PA:1001$}360 GR:CLEAR1370 T:}1380 GR:PENYELLOW1390 J:*YOUCOLOR21400 E: GR:CLEAR50 T:YOU COLOR THE FLOWERS60 U:*YOUCOLOR270 *YO$B10 R:STARBURST20 C:#T=030 GR:CLEAR40 *LOOP50 GR:GOTO0,060 GR:TURNTO #T70 GR:GO 3;DRAW 2580 C:#T=#T+590 J(#T<360):*LOO(}P100 E:BURST20 C:#T=030 GR:CLEAR40 *LOOP50 GR:GOTO0,060 GR:TURNTO #T70 GR:GO 3;DRAW 2580 C:#T=#T+590 J(#T<360):*LOO( 10 GR:PEN RED20 GR:CLEAR30 C:#A=5440 GR:GOTO -79,-3150 GR:TURNTO 9060 U:*FO70 GR:PEN BLUE80 GR:GOTO -24,-32;TURN -90;F,}ILL #A90 GR:PEN RED100 C:#A=#A/3110 GR:GOTO -79,-31120 GR:TURNTO 90130 U:*F1140 C:#A=#A/3150 GR:GOTO -79,-31160 GR:TU,}RNTO 90170 U:*F2180 C:#A=#A/3190 GR:GOTO -79,-33200 GR:TURNTO 90210 GR:PEN YELLOW220 U:*F3230 T: KING TUT'S HEA,}DDRESS240 E:250 *FO260 GR:DRAW #A270 GR:TURN -90280 GR:DRAW #A290 GR:TURN 90300 GR:DRAW #A310 GR:TURN 90320 GR:DRA,}W #A330 GR:TURN -90340 GR:DRAW #A350 E:360 *F1370 U:*FO380 GR:TURN -90390 U:*FO400 GR:TURN 90410 U:*FO420 GR:TURN ,} 90430 U:*FO440 GR:TURN -90450 U:*FO460 E:470 *F2480 U:*F1490 GR:TURN -90500 U:*F1510 GR:TURN 90520 U:*F1530 GR:T,}URN 90540 U:*F1550 GR:TURN -90560 U:*F1570 E:580 *F3590 U:*F2600 GR:TURN -90610 U:*F2620 GR:TURN 90630 U:*F2640 ,}GR:TURN 90650 U:*F2660 GR:TURN -90670 U:*F2680 E:50 GR:TURNTO 9060 U:*FO70 GR:PEN BLUE80 GR:GOTO -24,-32;TURN -90;F,710 GR:PEN RED20 GR:CLEAR21 C:#F=140 *SETUP50 C:#L=060 C:#J=070 *PATTERN71 GR:GOTO #X,#Y80 C: #J=#J+4590 C:#L=#L+1100}0 GR:DRAW #L;TURN #J110 U(#L=30):*DECIDE120 J:*PATTERN121 *DECIDE130 U(#F=1):*F2140 U(#F=2):*F3150 U(#F=3):*F4160 U(#F0}=4):*F5170 E:180 *F1190 C: #X=18200 C:#Y=18210 C:#F=1220 J:*SETUP230 *F2240 C:#X=40250 C:#Y=40260 C:#F=2270 J:*SET0}UP275 *F3280 C:#X=10285 C:#Y=40290 C:#F=3295 J:*SETUP300 *F4310 C:#X=12315 C:#Y=30320 C:#F=4325 J:*SETUP335 C:#X=10}5360 *F5370 T:WHAT ARE THESE?\380 A:390 M:STARS,STAR,FIRE WORKS,EXPLOSIONS,NOTHING400 TY:THANK YOU!!!410 TN:WRONG !500}0 JN:*F5510 E: GR:CLEAR21 C:#F=140 *SETUP50 C:#L=060 C:#J=070 *PATTERN71 GR:GOTO #X,#Y80 C: #J=#J+4590 C:#L=#L+1100ASE;GOTO39,35;DRAWTO-22,13550 E:560 *NMID570 GR:PEN ERASE;GOTO39,15;DRAWTO-22,13580 E:590 *NBOT600 GR:PEN ERASE;GOTO39,x}-5;DRAWTO-22,13610 E:620 *CHOICE630 J(@B1363=0):*JOY640 GR:TURNTO-90650 GR:GOTO-50,-12;36(FILL2;TURN5)660 T:670 T:680x} T(@B1363=1):THIS BALL IS RED690 T(@B1363=2):THIS BALL IS YELLOW700 T(@B1363=3):THIS BALL IS BLUE710 PA:100720 GR:CLEAR7x}30 T:}740 J:*YOUCOLOR750 E:690 T(@B1363=2):THIS BALL IS YELLOW700 T(@B1363=3):THIS BALL IS BLUE710 PA:100720 GR:CLEAR7x10 R:SIMPLE SUBTRACT ONE DRILL20 R:ILLUSTRATED WITH ASTERISKS30 R:by Ruth Ellsworth40 C:@B1373=1650 C:@B1374=260 WRITE:S9},70 WRITE:S,80 WRITE:S,90 WRITE:S, MINUS ONE100 PA:100110 WRITE:S,}120 *START130 C:#A=?\11140 J(#A=0):*START150 J9 }(#A=1):*ONE160 J(#A=2):*TWO170 J(#A=3):*THREE180 J(#A=4):*FOUR190 J(#A=5):*FIVE200 J(#A=6):*SIX210 J(#A=7):*SEVEN220 J9 }(#A=8):*EIGHT230 J(#A=9):*NINE240 J(#A=10):*TEN250 E:260 *ONE270 POS:2,2280 WRITE:S,1 - 1 =290 WRITE:S,300 POS:2,5319 }0 WRITE:S,* - =320 A:=330 T(@B764=50): GOOD!340 J(@B764<>50):*ONE350 POS:10,2360 WRITE:S,0370 POS:10,5380 WRITE:S,39 }90 PA:90400 WRITE:S,}410 J:*START420 E:430 *TWO440 POS:2,2450 WRITE:S, 2 - 1 =460 WRITE:S,470 POS:2,5480 WRITE:S,** 9 }- =490 A:=500 T(@B764=31): GOOD!510 J(@B764<>31):*TWO520 POS:11,2530 WRITE:S,1540 POS:11,5550 WRITE:S,560 PA:90579}0 WRITE:S,}580 J:*START590 *THREE600 POS:2,2610 WRITE:S, 3 - 1 =620 WRITE:S,630 POS:2,5640 WRITE:S,*** - =650 A:=69}60 T(@B764=30): GOOD!670 J(@B764<>30):*THREE680 POS:12,2690 WRITE:S,2700 POS:12,5710 WRITE:S,720 PA:90730 WRITE:S,}9}740 J:*START750 E:760 *FOUR770 POS:2,2780 WRITE:S, 4 - 1 =790 WRITE:S,800 POS:2,5810 WRITE:S,**** - =820 A:=830 T(9}@B764=26): GOOD!840 J(@B764<>26):*FOUR850 POS:13,2860 WRITE:S,3870 POS:13,5880 WRITE:S,890 PA:90900 WRITE:S,}910 J9}:*START920 E:930 *FIVE940 POS:1,2950 WRITE:S, 5 - 1 =960 WRITE:S,970 POS:1,5980 WRITE:S,***** - =990 A:=1000 T(@B9}764=24): GOOD!1010 J(@B764<>24):*FIVE1020 POS:13,21030 WRITE:S,41040 POS:13,51050 WRITE:S,1060 PA:901070 WRITE:S,}9}1080 J:*START1090 E:1100 *SIX1110 POS:2,21120 WRITE:S, 6 - 1 =1130 WRITE:S,1140 POS:2,51150 WRITE:S,*** - =1160 PO9}S:2,61170 WRITE:S,***1180 A:=1190 T(@B764=29): GOOD!1200 J(@B764<>29):*SIX1210 POS:12,21220 WRITE:S,51230 POS:12,51249}0 WRITE:S,1250 PA:901260 WRITE:S,}1270 J:*START1280 E:1290 *SEVEN1300 POS:2,21310 WRITE:S, 7 - 1 =1320 WRITE:S,9}1330 POS:2,51340 WRITE:S,**** - =1350 POS:2,61360 WRITE:S,***1370 A:=1380 T(@B764=27): GOOD!1390 J(@B764<>27):*SEVEN9}1400 POS:13,21410 WRITE:S,61420 POS:13,51430 WRITE:S,1440 POS:13,61450 WRITE:S,1460 PA:901470 WRITE:S,}1480 J:9}*START1490 E:1500 *EIGHT1510 POS:2,21520 WRITE:S, 8 - 1 =1530 WRITE:S,1540 POS:2,51550 WRITE:S,**** - =1560 POS:2,9}61570 WRITE:S,****1580 A:=1590 T(@B764=51): GOOD!1600 J(@B764<>51):*EIGHT1610 POS:13,21620 WRITE:S, 71630 POS:13,51649}0 WRITE:S,1650 POS:13,61660 WRITE:S,1670 PA:901680 WRITE:S,}1690 J:*START1700 E:1710 *NINE1720 POS:2,21730 WR9}ITE:S, 9 - 1 =1740 WRITE:S,1750 POS:2,41760 WRITE:S,***1770 POS:2,51780 WRITE:S,*** - =1790 POS:2,61800 WRITE:S,***9}1810 A:=1820 T(@B764=53): GOOD!1830 J(@B764<>53):*NINE1840 POS:13,21850 WRITE:S, 81860 POS:13,51870 WRITE:S,1880 P9}OS:13,61890 WRITE:S,1900 PA:901910 WRITE:S,}1920 J:*START1930 E:1940 *TEN1950 POS:2,21960 WRITE:S, 10 - 1 =19709} WRITE:S,1980 POS:2,51990 WRITE:S,***** - =2000 POS:2,62010 WRITE:S,*****2020 A:=2030 T(@B764=48): GOOD!2040 J(@B769 }4<>48):*TEN2050 POS:15,22060 WRITE:S, 92070 POS:15,52080 WRITE:S,2090 POS:15,62100 WRITE:S,2110 PA:902120 WR9!}ITE:S,}2130 J:*START2140 E:20 R:ILLUSTRATED WITH ASTERISKS30 R:by Ruth Ellsworth40 C:@B1373=1650 C:@B1374=260 WRITE:S810 R:SIMPLE ADDITION20 R:By Ruth Ellsworth30 R:REMOVE *YES AND PAUSES TO INCREASE40 R:SPEED OF PROGRAM50 C:@B1373=060 C:=#}@B1374=270 WRITE:S,80 WRITE:S,90 WRITE:S, ADDITION PRESS FOR SUMMARY100 PA:200110 CLOSE:S120 C:#N=0[initialize =$}# of problems to 0130 C:#R=0[initialize # right to 0140 *ADDITION[label for main module150 C:#N=#N+1[compute total # of pr=%}oblems160 C:#I=?\11[generate random # I170 C:#J=?\11[generate random #J180 C:@B1373=16[split screen with text window190 C=&}:@B1374=2[oversize text mode 2200 WRITE:S,210 WRITE:S,220 WRITE:S, #I+#J=[write problem230 C:#X=#I+#J[compute #I+#J='}240 READ:K,$Y[read variable $Y (it can be a number)250 M:#X[match $Y to #X260 JY:*YES[jump to module *YES if $Y matches #X=(}270 MS:S[match $Y to S to stop program280 JY:*COUNTER[jump to module *COUNTER if $Y matches S290 T:NO, TRY AGAIN.300 READ=)}:K,$Y310 M:#X320 JY:*YES330 WRITE:S,}[clear screen340 WRITE:S,350 WRITE:S,360 WRITE:S, #I+#J=#X[writes correct ans=*}wer on the370 T:BETTER LUCK NEXT TIME380 PA:90[pause so that correct answer can be studied390 WRITE:S,}[clear screen400 J=+}:*ADDITION[return to main module for next problem410 *YES[module for correct answer input at line 190420 WRITE:S,}[clear sc=,}reen so problem does not appear twice430 WRITE:S,440 WRITE:S,450 WRITE:S, #I+#J=#X[reinforce correct answer given46=-}0 WRITE:S,470 WRITE:S, [more encouragement480 PA:99[pause so reinforcement and encouragement may be read49=.}0 WRITE:S,}[clear screen500 C:#R=#R+1[total correct answers510 J:*ADDITION[return to main module for next problem520 E:[en=/}d *YES module530 *COUNTER[module to output progress540 WRITE:S,}[clear screen550 WRITE:S,560 WRITE:S,570 WRITE:S, #N =0}PROBLEMS[write #problems given to screen in oversize text580 WRITE:S,590 WRITE:S, #R RIGHT[write the #correct to scree=1}n in oversize text600 PA:120[pause so progress can be read610 WRITE:S,}[clear screen620 WRITE:S,630 WRITE:S,640 WRITE:S,=2} Ϡՠ[continue program - inverse letters text color blue650 WRITE:S, Ϡſ[continue program660 READ:K,$C[=3}read continue option670 MS:Y,OK, O.K., SURE, ALRIGHT[match string $C to continue count680 WRITE:S,}[clear screen690 JY:*AD=4}DITION[jump to main module if $C matches700 WRITE:S,710 WRITE:S,720 WRITE:S, would you like730 WRITE:S, to start over=5}?[to as if new count is desired740 READ:K,$O[read keyboard input to buffer750 MS:Y,OK,O.K.,SUR760 JY:*OVER[jump to module =6}*OVER if $O matches770 JN:*STOP[jump to module *STOP if $O does no match780 *OVER[module to begin new count790 WRITE:S,}[=7}clear screen800 WRITE:S,810 WRITE:S,820 WRITE:S, [inverse small letters-writes oversize text color red830 PA=8}:60[pause so instruction to start over can be read840 E:[end program850 *STOP[lable module to stop run860 WRITE:S,}[clear =9}screen870 WRITE:S,880 WRITE:S,890 WRITE:S, GOODBYE,[write oversize text to screen color yellow900 WRITE:S,[leave a spac=:}e910 WRITE:S, COME AGAIN![write oversize text to screen color yellow920 E:[end runR:SPEED OF PROGRAM50 C:@B1373=060 C:<W10 R:SIMPLE SUBTRACTION20 R:By Ruth Ellsworth30 R:RANDOM NUMBER MAY BE CHANGED BY CHANGING LINES 120 AND 13040 R:REMOVE *YA<}ES AND PAUSES TO INCREASE50 R:SPEED OF PROGRAM60 R:TO CHANGE THE RANGE OF NUMBERS PUT THE NUMBER DESIRED PLUS 1 BEHIND THE?A=}\70 C:@B1373=080 C:@B1374=290 WRITE:S,100 WRITE:S,110 WRITE:S, SUBTRACTION TYPE FOR SUMMARY120 PA:100130 CLOSE:A>}S140 C:#N=0[initialize # of problems to 0150 C:#R=0[initialize # right to 0160 *SUBTRACT[label for main module170 C:#N=#NA?}+1[compute total # of problems180 *START190 C:#A=?\11[generate random # A200 C:#B=?\21[generate random #B210 J(#B>#A):*STA@}ART220 C:#X=#A-#B230 C:@B1373=16[split screen with text window240 C:@B1374=2[oversize text mode 2250 WRITE:S260 WRITE:S,AA}270 WRITE:S, #A-#B=[write problem280 C:#X=#A-#B[compute #A-#B290 READ:K,$Y[read variable $Y (it can be a number)300AB} M:#X[match $Y to #X310 JY:*YES[jump to module *YES if $Y matches #X320 MS:S[match $Y to S to stop program330 JY:*COUNTER[AC}jump to module *COUNTER if $Y matches S340 T:NO, TRY AGAIN.350 READ:K,$Y360 M:#X370 JY:*YES380 WRITE:S,}[clear screen39AD}0 WRITE:S,400 WRITE:S,410 WRITE:S, #A-#B=#X[writes correct answer on the420 T:BETTER LUCK NEXT TIME430 PA:90[pause sAE}o that correct answer can be studied440 WRITE:S,}[clear screen450 J:*SUBTRACT[return to main module for next problem460 *YAF}ES[module for correct answer input at line 190470 WRITE:S,}[clear screen so problem d480 WRITE:S,490 WRITE:S,500 WRITE:S,AG} #A-#B=#X[reinforce correct answer given510 WRITE:S,520 WRITE:S, [more encouragement530 PA:99[pause so AH}reinforcement and encouragement may be read540 WRITE:S,}[clear screen550 C:#R=#R+1[total correct answers560 J:*SUBTRACT[reAI}turn to main module for next problem570 E:[end *YES modu580 *COUNTER[module to output progress590 WRITE:S,}[clear screen6AJ}00 WRITE:S,610 WRITE:S,620 WRITE:S, #N PROBLEMS[write #problems given to screen in oversize text630 WRITE:S,640 WRITEAK}:S, #R RIGHT[write the #correct to screen in oversize text650 PA:120[pause so progress can be read660 WRITE:S,}[clear sAL}creen670 WRITE:S,680 WRITE:S,690 WRITE:S, Ϡՠ[continue program - inverse letters text color blue700 WRITE:S, AM}Ϡſ[continue program710 READ:K,$C[read continue option720 MS:Y,OK, O.K., SURE, ALRIGHT[match string $C to continueAN} count730 WRITE:S,}[clear screen740 JY:*START[jump to main module if $C matches750 WRITE:S,760 WRITE:S,770 WRITE:S, woAO}uld you like780 WRITE:S, to start over?[to as if new count is desired790 READ:K,$O[read keyboard input to buffer800 MS:YAP},OK,O.K.,SUR810 JY:*OVER[jump to module *OVER if $O matches820 JN:*STOP[jump to module *STOP if $O does no match830 *OVERAQ}[module to begin new count840 WRITE:S,}[clear screen850 WRITE:S,860 WRITE:S,870 WRITE:S, [inverse small lettAR}ers-writes oversize text color red880 PA:60[pause so instruction to start over can be read890 E:[end program900 *STOP[lablAS}e module to stop run910 WRITE:S,}[clear screen920 WRITE:S,930 WRITE:S,940 WRITE:S, GOODBYE,[write oversize text to screAT}en color yellow950 WRITE:S,[leave a space960 WRITE:S, COME AGAIN![write oversize text to screen color yellow970 E:[end rAU}unR:SIMPLE SUBTRACTION20 R:By Ruth Ellsworth30 R:RANDOM NUMBER MAY BE CHANGED BY CHANGING LINES 120 AND 13040 R:REMOVE *Y@10 R:SIMPLE MULTIPLICATION20 R:By Ruth Ellsworth30 R:REMOVE *YES AND PAUSES TO INCREASE40 R:SPEED OF PROGRAM50 C:@B1373=0EW}60 C:@B1374=270 WRITE:S,80 WRITE:S,90 WRITE:S, MULTIPLICATION TYPE FOR SUMMARY100 PA:100110 CLOSE:S120 C:#N=0[iEX}nitialize # of problems to 0130 C:#R=0[initialize # right to 0140 *MULTIPLY[label for main module150 C:#N=#N+1[compute totEY}al # of problems160 C:#I=?\13[generate random # I170 C:#J=?\13[generate random #J180 C:@B1373=16[split screen with text wiEZ}ndow190 C:@B1374=2[oversize text mode 2200 WRITE:S,210 WRITE:S,220 WRITE:S, #I*#J=[write problem230 C:#X=#I*#J[comE[}pute #I*#J240 READ:K,$Y[read variable $Y (it can be a number)250 M:#X[match $Y to #X260 JY:*YES[jump to module *YES if $Y E\}matches #X270 MS:S[match $Y to S to stop program280 JY:*COUNTER[jump to module *COUNTER if $Y matches S290 T:NO, TRY AGAINE]}.300 READ:K,$Y310 M:#X320 JY:*YES330 WRITE:S,}[clear screen340 WRITE:S,350 WRITE:S,360 WRITE:S, #I*#J=#X[writes cE^}orrect answer on the370 T:BETTER LUCK NEXT TIME380 PA:90[pause so that correct answer can be studied390 WRITE:S,}[clear scE_}reen400 J:*MULTIPLY[return to main module for next problem410 *YES[module for correct answer input at line 190420 WRITE:S,E`}}[clear screen so problem d430 WRITE:S,440 WRITE:S,450 WRITE:S, #I*#J=#X[reinforce correct answer given460 WRITE:S,Ea}470 WRITE:S, [more encouragement480 PA:99[pause so reinforcement and encouragement may be read490 WRITE:S,}[cEb}lear screen500 C:#R=#R+1[total correct answers510 J:*MULTIPLY[return to main module for next problem520 E:[end *YES modu5Ec}30 *COUNTER[module to output progress540 WRITE:S,}[clear screen550 WRITE:S,560 WRITE:S,570 WRITE:S, #N PROBLEMS[write Ed}#problems given to screen in oversize text580 WRITE:S,590 WRITE:S, #R RIGHT[write the #correct to screen in oversize tEe}ext600 PA:120[pause so progress can be read610 WRITE:S,}[clear screen620 WRITE:S,630 WRITE:S,640 WRITE:S, Ϡՠ[Ef}continue program - inverse letters text color blue650 WRITE:S, Ϡſ[continue program660 READ:K,$C[read continue oEg}ption670 MS:Y,OK, O.K., SURE, ALRIGHT[match string $C to continue count680 WRITE:S,}[clear screen690 JY:*MULTIPLY[jump to Eq}|b'DOS SYSMACE DSKbUAUTORUN SYSb VMENU b`HILBERT bfGUESSNUM biNIM byTREEE bGNOTES bFLOWERS bSTARBRST bKINGTUT bSTARS b+PLUSONE bMINUSONE b"ADD b;SUBTRACT bVMULTIPLY bxDIVIDE b)MATHCOUN bSKETCH bSTAR13 bSQUIRAL bSHOTSTAR bMATHTIME b ETCH b5MATCH b.!COLORS bCBALL bHOTHERCOL b MYOUCOLOR bgCOLSONG main module if $C matches700 WRITE:S,710 WRITE:S,720 WRITE:S, would you like730 WRITE:S, to start over?[to as if new Er}count is desired740 READ:K,$O[read keyboard input to buffer750 MS:Y,OK,O.K.,SUR760 JY:*OVER[jump to module *OVER if $O maEs}tches770 JN:*STOP[jump to module *STOP if $O does no match780 *OVER[module to begin new count790 WRITE:S,}[clear screen80Et}0 WRITE:S,810 WRITE:S,820 WRITE:S, [inverse small letters-writes oversize text color red830 PA:60[pause so inEu}struction to start over can be read840 E:[end program850 *STOP[lable module to stop run860 WRITE:S,}[clear screen870 WRITEv}E:S,880 WRITE:S,890 WRITE:S, GOODBYE,[write oversize text to screen color yellow900 WRITE:S,[leave a space910 WRITE:S, Ew} COME AGAIN![write oversize text to screen color yellow920 E:[end runAUSES TO INCREASE40 R:SPEED OF PROGRAM50 C:@B1373=0DH10 R:SIMPLE DIVISION20 R:By Ruth Ellsworth30 R:REMOVE *YES AND PAUSES TO INCREASE40 R:SPEED OF PROGRAM50 C:@B1373=060 C:Iy}@B1374=270 WRITE:S,80 WRITE:S,90 WRITE:S, DIVISION TYPE FOR SUMMARY100 PA:100110 CLOSE:S120 C:#N=0[initialize #Iz} of problems to 0130 C:#R=0[initialize # right to 0140 *DIVIDE[label for main module150 C:#N=#N+1[compute total # of problI{}ems160 *START170 C:#A=?\13[generate random # A180 C:#B=?\13[generate random #B190 J(#A<1):*START200 J(#B<1):*START210 CI|}:#W=#A*#B220 C:@B1373=16[split screen with text window230 C:@B1374=2[oversize text mode 2240 WRITE:S,250 WRITE:S,260 WRII}}TE:S, #W/#B=[write problem270 C:#X=#W/#B[compute #W/#B280 READ:K,$Y[read variable $Y (it can be a number)290 M:#X[maI~}tch $Y to #X300 JY:*YES[jump to module *YES if $Y matches #X310 MS:S[match $Y to S to stop program320 JY:*COUNTER[jump to I}module *COUNTER if $Y matches S330 T:NO, TRY AGAIN.340 READ:K,$Y350 M:#X360 JY:*YES370 WRITE:S,}[clear screen380 WRITE:I}S,390 WRITE:S,400 WRITE:S, #W/#B=#X[writes correct answer on the410 T:BETTER LUCK NEXT TIME420 PA:90[pause so that cI}orrect answer can be studied430 WRITE:S,}[clear screen440 J:*DIVIDE[return to main module for next problem450 *YES[module I}for correct answer input at line 190460 WRITE:S,}[clear screen so problem d470 WRITE:S,480 WRITE:S,490 WRITE:S, #W+I}#B=#X[reinforce correct answer given500 WRITE:S,510 WRITE:S, [more encouragement520 PA:99[pause so reinforcemI}ent and encouragement may be read530 WRITE:S,}[clear screen540 C:#R=#R+1[total correct answers550 J:*DIVIDE[return to mainI} module for next problem560 E:[end *YES modu570 *COUNTER[module to output progress580 WRITE:S,}[clear screen590 WRITE:S,I}600 WRITE:S,610 WRITE:S, #N PROBLEMS[write #problems given to screen in oversize text620 WRITE:S,630 WRITE:S, #R RII}GHT[write the #correct to screen in oversize text640 PA:120[pause so progress can be read650 WRITE:S,}[clear screen660 WRI}ITE:S,670 WRITE:S,680 WRITE:S, Ϡՠ[continue program - inverse letters text color blue690 WRITE:S, ϠſI}[continue program700 READ:K,$C[read continue option710 MS:Y,OK, O.K., SURE, ALRIGHT[match string $C to continue count720 WI}RITE:S,}[clear screen730 JY:*START[jump to main module if $C matches740 WRITE:S,750 WRITE:S,760 WRITE:S, would you likeI}770 WRITE:S, to start over?[to as if new count is desired780 READ:K,$O[read keyboard input to buffer790 MS:Y,OK,O.K.,SURI}800 JY:*OVER[jump to module *OVER if $O matches810 JN:*STOP[jump to module *STOP if $O does no match820 *OVER[module to bI}egin new count830 WRITE:S,}[clear screen840 WRITE:S,850 WRITE:S,860 WRITE:S, [inverse small letters-writes oI}versize text color red870 PA:60[pause so instruction to start over can be read880 E:[end program890 *STOP[lable module to I}stop run900 WRITE:S,}[clear screen910 WRITE:S,920 WRITE:S,930 WRITE:S, GOODBYE,[write oversize text to screen color yelI}low940 WRITE:S,[leave a space950 WRITE:S, COME AGAIN![write oversize text to screen color yellow960 E:[end run3=060 C:Ht10 T: TYPE S FOR SUMMARY!20 PA:20030 R:COUM}NT AND DO MATH40 R:(C) Ruth Ellsworth50 R:**BECAUSE OF THE WAY THE USE AND JUMP COMMANDS OPERATE, AND IN ORDER TO KEEP THE M}PROGRAM LENGTH SHORT60 R:**I HAVE ENDED THE PROGRAM BY HAVING THE BREAK KEY PRESSED. IF IT IS DESIRED, A SEPARATE *RIGHT MOM}DULE70 R:**MAY BE USED FOR THE SUBTRACTION ROUTINE ENDING IN A J:*SUBSTART, A J:*BEGIN WOULD BE ADDED TO THE80 R:**RIGHT MOM}DULE AS IT APPEARS IN THIS PROGRAM. THE LINES T:PRESS BREAK KEY--AND PA:100090 R:**--WOULD THEN BE REMOVED,ENDING THE PROGRM}AM IN THE USUAL MANNER.100 C:#N=0110 C:#R=0120 C:@B1373=16130 C:@B1374=2140 WRITE:S,}150 U:*TITLE160 E:170 *TITLE180M} POS:2,3190 C:@B755=2200 WRITE:S, COUNT AND DO210 WRITE:S,220 WRITE:S, MATH230 T:240 T:250 T:PRESS START TO BEGIM}N260 R:WAIT UNTIL START IS HIT270 PA:60280 J(@B53279<>6):*TITLE2290 J(@B53279=6):*START300 *TITLE2310 R:WAIT UNTIL STARM}T IS HIT320 POS:2,3330 C:@B755=4340 T:}350 WRITE:S, COUNT AND DO360 WRITE:S,370 WRITE:S, MATH380 R:WAIT UNTIL STM}ART IS HIT390 PA:60400 J(@B53279<>6):*TITLE410 J(@B53279=6):*START420 *START430 WRITE:S,}440 T:}450 C:@B755=2460 WRITM}E:S, CHOOSE470 T:480 T:490 T:500 T: PRESS SELECT TO CHOOSE510 *CHOOSE520 POS:2,5530 WRITE:S, 540 PM}A:60550 J(@B53279<>5):*CHOOSE2560 J(@B53279=5):*ADDITION570 *CHOOSE2580 POS:2,5590 WRITE:S, 600 PA:606M}10 J(@B53279<>5):*CHOOSE620 J(@B53279=5):*SUBRACTION630 E:640 *ADDITION650 GR:QUIT660 *BEGIN670 C:#N=#N+1680 T:}690 UM}:*VARA700 U:*VARB710 U:*ANSWERA720 C:#C=#A+#B730 U:*MATCH740 J:*BEGIN750 E:760 *SUBRACTION770 GR:QUIT780 *SUBSTART7M}90 C:#N=#N+1800 T:}810 U:*VARA820 U:*SUBVARB830 U:*ANSWERS840 C:#C=#A-#B850 U:*MATCH860 J:*SUBSTART870 E:880 *VARA8M}90 C:#A=?\11900 POS:10,12910 T(#A=0): 0920 T(#A=1): 1 #930 T(#A=2): 2 $$940 T(#A=3): 3 %%%950 T(#A=4): 4 @@@@M}960 T(#A=5): 5 ^^^^^970 T(#A=6): 6 ''''''980 T(#A=7): 7 <<<<<<<990 T(#A=8): 8 ++++++++1000 T(#A=9): 9 >>>>>>>>>M}1010 T(#A=10): 10 **********1020 E:1030 *VARB1040 C:#B=?\111050 POS:10,131060 T(#B=0): 01070 T(#B=1): 1 #1080 T(#M}B=2): 2 $$1090 T(#B=3): 3 %%%1100 T(#B=4): 4 @@@@1110 T(#B=5): 5 ^^^^^1120 T(#B=6): 6 ''''''1130 T(#B=7): 7 M}<<<<<<<1140 T(#B=8): 8 ++++++++1150 T(#B=9): 9 >>>>>>1160 T(#B=10): 10 **********1170 E:1180 *ANSWERA1190 POS:10,1M}31200 T:+1210 POS:10,141220 T:____1230 E:1240 *MATCH1250 READ:K,$Y1260 M:#C1270 JY:*RIGHT1280 MS:S1290 JY:*COUNTERM}1300 T:1310 POS:10,181320 T:ŠҠ #C1330 C:#R=#R-11340 PA:601350 J:*RIGHT1360 E:1370 *RIGHT1380 POS:10,1513M}90 T(#C=0): 01400 T(#C=1): 1 #1410 T(#C=2): 2 $$1420 T(#C=3): 3 %%%1430 T(#C=4): 4 @@@@1440 T(#C=5): 5 ^^^^^M}1450 T(#C=6): 6 ''''''1460 T(#C=7): 7 <<<<<<<1470 T(#C=8): 8 ++++++++1480 T(#C=9): 9 >>>>>>>>>1490 T(#C=10): 10 *M}*********1500 T(#C=12): 12 ********** $$1510 T(#C=11): 11 ********** #1520 T(#C=13): 13 ********** %%%1530 T(#C=14): 14 *M}********* @@@@1540 T(#C=15): 15 ********** ^^^^^1550 T(#C=16): 16 ********** ''''''1560 T(#C=17): 17 ********** <<<<<<<15M}70 T(#C=18): 18 ********** ++++++++1580 T(#C=19): 19 ********** >>>>>>>>>1590 T(#C=20): 20 ********** **********1600 C:#R=M}#R+11610 PA:601620 E:1630 T:}1640 POS:10,81650 T:THE ANSWER IS #C1660 J:*RIGHT1670 *COUNTER1680 T:}1690 POS:10,8170M}0 T:YOU ANSWERED #R RIGHT1710 POS:10,101720 C:#N=#N-11730 T:OUT OF #N PROBLEMS1740 PA:1001750 J:*OVER1760 E:1770 *SUBVM}ARB1780 C:#B=?\111790 J(#A<#B):*SUBVARB1800 POS:10,131810 T(#B=0): 01820 T(#B=1): 1 #1830 T(#B=2): 2 $$1840 T(#B=M}3): 3 %%%1850 T(#B=4): 4 @@@@1860 T(#B=5): 5 ^^^^^1870 T(#B=6): 6 ''''''1880 T(#B=7): 7 <<<<<<<1890 T(#B=8): M}8 ++++++++1900 T(#B=9): 9 >>>>>>1910 T(#B=10): 10 **********1920 E:1930 *ANSWERS1940 POS:10,131950 T:-1960 POS:10,M}141970 T:____1980 E:1990 *SUBVARA2000 POS:10,122010 T(#C=0): 02020 T(#C=1): 1 #2030 T(#C=2): 2 $$2040 T(#C=3): M}3 %%%2050 T(#C=4): 4 @@@@2060 T(#C=5): 5 ^^^^^2070 T(#C=6): 6 ''''''2080 T(#C=7): 7 <<<<<<<2090 T(#C=8): 8 ++M}++++++2100 T(#C=9): 9 >>>>>>>>>2110 T(#C=10): 10 **********2120 T(#C=12): 12 ********** $$2130 T(#C=11): 11 ********** M}#2140 T(#C=13): 13 ********** %%%2150 T(#C=14): 14 ********** @@@@2160 T(#C=15): 15 ********** ^^^^^2170 T(#C=16): 16 ***M}******* ''''''2180 T(#C=17): 17 ********** <<<<<<<2190 T(#C=18): 18 ********** ++++++++2200 T(#C=19): 19 ********** >>>>>>M}>>>2210 T(#C=20): 20 ********** **********2220 E:2230 *OVER2240 CLOSE:S2250 C:@B1373=162260 C:@B1374=22270 C:#N=02280M} C:#R=02290 WRITE:S,}2300 WRITE:S,2310 WRITE:S, DO YOU WANT2320 WRITE:S,2330 WRITE:S, TO START OVER?2340 READ:K,$QM}2350 MS:Y2360 JY:*START2370 WRITE:S,}2380 WRITE:S,2390 WRITE:S,2400 WRITE:S, GOODBYE2410 WRITE:S,2420 WRITE:S, M} COME AGAIN2430 T:PRESS BREAK KEY2440 PA:10002450 E: TYPE S FOR SUMMARY!20 PA:20030 R:COUL810 R:SKETCHING PROGRAM20 R:FROM PAGE 68 STUDENT PILOT30 R:TYPED BY C.L.GONTERMAN M.A.C.E.40 T:THIS PROGRAM LETS YOU DRAW AQ}50 :DESIGN ON THE GRAPHICS SCREEN60 :USING THE COMMANDS:70 :80 :P90 :100 :OWN110 :120 :IGHT130 :140 :EFT150 :Q}160 :LEAR170 :180 :PRESS RETURN TO BEGIN . . .190 A:200 *BEGIN210 GR:CLEAR220 T:STARTING X LOCATION?\230 A:#X240 T:SQ}TARTING Y LOCATION?\250 A:#Y260 GR:GOTO #X,#Y270 *COMMAND280 T:WHICH WAY OR LEAR?\290 A:300 M:U, D, R, L, C3Q}10 JM:*UP, *DOWN, *RIGHT, *LEFT, *BEGIN320 *UP GR:TURNTO 0330 J:*LINE340 *DOWN GR:TURNTO 180350 J:*LINE360 *RIGHT GR:TURQ}NTO 90370 J:*LINE380 *LEFT GR:TURNTO -90390 *LINE GR:DRAW 10400 J:*COMMANDMAN M.A.C.E.40 T:THIS PROGRAM LETS YOU DRAW APO10 R:13-POINTED STAR20 R:PAGE 70 STUDENT PILOT30 R:TYPED BY C.L.GONTERMAN M.A.C.E.40 C:#C=050 GR:CLEAR60 GR:GOTO -10, -5U}70 GR:TURNTO 1480 *LOOP90 GR:DRAW 50100 GR:TURN 166110 C:#C=#C+1120 J(#C<14):*LOOP130 E:0 GR:CLEAR60 GR:GOTO -10, -5T`10 R:SQUIRAL20 R:PAGE 75 STUDENT PILOT30 R:TYPED BY C.L.GONTERMAN M.A.C.E.40 R:TRY ANGLE=88 GROWTH=1 FIRST50 GR:CLEAR60 Y}*BEGIN70 T: SQUIRAL80 :90 :TURNING ANGLE (1-179)?\100 A:#A110 T:SPEED OF GROWTH (1-10)?\120 A:#I130 GR:CLEAR;Y}GOTO 0,0;TURNTO 0140 T: SQUIRAL150 :160 T:ANGLE=#A GROWTH=#I170 C:#S=0180 *MORE190 GR:DRAW #S;TURN #AY}200 C:#S=#S+#I210 J(#S<200):*MORE220 T:AGAIN?\230 A:240 M:Y, SURE, OK, ALRIGHT245 JY:*BEGIN250 GR:QUIT260 E:CLEAR60 Xt10 R:SHOOTING STAR20 :PAGE 88 STUDENT PILOT30 :TYPED BY C.L.GONTERMAN M.A.C.E.40 *BEGIN50 C:#C=060 GR:CLEAR70 T: SHOO]}TING STARS80 GR:GOTO -75,4090 GR:TURNTO 12091 C:#S=?\20+1100 *LOOP101 C:#P=31-#C102 SO:#P110 GR:PEN YELLOW120 U:*STAR]}125 GR:PEN ERASE126 U:*STAR140 GR:GO 5150 C:#C=#C+1160 J(#C<32):*LOOP170 PA:120180 J:*BEGIN190 *STAR191 GR:5(DRAW 10]};TURN 144)200 E:20 :PAGE 88 STUDENT PILOT30 :TYPED BY C.L.GONTERMAN M.A.C.E.40 *BEGIN50 C:#C=060 GR:CLEAR70 T: SHOO\10 R:TIME TEST20 R:by Ruth Ellsworth30 R:THIS IS PURELY A TIME DRILL40 R:NO ANSWERS ARE DISPLAYED, NOR IS50 R:ANY FEED BAa}CK GIVEN FOR CORRECT60 R:ANSWERS BECAUSE THEY DISTRACTED70 R:MY CHILDREN WHO DO SPEED DRILLS80 R:TO GAIN THEIR MATH COMPETa}ENCY90 R:REQUIREMENTS.100 R:S IS TYPED TO STOP THE DRILL110 R:WHICH DISPLAYS THE NUMBER CORRECT120 R:THE NUMBER GIVEN, ANa}D THE TIME130 R:ELAPSED.140 C:@B1373=16150 C:@B1374=2160 WRITE:S,170 WRITE:S,180 WRITE:S, TIMED MATH190 PA:100200 Wa}RITE:S,}210 *CHOOSE220 WRITE:S, CHOOSE230 T:240 T:250 T:PRESS SELECT TO CHOOSE260 J:*CHOOSE1270 E:280 *CHOOSE1a}290 POS:2,5300 WRITE:S,310 PA:60320 J(@B53279<>5):*CHOOSE2330 J(@B53279=5):*ADD340 E:350 *CHOOSE2360 Pa}OS:2,5370 WRITE:S,380 PA:60390 J(@B53279<>5):*CHOOSE3400 J(@B53279=5):*SUB410 E:420 *CHOOSE3430 POS:2,a}5440 WRITE:S,450 PA:60460 J(@B53279<>5):*CHOOSE4470 J(@B53279=5):*MULT480 E:490 *CHOOSE4500 POS:2,551a}0 WRITE:S,520 PA:60530 J(@B53279<>5):*CHOOSE1540 J(@B53279=5):*DIV550 E:560 *ADD570 C:#N=0580 C:#W=05a}90 C:@B19=0600 C:#T=@B18*65536+@B19*256+@B20/60610 *APROBLEM620 WRITE:S,}630 C:#N=#N+1640 C:#A=?\10650 C:#B=?\10660 POa}S:2,5670 WRITE:S, #A+#B =680 C:#C=#A+#B690 READ:K,$Y700 M:#C710 JY:*APROBLEM720 MS:S730 JY:*COUNTER740 C:#W=#W+1a}750 J:*APROBLEM760 E:770 *SUB780 C:#N=0790 C:#W=0800 C:#T=@B18*65536+@B19*256+@B20/60810 *SPROBLEM820 WRITE:S,}830 C:a}#A=?\19840 C:#B=?\11850 J(#A<#B):*SPROBLEM860 POS:2,5870 WRITE:S, #A-#B =880 C:#N=#N+1890 C:#C=#A-#B900 READ:K,$Ya}910 M:#C920 JY:*SPROBLEM930 MS:S940 JY:*COUNTER950 C:#W=#W+1960 J:*SPROBLEM970 E:980 *MULT990 C:#N=01000 C:#W=01010a} C:#T=@B18*65536+@B19*256+@B20/601020 *MPROBLEM1030 WRITE:S,}1040 C:#N=#N+11050 C:#A=?\131060 C:#B=?\131070 POS:2,5108a}0 WRITE:S, #A*#B =1090 C:#C=#A*#B1100 READ:K,$Y1110 M:#C1120 JY:*MPROBLEM1130 MS:S1140 JY:*COUNTER1150 C:#W=#W+11a}160 J:*MPROBLEM1170 E:1180 *DIV1190 C:#N=01200 C:#W=01210 C:#T=@B18*65536+@B19*256+@B20/601220 *DPROBLEM1230 WRITE:S,}a}1240 C:#A=?\101250 J(#A=0):*DPROBLEM1260 C:#B=?\101270 J(#B=0):*DPROBLEM1280 C:#D=#A*#B1290 POS:2,51300 WRITE:S, #a}D/#A =1310 C:#N=#N+11320 C:#C=#D/#A1330 READ:K,$Y1340 M:#C1350 JY:*DPROBLEM1360 MS:S1370 JY:*COUNTER1380 C:#W=#W+113a}90 J:*DPROBLEM1400 E:1410 *COUNTER1420 C:#N=#N-11430 C:#R=#N-#W1440 WRITE:S,}1450 WRITE:S,1460 WRITE:S, #R RIGHT1a}470 WRITE:S,1480 WRITE:S, OUT OF1490 WRITE:S,1500 WRITE:S, #N PROBLEMS1510 C:#P=@B18*65536+@B19*256+@B20/601520 a}C:#G=#P-#T1530 J(#G<60):*SECONDS1540 J(#G>60):*MINUTES1550 *SECONDS1560 WRITE:S,1570 WRITE:S, IN #G SECONDS1580 E:15a}90 *MINUTES1600 C:#M=#G/601610 C:#S=#M*60-#G1620 C:#S=#S*-11630 WRITE:S,1640 WRITE:S, IN #M MIN #S SEC1650 E:Y FEED BA`t10 R:JOYSTICK ETCH20 R:by Ruth Ellsworth24 T:25 T: PRESS JOYSTICK BUTTON FOR CURSOR LOCATION WHILE DRAWING.26 PA:20e}030 C:#Y=040 C:#X=050 *STICK60 J(%J0=1):*A70 J(%J0=9):*B80 J(%J0=8):*C90 J(%J0=10):*D100 J(%J0=6):*F110 J(%J0=2):*Ee}120 J(%J0=4):*G130 J(%J0=5):*H140 J(%T8=1):*M150 J(%X<-79):*I160 J(%X>79):*J170 J(%Y<-31):*K180 J(%Y>47):*L190 GR:GOTOe} %X,%Y200 J:*STICK210 E:220 *A230 C:#X=%X240 C:#Y=%Y+1250 GR:DRAWTO#X,#Y260 J:*STICK270 E:280 *B290 C:#Y=%Y+1300 Ce}:#X=%X+1310 GR:DRAWTO#X,#Y320 J:*STICK330 E:340 *C350 C:#Y=%Y360 C:#X=%X+1370 GR:DRAWTO#X,#Y380 J:*STICK390 E:400 *e}D410 C:#Y=%Y-1420 C:#X=%X+1430 GR:DRAWTO#X,#Y440 J:*STICK450 E:460 *E470 C:#Y=%Y-1480 C:#X=%X490 GR:DRAWTO#X,#Y500 e}J:*STICK510 E:520 *F530 C:#Y=%Y-1540 C:#X=%X-1550 GR:DRAWTO#X,#Y560 J:*STICK570 E:580 *G590 C:#Y=%Y600 C:#X=%X-161e}0 GR:DRAWTO#X,#Y620 J:*STICK630 E:640 *H650 C:#Y=%Y+1660 C:#X=%X-1670 GR:DRAWTO#X,#Y680 J:*STICK690 E:700 *I710 C:#e}X=-79720 GR:DRAWTO-79,#Y730 J:*STICK740 E:750 *J760 C:#X=79770 GR:DRAWTO79,#Y780 J:*STICK790 E:800 *K810 C:#Y=-318e}20 GR:DRAWTO#X,-31830 J:*STICK840 E:850 *L860 C:#Y=47870 GR:DRAWTO#X,47880 J:*STICK890 E:900 *M910 T:THE VALUE OF X e}AND Y920 :ARE %X ,%Y930 PA:90940 J:*STICK950 E: PRESS JOYSTICK BUTTON FOR CURSOR LOCATION WHILE DRAWING.26 PA:20d510 R:JOYSTICK COLOR MATCH20 R:A SIMPLE COLOR MATCH FOR YOUNG30 R:CHILDREN40 R:by Ruth Ellsworth50 GR:CLEAR60 C:@B708=70+i}070 C:@B709=30+080 C:@B710=164+090 C:@B712=0+0100 *BEGIN110 GR:PENRED120 U:*BOX1130 GR:PENYELLOW140 U:*BOX2150 GR:PEi}NBLUE160 U:*BOX3170 GR:PENYELLOW180 U:*BOX4190 GR:PENBLUE200 U:*BOX5210 GR:PENRED220 U:*BOX6230 J:*COLORED240 E:250i} *COLORED260 T:MATCH THE RED BOX270 J:*JOYBOX1280 E:290 *JOYBOX1300 J(%T8=1):*CHOICE310 J(%J0=1):*TOPBOX320 J(%J0=8):*i}MIDBOX330 J(%J0=2):*BOTBOX340 J:*JOYBOX1350 E:360 GR:CLEAR370 *START380 GR:CLEAR390 *BOX1400 GR:GOTO-50,30;TURNTO041i}0 GR:DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;FILL10420 E:430 *BOX2440 GR:GOTO-50,10;TURNTO0450 GR:DRAW10;i}TURN90;DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;FILL10460 E:470 *BOX3480 GR:GOTO-50,-10;TURNTO0490 GR:DRAW10;TURN90;DRAWi}10;TURN90;DRAW10;TURN90;DRAW10;TURN90;FILL10500 E:510 *BOX4520 GR:GOTO40,30;TURNTO0530 GR:DRAW10;TURN90;DRAW10;TURN90;DRAi}W10;TURN90;DRAW10;TURN90;FILL10540 E:550 *BOX5560 GR:GOTO40,10;TURNTO0570 GR:DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;DRi}AW10;TURN90;FILL10580 E:590 *BOX6600 GR:GOTO40,-10;TURNTO0610 GR:DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;i}FILL10620 E:630 *BOTBOX640 GR:PENERASE650 GR:GOTO-39,35;DRAWTO39,15660 GR:GOTO-39,35;DRAWTO39,35670 GR:PENRED680 GR:GOi}TO-39,35;DRAWTO39,-5690 J:*JOYBOX1700 E:710 *MIDBOX720 GR:PENERASE730 GR:GOTO-39,35;DRAWTO39,-5740 GR:GOTO-39,35;DRAWTOi}39,35750 GR:PENRED760 GR:GOTO-39,35;DRAWTO39,15770 J:*JOYBOX1780 *TOPBOX790 GR:PENERASE800 GR:GOTO-39,35;DRAWTO39,-581i}0 GR:GOTO-39,35;DRAWTO39,15820 GR:PENRED830 GR:GOTO-39,35;DRAWTO39,35840 J:*JOYBOX1850 E:860 *CHOICE870 T:880 T:890 Ti}(%Y=-5):RIGHT!900 J(%Y=15):*BLUE910 J(%Y=35):*YELLOW920 C:@B712=200+0930 PA:90940 C:@B712=0+0950 J:*COLORYELLOW960 E:i}970 *BLUE980 T:THIS BOX IS BLUE990 T:TRY AGAIN1000 PA:901010 J:*JOYBOX11020 E:1030 *YELLOW1040 T:THIS BOX IS YELLOW10i}50 T:TRY AGAIN1060 PA:901070 J:*JOYBOX11080 E:1090 *COLORYELLOW1100 GR:PENERASE;GOTO-39,35;DRAWTO39,-51110 T:1120 T:1i}130 T:MATCH THE YELLOW BOX1140 J:*JOYBOX21150 E:1160 *JOYBOX21170 J(%T8=1):*SEC1180 J(%J0=1):*TOP1190 J(%J0=8):*MID120i}0 J(%J0=2):*BOT1210 J:*JOYBOX21220 E:1230 GR:CLEAR1240 *START1250 GR:CLEAR1260 *SBOX11270 GR:GOTO-50,30;TURNTO01280 Gi}R:DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;FILL101290 E:1300 *SBOX21310 GR:GOTO-50,10;TURNTO01320 GR:DRAW1j}0;TURN90;DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;FILL101330 E:1340 *SBOX31350 GR:GOTO-50,-10;TURNTO01360 GR:DRAW10;TURNj}90;DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;FILL101370 E:1380 *SBOX41390 GR:GOTO40,30;TURNTO01400 GR:DRAW10;TURN90;DRAW1j}0;TURN90;DRAW10;TURN90;DRAW10;TURN90;FILL101410 *SBOX51420 GR:GOTO40,10;TURNTO01430 GR:DRAW10;TURN90;DRAW10;TURN90;DRAW10;j}TURN90;DRAW10;TURN90;FILL101440 E:1450 *SBOX61460 GR:GOTO40,-10;TURNTO01470 GR:DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;j}DRAW10;TURN90;FILL101480 E:1490 *BOT1500 GR:PENERASE1510 GR:GOTO-39,15;DRAWTO39,151520 GR:GOTO-39,15;DRAWTO39,351530 GRj}:PENYELLOW1540 GR:GOTO-39,15;DRAWTO39,-51550 J:*JOYBOX21560 E:1570 *MID1580 GR:PENERASE1590 GR:GOTO-39,15;DRAWTO39,-51j}600 GR:GOTO-39,15;DRAWTO39,351610 GR:PENYELLOW1620 GR:GOTO-39,15;DRAWTO39,151630 J:*JOYBOX21640 *TOP1650 GR:PENERASE166j}0 GR:GOTO-39,15;DRAWTO39,-51670 GR:GOTO-39,15;DRAWTO39,151680 GR:PENYELLOW1690 GR:GOTO-39,15;DRAWTO39,351700 J:*JOYBOX21j}710 E:1720 *SEC1730 T:1740 T:1750 T(%Y=35):RIGHT!1760 J(%Y=15):*BLUE21770 J(%Y=-5):*RED21780 C:@B712=200+01790 PA:90j }1800 C:@B712=0+01810 J:*COLORBLUE1820 E:1830 *BLUE21840 T:THIS BOX IS BLUE1850 T:TRY AGAIN1860 PA:901870 J:*JOYBOX218j }80 E:1890 *RED21900 T:THIS BOX IS RED1910 T:TRY AGAIN1920 PA:901930 J:*JOYBOX21940 E:1950 *COLORBLUE1960 GR:PENERASE;j }GOTO-39,15;DRAWTO39,351970 T:1980 T:1990 T:MATCH THE BLUE BOX2000 J:*JOYBOX32010 E:2020 *JOYBOX32030 J(%T8=1):*LAST20j }40 J(%J0=1):*UP2050 J(%J0=8):*BET2060 J(%J0=2):*DOWN2070 J:*JOYBOX32080 E:2090 GR:CLEAR2100 *START2110 GR:CLEAR2120 *j }TBOX12130 GR:GOTO-50,30;TURNTO02140 GR:DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;FILL102150 E:2160 *TBOX22j}170 GR:GOTO-50,10;TURNTO02180 GR:DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;FILL102190 E:2200 *TBOX32210 GR:j}GOTO-50,-10;TURNTO02220 GR:DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;FILL102230 E:2240 *TBOX42250 GR:GOTO40j},30;TURNTO02260 GR:DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;FILL102270 E:2280 *TBOX52290 GR:GOTO40,10;TURNj}TO02300 GR:DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;FILL102310 E:2320 *TBOX62330 GR:GOTO40,-10;TURNTO0234j}0 GR:DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;FILL102350 E:2360 *DOWN2370 GR:PENERASE2380 GR:GOTO-39,-5;DRj}AWTO39,152390 GR:GOTO-39,-5;DRAWTO39,352400 GR:PENBLUE2410 GR:GOTO-39,-5;DRAWTO39,-52420 J:*JOYBOX32430 E:2440 *BET245j}0 GR:PENERASE2460 GR:GOTO-39,-5;DRAWTO39,-52470 GR:GOTO-39,-5;DRAWTO39,352480 GR:PENBLUE2490 GR:GOTO-39,-5;DRAWTO39,1525j}00 J:*JOYBOX32510 *UP2520 GR:PENERASE2530 GR:GOTO-39,-5;DRAWTO39,-52540 GR:GOTO-39,-5;DRAWTO39,152550 GR:PENBLUE2560 GRj}:GOTO-39,-5;DRAWTO39,352570 J:*JOYBOX32580 E:2590 *LAST2600 T:2610 T:2620 T(%Y=15):RIGHT!2630 J(%Y=35):*YELLOW32640 Jj}(%Y=-5):*RED32650 C:@B712=200+02660 PA:902670 C:@B712=0+02680 LOAD D:COLORS2690 *LAST2700 T:2710 E:2720 *YELLOW32730j} T:THIS BOX IS YELLOW2740 T:TRY AGAIN2750 PA:902760 J:*JOYBOX32770 E:2780 *RED32790 T:THIS BOX IS RED2800 T:TRY AGAINj}2810 PA:902820 J:*JOYBOX32830 E:2840 E:2850 *PURPLE2860 T:THIS COLOR IS PURPLE2870 T:TRY AGAIN2880 PA:902890 J:*JOYBOj}X32900 E:2910 *ORANGE2920 T:THIS COLOR IS ORANGE2930 T:TRY AGAIN2940 PA:902950 J:*JOYBOX32960 E:2970 PA:902980 C:@B7j}12=0+02990 LOAD D:COLORS3000 E:3010 *YELLOW33020 T:THIS BOX IS YELLOW3030 T:TRY AGAIN3040 PA:903050 J:*JOYBOX33060 E:j}3070 *RED33080 T:THIS BOX IS RED3090 T:TRY AGAIN3100 PA:903110 J:*JOYBOX33120 E:3130 *COLORRD3140 GR:TURNTO3153150 Gj}R:FILL-13160 PA:203170 J(%T8=0):*STICK3180 J(%T8=1):*COLORRD3190 E:3200 *NOLEFT3210 T:THIS DIRECTION DOESN'T FILL3220 j}T:CHOOSE YOUR COLOR AGAIN3230 PA:603240 J:*FILL3250 E:3260 *COLORLD3270 GR:TURNTO453280 GR:FILL-13290 PA:203300 J(%T8j}=0):*STICK3310 J(%T8=1):*COLORLD3320 E:3330 *COLORLU3340 GR:TURNTO3153350 GR:FILL13360 PA:203370 J(%T8=0):*STICK3380 j }J(%T8=1):*COLORLU3390 E:20 R:A SIMPLE COLOR MATCH FOR YOUNG30 R:CHILDREN40 R:by Ruth Ellsworth50 GR:CLEAR60 C:@B708=70+h10 R:JOYSTICK COLOR MATCH20 R:CONTINUATION OF COLOR MATCH30 R:USING SECONDARY COLORS40 R:by Ruth Ellsworth50 GR:CLEAR60 n"}C:@B708=48+770 C:@B709=100+080 C:@B710=200+090 *BEGIN100 GR:PENRED110 U:*BOX1120 GR:PENYELLOW130 U:*BOX2140 GR:PENBLUn#}E150 U:*BOX3160 GR:PENYELLOW170 U:*BOX4180 GR:PENBLUE190 U:*BOX5200 GR:PENRED210 U:*BOX6220 J:*COLORED230 E:240 *COn$}LORED250 T:MATCH THE ORANGE BOX260 J:*JOYBOX1270 E:280 *JOYBOX1290 J(%T8=1):*CHOICE300 J(%J0=1):*TOPBOX310 J(%J0=8):*Mn%}IDBOX320 J(%J0=2):*BOTBOX330 J:*JOYBOX1340 E:350 GR:CLEAR360 *START370 GR:CLEAR380 *BOX1390 GR:GOTO-50,30;TURNTO0400n&} GR:DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;FILL10410 E:420 *BOX2430 GR:GOTO-50,10;TURNTO0440 GR:DRAW10;Tn'}URN90;DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;FILL10450 E:460 *BOX3470 GR:GOTO-50,-10;TURNTO0480 GR:DRAW10;TURN90;DRAW1n(}0;TURN90;DRAW10;TURN90;DRAW10;TURN90;FILL10490 E:500 *BOX4510 GR:GOTO40,30;TURNTO0520 GR:DRAW10;TURN90;DRAW10;TURN90;DRAWn)}10;TURN90;DRAW10;TURN90;FILL10530 E:540 *BOX5550 GR:GOTO40,10;TURNTO0560 GR:DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;DRAn*}W10;TURN90;FILL10570 E:580 *BOX6590 GR:GOTO40,-10;TURNTO0600 GR:DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;Fn+}ILL10610 E:620 *BOTBOX630 GR:PENERASE640 GR:GOTO-39,35;DRAWTO39,15650 GR:GOTO-39,35;DRAWTO39,35660 GR:PENRED670 GR:GOTn,}O-39,35;DRAWTO39,-5680 J:*JOYBOX1690 E:700 *MIDBOX710 GR:PENERASE720 GR:GOTO-39,35;DRAWTO39,-5730 GR:GOTO-39,35;DRAWTO3n-}9,35740 GR:PENRED750 GR:GOTO-39,35;DRAWTO39,15760 J:*JOYBOX1770 *TOPBOX780 GR:PENERASE790 GR:GOTO-39,35;DRAWTO39,-5800n.} GR:GOTO-39,35;DRAWTO39,15810 GR:PENRED820 GR:GOTO-39,35;DRAWTO39,35830 J:*JOYBOX1840 E:850 *CHOICE860 T:870 T:880 T(n/}%Y=-5):RIGHT!890 J(%Y=15):*GREEN1900 C:@B712=128+4910 PA:90920 C:@B712=0+0930 J:*COLORYELLOW940 E:950 *PURPLE1960 T:Tn0}HIS BOX IS PURPLE970 T:TRY AGAIN980 PA:90990 J:*JOYBOX11000 E:1010 *GREEN11020 T:THIS BOX IS GREEN1030 T:TRY AGAIN104n1}0 PA:901050 J:*JOYBOX11060 E:1070 *COLORYELLOW1080 GR:PENERASE;GOTO-39,35;DRAWTO39,-51090 T:1100 T:1110 T:MATCH THE PUn2}RPLE BOX1120 J:*JOYBOX21130 E:1140 *JOYBOX21150 J(%T8=1):*SEC1160 J(%J0=1):*TOP1170 J(%J0=8):*MID1180 J(%J0=2):*BOT11n3}90 J:*JOYBOX21200 E:1210 GR:CLEAR1220 *START1230 GR:CLEAR1240 *SBOX11250 GR:GOTO-50,30;TURNTO01260 GR:DRAW10;TURN90;DRn4}AW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;FILL101270 E:1280 *SBOX21290 GR:GOTO-50,10;TURNTO01300 GR:DRAW10;TURN90;DRAW10;TUn5}RN90;DRAW10;TURN90;DRAW10;TURN90;FILL101310 E:1320 *SBOX31330 GR:GOTO-50,-10;TURNTO01340 GR:DRAW10;TURN90;DRAW10;TURN90;Dn6}RAW10;TURN90;DRAW10;TURN90;FILL101350 E:1360 *SBOX41370 GR:GOTO40,30;TURNTO01380 GR:DRAW10;TURN90;DRAW10;TURN90;DRAW10;TUn7}RN90;DRAW10;TURN90;FILL101390 *SBOX51400 GR:GOTO40,10;TURNTO01410 GR:DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURNn8}90;FILL101420 E:1430 *SBOX61440 GR:GOTO40,-10;TURNTO01450 GR:DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;FILLn9}101460 E:1470 *BOT1480 GR:PENERASE1490 GR:GOTO-39,15;DRAWTO39,151500 GR:GOTO-39,15;DRAWTO39,351510 GR:PENYELLOW1520 GRn:}:GOTO-39,15;DRAWTO39,-51530 J:*JOYBOX21540 E:1550 *MID1560 GR:PENERASE1570 GR:GOTO-39,15;DRAWTO39,-51580 GR:GOTO-39,15;n;}DRAWTO39,351590 GR:PENYELLOW1600 GR:GOTO-39,15;DRAWTO39,151610 J:*JOYBOX21620 *TOP1630 GR:PENERASE1640 GR:GOTO-39,15;DRn<}AWTO39,-51650 GR:GOTO-39,15;DRAWTO39,151660 GR:PENYELLOW1670 GR:GOTO-39,15;DRAWTO39,351680 J:*JOYBOX21690 E:1700 *SEC1n=}710 T:1720 T:1730 T(%Y=35):RIGHT!1740 J(%Y=15):*GREEN21750 J(%Y=-5):*ORANGE21760 C:@B712=128+41770 PA:901780 C:@B712=0n>}+01790 J:*COLORBLUE1800 E:1810 *GREEN21820 T:THIS COLOR IS GREEN1830 T:TRY AGAIN1840 PA:901850 J:*JOYBOX21860 E:1870n?} *ORANGE21880 T:THIS COLOR IS ORANGE1890 T:TRY AGAIN1900 PA:901910 J:*JOYBOX21920 E:1930 *COLORBLUE1940 GR:PENERASE;GOn@}TO-39,15;DRAWTO39,351950 T:1960 T:1970 T:MATCH THE GREEN BOX1980 J:*JOYBOX31990 E:2000 *JOYBOX32010 J(%T8=1):*LAST202nA}0 J(%J0=1):*UP2030 J(%J0=8):*BET2040 J(%J0=2):*DOWN2050 J:*JOYBOX32060 E:2070 GR:CLEAR2080 *START2090 GR:CLEAR2100 *TnB}BOX12110 GR:GOTO-50,30;TURNTO02120 GR:DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;FILL102130 E:2140 *TBOX221nC}50 GR:GOTO-50,10;TURNTO02160 GR:DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;FILL102170 E:2180 *TBOX32190 GR:GnD}OTO-50,-10;TURNTO02200 GR:DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;FILL102210 E:2220 *TBOX42230 GR:GOTO40,nE}30;TURNTO02240 GR:DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;FILL102250 E:2260 *TBOX52270 GR:GOTO40,10;TURNTnF}O02280 GR:DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;FILL102290 E:2300 *TBOX62310 GR:GOTO40,-10;TURNTO02320nG} GR:DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;FILL102330 E:2340 *DOWN2350 GR:PENERASE2360 GR:GOTO-39,-5;DRAnH}WTO39,152370 GR:GOTO-39,-5;DRAWTO39,352380 GR:PENBLUE2390 GR:GOTO-39,-5;DRAWTO39,-52400 J:*JOYBOX32410 E:2420 *BET2430nI} GR:PENERASE2440 GR:GOTO-39,-5;DRAWTO39,-52450 GR:GOTO-39,-5;DRAWTO39,352460 GR:PENBLUE2470 GR:GOTO-39,-5;DRAWTO39,15248nJ}0 J:*JOYBOX32490 *UP2500 GR:PENERASE2510 GR:GOTO-39,-5;DRAWTO39,-52520 GR:GOTO-39,-5;DRAWTO39,152530 GR:PENBLUE2540 GR:nK}GOTO-39,-5;DRAWTO39,352550 J:*JOYBOX32560 E:2570 *LAST2580 T:2590 T:2600 T(%Y=15):RIGHT!2610 J(%Y=35):*PURPLE2620 J(%nL}Y=-5):*ORANGE2630 C:@B712=128+42640 PA:902650 LOAD D:MATCH2660 E:2670 *PURPLE2680 T:THIS COLOR IS PURPLE2690 T:TRY AGAnM}IN2700 PA:902710 J:*JOYBOX32720 E:2730 *ORANGE2740 T:THIS COLOR IS ORANGE2750 T:TRY AGAIN2760 PA:902770 J:*JOYBOX327nN}80 E:OYSTICK COLOR MATCH20 R:CONTINUATION OF COLOR MATCH30 R:USING SECONDARY COLORS40 R:by Ruth Ellsworth50 GR:CLEAR60 l10 R:COLOR SONG20 R:THIS SONG AND PROGRAM WERE30 R:WRITTEN ESPECIALLY FOR DANIEL40 R:by Ruth Ellsworth50 GR:CLEAR60 C:@B~h}712=64+070 SO:2080 T:RED\90 PA:32100 SO:15110 T: AND\120 PA:32130 C:@B712=129+0140 SO:17150 T: BLUE,\160 PA:64170 ~i}C:@B712=30+0180 SO:15190 T: YEL-\200 PA:32210 SO:0220 SO:15230 T:LOW\240 PA:16250 SO:10260 T: AND\270 PA:16280 C:@~j}B712=208+7290 SO:12300 T: GREEN,310 PA:64320 C:@B712=96+0330 SO:13340 T:SO\350 PA:32360 SO:0370 C:@B712=48+7380 SO:~k}13390 T: MA-\400 PA:16410 C:@B712=70+14420 SO:12430 T:NY\440 PA:16450 C:@B712=0+7460 SO:10470 T: COL-\480 PA:32490~l} C:@B712=64+0500 SO:15510 T:ORS\520 PA:32530 C:@B712=128+0540 SO:12550 T: CAN\560 PA:32570 C:@B712=30+0580 SO:13590~m} T: BE\600 PA:32610 C:@B712=208+7620 SO:15630 T: SEEN.640 PA:64650 C:@B712=64+0660 SO:20670 T:RED\680 PA:32690 SO:0~n}700 SO:20710 T: AS\720 PA:16730 SO:19740 T: A\750 PA:16760 SO:17770 T: FLOW-\780 PA:32790 SO:0800 SO:17810 T:ER,\~o}820 PA:32830 C:@B712=129+0840 SO:15850 T: BLUE\860 PA:32870 SO:0880 SO:15890 T: AS\900 PA:16910 SO:13920 T: THE\9~p}30 PA:16940 SO:12950 T: SKY,960 PA:64970 C:@B712=30+0980 SO:13990 T:SING\1000 PA:321010 SO:01020 C:@B712=208+71030 ~q}SO:131040 T: TH-\1050 PA:161060 SO:121070 T:E\1080 PA:161090 C:@B712=96+01100 SO:101110 T: COL-\1120 PA:321130 C:@B~r}712=48+71140 SO:151150 T:ORS\1160 PA:161170 C:@B712=70+141180 SO:131190 T: AS\1200 PA:161210 C:@B712=0+71220 SO:121~s}230 T: THEY\1240 PA:321250 C:@B712=242+01260 SO:131270 T: GO\1280 PA:321290 C:@B712=176+141300 SO:151310 T: BY.1320 ~t}PA:641330 C:@712=64+01340 SO:201350 T:RED\1360 PA:321370 SO:151380 T: AND\1390 PA:321400 C:@B712=129+01410 SO:17142~u}0 T: BLUE,\1430 PA:641440 C:@B712=30+01450 SO:151460 T: YEL-\1470 PA:321480 SO:01490 SO:151500 T:LOW\1510 PA:161520~v} SO:101530 T: AND\1540 PA:161550 C:@B712=208+41560 SO:121570 T: GREEN,1580 PA:641590 C:@B712=96+01600 SO:131610 T:PU~w}R-\1620 PA:321630 SO:01640 SO:131650 T:PLE\1660 PA:161670 SO:121680 T: AND\1690 PA:161700 C:@B712=48+71710 SO:1017~x}20 T: OR-\1730 PA:321740 SO:151750 T:ANGE\1760 PA:321770 SO:121780 T: IN\1790 PA:321800 SO:131810 T: BE-\1820 PA:32~y}1830 SO:151840 T: TWEEN,1850 PA:641860 C:@B712=70+141870 SO:201880 T:PINK\1890 PA:321900 SO:191910 T: AND\1920 PA:3~z}21930 C:@B712=0+71940 SO:171950 T: GRAY,\1960 PA:641970 C:@B712=242+01980 SO:151990 T: BROWN\2000 PA:322010 SO:1320~{}20 T: AND\2030 PA:322040 C:@B712=176+142050 SO:122060 T: WHITE,2070 PA:642080 C:@B712=64+02090 SO:132100 T:THEY\2110~|} PA:322120 C:@B712=129+02130 SO:02140 C:@B712=30+02150 SO:132160 T: MAKE\2170 PA:162180 C:@B712=30+02190 SO:122200 T~}}: THE\2210 PA:162220 C:@B712=96+02230 SO:102240 T: WORLD\2250 PA:322260 C:@B712=48+72270 SO:152280 T: A\2290 PA:322~~}300 C:@B712=70+142310 SO:122320 T: BEAU-\2330 PA:322340 SO:02350 C:@B712=242+02360 SO:122370 T:TI-\2380 PA:162390 C:~}@B712=208+72400 SO:102410 T:FUL\2420 PA:162430 C:@B712=64+02440 SO:82450 T: SIGHT.2460 PA:64worth50 GR:CLEAR60 C:@B|d