' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` PP>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:;<=>?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 ü ü݌ ռ ռ ռ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- ( q Ϡ@跻~!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 ~(`F d ֠z# uPT FILE? ";Z$ FD$;"MON C,I,O"&F9FD$;"OPEN ";Z$LFD$;"READ ";Z$SFI^FA$(I)iFJ1IuF:A$(J)|FJFD$;"CLOSE ";Z$FD$;"NOMON C,I,O"7J` 37a:HIMEM40000:LOMEM17000bP$(20)cY$"GFEDCBAGFEDCBBBAGFEDCBAG(4): CTRL DFII14F"TYPE STRING #";I;": ";?FA$(I)TFA$(I)""18057ZFuF"WHAT FILE NAME? ";N$FD$;"OPEN ";N$FD$;"WRITE ";N$FI1FJ1I1F:A$(J)FJFD$;"CLOSE ";N$FD$(4): CTRL D F"NAME OF TEXMPO IN B.P.M.? ";TEMPO%:6:lBTEMPO%0TS%(TTTEMPO%)YmBK%(KB%):K%KP%ĹKR%,0:tnBT%(CS%):T%(16352)oBT%(CS%)pBT0TS%:qB17005OFPF 36ZF(24):(5)dF"WHICH FLOPPY-DISK COMMAND? ";I$nF6FA$(100):I0 FD$1010''TT1:T%(CS%):TB100000: 329: 33H:(24):(5)a:"DELETE WHAT? ";:7s:6:0:200:3:S%1:102:S%0:1010> 34>MO%0MO%1:16303,0:>MO%1MO%0:16304,0:hB 35iB(24)jBEE%kB"WHAT IS THE TEX9,Y:X9,Y3:X9,Y5-X8,Y:X8,Y43LX13,Y6:X13,Y8cX8,Y8:X8,Y3yX13,Y:X8,Y5X13,Y1:X8,Y4X13,Y5:X8,YX13,Y6:X8,Y1 29 30:600:100 31203:X11,Y3%X10,Y2:X8,Y2>X13,Y4:X11,Y4VX10,Y2:X8,Y2\vX13,Y4:X13,Y13X12,Y3:X12,Y2:X12,Y3X11,Y3:X11,Y2:X11,Y3:X11,Y4X10,Y2:X10,Y1:X10,Y4:X10,Y5X9,Y1:%:"[BPM%;" BEATS PER MEASURE"G\"1/";NPB%;" NOTE EQUALS A BEAT"Y]T11000::b 28yX9,Y7:X9,Y8X12,Y8:X12,Y7X13,Y3:X11,Y3X10,Y4:X8,Y4X13,Y2:X11,Y2X10,Y3:X8,Y3 X13,YKP% THEN A KEY HAS BEEN PRESSED(G 382H1000FEDCBA" d.eEE%868: CALL CLEARS LINE gKB%16384:KR%16368: KB% IS THE KEYBOARD READ ADDRESS, KR% IS THE ADDRESS FOR KEYBOARD RESETiCS%16336: CS% IS THE ADDRESS TO CLICK THE SPEAKER ONCEjSF%1000kTT60800lKP%127: IF KB%>T FILE? ";Z$ FD$;"MON C,I,O"&F9FD$;"OPEN ";Z$LFD$;"READ ";Z$SFI^FA$(I)iFJ1IuF:A$(J)|FJFD$;"CLOSE ";Z$FD$;"NOMON C,I,O"7J` 37a:HIMEM40000:LOMEM17000bP$(20)cY$"GFEDCBAGFEDCBBBAGFEDCBAG(4): CTRL DFII14F"TYPE STRING #";I;": ";?FA$(I)TFA$(I)""18057ZFuF"WHAT FILE NAME? ";N$FD$;"OPEN ";N$FD$;"WRITE ";N$FI1FJ1I1F:A$(J)FJFD$;"CLOSE ";N$FD$(4): CTRL D F"NAME OF TEXMPO IN B.P.M.? ";TEMPO%:6:lBTEMPO%0TS%(TTTEMPO%)YmBK%(KB%):K%KP%ĹKR%,0:tnBT%(CS%):T%(16352)oBT%(CS%)pBT0TS%:qB17005OFPF 36ZF(24):(5)dF"WHICH FLOPPY-DISK COMMAND? ";I$nF6FA$(100):I0 FD$1010''TT1:T%(CS%):TB100000: 329: 33H:(24):(5)a:"DELETE WHAT? ";:7s:6:0:200:3:S%1:102:S%0:1010> 34>MO%0MO%1:16303,0:>MO%1MO%0:16304,0:hB 35iB(24)jBEE%kB"WHAT IS THE TEX9,Y:X9,Y3:X9,Y5-X8,Y:X8,Y43LX13,Y6:X13,Y8cX8,Y8:X8,Y3yX13,Y:X8,Y5X13,Y1:X8,Y4X13,Y5:X8,YX13,Y6:X8,Y1 29 30:600:100 31203:X11,Y3%X10,Y2:X8,Y2>X13,Y4:X11,Y4VX10,Y2:X8,Y2\vX13,Y4:X13,Y13X12,Y3:X12,Y2:X12,Y3X11,Y3:X11,Y2:X11,Y3:X11,Y4X10,Y2:X10,Y1:X10,Y4:X10,Y5X9,Y1:%:"[BPM%;" BEATS PER MEASURE"G\"1/";NPB%;" NOTE EQUALS A BEAT"Y]T11000::b 28yX9,Y7:X9,Y8X12,Y8:X12,Y7X13,Y3:X11,Y3X10,Y4:X8,Y4X13,Y2:X11,Y2X10,Y3:X8,Y3 X13,YX9,Y:X9,Y3:X9,Y5-X8,Y:X8,Y43LX13,Y6:X13,Y8cX8,Y8:X8,Y3yX13,Y:X8,Y5X13,Y1:X8,Y4X13,Y5:X8,YX13,Y6:X8,Y1 29 30:600:100 31203:X11,Y3%X10,Y2:X8,Y2>X13,Y4:X11,Y4VX10,Y2:X8,Y2\vX13,Y4:X13,Y13X12,Y3:X12,Y2:X12,Y3X11,Y3:X11,Y2:X11,Y3:X11,Y4X10,Y2:X10,Y1:X10,Y4:X10,Y5X9,Y1:%:"[BPM%;" BEATS PER MEASURE"G\"1/";NPB%;" NOTE EQUALS A BEAT"Y]T11000::b 28yX9,Y7:X9,Y8X12,Y8:X12,Y7X13,Y3:X11,Y3X10,Y4:X8,Y4X13,Y2:X11,Y2X10,Y3:X8,Y3 X13,YHKR%16368: KB% IS THE KEYBOARD READ ADDRESS, KR% IS THE ADDRESS FOR KEYBOARD RESETiCS%16336: CS% IS THE ADDRESS TO CLICK THE SPEAKER ONCEjSF%1000kTT60800lKP%127: IF KB%>KP% THEN A KEY HAS BEEN PRESSEDmD$(4): DISKG 38 $FIFA$(I)FJ1I*F:A$(J)1FJEFD$;"CLOSE ";I$[FD$;"NOMON C,I,O"hTG5:1010n7Jw` 37a:HIMEM40000:LOMEM17000bP$(20)cY$"GFEDCBAGFEDCBBBAGFEDCBAGFEDCBA"deEE%868: CALL CLEARS LINE TgKB%16384:F5F1010FF5:eF"TO SEE THE CATALOG OF RECORDED MUSIC,:PRINT"ENTER";Q$;"C";Q$","F:"OR, JUST NAME THE TUNE.":F"WHICH WILL IT BE?";I$:I$""1010FI$"C"CAFD$;"MON C,I,O"FFD$;"OPEN ";I$FD$;"READ ";I050oFI$"I"18100sF1010dF5::P$(0)""ĺ"THERE IS NO FILE IN MEMORY":"TO PUT ONTO DISK"F::"WHAT IS THE NAME OF THIS MUSIC? ";TITLE$FD$;"OPEN ";TITLE$FD$;"WRITE ";TITLE$FJ120FJ1PMAXFJFD$;"CLOSE ";TITLE$B"WHAT IS THE TEMPO IN B.P.M.? ";TEMPO%:6KlBTEMPO%0TS%(TTTEMPO%)jmBK%(KB%):K%KP%ĹKR%,0:nBT%(CS%):T%(16352)oBT%(CS%)pBT0TS%:qB17005OFPF 36ZF(24):(5)dF"WHICH FLOPPY-DISK COMMAND? ";I$nFI$"O"181010''TT1:T%(CS%):TB100008}'I$"C"CAA: 32J: 33Y:(24):(5)r:"DELETE WHAT? ";:7:6:0:200:3:S%1:102:S%0:1010> 34>MO%0MO%1:16303,0:>MO%1MO%0:16304,0:hB 35iB(24)jBEE%,kX9,Y:X9,Y3:X9,Y5-X8,Y:X8,Y43LX13,Y6:X13,Y8cX8,Y8:X8,Y3yX13,Y:X8,Y5X13,Y1:X8,Y4X13,Y5:X8,YX13,Y6:X8,Y1 29 30:600:100 31203:X11,Y3%X10,Y2:X8,Y2>X13,Y4:X11,Y4VX10,Y2:X8,Y2\vX13,Y4:X13,Y13X12,Y3:X12,Y2:X12,Y3X11,Y3:X11,Y2:X11,Y3:X11,Y4X10,Y2:X10,Y1:X10,Y4:X10,Y5X9,Y1:%:"[BPM%;" BEATS PER MEASURE"G\"1/";NPB%;" NOTE EQUALS A BEAT"Y]T11000::b 28yX9,Y7:X9,Y8X12,Y8:X12,Y7X13,Y3:X11,Y3X10,Y4:X8,Y4X13,Y2:X11,Y2X10,Y3:X8,Y3 X13,YH1000KP% THEN A KEY HAS BEEN PRESSED(G 382H1000HTHE ADDRESS FOR KEYBOARD RESETiCS%16336: CS% IS THE ADDRESS TO CLICK THE SPEAKER ONCEjSF%1000kTT60800lKP%127: IF KB%>KP% THEN A KEY HAS BEEN PRESSEDmD$(4): DISKG 38 FEDCBA" d.eEE%868: CALL CLEARS LINE gKB%16384:KR%16368: KB% IS THE KEYBOARD READ ADDRESS, KR% IS THE ADDRESS FOR KEYBOARD RESETiCS%16336: CS% IS THE ADDRESS TO CLICK THE SPEAKER ONCEjSF%1000kTT60800lKP%127: IF KB%>  <"\:FBF:<<@@\bBb\\bb\@<:FBBB8 0 "" "8.TTTT>DDDD8DDD8:FF:\bb\@@:F|<@>>H0BBBb\BBB$DDTTlB$$BBBb\@<~ ~880(8DRj2x$B~BBB>DD
DDDDD>~~~BB>BB>"B$$$$$~$~$$x8P<F&db  R"\   T8|8T| ~-@ BB<~B > `B@0p W259 H(H@(w\y6?2hH@hH@ `X``hH@@ HH(h Hب@ pHH0@@H(`hH@h H@HxHH@@hH@H `p`hH8 ȸH0HH@H𠸸hC0   p؈88888X xph` X (PhHH0(H` PX X@`XHX (08@HPX`hpxS THE ADDRESS FOR KEYBOARD RESET^iCS%16336: CS% IS THE ADDRESS TO CLICK THE SPEAKER ONCEkjSF%1000xkTT60800lKP%127: IF KB%>KP% THEN A KEY HAS BEEN PRESSEDD$(4): DISK1000HCLOSE ";I$ FD$;"NOMON C,I,O"-TG5:101037J:nC` 37aa:HIMEM38000:LOMEM18000mbP$(20)cY$"GFEDCBAGFEDCBBBAGFEDCBAGFEDCBA"deEE%868: CALL CLEARS LINE gKB%16384:KR%16368: KB% IS THE KEYBOARD READ ADDRESS, KR% I CATALOG OF RECORDED MUSIC,:PRINT"ENTER";Q$;"C";Q$","XF:"OR, JUST NAME THE TUNE.":F"WHICH WILL IT BE?";I$:I$""1010FI$"C"CAFD$;"MON C,I,O"FFD$;"OPEN ";I$FD$;"READ ";I$FIFJ1IF:P$(J)FJ FD$;"""ĺ"THERE IS NO FILE IN MEMORY":"TO PUT ONTO DISK"gF::"WHAT IS THE NAME OF THIS MUSIC? ";TITLE$~FD$;"OPEN ";TITLE$FD$;"WRITE ";TITLE$FJ120FJ1PMAXFJFD$;"CLOSE ";TITLE$F5F1010FF5:5F"TO SEE THEBTEMPO%0TS%(TTTEMPO%):mBK%(KB%):K%KP%ĹKR%,0:UnBT%(CS%):T%(16352)coBT%(CS%)rpBT0TS%:}qB17005OFPF 36ZF(24):(5)dF"WHICH FLOPPY-DISK COMMAND? ";I$nFI$"O"18050oFI$"I"18100sF10104F5::P$(0)1010: 32: 33):(24):(5)B:"DELETE WHAT? ";:7T:6:0:200:3m:S%1:102:S%0:1010v> 34>MO%0MO%1:16303,0:>MO%1MO%0:16304,0:hB 35iB(24)jBEE%kB"WHAT IS THE TEMPO IN B.P.M.? ";TEMPO%:6l  !!!!!!!"""""""#######  0/+& @>:2(PNH?2#`^VK<*ĵpmeXF1Ϻ8Pds}1FXemp*@ &+/0  )e     h=u_L8y_H.QQadcaZcZ_cg` Lֆ ׆8stijRLghLDBC؆>ن?s?ɍH) @ { ?hLƞƠeEgiEh8iejegeheeȪi LZ Aȥ ȪІ0 Յ A&    p`P@0  0@P`p   0@P`pp`P@0    0@P`p L? ?>?ɍH) @ {    7W259 H@(2|w\y6?22222h0hH@hH@ `X``hH@@ HH(h Hب@ pHH0@@H(`hH@h H@HxHH@@hH@H `p`hH8 ȸH0HH@H𠸸hH(000@ p؈88888X xph` X (PhHH0(H` PX X@`XHX (08@HPX`hpxE MODE d:936 nD$(4)I xD$;"BLOAD HI-RES CHARACTER GENERATOR"i D$;"BLOAD CHARACTER TABLE" :TURN-ON HIRES SCREEN 0:0:54,0:55,96:INITIALIZE HIRES CHARACTER MODE A$:A$""İ30:170 D  216,01005** CASE CONVERTER SUBR. **O(I$"":J1(A$):L322L$(A$,J,1):L$"@"L$"&"JJ1:L064(L$"&")<I((A$,J)):I("A")I("Z")L0F(IL);:J:PI$I$(IL):J:I$;: ZREMOVE LINE 35 FOR LINE-AT-A-TIM E%V_DEEIADUYQTW^dY\Zd^haddhQQPTVSGc?[MEYQH@TL?[7S68: KB% IS THE KEYBOARD READ ADDRESS, KR% IS THE ADDRESS FOR KEYBOARD RESETcCS%16336: CS% IS THE ADDRESS TO CLICK THE SPEAKER ONCEdKP%127: IF KB%>KP% THEN A KEY HAS BEEN PRESSED/G::" /JIINDH=B8<@9/25+8'4+.84@@A@BE6X<^A7OFE;SJ+N1TD$;"READ ";Z$J3I::U4A$(I)`5J1Il6:A$(J)y7J:::8D$;"CLOSE ";Z$9D$;"NOMON C,I,O": EACH A$ = SHAPE EACH GAME = FILE NAME` DIMENSION & DEFINE aE 9`   ` @)?WRP`kiliFGtuki/likiVliki}li}~kiliki˪likilikiliki@li`e8rde.?r.?̥)}))}Ce8FL` 9 0%`8J E0 FE 8׭ 0V`}`/`V```<`=8J E FE 68ea8@aLo 0'`8J E0 FE 8L   CL)?)@)A)B?@}AB88}?@y}Le)?)@)A)B?@}AB88}?@y}L)?)@)A)B?@}AB88}?@y}L)T@ U & .`.`Ee)@ EZ\ I^x 9N =R<c)ec@ \ x  =)@ \ x     C8Ii<=?0>e<=>=>DDLWCFL`>e=<><>DDLEe8 F`I E  C8Ii<8Ii=p><=?0>e<=>=>D]DLlCFL`>e=<><>D]DLL      !$'*-0  $(,048<@ #(-27<=?0>e<=>=>D]DLlCFL`>e=<><>D]DLL      !$'*-0  $(,048<@ #(-27:2(PNH?2#`^VK<*ĵpmeXF1Ϻ8Pds}1FXemp*@ &+/0  T     p7W259H(H@(|w\y6?2بHH h0hH@hH@ `X``hH@@ HH(h Hب@ pHH0@@H(`hH@h H@HxHH@@hH@H `p`hH8 ȸH0HH@H𠸸hC0@8 XP`@ p؈88888X xph` X (PhHH0(H` PX X@`XHX (08@HPX`hpx      9`   ` @)?WRP`kiliFGtuki/likiVliki}li}~kiliki˪likilikiliki@li`e8rde.?r.?̥)}))}Ce8FL` 9 0%`8J E0 FE 8׭ 0V`}`/`V```<`=8J E FE 68ea8@aLo 0'`8J E0 FE 8L   CL)?)@)A)B?@}AB88}?@y}Le)?)@)A)B?@}AB88}?@y}L)?)@)A)B?@}AB88}?@y}L)T@ U & .`.`Ee)@ EZ\ I^x 9N =R<c)ec@ \ x  =)@ \ x     C8Ii<=?0>e<=>=>DDLWCFL`>e=<><>DDLEe8 F`I   <"\:FBF:<<@@\bBb\\bb\@<:FBBB8 0 "" "8.TTTT>DDDD8DDD8:FF:\bb\@@:F|<@>>H0BBBb\BBB$DDTTlB$$BBBb\@<~ ~880(8DRj2x$B~BBB>DD
DDDDD>~~~BB>BB>"B$$$$$~$~$$x8P<F&db  R"\   T8|8T| ~@ BB<~B > 60HH0>>>***>"6*""">$ 88>>>>*>><> ?:{>  `H XN7<6NWRU@ TPhhHNɍ-Ɍ+*+*++8 $%ll%J) +%j )* * (je$*h-HJJJ'hH*&'*&'*&')&&OH**hQ**O+i+$$! $%%#"%Nh`  PROGRAM.DINCLUDED SO YOU CAN BETTER UNDERSTAND THE ALGORYTHM.YOU CAN PARSE EACH LINE AND THEN PRINT IT OUT BY DELETING LINE 35, THEREBY USING LINE 40'S PRINT ROUTINE INSTEAD. PLEASE READ THE VARIOUS REM STATEMENTS SCATTERED THROUGHOUT THE UNLESS K<>0, IN WHICH CASE THE CHARACTER WILL BE CONVERTED TO A CONTROL OR LOWER CASE.^ THE SUBROUTINES AT LINES 10 AND 1000 ARE USED IDEN-TICALLY. LINE 10'S IS MUCH FASTER BUT DIFFICULT TO UNDERSTAND. THEREFORE, LINE1000'S8HAS BEEN L0:IF AN @ IS FOUND, INCREMENT J AND ALLOW NEXT CHARACTER TO REMAIN UPPER CASE.K0:((A$,J))64((A$,J))91KL:IF AN ALPHA CHARACTER, MAKE K= L INSTEAD OF 0 (SEE NEXT STEP)WI$I$(((A$,J))K):J:I$::CHR$ WILL EQUAL ORIGINAL CHARACTERONTROL CHARACTER FORMATo I$"":J1(A$):L32:I$= NULL:LOOP:DEFAULT ON ALPHA CHARACTERS IS LOWER CASE (A$,J,1)"&"JJ1:L64:1040:IF AN & IS FOUND, INCREMENT J AND CONVERT NEXT CHARACTER TO A CONTROL CHARACTER.Q(A$,J,1)"@"JJ1:E WITH DOS (IF BEING USED) ENABLED.? * CONVERT UPPER CASE *W A$= DESIRED STRINGo WITH AN "@" BEFORE EACH CAPITAL LETTER AND AN "&" BEFORE EACH CONTROL CHAR. GOSUB 10 OR GOSUB 1000 WILL PRINT OUT A$ IN UPPER-LOWER-CNCTION @Y=SIN(@X) FROM 0&O TO 2.5&O.":10:LOWER CASE IS DEFAULT MODE. PRECEED UPPER CASE WITH A "@" AND CONTROL CHARACTERS WITH A "&". THEN GOSUB 10 TO PRINT 20:6:A$"&C 1978 @APPLE @COMPUTER @INC.":10# 976::LEAVE USER IN HIRES CHARACTER MODY(X31.415)50 X,68Yl X50(X50)210:IF X IS NOT A MULTIPLE OF 50 THEN JUMP TO END OF LOOP X,18X,118:DRAW VERTICAL LINE 188:X71 X100;(15);:PRINT X/100 (CTRL-O) X:LOOP UNTIL GRAPH DONE 18:1:A$"@SINE FUE MODE <:936 FD$(4)I PD$;"BLOAD HI-RES CHARACTER GENERATOR"i ZD$;"BLOAD CHARACTER TABLE" d:TURN-ON HIRES SCREEN n0:0:54,0:55,96:INITIALIZE HIRES CHARACTER MODE x0,68250,68:DRAW ZERO LINE 3 X0250:MAIN LOOP 216,0604** CASE CONVERTER SUBR. **N I$"":J1(A$):L32L$(A$,J,1):L$"@"L$"&"JJ1:L064(L$"&")I((A$,J)):I("A")I("Z")L0#(IL);:J::(I$I$(IL):J:I$: -REMOVE LINE 35 FOR LINE-AT-A-TIM     X6,C%30:X4,C%306X6,C%31:X3,C%31QX4,C%32:X1,C%32W`& 26f'+X1,10:X1,50:X1,80:X1,120-6.X 27Y(24):(5)Z"TIME SIGNATURE:"::"BEATS PER MINUTE? ";BPM%::"NOTES PER BEAT? ";NPB3,C%23:X4,C%23:X5,C%22:X5,C%23:X6,C%21:X6,C%23PX3,C%41V_ 24h491}C%1:Y70C%71X6,C%25:X4,C%25X6,C%26:X3,C%26X4,C%27:X3,C%24 25491:501C%0:Y70C%70%:X4,38C%:X4,39C%:X4,40C%:X4,41C%:X3,42C%:X2,43C%:X1,44C%:X,44C%]f 23{C%0:Y70C%70X6,C%22:X6,C%23:X5,C%22:X5,C%23:X4,C%22:X4,C%23:X4,C%24:X3,C%23:X3,C%24@X2,C%24:X2,C%24:X2C%0:Y70C%70{X2,18C%:X1,18C%:X,19C%:X1,20C%:X1,21C%:X2,22C%:X2,23C%:X2,24C%:X2,25C%X1,26C%:X,27C%:X1,28C%:X2,29C%:X1,30C%:X,31C%:X,32C%:X1,33C%:X2,34C%:X3,35C%:X3,36C%WX4,37CY70466X4,31!T14=X4,30T:X4,30T:TCPX4,100[T14yX4,100T:X4,100T:T 21Y70476T411X4,30T:X4,30T:TT411X4,100T:X4,100T:T 28-.X4,Y11#/X8,Y6)02 19A(24):(5)f"WHICH REST? ";:7:REST$(K%)m6REST$"W"İ461REST$"H"İ471REST$"Q"İ480REST$"E"İ490REST$"S"İ500REST$"T"İ510 * 20 Y3X3,Y2:X3,Y2>T24:X4,YT3:X4,YT3:UX3,Y2:X3,Y2lX2,Y3:X3,Y3X,Y4:X2,Y4 16X4,Y18:X9,Y14X9,Y4:X8,Y3" 17#$X4,Y15%X8,Y10', 1760  13Y5ı+X4,Y2X2,Y4:X2,Y4:X4,Y2:X2,Y4:X4,Y2:X4,Y2:X2,Y4:X2,Y4:X4,Y2:X4,Y2 14Y25ıX4,Y:X4,Y21 15X,Y4X1,Y4X2,Y3:X3,E%1:100:6+K%83İ261:271:281:291OK%84İ261:271:281:291:301aK%67İ17000qK%82İ400K%77İ550K%66İ17005K%78İ100K%27İ5K%70İ18000K%68İ15000K%21İ710K%8İ730K%59;PAGE% (22):(16)4 "TEMPO = ";TEMPO%;" BPM"= 11M (21):(17)h BPM%;"/";NPB%;" TIME"n w 12 F%(CS%):F%(CS%):F%(0) K%87İ250 K%81İ261:271 K%69İ261:271:281 K%72İ250:261 K%80PAGE%PAG,7,112 xX6:Y86 y3# zX,Y. {F197 |X,YA }X,YH ~FZ 24,86:24,94c 6:k 7s 8 Y5160 (21):"NOTE ";(Y$,Y5,1) 9 (22) XPX25:"LOCATION ";(XP12);" " 10 (21):(32) "PAGE # "2,20,46,14,50,8,48,4,44,6,36,12,32,18,28,20,22,20,16,18,12,17,11,16,11,15,12,14,14,14,58,12,54,8,52,4,50 p ABOVE IS G CLEF (TREBLE CLEF) qX10:Y42 rX,Y sG123 tX,Y uX,Y vG w6,86,10,84,12,84,16,86,18,90,19,94,16,100,14,104T150::0:X,Y:/ +0:X,Y:3:X,Y1:X,Y1; -3:X,YP .0:X,Y1:X,Y1V 0^ d 6d ek f3 gX0:X,10:X,120 hY105010 i0,Y:279,Y j kY8012010 l0,Y:279,Y m n:S%1ıh o10,42,12,38,16,36,20,38,22,4X(0)25:X279X279) X(X12)121  49 L0| X,Y:Y10Y20Y30Y40Y50Y80Y90Y100Y110Y120L1 !F%(0) "S1(16287):S2(16286) #K%(16384)128 $KR%,0 %K%0Ē3:200 ( 5 )160:L1ī43 *3:X,Y:- MUSICOMPUTER 9/25/80 JSL <60001: 1KEE%:: 2l16000:T120:T%(CS%)::y:150:K%(16384)128:KR%,0:K%07  3Y1((1)1.6):Y159Y159Y1Y1Y159YY(Y5)5151              X6,C%30:X4,C%306X6,C%31:X3,C%31QX4,C%32:X1,C%32W`& 26f'+X1,10:X1,50:X1,80:X1,120-6.X 27Y(24):(5)Z"TIME SIGNATURE:"::"BEATS PER MINUTE? ";BPM%::"NOTES PER BEAT? ";NPB3,C%23:X4,C%23:X5,C%22:X5,C%23:X6,C%21:X6,C%23PX3,C%41V_ 24h491}C%1:Y70C%71X6,C%25:X4,C%25X6,C%26:X3,C%26X4,C%27:X3,C%24 25491:501C%0:Y70C%70%:X4,38C%:X4,39C%:X4,40C%:X4,41C%:X3,42C%:X2,43C%:X1,44C%:X,44C%]f 23{C%0:Y70C%70X6,C%22:X6,C%23:X5,C%22:X5,C%23:X4,C%22:X4,C%23:X4,C%24:X3,C%23:X3,C%24@X2,C%24:X2,C%24:X2C%0:Y70C%70{X2,18C%:X1,18C%:X,19C%:X1,20C%:X1,21C%:X2,22C%:X2,23C%:X2,24C%:X2,25C%X1,26C%:X,27C%:X1,28C%:X2,29C%:X1,30C%:X,31C%:X,32C%:X1,33C%:X2,34C%:X3,35C%:X3,36C%WX4,37CY70466X4,31!T14=X4,30T:X4,30T:TCPX4,100[T14yX4,100T:X4,100T:T 21Y70476T411X4,30T:X4,30T:TT411X4,100T:X4,100T:T 28-.X4,Y11#/X8,Y6)02 19A(24):(5)f"WHICH REST? ";:7:REST$(K%)m6REST$"W"İ461REST$"H"İ471REST$"Q"İ480REST$"E"İ490REST$"S"İ500REST$"T"İ510 * 20 Y3X3,Y2:X3,Y2>T24:X4,YT3:X4,YT3:UX3,Y2:X3,Y2lX2,Y3:X3,Y3X,Y4:X2,Y4 16X4,Y18:X9,Y14X9,Y4:X8,Y3" 17#$X4,Y15%X8,Y10', 1760  13Y5ı+X4,Y2X2,Y4:X2,Y4:X4,Y2:X2,Y4:X4,Y2:X4,Y2:X2,Y4:X2,Y4:X4,Y2:X4,Y2 14Y25ıX4,Y:X4,Y21 15X,Y4X1,Y4X2,Y3:X3,E%1:100:6+K%83İ261:271:281:291OK%84İ261:271:281:291:301aK%67İ17000qK%82İ400K%77İ550K%66İ17005K%78İ100K%27İ5K%70İ18000K%68İ15000K%21İ710K%8İ730K%59;PAGE% (22):(16)4 "TEMPO = ";TEMPO%;" BPM"= 11M (21):(17)h BPM%;"/";NPB%;" TIME"n w 12 F%(CS%):F%(CS%):F%(0) K%87İ250 K%81İ261:271 K%69İ261:271:281 K%72İ250:261 K%80PAGE%PAG,7,112 xX6:Y86 y3# zX,Y. {F197 |X,YA }X,YH ~FZ 24,86:24,94c 6:k 7s 8 Y5160 (21):"NOTE ";(Y$,Y5,1) 9 (22) XPX25:"LOCATION ";(XP12);" " 10 (21):(32) "PAGE # "2,20,46,14,50,8,48,4,44,6,36,12,32,18,28,20,22,20,16,18,12,17,11,16,11,15,12,14,14,14,58,12,54,8,52,4,50 p ABOVE IS G CLEF (TREBLE CLEF) qX10:Y42 rX,Y sG123 tX,Y uX,Y vG w6,86,10,84,12,84,16,86,18,90,19,94,16,100,14,104T150::0:X,Y:/ +0:X,Y:3:X,Y1:X,Y1; -3:X,YP .0:X,Y1:X,Y1V 0^ d 6d ek f3 gX0:X,10:X,120 hY105010 i0,Y:279,Y j kY8012010 l0,Y:279,Y m n:S%1ıh o10,42,12,38,16,36,20,38,22,4X(0)25:X279X279) X(X12)121  49 L0| X,Y:Y10Y20Y30Y40Y50Y80Y90Y100Y110Y120L1 !F%(0) "S1(16287):S2(16286) #K%(16384)128 $KR%,0 %K%0Ē3:200 ( 5 )160:L1ī43 *3:X,Y:- MUSICOMPUTER 9/25/80 JSL <60001: 1KEE%:: 2l16000:T120:T%(CS%)::y:150:K%(16384)128:KR%,0:K%07  3Y1((1)1.6):Y159Y159Y1Y1Y159YY(Y5)5151              X6,C%30:X4,C%306X6,C%31:X3,C%31QX4,C%32:X1,C%32W`& 26f'+X1,10:X1,50:X1,80:X1,120-6.X 27Y(24):(5)Z"TIME SIGNATURE:"::"BEATS PER MINUTE? ";BPM%::"NOTES PER BEAT? ";NPB3,C%23:X4,C%23:X5,C%22:X5,C%23:X6,C%21:X6,C%23PX3,C%41V_ 24h491}C%1:Y70C%71X6,C%25:X4,C%25X6,C%26:X3,C%26X4,C%27:X3,C%24 25491:501C%0:Y70C%70%:X4,38C%:X4,39C%:X4,40C%:X4,41C%:X3,42C%:X2,43C%:X1,44C%:X,44C%]f 23{C%0:Y70C%70X6,C%22:X6,C%23:X5,C%22:X5,C%23:X4,C%22:X4,C%23:X4,C%24:X3,C%23:X3,C%24@X2,C%24:X2,C%24:X2C%0:Y70C%70{X2,18C%:X1,18C%:X,19C%:X1,20C%:X1,21C%:X2,22C%:X2,23C%:X2,24C%:X2,25C%X1,26C%:X,27C%:X1,28C%:X2,29C%:X1,30C%:X,31C%:X,32C%:X1,33C%:X2,34C%:X3,35C%:X3,36C%WX4,37CY70466X4,31!T14=X4,30T:X4,30T:TCPX4,100[T14yX4,100T:X4,100T:T 21Y70476T411X4,30T:X4,30T:TT411X4,100T:X4,100T:T 28-.X4,Y11#/X8,Y6)02 19A(24):(5)f"WHICH REST? ";:7:REST$(K%)m6REST$"W"İ461REST$"H"İ471REST$"Q"İ480REST$"E"İ490REST$"S"İ500REST$"T"İ510 * 20 Y3X3,Y2:X3,Y2>T24:X4,YT3:X4,YT3:UX3,Y2:X3,Y2lX2,Y3:X3,Y3X,Y4:X2,Y4 16X4,Y18:X9,Y14X9,Y4:X8,Y3" 17#$X4,Y15%X8,Y10', 1760  13Y5ı+X4,Y2X2,Y4:X2,Y4:X4,Y2:X2,Y4:X4,Y2:X4,Y2:X2,Y4:X2,Y4:X4,Y2:X4,Y2 14Y25ıX4,Y:X4,Y21 15X,Y4X1,Y4X2,Y3:X3,E%1:100:6+K%83İ261:271:281:291OK%84İ261:271:281:291:301aK%67İ17000qK%82İ400K%77İ550K%66İ17005K%78İ100K%27İ5K%70İ18000K%68İ15000K%21İ710K%8İ730K%59;PAGE% (22):(16)4 "TEMPO = ";TEMPO%;" BPM"= 11M (21):(17)h BPM%;"/";NPB%;" TIME"n w 12 F%(CS%):F%(CS%):F%(0) K%87İ250 K%81İ261:271 K%69İ261:271:281 K%72İ250:261 K%80PAGE%PAG,7,112 xX6:Y86 y3# zX,Y. {F197 |X,YA }X,YH ~FZ 24,86:24,94c 6:k 7s 8 Y5160 (21):"NOTE ";(Y$,Y5,1) 9 (22) XPX25:"LOCATION ";(XP12);" " 10 (21):(32) "PAGE # "2,20,46,14,50,8,48,4,44,6,36,12,32,18,28,20,22,20,16,18,12,17,11,16,11,15,12,14,14,14,58,12,54,8,52,4,50 p ABOVE IS G CLEF (TREBLE CLEF) qX10:Y42 rX,Y sG123 tX,Y uX,Y vG w6,86,10,84,12,84,16,86,18,90,19,94,16,100,14,104T150::0:X,Y:/ +0:X,Y:3:X,Y1:X,Y1; -3:X,YP .0:X,Y1:X,Y1V 0^ d 6d ek f3 gX0:X,10:X,120 hY105010 i0,Y:279,Y j kY8012010 l0,Y:279,Y m n:S%1ıh o10,42,12,38,16,36,20,38,22,4X(0)25:X279X279) X(X12)121  49 L0| X,Y:Y10Y20Y30Y40Y50Y80Y90Y100Y110Y120L1 !F%(0) "S1(16287):S2(16286) #K%(16384)128 $KR%,0 %K%0Ē3:200 ( 5 )160:L1ī43 *3:X,Y:3- MUSICOMPUTER 9/25/80 JSL <60001: 1KEE%:: 2l16000:T120:T%(CS%)::y:150:K%(16384)128:KR%,0:K%07  3Y1((1)1.6):Y159Y159Y1Y1Y159YY(Y5)5151       X6,C%30:X4,C%306X6,C%31:X3,C%31QX4,C%32:X1,C%32W`& 26f'+X1,10:X1,50:X1,80:X1,120-6.X 27Y(24):(5)Z"TIME SIGNATURE:"::"BEATS PER MINUTE? ";BPM%::"NOTES PER BEAT? ";NPB3,C%23:X4,C%23:X5,C%22:X5,C%23:X6,C%21:X6,C%23PX3,C%41V_ 24h491}C%1:Y70C%71X6,C%25:X4,C%25X6,C%26:X3,C%26X4,C%27:X3,C%24 25491:501C%0:Y70C%70%:X4,38C%:X4,39C%:X4,40C%:X4,41C%:X3,42C%:X2,43C%:X1,44C%:X,44C%]f 23{C%0:Y70C%70X6,C%22:X6,C%23:X5,C%22:X5,C%23:X4,C%22:X4,C%23:X4,C%24:X3,C%23:X3,C%24@X2,C%24:X2,C%24:X2C%0:Y70C%70{X2,18C%:X1,18C%:X,19C%:X1,20C%:X1,21C%:X2,22C%:X2,23C%:X2,24C%:X2,25C%X1,26C%:X,27C%:X1,28C%:X2,29C%:X1,30C%:X,31C%:X,32C%:X1,33C%:X2,34C%:X3,35C%:X3,36C%WX4,37CY70466X4,31!T14=X4,30T:X4,30T:TCPX4,100[T14yX4,100T:X4,100T:T 21Y70476T411X4,30T:X4,30T:TT411X4,100T:X4,100T:T 28-.X4,Y11#/X8,Y6)02 19A(24):(5)f"WHICH REST? ";:7:REST$(K%)m6REST$"W"İ461REST$"H"İ471REST$"Q"İ480REST$"E"İ490REST$"S"İ500REST$"T"İ510 * 20 Y3X3,Y2:X3,Y2>T24:X4,YT3:X4,YT3:UX3,Y2:X3,Y2lX2,Y3:X3,Y3X,Y4:X2,Y4 16X4,Y18:X9,Y14X9,Y4:X8,Y3" 17#$X4,Y15%X8,Y10', 1760  13Y5ı+X4,Y2X2,Y4:X2,Y4:X4,Y2:X2,Y4:X4,Y2:X4,Y2:X2,Y4:X2,Y4:X4,Y2:X4,Y2 14Y25ıX4,Y:X4,Y21 15X,Y4X1,Y4X2,Y3:X3,E%1:100:6+K%83İ261:271:281:291OK%84İ261:271:281:291:301aK%67İ17000qK%82İ400K%77İ550K%66İ17005K%78İ100K%27İ5K%70İ18000K%68İ15000K%21İ710K%8İ730K%59;PAGE% (22):(16)4 "TEMPO = ";TEMPO%;" BPM"= 11M (21):(17)h BPM%;"/";NPB%;" TIME"n w 12 F%(CS%):F%(CS%):F%(0) K%87İ250 K%81İ261:271 K%69İ261:271:281 K%72İ250:261 K%80PAGE%PAG,7,112 xX6:Y86 y3# zX,Y. {F197 |X,YA }X,YH ~FZ 24,86:24,94c 6:k 7s 8 Y5160 (21):"NOTE ";(Y$,Y5,1) 9 (22) XPX25:"LOCATION ";(XP12);" " 10 (21):(32) "PAGE # "2,20,46,14,50,8,48,4,44,6,36,12,32,18,28,20,22,20,16,18,12,17,11,16,11,15,12,14,14,14,58,12,54,8,52,4,50 p ABOVE IS G CLEF (TREBLE CLEF) qX10:Y42 rX,Y sG123 tX,Y uX,Y vG w6,86,10,84,12,84,16,86,18,90,19,94,16,100,14,104T150::0:X,Y:/ +0:X,Y:3:X,Y1:X,Y1; -3:X,YP .0:X,Y1:X,Y1V 0^ d 6d ek f3 gX0:X,10:X,120 hY105010 i0,Y:279,Y j kY8012010 l0,Y:279,Y m n:S%1ıh o10,42,12,38,16,36,20,38,22,4X(0)25:X279X279) X(X12)121  49 L0| X,Y:Y10Y20Y30Y40Y50Y80Y90Y100Y110Y120L1 !F%(0) "S1(16287):S2(16286) #K%(16384)128 $KR%,0 %K%0Ē3:200 ( 5 )160:L1ī43 *3:X,Y:3- MUSICOMPUTER 9/25/80 JSL <60001: 1KEE%:: 2l16000:T120:T%(CS%)::y:150:K%(16384)128:KR%,0:K%07  3Y1((1)1.6):Y159Y159Y1Y1Y159YY(Y5)5151           Y"Ĭ &(4);"RUN M"QQP |"ENTER ";Q$;"Y";Q$;" TO RUN THE PROGRAM":Y$_ Y$"Y"ĬMe QOTE OR REST)< Q$;"T";Q$;" THIRTY-SECOND (NOTE OR REST"e Q$;"W";Q$;" WHOLE (NOTE OR REST)"k ! "Q$;"RETURN";Q$;" IS UNNECESSARY FOR":" THE ABOVE KEYBOARD COMMANDS." # $"ENTER ";Q$;"Y";Q$;" TO RUN THE PROGRAM":Y$ %Y$"ALF (NOTE OR REST):PRINT? Q$;"M";Q$;" PUTS IN A MEASURE."h Q$;"N";Q$;" NEW ENTRY, SAME PAGE" Q$;"P";Q$;" SWITCHES TO NEXT PAGE" Q$;"Q";Q$;" QUARTER (NOTE OR REST)" Q$"R";Q$;" REST TYPE (INPUT)" Q$;"S";Q$;" QUARTER (NI$:I$"Y"ĺ"":! M Q$;"B";Q$;" TURNS ON THE METRONOME "w Q$;"C";Q$;" TEMPO/METRONOME INPUT" Q$;"D";Q$;" DELETE FIGURE" Q$;"E";Q$;" EIGHTH (NOTE OR REST)" Q$;"F";Q$;" FLOPPY DISK (INPUT)" Q$;"H";Q$;" HSIC.":, "SOMETIMES, IF YOU PRESS A KEY"S "WHICH CAUSES AN INPUT, YOU WILL"| "SEE A QUESTION APPEAR AT THE VERY" "BOTTOM OF THE SCREEN. WHEN YOU" "HAVE ANSWERED IT, PRESS ";::"RETURN";::"." : "IS THIS CLEAR? (Y OR N) ";% INSTRUCTIONS FOR "M" ,3>16368,8::DQQ$(34)v"INSTRUCTIONS FOR MUSIC WRITER""BY JIM ST. LOUIS, 9/27/80":"THE PROGRAM IS AUTOMATIC, AND NEEDS" "ONLY ONE-KEYSTROKE COMMANDS TO" "DRAW MU     z!#??  ٠ԠɯϠ ŮŠ Ůţ Ůţ!гĠŠӠũ ŮӠŮӠŮӠ ԠĠ Ġ Ӡ Ġ ŮҠԠҠŠԠ ŮˠԠ ٠ؠ ԠΠ ͫ͠ ͠Ҡ ͠Ҡ ɭӠҠϠ ɭӠҠҠ ҠŠ Ƞ˱Ҡ ӠŠ!Ӡ"ӠĠɠϠ٠Š ΠĠҠŠҠŠӠŠO1,S4:O1,0:720'O1,S5:O1,0:730=O1,S6:O1,0:740SO1,S7:O1,0:750iO1,S8:O1,0:760************************ "X=";X;" Y=";Yl0:X,Y'v580HO1,S1:S1;:O1,S2:S2;:640b50:X1;X2;X3;X4:650h***********************  THE FOLLOWING IS A TEST FOR OUTPUT PORT O1O1,S1:O1,0:690O1,S2:O1,0:700O1,S3:O1,0:710   Z(49664), 3:255Z,50M V((((255Z)51)640))1000p "READING ";C;" = ";V;" VOLTS"z CC1 49792,0:49792,1 0:255Z,50 460 50:X10Y10540 &540 0 : D3 NX(0):Y(1)1.8 XX,YbTEST ";TEST ,CL% 6""J @"NOW TESTING STATE ";TEST;" OF PORT 1"Z JTEST8280 TTEST690,700,710,720,730,740,750,760,1,1,1,1 ^290 hXX(KY%) rKR%,0 |XX127ı 360  PROGRAM "BEGIN"    **** I/O TEST **** O1,O2...SELECT OUTPUT BYTE, 1-48] I149664:I249680:I349696:I449712:I549728:I649744  I1,I2...SELECT INPUT BYTE, 1-48 S11:S22:S34:S48:S516:S632:S764:S8128: STATES FOR ONE BIT TOGGLES CL% ""ENTER WHICH STATE OF PORT 1 TO : POKE F TO 1, N TO 0: F0% ETC. CONTROL ANNUNCIATORSV F0%... MEANS OFF STATEq N0%... MEANS ON STATEw THE FOLLOWING ADDRESSES O1-6 ARE FOR THE 96 CHANNEL I/O BOARD O149792 O249808 O349824 O449840 O549856# ):O1,S4:30:Y2(I1): <# F) P/ Z5 dX nCL%936:KY%16384:KR%16368 x KY IS PEEKED FOR INKEY; POKE KR TO 0 TO RESET INKEY; CL CLEARS SCREEN F0%16296:N0%16295:F1%16294:N1%16293:F2%16292:N2%16291:F3%16290:N3%16289  APS SIMULATOR I/O TEST 1110: FROM HERE TO THE GOTO OF THIS LINE, SUBROUTINES WILL BE PUT FOR FAST EXECUTION NEAR THE BEGINNING OF THE PROGRAMO2,0:O2,1:(CK(16336): 2O1,S1:30:X1(I1):O1,S2:30:X2(I1):O1,S3:30:Y1(I1     CYCLE16296,1 $A01*.12308816295,0FB16294,1OLA11XVA00b`1230pj16293,0~t16292,1~A10A21123016291,016290,1A20A311230CYCLE910X:16292,1:16290,1,A00:A10:A20:A304:P"ALL ANNUNCIATORS OFF"_CYCLE04oX(16336)xIN$:"CYCLE= ";CYCLE:"AN 0 = ";A0"AN 1 = ";A1"AN 2 = ";A2"AN 3 = ";A3CYCLE1050,1080,1130,1180  X,Y *X70,Y% 4X70,Y502 >X,Y50< HX,YC R0L \IN0W fIN$""] p z"THIS AUTOMATICALLY RUNS THROUGH":"THE CONTROL SEQUENCE FOR THE SIERRACIN":"TOUCH SCREEN, BY PRESSING":"THE SPACE BAR.": IN$16296,1:16294,1H 4 LINES TEXT") "C = GOTO TEXT PAGE"N "D = HI-RES WITH NO TEXT LINES"f "E = EXIT PROGRAM" "F = FLASHING HI-RES CURSOR" "G = CLEAR GRAPHICS" IN0 80 470 IN0 330 80 140  X209Y141ı 3""500    $ &* 00 :Z D"THIS PROGRAM USES ONE-KEY COMMANDS" N"WHICH POSITION WORDS AND FIGURES," X"AND WHICH RECORD THE OPERATIONS" b"FOR FUTURE REPETITION." l v"A = CLEAR TEXT SCREEN" "B = HI-RES WITX,Y:80:0:X,Y:80:160:IN63ī370. TIN09 ^IN$""B h330P rIN$(IN)b |IN$"J"İ170t IN$"H"İ200 IN$"N"İ230 IN$"U"İ260 IN$"B"İ780 IN$" "ī140 IN0 IN$"" 330 : : : IN$:IN$Є"CHANGE TO ",AN1:5 (IN$)64330,160,160,160,160? 80:E V X279XX1_ 290e t X0XX1} 290 Y159YY1 290 Y0YY1 290  "(22):"X = ";X;" Y = ";Y;" " , 6 @% J3:  X0:Y0CL%936#CL%2(XY(100,2)S2 HI-RES APS SIMULATION #1^<:330~F SIMPLE KEYBOARD SCANNERPIN(16384)ZB(16336)d16368,0nxANNUN1070,1080,1090,1230 "ANNUNCIATOR 1 IS NOW ";AN1:      a@F a()_d"]]͠"]]]٬Ӡ]ӠŠŠƠ" ]٠ŠŮ#]ŠҠϠӠſ)XWa(ŠŧҠŠϠԠԠ)a(ŠĠРϠנҠƠϠŠ)4XS(ԠŠǠԺ)&@`@:()$d `a@F ja() ta@F*~a(ӠԠŠΠŠ)bb a@F a()٬Š٧)a(ΧŠӠԩ)WBa(ƠɠϠԠӠԠҠ̠Ӭ)a(ɠ̠ˠՠנӠϠ)6La(ԠŠɠ̠נԠҠ)a(Ӯ)cQVa(ϠՠԠŠϠԠǬ)a(ŠՠԠŠ$dg$ca(Ӻ)ca(ՠ̠ˠƠΠ̬Ġɠ)a(٠ϠӠԠ̠ՠ)U.a(ǠƮɠ̠ϠӠ٠)a(ՠӠƠӠԠ)r8a(̬ϠȠՠĠ)a(ӠҠϮԠƤŠԠŠҢӠҠ͠ӠϠӮ]a(LJҠŠ٠Ԡ)a(ŠĠΠҠϠ٠)a(š)moa(̠ǠŠ)ca(ŠՠҠĠſ)GR@`;@r%`@*#r9()Ŭ)@p(ŠŬ)@p()@p(ΠŬ̸)a@v]ŠŠӠŠԠϠԠŠ٠ĠϠԠǠҠΠŠŠŠήźq]ҠΠԠĤĠŬҢŠ] ] ]ĺ ]a(ΠɬϬ)^KM6N@"FrC@"FrC@"FrC@"FrC@"rC@"rC@" rC@"rC@"(rf@p(Ġ]͠ӠӠ ]ԠӠӠ ]͠ŠҮ ] ]͠Ӻ ]ˠ٬ˠɠ ] ]ҮΠ )FE(ӡ)_> ]ɠԠԠԡ*UVW cY4a(ɠԠԠԡ)>>cS(ԠϠ٠ο)&@`;@r%`@*#r9()%Q_d ] ] ]̺ 5qqbE()Fa@FR@TTa@F*a@`@9()$bb_bba@F$a@`@9()$bb_bb a@Fa@a@(a(ɠננ)E@*ra(Ġ)E@*rG-DS()&@`@*;@rr9()%@p@*#;@rrkNca(ԠĠŠԠҠҠ)a@*rE(ſ)GR@@p@*#r`@:()@:()$NXa@ ba@Fl]ŠҠĮvT'a@F6@p@*#r`@:()@:()$`@9()$ ,]ɠΧԠנԠ̠ԠӬˠF&cca(̠ԬɠŠЮԠ̠)a(ՠǠƿ)G0@p()R@Brd:ca(ŠŠΠԠ)a(Ƞ)$.`@9()%q`@9()%q_n7]ŠĠΠ̠ٮӠԠŠԠſHa@@p()a(ӠŠ̠էŠǠƠ)GUVWM`@*#r9@*#r%a()GYca@*rGS()&@`7;@r$  APS SIMULATOR I/O TEST 14O(6),I(6),S(8)=140N(INKEY(KY%)t2INKEY127ĺ::"TEST # ";COUNT:<KR%,0FPCK(16336):ZO1,S1:40:X1(I1):O1,S2:40:X2(I1):O1,S3:40:Y1(I1):O1,S4:40:Y2(I1):dn x ŠŮp]z]̠͠]Ϡӿ](]ԠŠҠî  p 7W259 H(H@(|w\y6?22H h0hH@hH@ `X``hH@@ HH(h Hب@ pHH0@@H(`hH@h H@HxHH@@hH@H `p`hH8 ȸH0HH@H𠸸hC 00 XP`@ p؈88888X xph` X (PhHH0(H` PX X@`XHX (08@HPX`hpx         p   7W259 H(H@(2|w\y6?22222h0hH@hH@ `X``hH@@ HH(h Hب@ pHH0@@H(`hH@h H@HxHH@@hH@H `p`hH8 ȸH0HH@H𠸸hC000@ p؈88888X xph` X (PhHH0(H` PX X@`XHX (08@HPX`hpxY"Ĭ &(4);"RUN M"QOTE OR REST)< Q$;"T";Q$;" THIRTY-SECOND (NOTE OR REST"e Q$;"W";Q$;" WHOLE (NOTE OR REST)"k ! "Q$;"RETURN";Q$;" IS UNNECESSARY FOR":" THE ABOVE KEYBOARD COMMANDS." # $"ENTER ";Q$;"Y";Q$;" TO RUN THE PROGRAM":Y$ %Y$"ALF (NOTE OR REST):PRINT? Q$;"M";Q$;" PUTS IN A MEASURE."h Q$;"N";Q$;" NEW ENTRY, SAME PAGE" Q$;"P";Q$;" SWITCHES TO NEXT PAGE" Q$;"Q";Q$;" QUARTER (NOTE OR REST)" Q$"R";Q$;" REST TYPE (INPUT)" Q$;"S";Q$;" QUARTER (NI$:I$"Y"ĺ"":! M Q$;"B";Q$;" TURNS ON THE METRONOME "w Q$;"C";Q$;" TEMPO/METRONOME INPUT" Q$;"D";Q$;" DELETE FIGURE" Q$;"E";Q$;" EIGHTH (NOTE OR REST)" Q$;"F";Q$;" FLOPPY DISK (INPUT)" Q$;"H";Q$;" HSIC.":, "SOMETIMES, IF YOU PRESS A KEY"S "WHICH CAUSES AN INPUT, YOU WILL"| "SEE A QUESTION APPEAR AT THE VERY" "BOTTOM OF THE SCREEN. WHEN YOU" "HAVE ANSWERED IT, PRESS ";::"RETURN";::"." : "IS THIS CLEAR? (Y OR N) ";% INSTRUCTIONS FOR "M" ,3>16368,8::DQQ$(34)v"INSTRUCTIONS FOR MUSIC WRITER""BY JIM ST. LOUIS, 9/27/80":"THE PROGRAM IS AUTOMATIC, AND NEEDS" "ONLY ONE-KEYSTROKE COMMANDS TO" "DRAW MU     ee6>60HH0>>>***>"6*""">$ 88>>>>*>><> ?:{>7 6`HNɍh%J) +%j )* * (je$*h)H'hH*&'*&'*&'&'i'&HOQ**+I`+hQ**O+i+$$! $%%#"%Nh`LLLL`ª`LQLYC0LXLeL         LhLk'Lk'A'( H() 91 eȱm)h`JJ`#JȱJLh `#  <(eΨ=)eϰ%Hh>?iJK̅  #`Lk 34 Lh856!;<79)F:&8J9j*0v 婭   +<; 336)(16336)JI"9:"MORE PONG?";A$?M::7062c(A$,1)"Y"5020{16303,0:16298,0936:"BYE!" 16297,0:16301,0:16304,0Өh dѮ#` L ARU Q Ү#`#2 Ӎ6I67485750'229,0?(224)127S2S21W&(224)127S1S11a06882k:5560xDI1200N6526XIb6786l5640vI12J110Z(16336)(16336)JJ15Z(16336)(16336)(16TY?";A$ mr65,27:67,27%|5I27118E66,I:68,IO6526VI^23"PLAYER #1";:27:"PLAYER #2"224,128:225,38:226,128:227,3824:4:S1;:31:S2;S15S255840(A$,1)"Y"5700I12006526727,UPDOWN26732,256UPDOWN:6736,256UPDOWNCGAME25440S"LE7:RE247k,6771,189:6830,189u65460@LE90:RE166J6771,203:6830,203T6589,LE:6652,RE^6680,LE3:6684,LE3:6688,RE3:6692,RE3h"SHOULD THERE BE GRAVI368,0 xX1275270 & 5300- I7 7062= Z "WHAT DIFFICULTY LEVEL"} "(1-EASIEST, 10-HARDEST)";DFF DFF10DFF15300 S10:S20 228,127:229,0 UPDOWN120 DFF10DFF5 6762,DFF:6800,DFF 6723,UPDOWN:25,28 6994+ 23:13:" HOCKEY "5 5200J 224,158:225,28T 6994q 23:13:" SCRAMBLE "{ 5200 224,250:225,28 (6994 223:13:" TENNIS " <5200 F5020 PGAMEGAME1 ZI1100 dX(16384) n16AT YOU WANT":$ " IS DISPLAYED."j :23:" PRESS 'RETURN' TO CONTINUE...";:A$:(A$)132050t 936 7062:7462:I12000:I:7062 5900 GAME0 224,182:225,27 6994 23:13:"BUMPER POOL " 5200 224,98:2E":` " BALL INTO THE OPPONENTS GOAL. DO THIS"::" FIVE TIMES AND YOU WIN! USE THE GAME": " PADDLES TO DEFEND YOUR GOAL.":::" NEXT YOU WILL BE SHOWN A SERIES OF": " PLAYING FIELDS -- TO SELECT ONE, PRESS"::" ANY KEY WHEN THE FIELD TH BY"::" BILL BUDGE":::_ `" COPYRIGHT 1979 APPLE COMPUTER INC." j:23:" PRESS 'RETURN' TO CONTINUE...";:A$:(A$)131130 t ~3:11:"*** INSTRUCTIONS ***"  :" THE OBJECT OF THE GAME IS TO GET TH dn PENNY ARCADE#x@ BY BILL BUDGEFj175,32:176,19:105,32:106,19107,32:108,19:109,32:110,1916298,0:216,0: OFF THE ON ERRL:936:::::::" PENNY ARCADE":2 V"      obp" POKE 104,96"!bq8br" POKE 175,1">bsVbt" POKE 176,96"\buebv(8)kbwqbxIKE INTEGER BASIC,":"APPLESOFT REQUIRES A SERIES OF POKES"af"WHICH WILL DESTROY THIS PROGRAM":"REQUIRING YOU LOAD IT AGAIN."ag"THE POKES ARE:"ah(10)ai" DEL 100,120aj:akal" POKE 24576,0"aman" POKE 103,1"br `100 ` APPLESOFT 3D v`CODE%(15),X%(15),Y%(15),SCALE%(15),XROT%(15),YROT%(15),ZROT%(15),SX%(15),SY%(15)`RESET%7932:CLR%7951:HIRES%7983:CRNCH%7737:TXTGEN%768`D$"": SET D$ TO CTRL-D`D$;"BLOAD MODULE.3D PSI"`d;ae"UNLSE11500:PAUSE: DELAY6 120: DRAW A NEW PATTERNV y16298,0: TURN OFF HI-RESx y16388,0: CLEAR KBD STROBE y:936::A15531111 @S,X; TY0158I%: STEP THROUGH Y VALUES` hS01: 2 LINES, FROM Y AND Y+1 |3S: FIRST LINE BLACK, NEXT WHITE  DRAW LINE THROUGH "CENTER" TO OPPOSITE SIDE 279,YSA,B0,159YS (16384)15531111 S,Y PAU/ 24:" ";W X0278I%: STEP THROUGH X VALUES| S01: 2 LINES, FROM X AND X+1 3S: FIRST LINE BLACK, NEXT WHITE  DRAW LINE THROUGH "CENTER" TO OPPOSITE SIDE ,XS,0A,B279XS,159 6(16384) P: CLEAR THE TEXT AREA< d22: MOVE CURSOR TO MIDDLEf x: SET HIGH RESOLUTION GRAPHICS MODE A(1)279: PICK AN X FOR "CENTER" B(1)159: PICK A Y FOR "CENTER" I%((1)4)2: PICK A STEP SIZE :22 15:"STEPPING BY ";I% : CLEAR THE TEXT WINDOW= :216,0: TURN OFF ONERRZ7:15:"BRIAN'S THEME"o9:17:" BY"11:16:"BRIAN HOWARD"15:" COPYRIGHT 1979, APPLE COMPUTER INC."#23:9:"PRESS RETURN TO CONTINUE...";(A$:A$(13)40    ,SY%(15)FbbRESET%7932:CLR%7951:HIRES%7983:CRNCH%7737:TXTGEN%768dbcD$(4): D$ IS CONTROL-DbdD$;"BLOAD MODULE.3D PSI"KE 24576,0"a (a " POKE 103,1".a Fa " POKE 104,96"Laca" POKE 175,1"iaa" POKE 176,96"aa(8)aaa` APPLESOFT 3D baCODE%(15),X%(15),Y%(15),SCALE%(15),XROT%(15),YROT%(15),ZROT%(15),SX%(15)` 10/20/80 3D HEADER #`h`"UNLIKE INTEGER BASIC,":"APPLESOFT REQUIRES A SERIES OF POKES"`"WHICH WILL DESTROY THIS PROGRAM":"REQUIRING YOU LOAD IT AGAIN."`"THE POKES ARE:"`(10)`" DEL 0,21"`:` a " PO ,I,1); I:U ":"Y IS ";Y;" "! (E)Z140/ (G)ZĈC (H)ZU(U1)Q U16U0b U:X,Y:100w 6,P:7,D:768: ((40(A$))21):A$:: :I031:I2:0,39I3:I 5:0,392:0,3935:2,350:2,3539: I1(A$) 2I2:(A$J:(E)Z140$ 2J3(I3)IW12H <I,K:K,I:40I,40K:40K,40Il FK,40I:40I,K:I,40K:40K,I| PJ,I,W:450 Z: dP(0):X(P6):X39X39 nI(1):Y(I6):Y39Y39 xP((IP)29):P255P255 200 21:"X IS ";X;"7 U9:D3:E16384:F16368:G16287:H16286:Z127~768,173:769,48:770,192:771,136:772,208:773,4:774,198:775,7776,240:777,8:778,202:779,208:780,246:781,166:782,6:783,76:784,0:785,03:786,96 (::W350:I119:J019:KI    H 3 STARS. R VERSION 1 M \ BY JIM ST. LOUIS 'aCODE%(15),X%(15),Y%(15),SCALE%(15),XROT%(15),YROT%(15),ZROT%(15),SX%(15),SY%(15) bRESET%7932:CLR%7951:HIRES%7983:CRNCH%7737:TXTGEN%768 cD$(4): D$ IS CONTROL-D QZ1ı INITIALIZATION D$;"BLOAD MODULE.SHRIKENS" FQZ1 GN60000:1004T027:XROT(N)T:CRNCH%:T:WT027:YROT(N)T:CRNCH%:T:zT027:ZROT(N)T:CRNCH%:T:CODE%(N)2:X%(N)X:Y%(N)Y:SCALE%(N)X:XROT%(N)XR:YROT%(N)YR:ZROT%(N)ZR:CRNCH%:d4:1` DEF,DIM, & BLOAD S     F%(0)3#(X,Y12T11000<<R1,R2eFR1(1)220:R2(1)150:C((1)10)wPR1(R11.25)ZR1(R1):R2(R2)dC(C1.2)n(1):"X=";R1;:(15):"Y=";R2;:(30):"COLOR=";CxCR1,R2"":10OR " ` DEFINE AND DIMENSION < /1000: BEGIN HERE R>60000: TITLE & V.### >X%279ēX%,Y%:X%:Y%:1LF%(0):id 1-999 = SUBROUTINES  PROGRAM FLOW CONTROL '' MERGE/RENUMBER  N GRAPHICS UTILITIES 0u DATA STORAGE @ DISK UTILITIES  Pò TEXT EDIT  X,Y ,X,Y 6F( @24,86:24,94X J(21):"COMPUTER MUSIC BY JOE KLIMES & CO."e T"";X6,11,15,12,14,14,14,58,12,54,8,52,4,50K ABOVE IS G CLEF (TREBLE CLEF) Y X10:Y42b X,Yn G123w X,Y X,Y G 6,86,10,84,12,84,16,86,18,90,19,94,16,100,14,104,7,112 X6:Y86 4 X,Y 3 X,Y F19 "f 3.(X0:Y10120:X,Y:Y>2Y105010K<X0279TFX,Y]PX,YnZY8012010{dX0279nX,YxX,Y145& 10,42,12,38,16,36,20,38,22,42,20,46,14,50,8,48,4,44,6,36,12,32,18,28,20,22,20,16,18,12,17,11,1   A036036028-COUNT;"---";?COUNTCOUNT1KA%(A)YA%90ĄXk(XC(50(A))}2YC((A)XC)<"X= ";XC;" Y= ";YCFAA 1).6 XPX:YPY 370" 5 Z1İ520:370> 370P K(16336):XX,Y 6X,Y @F( J24,86:24,941 T370a ^(21):"COMPUTER MUSIC BY JOE KLIMES & CO."n h"";| rX(0)24 |"X= ";X;" Y= ";Y Z1 XPXYPYZ0 0:X,Y 490 3 X,Y Y10Y20Y30Y40Y50ī500 Y(6,11,15,12,14,14,14,58,12,54,8,52,4,50K ABOVE IS G CLEF (TREBLE CLEF) Y X10:Y42b X,Yn G123w X,Y X,Y G 6,86,10,84,12,84,16,86,18,90,19,94,16,100,14,104,7,112 X6:Y86 4 X,Y 3 X,Y "F19 ,Q 3.(X0:Y10120:X,Y:Y>2Y105010K<X0279TFX,Y]PX,YnZY8012010{dX0279nX,YxX,Y150& 10,42,12,38,16,36,20,38,22,42,20,46,14,50,8,48,4,44,6,36,12,32,18,28,20,22,20,16,18,12,17,11,1   (J) 7J:::$ 8D$;"CLOSE ";Z$: 9D$;"NOMON C,I,O"@ :D TEXT FILES"G +E"CREATED BY THE ";(34);"TEXT I/O";(34);" PROGRAM."f ,"MON C,I,O IS IN EFFECT."t -:D$(4) ."NAME OF TEXT FILE? ";Z$ /D$;"MON C,I,O" 0:: 1D$;"OPEN ";Z$ 2D$;"READ ";Z$ 3I:: 4A$(I) 5J1I 6:A$ L"TYPE STRING #";I;": ";( MA$(I)= NA$(I)""40009C O^ P"WHAT FILE NAME? ";N$q QD$;"OPEN ";N$ RD$;"WRITE ";N$ SI1 TJ1I1 U:A$(J) VJ WD$;"CLOSE ";N$ X ( )D$(4): CTRL D *"THIS PROGRAM RETRIEVESA@AA$(100):I0-BD$(4): CTRL D3CbD"THIS PROGRAM LETS YOU WRITE TEXT FILES."hEF"YOU GET TO TYPE ONE STRING AT A TIME."GH"A STRING MAY HAVE UP TO 239 CHARACTERS."IJII1 K"(PRESS THE RETURN KEY TO QUIT.)2i >X2,Y4:X2,Y4:X4,Y2:X2,Y4:X4,Y2:X4,Y2:X2,Y4:X2,Y4:X4,Y2:X4,Y2w ?0:X,Y: @28 A8:15:24 BT(16336) CK12765 D EX(1)26010 FC%(16336) GY(1)17010 H59 I69NG? .6,86,10,84,12,84,16,86,18,90,19,94,16,100,14,104,7,112L /X6:Y86S 03\ 1X,Yg 2F19p 3X,Yz 4X,Y 5F 624,86:24,94 7 8(21) 9Y65ĺY$(Y5): :Y$(Y52): ; WHOLE NOTE <N3 =0:X4,Y2:N:X4,Y0,Y:279,Y $ % &10,42,12,38,16,36,20,38,22,42,20,46,14,50,8,48,4,44,6,36,12,32,18,28,20,22,20,16,18,12,17,11,16,11,15,12,14,14,14,58,12,54,8,52,4,50 ' ABOVE IS G CLEF (TREBLE CLEF) (X10:Y42 )X,Y *G123 +X,Y ,X,Y -CURSOR "X= ";X;" Y= ";Y- L1ī26M 3:X,Y:T150::0:X,Y: 3:X,Y1:X,Y1:T125::0:X,Y1:X,Y1:  THIS DRAWS THE CLEFS  3 X0:Y10120:X,Y:Y Y105010 0,Y:279,Y ! "Y8012010 #Y(Y5)5 56. X(0)25:X279X2794 Q  THIS SETS UP SCANS Y L0 X,Y:Y10Y20Y30Y40Y50Y80Y90Y100Y110Y120L1 F%(0) S1(16287):S2(16286) K%(16384):16368,0   THIS BLINKS THE -EM HEE HEE HEEE Q CURSOR 1 9/25/80 JSL WlX%(200),Y%(200)xY$(36)N14:T601:YY1:Y$(Y)(T65):T,N68 THIS SCANS THE PADDLES:  Y1((1)1.6):Y159Y159 Y1Y1      59 2 , @N/1$ TCODE%(N28 hX%(N)X:'(N)YE |1:p: R !" "-.,.$&(*P HGR/HGR2 Q TMH%0MH%1:16300,0:n UMH%1MH%0:16299,0: dRESET%:CLR%:HIRES% x84 3:X,Y 0,100279,100:100,0100,159 3 X,Y 0,100279,100:100,0100,1 2    !+,+-#%')1:CODE%(N)0:SCALE%(N)15:XROT%(N)0:YROT%(N)0:ZROT%(N)0:X%(N)140:Y%(N)100:N: F SOUND EFFECTS GROUNDS1BURST:T(16352):F%(0):ROUNDS: P FLIPFLOP TEXT/HGR QMO%0MO%1:16303,0H(H@( +K%85Y0YY1[ ,K%78Y159YY1 -(22):(0):" ":(22):(0):"X = ";X;" Y = ";Y;" " .CRNCH% /(22):(0):" ":(22):(0):"X = ";X;" Y = ";Y;" " 1H `X``hH@@ HH(h Hب@ pHH0@@H(`hH@h H@HxHH@@hH@H `p`hH8 ȸH0HH@H𠸸hC/' ##### xph` X (PhHH0(H` PX X@`XHXАx(@pH`p@Аx (0pH8@HPXp@(ЈH x ((@pH`h@ppx@pHИ`@xp      KALEIDOSCOPIC MATH &5H135:V75FA((1)45)WB((1)45)hC((1)45)yD((1)45)E((1)7)59 2 , @N/1$ TCODE%(N28 hX%(N)X:'(N)YE |1:p: R !" "-.,.$&(*P HGR/HGR2 Q TMH%0MH%1:16300,0:n UMH%1MH%0:16299,0: dRESET%:CLR%:HIRES% x84 3:X,Y 0,100279,100:100,0100,159 3 X,Y 0,100279,100:100,0100,1 2    !+,+-#%')1:CODE%(N)0:SCALE%(N)15:XROT%(N)0:YROT%(N)0:ZROT%(N)0:X%(N)140:Y%(N)100:N: F SOUND EFFECTS GROUNDS1BURST:T(16352):F%(0):ROUNDS: P FLIPFLOP TEXT/HGR QMO%0MO%1:16303,0H(H@( +K%85Y0YY1[ ,K%78Y159YY1 -(22):(0):" ":(22):(0):"X = ";X;" Y = ";Y;" " .CRNCH% /(22):(0):" ":(22):(0):"X = ";X;" Y = ";Y;" " 1H `X``hH@@ HH(h Hب@ pHH0@@H(`hH@h H@HxHH@@hH@H `p`hH8 ȸH0HH@H𠸸hC/' ##### xph` X (PhHH0(H` PX X@`XHXАx(@pH`p@Аx (0pH8@HPXp@(ЈH x ((@pH`h@ppx@pHИ`@xp94,16,100,14,104,7,112# xX6:Y86* y33 zX,Y> {F19G |X,YQ }X,YX ~Fj 24,86:24,94p z (21) Y65ĺY$(Y5): Y$(Y52): 101 20:30:42 T(16336) K1271010N16,36,20,38,22,42,20,46,14,50,8,48,4,44,6,36,12,32,18,28,20,22,20,16,18,12,17,11,16,11,15,12,14,14,14,58,12,54,8,52,4,50 p ABOVE IS G CLEF (TREBLE CLEF) qX10:Y42 rX,Y sG123 tX,Y uX,Y vG w6,86,10,84,12,84,16,86,18,90,19,ī46$ ,3:X,Y:T150::0:X,Y:V .3:X,Y1:X,Y1:T125::0:X,Y1:X,Y1:r d THIS DRAWS THE CLEFSx e f3 gX0:Y10120:X,Y:Y hY105010 i0,Y:279,Y j kY8012010 l0,Y:279,Y m nx o10,42,12,38,X279 (  THIS SETS UP SCANS 0 L0s X,Y:Y10Y20Y30Y40Y50Y80Y90Y100Y110Y120L1 !F%(0) "S1(16287):S2(16286) #K%(16384):16368,0 $ ( THIS BLINKS THE CURSOR )"X= ";X;" Y= ";Y *L1% CURSOR 1 9/25/80 JSL +@ X%(200),Y%(200)L Y$(36)z N14:T601:YY1:Y$(Y)(T65):T,N1000 THIS SCANS THE PADDLES: Y1((1)1.6):Y159Y159Y1Y1Y(Y5)5200 X(0)25:X279    *) HV_DECI@FSYPVV]cX]Xf\jadbfQQNSVS?g7`ICZUD>UP:b2ZP N$ = FILE NAMEWQD$;"OPEN ";N$kRD$;"WRITE ";N$tSI1TJ1I1U:A$(J)VJWD$;"CLOSE ";N$X( DOS READ )D$(4): CTRL D-:D$(4). Z$ = NAME OF FILE?h L? ?>?ɍH) @ { ?h1000,1999Q'm' MERGE LANDING ZONE  N CRYPTO & EDITORS *NI$:(I$):20010@ DOS WRITE AA$(100):I0BD$(4): CTRL DJ I = A$(I) MAX.M INPUT A$( 2 , @N/1$ TCODE%(N28 hX%(N)X:'(N)YE |1:p`P@0  0@P`p   0@P`pp`P@0    0@P`p L? ?>?ɍH) @ {  R !" "-.,.$&(*P HGR/HGR2 Q TMH%0MH%1:16300,0:n UMH%1MH%0:16299,0: dRESET%:CLR%:HIRES% x84 3:X,Y 0,100279,100:100,0100,159 3 X,Y 0,100279,100:100,0100,159    !+,+-#%')1:CODE%(N)0:SCALE%(N)15:XROT%(N)0:YROT%(N)0:ZROT%(N)0:X%(N)140:Y%(N)100:N: F SOUND EFFECTS GROUNDS1BURST:T(16352):F%(0):ROUNDS: P FLIPFLOP TEXT/HGR QMO%0MO%1:16303,0:H@( +K%85Y0YY1[ ,K%78Y159YY1 -(22):(0):" ":(22):(0):"X = ";X;" Y = ";Y;" " .CRNCH% /(22):(0):" ":(22):(0):"X = ";X;" Y = ";Y;" " 1 2 `X``hH@@ HH(h Hب@ pHH0@@H(`hH@h H@HxHH@@hH@H `p`hH8 ȸH0HH@H𠸸hH(/' ##### xph` X (PhHH0(H` PX X@`XHXАx(@pH`p@Аx (0pH8@HPXp@(ЈH x ((@pH`h@ppx@pHИ`@xpH  <"\:FBF:<<@@\bBb\\bb\@<:FBBB8 0 "" "8.TTTT>DDDD8DDD8:FF:\bb\@@:F|<@>>H0BBBb\BBB$DDTTlB$$BBBb\@<~ ~880(8DRj2x$B~BBB>DD
DDDDD>~~~BB>BB>"B$$$$$~$~$$x8P<F&db  R"\   T8|8T| ~-@ BB<~B > `B@0ee6>60HH0>>>***>"6*""">$ 88>>>>*>><> ?:{>7 6`HNɍh%J) +%j )* * (je$*h)H'hH*&'*&'*&'&'i'&HOQ**+I`+hQ**O+i+$$! $%%#"%Nh`LLLL`ª`LQLYC0LXLeL              FA$(100):I0'FD$(4): CTRL D1FII1NF"TYPE STRING #";I;": ";YFA$(I)nFA$(I)""18057tFF"WHAT FILE NAME? ";N$FD$;"OPEN ";N$FD$;"WRITE ";N$FI1FJ1I1F:A$(J)FJFD$;"CLOSE ";N$ bbRESET%7932:CLR%7951:HIRES%7983:CRNCH%7737:TXTGEN%768ZbcD$(4): D$ IS CONTROL-DxbdD$;"BLOAD MODULE.3D PSI"T0"a a " POKE103,1" a 3a " POKE104,96"9aKa" POKE175,1"Qada" POKE176,96"}a:(24):" CATALOG";a(8)aaa` APPLESOFT 3D aaCODE%(15),X%(15),Y%(15),SCALE%(15),XROT%(15),YROT%(15),ZROT%(15),SX%(15),SY%(15) {F19G |X,YQ }X,YX ~Fj 24,86:24,94p z (21) Y65ĺY$(Y5): Y$(Y52): WHOLE NOTE N3 0:X4,Y2:N:X4,Y2F X2,Y4:X2,Y4:X4,Y216,36,20,38,22,42,20,46,14,50,8,48,4,44,6,36,12,32,18,28,20,22,20,16,18,12,17,11,16,11,15,12,14,14,14,58,12,54,8,52,4,50 p ABOVE IS G CLEF (TREBLE CLEF) qX10:Y42 rX,Y sG123 tX,Y uX,Y vG w6,86,10,84,12,84,16,86,18,90,19,L1ī46( ,3:X,Y:T150::0:X,Y:Z .3:X,Y1:X,Y1:T125::0:X,Y1:X,Y1:v d THIS DRAWS THE CLEFS| e f3 gX0:X,10:X,120 hY105010 i0,Y:279,Y j kY8012010 l0,Y:279,Y m nx o10,42,12,38,X279 (  THIS SETS UP SCANS 0 L0s X,Y:Y10Y20Y30Y40Y50Y80Y90Y100Y110Y120L1 !F%(0) "S1(16287):S2(16286) #K%(16384) $16368,0 % ( THIS BLINKS THE CURSOR )"X= ";X;" Y= ";Y *% CURSOR 1 9/25/80 JSL +@ X%(200),Y%(200)L Y$(36)z N14:T601:YY1:Y$(Y)(T65):T,N1000 THIS SCANS THE PADDLES: Y1((1)1.6):Y159Y159Y1Y1Y(Y5)5130 X(0)25:X279!! ! ! ! ! FD$(4): CTRL D4F"NAME OF TEXT FILE? ";Z$HFD$;"MON C,I,O"NFaFD$;"OPEN ";Z$tFD$;"READ ";Z${FIFA$(I)FJ1IF:A$(J)FJFD$;"CLOSE ";Z$FD$;"NOMON C,I,O""