' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( j Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(`  d ֠z# u` FX0279S PX,0X,159# ZXk d24:"PRESS ANY KEY TO RUN AGAIN, PRESS ESCAPE TO END PROGRAM";:Z$~ n(Z$)27ī20 x:::CS TO DEMONSTRATE SOME OF THE LIMITATIONS OF COLOR IN HIGH RESOLUTION GRAPHICS[:~22:"INPUT COLOR # (0-7) ";C(C223:"INPUT STEP SIZE ";S< VERTICAL LINES ARE DRAWN USING COLOR#C AND SPACED APART BY THE STEP SIZE - S UNITS   q/ TO GENERATE RANDOM INTEGERS FROM 0 TO 9;I115FX(1)Q(YX10\2Z(Y)c<ZjFIpPI  AREA OF A SQUARE :G"SIDE OF SQUARE","AREA OF SQUARE"MTSa<S,(S2)iF30P 4,7,10,13,16,19ZS IN LINE 60 dJ? n24:7:"PRESS ANY KEY TO CONTINUE";:Z$I x::O JP% TO DRAW CONCENTRIC RECTANGLES-:43C(J08010^2 A RECTANGLE IS DRAWN<0J,0J279J,0J279J,159J0J,159J0J,0JF A PAUSE IS PUT INPT1100:T Z J IS INCREASED BY 10 TO GIVE THE CORNERS OF THE NEXT RECTANGLE  K% TO INTRODUCE THE INT FUNCTION0X6.53;Y(X)D(X,YJ2X E( READING A VALUE FROM A DATA LIST/S6S>( 4D2S: I 4 TO DRAW 1 CONTINUOUS LINE USING HPLOT TO X,Y<:C3L(0,0X2I120< RANDOM NUMBERS ARE GENERATED FOR X AND YFX((1)280)PY((1)160)ZX,YdT1100:TnIx24:7:"PRESS ANY KEY TO CONTINUE";:Z$ :  d@ THIS PROGRAM GENERATES 10 RANDOM NUMBERS BETWEEN 0 AND 1LI110V(1)](Ic2I 8 THIS PROGRAM COUNTS TO 12 AND SQUARES THE NUMBER@:_"NUMBER","NUMBER SQUARED"emN1z#N1070(N,N22NN1<35FNINUE";:Z$ :: I& AN EXAMPLE OF SIMPLE ANIMATION.:;I1100B(3P2 A WHITEf<10,100100,100I{F A SLIGHT PAUSEPT150:TZ THE LINE IS ERASED BY REPLOTTING IT IN BLACKd0:10,100100,100InI x24:7:"PRESS ANY KEY TO CONT1N1 JI1N) B$(I)B$(J)2206 C$B$(I)F B$(I)B$(J)S B$(J)C$Z Ja I} PRINTS SORTED STRINGS : "LIST OF ALPHABETIZED WORDS"  I1N B$(I) "I ,N305 Z INPUTS THE WORDS ACCORDING TO N FROM LINE 40i d"PLEASE INPUT A WORD AFTER EACH QUESTION MARK"t nI1N xB$(I) I SORTS EACH STRING BY COMPARING IT TO THE NEXT STRING STRING SWITCH PLACES IF NECESSARY (LINES 190-210) I% ALPHABETIZES UP TO 20 STRINGS1B$(20)\"NUMBER OF WORDS TO BE INPUT,MAX 20";e(N:2 TESTS TO SEE IF NUMBER OF STRINGS EXCEED THE MAX NUMBER<N20100F"TWENTY WORDS IS THE MAXIMUM NUMBER OF WORDS THAT YOU CAN INPUT" P   8 THIS PROGRAM COUNTS TO 12 AND SQUARES THE NUMBER@:_"NUMBER","NUMBER SQUARED"emN1x(N,N22NN1<N1040FN/ LINE PATTERN USING HPLOT X1,Y1 TO X2,Y27:>3M(L11505\2250,1L,Ly< LINE 70 CAUSES A PAUSEFT1100:TPLZ24:7:"PRESS ANY KEY TO CONTINUE";:Z$d::nL  ALPHABETIZING TWO WORDS6"TYPE IN A WORD";>(A$[2"TYPE IN ANOTHER WORD";c<B$vFA$B$ĺA$,B$PA$B$ĺB$,A$ZA z' WHOLE NUMBERS AND THEIR SQUARES/:N"NUMBER","NUMBER SQUARED"VN1a(N,N2k2NN1s<40yF) TO DRAW A LINE BETWEEN TWO POINTS1:83I(0,0159,159v224:7:"PRESS ANY KEY TO CONTINUE";:Z$~<:Z h) USING THE MID$ SUBSTRING FUNCTION=A$"SUMMERTIME"EA$R((A$,7)a2(A$,4,3)g<A O A COUNTING DEVICE'"NUMBER"/X06(X@2XX1H<40NF8 TO PLOT TWO POINTS ON THE HIGH RESOLUTION SCREEN@:G3S(50,100_2200,50<24:7:"PRESS ANY KEY TO CONTINUE";FZ$P:ZZ * THIS PROGRAM DEALS WITH SUBSTRINGS=A$"COMPUTERS"LB$(A$,7)("THE LAST SEVEN CHARACTERS OF THE WORD ";A$;" ARE")10);B$2A  AREA OF A RECTANGLE#:N"PROGRAM TO FIND AREA OF A RECTANGLE"Tw"ENTER THE LENGTH AND WIDTH";(L,W2"THE AREA IS ";LW<25F + FULL SCREEN LOW RESOLUTION GRAPHICS3:;13I(16302,0U2Y047a<0,39YhFYyPT12000:TZ16301,0d:"PRESS ANY KEY TO CONTINUE";:Z$::Y & ADDING STRINGS (CONCATENATION)F"WHAT IS YOUR FIRST NAME";NF$m("WHAT IS YOUR LAST NAME";u2L$<C$"HELLO"FD$F$" "L$PZC$,D$dF  nJ1I xS(J) J1 D$;"CLOSE LPDATA"S "INFORMATION IS NOW ON FILE"Y IZ- ENTER VALUES INTO A FILE NAMED LPDATAQ DATA VALUE 4,7,10,13,16,19,22"TYPE LENGTH OF SIDE OF SQUARE OF 9999 TO HALT"(II12"SIDE = ";<S(I)FS(I)999940PD$"": CTRL-DZD$;"OPEN LPDATA"dD$;"WRITE LPDATA" "; dP2 n"ENTER INTEREST RATE AS A DECIMAL";9 xRU "ENTER TIME IN YEARS";\ Th IPRTp : "OKAY ";N$;" THE INTEREST IS ";I 8  GENERAL INTEREST PROGRAMG R THE RATE OF INTEREST (DECIMAL)] T TIME IN YEARSz( P PRINCIPAL IN DOLLARS2:<"WHAT IS YOUR NAME";FN$K:PN$;" THIS PROGRAM CALCULATES SIMPLE INTEREST" Z"ENTER PRINCIPAL IN DOLLARS  WITH ITS COLOR NUMBER BEING 2 MORE THAN IT WAS: X039F Y039S X,Y)2\ X,Yc Yj X 24:"PRESS ANY KEY TO CONTINUE";:Z$:: YG TO SCAN THE SCREEN AND ADD 2 TO THE COLOR NUMBERS AT EACH POINTO:n 20 RED STRIPES ARE DRAWNu(12Y0382<0,39YFYP 20 YELLOW STRIPES ARE DRAWNZ13dY1392n0,39YxY. EACH POINT IS REPLOTTED ' PROGRAM TO USE THE LEN FUNCTIONF"WHAT IS YOUR FULL NAME";N(N$2"YOUR NAME HAS ";(N$);" LETTERS & SPACES IN IT."<N Y  -HELLO FOLLOWED BY A NAME9"WHAT IS YOUR NAME"AN$R("HELLO ";N$X2I SS ANY KEY TO CONTINUE";:Z$::& Y2 0,39Y< A SLIGHT PAUSE AFTER EACH LINE IS DRAWNL I1100:IS YZ J A BLUE SQUARE IS DRAWN IN THE TOP LEFT CORNER 6 X019 0,20X A SLIGHT PAUSE AFTER EACH LINE IS DRAWN I1100:I X 24:"PRE'# TO DRAW A PICTURE OF A FLAG+:O THE SCREEN IS FILLED WITH REDV(1b2Y038n<0,39YF A SLIGHT PAUSE AFTER EACH LINE IS DRAWNPI1100:IZYd SIX WHITE STRIPES ARE DRAWNn15xJ1112AJ3 YAA    ZC% COMPARISON OF STRINGS -PART 2I"WHAT IS YOUR FAVORITE COLOR";Q(C$r2"WHAT COLOR ARE YOUR EYES";z<E$FC$E$ĺ"YOUR EYE COLOR IS YOUR FAVORITE COLOR ";C$;"."PC$E$ĺ"YOUR EYES ARE NOT THE SAME COLOR AS YOUR FAVORITE COLOR" D% PUTTING INFORMATION ON A FILE[D$"": THERE IS A CONTROL-D BETWEEN THE QUOTESoD$;"OPEN NUM1"(D$;"WRITE NUM1"24<7F10P13Z16d19n22x9999D$;"CLOSE NUM1""INFORMATION IS NOW ON FILE" & SIMPLE INTEREST AS TIME VARIESM R THE RATE OF INTEREST (DECIMAL)c T TIME IN YEARS( P PRINCIPAL IN DOLLARS2P1000<R.06F"TIME OF LOAN (IN YEARS)"KTPIPRTZ"INTEREST = ",Id " TO DRAW A RANDOM BAR GRAPH*:6I039D(Y(1)40Q2(1)16]<Y,39IdFIP24:"PRESS ANY KEY TO CONTINUE";:Z$::I  COMPARISON OF STRINGS<"ARE YOU A MAN OR WOMAN";D(A$U2A$"MAN"90i<A$"WOMAN"110F"PLEASE ANSWER THE QUESTION CORRECTLY."P30Z"WHAT A SHAME!!"d120n"YOU ARE VERY FORTUNATE!"xA  COMPUTE SIMPLE INTERESTF R THE RATE OF INTEREST (DECIMAL)\ T TIME IN YEARSy( P PRINCIPAL IN DOLLARS2P1000<R.06FT20PIPRTZ"INTEREST = ",Id , TO DISPLAY A SHAPE ON THE BACKGROUND4:;1G(Y039S20,39Yc<I1100:IjFYqP6~ZX1029d10,29XnI1100:IxX24:"PRESS ANY KEY TO CONTINUE";:Z$::Y ( MULTIPLE STRING INPUT AND OUTPUTH"WHAT IS YOUR FIRST NAME";PF$o("WHAT IS YOUR LAST NAME";w2L$<C$"HELLO"FKC$,F$,L$PF * -ASSIGNMENT OF NUMBERS TO VARIABLES2A7:B9D(CABO<A,B,CbFA;" ";B;" ";CqPAB,C,ABZ"A+B","C","A*B"d ) TO FILL THE SCREEN WITH ONE COLOR1:913E(Y039Q20,39Ya<I1100:IhFYP24:"PRESS ANY KEY TO CONTINUE";:Z$::ZYA$"HELLO"A$(A } "SALESPERSON","UNITS"8 " NUMBER","SOLD":C R1NK S0V C1Me SST(R,C)l Cu R,S| R 5,7 12,14,8,7,0,1,3,16,11,0,2,7,3,1,0,0,9 12,14,6,2,7,3,0,0,1,1,9,10,12,3,1,2,1,0 N- PROGRAM TO TABULATE SALES INFORMATION;T(10,20)DN,ML#:t(10);"HUGE POWER COMPUTER COMPANY"214);"MONTHLY SALES REPORT":7X0<R1NFC1MKXX5PT(R,C)ZT(R,C);_XdCn:sX0xR   ] -MATHEMATICAL HIERARCHY)3496(34)9C(3(49)V23423423\<P4 DRAW A VERTICAL LINE USING THE VLIN FUNCTION<:D15Q(3,1020224:"PRESS ANY KEY TO CONTINUE";:Z$::<ZY  -HELLO FOLLOWED BY A NAME9"WHAT IS YOUR NAME"AN$R("HELLO ";N$X2N MN NUMBER OR 0 TO STOP":! _:3 d"COLUMN = ";: nCE xC0ĀP R1N\ T(R,C)c Rk X0u ::~ 100 5,7 12,14,8,7,0,1,3,16,11,0,2,7,3,1,0,0,9 12,14,6,2,7,3,0,0,1,1,9,10,12,3,1,2,1,0 N3 PROGRAM TO DISPLAY A DESIRED ROW OF A TABLEAT(10,20)JN,MR:#"TABLE WITH ";N;" ROWS AND ";M;" COLUMNS":$X0(R1N2C1M7XX5<T(R,C)AT(R,C);BXFCKLX0PRU: Z"ENTER COLU  c  -NUMERIC PRINT STATEMENTS)43243;(43D243M<43\F"4+3",43bPz#???? Ƿ Ǹ ǹDZ DZ Ӡ DZ DZ Dz dz Ǵ ǵ Ƕ"ǶǷǸ ǹ DZ DZ DZ ¶ · DZ Dz dz Ǵ!ǵ ͵ Ͷ ± ² ³ ´ µ ǹ DZ DZ ͱ Ͳ ͳ ʹ Dz dz Ǵ ǵ Ƕ Ƿ Ǹ ŷ ± ² ³! ´" µ DZ  Ŵ ű Ų ų Ŵ ŵ Ŷ ԲԳԴ Ե! ű" Ų ų ввввввԱ ббб бббв з и й ббббϠ!б"вгде ж 100,100,150,100,150,100,150,150,150,150,100,150,100,150,100,100N :::CO! TO 'DOUBLE PLOT' A SQUARE):/V(21:"INPUT COLOR NUMBER(0-7) ";C]2Ch<I14uFA,B,C,DPA,BC,DZA1,B1C1,D1dIn24:"PRESS ANY KEY TO RUN AGAIN, PRESS ESC KEY TO END PROGRAM";:Z$x(Z$)27ī20B a/ TO GENERATE RANDOM INTEGERS FROM 0 TO 9;I115LX((1)10)S(XZ2I`<I  AREA OF A SQUARE :G"SIDE OF SQUARE","AREA OF SQUARE"MTSc(S999990p<S,(S2)xF30P 4,7,10,13,16,19R 9999ZS U "CREATED ON A 48K SYSTEM6"BY ANNE ANDERSONM"OCTOBER 25,1982"S( "CATALOG"g2  TO DRAW A SEMICIRCLE$:+75(H140>2K80G<R40RFHR,KaPXHRHR~ZY((R2(XH)2)0.5K)dX,YnXx24:7:"PRESS ANY KEY TO CONTINUE";:Z$::H ]) TO GENERATE INTEGERS FROM 5 TO 205I115HX((1)16)5O(XV2I\<I  AREA OF A SQUARE :G"SIDE OF SQUARE","AREA OF SQUARE"MUC1b(C6100i2Sv<S,(S2)FCC1K40P 4,7,10,13,16,19dCMORY Z232,0 d233,64. n DRAW SHAPE 14 x; 3B 1I 0X 1100,100 24:7:"PRESS ANY KEY TO CONTINUE";:Z$ :: D= TO DRAW A SHAPE THAT HAS BEEN STORED IN A SHAPE TABLEX CHR$(4) IS CONTROL-DdD$(4)( THE SHAPE TABLE IS LOADED FROM DISK INTO MEMORY28192<D$;"BLOAD SHAPES"F P TELL THE COMPUTER WHERE THE SHAPE TABLE IS LOCATED IN MEq USING RND(X) WHERE X<0*X(2)6"X= "XB(I110M2Y(1)Y<"Y= "Y`FIhP:pZ20X ),(S(J)2) J. "FILE IS ALL PROCESSED"4 D5; CALCULATE THE AREA OF A SQUARE USING DATA FROM FILERD$"": CONTROL-DfD$;"OPEN NUM1"z(D$;"READ NUM1"2I1100<S(I)FS(I)999990PIZD$;"CLOSE NUM1"d:n"SIDE","AREA OF SQUARE"xJ1I1 S(J   AREA OF A SQUARE :G"SIDE OF SQUARE","AREA OF SQUARE"MTN\C1i(CN100p2S}<S,(S2)FCC1K40L 6P 4,7,10,13,16,19dNCONTINUE";:Z$ :: D= TO DRAW A SHAPE FROM A SHAPE TABLE AND THEN REMOVE ITX CHR$(4) IS CONTROL-DdD$(4){(D$;"BLOAD SHAPES"2<232,0F233,64PZ3d1n0x2100,100I1300:I2100,100 24:7:"PRESS ANY KEY TO   q= TO START PRINTING TEXT ON THE 10TH LINE OF THE SCREENCK10j("UNIVERSITY OF WISCONSIN"p2X ( FIND POSITIVE NUMBERS IN A GROUP/S>S999970b(S0ĺS;" IS A POSITIVE NUMBER"j220< 7,-5,20,13,-11,-35,28,9999FS@vT??????????'$$$$$?')))))))-*-*-*?766666 $# !$???7666??$$,-566??????$$!!$$$$$$!!!11111666666116 N+ TO START PRINTING TEXT IN COLUMN 201920G("SAMPLE"M2 ; PRINTS OUT WHETHER A NUMBER IS POSITIVE OR NEGATIVEBSPS9999ijt(S0ĺS;" IS A POSITIVE NUMBER"2S0ĺS;" IS A NEGATIVE NUMBER"<20F 7,-5,20,13,-11,-35,28,9999PSI"WRITE LPGRADES" UI1& ZJ1I11 dN$(J); nA(J)E xB(J)O C(J)V Jo D$;"CLOSE LPGRADES" "SAM",87,80,93,"FRED",92,99,85 "JIMMY",81,90,77,"STOP",1,1,1 : "FILE HAS BEEN PROCESSED"  "WILLIAM",74,77,818 TO PRINT A MESSAGE NEAR THE CENTER OF THE SCREEN>E8L(9k2"UNIVERSITY OF WISCONSIN"s<14{F14P"RIVER FALLS"ZV OSITIVE NUMBERS"8 F"THERE ARE ";N;" NEGATIVE NUMBERS"Y P 7,-5,20,13,-11,-35,28,9999PZ: COUNTS THE NUMBER OF NEGATIVE AND POSITIVE NUMBERSc PRINTS OUT THE NUMBER OF EACH TYPE P=# POSITIVE NUMBERS N=# NEGATIVE NUMBERS P0N0SS999956(S0PP12S0NN17208: <"THERE ARE ";P;" P T X1193%(YX2,2X3<YFF"RIVER FALLS"MPXSZX "AVERAGE"  J1X3 A(A(J)B(J)C(J))3@ N$(J),AG JM f "FILE IS PROCESSED"l Dm#N$(200),A(200),B(200),C(200)[ FIND GRADE AVERAGES FOR STUDENTS ON FILE LPGRADESoD$"": CTRL-DD$;"OPEN LPGRADES"(D$;"READ LPGRADES"2X<I1XFN$(I),A(I),B(I),C(I)PIxD$;"CLOSE LPGRADES": "NAME",  8 THIS PROGRAM LISTS COUNTING NUMBERS FROM 1 TO 10P AND THEIR SQUARESX:w"NUMBER","NUMBER SQUARED"N110(N,(N2)2N<N[% TO INTRODUCE THE TAB FUNCTION+310E(20)"SAMPLE"T260)"RUN"Z<Y"WRITE LPGRADES" UI1& ZJ1I11 dN$(J); nA(J)E xB(J)O C(J)V Jo D$;"CLOSE LPGRADES" "SAM",87,80,93,"FRED",92,99,85 "WILLIAM",74,77,81 "JIMMY",81,90,77,"STOP",1,1,1 : "FILE HAS BEEN PROCESSED" #N$(100),A(100),B(100),C(100)U PROGRAM TO STORE NAMES AND GRADES ON A FILEbI1100|N$(I),A(I),B(I),C(I)(N$(I)"STOP"602I<D$"": CTRL-DFD$;"OPEN LPGRADES"GD$;"DELETE LPGRADES"HD$;"OPEN LPGRADES" SD$;   / THIS PROGRAM LISTS THE ODD NUMBERS FROMO 1 TO 10 AND THEIR SQUARESW:v"NUMBER","NUMBER SQUARED"N1102(N,(N2)2N<NY, USE OF A VARIABLE AS ARGUMENT OF TAB2>N124K(N);"X"R2NX<N a& PRINT OUT A RECTANGLE OF STARS1K17<J15F("*";M2JS<ZFK`PK]+ TO SPACE OVER USING THE SPC COMMAND1910V(10);"SAMPLE";5);"RUN"\2 LPGRADES"" D$;"WRITE LPGRADES") XC D$;"APPEND LPGRADES"\ D$;"WRITE LPGRADES"d N$k Ar By C D$;"CLOSE LPGRADES" 70 "FILE PROCESSED" D' ADD NEW GRADES TO FILE LPGRADES;D$"": CTRL-DSD$;"OPEN LPGRADES"k(D$;"READ LPGRADES"r2X<D$;"CLOSE LPGRADES"FP"ENTER NAME OR STOP"ZN$dN$"STOP"230n"ENTER 3 GRADES"xA,B,CXX1 D$;"OPEN   3 THIS PROGRAM LISTS THE NUMBERS FROM 1 TO 10U AND THEIR SQUARES AND CUBES]:{"NUMBER","SQUARE","CUBE"N110(N,2R23<(NR),FRPZNdNB$(3)"LITERAL NUMBER":B$(4)"LITERAL NUMBER"8z2050B$(1)"LITERAL NUMBER":B$(2)"LITERAL NUMBER":B$(3)"LITERAL NUMBER":B$(4)"LITERAL NUMBER"20904)"2. IF THE LETTER Y STANDS FOR 8, THEN Y IS CALLED A";2090_ ^H3)" IF THE LETTER X STANDS FOR 10, THEN X IS CALLED A";dR\B$(1)"LITERAL NUMBER":B$(2)"LITERAL NUMBER":B$(3)"LITERAL NUMBER":B$(4)"LITERAL NUMBER"f2010.pB$"LITERAL NUMBER":B$(2)"LITERAL NUMBER"::6M$"PRESS ANY KEY TO REVIEW AND CONTINUE"H (40(M$))2UM$;:K$[ d*440j4>3)"1. IN ALGEBRA, A LETTER USED TO STAND FOR A NUMBER IS CALLED A LITERAL NUMBER. TIMES. HAVE SOMEONE EXPLAIN THIS PROBLEM TO YOU."D::X830,930,1010,1050,1090,1200,1280,1370,1460,1570,1660,1760,1810,1840,1930" ?"::8)"THESE ANSWERS ARE WRONG:"10)"1. ";R$10)"2. "S$10)"3. ";T$900,990,1030,1070,1170,1260,1340,1430,1540,1630,1720,1780,1830,1900,1990vT$B$ĺ::15)"RIGHT!":23:D$"PRESS ANY KEY TO CONTINUE":(40(D$))2:D$;:K$:XX1:YY1::440T$B$6505:5)"YOU HAVE ANSWERED INCORRECTLY THREE NY KEY TO CONTINUE":(40(D$))2:D$;:K$:XX1:YY1::440E::D15)"TRY AGAIN":23:D$"PRESS ANY KEY TO CONTINUE":(40(D$))2:D$;:K$:N9XX830,930,1010,1050,1090,1200,1280,1370,1460,1570,1660,1760,1810,1840,1930b" ";T$IlYNTINUE":(40(D$))2:D$;:K$:'9wX830,930,1010,1050,1090,1200,1280,1370,1460,1570,1660,1760,1810,1840,1930" ";S$&Y880,970,1030,1070,1150,1220,1320,1410,1520,1610,1700,1780,1830,1880,1970=0S$B$ĺ::15)"RIGHT!":23:D$"PRESS A0 " ";R$]Y860,950,1030,1070,1130,1220,1300,1390,1500,1590,1680,1780,1830,1860,1950R$B$ĺ::15)"RIGHT!":23:D$"PRESS ANY KEY TO CONTINUE":(40(D$))2:D$;:K$:XX1:YY1::440: 15)"TRY AGAIN":23:D$"PRESS ANY KEY TO CO TEST."T::)^15)"HAVE FUN!"Eh::15)"GOOD LUCK!":crF$"HIT ANY KEY TO BEGIN"u|(40(F$))2}F$K$X1Y19X122130X830,930,1010,1050,1090,1200,1280,1370,1460,1570,1660,1760,1810,1840,193BE COUNTED AS A WRONG ANSWER."/ @ J5)"6. THERE ARE 11 PRACTICE QUESTIONS AND 4 TEST QUESTIONS. YOU WILL BE GIVEN A CHANCE TO REVIEW THE PRACTICE QUESTIONS AS MANY TIMES AS YOU WISH BEFORE YOU TAKE THE # 8)"HIT ANY KEY TO CONTINUE";+ K$1  "5)"4. WHEN YOU ARE SURE YOUR ANSWER IS CORRECT, HIT THE RETURN KEY." ,) 65)"5. YOU WILL HAVE THREE CHANCES TO FIND THE CORRECT ANSWER. REMEMBER ---A MISSPELLED WORD WILL HE ANSWER, TYPE IT IN. YOUR ANSWER WILL APPEAR WHERE YOU SEE THE ";::" ":d 5)"3. CHECK YOUR ANSWER. IF YOU WISH TO CHANGE IT,USE THE LEFT ARROW TO BACKSPACE AND TYPE IN YOUR NEW ANSWER."; ::W& TO DRAW 1 SIMPLE DIAGONAL LINE,415@(X039I2X,XP<XVFX  SUM OF THREE GRADES'G(1)903G(2)84?(G(3)92T2SG(1)G(2)G(3)\7:<"THE SUM OF THE GRADES IS ";SF"THE GRADES ARE ";G(1);" ";G(2);" ";G(3)PS - T = Z":Z$(4) = "Z = S - T"6&M$"LITERAL NUMBERS"F&N$"SYMBOL"U&O$"A+M=X"d&P$"S-T=Z"k&9&5)"YOU HAVE FINISHED THE STUDY QUESTIONS. DO YOU WANT TO:":&8)"1. TAKE THE TEST?"&8)"2. REVIEW THE QUESTIONS AGAIN?"G$"3.IN ALGEBRA, YOU WRITE 'A PLUS M EQUALS X' AS "%Y$"A+M=X": (1) = "A+M=X":Y$(2) = "M+A=X":Y$(3) = "X=M+A":Y$(4) = "X=A+M"%H$"4.IN ALGEBRA, YOU WRITE 'S MINUS T EQUALS Z'AS"&Z$"S-T=Z":Z":Z$(2) = "Z = S - T":Z$(3) = "SW$(2) = "LITERAL NUMBERS":W$(3) = "LITERAL NUMBERS":W$(4) = "LITERAL NUMBERS"$pF$"2. = + - IN ALGEBRA, EACH OF THE MARKS SHOWN ABOVE IS CALLED A"$zX$"SYMBOL"=%#B$(J)R$R$B$#J#*#J14># B$(J)S$S$B$E#JK# V#*J14j#4B$(J)T$T$B$q#>Jw#H}#R#\E$"1. IN ALGEBRA, LETTERS USED TO STAND FOR NUMBERS ARE CALLED"P$fW$"LITERAL NUMBERS": W$(1) = "LITERAL NUMBERS": EQUALS B' AS";"Q"B$(1)"A-6=B":B$(2)"A-6=B":B$(3)"B=A-6":B$(4)"B=A-6"["2010"B$(1)"A-6=B":B$(2)"A-6=B":B$(3)"B=A-6":B$(4)"B=A-6""2050"B$(1)"A-6=B":B$(2)"A-6=B":B$(3)"B=A-6":B$(4)"B=A-6""2090"""J14":B$(2)"N-P=R":B$(3)"R=N-P":B$(4)"N-P=R"5!@2010q!JB$(1)"N-P=R":B$(2)"N-P=R":B$(3)"R=N-P":B$(4)"R=N-P"{!T2050!^B$(1)"N-P=R":B$(2)"N-P=R":B$(3)"R=N-P":B$(4)"R=N-P"!h2090!r"|5)"11. IN ALGEBRA,YOU WRITE 'A MINUS SIX"A-B=C":B$(3)"C=A-B":B$(4)"C=A-B"- 2050i B$(1)"A-B=C":B$(2)"A-B=C":B$(3)"C=A-B":B$(4)"C=A-B"s 2090y  "5)"10. USING LITERAL NUMBERS AND SYMBOL S TO MEAN 'N MINUS P EQUALS R' YOU SHOULD WRITE"; ,+!6B$(1)"N-P=RUALS Z' YOU SHOULD WRITE 'X-Y=Z'"/5)" USING LITERAL NUMBERS AND SYMBOLS TO MEAN 'A MINUS B EQUALS C' YOU SHOULD WRITE ";B$(1)"A-B=C":B$(2)"A-B=C":B$(3)"C=A-B":B$(4)"C=A-B"2010# B$(1)"A-B=C":B$(2)$(4)"N=M+9"x2010RB$(1)"9+M=N":B$(2)"M+9=N":B$(3)"N=9+M":B$(4)"N=M+9"\2050B$(1)"9+M=N":B$(2)"M+9=N":B$(3)"N=9+M":B$(4)"N=M+9"2090B$(J)R$R$B$)5)"9. USING LITERAL NUMBERS AND SYMBOLS TO MEAN 'X MINUS Y EQW& TO DRAW 1 SIMPLE DIAGONAL LINE,415@(X039I2X,XP<XVFX PNEW" N$ A B" C) JB D$;"CLOSE LPGRADES"W "COPY COMPLETE"] D^* COPY FILE LPGRADES INTO FILE LPNEW>D$"": CTRL-DVD$;"OPEN LPGRADES"n(D$;"READ LPGRADES"u2X<D$;"OPEN LPNEW"FD$;"WRITE LPNEW"PXdJ1XiD$;"READ LPGRADES"nN$,A,B,CxD$;"APPEND LPNEW" D$;"WRITE L  " PRINT OUT A LIST OF GRADES-K167G(K)>(KF2S0Q<K16^FSSG(K)ePKmU:Z"THE SUM OF THE GRADES IS ";S_:d"NUMBER","GRADE":nK16xK,G(K)K 78,89,82,90,79,86K?": 4L DD$4N D$DD$#4R 3180/4\ "O.K."W4f 5)"HIT ANY KEY TO CONTINUE":K$:]4p c4z FTION YOU WISH TO CHANGE"<3 A1$:A1(A1$):A13A14ī3250K3 A133360Z3 A1434003 10)"YOUR ANSWER IS ";C$::"WHAT DO YOU WISH TO CHANGE IT TO"3* CC$34 C$CC$3> 31804H 10)"YOUR ANSWER IS ";D$::"WHAT DO YOU WISH TO CHANGE IT TO2h 9:30102l #2m 6:G$;"?"F2v 8)"YOUR ANSWER IS ";C$:::R2 H$;"?"q2 8)"YOUR ANSWER IS ";D$:2 8)"ANY CORRECTIONS? Y/N"2 2 Q$:(Q$"N")(Q$"Y")ī32202 Q$"N"34303 5)"PLEASE TYPE IN THE NUMBER OF THE QUES11A12ī30501 A113150,1 A123160x1N 10)"YOUR ANSWER IS ";A$::5)"WHAT DO YOU WISH TO CHANGE IT TO?"::1P AA$1R A$AA$:1T 6:30101X 10)"YOUR ANSWER IS ";B$::::5)"WHAT DO YOU WISH TO CHANGE IT TO?":1d BB$2f B$BB$: ANSWER IS ";A$:0 F$;" ?"A0 8)"YOUR ANSWER IS ";B$:::a0 8)"ANY CORRECTIONS? Y/N";g0 0 Q$:(Q$"N")(Q$"Y")ī30300 Q$"N"31800 5)"PLEASE TYPE IN THE NUMBER OF THE QUESTION YOU WISH TO CHANGE";1 A1$:A1(A1$):AAND REMEMBER--WATCH YOUR SPELLING!":=/| 370C/ J/ 9^/ 18)"O.K.":23d/ k/ 9/ 5)"NOW I WILL PRINT THE QUESTIONS AND YOUR ANSWERS. YOU CAN CHANGE ANY ANSWER IF YOU WISH."::::/ E$;" ?"0 8)"YOUR.h 9F.r 5)"DO YOU WANT TO REVIEW THE QUESTIONS AGAIN? (Y/N)";h.s "";J$:J$"Y"J$"N"ī2930y.t J$"N"29504/u :9:5)"REMEMBER-YOU HAVE THREE CHANCES TO ANSWER EACH QUESTION. - 10)"CORRECT ANSWER--";O$:0- 5);H$;" ?"L-" 10)"YOUR ANSWER--";D$m-, 10)"CORRECT ANSWER--";P$:-6 18:10)"HIT ANY KEY TO CONTINUE":K$::-@ 2890-J 9:X0ĺ"HORRORS!"-T X3ĺ"A SCORE OF ";X;" IS O.K. BETTER LUCK NEXT TIME"-^ [; TO PLOT A POINT ON THE SCREEN AT THE POSITION 10,10AI15T(10,10Z2  HOW A GOSUB WORKS, MAIN PROGRAMS"YOU ARE NOW IN THE MAIN PROGRAM"\(1002"YOU ARE NOW BACK IN THE MAIN PROGRAM"<999d GOSUB1n5);"YOU ARE NOW IN GOSUB1"x $ PRINT OUT A SPECIFIED NUMBER/X(12);K112E(X(K)L2Kt< -2,13,17,9,11,34,46,-87,12,21,0,3|A:F"WHICH NUMBER (1-12) WOULD YOU LIKE";PJZ"THE ";J;" TH NUMBER IS ";X(J)d65nK MOVING POINT:(Y0390(13:220,YJ<I1100:IQF0[P20,YbZYd24:"PRESS ANY KEY TO CONTINUE";:Z$::nYSUB1A( 10);"YOU ARE NOW IN GOSUB1A". 4 E5  HOW A NESTED GOSUB WORKS3 MAIN PROGRAMZ"YOU ARE NOW IN THE MAIN PROGRAM"b(702"YOU ARE BACK IN THE MAIN PROGRAM"<150F GOSUB1P5);"YOU ARE NOW IN GOSUB1"Z120d5);"YOU HAVE RETURNED TO GOSUB1"n x GO  D(I)S(I)A I :9 "STUDENT","SCORE","DIFF."F "NUMBERL W J1Nh J,S(J),D(J)o Jx 15 78,80,60,100,72,40,90,85,90,100,35,70,65,100,75 N4 FIND THE AVERAGE SCORE OF A LIST OF N SCORESl AND THE DIFFERENCE BETWEEN EACH SCORE AND AVERAGE}S(20),D(20)(N-I1N2S(I)7I<T0FK1NPTTS(K)ZKdATNn"THE AVERAGE SCORE IS ";AxI1N  2 TO PLOT 500 RANDOM POINTS IN RANDOM COLORS::GI1500W(((1)16)h2X((1)40)y<Y((1)40)FX,YPIZ24:"PRESS ANY KEY TO CONTINUE";:Z$::dI 4);C;15);C1C A< INPUT 3 DIFFERENT THINGS ONE AT A TIME AND CALCULATEC APA050d"ZERO DIVISOR"l(6024);A;15);A1A<BFB0100P"ZERO DIVISOR"Z110d4);B;15);B1BnCxC0150"ZERO DIVISOR"160 ! PRINT OUT A SET OF GRADES(N<K1N:G(K):KD(S0O2K1N\<SSG(K)cFKkK:P"THE SUM OF THE ";N;" GRADES IS ";SU:Z"NUMBER","GRADE":dK1N:K,G(K):K:n 6x 78,89,82,90,79,86N & TO PLOT A CHECKERBOARD PATTERN.:51C(Y0382Q2X0382Z<X,YaFXhPYvZY1392dX1392iX,YnXxY24:"PRESS ANY KEY TO CONTINUE";:Z$::Y!* HOW TO USE A SUBROUTINE REPEATEDLY1 A9XAB110I(BQ2XBZ<110aFCiPXCrZ110{d150i START OF SUBROUTINEnX0130s"ZERO DIVISOR"x4);X;15);X1XA!  2,1,-1,0 R% READ IN AND PRINT OUT A TABLE1T(3,4)<R13G(C14S2T(R,C)Z<CaFRiK:P"TABLE WITH 3 ROWS AND 4 COLUMNS":ZR13dC14iXX10nT(R,C);sXxCX0R 4,8,6,2 10,9,5,4! ! % "BASIC IS FUN AND EASY"$!9 TO DRAW A HORIZONTAL LINE USING THE HLIN FUNCTIONA:I15V(5,1120224:"PRESS ANY KEY TO CONTINUE";:Z$::<Z" X,Y(I1)2I90,140,903<II1@FI3200HP50[Z SUBROUTINE AfdJ1Xn"**** **** ****"xJ SUBROUTINE BJ1Y" **** ****"J 2,2X"NNUMBER OF THE ROW OR 0 TO STOP":) _:8 d"ROW = ";? nRJ xR0ĀU C1M_ XX5l T(R,C);s Xz C X0 :: 100 5,7 12,14,8,7,0,1,3,16,11,0,2,7,3,1,0,0,9 12,14,6,2,7,3,0,0,1,1,9,10,12,3,1,2,1,0 3 PROGRAM TO DISPLAY A DESIRED ROW OF A TABLEAT(10,20)JN,MR:#"TABLE WITH ";N;" ROWS AND ";M;" COLUMNS":$X0(R1N2C1M7XX5<T(R,C)AT(R,C);BXFCKLX0PRU:! Z"ENTER THE " " " d  -PRINT STATEMENT EXAMPLESA"B A S I C IS FUN AND EASY"G]("YOU'LL LIKE IT"c2N"