' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 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*`(N$)N$(N$,1,(N$)1):9706@%N$(N$,I1)(N$,I1,(N$)I)S%I(N$)9701h%(N$)0N(N$)n%'X:Y:"abc":X:"def":X:"ghi":*IJI1D:IJI+ A%36:22:"abc";:I1200:I:9300:6%32:19:R%9609:36:19:"a$c";m%A$:V(A$):V272000}%V139611%36:19:"abc";:I1300:I:36:19:" ";:%I1:N0:(N$)0ı%(N$,I,I)"0"(N$,I,I)"9"II1:9706%I"T$232,0:233,67:16402:16384:^$1:16:" "_$" "`$%36:22:"a$c";:16368,0:A$:V(A$):V273000%V139600(#A$:V(A$)#V1391103#V8(N$)09101P#V8(N$)1N$"":9109p#V8N$(N$,(N$)1):9109#(N$)I9101#V48V579101#N$N$(V)#(V);:9101##X:Y:"abc":T1300:T:#X:Y:"a%c":T1300:T:7:(("A")1I);&7I:8:"#";=7I:10I:"#";ND300:11000UI_9600p54915:93007:4:"This is the end of the program."B I11000:IV 16405::(4);"RUN MENU"#N0:X:Y:N$"":"abc";:16368,0:I0I1h the 0 row to form">X"letters by combining these punches"_b"with punches in rows 1-9."il9610mI811:20:I:" ";:Iv21:8:"For example, here"21:"are the letters"21:"A through I:"I197I:90BI819:4:I:"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!";:I]I09:2:10I:I;:Iv2:8:"12":2:"11"?9610@I14:1:I:" ";:ID1:1:"Hollerith used the 12 and 11"N"rows along witumber ..."9^I18:9I:11I:"#";:9I:7:I1;:ICh9600r"To allow letters and special characters to be placed on the card, the top two rows were used. Hollerith called these the 12 and 11 rows."20,58279,58:20,585,715,190279,1$)9701%(N$)0N(N$)"%J&L(218)(219)256:E(222):216,0W&E620h&L90109020y&L90309040'X:Y:"abc":X:"def":X:"ghi": (22:16368,0:"a$c";:A$:V(A$):V2720;%V139600e%36:22:"abc";:I1200:I:9300:|%I1:N0:(N$)0ı%(N$,I,I)"0"(N$,I,I)"9"II1:9706%I(N$)N$(N$,1,(N$)1):9706%N$(N$,I1)(N$,I1,(N$)I)%I(N in accordance with the provisions"e#" detailed in the license between the customer and SRA."#18:1:"* Registered trademark of":" Science Research Associates, inc."$T110000:TS$T$232,0:233,67:16402:16384:^$+%36:,514,38:17,3817,51:30,3830,51)#9|#" The copyrighted computer programs and text material contained herein are"#" furnished under license from SRA. The rights to this material are owned or"##" controlled by SRA and may be used only T1300:T:+#9300:2:16:"Copyright"W#4:"Science Research Associates, 1981"w#11:"All rights reserved."#12:"Licensed material."#9:"Programs property of SRA."#2,61278,61#5:2:"S R A":4:8:"*""#4,3845,3845,514,0:I0I1#A$:V(A$)+#V139110A#V8(N$)09101^#V8(N$)1N$"":9109~#V8N$(N$,(N$)1):9109#(N$)I9101#V48V579101#N$N$(V)#(V);:9101##X:Y:"abc":T1300:T: #X:Y:"a%c":DK1:DK1DX2]@#10:10:"abc That program is on":10:"def diskette ";DX;". Please"B#10:"ghi insert the diskette you":10:" want and press 'RETURN'."D#9600F#16405::(4);"RUN ";N$P#120 #N0:X:Y:N$"":"a$c";:163682,41(11:22:"Diskette number ";DK;I10:4:"COMPUTER DISCOVERY"O`A$:(A$):j(#9300)#10:10:"abc Wait while the":10:"computer loads the":10:"program ..."1#99002#16405::(4);"RUN ";N$<#9900>#9300?#DXREC50TREC*I35T:28:I34:I;".";QJ110:((DB(I1)50J));:J:XI^{1:1:"RECORD ";CR;".";J110:((DB(CR1)50J));:J:I14:KI302,K200,K200,K202,K202,K3:2I3:I;" ";:T110:((DB(SUB ";6N3ĺ"MUL ";*6N4ĺ"DIV ";06 C%(L)7ĺ"BR<0 ";(f+C%(L)8ĺ"BR=0 ";?p+C%(L)9ĺ"BR>0 ";^z+C%(L)10ĺ"BR ";V%(1,L):z+V%(1,L);",";V%(2,L);:.D1:E0:L10D21:E10.D:6LE:"=>";:D/D1:E0:L10D21:E10N/D:6LE:" ";:6N1ĺ"ADD ";6N2ĺ"00:Z:#*D6:E0:L10D26:E10O+D:6LE:" ";:D:6LEr +C%(L)0ĺ" ";:+C%(L)1ĺVA(L);: +NC%(L)1:14000H+C%(L)6ĺ"PRINT ";V%(1,L):R+C%(L)511100T+V%(1,L);",";V%(2,L);",";V%(3,L);:\+$(N$,1,(N$)1):9706<%N$(N$,1,I1)(N$,I1,(N$)I)O%I(N$)9701d%(N$)0N(N$)j%'VS1:VF6:10010:'IVSVF:1:I:" ";:I'OYVSOYVFOX0:OY0'K(0):VS:1:$'Z16abc";:I1200:I:9300:Q%16368,0:36:19:"a$c";:A$:V(A$):V279000a%V139610%36:19:"abc";:I1300:I:36:19:" ";:%I1:N0:(N$)0ı%K(0):V$(N$,I,1):V$"."V$"-"(V$"0"V$"9")II1:9706%I(N$)N4:OX0:OY0:l^$1:16:" "_$" "`$%36:22:16368,0:"a$c";:A$:V(A$):V279000%K(0):V139600%36:22:"#(V);:9101#OII:-#OX0OY0ıC#OX:OY:" ";:d#X:Y:"abc":T1300:T:#X:Y:"a%c";:T1500:T:X:Y:T1OI3:" ";:T:#K(0):V97V122VV32#V32V90V0#A$(V): T$232,0:233,67:16402:1638/D:6LE:" ";X/ L092 *+C%(L)3ĺ"SUB ";:11092=4+C%(L)4ĺ"MUL ";:11092Z>+C%(L)5ĺ"DIV ";:11092yH+C%(L)6ĺ"PRINT ";V%(1,L)R+T+V%(1,L);",";V%(2,L);",";V%(3,L);:.D1:E0:L10D21:E10.D:6LE:"=>";.D/D1:E0:L10D21:E10N ";:IB'OYVSOYVFOX0:OY0V'K(0):VS:1:h$'Z1600:Z:*D6:E0:L10D26:E10+D:6LE:" ";:D:6LE +C%(L)0ĺ" ";+C%(L)1ĺVA(L); +C%(L)2ĺ"ADD ";:11(N$,1,I1)(N$,I1,(N$)I)0%I(N$)9701E%(N$)0N(N$)K%s&L(218)(219)256:E(222):216,0&E620&16405::(4);"RUN MENU"'X:Y:"abc":X:"def":X:"ghi":'VS1:VF6:10010:%'IVSVF:1:I:" 16368,0:36:19:"a$c";:A$:V(A$):V279000B%V139610v%36:19:"abc";:I1300:I:36:19:" ";:%I1:N0:(N$)0ı%K(0):V$(N$,I,1):V$"."V$"-"(V$"0"V$"9")II1:9706%I(N$)N$(N$,1,(N$)1):9706%N$1)1ĺ"-";)^+T(CX1,CY1)0ĺ"+";4f+11005?p+11005j+CXXCYYĖ5(CX2):4(CY2):":";p+|.I718.C:I:"-";.I.2P10135002C:P9:"+";24C:4(12P):"+";4 X2):4(CY2)*+T(CX1,CY1)1ĺ":";D+T(CX1,CY1)0ĺ" ";\ +A$"L"N8CXCX1u+A$"R"N21CXCX1 +A$"U"CYCY1*+A$"D"CYCY14+CX0CX0>+CX7CX7H+CY0CY0R+CY7CY7\+5(CX2):4(CY2) ]+T(CX1,CY)13LNANX4:YLN:9120:4:LN:" ";:U2(A$)13LNANX4:YLN:9130:13005`213005 AI(N$)N$(N$,1,(N$)1):9756F&N$(N$,1,I1)(N$,I1,(N$)I)Y&I(N$)9751h&(N$)0ı&(N$,1,1)" "I1:9754&(N$,(N$),1)" "N$(N$,1,(N$)1) &'X:Y:"abc":X:"def":X:"ghi": I1:97060%I(N$)N$(N$,1,(N$)1):9706U%N$(N$,1,I1)(N$,I1,(N$)I)h%I(N$)9701}%(N$)0N(N$)%&I1:N0:(N$)0ı&K(0):V$(N$,I,1):V$" "II1:9756&(N$)I1W$(N$,I1,1):W$" "II1:9756!& ";:T:1:VSBs$OYVSOYVFOX0:OY0Ht$%36:22:16368,0:"ajc";:A$:V(A$):V27ġ:120%K(0):V139600%36:19:"abc";:I1200:I:9300:%I1:N0:(N$)0ı %K(0):V$(N$,I,1):V$"0"V$"9"I#OX0OY0ı(#OX:OY:" ";:G#X:Y:"abc":T1300:T:#X:Y:"akc";:T1500:T:X:Y:T1OI3:" ";:T:T$232,0:233,67:16402:16384:OX0:OY0:^$VS1:VF2:9330:h$VS18:VF19:9330:%r$TVSVF:1:T:" 0I1*#K(0):A$:V(A$):V27ġ:1209#V139110O#V8(N$)09101s#V8(N$)1N$"":(V);:9101#V8N$(N$,(N$)1):(V);:9101#(N$)I9101#V97V122VV32#V90V329101#N$N$(V):(V);:9101#OII: ERROR"#GER9ĺ"DISKETTE FULL.">HER10ĺ"FILE LOCKED."qIER13ĺ"FILE TYPE MISMATCH. NOT BINARY FILE."JER11ĺ"FILE NAME MUST START WITH A LETTER.""(ERROR NUMBER ";ER;")"#N0:9111:X:Y:N$"":OXX:OYY:"ajc";:16368,0:IEN PRESS 'RETURN'."1I1:X35:Y3:9100:DD1:xL9300:10:" INSERT COMPUTER DISCOVERY DISKETTE NUMBER ONE."M1100N198@1:15BER(222)DER4ĺ"DISKETTE IS WRITE-PROTECTED."EER6ĺ"FILE DOESN'T EXIST."FER8ĺ"I/OCR1)50TI10));:TI"F2,45278,45278,1702,1702,45g10:4:"COMPUTER DISCOVERY"12:5:"DATABASE SYSTEM"DD0ıVS1:VF3:9330:"REMOVE THE COMPUTER DISCOVERY DISKETTE, INSERT AN INITIALIZED DATA DISKETTE, THٮԧԠҍ٠ԍŠζРƠōŠōζ٠٠ԠҠԍ٠ōؠōˠŠԠ٢ӍŠŠٰӠЍδР̭ŠεѠٰӠЍεˠϠ΍ÍҠԍԠŠҍРðɠζƠĩŠαРٰαРĠԭ͍Šβ٠͍βРĠҍŠγ٠٠͠ҠүҍγР̭ŠδѠàҠҍàҠҍҠԍÍٰؠō٠ōÍΰҠı ĠҍӠԠԍРà̭̠ҠΠ΍ύ؍ύРɠٰٰ̠Šٍ̠̠àٍ٠ΠŠŠ΍РΠΠӠ΍٠٠ΠˍΠҠ΍Ҡ̍ӍΠΠ٠ōؠōÍ͠ŠŢԠ٠ӍִРŠŠɭӍР٠àƠҍРԠɭӠҠԍϠРԠҠԍɠРΠҠԍԠ̠ҍРΠΠíԠҍȠ̠ΠҍȠıƍIJؠŰɭӠ؍àűɭӠҠύ٠ŲɭӠٍҠŴҠˍҠŸŠŠҍ`CT$hq€PXUh^TBhDhxchԀx^`}dqx^`dXlh^`}dc^`}dx\hn`dh CCB` CQ XȹCI)ȹCIQ~vB`v>B`ERROR CODE 593 --CALL SRA FOR ASSISTANCElBh`H7@6kB7lB8mB9nB 6@7 8@9rBh`p0`BQ@LP@`H膀h`Q@P@` ﳐ(U*U*U*U*e`Q@`ɁMɂGɃKɄEɅGɆIɌIpB oB0%0 e$ A `pB`qB`rB` @`80TH) hJJJJeemrBH  @qBIQELAIQh`HlB7kB6nB9mB8@L@L@LALAL@L@LA B B`HqB$%0 e Ah  ɌLI@pBɍpBɁɂH Ah0 oB`HRTWP rBI@ Xh` )**)8jjjjj)j)`jjj)        --COMPUTER DISCOVERY'1011,0^ :(4);"BLOAD LOCKED DESIGNWARE 4000.OBJ,A$4000";p 232,0:233,0 (4);"MAXFILES 1":016402:16405:(4);"RUN MENU"`CH(L бнVЈ ;нɿLнннɪи݈ɪ C~CB`` CQ XȹCI)ȹCIQ~~B`~>B`ERROR CODE 593 --CALL FOR ASSISTANCEŠύ̠lBh`H7@6kB7lB8mB9nB 6@7 8@9rBh`p0`BQ@LP@`H膀h`Q@P@`ŠɭӍӠðϭΠÍӠðɭӍӠɭӠŠҍϭŠe`Q@`ɁMɂGɃKɄEɅGɆIɌIpB oB0%0 e$ A `pB`qB`rB` @`80TH) hJJJJeemrBH  @qBIQELAIQh`HlB7kB6nB9mB8@L@L@LALAL@L@LA B B`HqB$%0 e Ah  ɌLI@pBɍpBɁɂH Ah0 oB`HRTWP rBI@ Xh` )**)8jjjjj)j)`jjj)    CT$hq€PXUh^TBhDhxchԀx^`}dqx^`dXlh^`}dc^`}dx\hn`dhTֿ!0` CQ XȹCI)ȹCIQ~~B`~>B`ERROR CODE 593 --CALL FOR ASSISTANCEŠύ̠lBh`H7@6kB7lB8mB9nB 6@7 8@9rBh`p0`BQ@LP@`H膀h`Q@P@`ŠɭӍӠðϭΠÍӠðɭӍӠɭӠŠҍϭŠe`Q@`ɁMɂGɃKɄEɅGɆIɌIpB oB0%0 e$ A `pB`qB`rB` @`80TH) hJJJJeemrBH  @qBIQELAIQh`HlB7kB6nB9mB8@L@L@LALAL@L@LA B B`HqB$%0 e Ah  ɌLI@pBɍpBɁɂH Ah0 oB`HRTWP rBI@ Xh` )**)8jjjjj)j)`jjj)    z #?    ĠŠʠĠŠʠĠŠʠ ŠŠŠϠŠҠ ӠҠ٠ĮӠӮӠҮӠӮӠՠȠD  (768)0Āj ":"...LANGUAGE CARD CANNOT BE RELOADED":" UNTIL THE SYSTEM IS REBOOTED..."p ,6: 769 (768)1250% I --IF THERE, LOAD INTG AND PA#1P 10:"(LOADING INTEGER INTO LANGUAGE CARD)" "BLOAD INTBASIC,A$D000" --WRITE PROTECT THE CARD A(16254): $C082  --NO CARD OR CAN'T RELOA804,0:805,208:806,208:807,10:808,173:809,129:810,192:811,173:812,129: s813,192:814,169:815,1:816,208:817,2:818,169:819,0:820,141:821,0: x822,3:823,104:824,205:825,0:826,224:827,240:828,3:829,173:830,128: }831,192:832,9,104:W _777,72:778,205:779,0:780,224:781,208:782,35:783,173:784,131:785,192: d786,173:787,131:788,192:789,169:790,165:791,141:792,0:793,208:794,205: i795,0:796,208:797,208:798,19:799,74:800,141:801,0:802,208:803,205:N nq -- DOS 3.3 HELLO  (:.(Y2"DOS VERSION 3.3 08/25/80"<:"APPLE II PLUS OR ROMCARD SYSTEM MASTER"F P --POKE LANGUAGE CARD FINDER Z768,0:769,173:770,0:771,224:772,72:773,173:774,129:775,192:776    --COMPUTER DISCOVERY'1011,0] :(4);"BLOAD LOCKED DESIGNWARE 4000.OBJ,A$4000"o 232,0:233,0 (4);"MAXFILES 1":016402:16405:(4);"RUN MENU"ϠӍ"""<"""< `Ơ&ύ< Ơ$ō""""<"""Š"***"""""ҍ>>ԍUUUAAAAUUUƠѠŠ <"<ҍ""""" <"""<԰"><$<"""< """"ٍ ٠ ō2  2٠Π***"à""""̠"""Ԡ""̠"""""p̠"" "< >""""""נ"""""ҍ"""**6"""""Ҡ""> >  ">Ԡ":*<"">"""""""٢"""""à>>ҍ>à":""ҍ""">""">> "ƍ"  "ؠ>Ơ"6**""""&&*22"Ġ"""""Ԡ"""""ƽ ҍ" >"  " 0($> ԧ> """>"ؠ""""à""< "ӍԠӠ>>>>ҠΠ""C ҠŹ66$٠>>< (&&22ō  <٠Ġج٠ Р "*" ?? >>ԠԠ      ϠӍ@ <$$< ` 5UUUUƠ!B&ύ@ 00'>|8Ơ**,(4"Aōuuo```B<ŠD&>8p(,*q`g}uҍ"ԍUUUAAAAUUUƠѠŠ@0$$0ҍ 8B<|*)))1a԰cUUUUUw44*JJJFC@ |PPPPPPx||""""""cccٍ٠@ B!2lō@PXTVUUUU٠>"">Π@@@`_WW?àjj&#@̠t>Ԡ""̠"""""p̠"" "< >""""""נ"""""ҍ"""**6"""""Ҡ""> >  ">Ԡ":*<@@ B! UUUU6480 @٢UUU`pwzzzà>>ҍ>à":""ҍ""">""">> "ƍ"  "ؠ>Ơ"6**""""&&*22"Ġ"""""Ԡ"""""ƽ ҍ" >"  " 0($> ԧ> """>"ؠ""""à""< "ӍԠӠ>>>>ҠΠ""Cp$BB$pҠŹ ! ! ٠6Uw 8> 8"ō  <٠Ġج٠6wРw6"*" ?? >>ԠԠ      Ӎ@ <$$< ` 5UUUUƠ!B&ύ@ 00'>|8Ơ**,(4"Aōuuo```B<ŠD&>8p(,*q`g}uҍ"ԍUUUAAAAUUUƠѠŠ@0$$0ҍ 8B<|*)))1a԰cUUUUUw44*JJJFC@ |PPPPPPx||""""""cccٍ٠@ B!2lō@PXTVUUUU٠>"">Π@@@`_WW?àjj&#@̠t>Ԡ""̠TTTT̠****UUUUUUUU""""""נҍUUUUUUUUҠ""TTTT  ">Ԡ":*<TTTT ٢àҍ>à":""ҍ""">""">> "ƍ"  "ؠ>Ơ"6**""""&&*22"Ġ"""""Ԡ"""""ƽ ҍ" >"  " 0($> ԧ> """>"ؠ""""à""< "ӍԠTUUTӠ****ҠΠUU""I>"""""">ҠŹ ! ! ٠>>>>>>>> 8> 8"ō>>٠"AAA"Ġج٠6UwUРUwU6"*">>cAAcԠԠ      Ӎ"""<"""< `Ơ&ύ< Ơ$ō""""<"""Š"***"""""ҍ>>ԍUUUAAAAUUUƠѠŠ@0ddҍ 8A>|*)))1a԰cUUUUUw66*JJJFC@ |PPPPPPx||""""""cccٍ٠ 8>ō 8>A٠A>Π***"à""""̠"""Ԡ""̠"""""p̠"" "< >""""""נ"""""ҍ"""**6"""""Ҡ""> >  ">Ԡ":*<"">"""""""٢"""""à>>ҍ>à":""ҍ""">""">> "ƍ"  "ؠ>Ơ"6**""""&&*22"Ġ"""""Ԡ"""""ƽ ҍ" >"  " 0($> ԧ> """>"ؠ""""à""< "ӍԠӠ>>>>ҠΠ""I ҠŹ66$٠>>< (&&22ō  <٠Ġج٠ Р "*" ?? >>ԠԠ      DK1Ė11:6:"(On Diskette 1)"@2:"1 -- Database system"i2:"2 -- (To pick another chapter)"(X22:Y2:I1:9100:9700)N0N3İ9120*N1N$"DATASYS":9000+N212099130:X:Y:" ":5522,41278,41278,1812,1812:9100:9700"N12İ9120:1206N0N12İ9120ZN0N12N$"ROBOT"(N):9000y9130:X:Y:" ":4529600:1009300X2:Y1:99905:1:"Type the number for the program":6:"you want to run:"90011:6!"#2:"5 -- Control structures"<2:"6 -- Variables"Q2:"7 -- Input"e2:"8 -- Bugs"2:"9 -- Conditional structures"2:"10-- More conditionals"2:"11-- Subroutines"2:"12-- (To pick another chapter)" X22:Y2:I0X2:Y1:9990W6:1:"Type the number for the program":6:"you want to run:"`900DK2Ė11:6:"(On Diskette 2)"2:72:"1 -- Simple stuff"2:"2 -- More simple stuff"2:"3 -- Programming"2:"4 -- RepetitionD-II (Computer with branching)"H92:"4 -- (To pick another chapter)"e`X22:Y2:I1:9100:9700xaN0N5İ9120bN1N$"BINGO":9000cN2N$"SIMPLE":9000dN3N$"COMPUTER":9000gN4120q9130:X:Y:" ":352930:Y:" ";:252,9300--X2:Y1:9990q.6:1:"Type the number for the program":6:"you want to run:"z090022:63DK1Ė11:6:"(On Diskette 1)"62:"1 -- Binary bingo"72:"2 -- CD-I (The simple computer)"82:"3 -- Ce card" 2:"4 -- Time line"I2:"5 -- (To pick another chapter)"fX22:Y2:I1:9100:9700yN0N6İ9120N2N$"ENCODE":9000N1N$"HOLLERITH":9000N3N$"DECODE":9000N4N$"TIME":9000N5120 9130:X:1529300!X2:Y1:9990h6:1:"Type the number for the program":6:2:"you want to run:"q900{2:6DK1Ė11:6:"(On Diskette 1)"2:8:"1 -- The Hollerith card"2:"2 -- Encoding the card"2:"3 -- Decoding th"(Diskette 2)"R2:10:"3 -- COMPUTER CONCEPTS":DK1Ė10:11:"(Diskette 1)"2:12:"4 -- SOCIAL AND ECONOMIC IMPACTS":DK1Ė10:13:"(Diskette 1)"X28:Y2:I1:9100:9700N0N5İ9120N200,400,300,5009130:X:Y:" ";YY1:9990:X:Y:" Dis":YY1:9990/ w9600G x9300:X2:Y1:9990 z6:1:"Type the number for the chapter":6:"you want:" }900 2:6:"1 -- HISTORY":DK1Ė10:7:"(Diskette 1)"2:8:"2 -- ANALYSIS AND PROGRAMMING":DK2Ė10:9:y"& g11:22:"Diskette number ";DK;q hY6:X2162:X:Y:" abc":X:Y1:" dDf":X:Y2:" ghi" iI1200:I jX2:Y1:"jklD":X2:Y2:"mno" kI1100:I mX nX3:Y1:" ":YY1:9990:YY1:9990% oX:Y:" ":OLE OR IN PART TO; ANY PERSON OR ENTITY IS PROHIBITED.K 54915:20T DK1^ 9300 16405::(4);"BLOAD STANDARD.CHARS,A$4300":(4);"BLOAD ROBOTS.CHARS,A$4900" 16402 K67İ9200 '9300 d9300 f10:5:"Computer iscoverLICENSE TO READ ANY PORTION OF THIS MATERIAL INTO A  MACHINE TO EFFECT MACHINE OUTPUT FOR THE PURPOSES FOR WHICH THE MATERIAL IS FURNISHED. ANY OTHER RIGHT TO USE,MODIFY,PRINT,COPY,DISPLAY,REPRODUCE,LOAN,DISTRIBUTE OR TRANSFER THE MATERIAL IN WHARE FURNISHED UNDER LICENSE FROM SCIENCE RESEARCH ASSOCIATES, INC.(SRA). THE RIGHTS TO THIS  MATERIAL ARE OWNED OR CONTROLLED BY SRA AND MAY BE USED ONLY IN ACCORDANCE WITH THE PROVISIONS OF SUCH3  LICENSE. PERMISSION IS GRANTED BY SRA UNDER SUCH i-- MENU -- COPYRIGHT SRA 1981, ALL RIGHTS RESERVED. LICENSED MATERIALS. PROGRAM PROPERTY OF SRA.|N$(40),P$(10)K(233):20 THE COPYRIGHTED COMPUTER PROGRAMS AND TEXT MATERIAL CONTAINED HEREIN ARE IN MACHINE READABLE[  FORM AND           0"; 9610;I811:20:I:" ";:I\21:8:"To code a one, the"y21:"1 row was punched""9:11:"#";:9:7:"1";,96106I811:20:I:" ";:I@21:8:"And so on,for each" J:21:"n:I:"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!";:IMI09:2:10I:I;:IW9610I811:20:I:" ";:I21:8:"To put a zero in"21:"a column, the 0"21:"row was punched...";8:10:"#";8:7:"(9600/2"Hollerith invented a code which"ZF"allowed him to represent any letter"P"or number. When he wanted to punch"Z"a number, he just used one of the"d"bottom ten rows:"i20,58279,58:20,585,715,190279,1902nI819:39:" ( ":5:" 1 ":5:" 2 ":5:" ":5:" R ":5:" o ":5:" w ":5:" s ":5:" ) "12:20:"<= 80 ACROSS =>";9610I16:1:I:" ";:I 1:1"The holes were no longer round."s reports. The new cards"p~"looked very much like the old cards. Each card had twelve rows, each having""80 punch positions:"20,61279,61:20,615,715,190279,190I819:3:I:"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!";:I^5:cards."96101:14$"In order to make this possible, he re- designed his cards so they could be usedfor things besides the census."L9600`"Hollerith's new cards were designed to hold normal letters and numbers instead of just censunish in record time!"9610)1:5"After the census was done, Hollerith realized that his punched card system could be used for a lot of other""things besides the census. He thought of many people who might store informa- tion on ";:I)\20:11:"Number of U.S."Bf20:12:"Citizens:"Wp26:13:"1345";vzD300:11000:24:13:" ";D300:11000:29:13:"6";D300:11000:24:13:" ";96109300"The Hollerith system helped the census bureau fi"&""D120:11000 &96101(6:17:" ";r*I67:1:I:" ";:I|41:65"This punch was read by a device to tabulate the number of U.S. citizens."R9610 TI1115:18:I:" 5,121 3:14:"' yes"2 3:15:"' no"C 4:5:"&"M 9610 I67:1:I:" ";:I 1:6 "To indicate the 'yes' response on the card, the 'yes' hole was punched:" 9610 3:14: CITIZEN?"' :" ' yes ' no"- D7 I9610A Z5:5K ]1:6q ^"On the census card there would" b"also be a citizenship section:" l {30,71278,71278,1705,1705,9130,71 3:12:"US Citizen" 5,12195,12195,1515,151:"&";:11000* 11:16:"&";:11000D 4:10:"&";:11000^ 28:9:"&";:11000y 27:11:"&";:11000 17:16:"&";:11000 9600 "Let's say the following question" "was on the census form:" & 0"ARE YOU A U.S.ith each hole representing a particularresponse."; ,9610F 613:7h @"The card looked like this:" E30,71278,71278,1705,1705,9130,71 9610 13:7 "And holes were punched like this:"; D20 5:15:"&";:11000 7:13OLLERITH exercise." 9600# y "About 1890 Herman Hollerith designed a system for the census bureau which was" "used to tabulate the large number of returns which were collected. Responses"1 "to questions were punched into a card, wh--HOLLERITH--COPYRIGHT SRA 1981. ALL RIGHTS RESERVED. LICENSED MATERIAL. PROGRAM PROPERTY OF SRA.xPG1:2000 A$(80)dx16405::(4);"BLOAD HOLLCHAR.CHARS,A$4900"16402930016:10:"Hi !" " This is the H     10135002C:P9:"#";"2;4C:7(12P):"#";A4 J2800,3200,3600,960,4528,4888,2560,128,148,1760,4820,4840,4860,4880,4900,4920,4940' 4960,4980,4420,4440,4460,4480,4500,4520,4540,4560,4580,40,60,80,100,120,140,160,180,0,0,0,0,108,0*IJI1D:IJI:.I718.C:I:"!";.I.2PN$,I1,(N$)I)"%I(N$)97017%(N$)0N(N$)=%j'X:Y:"abc":X:"def":X:"ghi":' 4448,2960,1360,4468, 88,4800,2160,4908,4508,4488, 4928,68,4400,4868,20,0,400,8 00,1200,1600 Q' 2000,2400, " `$F%36:22:16368,0:"a$c";:A$:V(A$):V273000V%V139600%36:22:"abc";:I1200:I:9300:%I1:N0:(N$)0ı%(N$,I,I)"0"(N$,I,I)"9"II1:9706%I(N$)N$(N$,1,(N$)1):9706%N$(N$,I1)(#(V);:9101#4#X:Y:"abc":T1300:T:U#X:Y:"a%c":T1300:T:xT$232,0:233,67:16402:16384:^$1:16:" "_$" 6:" ":120000 2190I#N0:X:Y:N$"":"a$c";:16368,0:I0I1d#A$:V(A$):V273000s#V139110#V8(N$)09101#V8(N$)1N$"":9109#V8N$(N$,(N$)1):9109#(N$)I9101#V48V579101#N$N$(V) I2:13000#$ I10I20I3023603. PI1:13000C3 C:4:" ";d8 CC1:C39C6:5:38:" ";nB 2190 54915:9300 8:8:" You have finished."  16405::(4);"RUN MENU" C:4:" ";! C6C39:5:5:" "; & CC1:C:AC(N) N02355# N162270<  IS 0, SPECIAL CASEU 12000:C:9:"#";_ 2355 I3(((A20)(A20))20.005) A(A20) I2(((A20)(A20))20.005) I1(A20.005) I302320  PI3:13000  I20I302340  P!!";:I; 3:1:"(Remember to push to terminate)"C C6{ C1:5:20,48275,48:" ) ";:38:19:A$:N(A$) N273000 N83100 N97N122NN32 N83100 12000 C:6:(N); NN32 N0N642190 A"Press keys on the keyboard to":"punch the card:"b 20,48275,48275,18110,18110,6120,48 3:7:"12 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!":3:"11 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" I09:3:9I:I;:6:"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 61 "As you type, the characters will be"\ "displayed at the top of a card, and" "the punches for the letters will be" "shown below." 14 "When you are done with the program," "press the key labelled ." 96005 64:Z:AC(I)Z:IB d16405::(4);"BLOAD HOLLCHAR.CHARS,A$4900"M e16402W 9300b 16:8o "HI !"u " This is the HOLLERITH ENCODER." 9600 3:"This program will show the Hollerith" "punches for characters you type."C g-- ENCODE-- COPYRIGHT SRA 1981. ALL RIGHTS RESERVED. LICENSED MATERIAL. PROGRAM PROPERTY OF SRA.r3000 A$(10),AC(64),CARD(34,12) I134:J112 CARD(I,M)0:J:I16405::(4);"BLOAD HOLLCHAR.CHARS,A$4900"16402 (I1     :"abc":X:"def":X:"ghi":' 4448,2960,1360,4468,88,4800,2160,4908,4508,4488,2928,68,4400,4868,20,0,400,800,1200,1600' 2000,2400,2800,3200,3600,960,4528,4888,2560,128,148,1760,4820,4840,4860,4880,4900,4920,4940L' 4960,4980,4420,4440,4%V1396009%36:22:"abc";:I1200:I:9300:P%I1:N0:(N$)0ı%(N$,I,I)"0"(N$,I,I)"9"II1:9706%I(N$)N$(N$,1,(N$)1):9706%N$(N$,I1)(N$,I1,(N$)I)%I(N$)9701%(N$)0N(N$)%#'X:Y":T1300:T:3T$232,0:233,67:16402:16384:^$1:16:" "_$" "`$%36:22:16368,0:"a$c";:A$:V(A$):V274000I1#A$:V(A$):V273000.#V139110D#V8(N$)09101a#V8(N$)1N$"":9109#V8N$(N$,(N$)1):9109#(N$)I9101#V48V579101#N$N$(V)#(V);:9101##X:Y:"abc":T1300:T:#X:Y:"a%c J112:CARD(C,J)0:C5:J6:"!";:J:PPS09 3301IPPS03560[C5:6:" ";iC13560sCC1}$356054915:93001:8:" That is the end."16405::(4);"RUN MENU"#N0:X:Y:N$"":"a$c";:16368,0:I0b F1f A(20A)Vp MM1%z I3 M23490@ IM13N AA20:I_ SCAN TABLEm F03542y I164 AAC(I)3532 I  3560  C5:6:(I32);:3550 C5:6:" "; CC1:C34C1 C5:6:" ";/CARD(C,R1)0CARD(C,R1)1:"#";:PPSPPS1:3302f4 CARD(C,R1)1CARD(C,R1)0:"!";:PPSPPS1p> 3302H A0:M0:F0M (CARD(C,1)1CARD(C,2)1)CARD(C,3)13560R I112\ CARD(C,I)03450^ I1V12_ I2V11` I2VI3C5:6:")";< 38:19:A$:N(A$):N97N122NN32K N274000Z N133400i N323542w N83600 A$","N("<") A$"."N(">") N60R1:3360  N62R0:3360 N57N483302  R(N48)2 C5:R73* 9I:I;:6:"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!";:Ig 1:1:"Use keys: 1 2 3 4 5 6 7 8 9 0 < >" " ) ) ) ) ) ) ) ) ) ) ) )" " 1 2 3 4 5 6 7 8 9 0 11 12" " For next column, to end." C1:PPS0 done with a particular column, press the key to go to the next column."a J 9600 b 20,48275,48275,18110,18110,6120,48 l 3:7:"12 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!":3:"11 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"7 v I09:3:ith codesfrom a card and print them at the top."7 6 "For each column on the card, you press the keys corresponding to the punches you want to make. To make an 11 or a 12 punch, you will use the '<' and '>' keys." D 15W F "When you are J112 CARD(I,J)0:J:IU 16405::(4);"BLOAD HOLLCHAR.CHARS,A$4900":16402o (I164:Z:AC(I)Z:Iy 9300 16:10 "Hi !" " This is the Hollerith card decoder." 9600 1:20 "This program will decode HollerN i-- DECODE-- COPYRIGHT SRA 1981. ALL RIGHTS RESERVED. LICENSED MATERIAL. PROGRAM PROPERTY OF SRA.|21288:NS(12) 81,91,96,108,121,128,144,162,182,193,217,2434000I112:Z:NS(I)Z:I A$(10),AC(64),CARD(34,12) I134:     "9120:36:19:" ";(018:1:" ";. 0O2LN10((1)9):LN18LN18d24:LN:"a$c";z2A$:(A$)273602V(A$):V97V122A$(V32)24:LN:" ";2A$"U"LN11LNLN1:130052A$"D"LN17LNLN1:13005*2(A$2:Y2:9120:X:Y:" ";:123105/XJ2:Y2:9130T/15:1:"OFF BY ";(CDD);/T1500:T:15:1:" ";/12000 0X15:Y1:91200J3:3:" ";036:190"a$c";:A$:(A$)273600(A$)13123110X36:Y19:A$:(A$)273605.V(A$):V97V122A$(V32)g.A$"L"(A$)8CDCD10:J3:1:" ";:12060/A$"R"(A$)21CDCD10:12060 /(A$)1312200/12020/CD1600CD1600&/CD1950CD1950:/J2:3:" ";D/12000!/DCDXJ%36:19:16368,0:"a$c";:A$:V(A$):V27360B%V139600l%36:19:"abc";:I1200:I:9300:'X:Y:"abc":X:"def":X:"ghi":.J(CD10)160.1:1:"".J1:2:" a$c ";:J2:3:" ) ".18:1:CD;.38:19:"#X:Y:"abc";:T1300:T:D#X:Y:"a%c";:T1300:T:gT$232,0:233,67:16402:16384:^$1:16:" "_$" "`$2d2:7:"Mauchly and Eckert designed "8h12000AϞG'#X(#D1940:AN13r2#CD1600((1)35)10<#2:7:"This man designed the ASCC"F#2:" or MARK I mechanical computer."L#13000M#2:7:"Aiken ";P#12000Z#990d#esigned the first"7v2:"mechanical adding machine."B{13000]|2:7:"Pascal ";h12000q>990w?@D1950:AN17JCD1600((1)35)10T2:7:"Responsible for the design of"^2:"ENIAC, and later UNIVAC I."c13000-zCD1600((1)35)10K2:7:"This pioneer helped the census bureau"z2:"take the census using punched cards."130002:7:"Hollerith ";12000V990WXD1640:AN15bCD1600((1)35)10l2:7:"This pioneer dnd divide"13000,2:7:"Leibnitz";712000@990FWD1940:AN18qCD1600((1)35)102:7:"This man designed the first"2:"computer."130002:7:"Atanasoff";12000n990opD1890:AN11:"This pioneer proposed the idea of"L 2:"the stored program computer."W 13000r 2:7:"Von Neumann ";} 12000 990  D1690:AN16 CD1600((1)35)10 2:7:"This man designed a machine which" 2:"would multiply a 990  D1800:AN10: CD1600((1)35)10_ 2:7:"This pioneer designed a" 2:"loom controlled by punched cards." 13000 2:7:"Jacquard "; 12000 990 D1950:AN14 CD1600((1)35)10% 2:7 1:1:T137:" ";:TZ I78:1:I:" ";:I` q D1830:AN12 CD1600((1)35)10 2:7:"This pioneer invented the" 2:"Analytical Engine." 13000 2:7:"Babbage "; 12000auchly & Eckert"$ 8:"Atanasoff". 60008 1000B "8000L ,9000V 62000` @7000j J5000t T3000~ ^4000 h54915:9300 r2:8 |"That is the end of the" " TIME LINE program." 9600 16405::(4);"RUN MENU"96008 3:4:"+====+====+====+====+====+====+====+"n 1:5:"1600 1650 1700 1750 1800 1850 1900 1950"; 8:10:"Jacquard" 8:"Hollerith" 8:"Babbage" 8:"Aiken" 8:"von Neumann" 8:"Pascal" 8:"Leibnitz" 8:"Mbg -- TIME -- COPYRIGHT SRA 1981. ALL RIGHTS RESERVED. LICENSED MATERIAL. PROGRAM PROPERTY OF SRA.q360x16405::(4);"BLOAD HOLLCHAR.CHARS,A$4900":16402930016:10"Hi !"" This is the TIME LINE program."      3090404'X:Y:"abc":X:"def":X:"ghi":@'P4:S0L'JJ13]$'B((VS)P)e.'B;y8'SS(PB):PP2B'JJL'**11100*38:19:16368,0:A$:N(A$):N1311200*N97N122A$((A$)32)*N279000+5(C(N$)0ı9%(N$,I,I)"0"(N$,I,I)"9"II1:9706_%I(N$)N$(N$,1,(N$)1):9706%N$(N$,I1)(N$,I1,(N$)I)%I(N$)9701%(N$)0N(N$)%&L(218)(219)256:E(222):216,0&E620&L90109020&L90 "|_$" "`$%36:19:16368,0:"a$c";:A$:V(A$):V279000%V139600%36:22:"abc";:I1200:I:9300: %I1:N0:#V8(N$)1N$"":9109;#V8N$(N$,(N$)1):9109N#(N$)I9101b#V48V579101q#N$N$(V)#(V);:9101##X:Y:"abc":T1300:T:#X:Y:"a%c":T1300:T:T$232,0:233,67:16402:16384:L^$1:16:" t doing")"some more study of binary"L "numbers, then come back and"g"try the game again?"q 9600{*1210(#54915:1205#N0:X:Y:N$"":"a$c";:16368,0:I0I1#A$:V(A$):V279000#V139110#V8(N$)091015ĺ"Binary Bit."9600+9300:5:10O" That's all of BINARY BINGO."m16405::(4);"RUN MENU"w9300~5"You seem to be having some""trouble converting binary""numbers. Why don't you talk""to your teacher abou11:"BINGO!":21:"The computer rates":21:"you as :"FQSCNMR21:15sQ9ĺ"Binary Genius!":1200Q8ĺ"Binary Wizard!":1200Q7ĺ"Binary Good Guy":1200Q6ĺ"Binary Student":1200Q5ĺ"Binary Worker":1200Q132:9:SC;" "; 490+I186J18HT(I,J)0770OJX900_Ij I18uJ18 T(J,I)0830*J4900>IHI18RT(I,I)0880\If900pI18zT(9I,I)0460|I 490:21: ";#38:19:A$:(A$)2790006(A$)13640N5(CX2):4(CY2)jT(CX1,CY1)1ĺ":";T(CX1,CY1)0ĺ" ";49057049021:11:"abc Good! You get":21:"10 points."I11000:ISCSC10:T(CX1,CY1) then press":21:"the key."6 SSC302000K XCX0:CY0:11000^ bCXXCYY670g l490 v21:11:"a%c No, that's":21:"not it. You lose":21:"5 points." {21:"Press to":21:"try again..." |SCSC5}32:9:SC;" ";:I:& N(10(1))31 I1NA X((1)8)Q Y((1)8)g T(X1,Y1)1520} 26:3:VX:10000 &31:3:VY:10000 0I :21:11:"Using 'U', 'D', 'R'":21:"and 'L', move the"% D21:"dot to the correct":21:"spot,B6V V V V V V V V V"5 " B ARSRSRSRSRSRSRSRD"U " )7V V V V V V V V V"s " ZRXRXRXRXRXRXRXRC" 21:11:"Push to":21:"select your numbers." NMNM1 X30:Y14:I1:9100 490:500 I1015:21:I:" V V V V V V V V V"= ," B ARSRSRSRSRSRSRSRD SCORE: 0"] 6" B3V V V V V V V V V"{ J" Y ARSRSRSRSRSRSRSRD" T" B4V V V V V V V V V" h" B ARSRSRSRSRSRSRSRD" r" B5V V V V V V V V V" " B ARSRSRSRSRSRSRSRD" " C0:NM0 1:11 " <= = = X = = =>"Y " 0 1 2 3 4 5 6 7 X Y"w " QRWRWRWRWRWRWRWRE" " (0V V V V V V V V V" " B ARSRSRSRSRSRSRSRD" " B1V V V V V V V V V" " B ARSRSRSRSRSRSRSRD" " B2g-- BINGO -- COPYRIGHT SRA 1981. ALL RIGHTS RESERVED. LICENSED MATERIAL. PROGRAM PROPERTY OF SRA.r9000 A$(10),T(8,8)16405::(4);"BLOAD HOLLCHAR.CHARS,A$4900":16402I18:J18(T(I,J)02J:Id93009300 S      "}_$" "`$%36:22:16368,0:"a$c";:A$:V(A$):V279000%K(0):V139600%36:22:"abc";:I1200:I:9300:2%#OX0OY0ı$#OX:OY:" ";:E#X:Y:"abc":T1300:T:#X:Y:"a%c";:T1500:T:X:Y:T1OI3:" ";:T:#K(0):V97V122VV32#V32V90V0#A$(V):T$232,0:233,67:16402:16384:OX0:OY0:M^$1:16:" OXX:OYY:"a$c";:16368,0:I0I1I#K(0):A$:V(A$):V279000X#V139110n#V8(N$)09101#V8(N$)1N$"":9109#V8N$(N$,(N$)1):9109#(N$)I9101#9140:V09101#N$N$(V)#(V);:9101#OII:15:9300'-#8:" End of exercise."h.#"":"Press again to return to the":" main menu, or"/#"Press to return to this":" exercise."0#A$:V(A$):V2790101#V13302#16405::(4);"RUN MENU"'#N0:9111:X:Y:N$"":(VA(L))0.01VA(L)0011000:10020:12100?LC:12100FCs10000:"That's the end of the program."LC:121009610:400LV%(1,C) 12000 10020 3:18:" "; 10020 3:18:VA(L) 2280(#5492,C):12000:L2L@100207H12100:LV%(3,C):12000BJ10020YRCCC%(C)1:C%(L)1u\CC2200,2220,2240,2260f2900VA(L)VA(L1)VA(L2):2270VA(L)VA(L1)VA(L2):2270VA(L)VA(L1)VA(L2):2270VA(L2)0VA(L)VA(L1)VA(L2)ou must press for each"C"instruction to be executed."OC120Y9610y1:4:"Program Counter=";C10020 LC:1200010020C%(C)0C%(C)12295 C%(C)623004LV%(1,C):12000:L1L610020>12100:LV%(3,L)N1000011000'121000400;10000f"For PRINT statement, enter location"|"to be printed:"X4:Y3:I2:9100:9700N1N20İ9130:1030$9120:V%(1,L)N.98010000"Program execution mode" "YNHVS3:VF4:10010;\" Location of SECOND operand:"XfX30:Y3:I2:9100:9700qzN1N20İ9130:8709120:V%(2,L)NVS4:VF4:10010" Location for DESTINATION:"X30:Y4:I2:9100:9700N1N20İ9130:9409120:V%(N1 10000 N51000) "For ";: N1ĺ"Add";P N2ĺ"Subtract";f N3ĺ"Multiply";z N4ĺ"Divide"; " Instruction, type:" " Location of FIRST operand:" X30:Y2:I2:9100:9700 4N1N20İ9130:800>9120:V%(1,L)11000 N12100 X400% b10000L l"Which instruction did you want?"\ v" 1) Add"q " 2) Subtract" " 3) Multiply" " 4) Divide" " 5) Print" X30:Y4:I1:9100:9700 N1N5İ9130:680 9120 10000 C%(L) it:" " 1) A number or"; " 2) An instruction?"W X4:Y4:I1:9100:9700o N1N2İ9130:490y 9120 N2610 10000 "Type the number you want:" &X4:Y3:I6:9100:9700 '(N)0.01N0 :9120:C%(L)1:VA(L)N DRTRTRTRC" 10000B "Which location do you wish to modify?"n "(Typing an 'R' will run the program)" X4:Y3:I2:9100:N$"R"2000 N$"C"30 9700 N1N20İ9130:420 9120:LN:12000 10000 "Did you want to put in%(3,I)0:VA(I)0:I 9300) 16:105 "Hi !"; g " This is CD-I, the simple computer."q 9600{ 9300 I110:3:6I:I;":";:23:I10;":":I N"QRTRTRTRTRTRTRTRTRE" P"V V <= Output" Q"ZRTRTRTRTRTi-- SIMPLE -- COPYRIGHT SRA 1981, ALL RIGHTS RESERVED. LICENSED MATERIALS. PROGRAM PROPERTY OF SRA.t9000 C%(20),V%(3,20),VA(20),N$(40),A$(10)16405::(4);"BLOAD HOLLCHAR.CHARS,A$4900":16402 I120:C%(I)0:V%(1,I)0:V%(2,I)0:V         ENU"F#N0:9111:X:Y:N$"":OXX:OYY:"a$c";:16368,0:I0I1h#K(0):A$:V(A$):V279000w#V139110#V8(N$)09101#V8(N$)1N$"":9109#V8N$(N$,(N$)1):9109#(N$)I9101#9140:V09101#N$N$(V)  V%(1,L)N 980'(#54915:9300F-#8:" End of exercise.".#"":"Press again to return to the":" main menu, or"/#"Press to return to this":" exercise."0#A$:V(A$):V2790101#V13302#16405::(4);"RUN MVS3:VF3:1001070 "And give location to branch to:"T: X30:Y4:I2:9100:9700nN N1N20İ9130:1030|X V%(2,L)Nb 980 "For Unconditional branch" "Give location to branch to:" X30:Y3:I2:9100:9700 N1N20İ9130:10300 10000:N93500# "For ";K N6ĺ"Branch less than zero":3060r N7ĺ"Branch equal to zero":3060 N8ĺ"Branch greater than zero" "Enter location to test:" X30:Y3:I2:9100:9700 N1N20İ9130:1030 V%(1,L)N&  3:18:VA(L):22805 LC:12100:CL11:LC:2800S( 12100:LC:C%(C)72650s2 VA(L1)0LC:12100:CL21}< 2800Z C%(C)82700d VA(L1)0LC:12100:CL21n 2800 C%(C)92290 VA(L1)0LC:12100:CL21 2800 228VA(L2):2270/VA(L2)0VA(L)VA(L1)VA(L2)J(VA(L))0.01VA(L)0t11000:10020:12100:LC:12100:204010000:"That's the end of the program."LC:12100:9610:400LV%(1,C):12000:10020 3:18:" "; 100200:L1L 610020:C%(C)102500H>12100:LV%(2,C):12000:L2L:10020ZAC%(C)62600H12100:LV%(3,C):12000:10020:CCC%(C)1:C%(L)1:CC2200,2220,2240,2260f2900VA(L)VA(L1)VA(L2):2270VA(L)VA(L1)VA(L2):2270 VA(L)VA(L1)9130:1030#$9120:V%(1,L)N:980.100006C0KCC1:C202295p1:5:"Program Counter= ";C;" "K(16384)128:K27K("S")Ĺ16368,0:229510020:LC:12000:10020C%(C)0C%(C)12295 C%(C)623004LV%(1,C):120020İ9130:87029120:V%(2,L)N:VS4:VF4:10010J14:"DESTINATION:"gX30:Y4:I2:9100:9700N1N20İ9130:9409120:V%(3,L)N10000:11000:12100:40010000:"Location to be printed:" X4:Y2:I2:9100:9700:N1N20İ000:N51000 N53000( "For ";3 14000m " Instruction, type:":" Location of FIRST operand:" X30:Y2:I2:9100:9700 4N1N20İ9130:800 >9120:V%(1,L)N:VS3:VF4:10010 \14:"SECOND:" fX30:Y3:I2:9100:9700:N1N did you want?"1 v" 1) Add 6) Branch <0"S " 2) Subtract 7) Branch =0"u " 3) Multiply 8) Branch >0" " 4) Divide 9) Branch always" " 5) Print" X30:Y6:I1:9100:9700:N1N9İ9130:680 9120:10000 C%(L)N1:10) An instruction?". X4:Y4:I1:9100:9700F N1N2İ9130:490Y 9120:N2610 10000:"Type the number you want:" &X4:Y3:I6:9100:9700 '(N)0.01N0 :9120:C%(L)1:VA(L)N:11000:12100 X400 b10000:"Which instruction0000:"Which location do you wish to modify?":"(Typing an 'R' will run the program)"x X4:Y3:I2:9100:N$"R"2000 N$"C"30 9700:N1N20İ9130:420 9120:LN:12000 10000:"Did you want to put in it:":" 1) A number or":" 2%(3,I)0:VA(I)0:I% 9300:16:103 "Hi !":b " This is CD-II, the branching computer."l 9600 9300:I110:3:6I:I;":";:23:I10;":":I N"QRTRTRTRTRTRTRTRTRE":"V V <= Output":"ZRTRTRTRTRTRTRTRTRC"U 12i--COMPUTER-- COPYRIGHT SRA 1981, ALL RIGHTS RESERVED. LICENSED MATERIALS. PROGRAM PROPERTY OF SRA.t9000 C%(20),V%(3,20),VA(20),N$(40),A$(10)16405::(4);"BLOAD HOLLCHAR.CHARS,A$4900":16402 I120:C%(I)0:V%(1,I)0:V%(2,I)0:V     9300REC0929+T17:REC17TRECDI1T:1:I:I;".";kJ110:((DB(I1)50J));:J:rIREC18929T34:REC34TRECI18T:14:I17:I;".";J110:((DB(I1)50J));:J:IREC35929 T50:N*9300:930`+9320:1:18:"DO YOU WANT TO DELETE FOR SURE ?":"(ANSWER -YES- OR -NO-";x,X25:Y19:I3:9100-N$"YES"N$"Y"870.N$"NO"N$"N"500/9130:25:19:" ";:811fI150:DB(CR1)50I,(" "):Ig500;-X20:Y18:I10:9100:9750:(N$)0500eRECREC1:CRREC:I150:DB(REC1)50I,(" "):II1(N$):DB(REC1)50I,((N$,I,1)):I610 9320:1:18:"WHICH RECORD ?"!X30:Y18:I2:9100:9700"N1NRECİ9320:502#CR(CR1)50N10I,((N$,I,1)):I)u610Q9320:1:18:"NAME FOR RECORD ";CRwX20:Y18:I10:9100:(N$)0690I150:DB(CR1)50I,(" "):II1(N$):DB(CR1)50I,((N$,I,1)):I6109320:1:18:"NAME FOR RECORD ";REC1TO RETURN TO THE RECORD LIST)";=dX26:Y18:I1:9100:9700JeN5500hfN1N4İ9130:9320:611rg9320l3:2N3:" ";:X3:Y2N3:I10:NXN:9100:NNXnI110:DB(CR1)50N10I,(" "):I:(N$)0629 pI1(N$):DB120N$"V"VW1:600(9130:503eX9320:1:18:"WHICH RECORD ?":X25:Y18:I2:9100:9700YN1NRECİ9320:502ZCRN`(DB(CR1)501)(" ")690b9300:930:VW1İ9600:500c9320:1:18:"WHICH FIELD DO YOU WANT ?":"(-5- 600 1209300900u1:18:"A-ADD D-DELETE V-VIEW":1:"C-CHANGE R-RETURN TO OPERATIONS MENU";X33:Y18:I1:9100:N$"V"N$"R"CHANGESCHANGES1N$"A"REC50VW0:700N$"D"800N$"C"VW0:600N$"R",L2501":16402120c9300:1:10:"THE COMPUTER COULDN'T CREATE YOUR":"DATABASE (";N$;")."m8000w12016405::(4);"CLOSE":16402:9600:120REC093005:12:"THE DATABASE IN MEMORY HAS":5:"NOW BEEN CLEARED."9#8000$120%3935,1000:VS1:VF3:9330G-X2:Y1:9990r5:1:"WHAT WOULD YOU LIKE TO NAME":5:"THE DATABASE ?"vX25:Y2:I8:9100:390w(N$)0İ9130:374xC$N$".DAT"yDB,RECz16405::(4);"BSAVE ";C$;",A";DB;"THE DATABASE":5:"YOU WANT TO LOAD ?"= X25:Y2:I8:9100U (N$)0İ9130:274f C$N$".DAT"p 290 16405::(4);"BLOAD ";C$;",A";DB:16402 REC(DB) !120 "9300:1:10:"THE COMPUTER COULDN'T GET YOUR":"DATABASE (";N$;")." TO RETURN TO THE DATABASE SYSTEM."H A$:V(A$):V27190V V13100_ 182 9300:10:10:"END OF PROGRAM." 9600:1100 16405::(4);"RUN MENU" 1000:VS1:VF3:9330 X2:Y1:9990& 5:1:"WHAT IS THE NAME OF ES0:400 N2500. N3CHANGES0:300F N4CHANGES0:200] N5CHANGES0190u N5CHANGES0180 9130:152 9600 100 9300:5:"YOU HAVE NOT SAVED THIS DATABASE YET.":. "PRESS TO EXIT WITHOUT SAVING IT, ORORY (NEW DATABASE)"V 2:"2 -- ADD, DELETE, CHANGE OR":2:" EXAMINE A RECORD"w 2:"3 -- SAVE THE DATABASE" 2:"4 -- LOAD A DATABASE" 2:"5 -- (EXIT FROM DATABASE SYSTEM)" X22:Y2:I1:9100:9700 N0N6İ9120 N1CHANG f10:5:"COMPUTER DISCOVERY"? g11:10:"DATABASE SYSTEM"t h15:12:"abc alc":15:"def def":15:"ghi ghi"~ p9600 x54915:9300:X2:Y1:9990 z5:1:"TYPE THE NUMBER FOR THE OPERATION":5:"YOU WANT:" }950 2:8:"1 -- CLEAR MEMj-- DATASYS-- COPYRIGHT SRA 1981. ALL RIGHTS RESERVED. LICENSED MATERIALS. PROGRAM PROPERTY OF SRA.t12021288CHANGES0 DB18688 N$(40),P$(10),C$(40)930016405::(4);"BLOAD DATASYS.CHARS,A$4300":16402d9300               ` 6@7 8@9(Bh`p0`U*U*U*U*ϟϟ ﳐ(U*U*U*U*`80TH) hJJJJeem(BH  M@'BIQELKAIQh`'B$%0 e @  ɌLA&Bɍ&BɁɂH @h0 %B`H!B6"B7#B8$B9h`H7@6!B7"B8#B9$B@L@LM@L@L@LYALALAHRTWP (BI@ Xh` )**)8jjjjj)j)`jjj)e`ɁMɂGɃKɄEɅGɆIɌI&B %B0%0 e$ @ `&B`'B`(B` @!! ! ! 460,4480,4500,4520,4540,4560,4580,40,60,80,100,120,140,160,180,0,0,0,0,108,0 Y