' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` `ee`>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-( `eֱα@跻~!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 ֠ez# eu`Q#] XBL2,YBY217XBL2,YBY24F] XB8,YBY2181XBL,YBY218j] XBL3,YBY215XBL3,YBY24] XBL4,YBY217XBL4,YBY24] XBL5,YBY218XBL5,YBY25] 3] ]:]"ERROR #":(222)]X15000:X]$2130^.::XAXB:YYBY211\H F0:530-\R T$" "T$E\\ BL(N$)6(T$)6N\f A20^\p ABAX10w\z Z$T$:XA:YYBY211\ F0:530\ G60ı\ 5\ XB5,YBY216XBL,YBY216\ XBL1,YBY215XBL1,YBY21\ XB6,YBY217XB5L,YBY217ŧӠٍנōנȍǍǍ4,YBY24.] XBL5,YBY218XBL5,YBY255] 3;] C]:Y]"ERROR #":(222)j]X15000:Xt]$2130|].:5 \ G60ı\ 54\ XB5,YBY216XBL,YBY216X\ XBL1,YBY215XBL1,YBY21{\ XB6,YBY217XB5L,YBY217\ XBL2,YBY217XBL2,YBY24\ XB8,YBY2181XBL,YBY218\ XBL3,YBY215XBL3,YBY24 ] XBL4,YBY217XBLBDXL,YBY2DY [ XBL,YBY2F[ XBDX,YBY215DYXBDX,YBY225X[ AL(N$)68h[* AXBAL6r[4 AA4[> Z$N$:XAXB:YYBY211[H F0:530[R T$" "T$[\ BL(N$)6(T$)6[f A20[p ABAX10[z Z$T$:XA:YYBY211\ F0:530NZv X11000:XZ A$)Z 16303,03Z 2130:Z 3HZ DX6:DY4bZ XB,YBY215XB,YBY2sZ XBL,YBY2Z XBL,YBY215Z XB,YBY215Z XBDX,YBY215DYZ XBDXL,YBY215DYZ XBL,YBY215Z XBDXL,YBY215DY[ X:Y190(V$)8/Y YYBT92515YYBT92515BY F1:Z$V$:530XY XXB10:Y190:F0gY Z$H$:530Y XXB5:Y190Y2:Z$Q$:F0:530Y& AXBDX:B0Y0 N0S8Y: A,YB1A,YB2YD XA3:YYB10YN Z$(B):F0:530YX BBS7Yb AA(S9S8)Zl E";A$X 2150X *X G60G61:2220?X G61G60:2220EX^ LXh 7ZXr 16302,0kX| XB20:YB170tX Y20X M1T9X Y2Y225X T$A$(M)X N$P$(N(M))S$X LN(M)S9(S8S7)X 3230X MX Y2Y230X XBDX,YB270,YBY X00W< F02480#WF D$;"DELETE";A$5WP D$;"OPEN";A$HWZ D$;"WRITE";A$XWd T9:S8:Q2`Wn S2hWx S3wW S9:G6:HW S7W Q$:V$:H$W X1T9:N(X):XW X1T9:K$(X):XW X1T9:L$(X):XW X1T9:A$(X):XW P$:S$X D$;"CLOSA$A$".BAR"CV 8:"YOUR FILE WILL BE ENTERED ON THE DISK AS ";A$fV 20:10::"SAVING FILE ";A$:yV D$;"OPEN ";A$V 2640V D$;"READ";A$V Z$V D$;"CLOSE";A$V( "THIS FILE ALREADY EXIST. DO YOU WANT TO WRITE OVER IT. (Y OR N)"W2 77UV ::"PRESS THE KEY WHEN DONE"GU` "VIEWING THE BAR GRAPH"rUj :::"PRESS TO CONTINUE..."zUt A$U~ 2060U 16304,0U A$U 16303,0U 2130U U D$(4)U 5:"ENTER A FILENAME FOR THIS BAR GRAPH."U A$ V :"7= SAVE BAR GRAPH ON DISK">T:"8= RETURN TO MAIN MENU"fT::"ENTER A NUMBER FROM 1 TO 8 ";lT T 22:28:" "T 22:28:XT X(X)T$ X1X8Ğ:2300T. X820,1100,1630,1710,2800,2370,2480,130T8 : ERRORTB TL Q202810*HANGE DATA PREFIX OR SUFFIX":@S"3= ENTER/CHANGE GRAPH DATA"oS:"4= SET/CHANGE HORIZONTAL AXIS SCALING"S13:"5= CHANGE COLORING OPTION (NOW ";SSG61Ģ13:32:"ON ";SG60Ģ13:32:"OFF";S:")"S:"6= VIEW BAR GRAPH"T20:4::"YOU MUST FIRST SCALE YOUR GRAPH":>R>U11500:UHRH2150NRRmR\::"BAR GRAPH COMPLETED"Rf:::"ENTER THE NUMBER OF THE ACTION"Rp2315Rz"YOU WANT TO TAKE:"R:"1= CREATE/CHANGE TITLE AND AXIS LABELS"S:"2= ENTER/C!XY!X19Y"P$(X)-Y"AD8:BX923:Y"F0:200AY$"X`Y."P$"10":AD14:B113::200qY`"AD11:B128Yj"P$"P %@@$ S #@@@"(34)Yt"200Y"AD11:B143Y"P$"D %&)&$ C %(&&)$"Y"200Y"AD11:B158Y"P$"B %(&)&)$"Y"200ZB10XhP$"YOUR SHIPS":200&XD160X85006XIX F0:A184:B10hX P$"COMPUTER'S SHIPS":200rX& D178|X0 8500Xl X4!6X>!X010XH!X10D,23X10D,115XR!D2,X925100D,X925X\!XXf!7X!X110X!X33X10D6,22YW-T101W2T21:T1T20+W<E1119WFPF(T2,E)CWP5000MWZE:TWWd6000fWnF320000sWxT1:T20}W7000W5000W6000WF120000WT0T1:T20:7000WT0:T21:7000W@F1WJP$"HIDE--SINK":A119:B16XeF0:A30:(R92)VS%(1,0,0,1)0A14VS%(1,1,0,1)0A0>V3500HV7025hVF(T2,1)0F(T2,2)07705VP$"NO SHOTS":A118:B60:F1:200VX1500:XVG(T22)1P$"LEFT!!":A118:B70:F1:200VX1500:XVT1T0:T21:7000V(600 1G(T2)G(T22)UT07500(U32006UF07700@U7030MULR9(R9)bUVR9.6P0:7200sU[G(1)17600U`S%(1,0,0,0)2S%(1,0,0,1)0A0:7640UjS%(1,1,0,0)3S%(1,1,0,1)0A1:7640U~R9(R9)UR9.3P0:7200UR9(R9)VA00)64)TWK$((F(T2,E)),2)>T\(K$,1)"0"K$" "(K$,1)gTaP$P$K$:A143:BY4:Y4Y48:F0:200TfT0F(T2,E)0İ2700TkG917700TpG92EE1TzG92ĂETE2G937700TEG(T2)G(T22)7700TG(T22)17700UG92āEG(T2)1000S 4000SF07170wS Y447Y4Y45:P$"SHOTS":A130:BY4:F1:200:P$"MADE:":A130:BY48:Y4Y418:200S*T0İ550:B%(A,B)2S4F(T2,E)PSCF(T2,E)07270SM(EG(T2)G91)(E1G92)P$"@":A125:BY4:F0:200TRP$((F(T2,E)1100 Rv3000R4000(RF1ĺ:7200.RER"INVALID MOVE!!!"KR2700:7030eR2700qRN9N91RN9N87130RPN(N9,0)R4000RF07100R7200RN7N71RN7N67170RPN(N7,1)R4000RF07130R7200S(3)0F0QQX600"QY2700,Q[Y430GQ\F1:A130:BY4:Y4Y48Q]T1P$"YOUR":200:A130:BY4:P$"TURN":200:1700:Y4Y48Q_T0P$"MY TURN":A122:200QbE111:F(T2,E)0:EQdE1QgG91G(T2)17320QlG92āE1G(T2)RqT07T,C,1,2):B2:AT:500:F0$PXA10+P4BPJ1S%(T,C,0,2)3ZP32X,B3:32X,B4gPXX6:JPAA4:P$"+,./":F0:200PF3P3378:PpF0PA01PB04PS%(A,B,0,0)0FFA1:6100PBPA QG91G(0)G(1)G(2)G0P$"I SUNK YOUR "4Ol:P$;::N$(C);::"!!"::>Ov2350NO{J1300:JfOXS%(T,C,0,2)11OPS%(T,C,X,1):AT:B0:500:F1OP$(N$(C),1):300OT15810OA0H9:H(A)PH(A)H(H9):H9H91OAO550:B%(A,B)1OXPPS%(ɛhh K8&L(`ɛ` :``H# B [  B ɰɸ :LhH K   X )?P)?( XƢ  : ɛhhhL(ɍ Xfh 4 `ԠҠƠҺӠ٠٠ϠԯРǠŠŠϠ̠ (# K` ("( K`> 0 ($ 2 % >`%L ȥȥCȩ `ȥ  ` '(?2ɮ 2" [` ` 'P#`膚 ɍ!Ɉ$ɛL( ĊŠԠΠŠĮĩ٠РƠˮƩ٠ŠЮũԠͮ͠ź ǠӠ ŠҺԠˠϠŠĠҠ?ϠŊҠ?Ϡ̊ J?2hJ H$ $ h 2 J !` /$ [ B K%"    [    [ E`?ˠЊ ͩ͠Рנˮ?źˠԠŠREE GAMES:"Gipb::"1)";::"STANDARD SEA-BATTLE";::" IS THE BOARD"Mizbtib"GAME WITH 5 SHIPS ON EACH SIDE."ib:"EACH PLAYER GETS ONE SHOT PER TURN."ib:"BOARD POSITIONS ARE SPECIFIED"ib:"BY A LETTER/NUMBER COMBINATION SUCH"jb:"ASNOTHER GAME"hZ800,h(ZF1ė::::90204h2Z:Qh~A!aQ1q I)iY9yE%eU5u M-m]=}C#cS3s K--h`b0c0HHgHfH8g`*Ff)FfL/ f & & &ii8}ȱ}eȱ ȱȄ)/ & &%)ȱ%iƍйΧ00Ψ0 kbjgifhcgbfha - 16 d)Iiiy j -dyL-j -dL-h  -Iii j - bc .edighfa`hi`jk` H 0 0h(` - xH00h X`Heded0de (,edb),ich(`` `@```````a a@a`aaaaab b@b`bbbbbd`e ded@e deed` dacHbHgHfHH +cgbfaH 0fhbc .hhfhghbhc`eHad a ,ehe`eaL- +c programs in the TELEMATH series of educational software. We hope you enjoy it. Press 0 to continue >   From: Psychotechnics, Inc. 1-800-447-5800 In Illinois: 1-312-729-5850 This is one of 80 validated programs in the TELEMATH series of educational software. We hope you enjoy it. Press 0 to continue > t  D$(4)/(D$;"BLOAD TELEMATH.2,A$3800"Q<D$;"BLOAD TELEMATH.3,A$6400"rFD$;"BRUN TELEMATH.4,A$2000" CZ(16300) Do:uA$oDu:dn`r"SHIP IS TO EXTEND DOWN OR TO THE",njrIntr"RIGHT OF THAT MARKER."On~rxnr:"A MARKER DURING THE REST OF THE"~nrnr"GAME SHOWS WHERE YOUR SHOTS FOR THAT"nrns"TURN ARE DIRECTED."n0u::"PRESS TO CONTINUE...";n5u2900 m(n300006mHq:"WHEN HIDING YOUR OWN SHIPS ON THE"gTH THECORRECT ANSWER THE MONEY WILLBE ADDED TO YOUR PIGGY BANK. THE FIRST PLAYER TO GET TENDOLLARS IN HIS BANK IS THEWINNER.ߟ~??qn}{v`?Ʈ~?<nM>~#^#VG +͛>_ d{ e{@k>{(]{_!~NV>###~#N>    o : ˼o ˼ Șe-oo ˼-s . ˼Șe-o ep0p#m n _{(T<*A*A:A *B%M;ڔzʔW{_*A*AM;BK*A"Ax(+w "A<=;*!?*AM;ڔzڔW{_*AM;BK*A*!?"A "Ax( w#2@2@OW{_*A*AM;BK*A"Ax(+w "A<=;*!?*AM;ڔzڔW{_*AΠìɬύōΠȮΠȮxmy xmzbyȥcyL\p(aIiaL\p xmy xmzybȱycL\p xmy xmzdyȥeyL\p xmy xmzydȱyeL\p xmy xmzoyȥpyL\p xmy xmzyoȱypL\pbyczL~dyezL~fygzL~oypzL~hIH(fyfgzgfh)L~h IHL\pmiL\p xmy xmzlhyȵiyL\plhiL\p xmy xmzylhȱyiL\plhhiL\p ]zylhziL\plhHohhoȵiHoihoL\plhyizLylhminLbplhoipL\pL{ xm}L{ }H}H`BCDJKRSZ[bjrsz{~}~~#~~>~Y~~~t~~ L |dL |gL |fL |aL | | xmyL\pH |hyL\p |yLvv |yLv |yLv |yL/w |yLtw |yLw |yLw |yL$x |y(yL\p |y(yL\p xmʆzluhyzuiz`byczL|dyezL|lhyizL|oypzL|yluhhzuii(8(L\p xlmh xleffzegg(8(L\pl xm={'L{ e{Hd{H`FNV^fn~pqrstuw645 !"#)*+9{{{{{{{{{{{|| ||)|1|9|B|K|S|[|c|l|{||||}}|*}G}|V}f}}}} {cL\p {bL\p {eL\p {dL\p {gL\p {fL\p {aL\p |y`cL |bL |eyo8opyoȥzoL\p ]zybzcL\p ]zydzeL\p ]zyfzgL\p ]zh)y LSzy))HzaL\poyȱozoiop`(Lz(LzLz(LzLz(LzLz(LzLzc(Lz(Lz xL\p xmH xhʆzemmzennLbpbyczLzdyezLzfygzLzoypzLzyxmH xmoȥnohnhmLbp(L[yLey(Ley(L[yLey(L[yLey(L[yLeyfmgnLbp(L[yLey(0L[yLey x xL\p xmH xmnhmLbp(L\pLy(L\pLy(Ly(L\pLy(L\pLy(L\pLy(0L\pLyomȱonoiopLbpbyczLydyezLyfygzLyhHyazLeL$xdL$xgL$xfL$xfL$xaL$x xmL$xya(yhIHL\pctctbsbsevevdudugxgxfwfwL\pfHofhoȥgHoghoL\pdfdfegegL\pfogpL\pmn`(LxLx(LxLx(Lx(LxLx(LxLx(LxLx(0LxLx x xL\po8op xmH pcL/wbL/weL/wdL/wgL/wfL/wfL/waL/w xmL/wyhIHa(yahIHL\pcLtwbLtweLtwdLtwgLtwfLtwfLtwaLtw xmLtw(%aaL\pcLwbLweLwdLwgLwfLwfLwaLw xmLw(EaaL\pcLwbLweLwdLwgLwfLwfLwaLw xmLw(aaL\pcL$xbL$xfL\pgfL\pffL\pafL\pcaL\pbaL\peaL\pdaL\pgaL\pfaL\pfaL\pcLvvbLvveLvvdLvvgLvvfLvvfLvvaLvv xmLvv(eaaL\pcLvbLveLvdLvgLvfLvfLvaLv xmLv(eaaL\pcLvbLveLvdLvgLvfLvfLvaLv xmLvya(8yahIHL\pdbL\pgbL\pfbL\pfbL\pabL\pceL\pbeL\pdeL\pgeL\pfeL\pfeL\paeL\pcdL\pbdL\pedL\pgdL\pfdL\pfdL\padL\pcgL\pbgL\pegL\pdgL\pfgL\pfgL\pagL\pcfL\pbfL\pefL\pdfL\pgfL\pffL\pafL\pcfL\pbfL\pefL\pdnį>~#^#VG +͛>_ d{ e{@k>{(]{_!~NV>###~#N>    o : ˼o ˼ Șe-oo ˼-s . ˼Șe-o ep0p#m n                          ":8:12:"A+ DISK MAGAZINE":10:16:"PRESENTS"U12:16::"BANK IT":eI1500:Iw15:19:"BY"17:11:"PSYCHOTECHNICS INC."23:22:"(C)COPYRIGHT 1983" I14000:I (4);"EXEC TELEMATH"7808a``d9ef4gcfdgecd`d;ef4gcfIdgec`TkcHbHgHfHbfcgb'c bc dbc  bc fa hfhghbhc`f8bfgcgfebfgecgTkTk`fgedde(` c fdge L fde L R (`dee(`f8bbgcc LbIbcIcebbcLGkmIk  GkFkmHk  Fk Gka` H 0 0h(`` -afhghbhc`eHad a ehe`aa7a7 7fH Ih)gfm7acHbH  0hbhcdg, 7 Ԙeffg`cHbH cgbf hbhc aLHbadhhbhca80a Li/aLcHbH bahbhc(` cfdge ef7`a7 7````Hde 0eded0de Zedb[ich(`` `@```````a a@a`aaaaab b@b`bbbbbc c@c`cd`e ded@e deed` 8dacHbHgHfHH  aH 0fLhbc 61hhH) "d7e 5hH) &d7e 5hhfhghdhehbhca`a aLq!7 t!7 aLqa aa`!7)cfcfcfcccLb!7)ccc&bLd%b``}Ek  Ek(`CkEk7?7L7777`a7 dI)?f 8&bc`BHh(`gHfH&,7H7f7g7hfa7CkDkhfhga`LU鰱0123456789\%X-?=.+ 268268268 LcHbHeHdHgHfH"f7gcH hccf7g b:7 a:7aLBa:7LB6f7g b;7 a;7aLBa;7hfhghdhehbhca La `cef(aiLeeLfaLa edLeLcоeaLdaa`\X+- 6?963=4%852.827410=7d>7ecbbd5k6`5k6L4666 6"66 6f`  f )1`6cf` f )1` L"cHbHeHdHgHfH"f7g  *f7g "79*727aQs2f7g b:7 a:7aLa:7ao6f7g b;7 a;7aLBa;7LB2gh`effg`ccaHHa6b665k6  66cHbH bf6cg6hbhc`a 0 6)a \ ,6P6ia Y%f6g6ͩ a 0 `a 06Lk6 0 a?,6 s06kmknLp6cІ GhhL GhhL  $-, IRc\61r)1001VJ000y0z00Ycr !b"#>#O###%a''+i-m-q-u-//ZLbbcc`j )`Hbfcgh`bc`de`fg`Hff'LLAkfmgfgkkxآI}3~Ѕ34omp  s0PRUW Xkmkn 4 %q777777Lp6 xl6L: (l  ̀+byczL(dyezL(fygzL(oypzL((feyfgezgfh)LCh HL\pzL~oypzL~hIH(fyfgzgfh)L~h IHL\pbyǑ,ǂ ,nj ,},nj,,nj+Ǒ++Ǒ+nj+Ǒ+ǂAPPLE II, II+, IIE". :16:16:"COMPUTERS"Q :23:23:"(C)COPYRIGHT 1984"b I14000:Ih | (4);"CATALOG"}d&n4:12:"A+ DISK MAGAZINE"\s6:1:"----------------------------------------"}x7:1:"VOL. 1";35);"NO. 1"}8:1:"----------------------------------------"10:10:"A LIBRARY OF SOFTWARE"12:17:"FOR THE" 14:11::"  PLAY cHbHeHdHaH hHbi@ɠ)a 0 hahdhehbhc`ece8bebccŒ`8Œb8Œcbѥd  L`eHdHgHfH  66c4kb5k66a6H;gHfH7k ;$=khdhe ;$7k $kck0#f`g "f`g?ff N" f 0hahfhg`e: a 0`cHbHeHdHgHfH  o0f aeH $hedeƒef"ga $daeHdH hdhec  s0hfhghdhehbhck`PUSH "RETURN" TO ݩ f`gk^a 0  0a 0 ^a 0 @f`gki^a 0 hahfhg`f`gka 0 ka 0 ^a 0"f0a 0 ^a 0@f !f^a 0 ka 0 ka 0 STARTS";@<6:29:"LEVEL OVER";FPSfSCSC25hp6:8:SC;" ";:SCSC100Q102(100NS):6:8:SC;" ":XCT1000NSĢ22:12:" OUT OF TIME! ";:(7);:9000b22:12:"TIME REMAINING:"(NS(CT1000));4:"!";:26:"!";::6:13:"/";:27:(92);R7:2:(DH$,11);:28:(DH$,11);p3:2:"HI GAME:";:GAME;GAME0Ė10:3:"---";4:2:"DIFFICULTY:";DF; 5:2:"LEVEL:";6:2:"SCORE:";3:27:"ENTER NUMBER"; (4:27:"AFTE)),1)J1N$"0"5015NNT$NT$N$:22:19:J$" "(154J):(J$,3):WPK1K117:24:8::"WATCH SCREEN CLOSELY PLEASE ";:(NT$,PK,1)"0"NT$(NT$,PK1)"1"(NT$,PK1)A$(K)(NT$,PK,K)PKPKKK,I13:I2:1TTLE LEAGUER"2 "JUNIOR HIGH","ALMOST DRAFTED"b "TAKING FRESHMAN MATH", "SUMMA CUM LAUDE"$ "WHIZ KID","COMPUTER GENIUS". "VISITOR FROM AN ADVANCED" ** RANDOM NUMBER GENERATOR AND PARSERNT$""J1153N$((((1)10$A$(Q)Ģ22:11:I15:(7);::" WRONG...YOU LOSE!";:9000JG$"":QVGAMESC22:11:" YOU DID IT! ":X11500::1000 :CL(C$):CL39ĺC$: CL(40(C$))2:(B$,CL)C$ I19:LV$(I):I:  "DROOLING INFANT","LI990:1211X%48X%5712709W17:WW(16336):C(7)QCTCT180uA$(X%):G$G$A$:(G$)Q1295 1270T1$"":T2$""R1(A$(Q))T1$(G$,R,1)(32):T2$T2$T1$R#Q2:H:T2$(G$A$(Q)ĺ(7):6020=2GI1(1500((DF9)100)):(CTCT700>Q2:H:(B$,HL)H7000h22:12:"TIME REMAINING:";wNTNS1000CTCT58:22:27:(NSCT1000);" ";:CTNT8990(16384)1281270X%(16384)128:16368,0X%01270 X%27İ5; 5000(7):(7)C24:1:(B$,38);:22:14:(B$,10)OQ117tT$"":TT$"":T1$"":T2$"":G$""5:8:Q;R1(A$(Q))T$(A$(Q),R,1)(32)TT$TT$T$:RAA$(Q)TT$Q2:HL(TT$):H((40HL)2)1:H:TT$S":*`15:9:"TO COMPLETE THE PYRAMID"Xe20:5:"HIT ANY KEY TO START THE GAME ";rjA$"":A$:A$""1130~:1:2:PM$2:1:(AS$,39);I121:2I:1:"*";:39:"*";:I:1:(AS$,39);21:10:(AS$,21)10:"*";(B$,19);"*":I12000:I:NS(10A)10:DFA1B:1:1:PM$bL7:5:(AS$,30):L$LV$(A):A9L$"VISITOR"QI18:5:"*";(B$,28);"*":I:5:(AS$,30)V9:18:"OK,"X11:L(L$):L((30L)2):L5::L$:[13:7:"YOU HAVE EXACTLY ";::NS;" SECONDELECT A LEVEL OF DIFFICULTY":&X5=I19:X:7:XX2iI;"..";LV$(I):I9Ė10:"CIVILIZATION"p I|24:20A$"":A$:A$""1055$A(A$):A1A91050)X3(2A):X:2::" --> ";A;". ";LV$(A):A9ĢX1:10:"CIVILIZATION" .BER":35709*C$"THE HIGHER THE LEVEL AND DEGREE":3570p4C$"OF DIFFICULTY, THE MORE POINTS YOU GET!":3570x>:RC$"HIT ANY KEY TO BEGIN THE CHALLENGE":3570:23:20pA$"":A$:A$""880CT01:1:PM$3:3::"PLEASE SKEY FOR THE REST !!":3570:23:39;A$"":A$:A$""730AG| 6:C$" THERE ARE 9 DEGREES OF DIFFICULTY":3570C$"THE HIGHER THE DEGREE THE LESS TIME":3570 C$"YOU HAVE OVERALL, AND THE LESS TIME":3570 %C$"YOU WILL SEE EACH NUM35705C$"HITTING THE ESC KEY. THIS WILL ":3570fC$"CANCEL ANY DIGITS ALREADY ENTERED":3570C$"FOR THAT LEVEL, AND YOU MAY START":3570C$"THAT LEVEL OVER":3570C$"BEWARE. . STARTING OVER LOSES POINTS!":3570"22:C$"HIT ANY MBERS THEMSELVES.":3570Ol22:C$"HIT ANY KEY FOR THE REST !!":3570:23:39hvA$"":A$:A$""630nu6C$"YOU CAN ALWAYS ASK THE COMPUTER":3570C$"TO SHOW YOU THE NUMBER AGAIN, ":3570C$"AS MANY TIMES AS YOU WANT, BY JUST ":LEVELS IN THE PYRAMID.":3570UXC$"EACH LEVEL IS HARDER THAN THE ONE BEFORE":3570ZC$"WHEN YOU ENTER NUMBERS DON'T WORRY":3570\C$"ABOUT HITTING THE RETURN KEY ":3570]C$"THE COMPUTER WILL DO THIS FOR YOU.":3570gC$"JUST ENTER THE NU$"YOUR JOB IS TO RE-ENTER THEM CORRECTLY":3570c 0C$"AND AS QUICKLY AS YOU POSSIBLY CAN,":3570 5C$"IN AN EVER-INCREASING PYRAMID.":3570 ?22:C$"HIT ANY KEY FOR THE REST !!":3570:23:39 DA$"":A$:A$""580 IN6:C$"THERE ARE 17 16384):16368,0! X20110007  ** INSTRUCTIONS= i 3:C$"I'M GLAD YOU ASKED . . . ":3570p 6 C$"THE COMPUTER WILL PRINT LONGER":3570 C$"AND LONGER NUMBERS ON THE SCREEN ..":3570 C$"BUT JUST FOR AN INSTANT!!":35700 &C1:1:PM$% 10:1:A4$:17:1:A4$P "FG1116:FG:1:"*":FG:40:"*":FGv 14:2:(B$,38):15:2:(B$,38) 13:5:"HIT ";::"'I'";::" IF YOU WANT INSTRUCTIONS;" 14:9:"ANY OTHER KEY TO CONTINUE" 16368,0:16384,128 X( H > > " d8:1:A4$( n16:1:A4$4 xW915R }W:1:"*":W:40:"*":Wz 14:8:"(HIT ANY KEY TO CONTINUE)" 11:16:" PYRAMID " I1350: 11:16::" MATCH ": I1350: X(16384):16368,0:X127210  ** PYRAMID MATCH **F  ** MODIFICATIONS BY RON WIENER\ 2:A$(20),AA$(20)t 7I140:B$B$" ": KDH$"-":I140:DH$DH$"-":I PAS$"*":I139:AS$AS$"*":I U3600 ZA4$AS$ ^250 _PM$" < < P Y R A M I D M A T C":8:12:"A+ DISK MAGAZINE":10:16:"PRESENTS"]12:12::" PYRAMID MATCH ":mI1500:I15:12:"BY PAUL SOMERSON"17:14:"PROGRAMMED BY"19:10:"OPPENHEIMER SOFTWARE"23:22:"(C)COPYRIGHT 1983" I14000:I            e de k da e $k0"~f+gda e $daee $kCcbʊc8bci0aUfag 0bi0aVfag 0k0#i0afag 0ki0aօfag 0kUd e d eca c5ܪZfagee e eeef0gHfHa?7 ?7 o0f*gdae $adee $adeۅf*g $(Hdea hc)8bђ߭kkk 6 (hhfhghdhehbhc6 s0H(`4177 f*gdea $dae $dae $dae $daӠ 8)aaђȄa8`&efegeef``THIS PROGRAM REQUIRES PADDLESTO PLAYPUSH "RESET" TO REBOOT THEDISK o0adebf'g $ade $ade $ade $L'6cHbHeHdHHdH   L&hdheH 8ha D @.-, 7pt 7 @ 7+d, 70_ 7 70h 7a, 7 7Э, 7P 7 7 &7 & 7ȩf7g 7fђ hdhehghf`qaiȱi8 8 aђa`)eHdh a  04kђȭ 5k%6Ly%6L%666 65k6 5k6Ly%ha`h666 7kf8kg %6 =kf>kg %Ly%fH`fh  f )1`fiefHegH7f 7 e=k $\L#7k ;$ $Lf$=kfdge ;$ $Lf$ bȥc $bfȥcga`ab4kchhahfhghdheH(`b ` a`Ha \L2%dȱe 0a  H a 0ha dȥeia ?kmknLphhK;" %Ej9 K?Bp2t\cO;X2@z2W3pzp5jm2L_k.As Ij6k2Sqj6vjWQONM5h6f7e8c9b:`:_<]=\>Z?Y@WAVBTDSEQFPHNIMKKMJNHPGRETDVBXAZ?]>_<b;d9g8j6m5q3t2x0|/-,Z(75421 0).3-=+G*S)_'l&{$#q#;f0{q#;f0Uy3z3z^H4# ~{xuspnkigeca_][ZXVUSR$$$--2?(*%!?$)-2 $$$-- $$ 666;?$$ 66,$$ 6>3 >$! # 63311 $$## >2--#!!!!??!??-x*;`*# ([tm;Af0{--- >7->7-$$ >? 6$$$--2? 6;? $$)-22;?$$$--266;7$$$--?*-$,-$-- $$)-2*6;?$$$ 6>? 6)%#$<(-(*- $$$$$ --#$$$$$! 666$$$211 $$$ $$)-266;?$$$--2? $$)-2619;?># --??--<:$ $ $$$(-- $$$ ,-- ?? --><6=2 *-.$*--9??7*--"LnJ15Lx5:F0:300:AA6L6:F0:300:AA6LJLM|AA6K2500*K$F0P$"@":300:AA6:K)J1200:JAK.CLK3F1ırK87:29A,B:4:29A,B2:7:7A,BxKBKF0K550KCF%(T,A,B)KC3C31ıKE2F1:KF1KA1E1K,F(T2,A)PF0K@AKTKP0ı LB01 JR 3500JW F1J\ $J B15=J S%(T2,A,B,0)23540KJ B::ERR^J S%(T2,A,B,0)1~J S%(T2,A,0,1)S%(T2,A,0,1)1J PS%(T2,A,B,2)J G(T22)G(T22)1J B6:B:B2:AT2J F0J T0G81F1J 500JC13KF0P$"&":300: I F0ıI 2400I A04I S%(0,0,0,1)0A1MI S%(0,1,0,1)0AA2[I A33400cI :mI 2900I "FIRE FROM SUB OR PT BOAT (S/P) ?";A$I A0I* (A$,1)"P"A1I4 (A$,1)"S"A2I> A0Ğ:"ENTER 'S' OR 'P'"::2700:3345JH AAH` 10,19:11,16:2806:4H 10,44:11,16:2806:GH( J((1)4)45[H2 10,J72:11,18gH< 2806:H 10,42:11,18:2806:H 10,62:11,18:2806:HT 10,52:11,18:2806:H F1:700H H 2800H :::"WANT TO FIRE A MISSILE";I 8000N8N81:N(N8,0)P:1860$GPH(D).G1300IGP0N6N61:N(N6,1)PTGPH(D)^G&1300yG0P0N6N61:N(N6,1)PGDDGvN91:N71GG10,160:11,15:2806:G410,210:11,15:2806:G10,3:11,17:2806:H. 10,173:11,17:2806:&F2B%(A1,B)16A10P(A1)100B:LF<B%(A1,B)16A1P(A1)100B:YFFR9.5ı}FxB%(A,B1)16B1PA100B1:FB%(A,B1)16B10PA100B1:FR9.51330FFN81:N61FH901910FD0H9FPH(D)F1200GP550 EP0=EB%(A1,B)8B%(A1,B)16A1P(A1)100BnEB%(A1,B)8B%(A1,B)16A10P(A1)100BEB%(A,B1)8B%(A,B1)16B1PA100B1EB%(A,B1)8B%(A,B1)16B10PA100B1EER9(R9)E550EP0E(R9.514000DR9(R9) DX(R910)1-D R9(R9)>DY(R910)1JDC099`D.B%(X,Y)161150D8AB%(X1,Y)B%(X1,Y)B%(X,Y1)B%(X,Y1)DBA3A0DLABPX100Y:BA:A500ıD~XX1:X10X1:YY1:Y10Y1DCDP0ij:ERRDE0:705C 550"CF%(F,A,B)3ı:CF0F%(F,A,B)1ıhCF%(F,A,B)31:P$">":AF:B0:500:F0:300nCxC 2900C%" (Y/N) ?";A$C*(A$,1)"Y"F1:850C4(A$,1)"N"F0:850C>:"ANSWER YES OR NO!";:CC2700CH800CRDB0:P166,18166,90BB:'B2900QB"ENTER A LETTER NUMBER POSITION=";A$bB(A$)2760qBA(A$)64BB((A$,(A$)1))BPA100BBA0A11B0B11780B::"WHAT???"B:"ENTER A LETTER/NUMBER PAIR SUCH AS 'A8'":C270200AJP100AM(J)0AJ((JM)100.5)=AB2540MAAM10M(A)ZABJ924`AoAAMM(AB)}A!BJ127:A&BP100A0A(B)A:B((BA)100.5)ADAX4A]:::AbA117164AlA,18A,158AvAA165,18165,90B/$@d 'SEA BATTLE'-LINE 23205*@nL@o FOR APPLE-DISK MAGAZINEf@x 48K APPLE WITH DISK}@ APPLESOFT IN ROM@9000@7@L31(P$)@F1Ē7:32A,B:4@((P$,L3,1))31A,B@AA6@L3@@,4@629A,BA@                     ff|ffx00000x xflxlf```bf8ll8ff|``xxff|lfxpx0000xx0l88lx00xƌ2fx`````x|xx8ll80llllllll0|x 00f8l8vv``0```0`00`f<7 4Lt4i`hȑh h @hh h`hh h)h`إEHHHiHhH=7h>7ihhhhi6 6<7<7Ek5k6Dkhhh@0xx00:zF&fV6vN.n^>~A!aQ1q I)iY9yE%eU5u M-m]=}C#cS3s K+k[;{G'gW7wO/o_?@@AABBCC(@@(AA(BB(CCP@@PAAPBBPCC    ȱȄ2 & &%)ȱ%iƍй77 7 7- 7惥 愥L1iL1hfhghh(`@ `P0pH(hX8xD$dT4t L,l\<|B"bR2r J*jZdL0gHfHcHbHbcf`g 61hbhcL07 7 b7c 78fg` fcgLV1HHgHfH8g`*7!Ff)FfL2L1ede7 L1 ȱ LU2f & & &ii8}ȱ}eȱe- 0a 0 .a 0ed dde0a 0L0e8db咅bcȱf  fi0a 0 .a 0 dL/7`` a`a QRT` PRUW`gHfHcgbf )1hfhg(`gHfHegdL0Haf )1h(`gHfHcgbf 0L0gHfHegeHdHiHhHgiHfhHhaa 8 a fg 3.dhhfhgHfHfgefdf􈄒fcb fdefgeig hfhghhhihdhe`cHbH f -a 0 fȱffi0a 0 cebdhbhc`cHbH fdȱfedga .gHfHf8effgecdba .hfhgL-edH!1&d&edfdege88dfdege defdeege&b&c&&h`Hcbd3b&cbcb&cb&cbebcecȱdebbch`Ha deaaeeffafgfffebbgeccah`hghdheh#k$kb2k3kdeSf-g@a $hH h8bHL+kbЙ THAT'S RIGHT YOU MISSED TIME'S UP! cHbHeHdHgHfHcHbH .hdhecHbH .hfhgJ7!de .hfhg .hdhehbhc`b8fbcgcaץcebdcb /.hfhbAhH#kd$ke^f-g@a $hH2kd3ke^f-g@a $L:-k kk L+%k%kk&kdeifigkHeHdHgHfHHdȱddefffg %Vhhfhghdheh­#k$kb2k3kdeFf-g@a $bhhfhghdhehbhca`hhf*** TEACHER OPTIONS ***PUSH NEW VALUE AND "RETURN"TO CHANGE - PUSH "RETURN"TO LEAVE AS IS OLD NEW --- --- RESPONSE TIMELOW RANDOM DIGITHIGH RANDOM DIGITcHbHeHdHgHfHaHk%kk kdȱe%k &kfȱgkckbhHa #:/eee kk`kd e d eca cۭa0:/de deca cۭa0:/œ afag 0څfag 0L*kk`PUSH "?" FOR HELPPUSH "RETURN" TO PLAYPUSH "RESET" TO REBOOT THE DISKAx16384,0:16385,0:16386,0?A103,1:104,64:175,1:176,64JA23:1aA(4);"RUN BSHIP";Mc @::+@ 8:12:"A+ DISK MAGAZINE "C@10:16:"PRESENTS"a@14:14::"'SEA BATTLE'"@17:5::"BY MIRROR IMAGES SOFTWARE INC."@19:4:"PROGRAMMED BY PHILIP KOOPMAN JR."@#23:22:"(C)COPYRIGHT 1983"@2106,8:105,36@n16385 ĠĠӺ˯ҠԠӺȱ `L# ȱŲ(u L?Ġ˯Ҡ ȱ0e%#` i` ȱ :`日\ `œ KHYYeiihe H 8 h   HJJJJ Lg h)  J HJJJJ L h K K( K`?źԠҠԠ٠ŠӠ ( ? ? :ɛL(ɆL]ɐ(Z ʅ  k ?υ LQL(д ?L ͱ ! K K):J1JĢ(JѢJJۢ J (0   !Hȱ?ҠԠٍҠҠŠҠϠ٠0Cɠ 0+ɠ  H e΅he΅0ɠ de΅Υ œhh :Lɺ鯐`YY X# k%Ȣ  ɛL]ɍ [ B d  Ͻu)?%)?PM)?(Z ͠˺?ԺJHh eJȥȥ`i۩ [ $C # X#䓐  L(?ϠӠ 䓰%i# K L$%# [$  B U$ [# K L:0WiȱŲ刱"ȱ…ʥ8 LŲЩ   `ȭ $H B  h$   :$ ?>#`ߢ ˱0U& Kȱ  L$ YY K J̱ !Х"ȱ䲐 ʥ :`iŲ i `?˺?Һ?к??̭ԠנˠӠ̭ϠŠΠՠҠ̭Р٠Ҡ٠ҠԠҠ̭ƠנŠH K )H h L   h` H)Тˢ hբe%# L :ɛL(ɔ# B [$ L ɐ   ɏL е L  X 08e%#  :ɛL(ɔ# B [$ Ldɐ   LɏL ж L )?%)?PM)?(` [!  B ZV :L Ӻé٠ŠЮө٠РٮźH [$ hL LdHHHe" 0ie8爩hhh`  X 0Ȅȱ ƕpLV  ) ȱŲ̩# B|  L(#]ȱŲTȱ ȩZ { ȥ(+ȱ`#ȱŲ i\` $ [) # X [     { 0 Q 0 0 ŲL(_ pip 0ȱL Y襕Y膓  d ZŗߩZ ȱ1J#$ȱŲ 0J Jк 日\ȱi# 0LZ L(ǠǠï?̠ٯ٠٠Ϡ̠Ǡ˯ҠӠ٠٠ϠϠΠ"ʆ po*H80hL h­L( "Ӡ٠٠Ϡ ȥȥȢeȄ҆Ȅ#ǩ [ B ȥio {Dʆ L( {ȱ 8ϭpŲp :/  L(L Aة / X [ߢ  ΅ R W  :  BL9Lx / XHLL L] [ $Ң  Xz  ɛɲ   ɛɲ   : ɍɛL( ))?P󠠠        12150 Q9Q2:"ENTER THE INCREMENTS AT WHICH YOU"fQ4:"WOULD LIKE THE ";H$;" AXIS SCALED."Q6:"THIS NUMBER SHOULD BE BETWEEN"Q:H10;" AND ";H2Q10:S2QS3(HS2)1Q1930Q S8S3QS7S2Q S9230Q*Q312910-R4000 P:PDM113PNS21PXHS24.619008PbMIPlS3(HS2)1zPv:"THE AUTOMATIC SCALER SUGGESTS THAT EACH"P:"DIVISION BE ";P$;S2;S$P:"THIS WILL RESULT IN ";S3;" DIVISIONS."P::"IS THIS ACCEPTABLE";PQ31P770QFLD BE BETWEEN TWO AND TEN" OMO"DIVISIONS ON THE AXIS WITH THE RIGHT-"yO:"MOST DIVISION HAVING A VALUE OF AT"O:"LEAST ";HOO&H1H10000Ğ:"OUT OF RANGE FOR AUTOMATIC SCALE"::1990P0 1,2,5,10,20,25,50,100,200,250,500,1000,26:9B:2:B;".":BNhQ30(NrC1T9KN|9C:4:K$(C):9C:28:L$(C)RNC[NT90eN1310N:"WANT TO CHANGE AN ITEM";NNQ202810NNB1T9NN(NB)HHN(NB)NNBN::"SCALING FOR HORIZONTAL AXIS."O:"THERE SHOU:"ENTER ONLY THE ACTUAL NUMBER"::14501MF17M=MLMT90T91wM"ITEM";6);"VALUE";17);"DESCRIPTION"MX1T9M"X2:X:X2:6:L$(X):X2:17:K$(X)M,XM6:"CONFIRM DATA IS CORRECT "M@770MJMTF12150N^:B1 L1530,L7:4:"LABEL":7:25:"VALUE"ZLT20:V9X:J0:HH4:620:W$""K$(X)W$rLK$(X)""G1F0:LK$(X)""ĺA$(X)LV9X:J0:T10:HH28:620:W$""L$(X)W$LL(L$(X))LA$(X)K$(X):N(X)LLL$(X)""F0:)ML0Ģ20::K(3:"ENTER DATA FOR THE BARS ON THE GRAPH."`K26:" A MAXIMUM OF SIX ITEMS MAY BE ENTERED."nK<XT916KF20:2:"PRESS RETURN WHEN LABELS ARE CORRECT."KP23:3:"PRESS (ESC) TO RETURN TO MAIN MENU"KZG1:1420KdF01530KnT9XKxX10:S$&JV20:T3:620:W$""S$W$,JHJ:"NUMBER PREFIX= ";P$dJ:"NUMBER SUFFIX= ";S$J:"THIS MEANS THAT THE NUMBER TEN WOULD BE"J:"PRINTED AS: ";P$;"10";S$J::"IS THIS CORRECT";J770:F01100J 2150JJQ21.E: '$'"@It:"ENTER BLANK LINE IF YOU DON'T":"WANT A PREFIX."PI~10:10:P$pIV10:T3:620:W$""P$W$I::"ENTER THE SUFFIX FOR NUMBERS DESCRIBING":H$I:"EXAMPLE: '%'"I:"ENTER BLANK LINE IF YOU DON'T":"WANT A SUFFIX."J20:** TITLE="::Q$H7H"*** VERTICAL LABEL="::V$=H`H"*** HORIZONTAL LABEL="::H$hH:H$:"ARE THESE DATA CORRECT";H.770H8F0ī870HB2150HLHVHH10H`::"ENTER THE PREFIX FOR NUMBERS DESCRIBING":H$Ij:"EXAMPLSHOULD DESCRIBE THE NUMBERS ASSOCIATED WITH THE LENGTHS OF THE BARS."VG21:10:H$G23:5:"PRESS (ESC) TO RETURN TO MAIN MENU"GHH9GV8:T38:620:W$""Q$W$GV14:T20:620:W$""V$W$GV20:T30:620:W$""H$W$GH"*TER A TITLE TO BE PLACED AT THE TOP OF YOUR BAR GRAPH."FFz9:10:Q$F11:4:"ENTER THE VERTICAL AXIS LABEL. THIS SHOULD DESCRIBE THE GENERAL CATEGORIES OF THINGS YOU ARE GRAPHING."F15:10:V$FG17:4:"ENTER THE HORIZONTAL AXIS LABEL. THISeb؀ G [[ uSb< t,ar<sAC[< ubJim Cauthorn, 10-11-83[ u*^ b! RZYbbSeb؀ I17:DS$(I):I{ \I112:MS$(I),DS(I): I17:NL(I):I   ** DAYS BETWEEN TWO DATES ** 17:3:AD$"" "FIRST DATE (MM/DD/YYYY): ";AD$AD$""Ģ17"  "WEDNESDAY"$  "THURSDAY"3  "FRIDAY"D  "SATURDAY"Y  "JANUARY" ,31m  "FEBRUARY",28~ & "MARCH",31 D "APRIL",30 N "MAY",31 X "JUNE",30 b "JULY",31 l "AUGUST",31 v "SEPTEMBER",30  "OCTOBER",31  "0 15:28:A$f A$"1"A$"2"A$"3"A$"4"Ģ17:7:"1, 2, 3 OR 4 PLEASE":I11000:I:390 (A$)940,1490,1910,2830 350  **INITIALIZATION DS$(7),MS$(12),DS(12),NL(7) CL$(5,7)  "SUNDAY"  "MONDAY"  "TUESDAY1 7:1:"1. NUMBER OF DAYS BETWEEN TWO DATES."V 9:1:"2. WEEKDAY OF ANY DATE." "11:1:"3. CALENDAR FOR ANY MONTH." T13:1:"4. EXIT." ^15:7:"PLEASE ENTER CHOICE: " 17:6:(B$,40):15:28:" ":15:28 A$"":A$:A$""ī40I13500:I, ** THE PERPETUAL CALENDARM 2B$" ":I1100:B$B$" ":Ip <AS$"*":I1100:AS$AS$"*":y d430 i k n1:18:"THE" 3:11:"PERPETUAL" 3:21:"CALENDAR" 1:18:"THE" 3:11:"PERPETUAL CALENDAR" ":8:12:"A+ DISK MAGAZINE":10:16:"PRESENTS"`12:11::"PERPETUAL CALENDAR":pI1800:I15:12:"BY MORRIS EFFRON"""18:14:"PROGRAMMED BY"20:10:"OPPENHEIMER SOFTWARE" 23:22:"(C)COPYRIGHT 1983":     # Y22000Y22400Y22800L21W FYY1:FMM1:FDD1:FLL1:LYY2:LMM2:LDD2:LLL2 PR0FYY2:FMM2:FDD2:FLL2:LYY1:LMM1:LDD1:LLL1 NYLYFY:NY0TD(NY365.25)365 I17 NL(I)FYNL(I)LYTDTD1 I LM103345 1:*v ** COMPUTES DAYS BETWEEN DATES8 PR0:TD0I Y1Y2PR1` Y1Y2M1M2PR1} Y1Y2M1M2D1D2PR1 L10:Y1100(Y1100)ĭY14(Y14)L11 Y12000Y12400Y12800L11 L20:Y2100(Y2100)ĭY24(Y24)L21,6) (AD$,3,1)"/"ı1 (AD$,6,1)"/"ıT0 Y((AD$,4)):Y1800Y2800ı: LP0:Y100(Y100)ĭY4(Y4)LP1D Y2000Y2400Y2800LP1I M((AD$,2)):M1M12ıN MXDS(M):M2LPMX29X D((AD$,4,2)):D1DMXıb OK$"":A$:A$""2730: 21:1:(B$,40):23:1:(B$,39)O 20:1:(B$,40)Y 1980_ e ~ ** DATE VALIDATION OK0 AL(AD$):AL103090 (AD$,2,1)"/"AD$"0"AD$:ALAL1:AL103090 (AD$,5,1)"/"AD$(AD$,3)"0"(AD$:S20ĺ(B$,S2);1 DS$(I);:S30ĺ(B$,S3);8 IG "*":3480Q 3540\ I15f " ";| J17:CL$(I,J);( J:"*"F J15:3480:Jd I5İ3540:In " ";(AS$,78) (12):0 23:5:"(PRESS ANY KEY TO CONTINUE)"; AMX98 STST1:CL$(5,ST)(CL$(5,ST),4)"/"(I)(B$,4)@B I]L LN(MS$(M2))((Y2))1V LN((80LN)2):(12):(B$,LN);MS$(M2);" ";(Y2)e  " ";(AS$,78) 3480:" "; I17:LD(DS$(I)) S110LD:S2(S12):S3S1S2 "*"; PPP @@@ @  @@? @@@ 8@00`"D 0 PPP @@@ @  @@? @@@ @ @@@@@@@@!`0 "AAAA @ !@@@@@@@AAA@@@@x@@ x @AAAAAAq@@ @@@@@@@@@@@@@@@@ @@@c`  @ @@@@ @@@x@ @  0 ?  @@@@@@@@@@@AAAAAA>@@@@@@@@@?@8@@>` 0 `84L4@@XdDdX$ $4LDL48Dx@8$ p 4LL48@@XdDDD08$@@DHPhD08hTTTTXdDDD8DDD8XddX@@4LL4Xd@@@8@88 p $DDDL4DDD(DDTT(D((DLL48| |   T$BB~BB|BB|BB|<  ||  "8<~~<??<~~<<~>???~~~~<8|||$$ۀ>>???><~~~~|8~<<~??~<     (2)):B0B1E7B0'ANNT(P$(3))XANNT0ANNT1E7GOODFALSE:ER(3)1:7130hPARSET(3)1|NUMPARNUMPAR17600(YY$)((YY$))(MM$)((MM$))GOODFALSE:ER(4)1:7200DUR(YY$)(MM$)12:N(YY$)12(MM$)DUR0FFPFP1PF$(F$,FPBC)&Z50400d" ";6nZX *** CHECK PARAMATERS ROUTINE|bI17:ER(I)0:PARSET(I)0:IlGOODTRUEvNUMPAR0A(P$(1))A0A1E7GOODFALSE:ER(1)1:7080PARSET(1)1NUMPARNUMPAR1B(P$20?T$"/"FPBC:FP:FL);:TEMP$" ":P$(PARLINE)" ":5010Q(T$)85160m(T$",")(T$"z")5060FPBCFL5040T$;F$F$T$ FPBCĺFL);FPFP15040(FPBC50402FPBC1F$"":" ";:FPBC:5040<" "; 70"F(PARLINE,1):F(PARLINE,2).TEMP$;5 KPARLINEPARLINE1\PARLINE7ıf4020 SCREEN EDIT SIMULATORF$""ROWF(PARLINE,1):BCF(PARLINE,2):FLF(PARLINE,3)FPBCROW:FP GOSUB 5240T$:T$(13)521ĺ" Y ";:3270" " ";PFQ$;" ";L "| PRINCIPAL | INTEREST | AMOUNT"{ "---------------------------------------" 34,11: WINDOW  ** ENTRY ROUTINEPARLINE1TEMP$P$(PARLINE):5000F$""4050P$(PARLINE)F$:40ATE: ";:F1$"##":F2$"###":VANNT:29000:O1$;" %";>l 5:26Sv "DUR : ";P$(4);^ 6:26m "FREQ: "; PFQ$"M"ĺ"MONTHLY";:3250 PFQ$"Q"ĺ"QUARTERLY";:3250 "YEARLY"; 9:1 " | CUMUL. | CUMUL. | PAY-OFF" CNSBACK SCHEDULE"5 6:"============================";& E0 4:1}: "AMT : $";:F1$"#######":F2$"##":VA:29000:O1$D "BLN : $";:F1$"#######":F2$"##":VB:29000:O1$N "PMNT : $";:F1$"#######":F2$"##":VP:29000:O1$X 4:263b "R2$"##":V(P$(6)):29000:O1$;:P$(6)O1$/ 5 ^ 5:"LOAN ANALYZER -- SPECIFICATION" 5:"=============================="   8:"MORTGAGE PAYBACK SCHEDULE" 8:"========================="   6:"INSTALLMENT PAY##":V(P$(3)):29000:O1$;:" %";:P$(3)O1$; F(4,1):1u"(3) DURATION OF BORROWING: ";P$(4);:34:" YY,MM "; F(5,1):1*" PAYMENT FREQUENCY: ";P$(5);" (M,Q,Y)";4F(6,1):1)>"(4) PAYMENT PER PERIOD: $ ";:F1$"#######":F BORROW: $ ";:F1$"#######":F2$"##":V(P$(1)):29000:O1$;:P$(1)O1$Z F(2,1):1 " FINAL BALLOON PAYMENT: $ ";:F1$"#######":F2$"##":V(P$(2)):29000:O1$;:P$(2)O1$ F(3,1):1,"(2) ANNUAL INTEREST RATE: ";:F1$"##":F2$"#0 23:1:"TOO MANY PERIODS, ... HIT A KEY ";K T$:23:1:958:1070[ PFQ11310k N601310u CNS1 TYPE$"M"İ3040:1330 (3080 23120 <19000 F3000 P9060 Z2000 d1070 n F(1,1):1K "(1) AMOUNT TOT$"Q"ė:' GOODFALSEMISS01070@ 11000: CALCULATEJ 2000T CNS0 23:1:"DETAILED PAYBACK SCHEDULE (Y/N) ? "; T$ T$(((T$,1))(((T$,1))97)32) T$"Y"T$"N"1210 T$"N"Ė1:958:1070 NPFQ601280L **** 3000 9000$ 8000. 20008 4000B $7000M .22:9m 8" , , , OR ";u BT$ LT$(((T$,1))(((T$,1))97)32) VT$(13)T$"C"T$"R"T$"Q"1090 `1:958 jT$(13)1050 tT$"R"1010 ~(7),ER(7),TABLE(60,3),PTABLE(420,3)/ :34,0@  9,30,10R ( 11,30,10c 2 13,32,6u < 15,28,5 F 17,30,1 P 19,30,10 ZFALSE0:TRUE1 dI16:F(I,1),F(I,2),F(I,3):I n x30070 31000  *** MAIN CONTRO-":8:12:"A+ DISK MAGAZINE":10:16:"PRESENTS"[12:13::"LOAN ANALYZER":kI1500:I15:12:"BY ZYNCON CORP."17:6:"PROGRAMMED BY JASON WINSHELL"23:22:"(C)COPYRIGHT 1983" I14000:I# F(7,3),P$(7),PARSET               9&~JF1$"#######":F2$"##":VTABLE(I,2):29000:O1$;" |";n&JF1$"#######":F2$"##":VTABLE(I,3):29000:O1$;&J(I12(I12))(ITSIZE)ĺ:19220&J24:10:",

, , ";&J24:28:T$&JT$(((T$,1))(((T$,1))97)32)'JT$"N"B%V@#%8J ** DETAIL REPORT ***.%BJ16000X%LJCNS1Ģ7:1:"ANNUAL CONSOLIDATION";%VJTYPE$"I"ĭLN1Ģ7:25:"(LINEAR DECLINE)";%`J:I1TSIZE%jJF1$"###":F2$"":VI:29000:O1$;"|";%tJF1$"#######":F2$"##":VTABLE(I,1):29000:O1$;" | ";M1):16380$?TSIZELM>$?TSIZE(TSIZE)TSIZE(TSIZE1)U$@TABLE(TSIZE,1)ABp$@TABLE(TSIZE,2)PNAB$@TABLE(TSIZE,3)B$$@PSIZEN$.@PSIZE(PSIZE)PSIZE(PSIZE1)$8@PTABLE(PSIZE,1)AB$B@PTABLE(PSIZE,2)PNAB%L@PTABLE(PSIZE,3)QLM16330 #?TABLE(JPFQ,1)CP6#?TABLE(JPFQ,2)CIL#?TABLE(JPFQ,3)POW#?16330i#?TABLE(J,1)CP{#?TABLE(J,2)CI#?TABLE(J,3)PO#?PTABLE(J,1)CP#?PTABLE(J,2)CI#?PTABLE(J,3)PO#?J#?CNS0TSIZEN:16380 $?LM(LM)TSIZE(L0*">LN0KI(NPAB)(N1J)T1:16140="?KI(NPAB)NI" ?KPPKIV"?CPCPKPc" ?CICIKIr"*?KPCN(KP)"4?KICN(KI)">?CPCN(CP)"H?CICN(CI)"R?POABCP"\?POCN(PO)"f?TYPE$"M"A1A1KP"p?CNS116300 #z?JPFQ(JPFQ)JPF5P$(5)PFQ$$!`,MISS6P$(6)(P)>!j,PARSET(MISS)1:MISS0D!t,_!> ** FILL IN TABLE **h!>CP0q!>CI0z!>A1A!>LMNPFQ!>T10!>TYPE$"M"16100!>T1N(N1)2!>LN0!>NT1(NPA)PLN1!>J1N">TYPE$"M"KIRA1:1614: CALC N +NCN(N)! +DURN> +DURDURPFQ:DURCN(DUR)I ,11310` ,30290: CALC Pm ,PCN(P) $, *** POST PROCESS CALCS ** ., *** POST PROCESS CALCS ** 8,MISS1P$(1)(A) B,MISS3P$(3)(ANNT) L,MISS4İ30000 !V,MISS+DURNPFQ: DUR = FN CN(DUR)5p+30480: CALC PBz+PCN(P)M+11310e+ *** MORTGAGE ***+MISS11170,11310,11200,11230,11310,11280+30160: CALC A+ACN(A)+11310+30190: NEWTON R+ANNT100RPFQ+11310 +302501:I140:(95);:Ix#4* *** CALCULATE ***I+TYPE$"M"11150w +MISS11030,11310,11060,11090,11310,11120+30350: CALC A +ACN(A)*+113104+30390: CALC R>+ANNT100RPFQH+11310R+30440: CALC N\+NCN(N)f00" B(#5:1:"INSTALLMENT LOAN OR MORTGAGE : (I/M)";:32\2#TYPE$:TYPE$""9010<#TYPE$(((TYPE$,1))(((TYPE$,1))97)32)F#(TYPE$"I")(TYPE$"M")9010P#TYPE$;d#5:1:958:"INSTALLMENT LOAN OR MORTGAGE : ";TYPE$;n#7:P$(4))1):7690)YY$(P$(4),1,CMPO1)BCMPO4MM$"":7690hMM$(P$(4),CMPO1,(P$(4))CMPO)n @ **** CLEAR PARAMETERSJP$(1)" 0.00"TP$(2)" 0.00"^P$(3)" 0.000"hP$(4)"00,00"rP$(5)"M"|P$(6)" 0.ISSING PARM **(MISS4NN(12PFQ);RANNTPFQ100PGOODTRUEİ2000Vv ** CHECK ON YY,MM FORMATCMPO0:I1(P$(4))(P$(4),I,1)","CMPOI:7640ICMPO0YY$P$(4):MM$"":7690CMPO1YY$"":MM$(P$(4),2,("1" I/TTER1ER(5)1GOODTRUE:7330:24:1E39);P24:1ZER$;g$ACN(A)x.DURCN(DUR)8PCN(P)BGOODFALSE7580LMISS0VI16`I27540jPARSET(I)0MISSI:7550tI~ ** MISS IS THE # OF MOK ":74208ER$"ERROR(S) IN PARAMETERS "CTTER0NI16`ER(I)07400pTTERTTER1I3ER$ER$"/""2":7400I4ER$ER$"/""3":7400I6ER$ER$"/""4":7400I5ER$ER$"/""FREQ":7400ER$ER$"/"1\PARSET(5)1%fNUMPARNUMPAR1ak(NPFQ12)(NPFQ12)(NPFQ12)ER(4)1:PARSET(4)0ppP(P$(6))zP0P1E7GOODFALSE:ER(6)1:7320PARSET(6)1NUMPARNUMPAR1NUMPAR4GOODFALSE:ER(7)1GOODTRUEER$"PARAMETERS GOODFALSE:ER(4)1:7200$300004 PARSET(4)1HNUMPARNUMPAR1W PFQ$P$(5)*PFQ$(((PFQ$,1))(((PFQ$,1))97)32)4PFQ$"M"PFQ$"Q"PFQ$"Y"GOODFALSE:ER(5)1:7280>PFQ$"M"PFQ12:7260HPFQ$"Q"PFQ4:7260RPFQyT$5yT$"N"SN%0:55y"SLOT NUMBER (1-6) ? ";=5yT$f5yT$(((T$,1))(((T$,1))97)32)5y(T$)1(T$)6311805yT$5ySN%(T$):Iv 4v FNIN(A,B,P,R)-4vN(AB)(PRA)34v:4v P4w FNIP(A,B,N,R)d4wP(ABRNA)Nj4w4y ** PRINTER INIT **4|y4y"DO YOU HAVE A PRINTER (Y/N) ?";4yT$4yT$(((T$,1))(((T$,1))97)32)4yT$"N"T$"Y"311305R(AB))1)(1R)3>v 3Hv 53Rv FNMP(A,B,N,R)[3\vP(AB)R(1R)N((1R)N1)RBa3fvh3pv 3zv ** CALCULATIONS FOR INSTALL 3v 3v FNIA(B,N,P,R)3vA(PNB)(1RN)3v3v 3v FNIR(A,B,N,P)3vR(PNBA)(NA)3v4LATIONS **2u (2u FNMA(B,N,P,R)h2uA(P(BR(1R)N)((1R)N1)RB)(R(1R)N((1R)N1))n2u2u *** NEWTON ROUTINE ***2uS1.12vF(S)0.1RS1:2 vSSF(S)G(S)2v302102 v 2*v FNMN(A,B,P,R)34vN(R(AB)(PRBMM$ 1lu81vu *** FUNCTION ROUTINES FOR CALCULATIONSU1uCN(X)(100X0.5)100p1u ** NEWTON FUNCTIONS1uF(S)AS(N1)(AP)SNBSBP1uG(S)A(N1)SN(AP)NS(N1)B1u: NO MORE TRUE FUNCTIONS1u 2u *** MORTAGE CALCU)O2$(F1$,(F2$)):29140;0qO2$F1$(F4$,(F2$)(F1$))K0qO2$"."O2$[0qO1$O1$O2$a0q00u *** CONVERT DUR BACK TO YY,MM0:uYY$((DUR))0DuMM$(((DUR(DUR))120.5))0Nu(YY$)2YY$"0"YY$0Xu(MM$)2MM$"0"MM$1buP$(4)YY$","((V)))(F1$)O1$((V)):29040K/fqO1$(F3$,(F1$)(((V))))((V))X/pqF1$(V)i/zqVI1(F1$)/q(F1$,VI,1)"."29100/qVI/qF2$""O2$"":29150/qF1$"0":29110/qF1$(F1$,(F1$)VI)/qF2$""O2$F1$:291500q(F1$)(F2$PTABLE(K,2):29000:O1$;2);"| ";V.bF1$"#######":F2$"##":VPTABLE(K,3):29000:O1$o.bK48(K48)25260~.bKN25400.b(12);::::20170.b .8cK.e.Hq ***** PRINT USING ####,####,VAL.RqF3$" ":F4$"000000000""/\q(a ** PRINTOUT DETAIL **6-aTYPE$"I"İ20000:25030A-a20025L-a20045W-a20170f- bK1PSIZE-b18);:F1$"####":F2$"":VK:29000:O1$;- b3);"| ";->bF1$"#######":F2$"##":VPTABLE(K,1):29000:O1$;2);"| ";!.fbF1$"#######":F2$"##":V. | CUMUL. | PAY-OFF "D,NPFQ$"Y"T$"YEAR ":20230g,NPFQ$"Q"T$"QUARTER ":20230y,NT$"MONTH ",O17);T$;,O"| PRINCIPAL | INTEREST | AMOUNT",O16);"----------------------------------------------------",$O-":VP:29000:O1$;3+fN12);"PAYMENT FREQUENCY: ";R+kNPFQ$"Y"ĺ"YEARLY":20090t+pNPFQ$"Q"ĺ"QUARTERLY":20090+uN"MONTHLY"+zNTYPE$"I"ĭLN1ĺ33);"(Linear Decline)":20100+N+N+N+N ** COLUMN HEADINGS **!,N22);" | CUMUL;"ANNUAL INTEREST RATE: ";:F1$"##":F2$"###":VANNT:29000:O1$;" %"*WN2);"FINAL BALLOON PAYMENT: $ ";:F1$"#######":F2$"##":VB:29000:O1$;*\N8);"DURATION OF BORROWING: ";:P$(4);" YY,MM"+aN5);"PAYMENT PER PERIOD: $ ";:F1$"#######":F2$"##================")4N::')9N(12);j)>N12);"L O A N A N A L Y Z E R -- MORTGAGE PAYBACK SCHEDULE")CN12);"======================================================")HN::)MN17);"AMOUNT: $ ";:F1$"#######":F2$"##":VA:29000:O1$;E*RN9):(13);(4);"PR# ";SN%:(9);"80N";:25000:(4);"PR# 0"D(ȭ & 'd'e&f&gbc'df .'fi fgigdideieL'`I1X1g1v11(<&`&f`*?{Rj*&?Ԗ#!"?p`&`&&`&yd`ef0gfdydideieLI&P'N' &P'iP'Q'Q'Q' -bc&f&g .a + ' &i m&&im&&i m&&im&&a +N'Ћ8ae ,ed e%a12 Qf%ged ,L$L/% `Do you want paddle clicks? 1 = yes; 2 = no > p&& %eHdehdeHdehde+a (- && p&&ί++ %L% % %` %` fH%fh% bc .`  -N -_ -N -N -L=$ `No paddles are present. Use APPLE keyboard.TELEMATH paddles are present. Use TELEMATH paddles only.Do you want sounds ? 1 = yes; 2 = no >3f%ged ,ed +cgbf Psychotechnics, Inc. Produced in USA. Serial Number 7714-00001 >f$gLc#kf$ged ,f$ged ,ed +cgbfed e%a1! 2L8$f$ged ,L# N -x i -_ -N 1"   +h +ihx N! :!LLxآ!I! :!**PRUW *L! B#f"ged ,`Copyright Psychotechnics, Inc., 1983 All Rights Reserved. Licensed Material. Program Property of >Â͡:>ġ:>̡!xآPRUW *A!B!xlA!A!B!`Ƣ ` ` C!xآ!I)}0~Y00 X,PRUW * f" a + :! X, I#a + $a + X,a +! :! !&( '( (   LY!00001"('ĜO{(k ʑ 4 Gŷ1xx(1,(͔+>*y, uCu+:iB(z*?#"?:>Ļ*?:?GÑ)*:>:?U<2?>*͖#ͨy,(:>=+G2>:>= 2>:><2? ,2       0:16385,0:16386,05A103,1:104,64:175,1:176,64EA23:1:" "kA23:1:(4);"BLOAD GRAPH.BINARY"A23:1:(4);"RUN BAR.GRAPH.GENERATOR"@ '@8:12:"A+ DISK MAGAZINE "?@10:16:"PRESENTS"^@(14:13::"'BAR CHARTER'"@217:5::"BY MIRROR IMAGES SOFTWARE INC."@<19:7:"PROGRAMMED BY DAVID WOLFF"@F23:22:"(C)COPYRIGHT 1983"@m105,51:106,8@n16385Ax16384, 6:9B:2:B;".":BNhQ30(NrC1T9KN|9C:4:K$(C):9C:28:L$(C)RNC[NT90eN1310N:"WANT TO CHANGE AN ITEM";NNQ202810NNB1T9NN(NB)HHN(NB)NNBN::"SCALING FOR HORIZONTAL AXIS."O:"THERE SHOU:"ENTER ONLY THE ACTUAL NUMBER"::14501MF17M=MLMT90T91wM"ITEM";6);"VALUE";17);"DESCRIPTION"MX1T9M"X2:X:X2:6:L$(X):X2:17:K$(X)M,XM6:"CONFIRM DATA IS CORRECT "M@770MJMTF12150N^:B1 L1530,L7:4:"LABEL":7:25:"VALUE"ZLT20:V9X:J0:HH4:620:W$""K$(X)W$rLK$(X)""G1F0:LK$(X)""ĺA$(X)LV9X:J0:T10:HH28:620:W$""L$(X)W$LL(L$(X))LA$(X)K$(X):N(X)LLL$(X)""F0:)ML0Ģ20::K(3:"ENTER DATA FOR THE BARS ON THE GRAPH."`K26:" A MAXIMUM OF SIX ITEMS MAY BE ENTERED."nK<XT916KF20:2:"PRESS RETURN WHEN LABELS ARE CORRECT."KP23:3:"PRESS (ESC) TO RETURN TO MAIN MENU"KZG1:1420KdF01530KnT9XKxX10:S$&JV20:T3:620:W$""S$W$,JHJ:"NUMBER PREFIX= ";P$dJ:"NUMBER SUFFIX= ";S$J:"THIS MEANS THAT THE NUMBER TEN WOULD BE"J:"PRINTED AS: ";P$;"10";S$J::"IS THIS CORRECT";J770:F01100J 2150JJQ21.E: '$'"@It:"ENTER BLANK LINE IF YOU DON'T":"WANT A PREFIX."PI~10:10:P$pIV10:T3:620:W$""P$W$I::"ENTER THE SUFFIX FOR NUMBERS DESCRIBING":H$I:"EXAMPLE: '%'"I:"ENTER BLANK LINE IF YOU DON'T":"WANT A SUFFIX."J20:** TITLE="::Q$H7H"*** VERTICAL LABEL="::V$=H`H"*** HORIZONTAL LABEL="::H$hH:H$:"ARE THESE DATA CORRECT";H.770H8F0ī870HB2150HLHVHH10H`::"ENTER THE PREFIX FOR NUMBERS DESCRIBING":H$Ij:"EXAMPLSHOULD DESCRIBE THE NUMBERS ASSOCIATED WITH THE LENGTHS OF THE BARS."VG21:10:H$G24:5:"PRESS (ESC) TO RETURN TO MAIN MENU"GHH9GV8:T38:620:W$""Q$W$GV14:T20:620:W$""V$W$GV20:T30:620:W$""H$W$GH"*TER A TITLE TO BE PLACED AT THE TOP OF YOUR BAR GRAPH."FFz9:10:Q$F11:4:"ENTER THE VERTICAL AXIS LABEL. THIS SHOULD DESCRIBE THE GENERAL CATEGORIES OF THINGS YOU ARE GRAPHING."F15:10:V$FG17:4:"ENTER THE HORIZONTAL AXIS LABEL. THIS:W$"":750EW$(W$,J)!EJ'E:E" (Y/N) ?";K$@E WE(K$,1)"Y"F1:nE (K$,1)"N"F0:E*:"ENTER YES OR NO!";::770E4E>D$"": CONTROL DEH::" ***BAR GRAPH GENERATOR***"ER::E\G60Ef7Fp6:4:"EN5X0:YY8DXN2Db#DlW$"".DvJ1TADV:HH1J:B$SD(B$)13760fD(B$)272150DJ1(B$)0ĖHH:V:E1T1:" ";:ED(B$)8JJ2:730D(B$)20(B$)93JJ1:750DV:HHJ1:B$DW$W$B$D750 EJ1J0P1CQ$,V$,H$&CX1T9:N(X):X IFM112:TDTDDS(I):I\ TDTDDS(FM)FDf FLFM3TD" `D$;"BLOAD M65,A$1100") b4362,B%6 d4364,C%P jD$;"BRUN REL,A$3800" RUN TELEMATH.9,A$3800" 8,A$6000"- 1100J XD$;"BLOAD BLUES,A$6000"T b1100q D$;"BLOAD CIRCL,A$6000"{ 1100 D$;"BLOAD CLOSE,A$6000" *1100 D$;"BLOAD DEPTH,A$6000" 1100 D$;"BLOAD DRAG1,A$6000" LD$;"BLOAD E65,A$5000  D$(4)A%(8201)+B%(8202):C%(8204)\dD$;"BLOAD TELEMATH.6,A$7000"fn1100LD$;"BLOAD TELEMATH.7,A$6000"`D$;"BLOAD TELEMATH.8,A$1100"b4362,B%d4364,C%jD$;"BRUN TELEMATH.9,A$3800" :d4364,C% jD$;"B --#!!!!?? --266;7$$$--?*-$,-$-- $$)-2*6;?$$$ 6>? 6)%#$<(-(*- $$$$$ --#$$$$$! 666$$$211 $$$ $$)-266;?$$$--2? $$)-2619;?$$$--2?(*%!?$)-2 $$$-- $$ 666;?$$ 66,$$ 6>3 >$! # 63311 $$## >2$!!(--  !!!!)%!$$;?26. !1)%#$$--#!) $;?2(*%!##!!?? !$$<::2--(*%!$;?$--(*%!?$ -!$!!!??)%! $;?296- $$;?2- !!  !###!!1--??!!!!##3  $;?2 $$)-2>7-??$$ >? 6$$$--2? 6;? $$)-22;?$$$ @  #+9EQ]js)6?GT]jw   $$ <36!< < ,1.?6(5 7 5 %( 1'#!!9'- $)2 ?$ $  $( ,!;'!9'+!1 +-%   NN%:(9);(1);(1);"80N";Mf3190^MTD32767TDTD32767:2180MWD((TD7(TD7))7.05)(TD7)MPR0WD7WD:2250MWD0WD7M23:5:"PRESS ANY KEY TO PRINT ";MA$"":A$:A$""2250N23:(B$,40);N$""N$"0"N$"1" LN%(N$)+L21:5HL"DATE (MM/YYYY): ";AD$kLAD$""Ģ18:1:B$:(B$,40):LAD$"0"AD$:AD$(AD$,7)LAD$(AD$,3)"01/"(AD$,4)L3050:OK2140L22:1:"BAD DATE. PLEASE RE-ENTER."L I11000:I!M1:21ALENDAR PRINT ROUTINE **IK18:5:"DO YOU HAVE A PRINTER (Y/N)? ";:T$YK18:34:T$jKT$"Y"1938K20:5:"NO PRINTER AVAILABLE"KI11000:IKI1722:(I):(B$,40):IK350K19:"ENTER SLOT NUMBER FOR YOUR PRINTER: ";N$L(WD):1755JWD$DS$(7)7J20:5:"THIS DAY IS A ";DJ:WD$:oJ22:3:"(PRESS ANY KEY TO CONTINUE)";JA$"":A$:A$""1800J17:1:(B$,40):19:1:(B$,40)J22:1:(B$,40):20:1:(B$,40)J:1530JvY11983:M11:D11K ** CK1670/I,19:3:"BAD DATE. PLEASE RE-ENTER."@I6I11000:IlIT19:3:(B$,40):17:3:(B$,30):1530IY2Y:M2M:D2DI3190ITD32767TDTD32767:1710IWD((TD7(TD7))7.05)(TD7)IPR0WD$DS$(7WD):1755 JWD0WD$DS$&Hn17:1:(B$,40):19:1:(B$,40);Hp21:1:(B$,40)fHs22:1:(B$,40):23:1:(B$,39):950H ** WEEKDAY DETERMINATION ROUTINEHY11983:M11:D11H17:3:AD$""H"DATE (MM/DD/YYYY): ";AD$HAD$""Ģ17:3:(B$,40):I"3050:OASE RE-ENTER."0GI11000:I:21:5:(B$,40)KG19:1:(B$,40):1100^GY2Y:M2M:D2DhG 3190G21:10:"THE NUMBER OF DAYS"G22:7:"BETWEEN THESE DATES IS: ";GFTDSGZ23:5:"(PRESS ANY KEY TO CONTINUE)";HdA$"":A$:A$""1380:1:(B$,30):"F3050:OK1090KF19:5:"BAD DATE. PLEASE RE-ENTER."mFI11000:I:19:5:(B$,30)F17:1:(B$,40):950FBY1Y:M1M:D1DFL19:2:AD$""F`"SECOND DATE (MM/DD/YYYY): ";AD$Fj3050:OK1260G21:5:"BAD DATE. PLENOVEMBER",30 E "DECEMBER",31IE 1900,2100,2200,2300,2500,2600,2700_E>I17:DS$(I):I{E\I112:MS$(I),DS(I):EI17:NL(I):IEE ** DAYS BETWEEN TWO DATES **E17:3:AD$""E"FIRST DATE (MM/DD/YYYY): ";AD$FAD$""Ģ17"D "WEDNESDAY"$D "THURSDAY"3D "FRIDAY"DD "SATURDAY"YD "JANUARY" ,31mD "FEBRUARY",28~D& "MARCH",31DD "APRIL",30DN "MAY",31DX "JUNE",30Db "JULY",31Dl "AUGUST",31Dv "SEPTEMBER",30D "OCTOBER",31 E "0C15:28:A$fCA$"1"A$"2"A$"3"A$"4"Ģ17:7:"1, 2, 3 OR 4 PLEASE":I11000:I:390C(A$)940,1490,1930,2830C350C **INITIALIZATIONCDS$(7),MS$(12),DS(12),NL(7)CCL$(5,7)C "SUNDAY"C "MONDAY"D "TUESDAY1B7:1:"1. NUMBER OF DAYS BETWEEN TWO DATES."VB9:1:"2. WEEKDAY OF ANY DATE."B"11:1:"3. CALENDAR FOR ANY MONTH."BT13:1:"4. EXIT."B^15:7:"PLEASE ENTER CHOICE: "B17:6:(B$,40):15:28:" ":15:28CA$"":A$:A$""ī40NSWERRIGHT ANSWER ISGET READY FOR NEXT PROBLEMIS THEWINNERCOINS AND BILLS WILL APPEARON THE SCREEN. ADD UP THEAMOUNT OF MONEY ON THE SCREENAND ENTER IT AS THE ANSWER.DON'T FORGET TO INCLUDE THEDECIMAL POINT IN YOUR ANSWER. IF YOU ARE FIRST WI>!> !>!>!>> _I#< *)nI# ED^#V#!R!`ͺՅ^#V+!R!`> \n~# 69# ܅ۅBANK IT! 'S A9!,  Ÿ́>&J %"*kTas9#r9!,  > !8~/w# ee>OC>OY>  „! `69# š™I# ­ ¬1m!:VNa  y> ' !!^oe> ͐>>>à !c\!N\!\!\!l\_oqo!1o`!0oeqo!1o> :qoŸô>@!> '>>̈́>&J %ك*kCas9#r6#6#w#w##6#q#p###{EýFoKo!o`PoUo!o`oo!!o`!oZo!_o`!K`@o҄! a҄!1`҄!`҄!2a҄ :oʄ>Æ>_G !\!\!\!ϋ\!\_owo!1o`!0oewo!1o> :wo>ô:o>@!!މ?!h=T]6!~=͐!a֊ ͬ!a ͬ*k!bs9#r9!!c6$9:oš*k!bs9#r9!!c6$9> !@o!ڱåw# ¥@o!Foց y    !d!k6<#6#6!"kHG]!„"k!k6!o6! >@^>S:ka!o6!k6#6##6#6!^o"k!#k6#6##6#6!^o",k!2k6#6!@ow# š>p#po ¢!pop#p#w#w!vop#p#w#w!op#p!op#p! op#p!0op#p!8!=`!>     TD1Vp FYLYı&Vu LLTDTD366:6Vz TDTD365:[V ** CALENDAR PRINT ROUTINES **eV " ";V K17:"*"(B$,10);:KV "*"V V " ";(AS$,78):V K17:(AS$,11);:KV "1LM1:TDTDDS(I):I,U NY2NY33370bU IFY1LY1:I100(I100)ĭI4(I4)TDTD1U I2000I2400I2800TDTD1U IU* LLLM2TDTD1U4 TDTDLDU= FM123420U> IFM112:TDTDDS(I):IU\ TDTDDS(FM)FDVf FLFM3TD"T Y22000Y22400Y22800L21VT FYY1:FMM1:FDD1:FLL1:LYY2:LMM2:LDD2:LLL2T PR0FYY2:FMM2:FDD2:FLL2:LYY1:LMM1:LDD1:LLL1T NYLYFY:NY0TD(NY365.25)365T I17T NL(I)FYNL(I)LYTDTD1T IT LM103345U I1:)Sv ** COMPUTES DAYS BETWEEN DATES7S PR0:TD0HS Y1Y2PR1_S Y1Y2M1M2PR1|S Y1Y2M1M2D1D2PR1S L10:Y1100(Y1100)ĭY14(Y14)L11S Y12000Y12400Y12800L11S L20:Y2100(Y2100)ĭY24(Y24)L216)R (AD$,3,1)"/"ı0R (AD$,6,1)"/"ıSR0 Y((AD$,4)):Y1800Y2800ıR: LP0:Y100(Y100)ĭY4(Y4)LP1RD Y2000Y2400Y2800LP1RI M((AD$,2)):M1M12ıRN MXDS(M):M2LPMX29RX D((AD$,4,2)):D1DMXıSb OKɍɍɍɍɍɍɍɵɍɍɍɍɍɵɍŧӠٍŠōנȍǍō٠ĠˍˠԍǍō٠ĠˍˠԍgL\p(fL\p(fL\p xmfL\paIaL\p xmo xmpL\p xmy xmzayL\popL\pf(fL\pf(fL\p xmfL\p(8L\p xmy xmzyaL\poopL\p(aL\p(aL\p xmaL\phIHL\pbcL\pecL\pdcL\pgcL\pfcL\pfcL\pacL\pcbL\pebL\a(8(faL\p xmd xmeL\padL\pdeL\p(eL\p(eL\p xmeL\p(&a((8L\pdaL\pddeL\p(dL\p(dL\p xmdL\p(fa((8L\p xmf xmgL\p xmy xmzfyȥgyL\pfgL\p(gL\p(gL\p xmgL\p xmy xmzyfȱygL\pff{xxv{y#z+y{xyv{y2x4y{x{%w{{1z{ex{ykw{{=y{~x{}w{y?zHy{xyw{yxQy{x}x{ xmb xmcL\pabL\pbcL\p(cL\p(cL\p xmcL\pa(8(&aL\pararh)q Lrq)HqL\pbaL\pbbcL\p(bL\p(bL\p xmbL\p$tu uuuu&u[p-u4u;uBuIuPuWu^u[peulusuzuuuuu[puuuuuuuu[puuuuuuuvp vvv"v)v0v7v>v[pEvJvOvTvYv^vcvhvvvvvvvvvvvvvvvvvvww wwww wCwHwMwRwWw\wawfw}wwwwwwwwwwwwwwwwwwwxx xxxxyzyyxymv{yy"yL-p ]zyyzymznhpH%HH(l{LDpv{|hqm fpHepH`fqHeqH` xLDpLDp[pdrur|rrrrrrzrrrrrrz ss"s+s2s9sCsrzzSsZsgsnsussvzssssss{zzsst tttz%t6tKtTt`tltvtzz|tttttt[ptttttttt[pt  J))NMT1:675NMT:KK1N:X$(J)" "X$(J):KKAJMJ014i3);L$(J1);30);X$(J)pJ3);"-----------------------------------"520I-------------------------"<l3:"STATISTIC";30);" VALUE"kv3);"-----------------------------------"sM6J014:X$(J)(S(K,J1))T0I1(X$(J))(X$(J),I,1)"."TI:I(X$(J))IT0665T(X$(J))T(X$( STATE ABBREVIATION."&EI11000:IPF2:" "G1:" "H1:4:"RE-ENTER STATE (OR Q TO QUIT): ";A$N530WX3:9);"DEMOGRAPHIC DATA FOR ";ST$(K):b3);"----------Y TYPING Q, FOLLOWED BY RETURN."R :4);"***PRESS ANY KEY TO CONTINUE***";:A$X  1:4:" ENTER STATE (OR Q TO QUIT): ";A$ A$"Q"ı A$"AA"A$"ZZ"580 K0 &I151 0A$ST$(I)KI:I51 :I ;K0599D2:"INCORRECT OPTIONAL--STATISTICS FOR SPECIFIED STATE; I11000:IA  8:4:"NOW YOU CAN EXERCISE THE OPTION OF LISTING THE STATISTICS FOR EACH STATE BYENTERING THE 2-LETTER U.S. POSTAL ABBRE-VIATION AND PRESS RETURN." 4:"YOU MAY END THE PROGRAM B I115 L$(I) I/ D$"OPEN ";FL$B D$;"READ";FL$N I151Z ST$(I)f J115r "S(I,J)y ,J 6I @D$"CLOSE ";FL$ J5:10:"DEMOGRAPHIC DATA FILE READ" NX$(14): VALUE FORMAT SEGMENT O505 Q24: T*  "MARRIED HOUSEHOLDS"6 "SINGLE SPOUSE HOUSEHOLDS"U "NON-MARRIED HOUSEHOLDS"v "# OCCUPIED HOUSING UNITS" "PER CAPITA INCOME 1980 $" "MONTHLY MORTGAGE" "MONTHLY RENT" ST$(51),S(51,15),L$(15) 3:10:"READING DATA." PHIC DATA FILE READER ** + F D$(4):FL$"DEMOSTAT"^ 2 "1980 POPULATION"w < "% CHANGE 1970-80" F "POPULATION DENSITY" P "% MALE" Z "% URBAN" d "% COLLEGE GRADS" n "MEDIAN AGE" x "# BELOW POVERTY LEVEL" '7:12:"A + DISK MAGAZINE">9:16:"PRESENTS"g11:10::"DEMOGRAPHIC DATA FILE":14:14:"PROGRAMMED BY"I11000:I16:14:"TRUMAN SANDS""" 23:22:"(C)COPYRIGHT 1984" I14500:I%  ** DEMOGRA                                ˍɍԍ֍ҍύ͍ڍ؍ԍčٍӍҍˍٍ΍̍ÍÍ̍čÍ֍ōӍōύčč̍ɍɍ΍ȍ΍ɍԍٍʍōȍԍ     (" "(D),3);:c3:HT:(" "(F),2);::20:2:S1$;:20:(6F):"^(FLAG)";::4:HT:(" "(P),2);::21:2:S1$;:21:(6P):"^(P.P.)";::5:HT:(" "(L),2);:6:HT:(" "(H),2);:6800:RCRC1:12:TH:I$::I$"1"I$"9"S(I$)2:FL0]\FL0Ğ:I$"1"I$"9"Ģ16:30:"";cfikp === UPDATE VARIABLES ===z:2:HT:(" "(I),2);:2:HT:(" "(I),2);:DD1:14:TH:(" "(I),3);:6700:D5Ģ15:TH:40,6550,6560:/  === STEP/SPEED CONTROL ===>FL15970 X1S:SC(16384):16368,0:SC127I$(SC128):I$" "FL1:5970*SC127I$"1"I$"9"S(I$)2:5980/SC127I$"M"Ľ:11004X:5980%R16:30::" ";:16:340,6070,6080,6090,6100,6110,6120,6130,6140,6150,6160:23:2:S1$:23:3:V6210,6220,6230,6240,6250,6260,6270,6280,6290,6300,6310,6320,6330,6340,6350,6360:24:2:S1$;:24:3:V6410,6420,6430,6440,6450,6460,6470,6480,6490,6500,6510,6520,6530,655800V13:5800:L055703PP1:V14:5800LV15:5800:PF5520aV16:5800:5560 === CHART HOUSEKEEPING ===: (STMT COUNT)RSRS1:11:TH:(" "(RS),3); (UPDATE / STATS / VARS)3V6010,6020,6030,6040,6050,60626I:V4:5800!P1:V5:58003LP:V6:5800GHLI:V7:5800zV8:A$(L)A$(H)SW$" ":5800:5640V8:A$(L)A$(H)SW$"":5800T$A$(L):V9:5800A$(L)A$(H):V10:5800A$(H)T$:V11:5800LLI:V12:(" "(I),3);Q15:3:"(# OF THIS PASS) ----------- = "(" "(D),3);d:16:2:S1$;j === DISPLAY ALPHABET ===":18:7:9000::| === SORT CONTROL ===I26:V1:5800I(I2):V2:5800V3:5800:I0ıF- T$ = "T$;O11:3:"(# OF STATEMENTS EXECUTED) - = "(" "(RS),3);12:3:"(# OF COMPARISONS MADE) ---- = "(" "(RC),3);13:3:"(# OF EXCHANGES MADE) ------ = "(" "(RE),3);14:3:"(# OF PLACES BTW'N ITEMS) -- = "RIPT) ------------ L = "(" "(L),2);i6:3:"(HIGH SUBSCRIPT) ----------- H = "(" "(H),2);7:3:"(LOW STRING) ----------- A$(L) = "A$(L);8:3:"(HIGH STRING) ---------- A$(H) = "A$(H);9:3:"(TEMP STRING) ------------2:1:VM$VL$" ";:2:40:VM$VL$" ";:i 2:3:"(INTERVAL) ----------------- I = "(" "(I),2); 3:3:"(END OF PASS FLAG) --------- F = "(" "(F),2); 4:3:"(PROGRESS POINTER) --------- P = "(" "(P),2);)5:3:"(LOW SUBSC$VL$VL$VL$VL$:VM$VM$VM$P n1:" VARIABLES " o10:" STATISTICS " p17:2:S1$; q18:2:S1$; r19:2:S1$; s20:2:S1$; t21:2:S1$; u22:2:S1$; v23:2:S1$;* x5200 5400 5100" 5500, 69006 1100S  === PAUSE TO START ===z :23:9:"PUSH ANY KEY TO START"; I$::I$(SC):16:30:"";:: P === DRAW SCREEN === Z: dVL$" "(10)(8):VM$VL$VL$VL$VL$VL$VLLL/METZNER SORTING ROUTINE <<";::: X116:X6210,6220,6230,6240,6250,6260,6270,6280,6290,6300,6310,6320,6330,6340,6350,6360::X 20:3::" (PUSH ANY KEY TO CONTINUE) ";:I$::  === SUPERVISE TRANS SORT === :8100 8200 )"TRANSPARENT SORT":C$(2)"NON-TRANSPARENT SORT":C$(3)"SORT LISTING":C$(4)"END PROGRAM"d j9200 tK5000,7000,3000,1500 ~1100  === END PROGRAM === :15:15:"> E N D <" X11000::20: === LIST SORT ===& :3::">> SHEp$2'<8:12:"A+ DISK MAGAZINE "?F10:16:"PRESENTS"aP14:12::"TRANSPARENT SORT"uZ17:19::"BY"d19:14:"JOHN SCHNELL"n23:22:"(C)COPYRIGHT 1983"xU14000:UL === MAIN MENU ===Z `TI$">>> MAIN MENU <<<":C4:C$(1             && 9200:K611003&0 K8300,8400,8500,8600,87009&: [&l === ALPHABET INTO ARRAY ===y&v X126:A$(X)(A$,X,1):& & === REVERSE ALPHABET ===& 8300:X113:TE$A$(X)& A$(X)A$(27X):A$(27X)TE$:& '4! === SCRAMBLED ALPHABET ENU FOR ALPHA SELECT ===8% TI$">>> ALPHABET MENU <<<"% C6:C$(1)"IN ORDER....... ALPHABET":C$(2)"REVERSED ORDER ALPHABET":C$(3)"SCRAMBLED ORDER ALPHABET":C$(4)"RANDOM LETTERS ALPHABET":C$(5)"SELECT YOUR OWN ALPHABET":C$(6)"RETURN TO MAIN MENU"6),D$(5,26)/$A$"ABCDEFGHIJKLMNOPQRSTUVWXYZ"`$S1$" "$TR$">>> THE TRANSPARENT SORT <<<"$I0:F0:P0:L0:H0:RS0:RC0:RE0:D0:SC3:SSC2:SH$"":T$"":X126:A$(X)"":$HT37:TH35$% === M === #VI26#`I(I2)%#jI0ı0#tF26I8#~P1@#LPJ#HLIa#A$(L)A$(H)7640n#T$A$(L)~#A$(L)A$(H)#A$(H)T$#LLI#L07570#PP1#PF7520#7560## === INIT VARIABLES === $A$(26),B$(26),C$(2 ";6"R9:6:" **** STARTED **** ";g"\7500:8:6:" **** FINISHED **** ";"f6:6:" ";:9000:" ";"p7:6:" FINAL SORTED ARRAY ";"z:12:6:" PUSH FOR MENU ";:I$":#L === NON TRANS SORT100 !l8200!v7200!!1100;!  --- NTS CONTROL ---C!*:m!42:6:" >>> REAL-TIME SORT <<< "!>4:6:" ORIGINAL UNSORTED ARRAY ";:5:6:" ";:9000:" "; "H10:6::" START SORT - PUSH ";:I$:10:6::" START SORT - PUSH CUTED = "(" "(RS),3);] :16:3:"TOTAL # OF COMPARISONS MADE = "(" "(RC),3); D17:3:"TOTAL # OF EXCHANGES MADE = "(" "(RE),3); N:20:5:" PUSH FOR MAIN MENU";:I$:: X === SUPERVISE NON-TRANS ===!b:8 ":5:5:" ";:X126:D$(1,X);::" ";c6:5:"PASS ";:"(RESULTS OF PASS) ";X25:5X:5:" "(X1)" ";:Y126:D$(X,Y);:Y:" ";:X&11:5:" (FINAL ORDER OF ARRAY) "; 015:3:"TOTAL # OF STATEMENTS EXE(L))L:"A$("(L)")^";:6H:"^A$("(H)")";C16:3:SW$;:X7:HT1:A$(L);m8:HT1:A$(H);}LXL:HXH: --- RESULTS TO SCREEN ---:22:6:" PUSH FOR FINAL DATA";:I$.::4:5:" ORIGINAL UNSORTED ARRAY ";:(, === STORE RESULTS OF PASS ===D6X126:D$(D,X)A$(X):J@n === UPDATE PTRS AND ARRAY ===:19:2:S1$;:17:2:S1$;:SC1Ģ18:6LX:A$(LX);:6HX:A$(HX);17:6L:A$(L);:6H:A$(H);:18:6L:" ";:6H:" ";019:2(CRIPT";:8"IF MORE THAN 0 TRY TO MOVE LOWER";:ySW$"SWAP YES"ĺ"P LESS THAN 0-MOVE TO NEXT HIGHER ITEM";:"NO EXCHANGE-MOVE TO NEXT HIGHER ITEM";:"IF POINTER PAST FLAG,THIS PASS DONE";:"PASS NOT COMPLETE,COMPARE NEXT PAIRTO POINTER";:6F"SETUP # OF PLACES BTW'N ITEMS";:`P"COMPARE LOW/HIGH ITEMS IN ARRAY";:Z"COPY LOW ITEM INTO TEMP STRING";:d"COPY HIGH ITEM INTO LOW ITEM";:n"COPY TEMP STRING INTO HIGH ITEM";: x"SUBTRACT INTERVAL FROM LOW SUBS COMMENTS ===9 " SET TO TOTAL ITEMS IN ARRAY";:e"/2 IS THE INTERVAL BTW'N ITEMS";:"IF INTERVAL=0,SORT IS COMPLETE";:("FLAG SIGNALS END OF THIS SORT PASS";:2"RESET POINTER TO START OF ARRAY";:<"LOW SUBSCRIPT SET = < = A$ (H) THEN 640";:2"590 T$ = A$ (L)";:P"600 A$ (L) = A$ (H)";:j"610 A$ (H) = T$";:"620 L = L - I";:"630 IF L > 0 THEN 570";:"640 P = P + 1";:"650 IF P > F THEN 520";:"660 GOTO 560";:  === LINE(6P):"^(P.P.)";:=8 === LINE STATEMENTS ===RB"510 I = 26";:pL"520 I = INT (I / 2)";:V"530 IF I = 0 THEN RETURN";:`"540 F = 26 - I";:j"550 P = 1";:t"560 L = P";:~"570 H = L + I";:"580 IF A$ (L):(" "(RC),3);:+9:HT:" "T$;:Y7:HT:" "A$(L);::17:6L:A$(L);::8:HT:" "A$(H);::17:6H:A$(H);::RERE1::13:TH:(" "(RE),3);:5:HT:(" "(L),2);:4:HT:(" "(P),2);::21:2:S1$;:21:񩓅󩣅4L8L/͌x&3И 5):10::C$(K);(,J$I8KK1:K1KCA,T$I21KK1:KCK1b,^$(K25):10::C$(K);:9260n,h$:I0:UENU SELECTOR ===+#&+$10:2:TI$G+$X1C:(X25):10:C$(X):+$20:5:"LEFT/RIGHT ARROWS FOR SELECTION";:22:6:"PUSH FOR YOUR CHOICE";+"$K1:(K25):10::C$(1);+,$I$:I(I$):I13I8I219260+6$I13ī9320,@$(K2;:12:5P1:" ^";::8750*V"I$(21)P126Ğ:10:6P1:A$(P1);::11:6P1:" ";:12:5P1:" ";::P1P11:10:6P1:A$(P1);:11:6P1:"^";:12:5P1:" ^";::8750*`"8750*j"*(# === DISPLAY ARRAY ===*2#X126:A$(X);:*<#+# === M:12:5P1:" ^";:*)."I$:I$(13)8810=)8"I$(32)1100)B"I$"A"I$"Z"A$(P1)I$::10:6P1:A$(P1);:12:5P1:" ^";::8750*L"I$(8)P11Ğ:10:6P1:A$(P1);::11:6P1:" ";:12:5P1:" ";::P1P11:10:6P1:A$(P1);:11:6P1:"^"6:"----------------------------";:4:6:"PUSH WHEN COMPLETE";(":10:7:9000::15:7:"LEFT/RIGHT ARROWS TO MOVE";:17:7:"PUSH ANY LETTER TO CHANGE";:19:3:"(SPACE-BAR) TO RETURN TO MAIN MENU)";)$":10:6P1:A$(P1);:11:6P1:"^";=== '>!8300L'H!X126:Y((1)(27X))X:TE$A$(X):A$(X)A$(Y):A$(Y)TE$U'R!X:r'! === RANDOM LETTERS ==='!X126:A$(X)(((1)26)65):'!'! === USER SELECT ALPHABET ==='":8300:P11I("2:6:"SELECT ALPHABET TO BE SORTED";:3:CL(CL):3CL)LX5,(1505LY)/QCL1:3CL:LX5,(1505LY):_VCTS0ıpI(SAVCTS)w0I2045730I2075690I2035710I1725670I765740I795700I755720!5680&XP5,150YPSE DIRECTIONAL PAD TO LOCATE START"E"XP28:YP15:LX28:LY15:5770c,5480:A$"N"İ5520:5420s65550:5240@XP5,(150YP5)J5770T(A$(13))(A$(27))ı^5420hA(16384):16368,0rA128A$"N":|AA128:A$(A)PYP1:5290,A$","YP0YPYP1:5290LA$"K"XP0XPXP1:5290gA$"L"XP55XPXP1(XPLX)(YPLY)CHGFALSELXXP:LYYP:3Y01505X02755X,YX,YVCTS0:CL1#21:1:"U"K")(A$"L")5050(VCTS10245050<CHGFALSE5050JP05170`(XP5,(1505YP)2VCTSVCTS1:SAVCTS,(A$)P128<5770F5050P:22:5ZP1ĺ"ON ";:5230d"OFF";n:xVCTS1024ı CHGTRUE:A$"O"YP30YION, , , P, E, OR F";B22:1:"PEN ";:P1:5200:5770L5480dA$"N"İ5520:5050n5550A$"P"P(P):5200:5050A$(32)İ5560:5050A$"E"ė::3000(A$"F")(A$(27))ı5240 (A$"O")(A$",")(A$BYTE,193,BSEC2642006@BSEC0PWR0:4190NJBSEC1PWR3:4190XTPWR6~^SH1BYTE,(SH1BYTE)SEC2PWRhBSECBSEC1rI|BYTEBYTE1SH1BYTE,0:3:CL1:5310:5390A$(27)ı:21:1"DIRECT80J44SECSEC2:40806J75SECSEC3:4080DSECSEC1rBSEC3BSEC0:BYTESBYTES1:SH1BYTE,0(SEC4)(BSEC2)BSEC0:BYTEBYTE1:SH1BYTE,0SEC0SEC04160BSEC0BSEC0:BYTEBYTE1:SH1BYTE,0 "(SH1)NNING";::4000P :3:1:0:1139,80:21:1:958:15:BYTE;" BYTES CREATED"y 1:868:I11500:I:IMEXISTTRUE:BSEC0:BYTES1:SEC0:958:SH1BYTE,0ISA1SAVCTSSEC0:J(I)J128SECSEC4:JJ128J79SECSEC0:40S%S%12300$S%1S%S%1.2300@LY0LYLY1J2300^LY159LYLY1h2300zLX0LXLX12300LX279LXLX10:1XP,YP R%:S% 2010  5000:A$(27)ı 21:1:958::"PLEASE WAIT, SCAS"I3:2140" A$"X"I4:21408 *A$"O"I5:2140N 4A$","I6:2140d >A$"K"I7:2140z HA$"L"I8:2140 R2030 \LX,LY:I2150,2170,2190,2210,2230,2250,2270,2290 fR%255R%R%1 p2300 zR%0R%R%1 2300S%255"DISK ERROR":9000:450J :3:21:1:958:LX139:LY80:0:1:R%0:S%1f 3:1LX,LY:XPLX:YPLY 21:1:868:"ROT =";R%;:10:"SCALE =";S%;:25:"DRAW AT ";LX;",";LY; A$ A$(13)ı A$"R"I1:2140 A$"C"I2:2140 A$"00,6000,7000,8000,20000 v450J :"SAVE TO FILE NAME >>";F$:F$""ı F$F$".SHAPE":(((F$,1,1))65)(((F$,1,1))90)ERMSS$"ILLEGAL FILE NAME FORMAT":9000:1060 1040 (4);"BSAVE ";F$;",A";SH;",L";BYTES:216,0: 216,0:ERMSS$ATA"" 0:"6. GROUP SHAPE FILES"5 ::"7. EXIT":h D(22):1:868:"CHOOSE# (1-7):";:C$:C%(C$) N(C%0)(C%8)610 X(20):580 b((C%2)(C%3)(C%5))(IMEXISTFALSE)ERMSS$"NO IMAGE DEFINED IN MEMORY":9000:580 l:C%3000,2000,10SA24576:SH25600:STSH4:10000:11000/ :\ :"THE FOLLOWING OPTIONS ARE AVAILABLE"n "TO YOU ..." ::"1. DEFINE NEW SHAPES (OLD LOST)" :"2. VIEW"::"3. STORE TO DISK" :"4. RETRIEVE OLD SHAPE FILE"::"5. PRINT DECIMAL POKE D":8:12:"A+ DISK MAGAZINE":10:16:"PRESENTS"[12:13::" SHAPE MAKER ":kI1500:I}15:19:"BY"17:13:"JASON WINSHELL"23:22:"(C)COPYRIGHT 1983" I14000:I ::F$(255)' FALSE0:TRUE1:IMEXISTFALSE:!! ! ! ! ! !!!!!!!!!""" " " " " "":W$"":750EW$(W$,J)!EJ'E:E" (Y/N) ?";K$@E WE(K$,1)"Y"F1:nE (K$,1)"N"F0:E*:"ENTER YES OR NO!";::770E4E>D$"": CONTROL DEH::" ***BAR GRAPH GENERATOR***"ER::E\G60Ef7Fp6:4:"EN5X0:YY8DXN2Db#DlW$"".DvJ1TADV:HH1J:B$SD(B$)13760fD(B$)272150DJ1(B$)0ĖHH:V:E1T1:" ";:ED(B$)8JJ2:730D(B$)20(B$)93JJ1:750DV:HHJ1:B$DW$W$B$D750 EJ1J0P1CQ$,V$,H$&CX1T9:N(X):X+A$:SN%(A$): N:NFORMATION."N A$:8290DX 216,0:ERMSS$"DISK ERROR":9000:450Rb (CHG)ı[l 450(#24:1::ERMSS$;:J12000::1::868:'232,ST256(ST256):233,(ST256)'ST,1:ST1,0:ST2,4:ST3,0:*8:"DO YOU HAVE A PRINTER (Y/N) ?";OF ";TS1;" SHAPES HAS":"BEEN SAVED."C& "STARTING ADDRESS :";STV0 "LENGTH :";LY: :"IT MAY BE BLOADED ANYWHERE, BUT YOU" D "MUST SET THE LOCATIONS E8,E9 HEX TO":"POINT TO THE BEGINNING OF THIS TABLE.":"CHECK YOU APPLESOFT BOOK FOR":"MORE IF$(I);",A";LXOLYLXST:ST2(I1),LY256(LY256):ST2(I1)1,(LY256)oLXLX(43616)256(43617)vI"SAVE TO FILE >>";F$F$""8290 LYLXST1:8280 (4);"BSAVE ";F$;",A";ST",L";LY:216,0& :"A USABLE SHAPE TABLE A";SH*|:0:1:1139,80:LX01000:LXK216,0:TSTS1:TS2568020U8090216,0:CHG1:ERMSS$"DISK ERROR":9000:8020TS0(CHG)ıTS0CHG450::TSTS1ST,TS1:ST1,0:LX22(TS1)STI0TS (4);"BLOAD";TING ADDRESS: ";SH$(4);"PR# 0"N::"HIT A KEY TO ESCAPE ...";:T$:h@:(4);"CATALOG":A$J:IMEXISTFALSE:10000:TS0:CHG0T:"SHAPE #";TS1;">>";:F$(TS):F$(TS)""8090hF$(TS)F$(TS)".SHAPE":8080r(4);"BLOAD";F$(TS);","DISK ERROR":9000:450*X:SN%07030Ib"SEND TO PRINTER (Y/N) ";klA$:(A$"Y")(A$"N")7020vA$;::A$"Y"ĺ(4);"PR# ";SN%"DECIMAL DATA POKES :":ISHSHBYTE1(I)" ";I:"LENGTH: ";BYTES"STAR24:1868G"VECTORS : ";VCTS;:25:"CURSOR: ";XP;" ";YP;:]p:(4);"CATALOG"zA$::"LOAD FILE>>";F$:F$""ıF$F$".SHAPE":6050(4);"BLOAD";F$;",A";SH216,0:IMEXISTTRUE:BYTE(43616)256(43617):216,0:ERMSS$51XP5,150(YP1)51)0YPYP1:5750R:XP5,150YP51XP5,150(YP1)51dDYPYP1:5750NXP51,150YP5(XP1)51,150YP5XXPXP1:5750bXP51,150YP5(XP1)51,150YP5lXPXP1vVCTSVCTS1:LXXP:LYYP5770: