' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?  , = #""*( (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'??4)E81B $! h h Լ ռ ռ ռ`HJ>݌h Hh݌`IHɭ ɭ R`ӤL߼IHHHHhHH݌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ɜK JI8h hLߍ ԧ᜙߼IHͺ9ٜ췈뷠詷 뷍ߜLJ` H`ߜߜ8)H`H`H` L` R-ӛ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- ( F  Ϡ@跻~!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# u`R THE LONGEST DIMENSION (LENGTH)":21:L$:11)"RANGE = 6-100 FT.":5)" WITHOUT ENTRY EXITS"^v7:" LENGTH (IN FEET) = ";:"";LN$:LN$""LN$(27)1220^(LN$)100(LN$)6ĺ(7):7:19:958:1900^958^LN((LN$)):L1LN/_LN16297,0:16304,0:16301,0:2070]N4:"THIS LAYOUT ASSUMES A RECTANGULAR,":"SQUARE, OR NEARLY RECTANGULAR GARDEN.":958:1060]X22:1:L$:23:1:" TO CONTINUE..ANY OTHER TO QUIT";:X$:X$(13)1220]b950e^l4:1:958:5:1:"ENTENT":1010:SCREEN DUMP1\1440:RESELECT VEGGIEG\ GRAPHIC LAYOUTf\:14:"GARDEN LAYOUT":L$\LN61870: NO LAYOUT\&480:10:12:"START NEW LAYOUT":12:9:"WORK ON CURRENT LAYOUT"\0CUR,10,12,6,33:970:LINE1870,1860\:1220"]D":" GERMINATION 3=WARM SOIL MATURITY":SPACES=3,4,6,7,7,9,2,3,4N[L$[8(GM$)2:GM$;:23:ST$;:35(MT$)2:MT$[920:700:PROMPTS\PT1(X$"P"X$(112))Ģ20:1:958:L$:22::SD1000:SD1370:23:8)"PRESS TO CANCEL PRI DEPTH BETWEEN BETWEEN":" (IN.) PLANTS ROWS":SPACES=3,3,3,5,5,4,5,5,6fZL$Z8(DP$)2:DP$;:19(DS$)2:DS$;:31(DR$)2:DR$F[12:1:L$:" # OF DAYS 1=COOL SOIL DAYS":" TO 2=COOL OK TOY|YL$L$"=="}Y" * 1=NEEDS COOL SOIL":" 2=TOLERATES COOL SOIL":" 3=NEEDS WARM SOIL":SPACES=3,2,6,6Y:D$"PR#0":1370Y::13)"PLANTING GUIDE":20(PG$(I))2:PG$(I):L$^Z4:1:" PLANTING DISTANCE DISTANCE":" = 4,8,7,3UXJ" VEGETABLE SEEDS (INCHES) (INCHES)":SPACES=3,10,3,5cXTL$L$"=="X^I145:980:READ RECORDXh(KD)1551690:ESC OUTYrPG$(I)20(PG$(I)))DP$10(DP$))DS$13(DS$))DR$12(DR$))GM$10(GM$))ST$7(ST$))MT$"VEGETABLE PLANTING GUIDE"(W"L$L$"=="`W,30)"DISTANCE DISTANCE DAYS TO"9)"DAYS TO"W620)"DEPTH TO BETWEEN BETWEEN GERMI- SOIL MATURITY":SPACES = 3,6,4,2,3 X@22)"PLANT PLANTS ROWS TION TEMP.*":SPACES 500VJJ15:J46J1$V:14605VLINE01370SVRLINEJ1:FILE RECORD #mVIR:980:READ RECORDV1700:SINGLE RECORDVPRINT WHOLE GUIDEV:10:5)"PRESS TO STOP PRINTING"::(4)"PR#";SL:(9)"80N":TURN ON PRINTERW28)UxCUR,8,12,5,34U970 TO CONTINUE....":V188:H10:780:(7):KB,0:X$::QQPLAN GARDEN R::1:9:M$((ADAIN MENU"::" COPYRIGHT 1987 BY MICROSPARC, INC.":L$tPB8:8:M$(1):10:9:M$(2):12:12:M$(3):14:14:M$(4)}PL480PVCUR,8,18,7,32P`970:AD,LINEPjLINE1220,2630,3750,1150Pt1080Q~::10:5:"QUIT PROGRAM? (Y/N) ";:KB,0:X$:X$IOI10641960128:880:IFOI11041616384(NR6)128:880:IXO:D$"PR#0":O$:15:3:" THIS OPTION WILL DESTROY ANY ":3:" EXISTING LAYOUT "::: 3/4/10/10 SPACESO.MAIN MENU7P8::5)"THE GARDEN PLANNER - M:::ZERO FOOTAGES8NER(222):::216,0::NO ONERRNNLINE((4)1)2:N(4)"OPEN PG.GUIDE,L60":(4)"READ PG.GUIDE,R";INDP$,DS$,DR$,GM$,ST$,MT$:D$"CLOSE":ND$"PR#";SL:SD$:1050ND$"PR#";SL:(9)"80N"OI10241920128:880:(A160)64:(A);AMz(KD)155JI39:::1050:STOP PRINTINGPMJ:(13);VMM22:L$::23:6)"PRESS TO CONTINUE...";:PTĺ:7)"PRESS 'P' TO PRINT SCREEN";MM24:" TO EXIT ROUTINE TO MENU";:NI116:EC%(I)0::CHECK DEC. FLAGZL>J1(X$):(X$,J,1)"."ER1:X$X$"00":X$(X$,J2):J(X$)::mLH:ER1ER0:LRX$X$".00":L\(X$,1)" "X$(X$,(X$)1):860LfMpJII39:A(J):AA(A32)192:AA(A64)128:AA(A96)64:AA(A128)64:AA,1))57((X$,K,1))47ER1:K(X$)::0K:\K B1(X$):((X$,B,1))31H6B,V::KI18:I1,I1617::I9NS:I142,16(I8)17::K 32CL:I018:2I14,10:2I14,165::3:K*FIX DECIMALSL4ER0:(X$).01(X$)0X$"0.00"APE REPRESENTS ";::VG$(S):IJ1:24:"PRESS TO CONTINUE..";cJKB,0:X$:16302,0:JRR18(R1)::UP ROWJRR18(R8)::DOWN ONEJER0:X$""ıJ(X$)0ER1:J(X$)5ER1:(KK1(X$):((X$,K,1))46((X$,K((X$,I,1))32S$S$"^"(((X$,I,1))64)::630KIlS$S$(GP$,I,1):QIvwINS((TABLE)256)::# OF SHAPESI0:BV(R)8V(R)8:R119,BR217,B::3:ISA3,C2::DRAW VEGISA3,C2::XDRAW VEGJ35,24::16301,0:22:"SHS$H3:21:"WITH GRAPHICS DUMP":GH&3:21:" NO GRAPHICS DUMP":mH05:21:"WITH TEXT DUMP";:868:H:5:21:" NO TEXT DUMP";:868:HD5:21:868:HN5:1:"COLOR MONITOR ":HX5:1:"MONOCHROME MONITOR":4IbS$"":I1(X$)::"->";::" TO SELECT ...<";::"RETURN";::"> TO EXECUTE":" UP OR DOWN ARROW KEYS MAY BE USED"G" RETURNS TO PREVIOUS MENU"G24:L$;:G3:1:"PRINTER ":G3:9:"IN SLOT #";SL:H3:1:"NO PRINTER "::8 SPACE000) F^640Fh CONFIGURE0FrF$"GP.CONFIG":F|EM,1EF3990ZF:D$"VERIFY "F$gFD$OP$F$tFD$RD$F$FPT:SL:GP:GP$:CL:SD:SD$FD$CL$F216,0:NO ONERRFEM,0:1080F SUBROUTINESdG20:L$;:21:1::"<-";::" ";::GRAPHICS POS'NING FN.E LOAD BINARY FILES9E"4010aE,:10:10:"LOADING BINARY FILES":E6D$BL$"CURSOR.BAR.4,A$300":768E@:D$BL$"TEXT.SHAPES,A$1000":4096EJ:D$BL$"VEG.SHAPES,A$1400":5120FT232,0:TABLE,AS:TEXT.SHAPES ADDRESS ($1G, ETC.":EX$(3)"INSECTICIDES, PESTICIDES, HERBICIDES":EX$(4)"WATERING, HARVESTING"vD:10:10:"LOADING PG.NAMES"DF$"PG.NAMES"DD$OP$F$DD$RD$F$DI145:PG$(I):DI116:VG$(I),N$:VG%(I)(N$):DD$CL$EV(V)1917(V1)EM":M$(4)"QUIT PROGRAM"CD$(4):OP$"OPEN ":CL$"CLOSE ":RD$"READ ":WR$"WRITE ":U$"UNLOCK ":BL$"BLOAD ":BS$"BSAVE ":VF$"VERIFY ":AD$",A$2000":LE$",L$1FF8"CI139:L$L$"=":TDEX$(1)"SEED, SETS, PLANTS, ETC.":EX$(2)"FERTILIZER, TILLIN(16),T%(8,16),EC%(16),EX$(4),PG$(45)B1:0:3:AD974:EM975:230,32:TABLE233:AS16:VG20:KD16384:KB16368:CUR768:62450:B10:10:"READING PROGRAM DATA"CM$(1)"VEGETABLE GARDEN PLANNER":M$(2)"GRAPHIC/DISK UTILITIES":M$(3)"CONFIGURE SYST"VERIFY PG.GUIDE":D$"VERIFY PG.NAMES":D$"VERIFY VEG.SHAPES":D$"VERIFY TEXT.SHAPES":D$"VERIFY CURSOR.BAR.4":An216,0:NO ONERRAx(104)64Ĺ103,1:104,64:16384,0:10:10:"LOADING PROGRAM FILES"::D$"RUN GARDEN PLANNER"$B38400:VG$(16),VG%6C@ **********************;@ * GARDEN PLANNER *X@ * BY MARK R. CRAVEN *u@( * COPYRIGHT (C) 1987 *@2 * BY MICROSPARC, INC *@< * CONCORD, MA 01742 *@F ********************** @P(4)"MAXFILES 2"::D$(4)@Z3880pAdD$               ! !!!!!!!!!""" "  **********************9* *U* DUO DEMO *q(* BY SCOTT ZIMMERMAN *2* COPYRIGHT (C) 1987 *<* BY MICROSPARC, INC *F* CONCORD, MA. 01742 *P* *Z**********************  5/24/08 "'WIPEOUTS' IS A DEMONSTRATION OF 10 DIFFERENT WAYS TO CLEAR THE SCREEN. THE SCREEN IS FILLED UP, THEN CLEARED IN ONE OF THE TEN DIFFERENT WAYS. THEN THE PROCESS BEGINS ALL OVER AGAIN." X@--9  1'&*`(((((((((((((((((((((,048< $(,048"&*.2,(6)7L #67Lɍ ɀɠLL'somkig*9Jaq START OF STNGS (HIMEM) END OF STRINGS END OF ARRAYS START OF ARRAYS START OF VARS (LOMEM) END OF PROGRAM START OF PROGRAM FREE MEMORY LAST BLOAD d7dxЫ'Ј`8@iiۥi؅iXƥЅ;Ѕ?8 iiۥi؅iXƥ`@ 8ii`08逅8逅ͥ8؅8؅i Я8؅i xГ`'$ i@08逅ۥ8؅xƥD@i`08逅ۥ8؅xƥ`'Ѕ[Ѕ_@0` @@0` @ȱ''ȱ'ii `0ƥ8逅i Я8؅i xГ` @'ȑ''ȑii `0ƥ8逅 Ѕ?( ?8i@0ii8逅ݢ8i@0ii8逅ň` @@` @I1@` @xƥ`'Ѕ;Ѕ?8 iiۥi؅iXƥ` 'j&jj&jкi@08逅ЖЎ8؅x`'`  I@` ȱ'i@08逅Х8؅xл` 'ȑi@08逅Х8؅xл`'$ i@08逅ۥ8؅     -????d-()Ӓ:?v??99 $$dd)5қ;??9 d -9999888-------------------66666???????????????????$$$$<1 5)`H)? (hNO,(,`HH(hLh(hN OH?%Oh,(,`H(hL, "N":620S:11:"ARE YOU SURE YOU WANT TO QUIT? ";YN$:YN$"Y"YN$(121)ıPR(R(RRWR)100)::11:7:"YOU CORRECTLY ANSWERED ";PR;" %.":13:18:"BYE!":23:1::" PRESS TO QUIT ";:: S OF ";O2;" ";S4$;"."=h8:"WHAT IS THIS OBJECT'S ";S5$;"?"QrA$(A):X(A$)|11:7:"YOUR ANSWER? --> ";:I1X:(95);:I:" ";:CH(36):S6$;"."17:3:"WOULD YOU LIKE A CALCULATOR? (Y/N)";:X$X$"Y"120X$(27)İ1710:1590  *** NEW PROBLEM TYPES ***<" *** NEW PROBLEM TYPES ***Y, *** SCREEN LAYOUT ***_6{@14:"PROBLEM ";Q:1730J1:3::"ROUND YOUR ANSWERS TO 2 DECIMAL PLACES!":T5:"AN OBJECT HAS A ";S1$;" OF ";O1;" ";S2$;"."^6:"AND A ";S3$;"1M:O2V1590,S1$"VOLUME":S2$"CC"IS3$"DENSITY":S4$"G/CC"dS5$"MASS":S6$"GRAMS"rO1V:O2D|1590S1$"MASS":S2$"GRAMS"S3$"DENSITY":S4$"G/CC"S5$"VOLUME":S6$"CC"O1M:O2D *** NEW PROBLEM TYPES ***<JDEI1NJDE:1360'FNI1ZPL((A$,N1)):P10DE:LL(LP.5)P:L$(LL)lZA$L$(A$,I)rdn *** PROBLEM VARIETY ***xTP1410,1460,1510S1$"MASS":S2$"GRAMS"S3$"VOLUME":S4$"CC"S5$"DENSITY":S6$"G/CC"O:A$(V):1300V(A$)2MDV:A$(M):1300>M(A$)_TP(((78)(79)256)31)FF(((78)(79)256)51)TP1ADTP2AMTP3AV 1400DE2:I1(A$)(A$,I,1)"E"Ă(J1I12(A$,J,1)"."ľX$VX$"Y"Q0:1140#`1720Jj *** RANDOM NUMBER GENERATOR ***Ut1710l~:QQ1:Q10109012:10:"ONE MOMENT, PLEASE..."D(((78)(79)256)19301)100:D.51170A$(D):1300D(A$)V((78)(79)256)1001L40āIL140:A$A$" ":3PP1:P40P1[15:1:(A$,41P);:P1ĺ(A$,P1)I1SP::X(16384):X127āJ12:S(16336)::1030$16368,0:1140.:900:11408 *** EXIT CHECK ***B14:10:"MORE PROBLEMS? (Y/N)";L,Y3)570 &BX1,Y3)) 0YY1:5107 :NUMNUMBY DP2P$(2)"APPLE"İ2400:690_ N{ X +-------------------+ b ! INPUT ROUTINE ! l +-------------------+ v FLIP BLACK:DC P1,0 I$"K"I$(107)860CLAW---+! ! DROP A RANDOM BLOCK !> +---------------------+D O G(1)b B1:G.85580v X(7(1))41 C(3):Y2 A02:X,X2A2: BLACK:X,X2Y1 C(3):X,X2Y2 PTCH,X6:DUR,2:TNE (X,Y3)X2,Y3))X1 ,C(1)4:C(2)12:C(3)14. 6P116300:NUM28H @X((78)(79)256)g J(4)"BLOADBARRICADE.CLAW"} TEF2:XP,31:YP,8 ^1840 h1530 rP(2(1))1 |P$(2)"APPLE"P1 22P:12(P$(P)): P$(P);:  +------------------36,208,5,206,1,3,240,9,202,208,245,174,0,3,76,2,3,96E :X770790S Y:X,Y:m CLAW24578:FLIP24596 DC24982:DB24934 BC6:XP24576:YP24577 WHITE15:BLACK0 PTCH768:DUR769:TNE770 KB16384:CB16368 "CH24714:S$(32)- xWHITE:DC:C:DB:FLIP:BLACK:DC:DB: (104)12(3072)ĉ::12:"LOADING BARRICADE":104,12:3072,0:(4)"RUNBARRICADE" +------------------+ ! INITIALIZATION | +------------------+ :4 173,48,192,1  **********************9* BARRICADE *U* BY JIM GANZ *q(* COPYRIGHT (C) 1987 *2* BY MICROSPARC, INC *<* CONCORD, MA 01742 *F**********************ZEF1:3260d130 nWHITE:DC:FLIP:BLACK:DC:     " " " ""               757?'? -77--7?''---577775?)-7w57?''%'-)-7577?' -'----(-()(b)-;.>. ->w-m!$$566.-$$$566N$$$566.-m%'m9?'%'--7-I->7->->?,)! $ d -()-)--(--(------6?99999?8?8??IIQIIII--)))-(-(-66v666`c,DNWdl{.@OO --M-m?3M)M??9-5?7-7>->?.-J5*-->??N5?--5???*>., 5.$!7 5--><)-;.M5;.M5;-- 5?575--)-;N 5;-7?'?)-;N ?>>.----57-7?'?I5?-57--7---7--7?'?--7-- HELP--ANY KEY CONTINUES>";:%X$5X$"H"980IX$(27)İ1710S11401:17:" ";::"PRESS TO CONTINUE";::" ": 6 SPACES14:SP100A$"D=M/V........M=D*V........V=M/D.........": 8/8/9 PERIODSL(A$)! ";:890)fFF4ĺ"BE CAREFUL. ";:890OpFF5ĺ"BETTER TRY AGAIN. ";:890dz"I GOT ";A:92023:1:958:1::" PRESS TO CONTINUE ";::Z$:: *** KEYPRESS FOR HELP ROUTINE ***34,16:18::34,017::"(7);HFF1ĺ"NOT QUITE. ";:890RFF2ĺ"THAT'S NOT RIGHT. ";:890 \FF3ĺ"CHECK YOUR WORK$X$AN$AN(AN$)0AANFB1:RR1:730W(AAN).02FB1:FF0:RR1:730hFB2:WRWR1|12:FB750,830 *** FEEDBACK TO STUDENT ***I13:(7);:FF0ĺ"CLOSE ENOUGH! I ROUNDED AND GOT ";::A::10707: FFN33,40:32,0:34,0:35,24^X1:23:" ": 39 SPACESwb *** STUDENT INPUTl11:24vX$:X$(27)İ1710:1590X$(45)630X$(47)630X$(58)630X$;:"";AN$:11:CH1:S6$AN:210 OP3ANN1N2+ OP4ANN1N2> OP5ANN1N2q N1;" ";OP$;" ";N2;" = ";AN:FL0:N1$""::210 PP$""FL0220 &A$; 0PP$""FL1OP$"":FL0:PP$N1$:220 :(PP$)1PP$"":220 D(PP$)1L(PP$):PP$(PP$,L1):220PP$A$:220 |N2$PP$:450* OP1:4408 OP2:440F OP3:440T OP4:440b OP5:440x N1$PP$:FL1:210 N1(N1$):N2(N2$) N10N20ĺ"0":FL0::210 OP1ANN1N2 OP2N20ANN1N2 OP2N20ĺ"UNDEFINED!":FL0:L0A$(47)ĺA$;:OP$A$:400C L0A$(43)ĺA$;:OP$A$:410f "L0A$(45)ĺA$;:OP$A$:420 ,L0A$(94)ĺA$;:OP$A$:430 6A$(27)590 @A$(13)ĺ:380 JA$(8)540 TA$(46)A$(57)220 ^A$(47)220 hA$; rPP$TURN TO PROBLEM ":) 22:1:"--> "H 33,36:32,4:34,18:35,22p 19:4:"EXAMPLE --> 12*2 " 20:16:"12 * 2 = 24" 22:1 PP$"" A$ L(PP$) L0A$(45)360 FL1310 L0A$(42)ĺA$;:OP$A$:390 ***G n:20:13:"ERROR":32,1:33,39:900:32,4:33,36:::FL0:130Q x110 17:1:" ";::"CALCULATOR MODE";::" ": 12/12 SPACES 18:1::" * / + - ^ WITH ANY TWO NUMBERS ": 23::4);"PRESS TO RE **********************; * DENSITY DRILL *X * BY MICHAEL WAUGH *u( * COPYRIGHT (C) 1987 *2 * BY MICROSPARC, INC *< * CONCORD, MA. 01742 *F **********************P::Z1140 d *** CALCULATOR ROUTINE      )3)1B1400B23:11:"FREEDOM AT LAST":B::5:"THIS PROGRAM REQUIRES THE 'HI-RES SCRN' FILE TO BE ON THE SAME DISK." :X$:X$(13)1220^b950^l4:1:958:5:1:"ENTER THE LONGEST DIMENSION (LENGTH)":21:L$:11)"RANGE = 6-100 FT.":5)" WITHOUT ENTRY EXITS"^v7:" LENGTH (IN FEET) = ";:"";LN$:LN$""LN$(27)1220_(LN$)100(LN$)6ĺ(7):7c| B35):1:ZZ1224:Z1ZZ:Z1Z4Z1Z4O Z1:868:Z2110::25Z1Z3Z1Z1Z3q "25Z1:868:Z2110:::: ,33,1:ZZ1940:32,ZZ:936:32,40ZZ:936::32,0:33,40:: X5,Z41 936:Z1Z11:Z113ĉ:34,Z3:35,Z4::: 190| Z3(34):Z1Z31(35)::Z1:1:40)::998:1:40)::: Z3(34):Z1(35)Z311::Z1:1:40)::998:1:40)::: ((35)):1:Z1124::Z2120::::# Z3(34):Z4(:936:< 33,1:Z13901:32,Z1:936::33,40:936:t Z1(34)1(35):1:Z1:868:Z2120:::936: Z10:Z3(34):Z4(35) Z2Z1:Z211Z211 33,15(Z12):32,13Z1:34,11Z2:Z311Z2Ĺ34,Z3 35,12Z2(Z211):(35)Z4Ĺ3(X);::120:(16384)127Ĺ16368,0:80= d16368,0::R n SCREEN WIPESi xZZ%(((1)10)1) ZZ%140,150,160,170,180,240,250,260,270,300:936: Z1140:33,Z1:936::33,40:936: Z1(35)(34)11:1:Z1:868:Z2120:: **********************; * WIPEOUTS *X * BY DAVID SIGETICH *u( * COPYRIGHT (C) 1987 *2 * BY MICROSPARC, INC *< * CONCORD, MA 01742 *F **********************PX(1)255:X33(X127X160)80+ ZI1960:GINIA,CHARLESTON,221,72Mb^ WISCONSIN,MADISON,171,42,WYOMING,CHEYENNE,90,49bhE(222):EL(218)256(219):E6ė:12:"USA.SHAPES NOT ON THIS DISK":22:1:"ESC TO QUIT, RETURN TO TRY AGAIN";:Z$:Z$(27)680:1660cr:12:"ERROR "E" IN LINE "ELNC.":22:8:"PRESS RETURN TO CONTINUE";:A$::La`L` d a d fa `LGa ``i`i q`i qaɀL8`L8``T`L8``ȭ`i,`i `ȭ`i `ȭ`i ```i, ``i `i`- (``i-`i (`i`i (````UL8`T  U` d a d fa `!  ```N`N`N`N`N`N``` ``i qe `i qe ` qe `i` qe `i qe `i qe `i`i q  23:12:"THE ANGRY BEE":220GAn115,50135,50140,100110,100115,50`Ax0:130,50133,50:3wAX130:Y75:A1:B1A768,XA,YBA(242)1ī190AXXA:YYBAX,Y:0:XA,YB:3A140AC15:S(16336):CBA((1)3)1:B((1@ **********************;@ * THE ANGRY BEE *X@ * BY ADAM COTI *u@( * COPYRIGHT (C) 1987 *@2 * BY MICROSPARC, INC *@< * CONCORD, MA 01742 *@F **********************@P230@Z(4)"BLOAD HI-RES SCRN"Ad:3:: ,235,56,RHODE ISLAND,PROVIDENCE,264,50,OREGON,SALEM,29,42aJ SOUTH DAKOTA,PIERRE,124,43,TENNESSEE,NASHVILLE,195,94,TEXAS,AUSTIN,130,120,UTAH,SALT LAKE CITY,66,75bT VERMONT,MONTPELIER,250,23,VIRGINIA,RICHMOND,234,77,WASHINGTON,OLYMPIA,29,22,WEST VIR,20,NEW JERSEY,TRENTON,257,58,NEW MEXICO,SANTA FE,92,98,NEW YORK,ALBANY,242,41`6 NORTH CAROLINA,RALEIGH,233,91,NORTH DAKOTA,BISMARCK,124,26,OHIO,COLUMBUS,207,63,OKLAHOMA,OKLAHOMA CITY,136,969a@ SOUTH CAROLINA,COLUMBIA,227,100,PENNSYLVANIA,HARRISBURG40,65u_ MASSACHUSETTS,BOSTON,266,42,MICHIGAN,LANSING,196,48,MINNESOTA,ST. PAUL,150,32,MISSISSIPPI,JACKSON,182,109_" MISSOURI,JEFFERSON CITY,161,81,MONTANA,HELENA,86,28,NEBRASKA,LINCOLN,124,63,NEVADA,CARSON CITY,42,70N`, NEW HAMPSHIRE,CONCORD,255128,GEORGIA,ATLANTA,217,113,IDAHO,BOISE,55,45^ ILLINOIS,SPRINGFIELD,177,70,INDIANA,INDIANAPOLIS,192,70,IOWA,DES MOINES,155,58,KANSAS,TOPEKA,130,79_ KENTUCKY,FRANKFORT,199,84 ,LOUISIANA,BATON ROUGE,170,128,MAINE,AUGUSTA,263,21,MARYLAND,ANNAPOLIS,27192,25198,30187,32182,35:150w] ALABAMA,MONTGOMERY,197,109,ARIZONA,PHOENIX,63,100,ARKANSAS,LITTLE ROCK,161,100] CALIFORNIA,SACRAMENTO,29,92,COLORADO,DENVER,97,74,CONNECTICUT,HARTFORD,256,56,DELAWARE,DOVER,254,67-^ FLORIDA,TALLAHASSEE,222,88\55,8657,5673,56B\56,5643,5447,3545,3046,1553,15e\43,545,52:24,5321,7250,96\5,5213,2719,2719,3246,30\13,279,1814,1914,2119,2117,1345,15\46,11235,11030,10518,1004,806,52"]169,31175,24175,27182,27,137110,132115,131128,150140,155141,144160,132c[n90,12080,12080,12277,12279,88110,89{[x79,8881,64108,65[81,6473,6373,38109,40[73,4067,4061,3361,2356,2054,15110,19\77,12065,12046,11251,10349,9453,9455,8680,50138,18147,18169,22160,31?Z2138,18110,18109,35140,35YZ<109,35108,52140,55ZF108,53107,63116,64116,71149,71ZP116,71117,89153,89ZZ117,89110,89110,93126,93126,104140,108154,1085[d110,93109,12090,12097,12797,13110,60181,37179,34167,30159,32157,42165,49171,56Y182,127180,130185,135172,133171,132160,132162,124160,120157,113172,112Y 157,113157,110155,110152,92178,90Y152,92150,73146,68167,68Y146,68142,55142,50167,50Z(142,,83200,75212,77@X200,75197,57204,55210,57217,53219,50aX197,57185,60188,73186,82X204,56206,48204,42202,45200,36192,36190,40190,46192,54189,58X180,87174,81174,78167,69169,67169,64170,61171,56183,54185,604Y1830,99207,97`W228,122241,143241,150237,151222,138222,134213,126195,126195,123207,121W195,126190,126188,99200,98W190,126182,127180,124170,124173,119171,112176,100188,99W176,100180,90210,87X180,90180,87186,83193N TO CONTINUE";:XX1Ğ/40:" ";::22:32GA$:A$(13)1280M z10:6::"SHAPE TABLE CANNOT BE LOADED":5:"INSERT CORRECT DISK INTO DRIVE":(1260:02:12:10:"SHARK BY STEVEN ROTH"::3:"COPYRIGHT 1987 BY MICROSPARC, I(121)A$"N"A$(110)11808A$"Y"A$(121)160B::w22:1:958:5:"DO YOU WANT TO QUIT? (Y/N): ";A$:A$"Y"A$(121)A$"N"A$(110)1220A$"Y"A$(121)121016368,0:780:28022:2:868:8:"PRESS RETURA3OY( YP,A:120:4( WHITE:DC:BC,C:P1,0:H( ERROR HANDLER( :12:"ERROR "(222)" IN LINE "(218)256(219)"."( 21:" TO CONTINUE OR TO QUIT";:Z$::Z$(27)3280:EF100,360( :@ *&99` @ ,67225,64NVj219,61213,69211,75213,80217,81225,79227,73230,71235,68oVt215,80210,87247,80243,71V~220,86211,92205,98216,95229,94240,100249,88247,80V211,96228,111242,99 W228,111228,122209,122206,121206,116207,11220,45256,48\U8248,29240,31235,41223,43225,45225,47221,49221,51243,48252,52252,50UB253,52251,57253,63248,65245,62247,58245,50UL221,49219,50219,52221,63245,61UV247,63250,69246,69245,63 V`248,69250,71247,72237,67225L$23;-T::7:0,0279,0279,1590,1590,0iT259,10257,25261,35273,22274,19268,17265,8259,10T256,25254,27252,40260,38262,35T254,27248,29250,41252,40T$250,40251,45259,44261,47263,47260,38 U.251,45252,50260,48:256ACKSPACE ":120::A$" <-- ":120::A$"KEY WITH LEFT POINTING ARROW":120::A$"WILL ERASE AN ERROR":120:130S:3::A$"REMEMBER":120:::A$" LOOK FOR THE ARROW ":120SQ2A$"AND THEN NAME THE CAPITAL":120S130T USA.SHAPES, A$8000,3:"YOU WILL SEE A MAP OF THE CONTINENTAL"::"UNITED STATES WITH AN ARROW INSIDE A"R:"A STATE. THE COMPUTER WILL LIST FOUR"::"CAPITALS. YOU WILL TYPE THE ";::"LETTER";::" OF"::"THE CAPITAL OF THE STATE INDICATED.":130:980oS::3:A$" B"YOU WILL SEE A MAP OF THE CONTINENTAL"::"UNITED STATES WITH AN ARROW INSIDE A"Q:"STATE OR POINTING AT A STATE. THE COM-"::"PUTER WILL LIST FOUR STATES. YOU WILL"::"TYPE THE ";::"LETTER";::" OF THE STATE INDICATED."Q130:980TR:6:"Pp130:970nPz:5:3:"YOU WILL SEE A MAP OF THE CONTINENTAL"::"UNITED STATES WITH AN ARROW INSIDE A"P:"STATE OR POINTING AT A STATE. TYPE THE"::"NAME OF THE STATE'S CAPITAL. BE SURE TO"::"SPELL IT CORRECTLY."P130:970QQ:6:3:,1:Q2:950'OH780,0:T$"B"Q1:8604ORQ2:890O\:5:3:"YOU WILL SEE A MAP OF THE CONTINENTAL"::"UNITED STATES WITH AN ARROW INSIDE A"Pf:"STATE OR POINTING AT A STATE. WRITE THE"::"NAME OF THIS STATE. BE SURE TO SPELL IT"::"CORRECTLY.D";::". TYPE FULL NAME":20:7:"YOU TYPE THE COMPLETE NAME":7:"OF EACH ";::"CAPITAL";::" SHOWN."N 23:6:"YOUR CHOICE (ESC TO QUIT):";:(95);:(8);N*T$:T$(27)1660:T$"A"T$"D"ĺBL$;:810N4T$"A"Ĺ780,1:Q1:920 O>T$"C"Ĺ780"B";::". TYPE FULL NAME":10:7:"YOU TYPE THE COMPLETE NAME":7:"OF EACH ";::"STATE";::" SHOWN."M :13:2:"C";::". MULTIPLE CHOICE"::7:"COMPUTER LISTS FOUR ";::"CAPITALS";::". YOU":7:"TYPE LETTER OF THE CORRECT ONE."iN18:2::"OWN":120:L23:A$" PRESS RETURN TO CONTINUE "::120:LL23:32:T$:L:::A$" SELECT GAME TYPE ":120:3:2:"A";::". MULTIPLE CHOICE"::7:"COMPUTER LISTS FOUR ";::"STATES";::". YOU":7:"TYPE LETTER OF THE CORRECT ONE."hM8:2::INTS AWARDED":12:20(A$)2:A$:-j1260KtLL1:SCSCBP:L261060o~::10:12:"CONGRATULATIONS!":6:"YOU HAVE COMPLETED LEVEL 25":P$"FINAL SCORE: "(SC):20(P$)2:P$23:10:"PLAY AGAIN? (Y/N): ";A$:A$"Y"A$Q$"":16368,0:SCSC500:SC0SC0H$:::10:15:"GET READY!":[.460:800:1708Q$""::::10:11:"LEVEL ";L;" COMPLETED"BZ12:X25753:8,X:9,3:768:XLX75253:8,X:9,2:768:XVZ:BP0BP0#`A$(BP)" BONUS PO((SH$(N),X21,2))#S8X1ĂXGS8X4S((SH$(N),9,2)):F1VX5F1ıqS210(X1)7,81:X:ZP(FS)7:0:20210Z,87:20211Z,87:Y7989:213Z,Y257Z,Y:Y:3X2552005:8,X:9,X50:768:1933,80:X:20:958:1260& ' MOVE UP' AY31,' YP,A:110:;' MOVE LEFTL' AXAX21]'& XP,A:110:l'0 MOVE DOWNz': A3AY2'D YP,A:110:'N MOVE UP'X AAY231'b YP,A:120:'l MOVE RIGHT'v A(XP)OX' XP,A:120:' MOVE DOWN( CH BLOCK IS "WORTH" THE MOST(&^ T1NM5&h VLVL(T)B&r TI1NMV&| VLVL(TI)FG1\& i& FG2980w& FG0:F1T& FG0:& AXAX(F1):AYAY(F1):CAX,AY)& P1,0& 24:31:8)& 198& X(XP):OXX& Y(YP):OYY' MANIPULATE CLAW,S,1)(S$,(Z221),2)(S$,T2,2);zSH$(N1)SH$(N)810RS910,920,930,940fA(N)N1N2:950zA(N)N1N2:950A(N)N1N2:950A(N)N1N2N:--- DRAW FISH ---20203,87:20204,87:21207,79:21208,79F0:X15:S(N12)+HS3N2100N210N2(N2100)=RS4N1N1N2c\(S2N1N2)N199N299N20810fZ1(N110):Z2(N210):S2$"4567":S$"08091011121314151617":T1((N110Z1)21):T2((N210Z2)21)"pSH$(N)(S$,(Z121),2)(S$,T1,2)"0"(S2$-- SUBROUTINES4----------------------: :22:" FISH LEFT: ";FL;:17:"LEVEL: ";L;:28:"SCORE: ";SC;:--- CREATE PROBLEMS --- N110*N1((1)(2L1))1:N2((1)(2L1))14SN4:S((1)SN)1>S3N110N1L(T)(CC(3)P(2)P(1)50)@% VL(T)VL(T)(CC(3)P(2)P(1)60)f%" VL(T)VL(T)(CC(3)P(1)P(2)30)%, VL(T)VL(T)(CC(2)C1C(2)C2C(3)X3,Y))%6 VL(T)VL(T)15(CC(3)NUM5P(1)P(2)10)%@ VL(T)VL(T)(CC(3)NUM10)%J &T DETERMINE WHIC(1)X3,Y)15X3,Y)X3,Y))V$ VL(T)VL(T)2(CC(2)C1C(3)C2C(1)X3,Y))d$ X22830$ VL(T)VL(T)2(CC(2)C1C(1)C2C(3)X3,Y))$ (C1C(3)C2C(1))(C1C(1)C2C(3))(X3,Y)X3,Y))(X3,Y)X3,Y))VL(T)VL(T)1% VL(T)V(T)2(CC(2)C1C(1)C2C(2)X3,Y)X3,Y))=# X22760p# VL(T)VL(T)2(CC(2)C1C(1)C2C(2)X3,Y))# VL(T)VL(T)(C1C(1)C2C(1)X3,Y)X3,Y))# VL(T)VL(T)2(CC(2)C1C(2)C2C(1)X3,Y))# X22790#$ VL(T)VL(T)(C1C(1)C22(C1C(1)C2C(1)X3,Y)),"n X22690w"x (C1C(1)C2C(1)X3,Y))(C1C(1)C2C(1)X3,Y))VL(T)VL(T)2" VL(T)VL(T)(CC(2)C1C(2)C2C(1)X3,Y))" X312720" VL(T)VL(T)2(CC(2)C1C(1)C2C(2)X3,Y)):2730/# VL(T)VLY)$! C1X1,Y3):C1C113(C113)F!( C2X1,Y3):C2C213(C213)w!2 VL(T)VL(T)4(CC(1))2(CC(3))4(CC(2))!< X312650!F VL(T)VL(T)2(CC(1)C2C(1)X3,Y))!P 2660!Z VL(T)VL(T)2(CC(1)C2C(1)X3,Y)X3,Y))"d VL(T)VL(T) Y736 9(X28)8 X,Y1:FLIP:BLACK:X,Y1H X,Y)2520W X282550e ::2550 X1,Y1)X1,Y1)2540 Y36:2500 NMNM1:AX(NM)X:AY(NM)Y:Y36:2500 EVALUATE EACH BLOCK T1NM XAX(T):YAY(T)! CX,$?o 666';'Mm%6 F6?? $,(--$6.6M!$@+66> s- $$$c 366n 8 $6--d066$$$V$$$366&$(u66?$e<8?6.6h$<866%e<876.#$u?Dd-$ e?--% ??J ?*6( $.(',-2?9?,`-2?$ II:MnmnmnInmnIuIRIII  .->RII5JI?m m:MMM 7M M m ;III5IM13Mnn-??.-5??-6M5R)m);3mii.M-M  M>?wiMw?IIIBM-M1MII n)m w)-II I?M1M1M13m1߻  uI ?II->?.?*M nM nMii M mi;?VII -MM niMs M-??--->??7---??-MI>RI-nmnInmnmnI?II-IMi3 MM??N-??.-5??-6MI7RI 9\!F}&HkIII  >w?.5?.5?.5?NIRIIm ;*--????----->????7-----????---??VII ) MMn n> >7 >7 >7 >7 ?MIRIIM M? MiN -  Mi?M MVII ?J -m:   g ʆ g ʆ g ʆ g ʆ (ɠ0()?(840,`( (8`( (L24 %(48),F%(48):BL$(7):BS$(8)(95)(8)[KI148:J12:A$(I,J)::J12:A%(I,J)::gKCL760 L:10:A$"LEARN THE U.S.A.":120:12:A$"BY LARRY SAGE":120:14:A$"* COPYRIGHT 1987 BY MICROSPARC, INC. *":120:18:A$"BE SURE CAPS LOCK KEY IS D PLAY AGAIN? ";::"(Y/N)";::" ";:T$:T$"Y"T$"N"ĺBL$;:650QJT$"N"ĀJ:CL1::8:4:"ONE MOMENT PLEASE ...":700J:12:"LOADING THE SHAPE TABLE":1640J(4)"BLOAD USA.SHAPES":232,64:233,31:0:1:216,0)KA%(48,2),A$(48,2),E,Q)::24:1:868:6:"PRESS RETURN";::" TO CONTINUE ";:F%(I)1LIDT$:UIN150IX::10::" FINAL RESULTS = "ZZ:::3:10:"YOU MISSED:":5IbFF0:I148IlF%(I)0640Iv11:" "A$(I,Q):FF1I:FF0Ė11:"NONE"CJ23:4:"WISH TO5:"INCORRECT ANSWER";:25:"-10 POINTS"l::8:"BONUS POINTS ARE AWARDED":9:"FOR ANSWERING QUICKLY."r22:5:"START ON WHICH LEVEL? (1-25): ";LV$::22:40:" ";:L(LV$):L1L1L25L25--------------------------------XCb::48,32:0,391:0,3947:0,470:0,4739\l3:17::"SHARK!":v5:5:"TYPE THE ANSWER TO THE PROBLEM":5:"IN THE FISH NEXT TO THE SHARK.":11:16:"SCORING":13:5:"CORRECT ANSWER";:25:"100 POINTS"(:40,4435,4515,492,53J45,9948,10047,10239,10332,10418,1072,112Z0:115,60uX327017:18X,15:0,0279,0279,1590,1590,01,1278,1278,1581,1581,1&0:----------------------D TITLE PAGE N--------------  DRAW SCREEN6 ----------------------< q 232,0:233,96:230,32:16368,0:62450:3:1:0 X16:215X5,65((7X)2)6:X X16:313X5,96((7X)2)6:X 14,9112,8614,7919,7249,6557,6262,5761,5350,47) h780:8,255:9,25:768:Q$"":T:240> r8,150:9,1:768 |ZP(FS)7:0:20210Z,87:20211Z,87:Y7989:213Z,Y257Z,Y:Y:3 SCSC100:FLFL1:780:FL01080 16368,0:Q$"":NN1:970:P(N)1:FSFS1:280  ------------------1100(L1.5):K(16384):K128ĂT:BPBP50:240S "16368,0:KK128:K271220u ,K8(Q$)1Q$(Q$,(Q$)1) 6K48K58ĂT:240 @Q$Q$(K):21:868:34P(FS):Q$ J(Q$)((A(FS)))ĂT:240 T(Q$)A(FS)370 ^SCSC10:SC0SC0:J:P$(I)XP$:I::. 68 +------------------+RB ! APPLE'S TURN !nL +------------------+tV ` 24:31::"THINKING";:j X17:VL(X)0:AX(X)0:AY(X)0t :NM0:FG0~ FIND TOTAL FREE X2262 X,34)X,31)Ă R"IF YOU WISH TO PLAY AGAINST THE COMPUTERTHEN ENTER 'APPLE' AS PLAYER #2."X "ENTER THE NAME OF PLAYER #2: ";P$(2) P$(1)(P$(1),8) P$(2)(P$(2),8)$ I12:XP$"":J1(P$(I)):XX((P$(I),J,1)):XP$XP$(XX32(XX96XX123))WHEN ALL BLOCKS HAVE BEEN RETRIEVED, THE"T"PLAYER WITH THE HIGHEST SCORE WINS!"\14"DO YOU WISH (P)ADDLE OR (K)EYBOARD CONTROLS? ";I$::I$"P"I$"K"I$(107)I$(112)2260:6 SPACES"ENTER THE NAME OF PLAYER #1: ";P$(1) BUTTON (0) OR ."Up24:8:"PRESS ";::"RETURN";::" TO CONTINUE ";YN$:}z"SCORING IS BASED UPON COLOR:"::4:19):4:" DARK GREEN = +10 "4:" MEDIUM GREEN= -10 "4:" LIGHT GREEN = ??? "4:19):::)"-4"M KEYS. WHEN THE CLAW IS POSITIONED":]>"AROUND A COLORED BLOCK, IT WILL AUTOMAT-"H"ICALLY 'GRAB' THAT BLOCK. THE BLOCK IS":R"THEN CARRIED TO THE RIGHT SIDE OF THE":\"SCREEN AND RELEASED INTO A RECEPTACLE BY"f"PRESSING GAMEė::2260:B"'BARRICADE' IS A GAME BOTH OF LUCK AND":q "STRATEGY. PLAYERS TAKE TURNS REMOVING":"COLORED BLOCKS FROM A BARRICADE OF 28": "BLOCKS. A CLAW IS MANEUVERED WITH EITHER"*"THE HAND CONTROLLER(S) OR THE I,J,K, AND"ȯ٠ӍůîӯӍүɍȯίӍӯŠӍӯĠӍȯ̠ӍӯԍӯǠӍӯٍӯӍӯӍΠӍΠӍΠčٍӍӍӍύ΍ȍȍȭҍȭҍԠύύӍӍ΍ӯӍӍίˠӍůōӭЭȍӭЭōӭȍӭōӍɍӠӍōӍҍٍĭӍӍӍ΍ҍԍÍɍӍŭčŭƍ΍    PUMPKIN/GOURDS",13,"TURNIPS/LARGE ROOTS",11" PEAS/POD VEGETABLES",9,"RADISH/SMALL ROOTS",12," PEPPERS/EGGPLANT",12," BEANS/OKRA/BIG PODS",10" GREENS/PARSLEY",13," POTATOES/TUBERS",14," ONIONS/SCALLIONS",7," SPINACH/LEAFY GREENS",13 RHUBARB,RUTABAGA,SPINACH,SQUASH-SUMMER,SQUASH-WINTER,SWEET POTATO,TOMATILLO,TOMATOES,TURNIPS,WATERMELON r"CARROTS/PARSNIPS",10,"TOMATOES",13,"CORN/STALK VEGETABLES",10,"LETTUCE/CABBAGE/ETC.",13+|"MELONS/CANTALOPES",13,"CUCUMBER/ZUCCHINI",9,"SQUASH/S SPROUTS,CABBAGE,CARROTS,CAULIFLOWER,CELERY,CHARD-SWISS,CHIVES,COLLARDS,CORN ^CUCUMBER,EGGPLANT,GARLIC,KOHLRABI,LEEKS,LETTUCE-HEAD,LETTUCE-LEAF,MUSKMELON,OKRA,ONION SETS,ONION PLANTS,ONION SEED,PARSLEY,PARSNIPS,PEAS,PEPPERS,POTATO,PUMPKIN,RADISHg h"A$"ERROR "(E)" IN LINE "(EL)3 ,14:1:A$z 622:1:"RETURN TO TRY AGAIN, ESCAPE TO QUIT";:Z$::Z$(27)80 @ J PLANTING GUIDE DATAM TARTICHOKE,BEANS-SNAP-BUSH,BEANS-SNAP-POLE,BEANS-LIMA-BUSH,BEANS-LIMA-POLE,BEETS,BROCCOLI,BRUSSEL :12:"FILE CREATION COMPLETE":M E(222):EL(218)256(219):216,0y :12:"TROUBLE CREATING PG.NAMES FILE" E4A$"DISK IS WRITE-PROTECTED":300 E8A$"I/O ERROR--CHECK DRIVE DOOR":300 E9A$"DISK FULL--TRY ANOTHER":300$ RRENT DISK";:Z$: Z2406 dD$(4):F$"PG.NAMES" nD$"OPEN"F$:D$"CLOSE"F$:D$"DELETE"F$: REMOVE EXISTING FILE, IF ANY xD$"OPEN"F$:D$"WRITE"F$ I145 A$ A$ I I116 A$,B$ A$:B$ D$"CLOSE"$ **********************9* PG.NAMES.CREATE *U* BY MARK R. CRAVEN *q(* COPYRIGHT (C) 1987 *2* BY MICROSPARC, INC *<* CONCORD, MA 01742 *F********************** P:12:"PRESS RETURN TO CREATE PG.NAMES":" FILE ON CU  A$"DISK FULL--TRY ANOTHER":490PE16A$"SYNTAX ERROR IN LINE "(EL):490E42A$"OUT OF DATA ERROR IN LINE "(EL):490A$"ERROR "(E)" IN LINE "(EL):12:A$ 22:1:E16ĺ"RETURN TO CONTINUE, ESCAPE TO QUIT";:Z$::Z$(G$(I,J):JI"D$"CLOSE"F$v:10:1:"BE SURE YOU HAVE SAVED PG.GUIDE.CREATE":"THEN RUN GARDEN PLANNER":E(222):EL(218)256(219):216,0E4A$"DISK WRITE-PROTECTED":490E8A$"I/O ERROR--CHECK DRIVE DOOR":490 E95,60-80,90-105,70-110,20-50,720,80-90,40-65,50-60,85-120,120,90-100,55-90,45-60,80-100o@ CREATE RANDOM FILEJD$(4):F$"PG.GUIDE":420TD$"OPEN"F$:D$"CLOSE"F$:D$"DELETE"F$^D$"OPEN"F$",L60"hI145rD$"WRITE"F$",R"I |J16:P2,2,1,3,3,3,3,3,1,32DAYS TO MATURITY PG$(J,7)" 365,45-65,60-70,60-80,85-90,55-65,60-80,80-90,65-95,60-80,55-65,90-120,55-65,80-90, 65-85,60-90,55-65,75-95,90,60-70,80-90,55-80,45-60,75-100,50-60,95-120,95-120,100-165,85-90,100-120V6 65-8-10,4-10,4-8,7-14,N/A,N/A,7-12,14-28,15-25,6-15,10-20,8-16,6-10,3-10,N/A,3-10z 6-14,3-12,6-10,N/A,6-13,6-14,3-10,3-12 SOIL TYPE COOL,TOLERATES COOL,WARM (1,2,3) PG$(J,6) 2,3,3,3,3,2,2,2,2,2,2,1,2,2,2,3,3,3,2,2,2,1,1,3,3,1,1,1,2,2,1,3,2,3,1,-24,12-20,16-24,18-30g 24-36,24-36,72-120,6-12,36,18-24,12-14,36-60,72-120,36-48,36,36-60,15-18,60 DAYS TO GERMINATION PG$(J,5) 7-14,6-14,6-14,7-12,7-12,7-10,3-10,3-10,4-10,10-17,4-10,9-21,7-10,8-12,4-10,6-10,6-10,7-14,6-10,3-10,7-12M 412,2-4,16-24,24-481 12-18,24,18-36,1-3,12-16U DISTANCE BETWEEN ROWS PG$(J,4) 72,18-30,36-48,24-30,30-36,12-18,24-30,24-30,24-30,14-24,30-36,24-30,18-24,10-16,24-30,30-36,48-72 36,12-18,18-24,12-18,18-24,12-18,48-72,28-36,12-24,12-24,12-3/2,1/25 CROWN,1/2,1/2,1,1,PLANTS,1/2,1/2,1/2,1[ DISTANCE BETWEEN PLANTS PG$(J,3) 60,2-3,4-6,3-6,6-10,2,14-18,12-18,12-20,1-2,18,8,4-8,8,10-15,10-14,12,18,2-4 3-4,2-4,12-14,4-6,12,15-18,2-3,2-3,2-3,3-6,3-4,2-3,18-24,12,30,1-2,24-30,8-FILE ON CURRENT DISK";:Z$::420C ZI16:J145:PG$(J,I)::b dPLANTING DEPTH - PG$(J,2) n 1/2,3/2-2,3/2-2,3/2-2,3/2-2,1/2-1,1/2,1/2,1/2,1/4,1/2,1/8,1,1/2,1/4,2 x 1,1/4-1/2,1,1/2,1/2-1,1/4-1/2,1/4-1/2,1,1,1-2,2-3,1/2,1/4-1/2,1/2,2,1/4,4,17  **********************9* PG.GUIDE.CREATE *U* BY MARK R. CRAVEN *q(* COPYRIGHT (C) 1987 *2* BY MICROSPARC, INC *<* CONCORD, MA 01742 *F**********************" PPG$(45,6)::12:"PRESS RETURN TO CREATE PG.GUIDE":" 301,0:BP2500:FL10:FS1C 780:X110:P(X)0:X:N1:970:P(1)1I e ----------------------z MAIN LOOP ---------------------- P(FS)231030 25576:21:868:34P(FS):Q$ X110:P(X)0P(X)P(X)1 X2 TS n----------------------# x4 1330:1300Z (4);"BLOAD SHARK.SHAPES":25856 X768786:Y:X,Y:: 173,48,192,136,208,4,198,9,240,8,202,208,246,166,8,76,0,3,96:SH$(20) 610:460:690:800:XX1:1260:XX0 16297,0:16304,0:162 **********************9----------------------U* BY STEVEN ROTH *q(* COPYRIGHT (C) 1987 *2* BY MICROSPARC, INC *<* CONCORD, MA 01742 *F**********************PZ ---------------------- d SET UP VARIABLE        T (C) 1987 BY MICROSPARC, INC":GX239:17:X:"-"::41X:"-":b11:26:"BY JIM GANZ"m34,1921:3:"WOULD YOU LIKE INSTRUCTIONS (Y/N)? ";YN$YN$(YN$,1)YN$"Y"YN$"N"YN$(110)YN$(121)2000 YN$"N"YN$(110):23:S$;:27:S$4N13:X12:32:S$;:36:S$:CX32:5):UbHT15:T1:4`lX16rvTT2:HTHT2HT::M1T:"//";::HT:M1T::S$;::"/";:::7:26:11)::26:" BARRICADE ":26:11): 18:2:"COPYRIGH23:12(P$(1)):P$(1)"....... 0":7 PERIODS_12(P$(2)):P$(2)"....... 0";:7 PERIODSqFLIP:P1,0:w +------------------+ ! INTRODUCTION ! +------------------+&0:24:3):X13:25:S$:D23:5):X1MY:#rPTCH,X4:DUR,4:TNE)|FKK1:MM3:X1X12:XX1LT21k10:"SCOREBOARD";27:"+10 -10 ???"10:"----------":10 -'SC(1):26,2838:26,2839C(2):31,3338:31,3339C(3):36,3838:36,3839/-------+:&13:0,390R0,135:X3294:X,X235::38,3935_0,3936v"Y3739:0,24Y:~,156X2937:21,35X:@X0JK6:M34:G06:T0KTCC((2(1))1)^XX4:(30(1))CC(3) hC:Y02:X3,Ӎί΍ίίί     (95);:(8);NHT$:(T$)27Ľ:::5:6:"ONE MOMENT PLEASE...":CL1:700lH&T$"A"T$"D"ĺBL$;:540H0T$:T$E$Ģ23:31::"CORRECT":24:1:868:7:"PRESS RETURN";::" TO CONTINUE ";:ZZZZ100:580BI:23:31::"INCORRECT":V1:H1:::A$(I121:H123:E$"B":530pG21:3:A$(IA,Q);:23:A$(IB,Q):22:3:A$(I,Q);:23:A$(IC,Q):V122:H13:E$"C":530G21:3:A$(IA,Q);:23:A$(IB,Q):22:3:A$(IC,Q);:23:A$(I,Q):V122:H123:E$"D"H23:15:"SCORE = ";::ZZ:23:3:"HERE->";::" ";:1):ICIICIAICIB470aF:1616,1:1636,2:1744,3:1764,4:QR((1)41):QR490,500,510,520F21:3:A$(I,Q);:23:A$(IA,Q):22:3:A$(IB,Q);:23:A$(IC,Q):V121:H13:E$"A":530G21:3:A$(IA,Q);:23:A$(I,Q):22:3:A$(IB,Q);:23:A$(IC,Q):VRETURN";::" TO CONTINUE ";:ZZZZ100:430E22:24::"INCORRECT":23:24:::A$(I,Q)::24:1:868:6:"PRESS RETURN";::" TO CONTINUE ";:F%(I)1ET$:E150EIA((1)481):IAI450EIB((1)481):IBIAIBI460FIC((1)48AN$)1AN$"":BS$;:290;DTAN$(AN$,(AN$)1):BS$;:290]D^X$(13)(AN$)0ĺBL$;:290oDhX$(13)400~DrBL$;:290D|X$;:AN$AN$X$:(AN$)L400D290D22:2(AN$):868+EAN$A$(I,Q)Ģ22:24::"CORRECT":24:1:868:7:"PRESS 4:5:"TYPE ANSWER - THEN PRESS RETURN";3CAN$""fC22:2:L17:FI1L:(95);::FI1L:(8);:C"X$:(X$)27Ľ:::5:6:"ONE MOMENT PLEASE...":CL1:700C,X$"A"X$"Z"X$(32)X$"."380C6X$(8)350C@AN$""ĺBL$;:290DJ(A%(I,1),A%(I,2)0BI((1)481):E%(I)1180?BE%(I)1:0LBI6Ę16_BI27I43Ę48vB1A%(I,1),A%(I,2)B(780)1450B:21::Q1ĺ" NAME THE STATE ";:24:" SCORE = ";ZZ:BQ2ĺ" NAME THE CAPITAL";:24:" SCORE = ";ZZ:(C2 AP(104)641102AZ103,1:104,64:16384,0oAd:12:"RELOCATING THE PROGRAM":(4)"RUN LEARN THE USA"xAn680Ax(41(A$))2:A$:A23:1:868::"PRESS RETURN";::" TO CONTINUE ";:T$:AATTTT1:TT16600ATT1180B1#@ **********************;@ * LEARN THE USA *X@ * BY LARRY SAGE *u@( * COPYRIGHT (C) 1987 *@2 * BY MICROSPARC, INC *@< * CONCORD, MA 01742 *AF **********************                     ;E$0I196:25636:":::0DEF3ĉ:ZN216,0::"TROUBLE LOCATING FILE "PA$X22:1:"PRESS RETURN TO RE-ENTER NAMES";:Z$:bEF90,110,90l:(4)("CATALOG",74((48896)76)):"PRESS RETURN TO CONTINUE";:Z$:::100E246I13000:-:"1 MINUS 2":25282=I13000:_:"PAGES 1-2 SCROLL LEFT";E$tI120:25388::"PAGES 1-2 SCROLL RIGHT";E$I120:25512::"PAGES 1-2 SCROLL DOWN";E$I196:25816:&:"PAGES 1-2 SCROLL UP""--DO YOU WISH TO PLAY AGAIN? ";YN$gYN$(YN$,1):YN$"Y"YN$"N"YN$(121)YN$(110)1440YN$"N"YN$(110)ĉ::104,8:103,1:2048,0::RESET POINTERS +-----------------+ ! DRAW SCREEN ! +---------- END OF GAME !*< +-----------------+0F@P912:912_Z22:29::" GAME OVER ":td" GAME OVER ":n198:198x23:P(1)P(2)ĺ"THE WINNER IS ";P(1)P(2)ĺP$(1)"!"P(2)P(1)ĺP$(2)"!"P(1)P(2)ĺ"A TIE GAME..."&z#??ӠӠӠ ٠̠ɭӠӠɭӠӠϠ" ˠˮӠ ΠŠ%Ӡ ǮŠ ǮӠЮǠ ɭӠΠɭӠΠϠŠ" Ůנ ΠҠE ǮŮŠ ǮӮŠ Š ҮҮ ǮӠ ԮӠ Ӯ̠ ӮӮӠϠŠˠ͠ Ԡ Ҡ ҮӠ ҮӠΠҠϠΠҠϠΠҠϠ ӠϠ Š Ϡ ՠϠϠ ϮӠ ϮӠ80,1650570 * CHECK VALUES:0 S*MAX255:MX250:PN5MAX65535l4PV(PN)MAXPV(PN)0>PV(PN)0PV(PN)MX:PN3PN4PV(PN)MAXHR\ VALUE SETfpVP(PN):17::PV(PN);:17:"";V$ z(V$,1)"0"(V$,1)"9"01,CN:B2T"OPOV43:OP0OP0{OP1650,580,1650,1080,580,580,580,580,580,580,580,580,580,580,580,580,1650,580,1650OPOV64:OP0OP0OP1080,580,1890,1510,580,580,580,580,1440,580,580,1650,1970,1650,580,1650,2740,1270,1590,580,580,880,5v(OP$)11(OP$)10680BOP$(10)PSPN:PNPN1:PN5PN1jOP$(11)PSPN:PNPN1:PN1PN5VP(PS):17::PV(PS);" "570OP$"0"IN10:710(OP$)1720IN(OP$)21:37::IN;::" ":570 1370:800,CS:8" : PLAYS SEQUENCE";#)9& MAIN LOOP?0d:VP(PN):17::PV(PN);::" "{D(16384)128580NOP$:330XOP$" "OP$(13)İ940:570bOP$(8)PV(PN)PV(PN)IN:810:570lOP$(21)PV(PN)PV(PN)IN:810:570NSERT";:15:26:"D : DELETE";:16:26:"C : COPY";i17:26:"V : VALUE SET";:20:26:"S : ";:MFĞ"SPK";::"/";:MFĞ"CASS":20::"M : DISK MENU":"Q : QUIT";21:26:"0-9 : INCR ";::IN:23:8:" : PLAYS SOUND":8:EXT":" P : PREVIOUS":" A : APPEND":" R : RENAME"{16:"ARROWS (CTRL-K,J):":" CURSOR UP/DOWN":" CHANGE VALUES"10:24:"SOUND: ";CN;" OF ";NS;" ";11:26:"> : NEXT":12:26:"< : PREVIOUS"313:26:"/ : APPEND";:14:26:"I : I ":7:"PITCH #2: ";PV(2);" "~ 7:"DELTA #1: ";PV(3);" ":7:"DELTA #2: ";PV(4);" ":7:"DURATION: ";PV(5);" " J14:2J:26:"(0-255)":J:26:"(0-65535)" 9:"NAME: ";N$(CS);:868::"SEQUENCE: ";CS;" OF ";SE;" "6" N : N< ,IT32768:T2B32771:B2T32774:IS32777:DE32780:SS32783[ 6:380::N$(CS)""İ1140d @570 JOV(OP$):OV95OVOV32:OP$(OV) T ^ h MAIN SCREEN r |SP$" ARCADE SOUND EDITOR ":1::1040: 3:7:"PITCH #1: ";PV(1);" :OP$:OP$:32768 *******- SET UP:; *******c :J15:VP(J)J2::206,0:207,64 IN1:PA1:PN1:PS1:CA$"CATALOG":(48896)76CA$"CAT" CS1:1820:800,1:801,1:32771 "CN1:1310:SQ32786:CL32789:D1:SD$".SNDS":NS$".NMS" SCOTT ZIMMERMAN":1040> 15:SP$"COPYRIGHT (C) 1987":1040e 16:SP$"BY MICROSPARC, INC":1040 17:SP$"CONCORD, MA 01742":1040:2860 EF1:(4);"BRUN DUO,A$8400" EF2:(4);"BLOAD SEU" 216,0:23:" PRESS TO START -> ";****** d*-----------------3 n* INTRODUCTION:K x*-----------------u 16384512((48896)76):::N$(255) 2:SP$" ARCADE SOUND EDITOR "::1040: 5:SP$"BY ":1040:7:SP$"STEPHEN H. ZIMMERMAN":1040 9:SP$"AND":1040:11:SP$"S. ***********************;* ASE *X* ARCADE SOUND EDITOR *u(* COPYRIGHT (C) 1987 *2* BY S & S ZIMMERMAN *<* BY MICROSPARC, INC. *F* CONCORD, MA. 01742 *P* * Z*****************         >"; <16368,0:A$:? F22:"CATALOG":998:(4)"CATALOG"E P AG 5/18/08 255:::F"NIBBLE PROGRAMS - VOL. 8, PART 1"n"================================"(6:"THIS DISK CONTAINS PROGRAMS FROM NIBBLE MAGAZINE, VOL. 8 (1987), ENTERED AND COLLECTED IN 2008." 219:" -> ";:0:6" 20:SP$"FILE IN MEMORY WILL BE ERASED!":1040" 24:1:" LOADS, CANCELS -> ";:A$:A$(27)1980:A$" "2590"( IT:A16384:5::(4);"BLOAD ";SN$SD$;",A";A;",D"D#2 CS1:CN1:800,1:801,1:T2B:1310:I1SE:N$(I)""::1D"D>! OP$SN$NS$:(4);"OPEN ";OP$;",D"D:(4);"WRITE ";OP$^! SE:I1SE:N$(I):I:1980d! {! LOAD SOUND TABLE! ! 11:3::"L"::2180:SN$""1980! 17:5::" LOADING: ";::" ";SN$SD$! L02590" 19::SP$" WARNING ":104 19::SP$"WARNING":1040::SP$"FILE "SN$SD$" ALREADY EXISTS!":1040:2460Z ~ 2680m (222)62460w 2680 24:1:" SAVES, CANCELS -> ";:A$:A$(27)1980 A$" "2460! 5::(4);"BSAVE ";SN$SD$;",A";A;",L";L;",-> ";:AN$:1980+ CHANGE DRIVE #1 A D3D:1980G$ ^. SAVE SOUND TABLEd8 rB L02290L 9:3::"S"::2180:SN$""1980V A16384:17:5::" SAVING: ";::" ";SN$SD$` 2430j 5::(4);"VERIFY ";SN$SD$;",D"DO t2180SN$A$:24:5:868:$2 CATALOG8j:SP$" CATALOG "::1040::(4);CA$;",D"D:u2680X(0)::"DISK COMMAND -> ";DC$:DC$""1980(4);DC$;",D"D:227019:5::"NO";::" FILE IN MEMORY!":5:"PRESS 22504OP$"D"2330)>OP$"S"2370;HOP$"L"2540ER2060\\216,0::380:570bfrp FILE NAMExzX(0):24:5:" : ACCEPT FILENAME";:13:17:"";A$A$""Ģ13:17:SN$;:868:(A$,1)"A"(A$,1)"Z"(A$)10;::D;::")":Q9:3:"S : SAVE SOUND TABLE":11:3:"L : LOAD SOUND TABLE"x24:7:" : BACK TO EDIT";13:7:"FILENAME: ";SN$15:13:"(";L;" BYTES LONG)" (16384)1282060OP$::330 OP$(27)2140*OP$"C"NS800,CS:801,CN0CHNG:B2T:380:5706F DISK MENULW2680:(4);"CLOSE":CL:L(6)(7)256:L11PV(5)0L0:SP$" DISK MENU "::1:1040:5:3:"C : CATALOG "7:3:"D : CHANGE CURRENT DRIVE";:28:"("NSCNNS800,CS:801,CN,T2B:1310:380:570@Q FIND SOUNDWwSE(16384):A16384:AD2CS&OFF(AAD)(A1AD)2560NS(16384OFF):DN COPY SOUNDXbCSSECHNGSS:1910lCHNGISvNSNS1:CNFį:MF0J380:570T5^ NEXT-LAST SND/SEQ;h\rOP$">"OP$"."OP$"N"C1~|OP$"<"OP$","OP$"P"C1OP$">"1720CNCNCCN1CNNSCNNSCN11760CSCSCCS1CSSECSSECS1 1820:CN 1310 NSNS1:380:570&9 DELETE SOUND?GDEnSE(16384):SE0CS1:SE1:32768CSSECSSE1820:CNNSCNNS800,CS:801,CN:T2B:1310:380:570" CASSETTE/REGULAR,6MFį:MF1:1610 @M  PEEK BUFFER6J14:PV(J)(772J):R(PV(5)(777)(778)256X2^<pF POKE BUFFERvPZJ14:(772J),PV(J):dHI(PV(5)256):LOPV(5)HI256n777,LO:778,HIx INSERT SOUNDIST2B868:I0 ~OP$:330:I011900OV81190WII1:OP$;:868:I0A$"":1150fA$(A$,I)vOV131230OV32OV901150OP$;:A$A$OP$:II1:I1412301150N$(CS)A$: RENAME SEQUENCE1140:570(20(SP$)2):SP$:1$ APPEND SOUND/SEQ7.p8OP$"A"CHNGSQ:SESE1:CSSE:NS1:CN1:1140:1120BCSSECHNGSS:1110LCHNGISVNSNS1:CNNS`800,CS:801,CNjCHNG:T2B:1310:380:570tVP(PN):17:PV(PN):9:7:A$""::380:570-PV(PN)(V$):810::380:5703L PLAY NOTE/SEQUENCERpVP(PN):17:PV(PN):1370OP$(13)980206,0:207,3:1800,CS:801,CN:B2T206,0:207,64:CS CENTER LINE ROUTINEA):11::" ";A;". ";S$(A);" ":' AN VT(A):11:" ";A;". ";S$(A);" ":o A(A$):A95AA32:A$(A)u   READ IN DEMO SOUND TABLE &:I079:ML:ASI,ML:I 0 4,0,10,0,23,0,36,0,55,0,2,180,0,1,6,25,0,210,209,1,0,10,0,2,252,250U:80 T ^ * MAIN LOOP:! h8 r(16384)128370X |A$:520:A$"1"A$"Z"370j A$"Q"ĉ::y A$"S"į A$"P"į A$"N"į A(A$):A1AN370 490:370   * SUBROUTINES:  (41(A$))2:A$: VT(;"CLOSE" NFİ550@ HB(A)(A256):LB(A)AHB(A)256^ 206,LB(AS):207,HB(AS)e k z " * SETUP: , 6I1N:VT(I):12:I;". ";S$(I):I @22:A$"PRESS A NUMBER TO MAKE A SOUND":480 JA$"Q)UIT, S)TOP, P)OP, N)ORMAL":4ERIFY DEMO.NMS"C L80:ASHIL1:NFĺ(4);"BLOAD DEMO.SNDS,A";ASM 650q ADAS445:(4);"BRUN DUO,A";AD AX256(AD256)512:AX NF240:(4);"OPEN DEMO.NMS":(4);"READ DEMO.NMS" N:S$(N),VT(N):I1N:S$(I):VT(I)6I:I (4)d*---------------( n* INTRODUCTION:> x*---------------S HI37376:HI:: A$" DUO DEMO "::480::3:A$"BY S. SCOTT ZIMMERMAN":480 A$"COPYRIGHT (C) 1987":480:A$"BY MICROSPARC, INC":480:NF1:640 (4)"VERIFY DEMO.SNDS":(4)"V>B<>=?>?>BCBL` &@A&e@eAeeii`@ȃ ȃL &e@e`ʃ@ȱA@iAi@ʃ`CBi? ׂ  8˃̃ s`  i` s>? <=? ׂ  BCi<i= s>? ׂ ʊ1 ʎɃ8iiɃۭ @˃̃  @ 7` ! &BLLJLnLL5LDLWL@逐E@`BC ! <=>?Lׂ<= >? ! BCLׂ ! <= s>? TO QUIT, TO TRY AGAIN";:Z$::Z$(27)Ā&J EF200,210 ER":1040:SP$"WITH SOUND DATA INTACT":1040Y% 1010,191:1011,157:1169:207,64:17:% 14:2:"CLEAR THE TABLE (Y/N)? ";:OP$:330:OP$"Y"OP$"N"2810% OP$:OP$"N"2850% IT:NS1:CS1:CN1:SN$"":I15:PV(I)0:& I1SE:N$(I)"":IAN$:1980$ $ QUIT $ @$ :2:SP$" QUIT "::1040:u$ 12:2:"DO YOU WISH TO QUIT (Y/N)? ";:OP$:330$ OP$"Y"OP$"N"2750$ OP$:OP$"N"2810$ :12:SP$"END OF ARCADE SOUND EDITOR":1040,% 14:SP$"TYPE 'GOTO 260' TO RE-ENTA$"S"A$(115)į:SFSF:SFįKA$(27)ĵ16384,128:16368,0:510T510gMS12MS12xMS12MS12FC((MS)2)1OYYS:YSYSMSYS0YS150YS150YS0SSXS,OY:SSXS,YS&KCKC1:KC405700KC0:82029:"SCORE:":790:23:14::" STARLASER ":Z hYS((1)150):XS80:SSXS,YS:810:4:4q r*---------------- |* MAIN LOOP: *---------------- (16384)128510 A$ A$(8)MSMS1 A$(21)MSMS1 A$" "İ690:510"16297,0:16301,0:16300,00 16304,0:SFįi "SC0:FU1000:FC1:SS1:KB2:AB3:LA4:MS0:KC0:AC0v ,3:1:0 6I1AN @X4((1)1228):Y((1)148) JABX,Y:(234)10ĕABX,Y:320 TXA(I)X:YA(I)Y:I, ^21:1:"FUEL:":770:21:AN10:XA(AN),YA(AN):HS0H HB(A)(A256):LB(A)AHB(A)256:SF1_ *----------------m * SETUP: *---------------- 206,LB(AS):207,HB(AS):SOUND TABLE ADDRESS 232,LB(AX):233,HB(AX):SHAPE TABLE ADDRESS 230,32:62450:INC.":20:14:"PLEASE ";::"WAIT":Z L68:ASHIL1:(4);"BLOAD STARLASER.SNDS,A";AS~ ADAS445:(4);"BRUN DUO,A";AD LB328:AXADLB:(4);"BLOAD STARLASER.SHPS,A";AX HI256(AX256):HI:20:958:"PRESS TO BEGIN -> ";:A$ ****** d* INTRODUCTION:% n990| x(4)"VERIFY STARLASER.SNDS":(4)"VERIFY DUO":(4)"VERIFY STARLASER.SHPS":216,0 HI33792:HI:: 5:15::" STARLASER ":7:10::"BY S. SCOTT ZIMMERMAN"% 12:"COPYRIGHT (C) 1987":13:"MICROSPARC,   **********************; * *X * STARLASER *u( * BY SCOTT ZIMMERMAN *2 * COPYRIGHT (C) 1987 *< * BY MICROSPARC, INC *F * CONCORD, MA 01742 *P * * Z ****************  С͡š΍@P $7 < P!,BOOM!,KAPOWEE!,SIREN(v ERROR TRAP6NF0:1703288::12:"TROUBLE LOADING DUO":22:" TO QUIT, TO TRY AGAIN";:Z$::Z$(27)170: HI 1,2,60,0,250,250,255,254,130,0,3,200,199,1,6,30,0,250,250,255,254,20,0,214,213,255D255,200,0,4,170,0,0,0,130,0,190,0,0,0,130,0,170,0,0,0,130,0,190,0,0,0N 130,0X READ IN SOUND NAMESbN4:VT(N):S$(N):I1N:S$(I):VT(I)6I::l ZA!,BOOM!,KAPOWEE!,SIREN'v ERROR TRAP5NF0:1703288::12:"TROUBLE LOADING DUO":22:" TO QUIT, TO TRY AGAIN";:Z$::Z$(27)170:  1,2,60,0,250,250,255,254,130,0,3,200,199,1,6,30,0,250,250,255,254,20,0,214,213,255D255,200,0,4,170,0,0,0,130,0,190,0,0,0,130,0,170,0,0,0,130,0,190,0,0,0N130,0X READ IN SOUND NAMESbN4:VT(N):S$(N):I1N:S$(I):VT(I)6I::l ZAP"18)" RE-SELECT ROW":" ACCEPTS =RE-SELECT";:CUR,22,23,19,35:LINE(4)gdLINE2240sd:2070dI116:T%(R,I)0I16::2260d:2280dI116:T%(R,I)0EC%(I)EC%(I)T%(R,I):T%(R,I)0::2280d8eRW0:R11:R2(260L(KD)10(KD)212180:DOWN6cp720:2090:DOWN ONE@cz2090Pc(7):2090cLN6ĉ::10:10:"NO LAYOUT IN PROGRESS!":690:1220c16301,0:16304,0:16300,0::2070Xd35,24::22:" SELECT CHOICE : PLANT ROW "R:23:" USE ARROW KEYS<- -> KEYS":23:" TO ACCEPT -- TO QUIT":35,21:jb*R177,V(R):(KD)128ĹKB,0:2110b4R177,V(R):2090b>(KD)27ė::1220:bH(KD)132210:ROW IS CHOSEN AND=RbR(KD)8(KD)112150b\710:2090:UPcfI1914717:13,I19,I:>aI18:X$(I):H1:VV(I):780:aR1:I116:EC%(I)0::START AT ROW #1,ZERO ECONOMICS COUNTERa I116:T%(R,I)0::ASCII SHAPES,ZERO TEMP. ECONOMICS COUNTERaTABLE,AS:640Ab :22:" SELECT ROW TO PLANT -- USE 19)23(X$)19:V4:780:V5:780_`19,1019(260L1)LN,1019(260L1)LN,14719,14719,10|`X$"FT.":H10:V155:780`I1919(260L1)LN260SC:I,147I,150:`J1(L1F2)(L1LN):X$(JF2):H19J(260SC)93((X$)1):V155:780:a10(LN10)LNLN1:1950:MAKE MULTIPLE OF 10_F1LN10:F222(F12)3(F13)2(F14)3(F15)8(F15):SC10F1F2:SCALE X-AXIS_62450::16300,0:16301,0:16297,0:16304,0:GRAPHICS PG1"`ST16:640:X$"GARDEN PLANNER":H(((260L1)LN)27)330:5"PRESS RETURN TO QUIT PROGRAM":Z$:: m ?wimm3RIIM.Mi mI N MM k MiNNII3H$-u? -u?n -?-5I ---N?????------??.m -????????nMi Mi.-------??.m -??????-----???66666-----------------------------------------------------------II)MN?-M m)N Mi ;?NI NM m-m+@D *7(d  xx 790:4:810:16368,0:.f*----------------Bp* END OF GAME:Yz*----------------::5:12::" END OF MISSION ":10:12::"YOUR SCORE: ";SC12:12:"HIGH SCORE: ";HSSCHS94012:12:958::"NEW HIGH SCORE!"::4,1:4,1:4SC0SC0& 21:36::SC;::" ":Q*820:YK((1)140):XK195:KBXK,YK:o4MK((1)2):MK(1)MK:>SCSC20:790:3:HFUFU10:770:RKBXK,YK:5XK,YK:2,1:5XK,YK:6XK,YK:2,2:6XK,YK:6XK,YK4:2,3:6XK,YK4\SCSC50:*----------------8XLXS11:YLYS3:LAXL,YL:840:1PN0:(234)118760jI1AN:YA(I)YL740~YA(I)9YL740NN1:830I:N0760LAXL,YL:850:LAXL,YL:790:FU0FU0:780::900 21:7::FU;::" " :OYYK:YKYKMK"DYK0YK1403NYK140YK0KXKBXK,OY:KBXK,YKcbACAC1:ACANAC1lABXA(AC),YA(AC):YA(AC)YA(AC)6:YA(AC)148YA(AC)0vABXA(AC),YA(AC)FUFUFC:770400*----------------* SUBROUTINES:ICSr GP01080:MAIN MENUEr :10:5)"BE SURE PRINTER IS ON.."r 24:"= STOP PRINTER = CONTINUE";:700:X$(27)2630r :0:I161191:0,I279,I::3::D$"PR#";SL:GP$:::D$"PR#0":2630r& 1080:MAIN MENUs0 GARDEN ECON$X$AD$:S0:R0:2630:LOAD FILE,ZERO FLAGSqq 20::"DISK ERROR OR BAD FILE NAME-TRY AGAIN"::690:216,0:2810q ::LN6Ģ10:10:"NO LAYOUT IN PROGRESS!":690:2630q R0S01220q :10:"NO GARDEN BEING PLANTED!":690:2630r PRINT GRAPH=";X$::D$BS$X$AD$LE$:2630:SAVE LAYOUTKp| :D$"CATALOG":::958:690Zp S%22810ip S%32990sp 2810p :2630p :11:"LOAD LAYOUT FILE":L$:480:1060:950:2820p 15::X$N$:(X$,3)".LO"X$X$".LO"*q "FILE NAME=";X$::D$BL + '.LO')":12:I110:X$X$(95):~o@ :"NAME -> ";X$:13:9:"";N$:(N$)104(S%3)4((N$,4)".LO"S%2)ĺ(7);:2860oJ N$""2630oT (N$)65(N$)90ĺ(7):2870o^ S%3S%0:3000oh 15:(N$,3)".LO"N$N$".LO")pr X$N$:"FILE NAMERDEN LAYOUT":L$::480Hn 9:12:"ENTER LAYOUT NAME"::17:"CATALOG"\n CUR,9,12,11,29un 970:LINE2860,2940n" 2630: n, 3:958:23:" WITHOUT ENTRY EXITS ROUTINE";$o6 X$"":10:11:"ENTER LAYOUT NAME":6)"(10 CHARACTERS MAXSEE GRAPHICZm :12)"SELECT DISK DRIVE":L$:480:6:13:"ACTIVE DRIVE=";::(43624):m 11:16:"DRIVE #1"::16:"DRIVE #2"m CUR,11,13,15,24:970:LINE12630:m 43624,LINE:F$"":2630:NEW DRIVE/NULL FILE NAMEn :11:10)"SAVE GADRIVE"8l (GP1GP$"")ĺ:11)"PRINT GARDEN LAYOUT "Al 480Ul CUR,6,17,10,30^l 970zl S%LINE:LOAD FILE FLAGl LINE(LINE6GP0)2760,2810,2990,2770,3070,3110l 1080:MAIN MENU m :16297,0:16301,0:16300,0:16304,0:690:2630:k EC%(S)EC%(S)T%(R,S):!k( >k2 DISK/GRAPHICS UTILITIESDk< okF ::9)"GRAPHIC/DISK UTILITIES":L$:ykP EM,2kZ 3770kd 6:11)" VIEW GARDEN LAYOUT "::11)" SAVE GARDEN LAYOUT "kn :11)" LOAD GARDEN LAYOUT "lx :12)"SELECT DISK j R3R1:R4R2:R1(260RW)LN:R2(260L1)LN:ERASE TO END OF ROW]j R2R12560:END OF ROWfj 650j R1R3:R2R4:RESTORE ROW PARMSj L1RW0RWR2:16302,0:2590:2370:MORE ROW TO FILLj 670:2590:720:2070:ADD ROW TOTALS AND RESELECT ROW7);:"ENTRY LONGER THAN GARDEN ROW!":24:"PRESS TO CONTINUE..";:KB,0:X$:2460i :R1RW:RWRW((X$)):R2RW:T%(R,S)T%(R,S)((X$)):ADD NEW LENGTH OF ROWi I(260R1)LN(260R2)LNVG%(S):I260R2LN12Ă:2530i SI19,V(R)8:AW & GET ANOTHER*h X$(13)ĺ(7):2370qh 35,24::16301,0:24:"PRESS TO EXIT WITHOUT ENTRY";:1h 22:"PLANT HOW MANY FEET? (0-"L1RW") ";:"";X$:X$""Ĺ16302,0:2370h (X$)0ĺ(7);:2460:NOT NUMBERSYi (X$)L1RWė:22:(0708gL X$(11)X$(8)X$(21)X$(10)İ670:ARROWS[gV X$(63)İ680:2370:HELP (?)xg` X$(8)X$(11)2420gj SS116(S1):2440:DOWN ONE OR WRAP AROUNDgt X$(21)X$(10)2450g~ SS116(S16):UP ONE OR WRAPh 660:2370:DRA780+f X$"'?' FOR HELP":V176:H160:780If A132:BA16:C167:DC20f$ A,CB,CB,DA,DA,C:A1,C1B1,C1B1,D1A1,D1A1,C1:DRAW SHAPE BOXf. TABLE,VG:640:VEG SHAPESf8 S1:660:FIRST SHAPEgB KB,0:X$:X$(27)İ670::16301,0:21)LN:650:ERASE ROW FOR PLANTING & ZERO PLANTED LENGTH[e:TABLE,AS:640:ASCII SHAPESxe16302,0:FULL GRAPHICSf X$"-SELECT GRAPHIC-":V164:H1:780:X$"USE ARROW KEYS":V172:780:X$" ACCEPTS":V180:780:X$"=ROW SELECT":V188: ,1:HSSCI20:958:3,1:"DO YOU WANT TO PLAY AGAIN? (Y/N) ";:A$:A$cA$"Y"A$(121)250}A$"N"A$(110)980940:::12:"WRONG DISK OR FILE(S) MISSING"22:" TO QUIT, TO START OVER";:Z$:Z$(27)110:990:790%JX$GP$:340:X$"":7901000:SD$"":14 CARD`I1000:GP$"":10:1:"ENTER CODE FOR PAGE 1 GRAPHICS DUMP":"TERMINATE WITH '^' ";:20{IKB,0:X$:X$(1)710IX$(94)(GP$)0GP0:760I(X$)94770I(X$)32ĺ"^";((X$)64);:GP$GP$X$:710IX$;:GP$GP$X$:710 J280;:620#HSL$:SL(SL$):250:660]HPT0:GP0:GP$"":260:280:300:930:SKIP CARD QUES.H990:9:"PRINTER CARD HAVE GRAPHICS DUMP ? YES":37:"NO"HA9:B10:970:980:LINE0590HLINE1GP1:270:700IGP0:280:790:NO GRAPHICS DUMP:D38:970:980!GDLINE620,650LGNPT0:SL0:GP0:CL0:GP$"":SD$"":SD0YGXA7370bGb410GlLINE1PT1:240:1000:7:868::868:7:KB,0:"PRINTER IS IN SLOT ";:SL$:SL$(49)SL0:PT0:260:7:868:868:560Hv(SL$)1(SL$)7ĺ(7)O ACCEPT ABOVE DEFAULTS."aF1:10:"PRESS TO ENTER NEW PARAMETERS";:958:KB,0:X$:FX$(27)1060:WRITE DISKFX$(13)520F&7:1:958F0210:1:7:"DO YOU HAVE A PRINTER CONNECTED? ":7:36:"YES":36:"NO"G:A7:B8:C36EE CONFIGURE SYSTEMHE::12)"CONFIGURE SYSTEM":L$:HEADINGSE6:L$jEPTİ240:250:450E260:280:300:470EGPİ270:470E280:480ECLİ320:490E330ESDİ290:510E300F1:8:"PRESS <";::"ESC";::"> T"DJ5:1:"MONOCHROME MONITOR":lDTS$"":I1(X$):((X$,I,1))32S$S$"^"(((X$,I,1))64)::360D^S$S$(GP$,I,1):DhDr1380D|:12:1:"RETURN TO RUN GARDEN PLANNER":"ESCAPE TO QUIT";:Z$::Z$(27)ĺD$" RUN GARDEN PLANNER" SLOT #";SL:9C3:1:"NO PRINTER "::8 SPACES\C3:21:"WITH GRAPHICS DUMP":C3:21:" NO GRAPHICS DUMP":C"5:21:"WITH TEXT DUMP";:868:C,5:21:" NO TEXT DUMP";:868:C65:21:868:D@5:1:"COLOR MONITOR ":B SUBROUTINESB20:L$;:21:1::"<-";::" ";::"->";::" TO SELECT ...<";::"RETURN";::"> TO EXECUTE":" UP OR DOWN ARROW KEYS MAY BE USED"B" RETURNS TO PREVIOUS MENU"B24:L$;:B3:1:"PRINTER ": C3:9:"IN$"OPEN ":CL$"CLOSE ":RD$"READ ":WR$"WRITE ":U$"UNLOCK ":VF$"VERIFY "UAZ1260qAdD$"BLOAD CURSOR.BAR.4"zAn410Ax3720A:D$U$F$AD$OP$F$AD$RD$F$APT:SL:GP:GP$:CL:SD:SD$AD$CL$A216,0: NO ONERRAEM,0:370@ **********************9@* CONFIGURE *U@* BY MARK R. CRAVEN *q@(* COPYRIGHT (C) 1987 *@2* BY MICROSPARC, INC *@<* CONCORD, MA 01742 *@F**********************JAP:D$(4):AD974:EM975:KB16368:KD16384:CUR768:OP     0,0" n0,0279,159:279,00,1595 x:DRAW FIGUREn 1:2:"PRESS A KEY TO CONTINUE...";:16368,0:X$: 1:20:"PRESS 1,2 OR ...";:958:16368,0:X$:X 'HOME:TEXT'"::" TO QUIT "::::"KEEP YOUR EYES ON THIS SPOT"O 140_ (X$(27)Āw 2(X$)1(X$)230 <230,32:62450::100:I11000::DRAW ON PAGE 1 F(X$)80,90 P::130:20 Z::130:20 d3:0,0279,0279,1590,159**********************9* CLEAR DEMO 1 *U* BY MARK CRAVEN *q* COPYRIGHT (C) 1986 ** BY MICROSPARC, INC ** CONCORD, MA 01742 *********************** F 1:7:"PRESS 1 FOR 'TEXT:HOME'"::"PRESS 2 FOR  X$(8)(U$)2ĹKB,0:U$"":(7);:3210Wu X$(8)U$(U$,(U$)1):" ";(8);:3220uu X$(13)U$""U0:3390u X$(13)3280u U$U$X$:3220u X$U$:730:U$X$:ERER0:(7):3180:ERROR IN INPUTu U(U$):TOTAL UNITSv 1:18:5)"E35,21:&tb I116:EC%(I)0Ă:3440:tl 35,20::35,22mtv 5:1::EC%(I);::" FT. OF "VG$(I)" PLANTED"t 12:"E.G. 5 ONIONS/FT @ .10/ONION":"OR 2 LBS TOMATOES/FT @ .29/LB":U$""t 1:10:"EST. UNITS/FT = ";:t X$:X$;:X$(27)1220(u OMICS{s: U0:U$"":P0:P$"":T0:LB0:LB$"":T$"":I14:S$(I)"":::I116:EC%(I)0I16::3160:AT LEAST ONE ENTRYsD sN 10:"NOTHING PLANTED-NO ESTIMATE POSSIBLE":690:1220tX :22:L$:1:23:" FOR NO ENTRY OR TO ADVANCE":940:SK"::"FATAL ERROR--CANNOT CONTINUE":>SZ1160:OTHER ERRORSdER(222):ER6ė:12:"GARDEN PLANNER NOT ON THIS DISK"::" TO TRY AGAIN, TO QUIT";:Z$::Z$(27)1290:D$"RUN GARDEN PLANNER"Sn1160:OTHER ERROR URN> TO TRY AGAIN, TO QUIT";:KB,0:X$::X$(27)90BR NR:1270cRNO CONFIG. FILER((222)6Ĺ216,0:410:NOT CONFIGUREDR21150:OTHER ERRORR<ER(222):ER61320RF1160'SPEM,3:ER(222):ER6ĉ::10:"FILE NOT FOUND ON DI0)"*** DISK ERROR ***":L$[Q6::"PROBLEM:":::X$:13::"POSSIBLE SOLUTION:":::Y$Q24:1:"PRESS TO CONTINUE";:Z$:Q370:MAIN MENUQER(222)::216,0:ER61180Q12:1:"CURSOR.BAR.4 NOT ON THIS DISK" RE-STARTS CONFIGURE":868:L$;:1::7 SPCSiM23:1:868:1:: CLEAR LINE 23M7:958:210:1000:990M10:5:"IS SET-UP OK? ":14:19:"YES":19:"NO"MCUR,14,15,18,22MLINE(4):LINE0590MLINE2ė:410,20LS$S$(SD$,I,1):"L290jL1000:990:17:1:"WHICH TYPE OF MONITOR? "34)"COLOR":35)"MONO"LA17:B18:C34:D38:970:980:LINE0590LLINE1CL1:320:1010LCL0:330:1010LCUR,A,B,C,D:LINE(4):MA:C:868:B:C:86:1:"ENTER CODE FOR PAGE 1 TEXT DUMP":"TERMINATE WITH '^' ";:20]KHKB,0:X$:X$(1)840~KRX$(94)(SD$)0SD0:890K\(X$)94900Kf(X$)32ĺ"^";((X$)64);:SD$SD$X$:840KpX$;:SD$SD$X$:840Kz300:930LX$SD$:340:X$"":9 xI027910:I,0I,191::Y 24:1:"PRESS TO CONTINUE..";:16368,0:X$:j 10:1:A$:A130' 230,32:3:110:PLOT ON PAGE 1- (A 2::I11000:x <A$"THIS WILL DEMONSTRATE A 'CLEAN' HGR":140:130 F110: DRAW FIGURE AGAIN P62450:CLEAR HI-RES SCREEN TO BLACK Z dI11000:::: n3:0,0279,0279,1590,1590,0l**********************9* CLEAR DEMO 2 *U* BY MARK CRAVEN *q* COPYRIGHT (C) 1986 ** BY MICROSPARC, INC ** CONCORD, MA 01742 ***********************  A$"THIS WILL DEMONSTRATE A NORMAL 'HGR'":140:  ll. Use another."70I13A$"Must be a binary file"[:I6A$"File not on this disk"DI10A$"File exists and is locked"NI16PD0640:I16PDA$"Bad pathname"XI17A$"ProDOS directory full"bI255A$"Please do not press Contr0C1V2V1C1V2V1C10.G$CR$500PV1C:H1:" ";:H21:" ";^CC1:420w120:290:CM0CCC}::I(222):A$"":I4A$"Disk is Write Protected"I8A$"I/O ERROR on this disk"&I9A$"Sorry, disk is fuge":"Frame":V11:V27:H125:H240+410c12:27:32,26:"No":"Yes":V112:V213:H125:H231x:C0:CM0CCCV1C:H1::" ";::">";:H21:"<";::" ";::C1C170:G$"A"G$AL$G$AU$C1C1G$"Z"G$AR$G$AD$C1C1 C1ile":"Save Window File":"Create Final Module"r"Modify Data Drive":"Catalog Data Drive":"Toggle Overlay":"Exit Program":V11:V214:H11:H223:410"|1:27:32,26:"Scroll Up":"Scroll Down":"Scroll Left":"Scroll Right":"Inverse":"Color Chan1001010:A(3),3:A(1),E:A(7)::? @A:21(A$)2:A$;:R J110:CM1380` TCM2400 ^1:3:32,2:"View Hi-Res Screen":"View Animation":"Add Window":"Delete Window":"Edit Window"/h"Delete All Windows":"Load Picture":"Load Window FTAL ERROR -":::"THIS PROGRAM REQUIRES THE BINARY FILE":::"WINDOWORKS.ML";: " TO BE ON THE SAME DISK":"AND IT IS MISSING."::"PROGRAM STOPPED.": "A(1),10:A(3),2:A(7): ,E110:A(3),2:A(1),20:A(7):A(3),2:A(1),50:A(7)::% 6E80 G$::, 320:A2:13:F$;:140:F A16:B21:CM2:330: A$"Load a Hi-Res picture first":A16:300:200:1280 A$"No windows in memory":A16:300:200:1280 1:1::D$H$: 270 1:1::D$"BLOADWINDOWORKS.ML":Q "FAA:B:"Press any Arrow";:A1:B:"or A & Z to";:A2:B:"move then press";:A3:B:"Return if OK";:y x34,15::: A(5):D2,0:D7,0:D5,0:D,0: 49168,0:1 (49152)128180 G$:1:1::290: 49168,0:1 (49152)1281RUN WINDOWORKS"* :(12)(21)::153604 1160: } (PD((48896)76):Z1PD:PD0Ģ24:1:"SLOT "DS", DRIVE "DD;: 2DP$""ĺD$"PREFIX":DP$ <24:1:"PREFIX: "DP$;: F PPD0H$H$",S"(DS)",D"(DD): ZH$DP$H$: dh n **********************= * WINDOWORKS *[ * BY BOB THRASHER *y * COPYRIGHT (C) 1987 * * BY MICROSPARC, INC * * CONCORD, MA 01742 * **********************  (104)8Ĺ103,1:104,8:2048,0:(4)"      MPLETE..PRESS ..";:16368,0:X$L 49234,0: FULL PAGE 2 GRAPHICSV V2,0h 16368,0:X$ V1,0:49235,0::24:"PRESS FOR RAPID FLIPPING";:X$:MIX TEXT 49234,0 I0279:V2,0:I,0:V1,0::::"END":V.";:16368,0:X$@ <PP,D1:62450:: CLEAR AND DRAW ON PAGE 1j F129,16149,16149,146129,146129,16 P:22:"DRAWING FIGURE ON PAGE 2 NOW" ZPP,D2:62450: PLOT ON PAGE 2 d20,71260,71260,9120,9120,71 nI11000:( x24:"FIGURE CO230: PLOTTING PAGE MEMORY LOCATIONI D132:D264: DRAWING PAGE VALUES (:10:1:"WE WILL DRAW A FIGURE ON HI-RES PAGE 1":"THEN DRAW ONE UNSEEN ON PAGE 2, AND":"THEN FLIP THE PAGE TO SEE THE OTHER":"FIGURE." 224:"PRESS TO CONTINUE..**********************9* CLEAR DEMO 3 *U* BY MARK CRAVEN *q* COPYRIGHT (C) 1986 ** BY MICROSPARC, INC ** CONCORD, MA 01742 *********************** V149236:V249237: VIEW PAGE 1 OR 2 ADDRESSES# PP   .":930:(C$)31280#!|H$C$:80)!n!H$"BLOAD"(H$,(H$)6)",A"(A(17)1):240:K(A(17)1):1280!32,24:33,15:::10:25:"Please select a";:11:25:"3 sector binary";:12:25:"window file.";:14:25:F$;:300:140:1280!"K)3:H,76:H1,96:H2,143:140:J1:1280 T32,24:33,15:::10:25:"Please select a";:11:25:"33 or 34 sector";:12:25:"binary file.";:14:25:F$;:300:140:1280 ^ hJ0220!rA16:A$"Enter filename of window data to load:":320:C$"W2558301280$K0230A210:C1K0:A(17),255K1280Q",A16:A$"Enter filename of picture to load:":320:C$"":930:C$""12806H$C$:80@) J:H$"BLOAD"H$",A$4000":240:290:A(2):290:H((A(16))(A(16)1)25650A$"Limit of 50 windows":A16:300:200:1280NMK:WF0:760:WF255830gKK1:F7,255:1280mzK0230840:M2551280EA(17)M7A(17)(497):E,(E7)::KK1:1280K0230840:M2551280WF0:760:WFURE:";E$(J):40c330:C11330,1370,1400,1450,1490,1540,1580,1640,1710,1750,1040,1140,1800,1820m1300s(2J0220<130:L1ČA(6)F140:1280PZK0230dE049:A(17)E76,0::130:A(10):1280nxJ02200KE ONLY IN UPPER-CASE":320:::" CAN YOU DISPLAY LOWER-CASE (Y/N)?";::" ";::310r140:G$"N"ČA(4):1260G$"Y"1240G0:J0:K0:L0:A(17),255530 ::A16:B5:CM0:16:25:"WINDOWS:";K:25:"OVERLAY:";B$(L):25:"PICTE018:A(E)((24576E2)256(24577E2))::A(8):A(18)BA3:A$"WINDOWORKS":320:A5:A$"BY BOB THRASHER":320:A9:A$"COPYRIGHT (C) 1987":320:A11:A$"BY MICROSPARC, INC.":320(1101)6A18:A$" ":200:1260UA20:A$"PLEASE TYPH$H$"ALOG,S"(DS)",D"(DD)E~240:C138:"-";::140::1280DS6:DD1:D$(4):D49232:A(18):B$(0)"OFF":B$(1)"ON":E$(0)"NO":E$(1)"YES":F$"-PRESS RETURN-"AL$(8):AR$(21):AU$(11):AD$(10):CR$(13):ES$(27)250::530<CR$1280:C(C$):C1C4107038C$;:DDC:1280B23:1:"Enter new ProDOS prefix (max. 30 chars.)";:C$"/":Z1:930:Z0:(C$)21280L(C$,1)"/"C$"/"C$V(C$,1)"/"C$C$"/"`D$"PREFIX"C$:DP$C$:1280jt:H$"CAT":PD0G$(127))((C$)1)C$(C$,(C$)1):950>G$ES$C$"":hG$AL$G$(127)G$(24)C$"":950yG$CR$960A(17)1,K:21:6:C$" ";:40:PD109024:6:C$:C$CR$1070:C(C$):C1C71050$C$;:DSC.15:C$:C$n when finished":320:22:6:E115Z15:"-";::310r21:6:C$;:E(C$)15Z15:" ";::6(C$)::" ";:170:G$" "G$(127)980:PD1ĴG$"."G$"Z"(G$"9"G$"A")(C$)E1960C$C$G$:21:5(C$):G$;::" ";::960*(G$AL$):E120::A(9):(49152)128860SfG$:290:(G$AL$G$"A"G$AU$)M0MM1~p(G$"Z"G$AR$G$AD$)(M1)KMM1zG$ES$M255:G$CR$850A17:A$"Use <- for erase, Control-X to clear":3206A19:A$"Press ReturE):(A(0)::(A(12))255WF255:Z A11:B25:CM1:GB(4)(MK):330:C255WFC*FA(17)M7:E03:FE,(A(12E))::F4,C:660:F5,C:C255WFC4>E05:FE,B(E)::1280H130:M0RE03:A(E12),(A(17)M7E):#\A(9$AD$P1G$CR$ı:G$"1"G$"8"P(8(G$))Ci18:30(C3):"-:-";:CCP:C7C0CCPr680x130:L1ČA(6)MKĹA(12),65:A(13),130:A(14),13:A(15),27:790 E03:A(E12),(A(17)M7E)::E05:B(E)(A(17)M7--:-- Fast";:E18:19:7E3:E;::CB(5)(MK)A23:A$"Use Arrows, A & Z, or (1-8) to select":320:A24:A$"Press Return when satisfied":320:18:31(C3):"-:-";::140:P0:G$"A"G$AL$G$AU$P1G$ES$C255: G$"Z"G$AR$Gol-C"6lA$""A$"Error Encountered...Please retry"IvA5:200:12805:"An error is present in"::10:"LINE #"(218)256(219)::"Please correct, save the new version."::"and rerun WINDOWORKS":218:3:"Slow --:--:--:--:--:--:--:L[a_88jޥر B`h2rihi 8ih``kjlk Ebl`i(`hjkl8`Gc`ɖ` ȭ `ɛ)ɍ%ɠ!ɈɕɋɊL-a`8` hij ~b ~b ~bjkld sbj sbk sbl sb ~b ~b ~b byjkl*iɀ sbj sb ~bLajm ~b ~b ~b bjm sbm sbLKa sbm sb b`G)`&`2a'` cbcb `(`q  `ɛPɠUɍMɋ L,`ɊiӍL,`Ɉ L,`ɕкiL,` B` `ɛɠɍɋ8L`Ɋ ɿL`Ɉ8L`ɕв'L`   `phnhopHHHqHqoHnHp`hnhohhhhpoHnHp`LĒ`  ULH2rI@I U B`2rI`@橿h h&2'rhh` hii( B` ړɀ ړ 0) ړ 0Ԡ`Hh2rihHhi 8ihh` L`2r`2r`2r) ))JJ ȱ) MխMLk`2r)`JJJJJ)) ) )`JJJJJMȑӭMΑhV~ 2rILY`2rIL` B ] Lԑ` B ] Lb B` 0'` &`Lc B`:cL01`67 `)L ,P,W,U,R q WȱȱȱȱHȱhȱh ihL̏h HʏHˏ iiL}, B`L[a_88jޥر B`h2rihi 8ih``kjlk Ebl`i(`hjkl8`Gc`ɖ` ȭ `ɛ)ɍ%ɠ!ɈɕɋɊL-a`8` hij ~b ~b ~bjkld sbj sbk sbl sb ~b ~b ~b byjkl*iɀ sbj sb ~bLajm ~b ~b ~b bjm sbm sbLKa sbm sb b`Y)`&`2a'` cbcb `(`q  `ɛPɠUɍMɋ L,`ɊiӍL,`Ɉ L,`ɕкiL,` B` `ɛɠɍɋ8L`Ɋ ɿL`Ɉ8L`ɕв'L`   `    @#H$C$:80:H$"BSAVE"H$",A"(H)",L"(38400H):240:1280F##L1L:A16:A$"The Window Overlay Option is now "B$(L):200:1280##210:C11280#&:0230S"C$"W.":A16:A$"Enter filename for window data:":320:930:(C$)31280"H$C$:80:H$"BSAVE"H$",A"(A(17)1)",L351":240:1280""J0220"K0230"C$"":A16:A$"Enter filename for final module:":320:930:(C$)11280:A732:A73,134::210:::A1(A$):1,H:B((A$,A,1))64:BB(B0B27):C04:768C,B(B,C):T(D)::0,G:774:HH1::0:A19191:0,A279,A:T(D)::3:K,ML,ML,NK,NK,M:0:AMN:K,AL,A::HG183:H7:A$"PRES2:G80:A$"O":170:PW52:QP:R2:S17:E0:FW:230:{ H1:G160:A$"AN EXAMPLE OF THE EIGHT SPEED SETTINGS":170:210 I0:180:240:K28:L97:M63:N96:200:K182:L251:200:250:260:210 I0:180:240:M40:N55:K140:L210:200:250:260:3:CA7A76:C49,88C49,143:::210 nI0:180:240:K28:L111:M16:N71:200:K168:L251:200:M88:N143:200:K28:L111:200 x250:260:A05:A1:CA7A76:C189,112C189,143:::2107 I0:180:W07:PW51:QP2:R2:S17:220:HW51))47:::A018:A(A)((24576A2)256(24577A2))::A(8):A(18):A(5),96 Z23:8:"Press Return to continue";:Z$:::G1:H4:A$"WINDOWORKS DEMONSTRATION PROGRAM":170:3:0,8279,8:I0:240:250:260:210( dI0:180:240:250:260:A05:A13@@DJ@@939@@@933N731N"6 (D$(4):A(18),B(26,4):60X 2:D$"BLOADWINDOWORKS.ML":70 <::"FATAL ERROR";::" -":::"THIS DEMO REQUIRES THE FILE":::"WINDOWORKS.ML":::"ON THE DISKETTE.":: F270O PA026:C04:B(A,C)((B$,A5C1,"by Bob Thrasher":14:1:"Copyright (C) 1987 by MicroSPARC, Inc.":23:8:"Please wait ..."; 15360:A774814:C:A,C::D49200 B$"/////39@N@>@>@>=@0@=>@@@>N0>0NN0>00M0N@M@@N@@N333NN7785@868@0000N@JD@@@BDH@=@@@=>@>00=@D8E>@>8@M0=?>N3333@@@@=@@@9**********************9* WINDOWORKS DEMO *U* by Bob Thrasher *q* Copyright (C) 1987 ** by MicroSPARC, Inc ** Concord, MA 01742 ***********************] :(12)(21):::10:12:"WINDOWORKS DEMO":12:10:     oHnHp`@I`@橿h h&2'rhh` hii( B` ړɀ ړ 0) ړ 0Ԡ`Hh2rihHhi 8ihh`phnhopHHHqHqoHnHp`hnhohhhhp`2r`2r) ))JJ ȱ) MխMLk`2r)`JJJJJ)) ) )`JJJJJMȑӭMLĒ`  ULH2rI@I U B`2rrILY`2rIL` B ] Lԑ` B ] L`2rΑhV~ 2` ,P,W,U,R q WȱȱȱȱHȱhȱh ihL̏h HʏHˏ iiL}, B`      Lb B` 0'` &`Lc B`:cL01`67 `)L ST' MUST BOTH BE ON THE DISK FOR":"THIS PROGRAM TO RUN.":22:."THIS PROGRAM TO RUN.":22:DCH$"J"CH$"K"CH$(106)CH$(107)200` V(6)0:LATERAL POLARITY 0=NORMAL, 1=REVERSED V(7)0:VERTICAL POLARITY 0=NORMAL, 1=REVERSED X07:768X,V(X): (4)"RUN SAPROGRAM"?::(7):7:"THE TWO FILES 'SAPROGRAM' AND ":"'SAFACH$"Y"CH$(121)V(4)1:PAUSE SELECT 0=NO PAUSE AFTER SCORE, 1=PAUSEz CH$"N"CH$"Y"CH$(110)CH$(121)180 21:"ENTER 'K' TO AIM WITH KEYBOARD OR":"'J' FOR PADDLE/JOYSTICK: ";:16368,0:CH$:V(5)0:CH$:CH$"K"CH$(107)V(5)1. EL (1-9): ";:16368,0:CH$:16368,0:CH$:V(2)(CH$):V(2)1V(2)9160 15:"ENTER PUSHBUTTON NUMBER (0-1): ";:16368,0:CH$:16368,0:CH$:V(3)(CH$):V(3)0V(3)1170G 18:"PAUSE AFTER SCORE? (Y/N): ";:16368,0:CH$:16368,0:CH$:V(4)0:"C"CH$(97)CH$(99)120 9:"ENTER 'K' TO SELECT BASE WITH KEYBOARD":"OR A 'C' FOR COMPUTER CONTROL: ";:16368,0:CH$:CH$:16368,0:V(1)1:CH$"C"CH$(99)V(1)0 CH$"C"CH$"K"CH$(99)CH$(107)140I 12:"ENTER STARTING LEVIFYSAPROGRAM":216,0h n::"SURPRISE ATTACK!":"BY JEFF G. COX":"COPYRIGHT 1987 BY MICROSPARC, INC." x6:"ENTER 'A' FOR ARCADE MODE":"OR 'C' FOR CONTINUOUS MODE: ";:16368,0:CH$:16368,0:CH$:V(0)1:CH$"A"CH$(99)V(0)0 CH$"A"CH$@ **********************9* SA.LOADER *U* BY JEFF G. COX *q(* COPYRIGHT (C) 1987 *2* BY MICROSPARC, INC *<* CONCORD, MA 01742 *F**********************PV(10)Z260 dD$(4):D$"VERIFYSAFAST":D$"VER6,7,7,16,32,16,6,6,4,"LARGE MOVES LEFT",19,9,DOWN,27,9,UP,15,6,AB|9,15,"MOVING RIGHT AND UPWARD",0,20,"TWO LAST EXAMPLES OF ADVANCED TECHNIQUES",5,7,5,32,6,2,0,23,5,24,6,1,0,25,5,26,6,0,0,7,16,32,16,3,0,7,16,32,16,0,0 8,6,CD,30,5,AB,30,6,CDzh0,18,"LARGE WINDOW IS UP LARGE WINDOW IS UP",0,19,"SMALL MOVES UP ALSO SMALL MOVES RIGHT"Ar2,21,"EXAMPLES OF PARTIAL OVERLAP WINDOWS",4,8,3,9,16,0,0,8,8,9,11,0,0,26,3,35,16,0,0,26,8,35,11,3,0,4,7,5,32,6,23,4,24,7,25,4,220,"SUPERIMPOSING TWO OR MORE WINDOWS",3,21,"CAN PRODUCE OTHER ANIMATION TYPES"^8,4,2,15,8,0,1,4,2,15,8,2,1,24,2,35,8,0,1,24,2,35,8,3,1,7,11,13,17,1,0,4,11,15,17,4,1,27,11,32,17,1,0,27,11,32,17,5,3,4,4,3,13,16,2,8,15,11,26,3,35,16,24,8,37,11,7,8,5,AB,VING WINDOWS",4,14,2,25,8,4,2,4,11,15,17,5,1,24,11,35,17,6,3,0,2,2,17,2,0J8,4,2,15,8,24,2,35,8,4,11,15,17,24,11,35,17,5,3,16,9,25,3,36,9,5,12,16,18,25,12,36,18OT10,8,4,UP,8,5,LEFT,28,4,UP,28,5,RIGHT,8,13,DOWN,7,14,INVERSE,27,12,DOWN,27,13,COLOR,3,T,7,19,"A SAMPLE OF THE FOUR BASIC",7,20,"TYPES OF SCROLLING WINDOWS"64,9,2,10,8,0,0,24,5,35,5,2,0,8,11,11,17,1,0,24,14,35,14,3,0,2,14,2,25,8,4,11,15,17,5,16,5,INVERSE,27,14,FRAME,4,10,"COLOR CHANGE"I@7,19,"THESE ARE THE THREE BASIC",11,20,"NON-MOs in LINE #";(218)(219)256::"169,4,141,5,3,165,0,24,109,5,3,170,189,50,149,141,39,3,189,114,148,141,40,3,164,1,174,5,3,189,0,3,153,255,255,206,5,3,16,221,96E,4,4,2,15,8,24,2,35,8,4,11,15,17,24,11,35,17,6,9,5,UP,28,5,LEFT,8,14,DOWN,28,14,RIGHJ:H,G,A$:GG8:170::<J:W1J:P,R,Q,S,E,F:230::::Z(222):Z255ĺ"Please do not press Control-C"::"Type RUN to restart demo"::""An error exists in the program listing."::"Please recheck the listing. Perhaps"::"the error iS RETURN TO CONTINUE":170:M180:N190:K45:L225:190:49152,0:A(10):wKP71:L(Q1)7:MR81:N(S1)8:190:VA(17)I7:V,R8:V1,S87:V2,P:V3,Q:V4,E:V5,F:V6,0:II1:A(17)I7,255:J:W1J:P,R,Q,S:220::J:W1"KEY$,* RESUPPLY BASES,6LBN%1,10;@LBN%2,10JJLBN%3,10ST710}^* RESUPPLY BASES FOR CONTINUOUS MODEhADD(13DA)2rI13|BNI(LBN%I)BNI0BNI101730(LCN%2I1)0BNIBNIADD(LCN%2I)0BNIBNI CITYEXTRAEXTRA500DA'I16=(LCN%I)01530KLCN%I,1_LCN%,(LCN%)1gI6"PLUS, YOU RECEIVE A BONUS CITY!"IPS0āI1500:I:159016368,0:IGNORE PREVIOUS KEYPRESSES"PRESS RETURN TO CONTINUE ";BNIDA <I9F(LCN%)0SCRESCRE(LCN%)(5050AS)SP* BUMP UP DIFFICULTYjZDADA1:DA9DA9wdLDS%,DAnAS01640x* DISPLAY SCORE IN ARCADE MODE21"YOUR SCORE IS NOW ";SCREEXTRASCRE1540* ADD A BONUS AND HIGH BYTE?LYSP%2,150: INTERCEPTOR Y SPEED LOW BYTE^LYSP%3,0: AND HIGH BYTEw* TIME TO GO DO IT!START%(LERR%)01760 (LCN%)11830 * CALCULATE SCOREI13(BNI(LBN%1)2BNI0BNI10SCRESCRE~I ,* INITIALIZE FRAME VARIABLESWLXSP%,9DA10: ICBM X SPEED LOW BYTEvLXSP%1,0: AND HIGH BYTELXSP%2,150: INTERCEPTOR X SPEED LOW BYTELXSP%3,0: AND HIGH BYTELYSP%,9DA10: ICBM Y SPEED LOW BYTELYSP%1,0:SSILES APPROACHING."C"ACTIVATE DEFENSES. PREPARE TO ATTACK."\2090:* SOUND ALARMv* OPEN MISSILE DOORSI13$(LBN%I)01150.XA124I1228X15BBLACKLXAX,149VLIME`XAX6,148jJ1100:JtXASE AND MISSILESfI130p(LBN%I)0950;zBLACKLXA124I122\YA150158pXA,YAXA28,YAxYA1950:* DRAW MISSILESI* TIME TO WAKE UPALARM11050ALARM021:"RED ALERT";:": ENEMY MI1:ALARM FLAGERR0.* DRAW LANDSCAPE8::?0F1PLIMEcYA1591491t0,YA279,YA|YA * DRAW CITIESWHITE YA148*I164XA31I>I3XAXA31H(LCN%I)0ĔCITYXA,YARI\* DRAW B&XLCN%0,6: NUMBER OF CITIES LEFT1bJ16clLCN%J,1:CITY #J IS OK IF 1, DESTROYED IF 0jvJDADS:ADJUSTABLE DIFFICULTY FACTORLDS%,DASCRE0:TOTAL SCOREEXTRA500DA:SCORE REQUIRED FOR EXTRA CITY IN ARCADE MODEALARM32,LBYTE:233,HBYTE* * INITIALIZE RESTI SPKR16336:APPLE SPEAKERS 2170t &* RETURN HERE FOR EACH PLAY 0* RESET VARIABLES FIRST :LBN%1,10:# OF MISSILES AT BASE 1, DLBN%2,10: BASE 2, ANDNLBN%3,10: BASE 3; <0 IF DESTROYEDTART%122: MISSILE Y SPEED LOCATIONQ LSHPE%START%140: SHAPE TABLE LOCATIONu * INITIALIZE COLORS AND SHAPES BLACK0 LIME1 WHITE3 CITY1 MISSILE2 HBYTE(LSHPE%256):HIGH BYTE LBYTELSHPE%HBYTE256:LOW BYTE 2LTY LOCATION2 6LERR%START%100: ERROR LOCATION? @LERR%,0R JSTART%101,FS] TI15 ^START%104I,128((TKEYS$,I,I)) hI rSTART%110,TS |START%114,XS LXSP%START%115: MISSILE X SPEED LOCATION START%121,YS$ LYSP%SCODE STARTS AT $40005 CD$;"BLOAD SAFAST,A";START%G START%81,ASp LBN%START%83: BASE ARRAY LOCATION START%87,BS I13 START%88I,128((BKEYS$,I,I)) I "LCN%START%92: CITY ARRAY LOCATION ,LDS%START%99: DIFFICU& nBKEYS$"ASD":LEFT, CENTER, RIGHT4 xDS(770)B FS(771)P PS(772)^ TS(773) TKEYS$"OK.;L":UP, LEFT, DOWN, RIGHT, STOP XS(774) YS(775) * INITIALIZE SAFAST INTERFACE CD$(4):CONTROL-D START%16384:MACHINE E **********************9*SURPRISE.ATTACK *U*BY JEFF G. COX *q(*COPYRIGHT (C) 1987 *2*BY MICROSPARC, INC *<*CONCORD, MA 01742 *F**********************P* INITIALIZE GAME OPTIONSZAS(768) dBS(769)        BF=< |D<=`w@x@~@ :`w@x@~@ W`w@x@~@ `n@n@`@.@`CR@ 5G@@ |D ^B8鸍`@@ OG@@@@ OG@@u@v@|@}@p@ F A( 0` D C 5G@@ `S@0IG+C0 iLFi 8FLE, 0L3Em, LWEim B BW@}DX@|DLE|De@a0 LE  |D<= F F F|DLFS@20 LF :C|DS@ Cw@kCx@lC~@` @@F BGF@w@@x@@@ BGF@~@` (B`s@t@z@{@`}Dn@< r@Iii(  y@IJiLaE}Di@LDvDwD,0@@ ]`x@ w@0 0d@hh`~@ɿ`   0d@hh`0+Cy/Cw@*x@0~@`w@jCx@kC~@lC CD/F [B BFe@@e@A BGF@<@=`<=> &e<'= 0@0d@hh`D<Dj B<= B` 0` 0`&BN****)'BO)M'B8&O&NO8&BLMBm&B` BJ uv` B&&&8` B8/` B0%/UiUi`w@x@~@ C 5G<-%-$%')- ?M2&6--$$??68<=8>? B ȹ d@hh` BG B/<= B BG` A< =0d@hh`   ) ȹ) @@ LHLBLFDL]DLALCALCLBLBLBLFLGL(GL5GLBL~DL:CL[BL^BL DLDLAL(BLBGLOGLmCL B(ˮ@@@AA GKx %$,45>6.%%,6.$$$%.6/6/6/-$$56.$$$56.6$,56%$$%55>7-6/-$55-4o(6>'D; $--?6755- %$<<2=7..-.        !!! ! ! ! KEY$ j CSIDENT HAS"3 "DECLARED DEFCON 4 (GENERAL WAR)."_ "ACTIVATE YOUR REGIONAL ABM DEFENSES."e $ "GOOD LUCK, YOUR COUNTRYMEN ARE". "DEPENDING ON YOU."8 B 16368,0L "ACKNOWLEDGE RECEIPT OF MESSAGE BY"V "PRESSING RETURN...";`PORTS THAT A"5"NUMBER OF ENEMY NUCLEAR MISSILES"a"ARE APPROACHING THE CONTINENTAL U.S.""INTELLIGENCE INDICATES A STEADILY""INCREASING ATTACK WITH SINGLE ICBM'S,""MULTIPLE ICBM'S, AND MANEUVERABLE" "CRUISE MISSILES. THE PRE)(SPKR)(SPKR)HJ'RJ150:J.\I4fPp* INTRODUCTORY DISPLAYZz2090b:"** ALERT ** ALERT ** ALERT ** ALERT **""FROM: NORAD WARNING CENTER""TO : REGIONAL ABM COMMANDERS" "WE HAVE CONFIRMED RE)12050WHITE0!19XA124I119:YA152?RJ1(LBN%I)[X,YrMISSILEXAX,YAYyJ  0,0,5,0,10,0,15,0,20,0: ROW 1 0,4,5,4,10,4,15,4,20,4: ROW 2 * SOUND ALARM*I144J120>A(SPKRCORE &21-0"YOUR FINAL SCORE IS ";SCRE@:* PLAY AGAIN?FDfN"PLAY AGAIN (Y/N)? ";INPT$XINPT$"Y"INPT$"N"1830bINPT$"Y"570lv:* HERE ARE THE UTILITY ROUTINES* DRAW MISSILES FOR BASE I(LBN%IADDBNI10BNI10'LBN%I,BNIB1950:* DRAW MISSILESIIS1180p* HANDLE ERROR MESSAGESERR(LERR%):ERROR NUMBER"PROGRAM ABORTED DUE TO FATAL ERROR: ";ERR2090: SOUND ALARM* DISPLAY FINAL STHER DISK OR CHANGE DRIVES":3830}10:" ERROR #";(222)" IN LINE ";(219)256(218)::"TAKE APPROPRIATE ACTION ":385010)"*** DISK ERROR ***":L$6::"PROBLEM:":::X$:13::"POSSIBLE SOLUTION:":::Y$ 690:I(EM):EM,0:IN THIS DISK":Y$"CHECK NAME OR SELECT OTHER DISK":3830~ER4X$"DISK WRITE PROTECTED":Y$"REMOVE WRITE-PROTECT TAB":3830~ER8X$"DISK I/O PROBLEM":Y$"CHECK DRIVE DOOR OR DISK POSITION":F$"":3830!ER9X$"THIS DISK IS FULL":Y$"INSERT O:958::1000:3740-}GENERIC SCREEN DUMP7}1010X}::690:1220:PLANNER MENU}:12:" TO RUN CONFIGURE"::" FOR MAIN MENU";:Z$::Z$(27)1080:D$"RUN CONFIGURE"}ERROR TRAP}960:NO ONERR7~ER6X$"GRAPHIC NOT OI))1)((S$(I))10)((S$(I))100)((S$(I))1000):S$(I):I|`920|j700:PT1(X$"P"X$(112))Ģ18:1:958:L$::SD3710:23:8)"PRESS TO CANCEL PRINT":3730:TYPE OF SCREEN PRINT|t1220:NO PRINT-BACK TO PLANNER MENU}~SD1Ģ17ARDEN NET = $ ";:332(NT0)(NT10)(NT100)(NT0)(NT1)(NT10)(NT100)(NT1000):NT$;:958{8:10:EX$(1):12:EX$(2):14:"INSECTICIDES, ETC.":16:EX$(4){BI14:X$S$(I):820:S$(I)X$:82I{L28:"$";@|V33((S$(I))0)((S$((LB1)(LB10)(LB100)(LB1000):LB$;:868::6 SPCSOz35,24:7:958zNT(T$)(LB$):NT(100NT.5)100.001(NT0).002:NT$(NT):X$NT$:820:NT$X$zNT03630z$(NT$).01(NT$)0NT$"0.00"i{.5:29:I18:(95);::6:15:"GX$(13)Ă:3590.y "";S$(I):S$(I)X$S$(I)^y X$S$(I):730:ERER0:(7):S$(I)"":3490y LB(S$(I))(LB$):LB(100LB.5)100.001:LB$(LB)y X$LB$:820:LB$X$y (LB$).01LB$"0.00";z 4:1:868:12:"EXPENSES = $";:33(LB0)SESYx 3:1:868:12:"GARDEN ASSETS = $";:33(T0)(T1)(T10)(T100)(T1000)rx (T$).01T$"0.00"zx T$x 8:1:958:1:"INPUT COST OF :"x ::EX$(I):x :16)"$ ";:K16:(95);::18:X$:X$;:X$(27)S0:S$"":1220y w* P$P$X$:3320;w4 X$P$:730:P$X$:ERER0:(7):3300w> P(P$):TEC%(I)UPT:T(100T.5)100.001:T$((T),((T))1)wH T.01T$"0.00"wR X$T$:820:T$X$w\ 21:7:" RETAIL VALUE=$";T$;:868wf wp 35,20:xz I14:GARDEN EXPENNTER DECIMAL NUMBERS ONLY *"Tv 16:868:1:"EST. RETAIL COST PER UNIT = ";:P$""pv X$:X$;:X$(27)1220v X$(8)(P$)2ĹKB,0:P$"":(7);:3310v X$(8)P$(P$,(P$)1):" ";(8);:3320v X$(13)P$""P0:3390v X$(13)3380@ d@L/MLHNC? @ @L0w@x@~@@ @ 0(MH'Hg@H '@@@g@ g@0LL     LI   )ȥ )LL%OLK0LK B@0D'd @o@)Pș)}))ȩ}))Șjh@0h@  c@  B@` @c@ B@00 ?@ L_H    -@d@L/M @ *@02LKLILJ0: |D$;"BLOAD"PC$",A$2000"M 34,20::"HIRES TRICKS-TWO PAGES":34,21f "CURRENT PAGE 1";E$v I11500: :"CURRENT PAGE 2":D$;"BLOAD"PD$",A$4000":49234,1:49237,1 I12000: :49236,1:49235,1:"2 OVERLAID ONTO 1";E$25J11300:J:I4 6:"RIGHT SIDE MIRROR OF LEFT";E$U @25014,234:25015,234:24936e JI11500: T:"BOTTOM MIRROR OF TOP" ^D$;"BLOAD"PC$",A$2000":25120,234:25121,234:25193,234:25194,234:25078 h:"BOTTOM MIRROR OF TOP";E$ rI1200140:24604:% :"RIGHT SHIFT";E$: I140:24682:O :"UP SHIFT";E$d I196:24760:{ :"DOWN SHIFT";E$ I196:24848: :"LEFT-RIGHT FLIP";E$ I110:24936:J11000:J:I ":"TOP-BOTTOM FLIP";E$ ,I110:25078:PD$:PD$""120:(PD$,1)"?"620:(4)"VERIFY"PD$A EF3:580` :D$(4):34,20::E$(7)~ D$;"BLOAD";PC$;",A$2000" "HIRES TRICKS-SINGLE PAGE":34,21 "NEGATIVE CREATE";E$ I110:24576:J1500:J:I :"LEFT SHIFT";E$ I 1987 BY MICROSPARC, INC."D ZEF1:(4)"BLOAD HI-RES TRICKS":580 d10:1:958:"NAME OF FIRST PICTURE (? FOR CAT): ":"";PC$:PC$""100:(PC$,1)"?"620:(4)"VERIFY"PC$ nEF2:5802 x14:1:958:"NAME OF SECOND PICTURE (? FOR CAT): ":""; ***********************;* HIRES.DEMO *X* BY JOHN MAJKA *u(* COPYRIGHT (C) 1987 *2* BY MICROSPARC, INC. *<* CONCORD, MA 01742 *F*********************** P::"HI-RES DEMO":"BY JOHN MAJKA":"COPYRIGHT""""""  0:P(1)0ĺ"-";P(1)ĺS$;1P(1)0ĺ"+";C(P(1))3):Y20:P(2)0ĺ"-";iP(2)ĺS$;{P(2)0ĺ"+";(P(2))3)NUM136022P:12(P$(P)):P$(P); P(P2)2(P1)390( +-----------------+2 ! (1)1)(10)SC"BP(P)P(P)SC0L:23:32AVSC0ĺ" +";R`SC0ĺ" -";aj(SC)S$:tC2(C14SC0)10(C14SC0)~X2937:21,35X:T100(SC0):PTCH,T:X16:DUR,50:TNE:15:X2937:21,35X:23:32:8)2(XP)29(BC)ı&:24903,1736CB,0:P1,0?690E` +------------------+{ ! SCORE BLOCK ! +------------------+$SC10(CC(1))10(CC(2))(2(1))(CC(3)).SC0SC110908SC(5(1)1)10SC(5NPUT !"H +------------------+(R2\CB,0@f24903,96JpBC,0fzX(XP):Y(YP):K(KB)vK141İ970YY(Y1)(K201)(Y35)(K205)XX(X0)(K202)(X31)(K203)BLACK:DCDB31(BC)XP,X:YP,YCH:890 C(BC)X(XP)1(Y(YP)24AY17HBLACK:X,X2AZC:X,X2A3tPTCH,A6:DUR,2:TNE:BLACKA1820 X,X2A:PTCH,255:DUR,7:TNE NUMNUM1:1060*4 +------------------+> ! KEYBOARD I";:Z$::Z$(27)3950:D$"RUN CONFIGURE"43770D CONFIG ER(222):ER63930*3770EM,3:ER(222):ER6ĉ::10:"FILE NOT FOUND ON DISK"::"FATAL ERROR--CANNOT CONTINUE":3770:OTHER ERROR*ER(222):ER6ė:12:"CONFIGURE NOT ON THIS DISK"::"RETURN TO TRY AGAIN, TO QUITX$::F:3890(PNO CONFIG. FILE3Z4030d:12:1:"NO GP.CONFIG FILE FOUND":" TO RUN CONFIGURE"::" TO QUIT";:Z$::Z$(27)ĺD$"RUN CONFIGURE"ńx3760:OTHER ERRORONERR FROM DISK/GRAPHICS AREA:370:RE-3980,2630,390,3750(1080:MAIN MENU=(960:ER63790̀25:1:"THESE FILES MUST BE ON THE DISK:":8:1:"PG.GUIDE, PG.NAMES, CURSOR.BAR.4":" TEXT.SHAPES & VEG.SHAPES":11:"NOT ALL WERE FOUND."<19:"PRESS TO QUIT PROGRAM.";:KB,0: