@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}}} HE ||||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 WHAT NUMBER COMES NEXT DRILL20 R:IN GROUPS OF TEN30 R:by Ruth Ellsworth40 R:FOR ERACE50 R:3662 VINE MAPLE DRI,}VE60 R:EUGENE, OREGON 9740570 C:@B1373=1680 C:@B1374=290 C:#C=0100 *NEXTNO [NEXT NUMBER MODULE110 C:#C=#C+1120 J(#C>9)-}:*PLAYAGAIN130 C:#I=?\11 [CHOOSE RANDOM NUMBER BETWEEN 1 AND 10140 WRITE:S, 150 WRITE:S, 160.} WRITE:S, #I170 C:#J=#I+1180 READ:K,$Y190 M:#J200 JY:*RIGHT210 JN:*WRONG220 *RIGHT230 WRITE:S,240 WRITE:S,25/}0 WRITE:S, #J260 WRITE:S,270 WRITE:S, ⡠280 PA:100290 WRITE:S,}300 J:*NEXTNO310 E:320 *WRONG330 0}T: TRY AGAIN340 READ:K,$Y350 M:#J360 JY:*RIGHT2370 WRITE:S,380 WRITE:S,390 WRITE:S, THE ANSWER IS400 WRITE:S,410 WR1}ITE:S, #J420 T:430 T:440 T:450 T:460 T:BETTER LUCK NEXT TIME470 PA:200480 WRITE:S,}490 J:*NEXTNO500 E:510 *2}RIGHT2520 T:530 T:540 T:550 T:560 WRITE:S,570 WRITE:S,580 WRITE:S, #J590 WRITE:S,600 WRITE:S, 3}610 PA:100620 WRITE:S,}630 J:*NEXTNO640 *PLAYAGAIN650 WRITE:S,660 WRITE:S,670 WRITE:S, ϠՠԠϛ680 WRITE:S,694}0 WRITE:S, ٠ο700 READ:K,$A710 MS:Y,OK,O.K.,SURE,ALRIGHT720 JY:*NEWCOUNT730 JN:*STOP740 E:750 *NEWCOUNT760 5}C:#C=0770 WRITE:S,}780 J:*NEXTNO790 E:800 *STOP810 WRITE:S,}820 WRITE:S,830 WRITE:S,840 WRITE:S, GOODBYE850 WRI6}TE:S,860 WRITE:S, COME AGAIN870 PA:200880 E:UPS OF TEN30 R:by Ruth Ellsworth40 R:FOR ERACE50 R:3662 VINE MAPLE DRI410 R:SIMPLE WHAT NUMBER COMES NEXT DRILL20 R:IN GROUPS OF YOUR CHOICE30 R:by Ruth Ellsworth40 R:FOR ERACE50 R:3662 VINE M8}APLE DRIVE60 R:EUGENE, OREGON 9740570 C:@B1373=1680 C:@B1374=290 WRITE:S,100 WRITE:S,110 WRITE:S, WHAT NUMBER COMES1209} WRITE:S,130 WRITE:S, NEXT140 PA:100150 WRITE:S,}160 WRITE:S,170 WRITE:S, HOW MANY NUMBERS180 WRITE:S,190 WRITE::}S, WOULD YOU LIKE?200 READ:K,#N210 WRITE:S,}220 C:#C=0230 *NEXTNO [NEXT NUMBER MODULE240 C:#C=#C+1250 C:#X=#N+1260 J(;}#C=#X):*PLAYAGAIN270 C:#I=?\11 [CHOOSE RANDOM NUMBER BETWEEN 1 AND 10280 WRITE:S, 290 WRITE:S, <}300 WRITE:S, #I310 C:#J=#I+1320 READ:K,$Y330 M:#J340 JY:*RIGHT350 JN:*WRONG360 *RIGHT370 WRITE:S,380 WRITE=}:S,390 WRITE:S, #J400 WRITE:S,410 WRITE:S, ⡠420 PA:100430 WRITE:S,}440 J:*NEXTNO450 E:460 *WRON>}G470 T: TRY AGAIN480 READ:K,$Y490 M:#J500 JY:*RIGHT2510 WRITE:S,520 WRITE:S,530 WRITE:S, THE ANSWER IS540 WRITE:S,?}550 WRITE:S, #J560 T:570 T:580 T:590 T:600 T:BETTER LUCK NEXT TIME610 PA:200620 WRITE:S,}630 J:*NEXTNO640 E:@}650 *RIGHT2660 T:670 T:680 T:690 T:700 WRITE:S,710 WRITE:S,720 WRITE:S, #J730 WRITE:S,740 WRITE:S, A}750 PA:100760 WRITE:S,}770 J:*NEXTNO780 *PLAYAGAIN790 WRITE:S,800 WRITE:S,810 WRITE:S, ϠՠԠϛ820 WRITEB}:S,830 WRITE:S, ٠ο840 READ:K,$A850 MS:Y,OK,O.K.,SURE,ALRIGHT860 JY:*NEWCOUNT870 JN:*STOP880 E:890 *NEWCOUNC}T900 C:#C=0910 WRITE:S,}920 C:#X=0930 WRITE:S,940 WRITE:S, HOW MANY NUMBERS950 WRITE:S,960 WRITE:S, WOULD YOU LIKE?9D}70 READ:K,#X980 WRITE:S,}990 J:*NEXTNO1000 E:1010 *STOP1020 WRITE:S,}1030 WRITE:S,1040 WRITE:S,1050 WRITE:S, GOOE}DBYE1060 WRITE:S,1070 WRITE:S, COME AGAIN1080 PA:2001090 E:CE30 R:by Ruth Ellsworth40 R:FOR ERACE50 R:3662 VINE MD10 R:SIMPLE WHAT NUMBER COMES BEFORE DRILL20 R:IN GROUPS OF TEN30 R:by Ruth Ellsworth40 R:FOR ERACE50 R:3662 VINE MAPLE G}DRIVE60 R:EUGENE, OREGON 9740570 C:@B1373=1680 C:@B1374=290 C:#C=0100 *NOBEFORE [MAIN MODULE110 C:#I=?\11 [CHOOSE RANDO H}M NUMBER BETWEEN 1 AND 10115 J(#I=0):*NOBEFORE120 J(#C>9):*PLAYAGAIN130 C:#C=#C+1140 WRITE:S, 150 WRIT I}E:S, 160 WRITE:S, #I170 C:#J=#I-1180 READ:K,$Y190 M:#J200 JY:*RIGHT210 JN:*WRONG220 *RIGHT240 WRI J}TE:S,250 WRITE:S, #J260 WRITE:S,270 WRITE:S, ⡠280 PA:100290 WRITE:S,}300 J:*NOBEFORE310 E:320 * K}WRONG330 T: TRY AGAIN340 READ:K,$Y350 M:#J360 JY:*RIGHT2370 WRITE:S,380 WRITE:S,390 WRITE:S, THE ANSWER IS400 WRITE L}:S,410 WRITE:S, #J420 T:430 T:440 T:450 T:460 T:BETTER LUCK NEXT TIME470 PA:200480 WRITE:S,}490 J:*NOBEFORE M}500 E:510 *RIGHT2520 T:530 T:540 T:550 T:560 WRITE:S,570 WRITE:S,580 WRITE:S, #J590 WRITE:S,600 WRITE:S, N} 610 PA:100620 WRITE:S,}630 J:*NEXTNO640 *PLAYAGAIN650 WRITE:S,660 WRITE:S,670 WRITE:S, ϠՠԠϛ680 O} WRITE:S,690 WRITE:S, ٠ο700 READ:K,$A710 MS:Y,OK,O.K.,SURE,ALRIGHT720 JY:*NEWCOUNT730 JN:*STOP740 E:750 *N P}EWCOUNT760 C:#C=0770 WRITE:S,}780 J:*NOBEFORE790 E:800 *STOP810 WRITE:S,}820 WRITE:S,830 WRITE:S,840 WRITE:S, G Q}OODBYE850 WRITE:S,860 WRITE:S, COME AGAIN870 PA:200880 E:30 R:by Ruth Ellsworth40 R:FOR ERACE50 R:3662 VINE MAPLE B10 R:SIMPLE WHAT NUMBER COMES BEFORE DRILL20 R:IN GROUPS OF YOUR CHOICE30 R:by Ruth Ellsworth40 R:FOR ERACE50 R:3662 VINS}E MAPLE DRIVE60 R:EUGENE, OREGON 9740570 C:@B1373=1680 C:@B1374=290 WRITE:S,100 WRITE:S,110 WRITE:S, WHAT NUMBER COMEST}120 WRITE:S,130 WRITE:S, BEFORE140 PA:100150 WRITE:S,}160 WRITE:S,170 WRITE:S, HOW MANY NUMBERS180 WRITE:S,190 WU}RITE:S, WOULD YOU LIKE?200 READ:K,#N210 WRITE:S,}220 C:#C=0230 *NOBEFORE [MAIN MODULE240 C:#I=?\11 [CHOOSE RANDOM NUMBEV}R BETWEEN 1 AND 10241 J(#I=0):*NOBEFORE250 C:#X=#N+1260 J(#C=#X):*PLAYAGAIN270 C:#C=#C+1280 WRITE:S, W}290 WRITE:S, 300 WRITE:S, #I310 C:#J=#I-1320 READ:K,$Y330 M:#J340 JY:*RIGHT350 JN:*WRONG360 *RIGHTX}370 WRITE:S,380 WRITE:S,390 WRITE:S, #J400 WRITE:S,410 WRITE:S, ⡠420 PA:100430 WRITE:S,}440 J:*Y}NOBEFORE450 E:460 *WRONG470 T: TRY AGAIN480 READ:K,$Y490 M:#J500 JY:*RIGHT2510 WRITE:S,520 WRITE:S,530 WRITE:S, THZ}E ANSWER IS540 WRITE:S,550 WRITE:S, #J560 T:570 T:580 T:590 T:600 T:BETTER LUCK NEXT TIME610 PA:200620 WRITE[}:S,}630 J:*NOBEFORE640 E:650 *RIGHT2660 T:670 T:680 T:690 T:700 WRITE:S,710 WRITE:S,720 WRITE:S, #J730 WRI\}TE:S,740 WRITE:S, 750 PA:100760 WRITE:S,}770 J:*NOBEFORE780 *PLAYAGAIN790 WRITE:S,800 WRITE:S,810 WRITE]}:S, ϠՠԠϛ820 WRITE:S,830 WRITE:S, ٠ο840 READ:K,$A850 MS:Y,OK,O.K.,SURE,ALRIGHT860 JY:*NEWCOUNT870^} JN:*STOP880 E:890 *NEWCOUNT900 C:#C=0910 WRITE:S,}920 C:#X=0930 WRITE:S,940 WRITE:S, HOW MANY NUMBERS950 WRITE:S,96_}0 WRITE:S, WOULD YOU LIKE?970 READ:K,#X980 WRITE:S,}990 J:*NOBEFORE1000 E:1010 *STOP1020 WRITE:S,}1030 WRITE:S,1040 `}WRITE:S,1050 WRITE:S, GOODBYE1060 WRITE:S,1070 WRITE:S, COME AGAIN1080 PA:2001090 E: R:FOR ERACE50 R:3662 VINc10 R:SIMPLE ADD ONE DRILL20 R:ILLUSTRATED WITH ASTERISKS30 R:by Ruth Ellsworth40 R:FOR ERACE50 R:3662 VINE MAPLE DRIVE60b} R:EUGENE, OREGON 9740570 C:@B1373=1680 C:@B1374=290 WRITE:S,100 WRITE:S,110 WRITE:S,120 WRITE:S, PLUS ONE130 PA:10c}0140 WRITE:S,}150 *START160 C:#A=?\10170 J(#A=0):*START180 J(#A=1):*ONE190 J(#A=2):*TWO200 J(#A=3):*THREE210 J(#A=4):d}*FOUR220 J(#A=5):*FIVE230 J(#A=6):*SIX240 J(#A=7):*SEVEN250 J(#A=8):*EIGHT260 J(#A=9):*NINE270 E:280 *ONE290 POS:2,2e}300 WRITE:S,1 + 1 =310 WRITE:S,320 POS:2,5330 WRITE:S,* + * =340 A:=350 T(@B764=30): GOOD!360 J(@B764<>30):*ONE370 POSf}:10,2380 WRITE:S,2390 POS:10,5400 WRITE:S,410 PA:90420 WRITE:S,}430 J:*START440 E:450 *TWO460 POS:2,2470 WRITE:S,g} 2 + 1 =480 WRITE:S,490 POS:2,5500 WRITE:S,** + * =510 A:=520 T(@B764=26): GOOD!530 J(@B764<>26):*TWO540 POS:11,2550 h}WRITE:S,3560 POS:11,5570 WRITE:S,580 PA:90590 WRITE:S,}600 J:*START610 *THREE620 POS:2,2630 WRITE:S, 3 + 1 =640 i}WRITE:S,650 POS:2,5660 WRITE:S,*** + * =670 A:=680 T(@B764=24): GOOD!690 J(@B764<>24):*THREE700 POS:12,2710 WRITE:S,4j}720 POS:12,5730 WRITE:S,740 PA:90750 WRITE:S,}760 J:*START770 E:780 *FOUR790 POS:2,2800 WRITE:S, 4 + 1 =810 WRk}ITE:S,820 POS:2,5830 WRITE:S,**** + * =840 A:=850 T(@B764=29): GOOD!860 J(@B764<>29):*FOUR870 POS:13,2880 WRITE:S,589l}0 POS:13,5900 WRITE:S,910 PA:90920 WRITE:S,}930 J:*START940 E:950 *FIVE960 POS:1,2970 WRITE:S, 5 + 1 =980 WRm}ITE:S,990 POS:1,51000 WRITE:S,***** + * =1010 A:=1020 T(@B764=27): GOOD!1030 J(@B764<>27):*FIVE1040 POS:13,21050 WRITEn}:S,61060 POS:13,51070 WRITE:S,1080 PA:901090 WRITE:S,}1100 J:*START1110 E:1120 *SIX1130 POS:2,21140 WRITE:S, 6o} + 1 =1150 WRITE:S,1160 POS:2,51170 WRITE:S,*** + * =1180 POS:2,61190 WRITE:S,***1200 A:=1210 T(@B764=51): GOOD!1220p} J(@B764<>51):*SIX1230 POS:12,21240 WRITE:S,71250 POS:12,51260 WRITE:S,1270 POS:12,61280 WRITE:S,1290 PA:90130q}0 WRITE:S,}1310 J:*START1320 E:1330 *SEVEN1340 POS:2,21350 WRITE:S, 7 + 1 =1360 WRITE:S,1370 POS:2,51380 WRITE:S,**r}** + * =1390 POS:2,61400 WRITE:S,***1410 A:=1420 T(@B764=53): GOOD!1430 J(@B764<>53):*SEVEN1440 POS:13,21450 WRITE:S,8s}1460 POS:13,51470 WRITE:S,1480 POS:13,61490 WRITE:S,1500 PA:901510 WRITE:S,}1520 J:*START1530 E:1540 *EIGHTt}1550 POS:2,21560 WRITE:S, 8 + 1 =1570 WRITE:S,1580 POS:2,51590 WRITE:S,**** + * =1600 POS:2,61610 WRITE:S,****1620 Au}:=1630 T(@B764=48): GOOD!1640 J(@B764<>48):*EIGHT1650 POS:13,21660 WRITE:S, 91670 POS:13,51680 WRITE:S,1690 POS:1v}3,61700 WRITE:S,1710 PA:901720 WRITE:S,}1730 J:*START1740 E:1750 *NINE1760 POS:2,21770 WRITE:S, 9 + 1 =1780 WRIw}TE:S,1790 POS:2,41800 WRITE:S,***1810 POS:2,51820 WRITE:S,*** + * =1830 POS:2,61840 WRITE:S,***1850 A:=1860 T(@B764=5x}0): GOOD!1870 J(@B764<>50):*NINE1880 POS:13,21890 WRITE:S, 101900 POS:13,51910 WRITE:S,1920 POS:13,61930 WRITE:S,y}1940 PA:901950 WRITE:S,}1960 J:*START1970 E:SKS30 R:by Ruth Ellsworth40 R:FOR ERACE50 R:3662 VINE MAPLE DRIVE60610 R:SIMPLE SUBTRACT ONE DRILL20 R:ILLUSTRATED WITH ASTERISKS30 R:by Ruth Ellsworth40 R:FOR ERACE50 R:3662 VINE MAPLE DRI{}VE60 R:EUGENE, OREGON 9740570 C:@B1373=1680 C:@B1374=290 WRITE:S,100 WRITE:S,110 WRITE:S,120 WRITE:S, MINUS ONE130|} PA:100140 WRITE:S,}150 *START160 C:#A=?\11170 J(#A=0):*START180 J(#A=1):*ONE190 J(#A=2):*TWO200 J(#A=3):*THREE210 J(}}#A=4):*FOUR220 J(#A=5):*FIVE230 J(#A=6):*SIX240 J(#A=7):*SEVEN250 J(#A=8):*EIGHT260 J(#A=9):*NINE265 J(#A=10):*TEN270 ~}E:280 *ONE290 POS:2,2300 WRITE:S,1 - 1 =310 WRITE:S,320 POS:2,5330 WRITE:S,* - =340 A:=350 T(@B764=50): GOOD!360 J}(@B764<>50):*ONE370 POS:10,2380 WRITE:S,0390 POS:10,5400 WRITE:S,410 PA:90420 WRITE:S,}430 J:*START440 E:450 *TWO46}0 POS:2,2470 WRITE:S, 2 - 1 =480 WRITE:S,490 POS:2,5500 WRITE:S,** - =510 A:=520 T(@B764=31): GOOD!530 J(@B764<>31):}*TWO540 POS:11,2550 WRITE:S,1560 POS:11,5570 WRITE:S,580 PA:90590 WRITE:S,}600 J:*START610 *THREE620 POS:2,2630 WR}ITE:S, 3 - 1 =640 WRITE:S,650 POS:2,5660 WRITE:S,*** - =670 A:=680 T(@B764=30): GOOD!690 J(@B764<>30):*THREE700 POS}:12,2710 WRITE:S,2720 POS:12,5730 WRITE:S,740 PA:90750 WRITE:S,}760 J:*START770 E:780 *FOUR790 POS:2,2800 WRITE:S}, 4 - 1 =810 WRITE:S,820 POS:2,5830 WRITE:S,**** - =840 A:=850 T(@B764=26): GOOD!860 J(@B764<>26):*FOUR870 POS:13,}2880 WRITE:S,3890 POS:13,5900 WRITE:S,910 PA:90920 WRITE:S,}930 J:*START940 E:950 *FIVE960 POS:1,2970 WRITE:S, }5 - 1 =980 WRITE:S,990 POS:1,51000 WRITE:S,***** - =1010 A:=1020 T(@B764=24): GOOD!1030 J(@B764<>24):*FIVE1040 POS}:13,21050 WRITE:S,41060 POS:13,51070 WRITE:S,1080 PA:901090 WRITE:S,}1100 J:*START1110 E:1120 *SIX1130 POS:2,21}140 WRITE:S, 6 - 1 =1150 WRITE:S,1160 POS:2,51170 WRITE:S,*** - =1180 POS:2,61190 WRITE:S,***1200 A:=1210 T(@B764=2}9): GOOD!1220 J(@B764<>29):*SIX1230 POS:12,21240 WRITE:S,51250 POS:12,51260 WRITE:S,1290 PA:901300 WRITE:S,}1310} J:*START1320 E:1330 *SEVEN1340 POS:2,21350 WRITE:S, 7 - 1 =1360 WRITE:S,1370 POS:2,51380 WRITE:S,**** - =1390 PO}S:2,61400 WRITE:S,***1410 A:=1420 T(@B764=27): GOOD!1430 J(@B764<>27):*SEVEN1440 POS:13,21450 WRITE:S,61460 POS:13,51}470 WRITE:S,1480 POS:13,61490 WRITE:S,1500 PA:901510 WRITE:S,}1520 J:*START1530 E:1540 *EIGHT1550 POS:2,21560 }WRITE:S, 8 - 1 =1570 WRITE:S,1580 POS:2,51590 WRITE:S,**** - =1600 POS:2,61610 WRITE:S,****1620 A:=1630 T(@B764=51}): GOOD!1640 J(@B764<>51):*EIGHT1650 POS:13,21660 WRITE:S, 71670 POS:13,51680 WRITE:S,1690 POS:13,61700 WRITE:S,}1710 PA:901720 WRITE:S,}1730 J:*START1740 E:1750 *NINE1760 POS:2,21770 WRITE:S, 9 - 1 =1780 WRITE:S,1790 POS:2,41}800 WRITE:S,***1810 POS:2,51820 WRITE:S,*** - =1830 POS:2,61840 WRITE:S,***1850 A:=1860 T(@B764=53): GOOD!1870 J(@B7}64<>53):*NINE1880 POS:13,21890 WRITE:S, 81900 POS:13,51910 WRITE:S,1920 POS:13,61930 WRITE:S,1940 PA:901950 W}RITE:S,}1960 J:*START1970 E:5000 *TEN5760 POS:2,25770 WRITE:S, 10 - 1 =5780 WRITE:S,5810 POS:2,55820 WRITE:S,***** } - =5830 POS:2,65840 WRITE:S,*****5850 A:=5860 T(@B764=48): GOOD!5870 J(@B764<>48):*TEN5880 POS:15,25890 WRITE:S, 9}5900 POS:15,55910 WRITE:S,5920 POS:15,65930 WRITE:S,5940 PA:905950 WRITE:S,}5960 J:*START5970 E:NE MAPLE DRIq10 R:SIMPLE ADDITION20 R:By Ruth Ellsworth30 R:ERACE40 R:3662 VINE MAPLE DR.50 R:EUGENE, OREGON 9740560 R:REMOVE *YES A}ND PAUSES TO INCREASE70 R:SPEED OF PROGRAM80 C:@B1373=090 C:@B1374=2100 WRITE:S,110 WRITE:S,120 WRITE:S, ADDITION1}30 PA:100140 CLOSE:S150 C:#N=0[initialize # of problems to 0160 C:#R=0[initialize # right to 0170 *ADDITION[label for mai}n module180 C:#N=#N+1[compute total # of problems190 C:#I=?\11[generate random # I200 C:#J=?\11[generate random #J210 C:@}B1373=16[split screen with text window220 C:@B1374=2[oversize text mode 2230 WRITE:S,240 WRITE:S,250 WRITE:S, #I+#J}=[write problem260 C:#X=#I+#J[compute #I+#J270 READ:K,$Y[read variable $Y (it can be a number)280 M:#X[match $Y to #X290 }JY:*YES[jump to module *YES if $Y matches #X300 MS:S[match $Y to S to stop program310 JY:*COUNTER[jump to module *COUNTER i}f $Y matches S320 T:NO, TRY AGAIN.330 READ:K,$Y340 M:#X350 JY:*YES360 WRITE:S,}[clear screen370 WRITE:S,380 WRITE:S,3}90 WRITE:S, #I+#J=#X[writes correct answer on the400 T:BETTER LUCK NEXT TIME410 PA:90[pause so that correct answer can} be studied420 WRITE:S,}[clear screen430 J:*ADDITION[return to main module for next problem440 *YES[module for correct ans}wer input at line 190450 WRITE:S,}[clear screen so problem does not appear twice460 WRITE:S,470 WRITE:S,480 WRITE:S, } #I+#J=#X[reinforce correct answer given490 WRITE:S,500 WRITE:S, [more encouragement510 PA:30[pause so re}inforcement and encouragement may be read520 WRITE:S,}[clear screen530 C:#R=#R+1[total correct answers540 J:*ADDITION[retu}rn to main module for next problem550 E:[end *YES module560 *COUNTER[module to output progress570 WRITE:S,}[clear screen5}80 WRITE:S,590 WRITE:S,600 WRITE:S, #N PROBLEMS[write #problems given to screen in oversize text610 WRITE:S,620 WRITE}:S, #R RIGHT[write the #correct to screen in oversize text630 PA:120[pause so progress can be read640 WRITE:S,}[clear s}creen650 WRITE:S,660 WRITE:S,670 WRITE:S, Ϡՠ[continue program - inverse letters text color blue680 WRITE:S, }Ϡſ[continue program690 READ:K,$C[read continue option700 MS:Y,OK, O.K., SURE, ALRIGHT[match string $C to continue} count710 WRITE:S,}[clear screen720 JY:*ADDITION[jump to main module if $C matches730 WRITE:S,740 WRITE:S,750 WRITE:S, } would you like760 WRITE:S, to start over?[to as if new count is desired770 READ:K,$O[read keyboard input to buffer780 M}S:Y,OK,O.K.,SUR790 JY:*OVER[jump to module *OVER if $O matches800 JN:*STOP[jump to module *STOP if $O does no match810 *O}VER[module to begin new count820 WRITE:S,}[clear screen830 WRITE:S,840 WRITE:S,850 WRITE:S, [inverse small l}etters-writes oversize text color red860 PA:60[pause so instruction to start over can be read870 E:[end program880 *STOP[l}able module to stop run890 WRITE:S,}[clear screen900 WRITE:S,910 WRITE:S,920 WRITE:S, GOODBYE,[write oversize text to s}creen color yellow930 WRITE:S,[leave a space940 WRITE:S, COME AGAIN![write oversize text to screen color yellow950 E:[en}d runIMPLE ADDITION20 R:By Ruth Ellsworth30 R:ERACE40 R:3662 VINE MAPLE DR.50 R:EUGENE, OREGON 9740560 R:REMOVE *YES A10 R:SIMPLE SUBTRACTION20 R:By Ruth Ellsworth30 R:ERACE40 R:3662 VINE MAPLE DR.50 R:EUGENE, OREGON 9740560 R:RANDOM NUM }BER MAY BE CHANGED BY CHANGING LINES 120 AND 13070 R:REMOVE *YES AND PAUSES TO INCREASE80 R:SPEED OF PROGRAM90 R:TO CHANGE } THE RANGE OF NUMBERS PUT THE NUMBER DESIRED PLUS 1 BEHIND THE?\100 C:@B1373=0110 C:@B1374=2120 WRITE:S,130 WRITE:S,140 }WRITE:S, SUBTRACTION150 PA:100160 CLOSE:S170 C:#N=0[initialize # of problems to 0180 C:#R=0[initialize # right to 019 }0 *SUBTRACT[label for main module200 C:#N=#N+1[compute total # of problems210 *START220 C:#A=?\11[generate random # A230 }C:#B=?\21[generate random #B240 J(#B>#A):*START250 C:#X=#A-#B260 C:@B1373=16[split screen with text window270 C:@B1374=2[ }oversize text mode 2280 WRITE:S290 WRITE:S,300 WRITE:S, #A-#B=[write problem310 C:#X=#A-#B[compute #A-#B320 READ:K },$Y[read variable $Y (it can be a number)330 M:#X[match $Y to #X340 JY:*YES[jump to module *YES if $Y matches #X350 MS:S[m }atch $Y to S to stop program360 JY:*COUNTER[jump to module *COUNTER if $Y matches S370 T:NO, TRY AGAIN.380 READ:K,$Y390 M }:#X400 JY:*YES410 WRITE:S,}[clear screen420 WRITE:S,430 WRITE:S,440 WRITE:S, #A-#B=#X[writes correct answer on the }450 T:BETTER LUCK NEXT TIME460 PA:90[pause so that correct answer can be studied470 WRITE:S,}[clear screen480 J:*SUBTRACT[ }return to main module for next problem490 *YES[module for correct answer input at line 190500 WRITE:S,}[clear screen so pro }blem d510 WRITE:S,520 WRITE:S,530 WRITE:S, #A-#B=#X[reinforce correct answer given540 WRITE:S,550 WRITE:S, }[more encouragement560 PA:30[pause so reinforcement and encouragement may be read570 WRITE:S,}[clear screen580 C:#R= }#R+1[total correct answers590 J:*SUBTRACT[return to main module for next problem600 E:[end *YES modu610 *COUNTER[module to } output progress620 WRITE:S,}[clear screen630 WRITE:S,640 WRITE:S,650 WRITE:S, #N PROBLEMS[write #problems given to s }creen in oversize text660 WRITE:S,670 WRITE:S, #R RIGHT[write the #correct to screen in oversize text680 PA:120[pause }so progress can be read690 WRITE:S,}[clear screen700 WRITE:S,710 WRITE:S,720 WRITE:S, Ϡՠ[continue program - in }verse letters text color blue730 WRITE:S, Ϡſ[continue program740 READ:K,$C[read continue option750 MS:Y,OK, O. }K., SURE, ALRIGHT[match string $C to continue count760 WRITE:S,}[clear screen770 JY:*START[jump to main module if $C matche }s780 WRITE:S,790 WRITE:S,800 WRITE:S, would you like810 WRITE:S, to start over?[to as if new count is desired820 REA }D:K,$O[read keyboard input to buffer830 MS:Y,OK,O.K.,SUR840 JY:*OVER[jump to module *OVER if $O matches850 JN:*STOP[jump }to module *STOP if $O does no match860 *OVER[module to begin new count870 WRITE:S,}[clear screen880 WRITE:S,890 WRITE:S, }900 WRITE:S, [inverse small letters-writes oversize text color red910 PA:60[pause so instruction to start over }can be read920 E:[end program930 *STOP[lable module to stop run940 WRITE:S,}[clear screen950 WRITE:S,960 WRITE:S,970 WR }ITE:S, GOODBYE,[write oversize text to screen color yellow980 WRITE:S,[leave a space990 WRITE:S, COME AGAIN![write over }size text to screen color yellow1000 E:[end run R:ERACE40 R:3662 VINE MAPLE DR.50 R:EUGENE, OREGON 9740560 R:RANDOM NUM 110 R:SIMPLE MULTIPLICATION20 R:By Ruth Ellsworth30 R:ERACE40 R:3662 VINE MAPLE DR.50 R:EUGENE, OREGON 9740560 R:REMOVE $}*YES AND PAUSES TO INCREASE70 R:SPEED OF PROGRAM80 C:@B1373=090 C:@B1374=2100 WRITE:S,110 WRITE:S,120 WRITE:S, MULTIP$}LICATION130 PA:100140 CLOSE:S150 C:#N=0[initialize # of problems to 0160 C:#R=0[initialize # right to 0170 *MULTIPLY[lab$}el for main module180 C:#N=#N+1[compute total # of problems190 C:#I=?\13[generate random # I200 C:#J=?\13[generate random $}#J210 C:@B1373=16[split screen with text window220 C:@B1374=2[oversize text mode 2230 WRITE:S,240 WRITE:S,250 WRITE:S, $} #I*#J=[write problem260 C:#X=#I*#J[compute #I*#J270 READ:K,$Y[read variable $Y (it can be a number)280 M:#X[match $Y $}to #X290 JY:*YES[jump to module *YES if $Y matches #X300 MS:S[match $Y to S to stop program310 JY:*COUNTER[jump to module $}*COUNTER if $Y matches S320 T:NO, TRY AGAIN.330 READ:K,$Y340 M:#X350 JY:*YES360 WRITE:S,}[clear screen370 WRITE:S,380 $}WRITE:S,390 WRITE:S, #I*#J=#X[writes correct answer on the400 T:BETTER LUCK NEXT TIME410 PA:90[pause so that correct $}answer can be studied420 WRITE:S,}[clear screen430 J:*MULTIPLY[return to main module for next problem440 *YES[module for c$}orrect answer input at line 190450 WRITE:S,}[clear screen so problem d460 WRITE:S,470 WRITE:S,480 WRITE:S, #I*#J=#X$}[reinforce correct answer given490 WRITE:S,500 WRITE:S, [more encouragement510 PA:30[pause so reinforcement a$}nd encouragement may be read520 WRITE:S,}[clear screen530 C:#R=#R+1[total correct answers540 J:*MULTIPLY[return to main mo$}dule for next problem550 E:[end *YES modu560 *COUNTER[module to output progress570 WRITE:S,}[clear screen580 WRITE:S,590$} WRITE:S,600 WRITE:S, #N PROBLEMS[write #problems given to screen in oversize text610 WRITE:S,620 WRITE:S, #R RIGHT$}[write the #correct to screen in oversize text630 PA:120[pause so progress can be read640 WRITE:S,}[clear screen650 WRITE$}:S,660 WRITE:S,670 WRITE:S, Ϡՠ[continue program - inverse letters text color blue680 WRITE:S, Ϡſ[co$}ntinue program690 READ:K,$C[read continue option700 MS:Y,OK, O.K., SURE, ALRIGHT[match string $C to continue count710 WRIT$}E:S,}[clear screen720 JY:*MULTIPLY[jump to main module if $C matches730 WRITE:S,740 WRITE:S,750 WRITE:S, would you like$}760 WRITE:S, to start over?[to as if new count is desired770 READ:K,$O[read keyboard input to buffer780 MS:Y,OK,O.K.,SUR$}790 JY:*OVER[jump to module *OVER if $O matches800 JN:*STOP[jump to module *STOP if $O does no match810 *OVER[module to b$}egin new count820 WRITE:S,}[clear screen830 WRITE:S,840 WRITE:S,850 WRITE:S, [inverse small letters-writes o$}versize text color red860 PA:60[pause so instruction to start over can be read870 E:[end program880 *STOP[lable module to $}stop run890 WRITE:S,}[clear screen900 WRITE:S,910 WRITE:S,920 WRITE:S, GOODBYE,[write oversize text to screen color yel$}low930 WRITE:S,[leave a space940 WRITE:S, COME AGAIN![write oversize text to screen color yellow950 E:[end runR:REMOVE $t10 R:SIMPLE DIVISION20 R:By Ruth Ellsworth30 R:ERACE40 R:3662 VINE MAPLE DR.50 R:EUGENE, OREGON 9740560 R:REMOVE *YES A(}ND PAUSES TO INCREASE70 R:SPEED OF PROGRAM80 C:@B1373=090 C:@B1374=2100 WRITE:S,110 WRITE:S,120 WRITE:S, DIVISION(}130 PA:100140 CLOSE:S150 C:#N=0[initialize # of problems to 0160 C:#R=0[initialize # right to 0170 *DIVIDE[label for main(} module180 C:#N=#N+1[compute total # of problems190 *START200 C:#A=?\13[generate random # A210 C:#B=?\13[generate random (}#B220 J(#A<1):*START230 J(#B<1):*START240 C:#W=#A*#B250 C:@B1373=16[split screen with text window260 C:@B1374=2[oversize(} text mode 2270 WRITE:S,280 WRITE:S,290 WRITE:S, #W/#B=[write problem300 C:#X=#W/#B[compute #W/#B310 READ:K,$Y[rea(}d variable $Y (it can be a number)320 M:#X[match $Y to #X330 JY:*YES[jump to module *YES if $Y matches #X340 MS:S[match $Y(} to S to stop program350 JY:*COUNTER[jump to module *COUNTER if $Y matches S360 T:NO, TRY AGAIN.370 READ:K,$Y380 M:#X390(} JY:*YES400 WRITE:S,}[clear screen410 WRITE:S,420 WRITE:S,430 WRITE:S, #W/#B=#X[writes correct answer on the440 T:B(}ETTER LUCK NEXT TIME450 PA:90[pause so that correct answer can be studied460 WRITE:S,}[clear screen470 J:*DIVIDE[return to(} main module for next problem480 *YES[module for correct answer input at line 190490 WRITE:S,}[clear screen so problem d50(}0 WRITE:S,510 WRITE:S,520 WRITE:S, #W+#B=#X[reinforce correct answer given530 WRITE:S,540 WRITE:S, [mo(}re encouragement550 PA:30[pause so reinforcement and encouragement may be read560 WRITE:S,}[clear screen570 C:#R=#R+1[tota(}l correct answers580 J:*DIVIDE[return to main module for next problem590 E:[end *YES modu600 *COUNTER[module to output pro(}gress610 WRITE:S,}[clear screen620 WRITE:S,630 WRITE:S,640 WRITE:S, #N PROBLEMS[write #problems given to screen in ov(}ersize text650 WRITE:S,660 WRITE:S, #R RIGHT[write the #correct to screen in oversize text670 PA:120[pause so progress(} can be read680 WRITE:S,}[clear screen690 WRITE:S,700 WRITE:S,710 WRITE:S, Ϡՠ[continue program - inverse lette(}rs text color blue720 WRITE:S, Ϡſ[continue program730 READ:K,$C[read continue option740 MS:Y,OK, O.K., SURE, A(}LRIGHT[match string $C to continue count750 WRITE:S,}[clear screen760 JY:*START[jump to main module if $C matches770 WRITE(}:S,780 WRITE:S,790 WRITE:S, would you like800 WRITE:S, to start over?[to as if new count is desired810 READ:K,$O[read(} keyboard input to buffer820 MS:Y,OK,O.K.,SUR830 JY:*OVER[jump to module *OVER if $O matches840 JN:*STOP[jump to module *(}STOP if $O does no match850 *OVER[module to begin new count860 WRITE:S,}[clear screen870 WRITE:S,880 WRITE:S,890 WRITE:S(}, [inverse small letters-writes oversize text color red900 PA:60[pause so instruction to start over can be read(}910 E:[end program920 *STOP[lable module to stop run930 WRITE:S,}[clear screen940 WRITE:S,950 WRITE:S,960 WRITE:S, GO(}ODBYE,[write oversize text to screen color yellow970 WRITE:S,[leave a space980 WRITE:S, COME AGAIN![write oversize text t(}o screen color yellow990 E:[end runsworth30 R:ERACE40 R:3662 VINE MAPLE DR.50 R:EUGENE, OREGON 9740560 R:REMOVE *YES A(%10 R:TIME TEST20 R:by Ruth Ellsworth30 R:FOR ERACE40 R:3662 VINE MAPLE DRIVE50 R:EUGENE, OREGON 9740560 R:THIS IS PUREL,}Y A TIME DRILL70 R:NO ANSWERS ARE DISPLAYED, NOR IS80 R:ANY FEED BACK GIVEN FOR CORRECT90 R:ANSWERS BECAUSE THEY DISTRACTE,}D100 R:MY CHILDREN WHO DO SPEED DRILLS110 R:TO GAIN THEIR MATH COMPETENCY120 R:REQUIREMENTS.130 R:S IS TYPED TO STOP THE -}DRILL140 R:WHICH DISPLAYS THE NUMBER CORRECT150 R:THE NUMBER GIVEN, AND THE TIME160 R:ELAPSED.170 C:@B1373=16180 C:@B137-}4=2190 WRITE:S,200 WRITE:S,210 WRITE:S, TIMED MATH220 PA:100230 WRITE:S,}240 *CHOOSE250 WRITE:S, CHOOSE260 T:-}270 T:280 T:PRESS SELECT TO CHOOSE290 J:*CHOOSE1300 E:310 *CHOOSE1320 POS:2,5330 WRITE:S,340 PA:6035-}0 J(@B53279<>5):*CHOOSE2360 J(@B53279=5):*ADD370 E:380 *CHOOSE2390 POS:2,5400 WRITE:S,410 PA:60420 J(@-}B53279<>5):*CHOOSE3430 J(@B53279=5):*SUB440 E:450 *CHOOSE3460 POS:2,5470 WRITE:S,480 PA:60490 J(@B5327-}9<>5):*CHOOSE4500 J(@B53279=5):*MULT510 E:520 *CHOOSE4530 POS:2,5540 WRITE:S,550 PA:60560 J(@B53279<>5-}):*CHOOSE1570 J(@B53279=5):*DIV580 E:590 *ADD600 C:#N=0610 C:#W=0620 C:@B19=0630 C:#T=@B18*65536+@B19*256+@B20/60640 -}*APROBLEM650 WRITE:S,}660 C:#N=#N+1670 C:#A=?\10680 C:#B=?\10690 POS:2,5700 WRITE:S, #A+#B =710 C:#C=#A+#B720 REA-}D:K,$Y730 M:#C740 JY:*APROBLEM750 MS:S760 JY:*COUNTER770 C:#W=#W+1780 J:*APROBLEM790 E:800 *SUB810 C:#N=0820 C:#W=0- }830 C:#T=@B18*65536+@B19*256+@B20/60840 *SPROBLEM850 WRITE:S,}860 C:#A=?\19870 C:#B=?\11880 J(#A<#B):*SPROBLEM890 POS:- }2,5900 WRITE:S, #A-#B =910 C:#N=#N+1920 C:#C=#A-#B930 READ:K,$Y940 M:#C950 JY:*SPROBLEM960 MS:S970 JY:*COUNTER98- }0 C:#W=#W+1990 J:*SPROBLEM1000 E:1010 *MULT1020 C:#N=01030 C:#W=01040 C:#T=@B18*65536+@B19*256+@B20/601050 *MPROBLEM1- }060 WRITE:S,}1070 C:#N=#N+11080 C:#A=?\131090 C:#B=?\131100 POS:2,51110 WRITE:S, #A*#B =1120 C:#C=#A*#B1130 READ:K- },$Y1140 M:#C1150 JY:*MPROBLEM1160 MS:S1170 JY:*COUNTER1180 C:#W=#W+11190 J:*MPROBLEM1200 E:1210 *DIV1220 C:#N=01230-} C:#W=01240 C:#T=@B18*65536+@B19*256+@B20/601250 *DPROBLEM1260 WRITE:S,}1270 C:#A=?\101280 J(#A=0):*DPROBLEM1290 C:#B=?-}\101300 J(#B=0):*DPROBLEM1310 C:#D=#A*#B1320 POS:2,51330 WRITE:S, #D/#A =1340 C:#N=#N+11350 C:#C=#D/#A1360 READ:K,-}$Y1370 M:#C1380 JY:*DPROBLEM1390 MS:S1400 JY:*COUNTER1410 C:#W=#W+11420 J:*DPROBLEM1430 E:1440 *COUNTER1450 C:#N=#N--}11460 C:#R=#N-#W1470 WRITE:S,}1480 WRITE:S,1490 WRITE:S, #R RIGHT1500 WRITE:S,1510 WRITE:S, OUT OF1520 WRITE:-}S,1530 WRITE:S, #N PROBLEMS1540 C:#P=@B18*65536+@B19*256+@B20/601550 C:#G=#P-#T1560 J(#G<60):*SECONDS1570 J(#G>60):*M-}INUTES1580 *SECONDS1590 WRITE:S,1600 WRITE:S, IN #G SECONDS1610 E:1620 *MINUTES1630 C:#M=#G/601640 C:#S=#M*60-#G165-}0 C:#S=#S*-11660 WRITE:S,1670 WRITE:S, IN #M MIN #S SEC1680 E:E MAPLE DRIVE50 R:EUGENE, OREGON 9740560 R:THIS IS PUREL,B10 R:COUNT AND DO MATH20 R:(C) Ruth Ellsworth30 R:ACE NEWSLETTER40 R:REVISED AND IMPROVED50 R:FOR ERACE60 R:3662 VINE MA1}PLE DR.70 R:EUGENE, OREGON 9740580 R:**BECAUSE OF THE WAY THE USE AND JUMP COMMANDS OPERATE, AND IN ORDER TO KEEP THE PROGR1}AM LENGTH SHORT90 R:**I HAVE ENDED THE PROGRAM BY HAVING THE BREAK KEY PRESSED. IF IT IS DESIRED, A SEPARATE *RIGHT MODULE1}100 R:**MAY BE USED FOR THE SUBTRACTION ROUTINE ENDING IN A J:*SUBSTART, A J:*BEGIN WOULD BE ADDED TO THE110 R:**RIGHT MODUL1}E AS IT APPEARS IN THIS PROGRAM. THE LINES T:PRESS BREAK KEY--AND PA:1000120 R:**--WOULD THEN BE REMOVED,ENDING THE PROGRAM1} IN THE USUAL MANNER.130 C:#N=0140 C:#R=0150 C:@B1373=16160 C:@B1374=2170 WRITE:S,}180 U:*TITLE190 E:200 *TITLE210 P1}OS:2,3220 C:@B755=2230 WRITE:S, COUNT AND DO240 WRITE:S,250 WRITE:S, MATH260 T:270 T:280 T:PRESS START TO BEGIN1}290 R:WAIT UNTIL START IS HIT300 PA:60310 J(@B53279<>6):*TITLE2320 J(@B53279=6):*START330 *TITLE2340 R:WAIT UNTIL START 1}IS HIT350 POS:2,3360 C:@B755=4370 T:}380 WRITE:S, COUNT AND DO390 WRITE:S,400 WRITE:S, MATH410 R:WAIT UNTIL STAR1}T IS HIT420 PA:60430 J(@B53279<>6):*TITLE440 J(@B53279=6):*START450 *START460 WRITE:S,}470 T:}480 C:@B755=2490 WRITE:1}S, CHOOSE500 T:510 T:520 T:530 T: PRESS SELECT TO CHOOSE540 *CHOOSE550 POS:2,5560 WRITE:S, 570 PA:1 }60580 J(@B53279<>5):*CHOOSE2590 J(@B53279=5):*ADDITION600 *CHOOSE2610 POS:2,5620 WRITE:S, 630 PA:606401!} J(@B53279<>5):*CHOOSE650 J(@B53279=5):*SUBRACTION660 E:670 *ADDITION680 GR:QUIT690 *BEGIN700 C:#N=#N+1710 T:}720 U:*1"}VARA730 U:*VARB740 U:*ANSWERA750 C:#C=#A+#B760 U:*MATCH770 J:*BEGIN780 E:790 *SUBRACTION800 GR:QUIT810 *SUBSTART8201#} C:#N=#N+1830 T:}840 U:*VARA850 U:*SUBVARB860 U:*ANSWERS870 C:#C=#A-#B880 U:*MATCH890 J:*SUBSTART900 E:910 *VARA9201$} C:#A=?\11930 POS:10,12940 T(#A=0): 0950 T(#A=1): 1 #960 T(#A=2): 2 $$970 T(#A=3): 3 %%%980 T(#A=4): 4 @@@@991%}0 T(#A=5): 5 ^^^^^1000 T(#A=6): 6 ''''''1010 T(#A=7): 7 <<<<<<<1020 T(#A=8): 8 ++++++++1030 T(#A=9): 9 >>>>>>>>1&}>1040 T(#A=10): 10 **********1050 E:1060 *VARB1070 C:#B=?\111080 POS:10,131090 T(#B=0): 01100 T(#B=1): 1 #1110 T(1'}#B=2): 2 $$1120 T(#B=3): 3 %%%1130 T(#B=4): 4 @@@@1140 T(#B=5): 5 ^^^^^1150 T(#B=6): 6 ''''''1160 T(#B=7): 7 1(} <<<<<<<1170 T(#B=8): 8 ++++++++1180 T(#B=9): 9 >>>>>>1190 T(#B=10): 10 **********1200 E:1210 *ANSWERA1220 POS:10,1)}131230 T:+1240 POS:10,141250 T:____1260 E:1270 *MATCH1280 READ:K,$Y1290 M:#C1300 JY:*RIGHT1310 MS:S1320 JY:*COUNTER1*}1330 T:1340 POS:10,181350 T:ŠҠ #C1360 C:#R=#R-11370 PA:601380 J:*RIGHT1390 E:1400 *RIGHT1410 POS:10,1511+}420 T(#C=0): 01430 T(#C=1): 1 #1440 T(#C=2): 2 $$1450 T(#C=3): 3 %%%1460 T(#C=4): 4 @@@@1470 T(#C=5): 5 ^^^^^1,}1480 T(#C=6): 6 ''''''1490 T(#C=7): 7 <<<<<<<1500 T(#C=8): 8 ++++++++1510 T(#C=9): 9 >>>>>>>>>1520 T(#C=10): 10 1-}**********1530 T(#C=12): 12 ********** $$1540 T(#C=11): 11 ********** #1550 T(#C=13): 13 ********** %%%1560 T(#C=14): 14 1.}********** @@@@1570 T(#C=15): 15 ********** ^^^^^1580 T(#C=16): 16 ********** ''''''1590 T(#C=17): 17 ********** <<<<<<<11/}600 T(#C=18): 18 ********** ++++++++1610 T(#C=19): 19 ********** >>>>>>>>>1620 T(#C=20): 20 ********** **********1630 C:#R10}=#R+11640 PA:601650 E:1660 T:}1670 POS:10,81680 T:THE ANSWER IS #C1690 J:*RIGHT1700 *COUNTER1710 T:}1720 POS:10,81711}30 T:YOU ANSWERED #R RIGHT1740 POS:10,101750 C:#N=#N-11760 T:OUT OF #N PROBLEMS1770 PA:1001780 J:*OVER1790 E:1800 *SUB12}VARB1810 C:#B=?\111820 J(#A<#B):*SUBVARB1830 POS:10,131840 T(#B=0): 01850 T(#B=1): 1 #1860 T(#B=2): 2 $$1870 T(#B13}=3): 3 %%%1880 T(#B=4): 4 @@@@1890 T(#B=5): 5 ^^^^^1900 T(#B=6): 6 ''''''1910 T(#B=7): 7 <<<<<<<1920 T(#B=8): 14} 8 ++++++++1930 T(#B=9): 9 >>>>>>1940 T(#B=10): 10 **********1950 E:1960 *ANSWERS1970 POS:10,131980 T:-1990 POS:1015},142000 T:____2010 E:2020 *SUBVARA2030 POS:10,122040 T(#C=0): 02050 T(#C=1): 1 #2060 T(#C=2): 2 $$2070 T(#C=3): 16} 3 %%%2080 T(#C=4): 4 @@@@2090 T(#C=5): 5 ^^^^^2100 T(#C=6): 6 ''''''2110 T(#C=7): 7 <<<<<<<2120 T(#C=8): 8 +17}+++++++2130 T(#C=9): 9 >>>>>>>>>2140 T(#C=10): 10 **********2150 T(#C=12): 12 ********** $$2160 T(#C=11): 11 **********18} #2170 T(#C=13): 13 ********** %%%2180 T(#C=14): 14 ********** @@@@2190 T(#C=15): 15 ********** ^^^^^2200 T(#C=16): 16 **19}******** ''''''2210 T(#C=17): 17 ********** <<<<<<<2220 T(#C=18): 18 ********** ++++++++2230 T(#C=19): 19 ********** >>>>>1:}>>>>2240 T(#C=20): 20 ********** **********2250 E:2260 *OVER2270 CLOSE:S2280 C:@B1373=162290 C:@B1374=22300 C:#N=02311;}0 C:#R=02320 WRITE:S,}2330 WRITE:S,2340 WRITE:S, DO YOU WANT2350 WRITE:S,2360 WRITE:S, TO START OVER?2370 READ:K,$1<}Q2380 MS:Y2390 JY:*START2400 WRITE:S,}2410 WRITE:S,2420 WRITE:S,2430 WRITE:S, GOODBYE2440 WRITE:S,2450 WRITE:S, 1=} COME AGAIN2460 T:PRESS BREAK KEY2470 PA:10002480 E:EWSLETTER40 R:REVISED AND IMPROVED50 R:FOR ERACE60 R:3662 VINE MA0910 R:COLOR SONG20 R:THIS SONG AND PROGRAM WERE30 R:WRITTEN ESPECIALLY FOR DANIEL40 R:by Ruth Ellsworth50 R:ERACE60 R:3665?}2 VINE MAPLE DRIVE70 R:EUGENE, OREGON 9740580 GR:CLEAR90 C:@B712=64+0100 SO:20110 T:RED\120 PA:32130 SO:15140 T: AND\5@}150 PA:32160 C:@B712=129+0170 SO:17180 T: BLUE,\190 PA:64200 C:@B712=30+0210 SO:15220 T: YEL-\230 PA:32240 SO:02505A} SO:15260 T:LOW\270 PA:16280 SO:10290 T: AND\300 PA:16310 C:@B712=208+7320 SO:12330 T: GREEN,340 PA:64350 C:@B712=95B}6+0360 SO:13370 T:SO\380 PA:32390 SO:0400 C:@B712=48+7410 SO:13420 T: MA-\430 PA:16440 C:@B712=70+14450 SO:12460 T5C}:NY\470 PA:16480 C:@B712=0+7490 SO:10500 T: COL-\510 PA:32520 C:@B712=64+0530 SO:15540 T:ORS\550 PA:32560 C:@B712=15D}28+0570 SO:12580 T: CAN\590 PA:32600 C:@B712=30+0610 SO:13620 T: BE\630 PA:32640 C:@B712=208+7650 SO:15660 T: SEEN.5E}670 PA:64680 C:@B712=64+0690 SO:20700 T:RED\710 PA:32720 SO:0730 SO:20740 T: AS\750 PA:16760 SO:19770 T: A\780 PA5F}:16790 SO:17800 T: FLOW-\810 PA:32820 SO:0830 SO:17840 T:ER,\850 PA:32860 C:@B712=129+0870 SO:15880 T: BLUE\890 PA5G}:32900 SO:0910 SO:15920 T: AS\930 PA:16940 SO:13950 T: THE\960 PA:16970 SO:12980 T: SKY,990 PA:641000 C:@B712=30+05H}1010 SO:131020 T:SING\1030 PA:321040 SO:01050 C:@B712=208+71060 SO:131070 T: TH-\1080 PA:161090 SO:121100 T:E\11105I} PA:161120 C:@B712=96+01130 SO:101140 T: COL-\1150 PA:321160 C:@B712=48+71170 SO:151180 T:ORS\1190 PA:161200 C:@B7125J}=70+141210 SO:131220 T: AS\1230 PA:161240 C:@B712=0+71250 SO:121260 T: THEY\1270 PA:321280 C:@B712=242+01290 SO:1315K}300 T: GO\1310 PA:321320 C:@B712=176+141330 SO:151340 T: BY.1350 PA:641360 C:@712=64+01370 SO:201380 T:RED\1390 PA:35L}21400 SO:151410 T: AND\1420 PA:321430 C:@B712=129+01440 SO:171450 T: BLUE,\1460 PA:641470 C:@B712=30+01480 SO:151495M}0 T: YEL-\1500 PA:321510 SO:01520 SO:151530 T:LOW\1540 PA:161550 SO:101560 T: AND\1570 PA:161580 C:@B712=208+41590 5N}SO:121600 T: GREEN,1610 PA:641620 C:@B712=96+01630 SO:131640 T:PUR-\1650 PA:321660 SO:01670 SO:131680 T:PLE\1690 PA5O}:161700 SO:121710 T: AND\1720 PA:161730 C:@B712=48+71740 SO:101750 T: OR-\1760 PA:321770 SO:151780 T:ANGE\1790 PA:35P}21800 SO:121810 T: IN\1820 PA:321830 SO:131840 T: BE-\1850 PA:321860 SO:151870 T: TWEEN,1880 PA:641890 C:@B712=70+15Q}41900 SO:201910 T:PINK\1920 PA:321930 SO:191940 T: AND\1950 PA:321960 C:@B712=0+71970 SO:171980 T: GRAY,\1990 PA:645R}2000 C:@B712=242+02010 SO:152020 T: BROWN\2030 PA:322040 SO:132050 T: AND\2060 PA:322070 C:@B712=176+142080 SO:12205S}90 T: WHITE,2100 PA:642110 C:@B712=64+02120 SO:132130 T:THEY\2140 PA:322150 C:@B712=129+02160 SO:02170 C:@B712=30+025T}180 SO:132190 T: MAKE\2200 PA:162210 C:@B712=30+02220 SO:122230 T: THE\2240 PA:162250 C:@B712=96+02260 SO:102270 T: 5U}WORLD\2280 PA:322290 C:@B712=48+72300 SO:152310 T: A\2320 PA:322330 C:@B712=70+142340 SO:122350 T: BEAU-\2360 PA:325V}2370 SO:02380 C:@B712=242+02390 SO:122400 T:TI-\2410 PA:162420 C:@B712=208+72430 SO:102440 T:FUL\2450 PA:162460 C:@B5W}712=64+02470 SO:82480 T: SIGHT.2490 PA:64RE30 R:WRITTEN ESPECIALLY FOR DANIEL40 R:by Ruth Ellsworth50 R:ERACE60 R:3664-10 R:INTRODUCTION TO COLOR PROGRAM20 R:LOADS OTHERCOL30 R:by Ruth Ellsworth40 R:FOR ERACE50 R:3662 VINE MAPLE DRIVE60 R:9Y}EUGENE, OREGON 9740570 U:*BLUEBALL80 U:*YELLOWBALL90 U:*REDBALL100 LOAD D:OTHERCOL110 *BALL120 GR:GOTO-10,-12130 GR:TU9Z}RNTO-90;36(DRAW2;TURN5);TURNTO90;DRAW4;36(DRAW2;TURN5);TURNTO-90140 GR:DRAW4150 GR:36(FILL2;TURN5)160 E:170 *BLUEBALL1809[} GR:CLEAR190 GR:PEN BLUE200 U:*BALL210 T:THIS BALL IS BLUE220 PA:200230 E:240 *YELLOWBALL250 GR:CLEAR260 GR:PENYELLOW9\}270 U:*BALL280 T:THIS BALL IS YELLOW290 PA:200300 E:310 *REDBALL320 GR:CLEAR;PENRED330 U:*BALL340 T:THIS BALL IS RED9]}350 PA:200360 E:TO COLOR PROGRAM20 R:LOADS OTHERCOL30 R:by Ruth Ellsworth40 R:FOR ERACE50 R:3662 VINE MAPLE DRIVE60 R:810 R:SECONDARY COLORS20 R:by Ruth Ellsworth30 R:FOR ERACE40 R:3662 VINE MAPLE DRIVE50 R:EUGENE, OREGON 9740560 U:*GREENB=_}ALL70 U:*PURPLEBALL80 U:*ORANGEBALL120 LOAD D:YOUCOLOR130 *BALL140 GR:GOTO-10,-12150 GR:TURNTO-90;36(DRAW2;TURN5);TURNT=`}O90;DRAW4;36(DRAW2;TURN5);TURNTO-90160 GR:DRAW4170 GR:36(FILL2;TURN5)180 E:190 *GREENBALL200 GR:CLEAR210 C:@B708=188+7=a}220 GR:PEN RED230 U:*BALL240 T:THIS BALL IS GREEN250 PA:200260 E:270 *PURPLEBALL280 GR:CLEAR290 C:@B708=96+4300 GR:PE=b}NRED310 U:*BALL320 T:THIS BALL IS PURPLE330 PA:200340 E:350 *ORANGEBALL360 GR:CLEAR370 C:@B708=48+7380 GR:PENRED390 =c}U:*BALL400 T:THIS BALL IS ORANGE410 PA:200420 E:R ERACE40 R:3662 VINE MAPLE DRIVE50 R:EUGENE, OREGON 9740560 U:*GREENB<410 R:COLOR THE BALL20 R:by Ruth Ellsworth30 R:FOR ERACE40 R:3662 VINE MAPLE DRIVE50 R:EUGENE, OREGON 9740560 R:REMOVE LIAe}NE 80 TO USE WITHOUT BALL70 GR:CLEAR80 C:@B708=68+090 T:YOU COLOR THE BALL100 U:*YOUCOLOR110 *YOUCOLOR120 J:*BALL13Af}0 E:140 *BALL150 GR:PEN RED ;GOTO-50,-12160 GR:TURNTO-90;36(DRAW2;TURN5);TURNTO90;DRAW4;36(DRAW2;TURN5);TURNTO-90170 GR:DAg}RAW4180 GR:PEN YELLOW190 GR:GOTO40,30;TURNTO0200 GR:4(DRAW10;TURN90);TURNTO0;FILL10210 GR:PEN RED220 GR:GOTO40,10;TURNTOAq}!B'DOS SYSB +NEXTNO B7CHNEXTNO B FNOBEFORE BRCHNOBEF BaPLUSONE BzMINUSONE BADDITION BSUBTRACT BMULTIPLY BDIVISION BTIMED B)MATHCOUN B>COLSONG BXBALL B^OTHERCOL B dYOUCOLOR B yMENU BFLOWRCOL B ETCH BHSOUND BFILL B NIM BGUESS B. COLORM B.NSECCOLOR B |THISDISK B)ONDISK TXT0230 GR:4(DRAW10;TURN90);TURNTO0;FILL10240 GR:PEN BLUE250 GR:GOTO40,-10;TURNTO0260 GR:4(DRAW10;TURN90);TURNTO0;FILL10270Ar} GR:PEN ERASE280 *JOY290 J(%T8=1):*CHOICE300 J(%J0=1):*TOPBOX310 J(%J0=8):*MIDBOX320 J(%J0=2):*BOTBOX330 J:*JOY340 E:As}350 *MIDBOX360 U:*NBOT370 U:*NTOP380 GR:PENRED390 GR:GOTO39,15;DRAWTO-22,13400 J:*JOY410 E:420 *TOPBOX430 U:*NMID440At} U:*NBOT450 GR:PENYELLOW460 GR:GOTO39,35;DRAWTO-22,13470 J:*JOY480 E:490 *BOTBOX500 U:*NMID510 U:*NTOP520 GR:PENBLUEAu}530 GR:GOTO39,-5;DRAWTO-22,13540 J:*JOY550 E:560 *NTOP570 GR:PEN ERASE;GOTO39,35;DRAWTO-22,13580 E:590 *NMID600 GR:PENAv} ERASE;GOTO39,15;DRAWTO-22,13610 E:620 *NBOT630 GR:PEN ERASE;GOTO39,-5;DRAWTO-22,13640 E:650 *CHOICE660 J(@B1363=0):*JOAw}Y670 GR:TURNTO-90680 GR:GOTO-50,-12;36(FILL2;TURN5)690 T:700 T:710 T(@B1363=1):THIS BALL IS RED720 T(@B1363=2):THIS BALAx}L IS YELLOW730 T(@B1363=3):THIS BALL IS BLUE740 PA:100750 GR:CLEAR760 T:}770 J:*YOUCOLOR780 E:GON 9740560 R:REMOVE LI@e5 T:10 T: PILOT PROGRAMS FOR ERACE20 T: BY30 T: RUTH ELLSWORTH40 T:* * * * * * * * * * Ez}* * * * * * * * *50 C:@B1373=260 C:$DIR=D:*.*70 C:#F=180 C:#R=090 READ:$DIR,$FILE130 *LOOP140 C: #C=2150 U: *FILELISTE{}160 T: \170 READ:$DIR,$FILE180 J(@B228=136):*DIRDONE190 C:#C=20200 U:*FILELIST210 T:220 C:#R=#R+1230 READ:$DIR,$FILEE|}240 J(@B228=136):*DIRDONE250 J(#R<20):*LOOP260 T:SCREEN ABOUT TO OVERFLOW-CONTINUE (Y/N)?\270 A:280 M:Y290 JN:*DIRDONE3E}}00 C:#R=0310 T:}320 A:=$FILE330 J:*LOOP370 *DIRDONE380 CLOSE:$DIR420 *SELECT430 T:440 T:SELECTION?\450 A: #N460 J(#E~}N<1):*SELECT470 U:*ITEMNAME480 A:$FILENAME=D:$$ITEM490 M:$500 JY:*SELECT510 T:}LOADING'$FILENAME'.520 LOAD:$FILENAME53E}0 E:570 *FILELIST580 C:$LEFT=590 A:=$FILE!600 *FLOOP610 MS:0!,1!,2!,3!,4!,5!,6!,7!,8!,9!620 AY:=$LEFT!630 JY:*FLOOP64E}0 POS:#C,#R+6650 T:$LEFT\660 C:#C=#C+13670 C:#N=#N+1680 POS:#C,#R+6690 T:(#N)\700 A:=$LEFT710 MS:,720 C:$FILENAME=$RE}IGHT.$LEFT730 U:*ITEMNAME740 C:$$ITEM=$FILENAME750 E:790 *ITEMNAME800 C:#X=100-#N810 C:$ITEM=Z#X820 E: * * * * * * * Dn10 R:COLOR THE FLOWERS20 R:JOYSTICK COLOR PROGRAM30 R:USE JOYSTICK TO DRAW A COLOR LINE40 R:THE COLOR DESIRED (YOU MAY CHAI}NGE50 R:YOUR MIND), THEN PRESS TRIGGER TO60 R:COLOR.70 R:by Ruth Ellsworth80 R:FOR ERACE90 R:3662 VINE MAPLE DRIVE100 RI}:EUGENE, OREGON 97405110 GR:CLEAR120 T:YOU COLOR THE FLOWERS130 U:*YOUCOLOR2140 *YOUCOLOR2150 J:*BOXES160 E:170 *BOXESI}180 GR:PEN YELLOW;TURNTO0190 GR:GOTO40,30;TURNTO0200 GR:4(DRAW10;TURN90);TURNTO0;FILL10210 GR:PEN RED220 GR:GOTO40,10;TUI}RNTO0230 GR:4(DRAW10;TURN90);TURNTO0;FILL10240 GR:PEN BLUE250 GR:GOTO40,-10;TURNTO0260 GR:4(DRAW10;TURN90);TURNTO0;FILL10I}270 GR:GOTO0,0;TURNTO0;PENYELLOW280 C:#C=0290 U:*FLOWER300 U:*STEM310 GR:GOTO-23,20;TURNTO0320 C:#C=0330 U:*FLOWER340I} U:*STEM2350 J:*JOY360 E:370 *FLOWER380 U:*PETAL390 C:#C=#C+1400 GR:TURN30410 J(#C<6):*FLOWER420 E:430 *PETAL440 U:I}*ARCR450 GR:TURN90460 U:*ARCR470 E:480 *ARCR490 GR:18(DRAW1;TURN5)500 E:510 *STEM520 GR:GOTO-32,-24;TURNTO0;PENYELLOWI};18(TURN5;DRAW2)530 E:540 *STEM2550 GR:GOTO-32,-23;TURNTO315;PENYELLOW;18(TURN5;DRAW2);PENERASE560 E:570 *JOY580 J(%T8=I}1):*SECHOICE590 J(%J0=1):*TOPBOX600 J(%J0=8):*MIDBOX610 J(%J0=2):*BOTBOX620 J:*JOY630 E:640 E:650 *MIDBOX660 U:*NBOTI}670 U:*NTOP680 GR:PENRED690 GR:GOTO39,15;DRAWTO12,13700 J:*JOY710 E:720 *TOPBOX730 U:*NMID740 U:*NBOT750 GR:PENYELLOWI}760 GR:GOTO39,35;DRAWTO-12,25770 J:*JOY780 E:790 *BOTBOX800 U:*NMID810 U:*NTOP820 GR:PENBLUE830 GR:GOTO39,-5;DRAWTO10I},3840 J:*JOY850 E:860 *NTOP870 GR:PENERASE;GOTO39,35;DRAWTO-12,25880 E:890 *NMID900 GR:PEN ERASE;GOTO39,15;DRAWTO12,13I}910 E:920 *NBOT930 GR:PENERASE;GOTO39,-5;DRAWTO10,3940 E:950 *FILL1960 GR:GOTO0,-1;TURNTO0970 GR:17(FILL1;TURN5)980 GI}R:GOTO0,0;TURN-90;DRAW2;TURN90;DRAW3;GOTO0,0990 GR:GOTO6,-5;TURNTO315;FILL5;TURNTO45;FILL31000 GR:GOTO0,01010 GR:GOTO5,-15I};TURNTO315;4(FILL2;TURN5);TURNTO0;FILL61020 GR:GOTO0,01030 GR:GOTO-10,-12;2(FILL3;TURN2);TURNTO45;FILL4;DRAW2;TURNTO901040I} GR:DRAW5;GOTO0,01050 GR:GOTO-9,-2;TURNTO315;FILL4;GOTO-13,1;FILL31060 GR:GOTO-13,4;TURNTO90;DRAW8;GOTO0,01070 GR:TURNTO31I}5;FILL71080 GR:GOTO-5,5;TURNTO0;FILL101090 E:1100 *FILL21110 GR:GOTO-23,19;TURNTO01120 GR:17(FILL1;TURN5)1130 GR:GOTO-2I}3,20;TURN-90;DRAW2;TURN90;DRAW3;GOTO-23,201140 GR:GOTO-17,15;TURNTO315;FILL5;TURNTO45;FILL31150 GR:GOTO-23,201160 GR:TURNTI}O90;GO5;TURNTO180;GO15;TURNTO315;4(FILL2;TURN5);TURNTO0;FILL61170 GR:GOTO-23,201180 GR:GOTO-33,8;2(FILL3;TURN2);TURNTO45;FII}LL4;DRAW2;TURNTO901190 GR:DRAW5;GOTO-23,201200 GR:GOTO-32,18;TURNTO315;FILL4;GOTO-36,21;FILL31210 GR:GOTO-36,24;TURNTO90;DI}RAW8;GOTO-23,201220 GR:TURNTO315;FILL71230 GR:GOTO-28,25;TURNTO0;FILL101240 E:1250 *SECHOICE1260 J(@B1363=0):*JOY1270 GI}R:GOTO0,0;TURNTO01280 U:*FILL11290 GR:GOTO-23,20;TURNTO01300 U:*FILL21310 T:1320 T:1330 T(@B1363=1):THESE FLOWERS ARE RI}ED1340 T(@B1363=2):THESE FLOWERS ARE YELLOW1350 T(@B1363=3):THESE FLOWERS ARE BLUE1360 GR:PENERASE;GOTO0,0;TURNTO01370 C:I}#C=01380 U:*FLOWER1390 GR:PENERASE;GOTO-23,20;TURNTO01400 C:#C=01410 U:*FLOWER1420 PA:1001430 GR:CLEAR1440 T:}1450 GRI}:PENYELLOW1460 J:*YOUCOLOR21470 E:COLOR PROGRAM30 R:USE JOYSTICK TO DRAW A COLOR LINE40 R:THE COLOR DESIRED (YOU MAY CHAH%10 R:JOYSTICK ETCH20 R:by Ruth Ellsworth30 R:ACE NEWSLETTER40 R:3662 VINE MAPLE DRIVE50 R:EUGENE, OREGON 9740560 C:#Y=0M}70 C:#X=080 *STICK90 J(%J0=1):*A100 J(%J0=9):*B110 J(%J0=8):*C120 J(%J0=10):*D130 J(%J0=6):*F140 J(%J0=2):*E150 J(%J0M}=4):*G160 J(%J0=5):*H170 J(%T8=1):*M180 J(%X<-79):*I190 J(%X>79):*J200 J(%Y<-31):*K210 J(%Y>47):*L220 GR:GOTO %X,%Y23M}0 J:*STICK240 E:250 *A260 C:#X=%X270 C:#Y=%Y+1280 GR:DRAWTO#X,#Y290 J:*STICK300 E:310 *B320 C:#Y=%Y+1330 C:#X=%X+1M}340 GR:DRAWTO#X,#Y350 J:*STICK360 E:370 *C380 C:#Y=%Y390 C:#X=%X+1400 GR:DRAWTO#X,#Y410 J:*STICK420 E:430 *D440 C:#M}Y=%Y-1450 C:#X=%X+1460 GR:DRAWTO#X,#Y470 J:*STICK480 E:490 *E500 C:#Y=%Y-1510 C:#X=%X520 GR:DRAWTO#X,#Y530 J:*STICKM}540 E:550 *F560 C:#Y=%Y-1570 C:#X=%X-1580 GR:DRAWTO#X,#Y590 J:*STICK600 E:610 *G620 C:#Y=%Y630 C:#X=%X-1640 GR:DRAWM}TO#X,#Y650 J:*STICK660 E:670 *H680 C:#Y=%Y+1690 C:#X=%X-1700 GR:DRAWTO#X,#Y710 J:*STICK720 E:730 *I740 C:#X=-79750M} GR:DRAWTO-79,#Y760 J:*STICK770 E:780 *J790 C:#X=79800 GR:DRAWTO79,#Y810 J:*STICK820 E:830 *K840 C:#Y=-31850 GR:DRAM}WTO#X,-31860 J:*STICK870 E:880 *L890 C:#Y=47900 GR:DRAWTO#X,47910 J:*STICK920 E:930 *M940 T:THE VALUE OF X AND Y950M} :ARE %X ,%Y960 PA:90970 J:*STICK980 E: R:ACE NEWSLETTER40 R:3662 VINE MAPLE DRIVE50 R:EUGENE, OREGON 9740560 C:#Y=0L,10 R:NOTE SOUNDS IN PILOT20 R:by Ruth Ellsworth30 R:JULY 1982 ACE NEWSLETTER40 R:3662 VINE MAPLE DRIVE50 R:EUGENE, OREGONQ} 9740560 GR:CLEAR70 C:@B712=128+0[PEN ERASE - BACKGROUND - DARK BLUE80 C:@B709=0+0 [PEN YELLOW - BLACK90 C:@B710=144+14 [Q}PEN BLUE - WHITE100 C:@B708=48+0 [PEN RED - DARK ORANGE RED110 U:*KEYBOARD120 U:*MUSIC130 *EBLKEY140 GR:2(TURNTO180;DRAWQ}14;TURNTO90;DRAW1;TURNTO0;DRAW14;TURNTO90;DRAW1)150 GR:TURNTO180;DRAW14160 E:170 *ELEFTSK180 GR:2(TURNTO180;DRAW25;TURN-9Q}0;DRAW1;TURNTO0;DRAW25;TURN90;DRAW1);TURNTO180;DRAW25190 GR:TURN-90;DRAW1;TURNTO0;DRAW10;TURN90;DRAW1;TURNTO180;DRAW10200 EQ}:210 *EFKEY220 GR:TURNTO0;DRAW25;2(TURN90;DRAW1;TURNTO180;DRAW25;TURN-90;DRAW1;TURNTO0;DRAW25)230 GR:TURN90;DRAW1;TURNTO18Q}0;DRAW25240 GR:TURNTO90;DRAW1;TURNTO0;DRAW10;TURN90;DRAW1;TURNTO180;DRAW10250 E:260 *EKBTWN270 GR:TURNTO180;DRAW25;TURN90Q};DRAW1;TURNTO0;DRAW10;TURN-90;DRAW1;TURNTO180;DRAW10;TURNTO90;DRAW3280 GR:TURNTO0;DRAW25;TURN90;DRAW1;TURNTO180;DRAW25;TURNTQ}O90;DRAW1;TURNTO0;DRAW10;TURN90;DRAW1;TURNTO180;DRAW10290 E:300 *ERSK310 GR:TURNTO180;DRAW25;TURN90;DRAW1;TURNTO0;DRAW10;TQ}URN-90;DRAW1;TURNTO180;DRAW10;TURNTO90;DRAW3320 GR:TURNTO0;DRAW25;TURN90;DRAW1;TURNTO180;DRAW25;TURN-90;DRAW1;TURNTO0;DRAW25Q};TURN90;DRAW1;TURNTO180;DRAW25330 E:340 *BLACKKEY350 GR:TURNTO90;DRAW4;TURN90;DRAW14;TURN90;DRAW4;TURN90;FILL14[BLACK KEYQ}360 E:370 *LEFTSK380 GR:TURNTO90;DRAW4;TURN90;DRAW15;TURNTO90;DRAW2;TURN90;DRAW10;TURN90;DRAW6;TURNTO0390 GR:FILL25 [WHITEQ} KEY LEFT STRAIGHT EDGE400 E:410 *RIGHTSK420 GR:TURNTO90;DRAW4;TURNTO180;DRAW25;TURN90430 GR:DRAW6;TURNTO0;FILL10;TURNTO9Q}0;DRAW2;TURNTO0;FILL15[WHITE KEY STRAIGHT WHITE EDGE440 E:450 *KEYBETWEEN460 GR:TURNTO90;DRAW2;TURN90;DRAW15;TURNTO90;DRAWQ}2;TURNTO180;DRAW10;TURN90470 GR:DRAW6;TURNTO0;FILL10;TURNTO90;DRAW2;TURNTO0;FILL15[WHITE KEY BETWEEN BLACKEYS480 E:490 *FIQ}RSTKEY500 GR:TURNTO90;DRAW5;TURN90;DRAW15;TURNTO90;DRAW2;TURN90;DRAW10;TURN90;DRAW7;TURNTO0510 GR:FILL25 [WHITE KEY LEFT STQ}RAIGHT EDGE520 E:530 *EKBTWN540 GR:TURNTO180;DRAW25;TURN90;DRAW1;TURNTO0;DRAW10;TURN-90;DRAW1;TURNTO180;DRAW10;TURNTO90;DRQ}AW3550 GR:TURNTO0;DRAW25;TURN90;DRAW1;TURNTO180;DRAW25;TURNTO90;DRAW1;TURNTO0;DRAW10;TURN90;DRAW1;TURNTO180;DRAW10560 E:57Q}0 *KEYBOARD580 GR:PENBLUE;GOTO-75,25 [KEY 1590 U:*FIRSTKEY600 GR:PENYELLOW;GOTO-69,25 [KEY 2610 U:*BLACKKEY620 GR:PENBLUQ}E;GOTO-64,25 [KEY 3630 U:*KEYBETWEEN640 GR:PENYELLOW;GOTO-61,25[KEY 4650 U:*BLACKKEY660 GR:PENBLUE;GOTO-56,25 [KEY 5670 Q}U:*RIGHTSK680 GR:PENBLUE;GOTO-50,25 [KEY 6690 U:*LEFTSK700 GR:PEN YELLOW;GOTO-45,25 [KEY 7710 U:*BLACKKEY720 GR:PENBLUE;Q}GOTO-40,25730 U:*KEYBETWEEN740 GR:PEN YELLOW;GOTO-37,25 [KEY 9750 U:*BLACKKEY760 GR:PEN BLUE;GOTO-32,25 [KEY 10770 U:*KEQ}YBETWEEN780 GR:PEN YELLOW;GOTO-29,25 [KEY11790 U:*BLACKKEY800 GR:PEN BLUE;GOTO-24,25 [KEY12810 U:*RIGHTSK820 GR:PEN BLUEQ};GOTO-18,25 [KEY13830 U:*LEFTSK840 GR:PEN YELLOW;GOTO-13,25 [KEY14850 U:*BLACKKEY860 GR:PEN BLUE;GOTO-8,25 [KEY15870 U:*Q}KEYBETWEEN880 GR:PEN YELLOW;GOTO-5,25 [KEY16890 U:*BLACKKEY900 GR:PEN BLUE;GOTO0,25 [KEY17910 U:*RIGHTSK920 GR:PENBLUE;GQ}OTO6,25 [KEY18930 U:*LEFTSK940 GR:PENYELLOW;GOTO11,25 [KEY19950 U:*BLACKKEY960 GR:PENBLUE;GOTO16,25 [KEY 20970 U:*KEYBETQ}WEEN980 GR:PENYELLOW;GOTO19,25 [KEY 21990 U:*BLACKKEY1000 GR:PENBLUE;GOTO24,25 [KEY221010 U:*KEYBETWEEN1020 GR:PEN YELLOQ}W;GOTO27,25 [KEY231030 U:*BLACKKEY1040 GR:PENBLUE;GOTO32,25 [KEY241050 U:*RIGHTSK1060 GR:PEN BLUE;GOTO38,25 [KEY251070 UQ}:*LEFTSK1080 GR:PEN YELLOW;GOTO43,25 [KEY261090 U:*BLACKKEY1100 GR:PEN BLUE;GOTO48,25 [KEY 271110 U:*KEYBETWEEN1120 GR:PQ}EN YELLOW;GOTO51,251130 U:*BLACKKEY1140 GR:PEN BLUE;GOTO56,25 [KEY291150 U:*RIGHTSK1160 GR:PEN BLUE;GOTO62,25 [KEY 30117Q}0 U:*LEFTSK1180 GR:PEN YELLOW;GOTO67,25 [KEY311190 U:*BLACKKEY1200 E:1210 *MUSIC1220 T:TYPE 1 TO9,AND THE LETTERED KEYSQ}1230 T:FOR NOTES LOW C TO HIGH F1240 T:TYPE M TO END PROGRAM1250 A:#S1260 MS:1,2,3,4,5,6,7,8,9,Q,W,E,R,T,Y,U,I,O,P,A,S,D,FQ},G,H,J,K,L,Z,X,C,M1270 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,*M12Q}80 *11290 GR:PENRED;GOTO-75,01300 U:*EFKEY1310 SO:11320 PA:321330 SO:01340 GR:PENBLUE;GOTO-75,01350 U:*EFKEY1360 J:*MQ}USIC1370 E:1380 *21390 GR:PENRED;GOTO-69,251400 U:*EBLKEY1410 SO:21420 PA:321430 SO:01440 GR:PENYELLOW;GOTO-69,25145Q}0 U:*EBLKEY1460 J:*MUSIC1470 E:1480 *3 [LOW D1490 GR:PENRED;GOTO-64,251500 U:*EKBTWN1510 SO:31520 PA:321530 SO:01540Q} GR:PENBLUE;GOTO-64,251550 U:*EKBTWN1560 J:*MUSIC1570 *4 [LOW D SHARP OR E FLAT1580 GR:PENRED;GOTO-61,251590 U:*EBLKEY1Q}600 SO:41610 PA:321620 SO:01630 GR:PENYELLOW;GOTO-61,251640 U:*EBLKEY1650 J:*MUSIC1660 E:1670 *5 [LOW E1680 GR:PENREDQ};GOTO-56,251690 U:*ERSK1700 SO:51710 PA:321720 SO:01730 GR:PENBLUE;GOTO-56,251740 U:*ERSK1750 J:*MUSIC1760 E:1770 *6Q} [LOW F1780 GR:PENRED;GOTO-50,251790 U:*ELEFTSK1800 SO:61810 PA:321820 SO:01830 GR:PENBLUE;GOTO-50,251840 U:*ELEFTSK1Q}850 J:*MUSIC1860 E:1870 *7 [LOW F SHARP OR G FLAT1880 GR:PENRED;GOTO-45,251890 U:*EBLKEY1900 SO:71910 PA:321920 SO:01Q}930 GR:PENYELLOW;GOTO-45,251940 U:*EBLKEY1950 J:*MUSIC1960 E:1970 *8 [LOW G1980 GR:PENRED;GOTO-40,251990 U:*EKBTWN2000Q} SO:82010 PA:322020 SO:02030 GR:PENBLUE;GOTO-40,252040 U:*EKBTWN2050 J:*MUSIC2060 *9 [LOW G SHARP OR A FLAT2070 GR:PENQ}RED;GOTO-37,252080 U:*EBLKEY2090 SO:92100 PA:322110 SO:02120 GR:PENYELLOW;GOTO-37,252130 U:*EBLKEY2140 J:*MUSIC2150 EQ}:2160 *Q [LOW A2170 GR:PENRED;GOTO-32,252180 U:*EKBTWN2190 SO:102200 PA:322210 SO:02220 GR:PENBLUE;GOTO-32,252230 U:*Q}EKBTWN2240 J:*MUSIC2250 E:2260 *W [LOW A SHARP OR B FLAT2270 GR:PENRED;GOTO-29,252280 U:*EBLKEY2290 SO:112300 PA:3223Q}10 SO:02320 GR:PENYELLOW;GOTO-29,252330 U:*EBLKEY2340 J:*MUSIC2350 E:2360 *E [LOW B2370 GR:PENRED;GOTO-24,252380 U:*ERQ}SK2390 SO:122400 PA:322410 SO:02420 GR:PENBLUE;GOTO-24,252430 U:*ERSK2440 J:*MUSIC2450 E:2460 *R [MIDDLE C2470 GR:PEQ}NRED;GOTO-18,252480 U:*ELEFTSK2490 SO:132500 PA:322510 SO:02520 GR:PENBLUE;GOTO-18,252530 U:*ELEFTSK2540 J:*MUSIC2550Q} E:2560 *T [C SHARP OR D FLAT2570 GR:PENRED;GOTO-13,252580 U:*EBLKEY2590 SO:142600 PA:322610 SO:02620 GR:PENYELLOW;GOTQ}O-13,252630 U:*EBLKEY2640 J:*MUSIC2650 E:2660 *Y [D2670 GR:PENRED;GOTO-8,252680 U:*EKBTWN2690 SO:152700 PA:322710 SOQ}:02720 GR:PENBLUE;GOTO-8,252730 U:*EKBTWN2740 J:*MUSIC2750 E:2760 *U [D SHARP OR E FLAT2770 GR:PENRED;GOTO-5,252780 U:Q}*EBLKEY2790 SO:162800 PA:322810 SO:02820 GR:PENYELLOW;GOTO-5,252830 U:*EBLKEY2840 J:*MUSIC2850 E:2860 *I [E2870 GR:PQ}ENRED;GOTO0,252880 U:*ERSK2890 SO:172900 PA:322910 SO:02920 GR:PENBLUE;GOTO0,252930 U:*ERSK2940 J:*MUSIC2950 E:2960 Q}*O [F2970 GR:PENRED;GOTO6,252980 U:*ELEFTSK2990 SO:183000 PA:323010 SO:03020 GR:PENBLUE;GOTO6,253030 U:*ELEFTSK3040 JQ}:*MUSIC3050 GR:PENERASE;GOTO11,253060 E:3070 *P [F SHARP OR G FLAT3080 GR:PENRED;GOTO11,253090 U:*EBLKEY3100 SO:193110Q} PA:323120 SO:03130 GR:PENYELLOW;GOTO11,253140 U:*EBLKEY3150 J:*MUSIC3160 E:3170 *A [G3180 GR:PENRED;GOTO16,253190 U:Q}*EKBTWN3200 SO:203210 PA:323220 SO:03230 GR:PENBLUE;GOTO16,253240 U:*EKBTWN3250 J:*MUSIC3260 E:3270 *S [G SHARP OR A Q}FLAT3280 GR:PENRED;GOTO19,253290 U:*EBLKEY3300 SO:213310 PA:323320 SO:03330 GR:PENYELLOW;GOTO19,253340 U:*EBLKEY3350 Q}J:*MUSIC3360 E:3370 *D [ A3380 GR:PENRED;GOTO24,253390 U:*EKBTWN3400 SO:223410 PA:323420 SO:03430 GR:PENBLUE;GOTO24,2Q}53440 U:*EKBTWN3450 J:*MUSIC3460 E:3470 *F [A SHARP OR B FLAT3480 GR:PENRED;GOTO27,253490 U:*EBLKEY3500 SO:233510 PA:Q}323520 SO:03530 GR:PENYELLOW;GOTO27,253540 U:*EBLKEY3550 J:*MUSIC3560 E:3570 *G [ B3580 GR:PENRED;GOTO32,253590 U:*ERQ}SK3600 SO:243610 PA:323620 SO:03630 GR:PENBLUE;GOTO32,253640 U:*ERSK3650 J:*MUSIC3660 E:3670 *H [HIGH C3680 GR:PENREQ}D;GOTO38,253690 U:*ELEFTSK3700 SO:253710 PA:323720 SO:03730 GR:PENBLUE;GOTO38,253740 U:*ELEFTSK3750 J:*MUSIC3760 E:3Q}770 *J [HIGH C SHARP OR D FLAT3780 GR:PENRED;GOTO43,253790 U:*EBLKEY3800 SO:263810 PA:323820 SO:03830 GR:PENYELLOW;GOTOQ}43,253840 U:*EBLKEY3850 J:*MUSIC3860 E:3870 *K [HIGH D3880 GR:PENRED;GOTO48,253890 U:*EKBTWN3900 SO:273910 PA:323920Q} SO:03930 GR:PENBLUE;GOTO48,253940 U:*EKBTWN3950 J:*MUSIC3960 E:3970 *L [HIGH D SHARP OR E FLAT3980 GR:PENRED;GOTO51,25Q}3990 U:*EBLKEY4000 SO:284010 PA:324020 SO:04030 GR:PENYELLOW;GOTO51,254040 U:*EBLKEY4050 J:*MUSIC4060 *Z [HIGH E4070Q} GR:PENRED;GOTO56,254080 U:*ERSK4090 SO:294100 PA:324110 SO:04120 GR:PENBLUE;GOTO56,254130 U:*ERSK4140 J:*MUSIC4150 EQ}:4160 *X [HIGH F4170 GR:PENRED;GOTO62,254180 U:*ELEFTSK4190 SO:304200 PA:324210 SO:04220 GR:PENBLUE;GOTO62,254230 U:*Q}ELEFTSK4240 J:*MUSIC4250 E:4260 *C [HIGH F SHARP4270 GR:PENRED;GOTO67,254280 U:*EBLKEY4290 SO:314300 PA:324310 SO:04Q}320 GR:PENYELLOW;GOTO67,254330 U:*EBLKEY4340 J:*MUSIC4350 *M [END PROGRAM OPTION4360 SO:04370 E:IVE50 R:EUGENE, OREGONPf10 R:THIS PROGRAM ADDS A LITTLE COLOR20 R:TO THE JOYSTICK ETCH30 R:by Ruth Ellsworth40 R:FOR ERACE50 R:3662 VINE MAPLE DRU}IVE60 R:EUGENE, OREGON 9740570 R:PRESS TRIGGER TO INITIATE COLOR80 R:HOLD IT DOWN WHILE TYPING 1,2,3, OR 490 R:AND RETURNU}.100 R: 1 EQUALS PEN RED110 R: 2 EQUALS PEN YELLOW120 R: 3 EQUALS PEN BLUE130 R: 4 EQUALS PEN ERASE140 R: THE CURSOR WILU}L INDICATE THAT150 R: THE PROGRAM IS READY TO ACCEPT160 R: YOUR CHOICE. TURN THE JOYSTICK170 R: TO THE DIRECTION YOU WISHU} THE180 R: COLOR TO FILL.190 R: THAT AS SOON AS YOU RELEASE THE200 R: TRIGGER BUTTON YOU WILL RETURN210 R: TO DRAW MODE.U}220 R: AN EASY WAY TO LOCATE THE PEN230 R: IS TO CHANGE COLOR.240 C:#Y=0250 C:#X=0260 *STICK270 J(%J0=1):*A280 J(%J0=9)U}:*B290 J(%J0=8):*C300 J(%J0=10):*D310 J(%J0=6):*F320 J(%J0=2):*E330 J(%J0=4):*G340 J(%J0=5):*H350 J(%T8=1):*M360 J(%XU}<-79):*I370 J(%X>79):*J380 J(%Y<-31):*K390 J(%Y>47):*L400 GR:GOTO %X,%Y410 J:*STICK420 E:430 *A440 C:#X=%X450 C:#Y=%U}Y+1460 GR:DRAWTO#X,#Y470 PA:10480 J:*STICK490 E:500 *B510 C:#Y=%Y+1520 C:#X=%X+1530 GR:DRAWTO#X,#Y540 PA:10550 J:*SU}TICK560 E:570 *C580 C:#Y=%Y590 C:#X=%X+1600 GR:DRAWTO#X,#Y610 PA:10620 J:*STICK630 E:640 *D650 C:#Y=%Y-1660 C:#X=%U}X+1670 GR:DRAWTO#X,#Y680 PA:10690 J:*STICK700 E:710 *E720 C:#Y=%Y-1730 C:#X=%X740 GR:DRAWTO#X,#Y750 PA:10760 J:*STIU}CK770 E:780 *F790 C:#Y=%Y-1800 C:#X=%X-1810 GR:DRAWTO#X,#Y820 PA:10830 J:*STICK840 E:850 *G860 C:#Y=%Y870 C:#X=%X-U}1880 GR:DRAWTO#X,#Y890 PA:10900 J:*STICK910 E:920 *H930 C:#Y=%Y+1940 C:#X=%X-1950 GR:DRAWTO#X,#Y960 PA:10970 J:*STIU}CK980 E:990 *I1000 C:#X=-791010 GR:DRAWTO-79,#Y1020 J(%T8=1):*STICK1030 J:*STICK1040 E:1050 *J1060 C:#X=791070 GR:DU}RAWTO79,#Y1080 PA:101090 J:*STICK1100 E:1110 *K1120 C:#Y=-311130 GR:DRAWTO#X,-311140 PA:101150 J:*STICK1160 E:1170 U}*L1180 C:#Y=471190 GR:DRAWTO#X,471200 PA:101210 J:*STICK1220 E:1230 *M1240 J(%T8=1):*FILL1250 J(%T8=0):*STICK1260 E:U}1270 *FILL1275 SO:131276 PA:201278 SO:01280 A:1290 M:1,2,3,41300 JM:*RED,*YELLOW,*BLUE,*ERASE1310 E:1320 *RED1330 GV}R:PENRED1340 J:*PAINT1370 E:1390 *YELLOW1400 GR:PENYELLOW1410 J:*PAINT1450 E:1460 *BLUE1470 GR:PENBLUE1480 J:*PAINTV}1520 E:1530 *ERASE1540 GR:PENERASE1550 J:*PAINT1590 E:1600 *PAINT1670 J(%J0=1):*COLORUP1680 J(%J0=9):*COLORRU1700 J(%V}J0=10):*COLORRD1710 J(%J0=6):*COLORLD1720 J(%J0=2):*COLORD1725 J(%J0=5):*COLORLU1730 J(%J0=4):*NOLEFT1735 J(%J0=8):*NOLEV}FT1745 J:*PAINT1746 E:1802 *COLORUP1805 GR:TURNTO01810 GR:FILL11811 J(%T8=0):*STICK1815 PA:201820 J(%T8=0):*STICK182V}1 J(%T8=1):*COLORUP1822 E:1900 *COLORD1905 GR:TURNTO01910 GR:FILL-11915 PA:201920 J(%T8=0):*STICK1930 J(%T8=1):*COLORDV}1940 E:2000 *COLORRU2010 GR:TURNTO452020 GR:FILL12025 PA:202030 J(%T8=0):*STICK2040 J(%T8=1):*COLORRU2050 E:3000 *COV}LORRD3010 GR:TURNTO3153020 GR:FILL-13025 PA:203030 J(%T8=0):*STICK3040 J(%T8=1):*COLORRD3050 E:4000 *NOLEFT4010 T:THIV}S DIRECTION DOESN'T FILL4020 T:CHOOSE YOUR COLOR AGAIN4030 PA:604040 J:*FILL4050 E:6900 *COLORLD6905 GR:TURNTO456910 GV}R:FILL-16915 PA:206920 J(%T8=0):*STICK6930 J(%T8=1):*COLORLD6940 E:7000 *COLORLU7010 GR:TURNTO3157020 GR:FILL17030 PAV }:207040 J(%T8=0):*STICK7050 J(%T8=1):*COLORLU7060 E:CK ETCH30 R:by Ruth Ellsworth40 R:FOR ERACE50 R:3662 VINE MAPLE DRT810 R:NIM FOR LITTLE FOLK20 R:by Ruth Ellsworth30 R:FOR ERACE40 R:3662 VINE MAPLE DRIVE50 R:EUGENE, OREGON 97405100 C:@B1Z }373=0110 C:@B1374=2120 WRITE:S,130 WRITE:S140 WRITE:S,150 WRITE:S, 160 PA:100170 GR:QUIT180 POS:2,5190 T:**Z }*INSTRUCTIONS***200 T:210 T:NIM IS A SUBTRACTION GAME. IN THIS VERSION THE PLAYER WHO TAKES THE LAST SNOWFLAKE WINS.220 TZ }:EACH PLAYER MAY SUBTRACT 1 OR 2 SNOWFLAKES EACH TURN.225 PA:600230 GR:CLEAR240 C:#C=0250 C:#T=0260 GR:GOTO-70,35270 *RZ}OW1280 GR:PENRED290 C:#C=#C+1300 U:*STAR310 GR:TURNTO90;GO20320 J(#C<8):*ROW1330 *SECROW340 GR:GOTO-70,15350 C:#C=03Z}60 *ROW2370 U:*STAR380 C:#C=#C+1390 GR:TURNTO90;GO20400 J(#C<8):*ROW2410 GR:GOTO-70,35420 J:*PLAYER1430 *STAR440 GR:8Z}(DRAW3;TURN180;GO3;TURN225)450 E:460 C:#T=0470 GR:GOTO-70,35480 *PLAYER1490 A:500 M:1,2510 JM:*ONE,*TWO520 TN:TRY AGAZ}IN530 J:*PLAYER1540 E:550 *ONE560 GR:PENERASE570 U(%X>70):*TIME2580 GR:PENERASE590 U:*STAR600 GR:PENRED;TURNTO90;GO20Z}610 C:#T=#T+1620 J(#T=16):*WIN630 J:*PLAYER2640 E:650 *TWO660 U(%X>70):*TIME2670 GR:PENERASE680 U:*STAR690 GR:PENREDZ};TURNTO90;GO20700 C:#T=#T+1710 J(#T=16):*WIN720 U(%X>70):*TIME2730 GR:PENERASE740 U:*STAR750 GR:PENRED;TURNTO90;GO2076Z}0 C:#T=#T+1770 J(#T=16):*WIN780 J:*PLAYER2790 E:800 *PLAYER2810 A:820 M:1,2830 JM:*SONE,*STWO840 TN:TRY AGAIN850 J:*Z}PLAYER2860 E:870 *SONE880 J(#X>70):*TIME2890 GR:PENERASE900 U:*STAR910 GR:PENRED;TURNTO90;GO20920 C:#T=#T+1930 J(#T=1Z}6):*WIN940 J:*PLAYER1950 E:960 *STWO970 U(#X>70):*TIME2980 GR:PENERASE990 U:*STAR1000 GR:PENRED;TURNTO90;GO201010 C:#Z}T=#T+11020 J(#T=16):*WIN1030 U(#X>70):*TIME21040 GR:PENERASE1050 U:*STAR1060 GR:PENRED;TURNTO90;GO201070 C:#T=#T+11080Z} J(#T=16):*WIN1090 J:*PLAYER11100 E:1110 *TIME21120 GR:GOTO-70,151125 U:*STAR1130 E:1140 *WIN1150 T:YOU WIN!1160 C:@Z}B712=48+71170 PA:101180 C:@B712=128+01190 PA:101200 C:@B712=30+01210 PA:101220 C:@B712=208+71230 PA:101240 C:@B712=80Z}+41250 PA:101260 C:@B712=0+01270 GR:QUIT1280 E::FOR ERACE40 R:3662 VINE MAPLE DRIVE50 R:EUGENE, OREGON 97405100 C:@B1X410 R:GUESS20 R:by The Ellsworth Kids30 R:FOR ERACE40 R:3662 VINE MAPLE DRIVE50 R:EUGENE, OREGON 9740560 R:THIS IS A LITT^}LE EXAMPLE OF THE70 R:KIND OF THING CHILDREN CAN DO80 R:BY THEMSELVES WITH A VERY LITTLE90 R:EXPERIENCE WITH PILOT.100 T:^}I'M THINKING OF A NUMBER BETWEEN 0 AND 100110 C:#X=?\101120 *MAIN130 T:YOUR GUESS?140 A:#Y150 M:#X160 JN:*WRONG170 T:Y^}OU WIN180 E:190 *WRONG200 J(#Y>#X):*HIGH210 J(#Y<#X):*LOW220 E:230 *HIGH240 T:TOO HIGH250 T:TRY AGAIN260 J:*MAIN270^} E:280 *LOW290 T:TOO LOW300 T:TRY AGAIN310 J:*MAIN320 E: VINE MAPLE DRIVE50 R:EUGENE, OREGON 9740560 R:THIS IS A LITT\>10 R:JOYSTICK COLOR MATCH20 R:A SIMPLE COLOR MATCH FOR YOUNG30 R:CHILDREN40 R:by Ruth Ellsworth50 R:FOR ERACE60 R:3662 Vb!}INE MAPLE DRIVE70 R:EUGENE, OREGON 9740580 GR:CLEAR81 C:@B708=70+082 C:@B709=30+083 C:@B710=164+084 C:@B712=0+090 *BEGb"}IN100 GR:PENRED110 U:*BOX1120 GR:PENYELLOW130 U:*BOX2140 GR:PENBLUE150 U:*BOX3160 GR:PENYELLOW170 U:*BOX4180 GR:PENBb#}LUE190 U:*BOX5200 GR:PENRED210 U:*BOX6220 J:*COLORED230 E:240 *COLORED250 T:MATCH THE RED BOX260 J:*JOYBOX1270 E:28b$}0 *JOYBOX1290 J(%T8=1):*CHOICE300 J(%J0=1):*TOPBOX310 J(%J0=8):*MIDBOX320 J(%J0=2):*BOTBOX330 J:*JOYBOX1340 E:350 GR:Cb%}LEAR360 *START370 GR:CLEAR380 *BOX1390 GR:GOTO-50,30;TURNTO0400 GR:DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURNb&}90;FILL10410 E:420 *BOX2430 GR:GOTO-50,10;TURNTO0440 GR:DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;FILL1045b'}0 E:460 *BOX3470 GR:GOTO-50,-10;TURNTO0480 GR:DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;FILL10490 E:500 *Bb(}OX4510 GR:GOTO40,30;TURNTO0520 GR:DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;FILL10530 E:540 *BOX5550 GR:GOb)}TO40,10;TURNTO0560 GR:DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;FILL10570 E:580 *BOX6590 GR:GOTO40,-10;TURNb*}TO0600 GR:DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;FILL10610 E:620 *BOTBOX630 GR:PENERASE640 GR:GOTO-39,3b+}5;DRAWTO39,15650 GR:GOTO-39,35;DRAWTO39,35660 GR:PENRED670 GR:GOTO-39,35;DRAWTO39,-5680 J:*JOYBOX1690 E:700 *MIDBOX710b,} GR:PENERASE720 GR:GOTO-39,35;DRAWTO39,-5730 GR:GOTO-39,35;DRAWTO39,35740 GR:PENRED750 GR:GOTO-39,35;DRAWTO39,15760 J:*Jb-}OYBOX1770 *TOPBOX780 GR:PENERASE790 GR:GOTO-39,35;DRAWTO39,-5800 GR:GOTO-39,35;DRAWTO39,15810 GR:PENRED820 GR:GOTO-39,3b.}5;DRAWTO39,35830 J:*JOYBOX1840 E:850 *CHOICE860 T:870 T:880 T(%Y=-5):RIGHT!890 J(%Y=15):*BLUE900 J(%Y=35):*YELLOW901b/} C:@B712=200+0910 PA:90915 C:@B712=0+0920 J:*COLORYELLOW930 E:940 *BLUE950 T:THIS BOX IS BLUE960 T:TRY AGAIN970 PA:90b0}980 J:*JOYBOX1990 E:1000 *YELLOW1010 T:THIS BOX IS YELLOW1020 T:TRY AGAIN1030 PA:901040 J:*JOYBOX11050 E:1060 *COLORb1}YELLOW1070 GR:PENERASE;GOTO-39,35;DRAWTO39,-51080 T:1090 T:1100 T:MATCH THE YELLOW BOX1110 J:*JOYBOX21120 E:1130 *JOYBb2}OX21140 J(%T8=1):*SEC1150 J(%J0=1):*TOP1160 J(%J0=8):*MID1170 J(%J0=2):*BOT1180 J:*JOYBOX21190 E:1200 GR:CLEAR1210 *Sb3}TART1220 GR:CLEAR1230 *SBOX11240 GR:GOTO-50,30;TURNTO01250 GR:DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;FILb4}L101260 E:1270 *SBOX21280 GR:GOTO-50,10;TURNTO01290 GR:DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;FILL10130b5}0 E:1310 *SBOX31320 GR:GOTO-50,-10;TURNTO01330 GR:DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;FILL101340 E:1b6}350 *SBOX41360 GR:GOTO40,30;TURNTO01370 GR:DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;FILL101380 *SBOX51390 b7}GR:GOTO40,10;TURNTO01400 GR:DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;FILL101410 E:1420 *SBOX61430 GR:GOTO4b8}0,-10;TURNTO01440 GR:DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;FILL101450 E:1460 *BOT1470 GR:PENERASE1480 b9}GR:GOTO-39,15;DRAWTO39,151490 GR:GOTO-39,15;DRAWTO39,351500 GR:PENYELLOW1510 GR:GOTO-39,15;DRAWTO39,-51520 J:*JOYBOX2153b:}0 E:1540 *MID1550 GR:PENERASE1560 GR:GOTO-39,15;DRAWTO39,-51570 GR:GOTO-39,15;DRAWTO39,351580 GR:PENYELLOW1590 GR:GOTO-b;}39,15;DRAWTO39,151600 J:*JOYBOX21610 *TOP1620 GR:PENERASE1630 GR:GOTO-39,15;DRAWTO39,-51640 GR:GOTO-39,15;DRAWTO39,1516b<}50 GR:PENYELLOW1660 GR:GOTO-39,15;DRAWTO39,351670 J:*JOYBOX21680 E:1690 *SEC1700 T:1710 T:1720 T(%Y=35):RIGHT!1730 J(b=}%Y=15):*BLUE21740 J(%Y=-5):*RED21741 C:@B712=200+01750 PA:901751 C:@B712=0+01760 J:*COLORBLUE1770 E:1780 *BLUE21790 Tb>}:THIS BOX IS BLUE1800 T:TRY AGAIN1810 PA:901820 J:*JOYBOX21830 E:1840 *RED21850 T:THIS BOX IS RED1860 T:TRY AGAIN1870b?} PA:901880 J:*JOYBOX21890 E:1900 *COLORBLUE1910 GR:PENERASE;GOTO-39,15;DRAWTO39,351920 T:1930 T:1940 T:MATCH THE BLUE b@}BOX1950 J:*JOYBOX31960 E:1970 *JOYBOX31980 J(%T8=1):*LAST1990 J(%J0=1):*UP2000 J(%J0=8):*BET2010 J(%J0=2):*DOWN2020 JbA}:*JOYBOX32030 E:2040 GR:CLEAR2050 *START2060 GR:CLEAR2070 *TBOX12080 GR:GOTO-50,30;TURNTO02090 GR:DRAW10;TURN90;DRAW10bB};TURN90;DRAW10;TURN90;DRAW10;TURN90;FILL102100 E:2110 *TBOX22120 GR:GOTO-50,10;TURNTO02130 GR:DRAW10;TURN90;DRAW10;TURN90bC};DRAW10;TURN90;DRAW10;TURN90;FILL102140 E:2150 *TBOX32160 GR:GOTO-50,-10;TURNTO02170 GR:DRAW10;TURN90;DRAW10;TURN90;DRAW1bD}0;TURN90;DRAW10;TURN90;FILL102180 E:2190 *TBOX42200 GR:GOTO40,30;TURNTO02210 GR:DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90bE};DRAW10;TURN90;FILL102220 E:2230 *TBOX52240 GR:GOTO40,10;TURNTO02250 GR:DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;DRAW10;bF}TURN90;FILL102260 E:2270 *TBOX62280 GR:GOTO40,-10;TURNTO02290 GR:DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;bG}FILL102300 E:2310 *DOWN2320 GR:PENERASE2330 GR:GOTO-39,-5;DRAWTO39,152340 GR:GOTO-39,-5;DRAWTO39,352350 GR:PENBLUE2360bH} GR:GOTO-39,-5;DRAWTO39,-52370 J:*JOYBOX32380 E:2390 *BET2400 GR:PENERASE2410 GR:GOTO-39,-5;DRAWTO39,-52420 GR:GOTO-39,bI}-5;DRAWTO39,352430 GR:PENBLUE2440 GR:GOTO-39,-5;DRAWTO39,152450 J:*JOYBOX32460 *UP2470 GR:PENERASE2480 GR:GOTO-39,-5;DRbJ}AWTO39,-52490 GR:GOTO-39,-5;DRAWTO39,152500 GR:PENBLUE2510 GR:GOTO-39,-5;DRAWTO39,352520 J:*JOYBOX32530 E:2540 *LAST25bK}50 T:2560 T:2570 T(%Y=15):RIGHT!2580 J(%Y=35):*YELLOW32590 J(%Y=-5):*RED32591 C:@B712=200+02592 PA:902593 C:@B712=0+0bL}2594 LOAD D:SECCOLORS2620 E:2630 *YELLOW32640 T:THIS BOX IS YELLOW2650 T:TRY AGAIN2660 PA:902670 J:*JOYBOX32680 E:268bM}1 *RED32682 T:THIS BOX IS RED2683 T:TRY AGAIN2684 PA:902685 J:*JOYBOX32686 E: Ruth Ellsworth50 R:FOR ERACE60 R:3662 V`S10 R:JOYSTICK COLOR MATCH20 R:CONTINUATION OF COLOR MATCH30 R:USING SECONDARY COLORS40 R:by Ruth Ellsworth50 R:FOR ERACEfO}60 R:3662 VINE MAPLE DRIVE70 R:EUGENE, OREGON 9740580 GR:CLEAR90 C:@B708=48+7100 C:@B709=100+0110 C:@B710=200+0120 *BEGfP}IN130 GR:PENRED140 U:*BOX1150 GR:PENYELLOW160 U:*BOX2170 GR:PENBLUE180 U:*BOX3190 GR:PENYELLOW200 U:*BOX4210 GR:PENBfQ}LUE220 U:*BOX5230 GR:PENRED240 U:*BOX6250 J:*COLORED260 E:270 *COLORED280 T:MATCH THE ORANGE BOX290 J:*JOYBOX1300 E:fR}310 *JOYBOX1320 J(%T8=1):*CHOICE330 J(%J0=1):*TOPBOX340 J(%J0=8):*MIDBOX350 J(%J0=2):*BOTBOX360 J:*JOYBOX1370 E:380 GfS}R:CLEAR390 *START400 GR:CLEAR410 *BOX1420 GR:GOTO-50,30;TURNTO0430 GR:DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;DRAW10;TfT}URN90;FILL10440 E:450 *BOX2460 GR:GOTO-50,10;TURNTO0470 GR:DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;FILL10fU}480 E:490 *BOX3500 GR:GOTO-50,-10;TURNTO0510 GR:DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;FILL10520 E:530fV} *BOX4540 GR:GOTO40,30;TURNTO0550 GR:DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;FILL10560 E:570 *BOX5580 GRfW}:GOTO40,10;TURNTO0590 GR:DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;FILL10600 E:610 *BOX6620 GR:GOTO40,-10;TfX}URNTO0630 GR:DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;FILL10640 E:650 *BOTBOX660 GR:PENERASE670 GR:GOTO-3fY}9,35;DRAWTO39,15680 GR:GOTO-39,35;DRAWTO39,35690 GR:PENRED700 GR:GOTO-39,35;DRAWTO39,-5710 J:*JOYBOX1720 E:730 *MIDBOXfZ}740 GR:PENERASE750 GR:GOTO-39,35;DRAWTO39,-5760 GR:GOTO-39,35;DRAWTO39,35770 GR:PENRED780 GR:GOTO-39,35;DRAWTO39,15790 Jf[}:*JOYBOX1800 *TOPBOX810 GR:PENERASE820 GR:GOTO-39,35;DRAWTO39,-5830 GR:GOTO-39,35;DRAWTO39,15840 GR:PENRED850 GR:GOTO-3f\}9,35;DRAWTO39,35860 J:*JOYBOX1870 E:880 *CHOICE890 T:900 T:910 T(%Y=-5):RIGHT!920 J(%Y=15):*GREEN1930 C:@B712=128+49f]}40 PA:90950 C:@B712=0+0960 J:*COLORYELLOW970 E:980 *PURPLE1990 T:THIS BOX IS PURPLE1000 T:TRY AGAIN1010 PA:901020 J:*f^}JOYBOX11030 E:1040 *GREEN11050 T:THIS BOX IS GREEN1060 T:TRY AGAIN1070 PA:901080 J:*JOYBOX11090 E:1100 *COLORYELLOW1f_}110 GR:PENERASE;GOTO-39,35;DRAWTO39,-51120 T:1130 T:1140 T:MATCH THE PURPLE BOX1150 J:*JOYBOX21160 E:1170 *JOYBOX21180f`} J(%T8=1):*SEC1190 J(%J0=1):*TOP1200 J(%J0=8):*MID1210 J(%J0=2):*BOT1220 J:*JOYBOX21230 E:1240 GR:CLEAR1250 *START126fa}0 GR:CLEAR1270 *SBOX11280 GR:GOTO-50,30;TURNTO01290 GR:DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;FILL101300fb} E:1310 *SBOX21320 GR:GOTO-50,10;TURNTO01330 GR:DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;FILL101340 E:135fc}0 *SBOX31360 GR:GOTO-50,-10;TURNTO01370 GR:DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;FILL101380 E:1390 *SBOfd}X41400 GR:GOTO40,30;TURNTO01410 GR:DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;FILL101420 *SBOX51430 GR:GOTO4fe}0,10;TURNTO01440 GR:DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;FILL101450 E:1460 *SBOX61470 GR:GOTO40,-10;TUff}RNTO01480 GR:DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;FILL101490 E:1500 *BOT1510 GR:PENERASE1520 GR:GOTO-fg}39,15;DRAWTO39,151530 GR:GOTO-39,15;DRAWTO39,351540 GR:PENYELLOW1550 GR:GOTO-39,15;DRAWTO39,-51560 J:*JOYBOX21570 E:158fh}0 *MID1590 GR:PENERASE1600 GR:GOTO-39,15;DRAWTO39,-51610 GR:GOTO-39,15;DRAWTO39,351620 GR:PENYELLOW1630 GR:GOTO-39,15;DRfi}AWTO39,151640 J:*JOYBOX21650 *TOP1660 GR:PENERASE1670 GR:GOTO-39,15;DRAWTO39,-51680 GR:GOTO-39,15;DRAWTO39,151690 GR:PEfj}NYELLOW1700 GR:GOTO-39,15;DRAWTO39,351710 J:*JOYBOX21720 E:1730 *SEC1740 T:1750 T:1760 T(%Y=35):RIGHT!1770 J(%Y=15):*fk}GREEN21780 J(%Y=-5):*ORANGE21790 C:@B712=128+41800 PA:901810 C:@B712=0+01820 J:*COLORBLUE1830 E:1840 *GREEN21850 T:THfl}IS COLOR IS GREEN1860 T:TRY AGAIN1870 PA:901880 J:*JOYBOX21890 E:1900 *ORANGE21910 T:THIS COLOR IS ORANGE1920 T:TRY AGfm}AIN1930 PA:901940 J:*JOYBOX21950 E:1960 *COLORBLUE1970 GR:PENERASE;GOTO-39,15;DRAWTO39,351980 T:1990 T:2000 T:MATCH Tfn}HE GREEN BOX2010 J:*JOYBOX32020 E:2030 *JOYBOX32040 J(%T8=1):*LAST2050 J(%J0=1):*UP2060 J(%J0=8):*BET2070 J(%J0=2):*DOfo}WN2080 J:*JOYBOX32090 E:2100 GR:CLEAR2110 *START2120 GR:CLEAR2130 *TBOX12140 GR:GOTO-50,30;TURNTO02150 GR:DRAW10;TURNfp}90;DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;FILL102160 E:2170 *TBOX22180 GR:GOTO-50,10;TURNTO02190 GR:DRAW10;TURN90;DRAWfq}10;TURN90;DRAW10;TURN90;DRAW10;TURN90;FILL102200 E:2210 *TBOX32220 GR:GOTO-50,-10;TURNTO02230 GR:DRAW10;TURN90;DRAW10;TURfr}N90;DRAW10;TURN90;DRAW10;TURN90;FILL102240 E:2250 *TBOX42260 GR:GOTO40,30;TURNTO02270 GR:DRAW10;TURN90;DRAW10;TURN90;DRAWfs}10;TURN90;DRAW10;TURN90;FILL102280 E:2290 *TBOX52300 GR:GOTO40,10;TURNTO02310 GR:DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN9ft}0;DRAW10;TURN90;FILL102320 E:2330 *TBOX62340 GR:GOTO40,-10;TURNTO02350 GR:DRAW10;TURN90;DRAW10;TURN90;DRAW10;TURN90;DRAW1fu}0;TURN90;FILL102360 E:2370 *DOWN2380 GR:PENERASE2390 GR:GOTO-39,-5;DRAWTO39,152400 GR:GOTO-39,-5;DRAWTO39,352410 GR:PENfv}BLUE2420 GR:GOTO-39,-5;DRAWTO39,-52430 J:*JOYBOX32440 E:2450 *BET2460 GR:PENERASE2470 GR:GOTO-39,-5;DRAWTO39,-52480 GRfw}:GOTO-39,-5;DRAWTO39,352490 GR:PENBLUE2500 GR:GOTO-39,-5;DRAWTO39,152510 J:*JOYBOX32520 *UP2530 GR:PENERASE2540 GR:GOTOfx}-39,-5;DRAWTO39,-52550 GR:GOTO-39,-5;DRAWTO39,152560 GR:PENBLUE2570 GR:GOTO-39,-5;DRAWTO39,352580 J:*JOYBOX32590 E:2600fy} *LAST2610 T:2620 T:2630 T(%Y=15):RIGHT!2640 J(%Y=35):*PURPLE2650 J(%Y=-5):*ORANGE2660 C:@B712=128+42670 PA:902680 LOfz}AD D:COLORM2690 E:2700 *PURPLE2710 T:THIS COLOR IS PURPLE2720 T:TRY AGAIN2730 PA:902740 J:*JOYBOX32750 E:2760 *ORANGEf{}2770 T:THIS COLOR IS ORANGE2780 T:TRY AGAIN2790 PA:902800 J:*JOYBOX32810 E:OLORS40 R:by Ruth Ellsworth50 R:FOR ERACEdQ10 T:20 T:30 T:40 T:50 T:60 T:This disk is dedicated with love70 T:to children everywhere.80 PA:10090 T:100 T:110 Tj}}: I would like to thank the120 T:ERACE group for their help in130 T:reviewing this disk. I am140 T:particularly indebj~}ted to Bob150 T:Browning for correcting and160 T:programming the menu which170 T:appears in the PILOT Teacher's180 T:Packj}age, and to Deloy Graham190 T:for his help with the documentation.200 T:The documentation which accompanies210 T:this diskj} is essentially his with220 T:only a few added comments.230 PA:400240 T:}250 T: For those who do not know,260 T:ERACj}E is the Educational Interest270 T:Group of Eugene Atari Computer280 T:Enthusiasts. The goals of our290 T:group are: 1.Toj} find out what is300 T:available in educational software310 T:2.To evaluate and catalog available320 T:software. 3.To desij}gn programs and330 T:develop ideas; to submit programs340 T:and fill existing gaps in need350 T:and documentation. 4.To trj}ain360 T:parents and children in the use of370 T:software programs and computer380 T:languages. It is hoped that this390j} T:disk is but the first of many400 T:disks made especially for children410 T:and available through our user group.420 E:h}PILOT DISK #1by Ruth EllsworthRUNNING THE PROGRAMS After inserting the Atari PILOT cartridge following instructn}ions included with the cartridge, put PILOT DISK #1 in the disk drive. Turn on the computer; in a moment a message will appen}ar stating that the computer is ready to run PILOT programs. Type LOAD D:MENU (Do not use quotation marks as in BASIC. Noten}: RUN D:program will not work in PILOT.) After the READY prompt appears, type RUN. You will have to type NEW - LOAD D:Mn}ENU - RUN to change programs using the menu. Following keyboard entries, you must press RETURN unless otherwise noted.n}PROGRAMS1. NEXTNO A drill in what number comes next. Each run randomly selects 10 numbers from 1 to 10.2. CHNEXn}TNO Same as NEXTNO except that the user has a choice of howmany numbers will be given in a single run.3. NOBEFORE A drill n}in what number comes before. Each run randomly selects 10 numbers from 1 to 10. You can change 11 in line 110 to a lan}rger number to increase the range of random numbers.4. CHNOBEF Same as NOBEFORE except that the user has a choice of how n} many numbers will be given in a single run.5. PLUSONE A drill in adding 1 to numbers ranging from 1 to 10. This progran}m reads keyboard entries;you do not need to press return. The run in continuous, so you must press BREAK - NEW - LOAD tn}o load a new program or BREAK - RUN to rerun the program6. MINUSONE Same as PLUSONE except that 1 is subtracted.7. An}DDITION An addition drill using randonly generated numbers from 1 to 10. This program keeps trace of the number of problen}ms attempted and the number answered correctly. To see the score, press S - RETURN. You will then be given the option}ns of ending, starting over, or continuing with the same score. During the run, the answers entered are not printed onn} the screen, only correct answers are given You are given two chances to give the correct answer after which it will ben} displayed momentarily for you to study.8. SUBTRACT Same as ADDITION.9. MULTIPLY Same as ADDITION. Numbers range from 1 tn}o 12.10. DIVISION Same as ADDITION. Numbers range from 1 to 20.11. TIMED This program allows you to select addition, subtn}raction, multiplication or division by pressing SELECT. Hold the key long enough for your choice to register. It n}then times you and keeps track of your score. No feedback or answers are displyed; work as fast as you can. Type S n}- RETURN to stop the drill and see your score and time. Type RUN to begin again.12. MATHCOUN Count and do math. Chon}ose addition or subtraction. Press BREAK to end the program.13. COLSONG This is an original song by Ruth Ellsworth. n} The screen changes color with each note. May be used with a color wheel.14. BALL Draws circles on the screen and then}n allows you to color the balls using a joystick. Positions are forward for the top color, to the right for the min}ddle color, and back for the bottom color. When you have chosen the color you want, press the joystick trigger and the n}ball will be colored. Loads OTHERCOL and YOUCOLOR as part of the program.17. FLOWRCOL Similar to BALL, except you coln}or flowers.18. ETCH Turns your screen into an etching pad. With the use of a joystick you can draw original designs. n} Pressing the trigger gives you the x,y coordinates of the cursor.19. SOUND This program draws a piano keyboard complen}te with sharps and flats. The notes available in PILOT are played when keys are typed.20. FILL Adds color to joystickn} etch. Press trigger to initiate color. Hold triggger while typing desired number then return. The cursor will inn}dicate that the program is ready to accept your choice. Press the joystick in the direction you wish to fill. REMEMBERn} that as soon as you you release the trigger button you will return to draw mode in the color selected.21. NIM Thn}is is a simple version of the well-known subtraction game for two players. Take turns pressing 1 - RETURN OR 2 - RETURn}N. The one who melts the last snowflake wins.22. GUESS I'm thinking of a number between 0 and 100. How many gn}uesses will it take you to discover my number? Written by the Ellsworth children, it illustrates the type of thing chiln}dren can do in PILOT with little experience.23. COLORM This is a joystick color match. There are three boxes on eachn} side of the screen. Can you match the colors? Press the joystick forward for the top box, right for the middle bn}ox, and back for th bottom box. The program automatically loads SECCOLOR, which adds three more colors, and then rn}eturns to the original program. Press BREAK to stop.24. SPELL Enter five spelling words. You are given as long as n}you need to study the words. When ready, press RETURN. When the word disappears and the cursor appears, spell tn}he word.ISK #1by Ruth EllsworthRUNNING THE PROGRAMS After inserting the Atari PILOT cartridge following instructl