' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 7777777 7777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#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 < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`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- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`9F/TVARINDEX$>VI0:VN12$>(PA$,I1,1)"$"VN2>$>X0LVZ$>(PA$,I,VN)V$(X)VIX`$>t$>VI0IIVN:$>VI0LVMVİ40000:"ILLEGAL VARIABLE":ERR1:$>LVLV1$>V$(LV)(PA$,I,VN):IIVN$>VILV$>A0:11000$>22200%>25:(PA$,I,1))0(PA$,I,1)"0"15140:#B;SG1EX$"-"EX$H#L;EX(EX$)g#Q;EX$(SP$,1,14(EX$))EX$#S;EX999EX99İ40000:ERR1:"OVERFLOW":#V;#; STRING VALUE#;EX$(PA$,I,(PA$)I1)#;II2#;A2:11000#;B3:12000#; $>GE":16000":ERRı":AVI4*":110002":B3=":12000S":EX(I$(VI4))SGd":EX$I$(VI4){":SG1EX$"-"EX$";(V$(VI),1)"$"ı";15185"; VAL=CONSTANT";A2" ;11000"!;B3"";12000"$;EX$EX$(PA$,I,1)".;II1##8;(4070#!6S$(48ZX(ZX10)10)S$7!6ZX(ZX10)0.5B!614030T!6S$""S$"0"g!7X0S$"-"S$m! 7y!:GETVAL!:EX$""!:SG1!:(PA$,I,1)(34)15300!:(PA$,I,1)"-"SGSG1:II1:15015!:((PA$,I,1))0(PA$,I,1)"0"15130 (SP$,14) 2OCC 3H277 3C5H3:VV(C):13100A 3VC2U "3C9VC1:H25_ ,3H:Vi 03LL14 13C4C10LL12:I$(C)(I$(C),12) 63I$(C)(SP$,1,LL(I$(C))) @31:WT1 J322000 T3 6VALTOSTR 6ZX(X)0.5 6S$""!6ZX11/MP,Y :/;/12100'+d.TO (B)q.X1XS(B)~.Y1YS(B).7/X0MP12062/XX0MP/X,Y0//12070/XX0MP1"/X,Y0$/&/Y0Y112092(/YY0Y10IIX10 6$T$'PARSE&'Q01'PA$""C$'X3(I$(2))j)'(I$(2),X,1)(34)QQ1:Q2Q0y+'Q110040.'(I$(2),X,1)" "100508'PA$PA$(I$(2),X,1)B'L'*FROM (A)*19000+IV0CIV:13000:IV0+4 +X0,"1"#A2:11000!#B3:120000#CB:13000T#VDVI:XOE1:14000:3201:3230^#RIIIr#XFT(FI):14000#PA$"IF"V$(VD)">"S$#6000#IIRI$EX(I$(VI4))1$EXFT(FI)1FIFI1:9300"$X23101,$((I$(X),2))NJ(FI) FT(FI)EX& C3:1300030 NJ(FI)((I$(2),2))9: C(#NEXTK2#I5V<#16000hx#AVI4:11000w#B3:12000#X(I$(A)):14000#I$(B)S$:OEX#CB:13000#I$(3)I$(3)"+"#A2:11000#B3:12000#CB:13000#I$(3)I$(3))((PA$,I,2))IIX10v#,@FOR8JFIFI1@TI4Q^16000:VDVI\hERRıfrII1q|15000I$(3)EX$B3CB:13000CVD4I$(C)I$(B)AB:11000BC:1200013000II215000I$(3)EX$  OEEXCT1!dNOTEQUAL2nOEEXCT18xBLESSROEEXCT1Xe,GREATERu6OEEXCT1{@LESSEQUALOEEXCT1GREATEREQUALOEEXCT1XTHEN/GOTO]I5bX1024l((I$(X),2))(SP$,1,14(I$(3))5)"FALSE":6190Q'I$(3)I$(3)(SP$,1,14(I$(3))1)"F"[(6190)(I$(3))9I$(3)I$(3)(SP$,1,14(I$(3))4)"TRUE":6190*I$(3)I$(3)(SP$,1,14(I$(3))1)"T".A0:110100:C3:1300038EQUAL D$(CO))I$(3)I$(3)CD$(CO)'C3213000<OEEXG15000RERRı[ XEXf 14000y I$(3)I$(3)S$ C3:13000CT0CO6400,6600,6700,6800,6800,6900,6900,650019000$CT6185%IIII1&&(I$(3))8I$(3)I$(300:::::4%4CLEAR MESSAGEB424:1:(33)(32));:W4hDISPLAY MESSAGEa4mTMMN4r32,0:33,40:34,23:35,244|:24:(TM2)7(TM1)4TM0TM4Ĺ251,0:"^PRESS ";:251,1:"SPACE BAR";:251,04MS$(TM);:251,1 532,1:33,17:52003毰453003(3,CLEAR PROGRAM>36X1023:I$(X)""V3@X1:25:(SP$,14)\3Je3TBI1k3^3CLEAR VARIABLES3X37:I$(X2)""3X:25:(SP$,14)33LV03°3CLEAR REGS.3X1333:V(X):(SP$,14): 44006yX1BI12@y((I$(1),2))((I$(X9),2))IIX72Jyf2Oy((I$(1),2))((I$(BI8),2))II031100~2TyII0IIBI:BIBI12^y2|y400002y"LINE IGNORED"2y:2yERR1:2@HOME2J220002O23:2T2ȯCLEAN UP ALL2ү451003ܯ4EXECUTE NEXT STATEM"61[MS$(4)" PROGRAM NO STOPPING"<1]F1aEXITR1a25040X1ac1a25020n1a216,0y1a400001a"BREAK IN ";(I$(2),2)1a58010uEND1:uDO1:8:3:" "1Du1yGETII1"yII01'y((I$(1),2))031100 2153:XS(14)147:XS(15)147?0ZXS(16)147:XS(17)147:XS(18)1470ZXS(19)147:XS(20)147:XS(21)147:XS(22)147:XS(23)147:XS(24)147:XS(25)1470ZX0MP:X1MP0ZMS$(0)" "0[MS$(1)" TO CONTINUE"1[MS$(2)" TO YS(18)132[/ZYS(19)140:YS(20)148:YS(21)156:YS(22)164:YS(23)172:YS(24)180:YS(25)188h/ZXS(0)MP/ZXS(1)129:XS(2)R12:XS(3)R12/ZXS(4)129:XS(5)153:XS(6)153/ZXS(7)153:XS(8)153:XS(9)153/ZXS(10)153:XS(11)153:XS(12)1530ZXS(13) ".FZIN$""(.PZV(1)2:V(2)8:V(3)134.ZZV(4)17@._ZYS(0)0`.dZYS(1)12:YS(2)60:YS(3)100.nZYS(4)171:YS(5)20:YS(6)28.xZYS(7)36:YS(8)44:YS(9)52.ZYS(10)68:YS(11)76:YS(12)84.ZYS(13)92:YS(14)100:YS(15)108 /ZYS(16)116:YS(17)124:T"-YMP135:BI1!-YOC2:HM15/-ZNV5:MC8>- ZOP$"+-*/"L-ZNL8:MV5g-ZWL1:WW17:WT16:WB22-ZCD$(1)"=":CD$(2)"<":CD$(3)">"-(ZCD$(4)"=<":CD$(5)"<=":CD$(6)">="-2ZCD$(7)"=>":CD$(8)"<>".&FY&FD$"CLOSE GC.PROGFILE"g&FLF0:LD1s&GLFLF1&GI$(1)TI$(LF)&GLFFLKE0:KI0::1000&G&8JWAIT ROUTINE&BJDY0&LJK99İ49000&VJDZ2K&`J(16384)12819110'jJA$VI2%?:V$(VI):%?22000%% ?/%hBPSTC8%rBTKKA%|BK99L%B19000U%BKTK[%Bi%PFGETINPUTw%ZFKI18100%bF22200%dF2%nF2%F%FI$(1)IN$""%F22000:%FLD118180%FD$(4)%F40000%FD$"OPEN GC.PROGFILE,L256"&FLANGUAGE."::"^PLEASE REFER TO THE ^TEACHER'S"::"^MANUAL FOR INSTRUCTIONS." n16368,0:23:7:"^PRESS ^S^P^A^C^E ^B^A^R TO CONTINUE":16384,128:(16384)160110 x16368,0:(12):<ԽčĪԽčĪԽčĪԽčĪԽčĪԽčĪ010"6h DISPLAY MESSAGE ,6mTMMN76r22200D6|:24:1t6TM0TM4ĺ" PRESS ";::"SPACE";::" ";6MS$(TM);622000634,16:35,225D!5TBI1'5^@5 CLEAR VARIABLES V5X37:I$(X2)""l5X:25:(SP$,14)r5{5LV05°5 CLEAR REGS. 5X1353:V(X):(SP$,14):540000:::::55 CLEAR MESSAGE 6TM0:49x?@o@`B @}@?@_EyxA?oB}={C^o^k@|Bs @g"A~np{G~`{{aqsBw@x @NO8oJV[_{]n]v=@?@wAo@Ax?Co@ R?~0_~`>0@|}AD?x@@_A`C_@@_@~A{~O>_~}>{ 0@w{AA?@pD_0@G@~@~B_o~ A?O]{o}_ow[g_?^ Fox? F>ppA}@x @OP*_o7_}v[o*{mw{og[A?AX_{@@wF~_>?wv@yF{o~_ow[k_?] FoxG? DG|A}@x @Q_o7_}v[o{mw{ow[oH?X_s;wF|_>?gv@|F_x?@oA~ B?~ @}@?@_E}xA?oA}]A;?o@g@yB{ @s"@~nGun{~n{{n@w@wA?~Noxp67\_{]qcf? AwgBo@gA| @}Q>8_

{x{w;`@?@OE|xA?oE}@_}D}>{n?Cw}>A? A?~Dx@sA~LxXc@@w@n%Aw_Bo@p @qA?@x@g@O@|CO@@_@~A{~B>_}D}>;o?Cw~?A? @F?|@xA~L0W]v[k6wmo.{~B_o~ A?Oy>x`ow[m_?[ Fox? Cq?@A}@| @?Q>8`

n7@w;pT?8ok=?o{z^>?Wt?~FOx?@xD~~B?~LPO>zog>{k/{~B_o~ A?O|>{o7ow[n_?W Fox> A?|@} A?~S?xp~@|_>?7{Fox?@sD}|@qI>_o7o}v[o>{owA[o@?@oL~xA?oOoy]_{?o@g@OB{ @}"qHpnpqan`{q@`@w@qAqA`}@O? AwsBo@@OFox?@gD}x@GI>_o7w}v[o>{owAYo@?@gK~xA?o/wu>o{C^o_kA~Bs @}?@w@gB?|@{@_? AwxBoA?~A_J|pn6|Xg]_cn%Aw_Bo@p @gA?@x@w@o@~Co@@_@~A{~B>_}D}>[o?@7@?A? @gF?~@OB@{@_"qI~{nqan{`xqA~Bo@xA_J8onV;W[]_]n%Aw_Bo@x @A?@|@g@oA?~Co@ @|B>@AJ}{k/?{~B_o~ A?O~>{o7owoW?O Fox< A@@}@~D??|@_D}>{m?Cw{~D?| @CF?@C~`Q?@_O~zog>{K/{~B?p A?P?~>{o7_ow[oO?_ Bo8 A`@}@~B?p~ A? @~@gFox?@OD}xA~I>_o?{}v_o>{owAZcA?A|p{D@|~?~B1wv@wF?~xc?oIx p|ao?l@xBg @}?@s A? @_Nqwlw`\o<~` Fox? @a@@D}x @xP>_o?`}v_o>nw{o7[A?M8o{;?o{~_}~.wv@sF?x?@o@cBO @}?@{@Bo @_"nC~{v{nC{{wn@ Bg@x @sA_JX_nfWO{]_>n%AwOBoA?~@? @o@g@?Co@ @qB>_}@@E{?|c@o}F`|a?lA?~Bg @O"M~n~{z{fn{{ono>Bw@p @gA_JX_nvW_{]_~n%AwoBo@|@? @o@w@?Co@ @GB>_}D}>{m?Cw{}~D?x @xF??`@A?`Q@?W~v[k>w-w.{~A?@J> x`\o_@` FO0A?~@}@~B_o~Co@ @B>_}D}>{m?Cw{}>D?xA?~@AGC_@KX~nx1{~A?@GF_ @@|@~B_o~ A? @_O?|k{o;_ow[o_?>_ Fox? @ AA}@x @cP6_o?_}v_o6{mw{oW[A?AX_{@?wF~_>wv@{G?x?o@A~B_ @}@?`t ` ʚhih@ (0: Hh @H(hJ)?Pp݄PD & &JJոP`)Bw@p @ON_X_lfW_{_>f%AwoBo@q@? @o@w@?     25640120(CARD:SLOT:CARD0:SLOT0@951,CARD:952,SLOTsœCARD1Ĺ950,CARD:D$"BLOAD COMM CARD ROUTINE"y̜L(2)56:Z5(3)72:Z5(4)8?hZ7(1)56:Z7(2)24:Z7(3)72:Z7(4)72_rSLOT17:AD(SLOT192)256m|CARD14(AD5)Z5(CARD)(AD7)Z7(CARD)40110ZK02:Z2(ZK)0ZI02558:Z2(ZK)Z2(ZK)(ZWZI):: Z2(0)Z2(1)Z2(0)Z2(2)Z2(0)"FT3lu950,FT:D$"CLOSE"F$%vu5 COMM CARDTˆSP:SP10Ĺ802,92:818,82üD$"BLOAD COMM CARD ROUTINE"{ֈ@ SEARCH SLOTS FOR AN INTERFACE J CARDS: COMM=1,SERIAL=2,PAR=3,MALIBU=4TD$"CLOSE"F$:Z5(4),Z7(4),Z2(2)^Z5(1)24:Z5^P^U, ^MEMORY, AND ^OUTPUT ARE","DEMONSTRATED USING THE INCLUDED","PROGRAMS."r0u POKE PRINTER SPECS INTO MEMORY:uF$"PRINTER COMMANDS"DuD$"OPEN"F$:D$"READ"F$:FT$NuFT$"COM-CARD"FT1:35000XuFT$"DEFAULTS"FT2:40000buFT$"USER-SETE OF DATA:DISKETTE #,NAME LINE 1,NAME LINE 2,# OF PROGRAMSn214,"^THE ^THREE ^R'S OF ^MICROCOMPUTING","",1 "^G^L^A^S^S ^C^O^M^P^U^T^E^R","GC.ADV.BOOT"M " ^THE ^GLASS ^COMPUTER SHOWS HOW","PROGRAMS RUN INSIDE A COMPUTER. ^THE","^INPUT, ^CIVE":"^ST. ^PAUL, ^M^N 55113":"(612) 638-0638"H~32,0:900:CL$:` SPACE BAR ROUTINEu24:7:16368,0"^PRESS ^S^P^A^C^E ^B^A^R TO CONTINUE";Z01:ZC(16384):Z(ZC141)(ZC160):Z16368,0:1:868:23::: FIRST LIN520 ^BROADWAY ^DRIVE":8:"^ST. ^PAUL, ^M^N 55113":8:"(612) 638-0627"Ug900:CL$hCL$:4:"^IF YOU HAVE ANY PROBLEMS USING ^M^E^C^C"::"COURSEWARE WITH YOUR COMPUTER,"2i:"WRITE OR CALL:"::32,8::"^M^E^C^C ^HELP ^LINE":"2520 ^BROADWAY ^DR *CL$ 4SUPPORT BOOK INFOxH4:"^A MANUAL TO AID IN THE USE OF THIS"::"DISKETTE IS AVAILABLE FROM ^M^E^C^C."R9:" ^TITLE:"::8:DN$:D2$""Ė8:D2$\15:" ^DIRECT INQUIRIES TO:"Gf:8:"^M^E^C^C ^DISTRIBUTION ^CENTER":8:"2DESCRIPTIONS PCL$:21(DN$)2:DN$:10:"^PROGRAM ^DESCRIPTION"SP$I1N:(37)21DLİ900:CL$:21(DN$)2:DN$:10:"^PROGRAM ^DESCRIPTION"SP$ :MN$(I)" -"J1DL:DE$(I,J)""DE$(I,J)" "ĺ" "DE$(I,J) J:I:900:34,0ED.)"D900XEND OPTIONKCL$:11:7:"^INSERT THE NEW DISKETTE."T900xCS(P(P(999))1)16: SLOT #CS1CS7CS6CS: DELAY LOOP /W KEYBD CHECK16368,0J1100D:(16384)128J100DJ:16368,0 OR RUN MENU":D$"LOAD "CN$(A)DCL$:12:"^GETTING "MN$(A)"..."\PR(950)0İ30000pCNįRNH,CN$(A)RNH,MN$(A)&NOT ENOUGH MEMORY010:"^SORRY, THIS ^APPLE DOES NOT HAVE ENOUGH ":"MEMORY TO RUN THIS DISKETTE.":"(48K IS NEEDjDRAN1PRĺD$"RUN"X2$/lAN2PDİ600IrAN1PDİ750:MENU0S|MENU|SEED RANDOM # GENERATOR & CLEAR HGRX(P(78)) GET THE PROGRAMDP(A)510D$"PR#0":D$"IN#0":::"PROGRAM: "CN$(A)::"TYPE: RUN":7:"LIST":" (13)3201TCAA$(1)ĺD$"RUN TEACHER OPTIONS"^A((A$)):A1AN2PDB$(13)ĢVV2:6F35:"^PLEASE TYPE A NUMBER FROM 1 TO "N2PD:6F35:"AND PRESS THE RETURN KEY.";:IN0_VV:6F3514:" "hIN:PRAN1ĺD$"RUN"X1$",RESPOND TO USER'S CHOICE;6VVVV7PD:VV22VV22@IN11:VV:6F35:"^WHICH NUMBER? "(8)(8);:A$:(A$)49(A$)57230BA$;EB$:B$(8)320J(B$)47(B$)58N7ĺB$;:A$A$B$:B$:B$(8)A$(A$,1):B$;:325LB$6F35:"^OTHER OPTIONS:"WPRĢVV2:9(N9):X1$"SET PRINTER OPTIONS":N1". "X1$DRĢVV2PR:9(N9PR):X2$"SET DRIVE OPTIONS":N1PR". "X2$VV2PD:9(N9PD):N1PD". ^PROGRAM ^DESCRIPTION"SP$"VV3PD:9(N8PD):N2PD". ^END DISPLAY MENUB MENU11:CL$:1(D2$""):21(DN$)2:DN$[ 2:21(D2$)2:D2$ 5F5:6F35:"^PROGRAM"SP$":" VV7F5:HH9F38 I1N:VV:HH(I10):I". "MN$(I) VVVV1:F3IC2VV7F5:HH21 I:VVVV2F2F3F6VV:955,T:FL17 wFL1ĺD$"BSAVE DRIVE OPTIONS,A953,L6"l xC2((N1)2):F2C2(N1)2:ODD # OF MENU ITEMS PDPRDR:F3N7PD:TWO COLUMNS F5N142PD:F6N182PD:FULL SCREEN (LIMIT VARIES 16-20) (1023)DNİ700 K48(978)157İ550E$(I,J):J:I( nP(I)(I)(I1)2565 oDR120R pD$"BLOAD DRIVE OPTIONS"z qT(P(P(999))1)16:T(953)116 r(953)(956)Ĺ953,T:956,T:FL1 s953,T:FL1 tT(P(P(999))14):T(955)119 u(955)(958)Ĺ955,T:958,T:FL1 v0 716302,0:16299,0:16297,0:16304,0:700l 8230,64:RNH,"PRINT-48T":251,1:D$(13)(4):CL$(12)y :1023,DN <DN$,D2$,N:MN$(N),CN$(N),DE$(N,DL),DP(N) FSP$"":N1SP$"S" PI1N:DPćDP(I) UMN$(I) ZCNćCN$(I) dJ1DL:DM:DP=DEMO PROGRAMS? DL5:CN1:CA0:PR0:DR0:K481:IS0:DP0j (4)"NOMON CIO":(4)"BRUN YUTIL.OBJ"} (::255:0:1 2DN:(1023)DN56 3230,32:RNH,"MECC LOGO" 416304,0:16300,0:16297,0:16302,0:230,64:RNH,"CLIM LOGO":D5:700zVERSION 4.7 3 LAST UPDATE: 83/06/06 CC F(C) MECC 1983La INITIALIZATIONSl 16384  DL=LENGTH OF DESCRIPS:CN=DISTINCT CATALOG NAMES:CA=CTRL-A OPTION:PR=PRINTER OPTION:DR=DRIVES OPTION:K48=48K REQUIRED:IS=INSTRUCTIONAL PROGRA              $A!$@6FGq@A@@~Bx@`@FCK @ $B$ $C@$ E$D!$&F~Gq@SpGAqp0x?@`C7`@@@CB9FxGqAB@=B`@@A@@B@C)!$dF~Gq@@@APX1LGa`0 c<`@@@C D9FxGqAB@gB`??I@p1?B Ax@@Bq?G`GqKl`LMC0A@??J@Gq|@`@ ?,J~Gq_L`@l0`< FyB!$ D! %$B!$Cd  #A@BqH  O FGqFl`LMABp?B|?I@Gq|@`@ ?,J|GqOL`@ 08`pBaC T!`FC'AC@#G@GCGAcC@6FGq@A@@@`@`@@@@@@@@ P`GC$`' d'@  F$DJ|GAqG`@ x0@`@!D $aB@@6FGq@Ap@@`@`@@@@@@@@R`c $ @c#$``#d@  C$D!$@F~Gq@@@A@F0g`C38`?F|GqAB@CB`%@?'D@Gq@K@c(A@ A J $D"$ D"@@@FGq@L@ACpf`C38`F  CC M  2F~GqAA@Q?!J`GqyF@C38`@ HDF@ABG2F~GqAGQ?!JpGqyF@30`Bx HI@E3AxCqC@JAEGqElF=C@v@|Aq?H~GqA@@C3A~DAqBC@CHDGq?A @Bq?H|Gq A@?,JppL`@ `{A7xc`?$F~GqA@c\!D@cG# DCGECg@'@@GgC$DG A`J@cAc`a@B@FGq@B@AgMp1Fa`0 Oa<`p? ̎9p!>? ̎&pg^h_^`ȱ^Șe^^_iȑ^^_@A   - `@ @ `,X` {ݩ- <<`  'LlLԩ { R P>Q? ̎?P` & eL׭}~XLXLX ")>? ̎p F 8`L[8ghgmihmj8:l8LL{ 8ɀ  L8e湥 HH L` <=<ȥ?< <<= H <=I  " ^OR USE THE PROGRAM:"& 5 *NP8NP8H 4251,1:I1NP` >" "I1". "PN$(I)n RI:251,0t W \" ^OR" f p" "NP2". ^RETURN TO MAIN MENU" D$"READ GC.PROGFILE" NP( X1NP0 N$E $N$"*DEL*"1100O .YY1] 8PN$(Y)N$l BPN(Y)X15s LX VD$"CLOSE GC.PROGFILE" ` PRINT NAMES NPY 4:1 "^DO YOU WANT TO:"  " 1. ^ENTER YOUR OWN PROGRAM" ; ZFI$"12 %$2 1":MLI( dA(IN$)q iANP2ĺ(12)::11:8:"^RETURNING TO MAIN MENU...":D$"RUN HELLO" nA1ANP270 x767,PN(A1)::CL$:11:7:"^ONE MOMENT PLEASE..." D$"RUN GC.ADV" READ NAMES D$"OPEN GC.PROGFILE"  16384 PN(30),PN$(30),D$(4)AIN$"":CL$(12)bD$"BLOAD INTROARROW,A34304"m:CL$D$"BRUN INPUT"(1:12:"^THE ^GLASS ^COMPUTER"-12:"------------------"21000<2000F22:1 P"^WHICH PROGRAM NUMBER?"   z#???    îԠ". îŠî֠0îŠԠ ͠ϠàϠàϠ!  Ϡ ̮ʠԭԭԠנî֮ԠîĠ` L`deeX efgc"fcԢ LȑhhL2` L̠ҮŠŮҠɤȮΤĮ̠Ů̠ĮɥԠĮ UUUUUUUUUUUUUUUU UU P h '0 L ' `% "$`ijkl8`iiLȱȱȱLdF?0hԢ cۢL]fgfȑ BC I L]Fȩȩ멍 ` ei eX efgL zLB>H)h ɠFȄBLLB𱦧C B FFL=$<% " C0`݅ۅ߅,`߅_ h%<$=Ѕ  defgF ȄB@ ii>  CBCC` H)HJJh)JJLԒ)hLD D0 ELL`Ԣ ȱL.L]cF H?@DE >L L]i0 ȢL]81Hȱ81Hȥ 8$Ʌ<ȥ 8$(=ȱ8"(>ȱ8#>La?ȱ81@ȱ Dȱ Eȱ81ׅh<&    $$! $%%# GeNhh`d7 6  "(!#``"% e*&+'% e!&*'i' e0#0Υ#%% e*!0 e0`+i+`%J)+%j )* * (je$*`WITCH. z32,0:14:4:" ^THI0 #eWRT @UPHN2 ?hHh`0 i Hɍ[Ɉ  d LeɊ%%# Ge "Leɇ LeɌ**+*++8 $%OOHH eh%HJJJ'hH*&'*&'*&')&&OH**hQ**O+i+~<&"""" ,2""<"><$ " "&"""  0 $" "8****&""""""""""< `&< ("""""""""*6""""">>88   (""*:<"">""""""""""""">>>"2"""">""" """  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> > *""""">(((>>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""<   >>_Ld"6 >>">""""A~>I**<<>6>H$$H$H$AAIAI6>6"> *U*U*U*U"""6"">" >>::>>>     @-4.$/%66" 16384766,07 (4)"BRUN PRINT-48T"Z(4)"BLOAD INTROARROW,A$8600"s(4)"BRUN INPUT-48"|100251,1(4)"RUN GC.FRONTEND"N d(12):8:"^THE ^G^L^A^S^S ^C^O^M^P^U^T^E^R USES A SMALL"::"SUB-SET OF THE ^B^A^S^I^C e  D$(4)'D$"OPEN GC.PROGFILE"BD$"WRITE GC.PROGFILE"U("0":"0":"0"d2D$"CLOSE"13000 pIFzI3(150003ERRı<XEXG14000TI$(3)S$cC3:13000lCO0xX1NL(PA$,4,(CD$(X)))CD$(X)COXCO0İ40000:"UNKNOWN LOGICAL":ERR1:A211000B312000II(CI),1)"$"I$(1)(34)I$(1)(34):5014LI$(1)(SP$,1,14(I$(1)))I$(1)[A1:11010jB3:12000zI$(B)I$(A)CB:OC1:2:2:" "13000I616000ERRıA311000BVI412000I$(B)I$(A)CB11000"B4,12000$140000>6(V$(VI),1)"$"4180M@(I$(3));SJeT(I$(3))3ıY(I$(3),2,(I$(3))2);^INPUTI6:16000:ERRı(V$(VI),1)"$"FI$"12 -$1 1":5010FI$"12 &$4-91"18000'(V$(VMULTIPLY~XOEEX!14000'3DIVIDE]EX0İ40000:"DIVISION BY 0":ERR1:rX((I$(3))EX)|3740PRINTI6VD0:VI03060(V$(VI),1)"$"I$(B)I$(A):4090I$(B)(SP$,1,14(S$))S$A3 I$(VD4)(SP$,1,12(S$))S$& 5 C3:13000; A I A3T 11000_ BVD4j 12000w I$(3)"" C3:13000  CB:OCB:IVB 13000   PLUS XOEEX 14000 MINUSEXEX$3500 t00q I$(3)I$(3)(OP$,OP,1)-s C3:130008v 15000Hx XEX:14000[y I$(3)I$(3)S$jz C3:13000 OP3500,3600,3700,3800 X999X99İ40000:ERR1:"OVERFLOW": 19000 I$(3)I$(3)"="(SP$,1,13(I$(3))(S$))S$ A0:11010 EX$:I$(VD4)EX$:3215' XEX:14000E I(PA$)I$(3)EX$:3210R I$(3)S$\ OEEXd C3o& 13000x: OP0D X1(OP$)N (PA$,I,1)(OP$,X,1)OPXX b OP0İ40000:"UNKNOWN OPERAND":ERR1:l II1m A2:11000n B3:12000%(ERR)2100D*2:"ERROR IN LINE ";(I$(2),2);:DO1:17000J4[ SETVARIABLEc I1} (PA$,I,3)"LET"I4 16000 ERRı II1 VDVI 3060 3230 GET EXPRESSION 15000 ERRı (V$(VD),1)"$"I$(3)00!I$(B)I$(A)!&C2:13000,+2220020?ANALYZEJ10000SCM0_X1MC(PA$,(CM$(X)))CM$(X)CMXPA$""İ40000:"NO END ERROR":ERR1:2090 CMCM1ERR0 CM3000,6000,4000,5000,7000,7000,30000,8000,90IV0CIV:13000:IV0) AII9:CPL4 13000: B CAM 13000S \ PLCg 11000o B2z 12000 "I$(B)I$(A) ,CB 613000 @2000 CERRı TIIII1 ^(DO)1525 h TO CONTROL A1:11010B2:12013000 ERRKE0:KI0:ERR1/ 11010:1030: 40000Q "MEMORY OVERFLOW"_ "ERROR."i 1185v EXECUTE 45020 K99:MN1 II1:PLII9:FI0 DO0 K0K99İ17000:A0:11010:1529 A0:11000 C2:I$(2)"":13000 :(12)::11:10:"^ONE MOMENT PLEASE...":(4)"RUN GC.FRONTEND"T KIC1:13000_ 31000t ERRERR0:1030 IIHM1210 A1:11000 $B3:12000 8I$(B)I$(A) BCB:13000 VAB:11000 jBII9:12000 ~I$(B)I$(A) CB ALIZE *20000 421000& >220001 H230007 RB ENTERJ K0_ FI$"11 1#1 1" 37375,32:37379,(">")128 18000 (I$(1),3)"RUN"İ1800:2:2:" ": (I$(1),3)"NEW"İ1800:45000:11015:1000A (I$(1),4)"MENU"İ1800,YS(30),CM$(8),CD$(8),V(4),I$(30),TI$(15),FT(7),NJ(7)L REMMAIN PROCEDUREj KI1:KE(767):KE0KI0s 800 MN1:17000 1000 (ERR)560 &KE0:KI0:530 0A0:11010 :1500 DKE0:KI0:CPL:13000:11010:ERR0:530 INITI- COPYRIGHT (C) 1981 MECC*163840N TITLE : GLASS COMPUTERj AUTHOR : KENT CARLSON DATE : 08/19/81 VERSION: ADV 25602251,1232,0:233,134(1:3ZD$(13)(4):D$"BRUN INPUT-48"5 dXS(30)               פؽϱפ؍čĪčĪԍĪčĪԍčĪčĪԽčĪԽčĪԠӍԠ΍ԠӪ΍ԠčĪԠȍԠͤȽȯȽȯȽȯԠȍԠͤčĪԠӍԠ΍ԠӪ΍ԠčĪȽͤԢȽȯȽȯȽȯԠȍԠͤčĪԠӽԠνԠӪ΍ԠčĪԠčĪԍӍǠ̪̍Ǡ̠Ӡ̪̪̪̪̪̪̪̪̪̪̪̪̪̪Ī          UUUUUUUUUUUUUU UU P Oȱȱ8`ML`HJJh)JJL)hL~D D0 EL~L?F?1BC ؂ I rF L{L LҁB>H)hɠFȄBLҁL9Bѥ<%=eB$$ " CBFFLҁ=$<% " C0` UU8#>L?ȱ81@ȱ Dȱ Eȱ81ׅh<&݅ۅ߅,߅߅߅ h%<$=ЅFȄB@ ii>CBCC ؂H)L+ɀqr+Lɯd 8ɀ   Lޥ8e湥 HH L`qrLF r L81Hȱ81Hȥ 8$օ<ȥ 8$(ƅ=ȱ8"(>ȱ