d‘…¡¬”“¡¬†≈Õ’Ãœ÷†À”…ƒ ˛¸˛¸¸˛¸¸˝ˇ¸ˇ¸¸˝¸ˇ˛¸˝˛¸¸˝¸ˇ¸¸ˇˇ˛¸¸z¸¸¸˝¸¸˛¸ # ˇ˝¸¸˝¸¸˝˝¸˝˛¸˛ˇ¸˝˛¸˛¸¸˝ˇ¸ˇˇ˝ˇ¸ˇ¸¸˝¸¸¸˝¸ˇ¸¸ˇˇ˝˝¸˛˝¸¸˛¸¸¸¸˛˝˛¸¸˛˝¸¸¸¸˝¸¸¸˝¸˝˛ˇ˛˝ˇ¸¸˛˛¸˛˝¸˝˝¸ˇ¸¸˝¸˛¸¸˝¸¸¸˝¸ˇ˝˛ˇ˛˝¸¸ˇˇ¸¸˝¸¸˝¸˛˝˛ˇˇ˝˝¸¸˝¸˝˝¸¸˝ˇ¸˝˛ˇ˛˛˛¸˝¸¸ˇ¸˝ˇ¸˝¸¸˝˛¸¸ˇ¸ˇ¸˛ˇ¸¸ˇ˛˛˛ˇ¸¸¸¸ˇ¸¸˛¸¸¸¸˛˝˛˝¸ˇ˝¸¸˝¸˝ˇ¸˝¸¸¸˝¸˝˝¸¸¸ˇ¸¸˝¸¸¸˛¸ˇ¸¸ˇˇ˝ˇˇ˛ˇ˝¸˛¸¸¸¸˛˛˛¸˝¸˛¸˛¸¸ˇ¸¸¸˝¸˝˝¸¸ˇ¸˝˝ˇ˝˛¸˝˝¸˛ˇ¸˝ˇ¸ˇ˛˝˛¸¸˝¸˝˛¸¸¸¸ˇ˝¸ˇ¸¸¸¸ˇ¸¸¸˝¸¸˝¸˛ˇ˛¸¸¸ˇ¸¸¸¸˝¸¸¸¸¸˝˛˛˝˛˝ˇ¸˛˛¸˛˝¸˝˝˛ˇ˛¸ˇ¸ˇ¸¸˝¸¸ˇ¸ˇˇ¸¸¸˝¸˛¸¸˝¸˛¸˛¸˝¸¸˝¸˛˝˝¸¸¸¸¸˝ˇˇ¸˝˝¸¸˛¸¸ˇ¸¸˛˝¸˛˛¸˝¸¸ˇ˝˝ˇ¸¸ˇ¸˝˛¸¸ˇ¸ˇ¸¸ˇ¸¸˝¸˛˝¸¸¸¸¸˝¸˛˛˛˝˛ˇ˛¸¸¸¸˝¸¸¸˝¸˝˛˝˝˝¸¸˝ˇ˝¸˝˝˝ˇ¸¸¸¸¸ˇ¸¸¸¸¸ˇ¸¸ˇˇ˛¸¸˛¸¸ˇ¸˛¸˛¸¸¸¸˝¸ˇ¸¸¸ˇ¸¸˝¸˛˛ˇ¸˝ˇ¸˛˝¸˝¸˝˛ :MV–1 R“± 3R‹≤ CHECK FOR STATUS OF VERTICAL MOVE IRÊ≠TI–11ƒTI–10:FL–1 SR∞1760 oR˙≠B%(BL)–2ƒA–A»1:°:´1050 ÑR≠FLƒFL–0:TI–11:± ¢R≠B%(BL…1)–2ƒA–A»1:°:´1050 ®R± –R"≤ SET STATUS OF HORIZONTAL POSITION ‡R,C%(TI,TJ)–1 ˆR6≠TJ–11ƒTJ–10:FL–1 S@∞1760:∫A$:± (Qn≤ CHECK FOR COMPLETED SQUARES 8QxR%(TI,TJ)–1 NQÇ≠TI–11ƒTI–10:FL–1 XQå∞1760 lQñB%(BL)–B%(BL)»1 ëQ†≠B%(BL)–4ƒ∞1780:S(C)–S(C)»1:MV–1 ØQ™BL$–‰(BL):≠È(BL$,1)–"1"ƒ± æQ¥≠FLƒFL–0:± fiQæB%(BL…1)–B%(BL…1)»1:TI–TI…1 R»≠B%(BL…1)–4ƒ∞1780:S(C)–S(C)»1TJ–TJ»1:≠C%(TI,TJ)–0ƒ∞1370:∞1330:∞1580:TT–1:± QP(≥:≤ PROGRAM SHOULD NOT GET HERE tP2ÅK–1¡25:ïS≈TX,TY:ÅL–1¡20:Ç:Ç:± èP<≤ LOCATE VERTICAL LINE ±PFTX–63»(TI 13):TY–12»(TJ 13):± œPP≤ LOCATE HORIZONTAL LINE PZTX–66»(TI 13):TY–2»(TJ 13):± Qdñ20…„(A$)À2-":Ø22,40,"---------------------------------------":≤ 39 - ä T≠YT–60ƒØ1,9," ":Ø1,29,"80 COLUMN AMPOS DEMO":≤ 20 SPACES ì ^∞370 ô h± À r≠YT–60ƒØ23,28,"PRESS RETURN TO CONTINUE":´390 |Ø23,8,"PRESS RETURN TO CONTINUE" Üπ49168,0:µ…-----------------------":≤ 39 - + ÅX–4¡20 A ˙ ØX»1,1,B$:ØX,1,A$ Y ÅT–1¡100:ÇT:≤ DELAY h ØX,1,C$:ÇX t ÅX–1¡YT ä "Ø20,X,A$:Ø21,X,B$ ¢ ,ÅT–1¡100:ÇT:≤ DELAY ¿ 6≠X—YTƒØ20,X," ":Ø21,X," " « @ÇX : J≠YT–60ƒØ2,40,"--------------------------------------EASY WITH AMPOS":C$–" ":≤ 16 SPACES R
“ ∫Á(27);Á(17):ó:Ä Ê Ø2,1,"---------------------------------------":Ø22,1,"----------------TOR":∫"COPYRIGHT (C) 1988 BY MICROSPARC, INC." Q n EIGHTY–1:≠‚(64435)—œ6ƒEIGHTY–0 û x π49153,0:π49237,0:π1024,123:A–‚(1024):π49236,0:π49152,0:≠A—œ123ƒEIGHTY–0 ® Ç •´400 Δ å ∫Á(4);"BRUN AMPOS":π216,0 — ñ ∞380:ó ‚ † ∫Á(27);Á(17) 2
…: ± ’⁄` ¡15:ØP,Y:Ø∏X,X,Y,0:ØíX [ d X1–X 20:X2–X1»19:Y1–12 Y:Y2–Y1»11:ØV(X1,Y1),(X2,Y2):ØF(X1,Y1),15 c n Ç:Ç k x Øí0 s Ç æZ$ Ç å ÅI–0¡15:Øï ≤ ñ ÅX–0¡15:ÅY–0¡15:ØP,Y:Ø∏X,X,Y,I:Ç:Øì0,12 X:Ç π † Øî ø ™ Ç ¥ æZ$:Øâ
‹ ÅI–0¡15:Ø∏I,13,7,3:ÅJ–1¡200:Ç:Ç R" d •´600 n £35328 = x Øë:ó:¢11:ñ20:∫"Please wait...":Øâ S Ç ÅI–1¡15:Ø∏I,0,0,0 Å å ØíI:ØC(160,100),I 12:ØC(160,100),(I»1) 12 µ ñ X–I 12»2:Y–0:≠Xœ159ƒX–158:Y–98 (I–15)»80 (I–14)
,7…4 PF)",S"CS",D"CD:´840 \4∫"Enter full prefix to CAT:":Ñ"::>";A$:≠Ë(A$,1)—œ"/"ƒA$–"/"»A$ m>∫:∫D$"CAT"A$ ÇH∞850:∞690:ó:´600 ≠R∫"Press RETURN to continue:";:∞680:∫:± \æA$:A–Â(A$):≠A—1ŒAœ7ƒ860 –f± heck listing or retry":∞850:´120 Z ó:∫"A character set must be loaded first...":∫:∞850:± îâ:ó:∫"Select drive by SLOT,DRIVE";:≠PFƒ∫" or PREFIX"; ± ∫"?";:∞680:∫K$:≠K–80ƒ820 *∫Ë("CATALOG",7…4 PF)",S";:∞860:CS–A:∫A",D";:∞860:CD–A:∫A:∫:∫D$;Ë("CATALOG"(222)–255ƒ¶ P–ó:ER–‚(222):LN–‚(218)»‚(219) 256:≠ER–16ŒERœ21ƒ∫"APPLESOFT";:´740 h⁄∫"DOS (or ProDOS)"; ¨‰∫" error # "ER" in line # "L:≠ER–6ƒ∫"Pathname (file) not found" ”Ó≠ER–8ƒ∫"I/O error in loading file" ¯¯≠ER–3ÕPFƒ∫"Device not connected" ∫"C–63ƒ790 v≠K–13ƒ± =Ä≠Kœ31ÕK—96Õ„(Z$)—œ(30…15 PF)ƒZ$–Z$»K$ Yä≠K–8Õ„(Z$)—2ƒZ$–"":´610 sî≠K–8ƒZ$–Ë(Z$,„(Z$)…1) |û´610 ∂®æK$:K–‚(49200) ‚(49200):K–Ê(K$):K–K…32 (Kœ96ÕK—123):± ‹≤πF…3,0:πF»1,0:πF»4,0:¢24:π34,20:± ˘ºåE:L–‚(5) 256»‚(4)…P»1:± Δ≠‚ƒH–0 "0≠K–65ŒK–11ƒV–V…1:≠V—0ƒV–7 @:≠K–90ŒK–10ƒV–V»1:≠V–8ƒV–0 pD≠K–27ƒK–N»C 8:ÅX–0¡7:πK»X,‚(36864»X):Ç:´490 yN´520 …Xó:∫"Enter FILENAME or (ESC) to exit:":∫"Press (?) for disk selection":Z$–"" ˘b¢24:ñ1:∫"::> "Z$" "Á(8);:∞680:≠K–27ƒZ$–"":± l≠K"(RETURN) to exit editor":∫"(ESC) to restore original character";:V–0:H–0 n˛K–N»C 8:ÅX–0¡7:π36864»X,‚(K»X):Ç ∞π768,V 7»83:π770,H»5:π6,7:åE»24:∞680:≠K–13ƒåE:åE»18:∞700:´490 ”≠K–32ƒπ6,C:π768,V:π770,H:åE»27 Î ≠K–8ƒH–H…1:≠H—0ƒH–6 &≠K–21ƒH–H»1:≠H–72,0,6,0,15,0 % DÉ 28,63,14,190,45,45 < NÉ 44,37,0,63,56,36 U XÉ 12,45,21,23,21,4,0 2 A$–Ë(A$,1) ∏≠A$–"Y"ƒ210 ¬≤ : Ã≤ SCROLL ROUTINE DATA @ ÷≤ Z ‡É 169,32,133,39,162,0 u ÍÉ 134,38,160,0,200,177 ç ÙÉ 38,136,145,38,200 ® ˛É 192,39,208,245,169,0 ¬ É 145,38,32,4,245,232 € É 224,160,208,231,96 · ≤ Û &≤ SHAPES DATA ˘ 0≤ :É K–‚(49152):Y–Y»(K–218)…(K–193):Q–‚(49200):î2≈278,€(1) S:S–S….25 (Sœ0):N–S»€(1) 40:ì272,L¡279,N:L–N:å768:î1≈3,Y:¥Δ‚(234)´320 Å
J≤ ì
T≤ PRINT SCORE ô
^≤ £
hó:¢21 ≥
r∫"SCORE: "; ƒ
|∫(120…S) 100
Ü∫ Â
ê∫"ANOTHER GAME (Y/N)"; Û
öπ…16368,0 ˚
§ÑA$
ÆLE ADDRESS x ≤ # Ç π232,34:π233,3 ) å ≤ D ñ ≤ SET SHAPE PARAMETERS J † ≤ T ™ ò0:ô1 Z ¥ ≤ m æ ≤ CLEAR SCREEN s » ≤ | “ ë:í3 Ü ‹ ó:¢22 î Ê ∫"(A) UP" § ∫"(Z) DOWN" ™ ˙ ≤ ≈ ≤ INITIALIZE VARIABLES À ≤ fl Y–120:S–Y:L–159 Â "≤ ı ,≤ MAIN LOOP ˚ 6≤ {
@W
≤ ********************** ; ≤ * METEROIDS.EXP * X ≤ * BY DANIEL JOYNT * u( ≤ * COPYRIGHT (C) 1988 * í2 ≤ * BY MICROSPARC, INC * Ø< ≤ * CONCORD, MA 01742 * ÃF ≤ ********************** €P ÅY–768¡826 ÍZ áK:πY,K:ÇY d ≤
n ≤ SHAPE TAB
–13ƒ500 ¬≠K–8ƒC–C…1:≠C—0ƒC–95 PÃ≠K–11ŒK–65ƒC–C…20:≠C—0ƒC–C»100:≠Cœ95ƒC–C…20 j÷≠K–21ƒC–C»1:≠C–96ƒC–0 ö‡≠K–10ŒK–90ƒC–C»20:≠Cœ95ƒC–C…100:≠C—0ƒC–C»20 ºÍV–”(CÀ20) 10:H–(C…V 2) 2:´420 IÙó:∫"Arrows and (A) (Z) to move":∫"(SPACEBAR) to toggle pixel":∫"(ESC) for main menu : "; ,r∞680:≠K–27ƒ120 A|≠K–73ƒåE»12:´370 UÜ≠K–86ƒåE»9:´370 eê≠K–85ƒåE»15 nö´370 ¬§ó:∫"Arrows and (A) (Z) to select":∫"(RETURN) to edit":∫"(ESC) for main menu :"; ˘Æπ6,C:åE»21:π6,8:π768,V:π770,H:åE»24:∞680:≠K–27ƒ120 ∏≠Ktional FontWorks font":∞600:≠Z$—œ""ƒó:∫:∫D$"BSAVE"Z$",A"P",L"L G ,´120 Z 6≠J–0ƒ∞780:´120 ê @ó:∫"Edit (E)ntire set or":∫" (C)haracter ? "; £ J∞680:≠K–27ƒ120 æ T≠K–67ƒV–0:H–0:C–0:´420 Õ ^≠K—œ69ƒ330 hó:∫"(I)nverse, (V)ert scroll, (U)pside down":∫ont ? "; “ ∞680:≠K–27ƒ120 ) ‹ ≠K–78ƒ260 8 Ê ≠K—œ80ƒ210 Ç ∞600:≠Z$—œ""ƒó:∫:åE»3:∫D$"BLOAD"Z$",A"P:å782:πF,0:åE»18:åE»6:∞700:J–1 ã ˙ ´120 – ∞600:≠Z$—œ""ƒó:∫:åE»3:∫D$"BLOAD"Z$",A"N:∞700:å782:πF,0:åE»18:J–1 Ÿ ´120 Ï ≠J–0ƒ∞780:´120 > "ó:∫"Save Propor(C) 1988 MicroSPARC":∫:∫"(L)oad, (S)ave, (E)dit, (Q)uit :"; N
Ç ∞680:≠K–81ƒ180 \
å ≠K–76ƒ200 j
ñ ≠K–83ƒ280 x
† ≠K–69ƒ310 Å
™ ´130 π
¥ ó:∫"Exit program to BASIC (Y/N)?";:∞680:≠K–89ƒâ:ó:Ä ¬
æ ´120 » ó:∫"Load (N)on-proportional font":∫" or (P)roportional fF–(‚(48896)–76):∫Á(12)Á(21):ë:D$–Á(4):∫D$"BRUNPRINTWORKS":≠PFƒ∫D$"PR#A$30A" q d ∫D$"BLOADEDITOR.OBJ":π775,1:•´710 ø n F–49235:πF,0:P–28672:N–24576:π789,”(PÀ256):π788,P…‚(789) 256:E–32768:åE»3 ;
x ∞690:ó:ñ10:û:∫" PRINTWORKS EDITOR ":ù:ñ3:∫"by Bob Thrasher, —
^XV–1…€(1) 2:≠‘(XV)—.5ƒXV–XV 2 hYV–1…€(1) 2:≠‘,Y x ÇY Ç ≤ DRAW BORDER < å ì0,0¡279,0¡279,191¡0,191¡0,0 ] ñ ì3,3¡276,3¡276,188¡3,188¡3,3 ~ † ì4,4¡275,4¡275,187¡4,187¡4,4 Ö ™ í3 ¶ ¥ ≤ SET UP SHAPES & VELOCITIES ¡ æ ÅI–1¡25:≤ DRAW 'STARS' ◊ » X–120…€(1) 120»80 Î “ Y–80…€(1) 80»56 Ù ‹ ìX,Y ˚ Ê ÇI
Ö
π768,1:π769,0:π770,4 3 π771,0:π772,4:π773,0 S π232,0:π233,3:≤ $E8,E9=$300 g( ≤ SET UP SCREEN s2 ë:ò0:ô1 ó< π…16302,0:≤ FULL SCREEN DISPLAY ≤F í3:ì0,0:≤ PLOT A POINT ŒP å62454:≤ CLEAR TO COLOR ’Z í0 Úd ÅY–56¡136:≤ ERASE CENTER n ì80,Y¡200
, ESCAPE TO QUIT";:æZ$:∫:¥Z$—œÁ(27)´80:Ä A 71,¬B(Y) " 0π772,¬A(R):π773,¬B(R) - :å24576 3 D± c NE–‚(222):EL–‚(218)»256 ‚(219):å…3288:π216,0 õ Xó:¢12:≠E–6ŒE–7ƒ∫"CIRCLE FILE NOT ON THIS DISK":´630 » b≠E–8ƒ∫"I/O ERROR--CHECK DRIVE DOOR":´630 Ê l∫"ERROR "E" IN LINE "EL:Ä (v∫"RETURN TO TRY AGAIN—128´280 §â:Ä Æ: / ∏≤---END OF MAIN LOOP 5 ¬: ; Ã: T ÷≤---POKE THE LO & HI i ‡≤ BYTES OF THE Ä Í≤ PARAMETERS FOR õ Ù≤ THE CIRCLE ROUTINE ¥ ˛≤ WHERE IT EXPECTS Œ ≤ THEM, THEN CALL IT. ‘ : Ó π768,¬A(X):π769,¬B(X) &π770,¬A(Y):π7
Ê ë
X–140:Y–80
˙ : -
≤---MAIN LOOP 3
: C
ÅR–0¡160«20 I
": g
,≤---GET RANDOM, NON-BLACK v
6≤ HCOLOR |
@: û
JHC–”(€(1) 7)»1:≠HC–0ŒHC–4ƒ330 ¶
TíHC ¨
^: …
h≤---GOSUB CIRCLE-CALLING ‹
r≤ SUBROUTINE ‚
|: Î
Ü∞540 Ò
êÇ ö≠‚(…16384)n ≤---FUNCTIONS A & B 3 x ≤ GET THE HI & LO BYTES N Ç ≤ OF THEIR ARGUMENTS k å ≤ ...NUMBERS >=0 ONLY! q ñ : ë † ∏¬A(T)–(TÀ256…”(TÀ256)) 256 • ™ ∏¬B(T)–”(TÀ256) ´ ¥ : ≈ æ ≤---CLEAR SCREEN, SET · » ≤ CENTER OF CIRCLE AT ˙ “ ≤ CENTER OF SCREEN
ó ∫"MONTHLY TITLES" > ∫:Ñ"BLANK LINE LETTER 1?";A$ _( ∫:Ñ"BLANK LINE LETTER 2?";B$ {2 ∫:Ñ"MONTH AND YEAR?";C$ ù< BK$–"":ÅI–1¡8:BK$–BK$»Á(8):ÇI æF SP$–"":ÅI–1¡8:SP$–SP$»" ":ÇI ”P L$(1)–A$»BK$»SP$ ËZ L$(2)–"A"»BK$»C$ ˝d L$(3)–B$»BK$»SP$
|± $ n : x A–140:B–80:R–70 Ç : > å ≤---CALL CIRCLE-GENERATOR D ñ : M † ë:í3 V ™ ∞220 \ ¥ Ä b æ : t » ≤---MAIN LOOP z “ : é ‹ X–0:Y–R:D–3…2 R ó Ê ∞370 Ø ≠D—0ƒD–D»4 X»6:´260 » ˙ D–D»4 (X…Y)»10:Y–Y…1 “ X–X»1 fl ≠X—Yƒ230 Ì ≠X–Yƒ∞370 Û "± ˘ ,:
4π36,0:¢(21):∫"X="”(X)" Y="”(Y)" ANGLE="”((T 180)À3.14159)" THICK="”(R».5)" ":∫"BRANCH#:"NN" FREE:"FC" USED:"BC" ":±:≤IS INSERTED IN THE DRIVE CORRECTLY AND THE DRIVE DOOR IS CLOSED.":´800 ≥≠ER–6Õ‚(48896)–76ƒ∫Á(4)"PREFIX":ÑPF$:M$–"PATH NOT FOUND. PLEASE INSERT A DISK WITH THE PREFIX "»PF$:´800 ≠ER–9ƒM$–"YOUR DISK IS FULL. PLEASE INSERT A DISK THAT HAS ENOUGH ROOM ≤F–0:áR:ÅJ–1¡R:áG$,A,B:≠Gœ–AÕG—BÕΔFƒF–J:F$–G$ 6ºÇ:± MΔSK–0:K–39:EK–„(M$) l–≠Í(M$,K,1)—œ" "ƒK–K…1:´720 ó⁄∫Í(M$,SK»1,K…SK):SK–K:K–K»39:≠K—EKƒ720 ≠‰∫Í(M$,SK»1,EK…SK) ≥Ó± F¯ER–‚(222):≠ER–8ƒM$–"AN I/O ERROR OCCURRED. MAKE CERTAIN THAT YOUR DISK M$»" WHICH CHANGE DIRECTION "»F$ êÄG–NB:∞690:M$–M$»". BRANCHES ARE "»F$»" AND GROW FOR A LENGTH OF "»‰(LN)»" UNITS BEFORE STARTING A NEW ONE." ôä∞710 ºî∫:∫"IS THIS TREE OKAY (Y/N)?"; ˜ûæG$:G–Ê(G$):G$–Á(G…32 (Gœ95)):¥G$—œ"Y"ÕG$—œ"N"´670:∫G$ ˝®± .—œ"1"ÕG$—œ"2"´590:¥G$–"1"´560:± gXG–÷(0):Æ:ó:∫"TREE SELECTION IS:":∫:M$–"YOU SELECTED A TREE WITH A " øbG–TK(0):∞690:M$–M$»F$»" TREE TRUNK AND ":≠ΔCVƒM$–M$»" COMPLETELY STRAIGHT BRANCHES" ËlG–CV:∞690:≠CVœ0ƒM$–M$»F$»" BRANCHES" vG–GB:∞690:≠CVœ0ƒM$–∫:∫"YOUR TREE WILL BE SAVED IN PICTURE":∫"FORMAT AS PIC.TREE":∫:∫"INSERT DISK TO SAVE ON AND PRESS RETURN." ®:æG$:∫:∫"SAVING...":∫Á(4)"BSAVE PIC.TREE,A$2000,L$2000":± ÌDπ216,0:å…3288:∞760:∞710:∫"PRESS (1) TO TRY AGAIN OR (2) TO EXIT" Nå…3288:æG$:¥G$∫:∫"1. FORWARD ORDER" -Í∫"2. REVERSE ORDER" JÙæG$:¥G$—œ"1"ÕG$—œ"2"´500 `˛∫G$:RD–(G$–"1"):± ûÅJ–V¡23:ñ1:¢J:∫√40);:Ç:ñ1:¢V:∫G$" ";:û:∫"("A"-"B")?";:ù:∫ „Ñ"ENTER VALUE->";R$:R–Â(R$):¥R—AŒRœBŒË(R$,1)—"0"ŒË(R$,1)œ"9"´520 Ô V–V»3:± ˘&•´580 k0ó:EE":∫"2. SAVE TREE AND EXIT":∫"3. EXIT":≠EXƒ∫"4. RESUME DRAWING TREE." §¬¢(8):æG$:¥G$—œ"1"ÕG$—œ"2"ÕG$—œ"3"ÕΔ(G$–"4"ÕEX)´450:≠G$–"1"ƒπ…16304,0:π…16302,0:æG$:â:´450 —Ã¥G$–"4"´870:¥G$–"2"∞550:ó:∫"FINISHED.":Ä ˚÷ó:∫"DO YOU WISH THE TREE TO DRAW IN:" ‡FL(J):A–FL(FL):FL(J)–FL:FL(FL)–G:FL–A:´330 cêG–FL(BE):A–FL(FL):FL(BE)–FL:FL(FL)–G:BE–FL:FL–A:´330 töJ–FL(J):´330 ¡§å…3288:FC–FC»1:BL–FL(J):G–FL:FL–J:FL(J)–G:BC–BC…1:J–BL:NN–NN»1:¥BCœ0´330 ÌÆâ:ó:∫"ALL BRANCHES WERE PROCESSED":EX–0 F∏∫:∫"1. VIEW TR):L(J)–L(J)»1 Kh¥€(1)œGB´370:TH(J)–TH(J)»1ÀTK(J) €(1) CV (…1»2 (€(1)œ.5)) År¥L(J)ÀLN–”(L(J)ÀLN)´410:¥”(€(1) NB)»1—œNBŒΔFC´330 ·|X(FL)–X(J):Y(FL)–Y(J):TK(FL)–(.5»€(1)À2) TK(J):TH(FL)–TH(J)»TK(FL)ÀTK(J) (1…2 €(1)):L(FL)–0 *ÜBC–BC»1:FC–FC…1:¥RD´400:G– T TAB FROM COPY":ù:ÅB–1¡5:∫Á(7):Ç .˛≠WPƒπH,0 4± X∫C$:æA$:π35,24:¢19:å…958:∞360:± ü ñCH:¢CV:æA$:A–(Â(A$)—1ŒÂ(A$)œB):C–(C A)»(Â(A$) (A–0)):ñCH:¢CV:∫C:± Ë&ó:∫:∫"PRESS RETURN TO MAKE ANOTHER COPY":∫C$:æA$:≠A$–B$ƒ°:πDR,1:´380 Ó0±
T TS—œ25))ƒ± f‡WP–0:πTR,0:πSE,0:πVE,0:πCC,0:πDR,D:πSL,S 16:π820,S 16:≠RW–2ƒπDR,DC:πSL,SC 16:π820,SC 16 ¬Íå793:≠RW–1Õ‚(819)–136ƒWP–1:π35,19:¢20:û:∫"WRITE-PROTECT ORIGINAL DISK":ù:ÅB–1¡5:∫Á(7):Ç !Ù≠RW–2Õ‚(819)—œ136ƒWP–1:π35,19:¢20:û:∫"REMOVE WRITE-PROTEC´410:ÅI–1¡2:∞300:∞350:≠I–1ƒπ869,56:å821:TS–8 <ÆÇ:RW–2:πH,0 É∏πDR,DC:πSL,SC 16:≠SDƒó:∫:∫Á(7);"INSERT COPY AND PRESS RETURN":∞530 ¬¬∞470:¥WP´440:TS–8:ÅI–1¡2:∞300:∞350:≠I–1ƒπ869,24:å874:TS–17 ›ÃÇ:πH,0:πDR,1:∞550:´160
÷≠ΔSDÕ((ΔAUÕTS—œ34)Œ(AUÕTS—œ34Õ0:π48649,72:π48650,190:π1010,191:π1011,157:π1012,56:£38400:å976:Ä Gܱ •êπ34,5:å54915:ñ1:¢20:π35,19:û:∫"OOPS. A FATAL ERROR ON TRACK ";‚(TR):ù:ÅI–1¡5:∫Á(7):Ç:∞370 ÛöRW–1:πDR,D:πSL,S 16:≠SDƒó:∫:∫Á(7);"INSERT ORIGINAL AND PRESS RETURN":∞530 ,§∞470:¥WPπH,0:πDR,1:∞550:´160 P^πSE,15:πCC,RW:πTR,TS:ÅQ–1¡Y:πE,16:åRP:Ç:πBL,0:πBH,150:± ^h≠A$—œB$ƒ± »r°:πH,0:πDR,1:ó:∫:∫"WOULD YOU LIKE TO TRY AGAIN (Y/N)?Y":¢7:ñ35:æA$:π35,24:ó:≠A$—œÁ(78)ÕA$—œÁ(110)ƒ110 A|ÅI–47012¡47016:áDA:πI,DA:Ç:π34,0:ó:π48715,145:π216,ó:í3:ë:π…16302,0 X@¢(23):∫"PRESS Q TO QUIT: SPACE TO BRANCH":∫"RETURN TO TOGGLE TEXT"; ïJX–X(J):Y–Y(J):R–TK(J):T–TH(J):¥TX∞820:¥‚(…16384)œ128∞830 ±T¥R—.5´420:A–fi(T):B–fl(T) ^X2–X»‘(R A):Y2–Y…‘(R B):ìX,Y¡X2,Y2:X(J)–X»B “(A):Y(J)–Y…‘(A):TK(J)–R…(RÀ80TOGGLE THE TEXT WINDOW;":∫" Q TO QUIT PROGRAM." É ∫:∫" ** NOTE ** LEAVING THE TEXT WINDOW ON";:ñ15:∫"SLOWS DOWN THE PROGRAM." ± æG$:∫G$:ó:∫"INITIALIZING LINKED LIST...." ª •´420 fi "ÅJ–0¡N…1:FL(J)–J»1:Ç:FL–1:FC–N ˚ ,BC–1:BL–0:J–BL:BE–1:NN–1 6A$–"Q"ƒâ:Ä
√ ´105 &
» ≤ CREATE FIELD 2
Õ ÅI–1¡50 L
“ X–€(1) 279:Y–€(1) 159 U
◊ ìX,Y \
‹ ÇI b
· ±
≈X,Y»H x ò32:ôH } ï1≈X,Y ) Ç ï1≈X»W,Y 1 á æA$ < å ò16:ôW G ë ï1≈X,Y T ñ ï1≈X,Y»H _ õ ò32:ôH j † ï1≈X,Y w • ï1≈X»W,Y ì ™ ≠A$–Á(8)ƒX–X…1:≠X—0ƒX–0 ∏ Ø ≠A$–Á(21)ƒX–X»1:≠X»Wœ279ƒX…279…W › ¥ ≠A$–Á(10)ƒY–Y»1:≠Y»Hœ159ƒY–159…H ˙ π ≠A$–Á(11)ƒY–Y…1:≠Y—0ƒY–0
æ ≠d ≤ BOX DEMO - ≤ POKE 'DOT' SHAPE TABLE F
π768,1:π769,0:π770,4 _ π771,0:π772,4:π773,0 π232,0:π233,3:≤ $E8,E9=$300 à ë:í3 ë ∞200 ¥# X–140:Y–80:≤ STARTING POSITION “( H–50:W–75:≤ HEIGHT, WIDTH „d ≤ DRAW FRAME Ói ò16:ôW ˘n ï1≈X,Y s ï1 0:≠LCƒπBH,224:πCC,RW:πTR,TS:TS–TS…1:πE,16:å774:πBH,150:πBL,0 R6¥AU´390:∞350:RW–2 û@πDR,DC:πSL,SC 16:≠SDƒó:∫:∫Á(7);"INSERT COPY AND PRESS RETURN":∞530:∞470 ÏJ¥WP´320:≠LCƒπCC,RW:πSE,15:πBH,224:πBL,0:πTR,TS»1:πE,16:å774:πBH,150:πBL,0 T∞350:TS–TS…Y:Ç:68 3˙ ≠AUƒTS–26:πVE,0:∞300:∞350:π869,24:å851:TS–34 aπVE,0:πBH,150:πBL,0:πDR,DC:πSL,SC 16:∞350 y≠AUƒTS–17:πH,0:´410 °TS–27…LC:ÅI–1¡X:RW–1:πDR,D:πSL,S 16 Ë"≠SDƒó:∫:∫Á(7);"INSERT ORIGINAL AND PRESS RETURN":∞530:∞470:≠WPƒ290 <,πSE,15:πBH,150:πBL,P´170:πTR,0:πSE,0:πVF,0:πVE,0:πCC,1:πDR,D:πSL,S 16:å768:V–‚(VF):πBL,0:πBH,150:∞350 |“ ≠AUƒπ869,56:å851:TS–26:∞300:∞350:πH,0 ≤‹ ≠SDƒó:∫:∫Á(7);"INSERT COPY AND PRESS RETURN":∞530 “Ê RW–2:∞470:≠WPƒ¥SD»1´180,220 πVE,V:πVF,V:πCC,4:πDR,DC:πSL,SC 16:≠ΔFƒå7 V™ ó:≠SDƒ¢10:∫"INSERT ORIGINAL IN SLOT ";S;", DRIVE ";D;√6);"THEN PRESS RETURN":∞530 ⁄¥ ≠ΔSDƒó:¢10:∫"INSERT ORIGINAL IN SLOT ";S;", DRIVE ";D;√6);"INSERT COPY IN SLOT ";SC;", DRIVE ";DC;√10);"THEN PRESS RETURN":∞530 Ôæ ≠WPÕΔSDÕRW–2ƒ230 R» RW–1:∞470:¥W:∞540:D–C ã ñ ∫"SLOT # OF COPY(1-7)?";√14);SC:B–7:C–SC:CV–9:∞540:SC–C:∫"DRIVE # OF COPY(1-2)?"√13);DC:B–2:C–DC:CV–10:∞540:DC–C:SD–D–DCÕS–SC † TS–34:∫:∫"FORMAT COPY DISK (Y/N)?Y":∫"=>IF UNSURE, PRESS <RETURN><=":∫C$:¢12:ñ24:æA$:F–(A$–Á(78)ŒA$–Á(110)):∞360å…144 ~ Ç π860,95:π866,100:π6,0:å905:AU–‚(6)–128:LC–(AUŒ‚(6)–64):¢1:ñ35:∫‚(6);"K":X–4…LC:Y–7»LC:≠AUƒπ48715,96:π860,23:π866,151 å B–7:C–S:ó:∫:∫"SLOT # OF ORIGINAL DISK (1-7)?";√4);S:CH–35:CV–7:∞540:S–C:B–2:C–D:∫"DRIVE # OF ORIGINAL DISK (1-2)?";√3);D:CV–84,234,206,236,183 ù
n H–49384:RP–46995:SL–47081:DR–SL»1:VE–DR»1:TR–VE»1:SE–TR»1:BL–SE»3:BH–BL»1:CC–BH»3:VF–CC»2:E–SL…8:C$–"=>PRESS ESCAPE TO QUIT<=":B$–Á(27) x A$–"C081 N C081 N F800<F800.FFFFM D000:88 N D7D2G":ÅI–1¡„(A$):π511»I,Ê(Í(A$,I,1))»128:Ç:π72,0:Z ó:ñ14:∫"FLOPPY COPY":ñ10:∫"BY MICHAEL GRUENTHAL":ñ11:∫"COPYRIGHT (C) 1988":ñ11:∫"BY MICROSPARC, INC.":ñ11:∫"CONCORD, MA 01742"
d π34,5:∫Á(4)"BLOADFLOPPY.OBJ":ÅI–47012¡47016:áDA:πI,DA:Ç:π48649,19:π48650,3:π1010,19:π1011,3:π1012,166:É206,236,183,48,11,23
√…“√Ã≈ƃ≈Õœ††††††††††††††††††† Õ≈‘≈œ“œ…ƒ”†††††††††††††††††††† ÷¡“Æ√»¡“‘††††††††††††††††††††† …Œ”≈¡“√»†††††††††††††††††††††† ”≈¡“√»Æƒ≈Õœ††††††††††††††††††† ¡–Ö“…Œ‘†††††††††††††††††††††† √àààààààà††††††††††††††††††††† ¡àààààààà ¡Œ’¡“Ÿ†±π∏∏††††††††† ! ƒàààààààà††††††††††††††††††††† Ç»≈ÃÃœ††††††††††††††††††††††††† ¡àààààààà††††††††††††††††††††† ¡ààààààààƒ≈√≈Õ¬≈“†±π∏∑†††††††† ¬àààààààà††††††††††††††††††††† á¬≈ÃÆÕ¡À≈“††††††††††††††††††† á¬≈ÃÕ¡À≈“ÆÕÃÆ∞††††††††††††††† á¬≈ÃÕ¡À≈“ÆÕÃƱ††††††††††††††† ˛ z # ? ˇ ˇ ˇ ˇ ˇ ?ˇ ?ˇ ?ˇ (S(1)):´1870 UDSC$–‰(S(0)) <UN≠„(SC$)—2ƒSC$–"0"»SC$:´1870 VUXX–240:≠C–1ƒY–70:´1900 `UbY–100 çUlÅI–1¡2:S–Ê(Í(SC$,I,1))…37:ïS≈X,Y:X–X»6:Ç ¢Uv≠C–1ƒT$(C)–SC$:± ≤UÄT$(C)–SC$:± ≈Uä≤ INSTRUCTIONS :Vî∫:∫"The object of CONNECTION is to place horizontal T∏≠FLƒFL–0:TJ–11:± !T¬≠TJ–1ƒ± @TÃ≠B%(BL…10)–2ƒA–A»1:°:´1050 FT÷± \T‡BL–(TJ…1) 10»TI:± mTÍ≤ DRAW PIECE ~TÙ≠CƒS–4:´1800 ÜT˛S–5 ôT∞1830:ïS≈TX,TY üT± ºT ≤ POSITION PLAYER MARKER fiT&TX–66»(TI 13):TY–12»(TJ 13):± ÒT0≤ UPDATE SCORE U:≠C–1ƒSC$–‰ SJB%(BL)–B%(BL)»1 9ST≠B%(BL)–4ƒ∞1780:S(C)–S(C)»1:MV–1 HS^≠FLƒFL–0:± TSh≠TJ–1ƒ± vSrB%(BL…10)–B%(BL…10)»1:TJ–TJ…1 ûS|≠B%(BL…10)–4ƒ∞1780:S(C)–S(C)»1:MV–1 §Sܱ ƒSê≤ CHECK STATUS OF HOR. MOVE ⁄Sö≠TJ–11ƒTJ–10:FL–1 ‰S§∞1760 TÆ≠B%(BL)–2ƒA–A»1:°:´105016384,128:± 7êπ216,0:ó:¢12:∫"UNABLE TO LOAD AMPOS.":Ä Ó CATALOG the disk.":π…16368,0:µ…16384,128:æZ$:â:ó G
ñ ∫:∫Á(4);"CATALOG" M
† ø I *"; & < ÅI–0¡39:∫"*";:ÇI 0 F π34,7 6 K ∫ < d ó B i ∫ q n ∫"This disk contains programs from Nibble" ò x ∫"Magazine Volume 8, 1987, Nibble" Ë Ç ∫"Magazine, Volume 9, 1988, and Nibble":∫"Express, Volumes 8 and 9. Enjoy!" 1
J ´740 %JS–2:≤ HORIZONTAL MOVE ^J ÅJ–1¡11:ÅI–1¡10:≠C%(I,J)–0ƒTI–I:TJ–J:I–10:J–11:∞1370 fJ*Ç:Ç tJ4π…16368,0 ƒJ>X–‚(…16384):ïS≈TX,TY:M–‘(M…1):≠X–136ŒX–149ŒX–141ŒX–214ŒX–246ƒπ…16368,0:´850 ÕJH´830 ÈJR≠X–141ÕΔMƒïS≈TX,TY:≠Cƒ± ¸J\≠X–141ƒ∞1580:± KfY:M–0 Iû≠X–200ŒX–232ƒS–2:´790 .I®≠X–149ƒ740 NI≤≠TI–1ÕTJ–1ƒTI–11:TJ–10:´720 kIº≠TI–1ƒTJ–TJ…1:TI–11:´720 wIΔTI–TI…1 ìI–≠R%(TI,TJ)–0ƒ∞1350:´620 úI⁄´690 ºI‰≠TI–11ÕTJ–10ƒTI–1:TJ–1:´770 ŸIÓ≠TI–11ƒTJ–TJ»1:TI–1:´770 ÂI¯TI–TI»1 J≠R%(TI,TJ)–0ƒ∞1350:´62HDS–3:≠A$–"Q"ŒA$–"q"ƒ2050 SHNÅJ–1¡10:ÅI–1¡11:≠R%(I,J)–0ƒTI–I:TJ–J:I–11:J–10:∞1350 [HXÇ:Ç iHbπ…16368,0 πHlX–‚(…16384):ïS≈TX,TY:M–‘(M…1):≠X–136ŒX–149ŒX–141ŒX–200ŒX–232ƒπ…16368,0:´640 ¬Hv´620 fiHÄ≠X–141ÕΔMƒïS≈TX,TY:≠Cƒ± ÒHä≠X–141ƒ∞1400:± Iî≠MƒïS≈TX,TN MOVE )G ó:¢23:M–0:∫"(Q)uit";:¢22:π36,0 íG&∫"(H)orizontal or (V)ertical line:";:æA$:≠A$—œ"H"ÕA$—œ"V"ÕA$—œ"h"ÕA$—œ"v"ÕA$—œ"Q"ÕA$—œ"q"ƒå…198:´540 ‚G0ó:¢22:∫"Use left and right arrow keys to select move. Return to make move." ˛G:≠A$–"H"ŒA$–"h"ƒS–2:´790 first move." 5F÷X–‚(…16384):A–”(€(1) 9)»1:≠X—127ƒ470 XF‡π…16368,0:≠AÀ2–”(AÀ2)ƒC–1:´500 `FÍC–0 ÄFÙ¢12:å…958:≠CƒPL$–"Computer" îF˛≠ΔCƒPL$–"Human" ıF∫"The "PL$" will make the first move.":ÅI–1¡3000:Ç:π…16304,0:π…16301,0:π…16300,0:π…16297,0:± G≤ HUMA30,90 1EöÅJ–0¡1:C–J:∞1850:Ç:≤ DRAW INITIAL SCORE NE§≤ SELECT WHO MOVES FIRST ÑEÆû:∫" *-* CONNECTION *-* ";:ù:∫" By Rudy A. Guy" ∏E∏A$–"Copyright (c) 1988 - MicroSPARC Inc.":∞1380 …E¬≠SK–50ƒ∞1940 Fâ12:∫"Please press a key to see who will make the 5:´140 D@≤ TIE GAME GDJA$–"The game ends in a tie!":ó:¢21:∞1380:´280 WDT≤ DRAW GRID nD^ÅI–1¡100:B%(I)–0:Ç DhÅJ–15¡145«13 úDrÅI–75¡205«13:ï1≈I,J:ÇI,J …D|ÅI–1¡11:ÅJ–1¡11:R%(I,J)–0:C%(I,J)–0:ÇJ,I ÎDÜJ–35:ÅI–6¡10:ïI≈35,J:J–J»18:Ç Eêï21≈230,60:ï22≈2 C–”(‘(C…1)):´170 *C˙ ó:ÅI–1¡5:∫Á(7):Ç:¢22 gC≠S(0)œ50ƒA$–"Congratulations human, you win!":∞1380:´280 åCA$–"Too bad human, I won!":∞1380 úCÅI–1¡3000:Ç ºC"¢23:ñ7:Ñ"Another game?";YN$ ·C,≠Ë(YN$,1)–"n"ŒË(YN$,1)–"N"ƒâ:ó:Ä D6ÅI–0¡1:T$(I)–"00":Ç:SK–SK»,11),B%(100) BÇ SK–50 /Bå ë:â:ó:í3:ì0,0:å…3082 `Bñ SC$–"00":T$(0)–"00":T$(1)–"00":S(0)–0:S(1)–0 iB† ∞350 ÄB™ ≤ CHECK FOR WINNER òB¥ ÅI–0¡1:≠S(I)œ50ƒ250 ≥Bæ Ç:≠S(0)–50ÕS(1)–50ƒ320 æB» ≤ MOVE –B“ ¥C»1∞540,1010 ÍB‹ SC$–T$(C):∞1880:∞1850 ¸BÊ ≠MVƒMV–0:´170 CONNECTION":≤ RELOCATE BASIC CODE ABOVE HI-RES åAF ≠‚(48896)–76ƒADR–768:πADR,32:πADR»1,248:πADR»2,190:πADR»3,96:åADR:≤ PRODOS FREEBUFF CALL óAP •´2030 ßAZ ∫Á(12)Á(21) ‡Ad ∫Á(4)"BLOAD CONNECT.ST":π232,0:π233,147:ô1:ò0:π216,0 ÎAn £37632 Bx ÜR%(11,11),C%(11ß @ ≤ ********************** ;@ ≤ * CONNECTION * X@ ≤ * BY RUDY A. GUY * u@ ≤ * COPYRIGHT (C) 1988 * í@ ≤ * BY MICROSPARC, INC * Ø@ ≤ * CONCORD, MA 01742 * Ã@ ≤ ********************** -A< ≠‚(104)—œ64ƒπ103,1:π104,64:π16384,0:∫Á(4)"RUN C
ABLE. PLEASE TRY AGAIN.":Ä xYó:π…16303,0:A$–"ARE YOU SURE YOU WANT TO QUIT?":ñ20…”(„(A$)À2):¢11:∫A$;:Ñ"";A$:A$–Ë(A$,1) úY ≠A$—œ"Y"ÕA$—œ"y"ƒπ…16304,0:´540 ¶Yâ:ó:Ä S computer learns with each game." [XΔ∫"Press a key to begin.":π49168,0:≤CLEAR KEYBD. STROBE áX–X–‚(…16384):≠Xœ127ƒπ…16368,0:¢4:å…958:± ëX⁄´2000 ¢X‰≤ ERROR RTN. ªXÓEL–‚(218)»‚(219) 256 Y¯≠EL–100ƒó:¢12:∫"AN ERROR OCCURRED TRYING TO LOAD THE SHAPE Tey to place the line. You may change the type of line" ûW≤∫"selected by entering an 'H' while in thevertical line mode or 'V' from the horizontal mode." Xº∫:∫"The game ends when either you or the computer captures 51 squares. By the way, the and vertical lines on the game grid to make a square." πVû∫:∫"First, decide if you want to draw a horizontal or vertical line by entering 'H' or 'V'. The line is then moved on" 6W®∫"the grid with the left and right arrow keys. Press the RETURN k(S(1)):´1870 UDSC$–‰(S(0)) <UN≠„(SC$)—2ƒSC$–"0"»SC$:´1870 VUXX–240:≠C–1ƒY–70:´1900 `UbY–100 çUlÅI–1¡2:S–Ê(Í(SC$,I,1))…37:ïS≈X,Y:X–X»6:Ç ¢Uv≠C–1ƒT$(C)–SC$:± ≤UÄT$(C)–SC$:± ≈Uä≤ INSTRUCTIONS :Vî∫:∫"The object of CONNECTION is to place horizontal T∏≠FLƒFL–0:TJ–11:± !T¬≠TJ–1ƒ± @TÃ≠B%(BL…10)–2ƒA–A»1:°:´1050 FT÷± \T‡BL–(TJ…1) 10»TI:± mTÍ≤ DRAW PIECE ~TÙ≠CƒS–4:´1800 ÜT˛S–5 ôT∞1830:ïS≈TX,TY üT± ºT ≤ POSITION PLAYER MARKER fiT&TX–66»(TI 13):TY–12»(TJ 13):± ÒT0≤ UPDATE SCORE U:≠C–1ƒSC$–‰ SJB%(BL)–B%(BL)»1 9ST≠B%(BL)–4ƒ∞1780:S(C)–S(C)»1:MV–1 HS^≠FLƒFL–0:± TSh≠TJ–1ƒ± vSrB%(BL…10)–B%(BL…10)»1:TJ–TJ…1 ûS|≠B%(BL…10)–4ƒ∞1780:S(C)–S(C)»1:MV–1 §Sܱ ƒSê≤ CHECK STATUS OF HOR. MOVE ⁄Sö≠TJ–11ƒTJ–10:FL–1 ‰S§∞1760 TÆ≠B%(BL)–2ƒA–A»1:°:´1050:MV–1 R“± 3R‹≤ CHECK FOR STATUS OF VERTICAL MOVE IRÊ≠TI–11ƒTI–10:FL–1 SR∞1760 oR˙≠B%(BL)–2ƒA–A»1:°:´1050 ÑR≠FLƒFL–0:TI–11:± ¢R≠B%(BL…1)–2ƒA–A»1:°:´1050 ®R± –R"≤ SET STATUS OF HORIZONTAL POSITION ‡R,C%(TI,TJ)–1 ˆR6≠TJ–11ƒTJ–10:FL–1 S@∞1760:∫A$:± (Qn≤ CHECK FOR COMPLETED SQUARES 8QxR%(TI,TJ)–1 NQÇ≠TI–11ƒTI–10:FL–1 XQå∞1760 lQñB%(BL)–B%(BL)»1 ëQ†≠B%(BL)–4ƒ∞1780:S(C)–S(C)»1:MV–1 ØQ™BL$–‰(BL):≠È(BL$,1)–"1"ƒ± æQ¥≠FLƒFL–0:± fiQæB%(BL…1)–B%(BL…1)»1:TI–TI…1 R»≠B%(BL…1)–4ƒ∞1780:S(C)–S(C)»1TJ–TJ»1:≠C%(TI,TJ)–0ƒ∞1370:∞1330:∞1580:TT–1:± QP(≥:≤ PROGRAM SHOULD NOT GET HERE tP2ÅK–1¡25:ïS≈TX,TY:ÅL–1¡20:Ç:Ç:± èP<≤ LOCATE VERTICAL LINE ±PFTX–63»(TI 13):TY–12»(TJ 13):± œPP≤ LOCATE HORIZONTAL LINE PZTX–66»(TI 13):TY–2»(TJ 13):± Qdñ20…„(A$)À2Ë(A$,2))»1:I–10 OŒ≠I–0ƒI–10 ,Oÿ≠J–11ƒJ–10 KO‚≠È(A$,1)–"0"Õ„(A$)—3ƒJ–J…1 ZOÏ≠J–11ƒJ–10 hOˆTI–I:TJ–J ñO S–3:≠R%(TI,TJ)–0ƒ∞1350:∞1330:∞1400:TT–1:± »O
TI–TI»1:≠R%(TI,TJ)–0ƒ∞1350:∞1330:∞1400:TT–1:± ˚OS–2:TI–I:≠C%(TI,TJ)–0ƒ∞1370:∞1330:∞1580:TT–1:± -P 0:∞1330:∞1400:TT–1:± QN¶≠I—–10ƒTI–TI»1:≠R%(TI,TJ)–0ƒS–3:∞1350:∞1330:∞1400:TT–1:± êN∞≠I—–10ƒTJ–1:TI–I:≠C%(TI,TJ)–0ƒS–2:∞1370:∞1330:∞1580:TT–1:± N∫≠I—–10ƒTJ–2:≠C%(TI,TJ)–0ƒS–2:∞1370:∞1330:∞1580:TT–1:± OƒA$–‰(I):I–Â(È(A$,1)):J–Â(Ë(A$,1))»1:≠„(A$)–3ƒJ–Â(ƒS–3::´1090 M8´1050 &MB≠A—–SKƒ∞1510 >ML∞1350:∞1330:∞1400:± HMV´1050 ÉM`TI–”(€(1) 10)»1:TJ–”(€(1) 11)»1:≠C%(TI,TJ)–0ƒS–2:´1140 çMj´1050 ûMt≠A—–SKƒ∞1690 ∂M~∞1370:∞1330:∞1580:± ¿Mà´1050 ’Mí≤ FIND OPEN AREA Nú≠I—–10ƒTJ–1:TI–I:≠R%(TI,TJ)–0ƒS–3:∞135 FILL INSULATION" Ú∫:∞1440 T¸π36,12:∫"THICKNESS IN INCHES";:π36,62:∫"USED IN":∫ «∫"FIBREGLASS";:π36,15:∫"ROCK WOOL";:π36,30:∫"CELLULOSE";:π36,45:∫" R VALUE";:π36,60:∫"WALL";:π36,68:∫"CEILING" —∞1440 ÈÅZ–1¡12:áR,A$,B$,C$ >$π36,3:∫A$;:π36,18:SS";:π36,15:∫"ROCK WOOL";:π36,30:∫"CELLULOSE";:π36,45:∫" R VALUE";:π36,60:∫"WALL";:π36,68:∫"CEILING" Ç ∞1440:ÅZ–1¡12:áR,A$,B$,C$ ◊‘π36,3:∫A$;:π36,18:∫B$;:π36,33:∫C$;:π36,50:∫R;:π36,60:∫Ë(LA$,5);:π36,69:∫Ë(LA$,5) ÎfiÇ:∫:∞1440:∞1440 Ë∫:π36,28:∫"LOOSE"WIDTH";:π36,26:∫"LENGTH";:π36,48:∫" OR COMMENTS " Ez∞1440:∫Á(12) \Ñ≤ INSULATION TABLE oé¢2:π36,25:∫HD$ Üò∫:π36,34:∫S$;" 10" Æ¢∫:π36,26:∫"BATT/BLANKET INSULATION" ∫¨∫:∞1440 Ò∂π36,12:∫"THICKNESS IN INCHES";:π36,63:∫"USED IN":∫ d¿∫"FIBREGLAIGHT";:π36,48:∫" OR COMMENTS " . ∞1440:∫:∫ I*≤ OTHER CEILING AREAS O4∫ f>∫:ÅX–1¡3:áPG,PG$,N |Hπ36,35:∫S$;" ";PG öR∫:π36,40…”(„(PG$)À2):∫PG$ ¶\∫:∞1440 Ûfπ36,8:∫"#";:π36,16:∫" AREA ";:π36,26:∫" AREA ";:π36,48:∫" AREA LOCATION" 4pπ36,16:∫6,26:∫LA$;:π36,38:∫LB$ ΔÇ 4–≤ OTHER WALL AREAS :⁄∫ Q‰∫:ÅX–1¡3:áPG,PG$,N gÓπ36,35:∫S$;" ";PG Ö¯∫:π36,40…”(„(PG$)À2):∫PG$ ë∫:∞1440 fi π36,8:∫"#";:π36,16:∫" AREA ";:π36,26:∫" AREA ";:π36,48:∫" AREA LOCATION" π36,16:∫"WIDTH ";:π36,26:∫"HEπ36,35:∫S$;" ";PG 0Ä∫:π36,40…”(„(PG$)À2):∫PG$ <ä∫:∞1440 âîπ36,8:∫"#";:π36,16:∫" DOOR ";:π36,26:∫" DOOR ";:π36,48:∫" DOOR LOCATION" Àûπ36,16:∫"HEIGHT";:π36,26:∫"WIDTH ";:π36,48:∫" OR COMMENTS " ◊®∞1440:∫ ‚≤ÅX–1¡N ºπ36,8:∫X;:π36,16:∫LA$;:π3";:π36,26:∫" AREA ";:π36,48:∫" AREA LOCATION" n0π36,16:∫"LENGTH";:π36,26:∫"WIDTH";:π36,48:∫" OR COMMENTS " Å:∞1440:∫:ÅX–1¡N µDπ36,8:∫X;:π36,16:∫LA$;:π36,26:∫LA$;:π36,38:∫LB$ ¬NÇ:∫Á(12) “X≤ DOOR AREA Âb¢2:π36,25:∫HD$ ¸l∫:ÅX–1¡3:áPG,PG$,N vS " ¬∞1440:∫ ÃÅX–1¡N b÷π36,8:∫X;:π36,16:∫LA$;:π36,26:∫LA$;:π36,36:∫LA$;:π36,48:∫Ë(LB$,30) h‡Ç ÅÍ≤ RECT CEILING AREAS âÙ∫:∫ †˛∫:ÅX–1¡3:áPG,PG$,N ∂π36,35:∫S$;" ";PG ‘∫:π36,40…”(„(PG$)À2):∫PG$ ‡ ∫:∞1440 -&π36,8:∫"#";:π36,16:∫" AREA :ÅX–1¡3:áPG,PG$,N 'êπ36,35:∫S$;" ";PG Eö∫:π36,40…”(„(PG$)À2):∫PG$ Q§∫:∞1440 ∞Æπ36,8:∫"#";:π36,16:∫"BASE#1";:π36,26:∫"BASE#2";:π36,36:∫" AREA ";:π36,54:∫" AREA LOCATION" ∏π36,16:∫"LENGTH";:π36,26:∫"LENGTH";:π36,36:∫"HEIGHT";:π36,54:∫" OR COMMENT6:∫" WALL ";:π36,26:∫" WALL ";:π36,48:∫" WALL LOCATION" yJπ36,16:∫"HEIGHT";:π36,26:∫"WIDTH ";:π36,48:∫" OR COMMENTS " åT∞1440:∫:ÅX–1¡N ¿^π36,8:∫X;:π36,16:∫LA$;:π36,26:∫LA$;:π36,38:∫LB$ –hÇ:∫Á(12):ÇL Ár≤ TRAPZ WALL AREAS ˙|¢2:π36,25:∫HD$ Ü∫ ‹ ∞1440:∫:ÅX–1¡N G Ê π36,8:∫X;:π36,16:∫LA$;:π36,26:∫LA$;:π36,38:∫LB$ W Ç:∫Á(12):ÇL u ˙ ≤ RECT AND TRI WALL AREAS Ä ÅL–1¡2 ì ¢2:π36,25:∫HD$ ™ ∫:ÅX–1¡3:áPG,PG$,N ¿ "π36,35:∫S$;" ";PG fi ,∫:π36,40…”(„(PG$)À2):∫PG$ Í 6∫:∞1440 7@π36,8:∫"#";:π36,1 ÅL–1¡2 ñ ¢2:π36,25:∫HD$ 1 † ∫:ÅX–1¡3:áPG,PG$,N G ™ π36,35:∫S$;" ";PG e ¥ ∫:π36,40…”(„(PG$)À2):∫PG$ q æ ∫:∞1440 ø » π36,8:∫"#";:π36,16:∫"WINDOW";:π36,26:∫"WINDOW";:π36,48:∫"WINDOW LOCATION" “ π36,16:∫"HEIGHT";:π36,26:∫"WIDTH";:π36,48:∫" OR COMMENTS "GRAM" t
P π32,4:∫:∫:∫"WHICH SLOT IS YOUR PRINTER IN ?":∫:∫"PRESS RETURN IF IN SLOT #1":∫:∫"ENTER SLOT NUMBER ====>"; ç
Z æA$:≠A$–Á(13)ƒA$–"1" ´
d ≠A$—"1"ŒA$œ"7"ƒ∫Á(7);:´90 º
n SL$–"PR#"»A$ ◊
x ∫:∫Á(4);SL$:∫Á(9)"80N" ¸
Ç ≤ SINGLE AND DOUBLE PANE WINDOWS å–LA$»Á(95):Ç ( ÅX–1¡34:LB$–LB$»Á(95):Ç ^ ( HD$–"HOME ENERGY ANALYSIS WORKSHEET":S$–"SECTION" • 2 â:ó:ñ15:∫"**********":¢3:∫"THIS PROGRAM CREATES DATA ENTRY SHEETS" ◊ < ∫:∫"FOR RECORDING ALL OF THE PHYSICAL DATA":∫
F ∫"NEEDED BY HOME ENERGY ANALYSIS PRO‡ ≤ *********************** = ≤ * WORKSHEETER * [ ≤ * ENERGY SQUEEZER * y ≤ * BY VERN L. MASTEL * ó ≤ * COPYRIGHT (C) 1988 * µ ≤ * MICROSPARC, INC * ” ≤ * CONCORD, MA 01742 * Ò ≤ *********************** ÅX–1¡6:LA$
7 ≤ *********************** = ≤ * START.ANALYSIS * [ ≤ * ENERGY SQUEEZER * y ≤ * BY VERN L. MASTEL * ó ≤ * COPYRIGHT (C) 1988 * µ ≤ * MICROSPARC, INC * ” ≤ * CONCORD, MA 01742 * Ò ≤ ***********************
≤ 39 "="
2-2.5,1.5-2 FÉ 11,5,4,3 -PÉ 13,6,4.5,3.5 @ZÉ 19,8-9,6-7,5 RdÉ 22,10,7-8,6 fnÉ 26,12,9,7-7.5 }xÉ 30,13-14,10-11,8 ëÇÉ 33,15,11-12,9 ¨åÉ 38,17-18,13-14,10-11 «ñÉ 44,19-24,14-16,11-13 fl†ÅX–1¡79:∫"-";:Ç:∫:± A ŒÉ 11,3.5-4,3,N/A )ÿÉ 13,4,4.5,N/A @‚É 19,5.5-6,5.5,N/A SÏÉ 22,6.5,6,N/A fˆÉ 26,8,8.5,N/A | É 30,9.5-10,9,N/A è
≠LI–0ƒ∫Á(7);:´150 ˙ ≠LI–1ƒ∫B$;:∫U$U$;:∫B$;:∫B$;:û:∫" ";:ù:∫BB$,„(K$)»1)»Ë(UU$,L)»Ë(BB$,L):∫K$;:û:∫" ";:ù i n µ…16384,128:K–‚(…16384):≠K–141ŒK–155ƒ∫B$" ";:π…16368,0:± ~ x ≠K—160ŒK–255ƒ110 ß Ç ∫BU$;:LI–0:K$–"":û:∫" ";:ù:∫B$;:´280 ‚ å ∫Ë(UU$,L)Ë(BB$,L);:LI–0:K$–"":π…16368,0:û:∫" ";:ù:∫B$; ñ π…16368,0
† K–‚(…16384)
≤ ********************** ; ≤ * LABEL.MAKER * X ≤ * BY DOUG HILDEBRAND * u( ≤ * COPYRIGHT (C) 1987 * í2 ≤ * BY MICROSPARC, INC * Ø< ≤ * CONCORD, MA 01742 * ÃF ≤ ********************** ’P ´310 ÙZ ≠K$–""ƒ140:≤ INPUT ROUTINE , d BU$–Ë(B
LINA,SOUTH DAKOTA,TENNESEE,TEXAS,UTAH,VERMONT,VIRGINIA,WASHINGTON,WEST VIRGINIA,WISCONSIN,WYOMING ≠ûÉ HUNTSVILLE-2,BIRMINGHAM-2,TUSCALOOSA-2,MOBILE-1,DOTHAN-1,MONTGOMERY-2 Ò®É FLAGSTAFF-3,PHOENIX-1,TUSCON-1,WILCOX-2,PRESCOTT-3,NEEDLES-2 D≤É LITTLE RS,KENTUCKY,LOUISIANA,MAINE ≥äÉ MARYLAND,MASSACHUSETTS,MICHIGAN,MINNESOTA,MISSISSIPPI,MISSOURI,MONTANA,NEBRASKA,NEVADA,NEW HAMPSHIRE,NEW JERSEY,NEW MEXICO,NEW YORK,NORTH CAROLINA aîÉ NORTH DAKOTA,OHIO,OKLAHOMA,OREGON,PENNSYLVANIA,RHODE ISLAND,SOUTH CARO)) 10:´610 XM–Â(B$) 10 ;bπ6,M:ó:¢10:ñ15:∫"PLEASE WAIT" nl∫:∫:∫"LOADING DATA ENTRY AND ANALYSIS PROGRAM" Üv∫Á(4)"RUN ANALYZER" ÄÉ ALABAMA,ARIZONA,ARKANSAS,CALIFORNIA,COLORADO,CONNECTICUT,DELAWARE,FLORIDA,GEORGIA,IDAHO,ILLINOIS,INDIANA,IOWA,KANSAB–2 ˛û:¢V:ñ10:∫A$(B…1) 3K–‚(49152):≠K—128ƒ520 ]π49168,0:ù:¢V:ñ10:∫A$(B…1):≠K–141ƒ580 à ≠K–136ŒK–139ƒV–V…2:B–B…1:≠V–4ƒV–16:B–7 ≥&≠K–138ŒK–149ƒV–V»2:B–B»1:≠V–18ƒV–6:B–2 ¬0≠K–194ƒ130 À:´510 ÏDB–B…1:≠„(A$(B))—2ƒB–B»1:´510
NM–(Â(È(A$(B),1)$–" " ¬∫:ñ10:∫A$:A$(X)–A$ 3ÃÇ:∫:∫LINE$:≠AEƒ490 d÷∫:∫"USE THE <- -> ARROWS TO SELECT THE CITY" ä‡∫:ñ11:∫"PRESS 'B' TO BACKUP":´500 ˜Í¢20:å…958:∫"AUTOMATIC ENTRY PRESS RETURN TO CONTINUE":∫:ñ11:∫"PRESS 'B' TO BACKUP";:æA$:¥A$–"B"´130:´600 ÙV–6:T± ^B–B…1 Jhó:AE–(Bœ5ÕB—9)Œ(B–14)Œ(B–15)Œ(Bœ16ÕB—20)Œ(B–28)Œ(B–37) yr∫:∫:≠ΔAEƒñ5:∫"SELECT THE CITY NEAREST YOU" Ñ|∫LINE$ òÜÆ:ÅX–1¡48:áS$:Ç •ê≠B–1ƒ420 æöÅX–1¡(6 (B…1)):áS$:Ç Õ§ÅX–1¡6:áA$ ÚÆ≠A$œ"0"ÕA$—"7"ƒB$–A$:A$–" ":AE–1 ∏≠A$–"/"ƒA—128ƒ220 1 Ê π49168,0:ù:¢V:ñH:∫A$(B…1):≠K–141ƒ350 S ≠K–136ŒK–139ƒV–V…1:B–B…1:∞270 u ˙ ≠K–138ŒK–149ƒV–V»1:B–B»1:∞310 ~ ´210 ñ ≠B–1ƒB–49:V–17:H–26 ™ ≠B–33ƒV–17:H–12 Ω "≠B–17ƒV–17:H–1 √ ,± ÷ 6≠V–18ƒV–2:H–12 È @≠B–34ƒV–2:H–26 ˇ J≠B–50ƒV–2:H–1:B–2 $ ñ ÅX–1¡16:áA$(X):∫A$(X):ÇX H † ¢2:ÅX–1¡16:áA$(X»16):ñ12:∫A$(X»16):ÇX r ™ ¢2:ÅX–1¡16:áA$(X»32):ñ26:∫A$(X»32):ÇX } ¥ ∫LINE$ ± æ ¢20:∫"USE THE <- -> ARROWS TO SELECT THE STATE" Ÿ » ∫:ñ6:∫"YOU ARE IN AND PRESS RETURN" Ó “ û:¢V:ñH:∫A$(B…1) ‹ K–‚(49152):≠Kñ11:∫"-RUN THE ANALYSIS":∫;:¢21:ñ12:∫"COPYRIGHT (C) 1988":ñ13:∫"MICROSPARC, INC" Æ
n A–‚(64435):B–‚(64448):≠A–6Õ(Bœ223ÕB—240)Œ(A–6ÕB–0)ƒ¢14:ñ7:∫"MAKE SURE CAPS LOCK IS DOWN!" ⁄
x ñ8:¢17:∫"PRESS RETURN TO CONTINUE";:æA$ ˆ
Ç ù:π34,0:ó:Æ:V–2:H–1:B–2 å ∫LINE < ÜA$(50):LINE$–"=======================================" Q ó:ÅX–1¡23:∫"*":Ç h ( ¢1:ÅX–1¡39:∫"*";:Ç 2 ÅX–1¡23:ñ39:∫"*":Ç ó < ¢23:ÅX–1¡39:∫"*";:Ç ∑ F ¢5:ñ10:∫"ENERGY SQUEEZER":∫ ÿ P ñ11:∫"-SELECT LIVING ZONE":∫ ˚ Z ñ11:∫"-ENTER WORKSHEET DATA":∫ P
d ó:¢12:∫"PRESS ESCAPE TO STOP PRINTING" H∂∫D$;"PR#"SL:∫Á(9)"255N":∫CM$; R¿∫LZ$; ^ ÅI–1¡NL g‘å854 sfi∫L6$;:∫ Ü„ÅXX–1¡1000:ÇXX §Ë∫LZ$;:≠‚(…16384)–155ƒI–NL ´ÚÇI ¡¸∫:∫D$;"PR#0":´420 ⁄≤ TOGGLE DISK DRIVES Ô≠DN–1ƒDN–2:´1060 ¯DN–1 $π…2I)):ÇI:π794,‚(793) YRÅJ–1¡4:K–18879»64 J:ÅI–1¡„(LL$(J)):πK»I,Ê(Í(LL$(J),I,1)):ÇI,J:´760 x\¢23:ñ12:∫"RETURN FOR MENU" Äf¢12 °pÑ"HOW MANY LABEL ROWS? ";NL$ ∫z≠NC–2ŒNC–1ƒ∫EX$Á(17) ÃÑ≠„(NL$)–0´420 ⁄éNL–Â(NL$) ‚òF–1 ˚¢≠NC–2ŒNC–1ƒ∫EX$Á(17) &¨ƒ∫Á(7);:´760 ó I ÅI–1¡4:¢2»I 2:∫"LINE "I":";:K$–"":L–„(BK$)…2:∞90:∫ ]≠K–155ƒI–4:´420 n LL$(I)–K$:ÇI æ*ÅI–1¡4:LL$(I)–" "»LL$(I):LL–„(BK$)…„(LL$(I)):≠LLœ0ƒLL$(I)–LL$(I)»Ë(BK$,LL) ‡4≠LL—0ƒLL$(I)–Ë(LL$(I),„(BK$)) Á>ÇI HÅI–1¡4:π789»I,„(LL$(C$—"1"ŒNC$œ"3"´700:NC–”(Â(NC$)) <–≠NC–2ŒNC–1ƒBK$–Ë(BL$,35) T⁄≠NC–3ƒBK$–Ë(BL$,24) v‰π795,NC:π796,NC:π798,FILL(NC) âÓ≠LL$(1)–""´770 ¯ó:¢2:ÅI–1¡4:∫:∫Ë(LL$(I),35…11 (NC–3)):ÇI:¢12:∫"IS THE ADDRESS OK? ";:æX$:¥X$–"Y"ŒX$–Á(121)´860:≠X$—œ"N"ÕX$—œÁ(110)PN$–PN$»".CVT":A$–PN$:∞1660:PN$–A$ bäL%–„(PN$»"LOADING ")À2:¢15:ñ(19…L%):ü:∫"LOADING ";PN$;:ù:∫ |î¢23:ñ5:∫Ë(BL$,32):¢20 ëû∫D$;"BLOAD ";PN$ ü®GF–1:´420 ∂≤≤ PRINT THE LABELS ˘ºó:¥Δ(GF)´1820:∫"HOW MANY LABELS ACROSS (1,2, OR 3): ";:Ñ"";NC$ Δ¥NEF–6:•´1360 ó:∫D$;"CATALOG" J&∫:∫"PRESS RETURN TO CONTINUE...";:æA$ Y0∫EX$;Á(17) b:´420 D≤ LOAD CONVERTED PICTURE èNEF–3:•´1360 ∑Xó:¢10:ñ10:∫"ENTER PICTURE NAME: ":∫ ÷b¢23:ñ12:∫"RETURN FOR MENU" fil¢12 ¸vñ11:Ñ"";PN$:≠„(PN$)–0´420 #Ä,> IS ZONE 4,/,/ f\É SAGINAW-4,KALAMAZOO-4,DETRIOT-4,TRAVERSE CITY-5,ESCANABA-5,SAULT ST. MARIE-5 ±fÉ CROOKSTON-6,INT'L FALLS-6,DULUTH-5,MINNEAPOLIS-5,MARSHALL-5,AUSTIN-5 ˆpÉ TUPELO-2,COLUMBUS-2,JACKSON-2,HATTIESBURG-1,BILOXI-1,NATCHEZ-1 IzÉ KAN 3,/,/ 5*É 5,THE ENTIRE STATE,/,> IS ZONE 5,/,/ à4É SHREVEPORT-2,MONROE-2,ALEXANDRIA-1,LAKECHARLES-1,NEW ORLEANS-1,BATON ROUGE-1 ∑>É 5,THE ENTIRE STATE,/,> IS ZONE 5,/,/ ÂHÉ 3,THE ENTIRE STATE,/,> IS ZONE 3,/,/ RÉ 4,THE ENTIRE STATE,/KFORD-4,CHICAGO-4,PEORIA-4,SPRINGFIELD-3,ALTON-3,VINCENNES-3 ä É GARY-4,FORT WAYNE-4,INDIANAPOLIS-4,EVANSVILLE-3,COLUMBUS-3,LAFAYETTE-4 ŸÉ MASON CITY-5,WATERLOO-4,DAVENPORT-4,SIOUX CITY-4,DESMOINES-4,KELLERTON-4 É 3,THE ENTIRE STATE,/,> IS ZONEIS ZONE 4,/,/ =⁄É 3,THE ENTIRE STATE,/,> IS ZONE 3,/,/ k‰É 1,THE ENTIRE STATE,/,> IS ZONE 1,/,/ ≤ÓÉ ATLANTA-2,AUGUSTA-2,SAVANNAH-1,ALBANY-1,VALDOSTA-1,GAINESVILLE-2 ˆ¯É COUER D'ALENE-4,BOISE-5,TWIN FALLS-5,POCATELLO-5,LEWISTON-4,/ =É ROCOCK-2,JONESBORO-3,TEXARKANA-2,FT. SMITH-2,FAYETTEVILLE-3,EL DORADO-2 íºÉ SAN FRANSISCO-2,SANTA BARBARA-1,SAN DIEGO-1,REDDING-3,FRESNO-2,BISHOP-3 ·ΔÉ PUEBLO-3,STERLING-4,LAMAR-3,COLORADO SPRINGS-3,GRAND JUNCTION-5,DENVER-4 –É 4,THE ENTIRE STATE,/,> ;:æZ$:∫ 0´420
] Z L6$–EX$»"A"»Á(16):LZ$–EX$»"1":CM$–Á(15):FILL(1)–21:FILL(2)–21:FILL(3)–7:EC$–EX$»"@":± º L6$–EX$»"T32":LZ$–EX$»"T14":CM$–EX$»"Q":FILL(1)–21:FILL(2)–21:FILL(3)–7:EC$–EX$»"N"»EX$»"A":± ‹ ¢12:∫"NO GRAPHIC IN MEMORY" &¢22:∫"PRESS RETURN TO CONTINUE"95,10:π17496,48:π17510,1:≤ PROWRITER/IMAGEWRITER PIN INVERSION ® Íπ17964,6:π17965,27:π17966,83:π17967,48:π17968,48:π17969,56:π17970,56:≤ PROWRITER/IMAGEWRITER GRAPHICS ˙ Ùπ17972,4:π17973,27:π17974,84:π17975,49:π17976,52:≤PRO/IMWR7/72-IN.LINESPACING ˛±TER CHOICE: "; r± |AA$–"" . ÜÅZ–1¡„(A$) ? êT$–Í(A$,Z,1) ] ö≠Ê(T$)œ–97ƒT$–Á(Ê(T$)…32) l §AA$–AA$»T$ s ÆÇZ ~ ∏A$–AA$ Ñ ¬± ß Ã≤ DATA FOR INTERFACE GOES HERE Ó ÷≤ ROUTINE TO POKE INTERFACE DATA STARTING AT 17902--ENDS W/ RETURN > ‡π17409,1:π174 GRAPHIC" 2,ñX:∫LB$"L] - LOAD CONVERTED PICTURE" QñX:∫LB$"P] - PRINT LABELS" z@ñX:∫LB$"S] - SAVE CONVERTED PICTURE" ßJñX:∫LB$"T] - TOGGLE BETWEEN DRIVE 1 & 2" æTñX:∫LB$"Q] - QUIT" ^¢17:ñ8:∫"DISK DRIVE ";:û:∫DN;:ù:∫" IS ACTIVE" h¢19:ñ9:∫"EN,1250,530 ™≤ QUIT ROUTINE *¥π…21912,1 8æ≠F–0´1500 U»∫Á(4)"PR#"SL:∫EC$:∫Á(12) e“∫Á(4)"PR#0" m‹ó:Ä Ê≤ SCREEN MENU àó:¢5 ¶˙∫"PRINT SHOP LABEL MAKER" ≠¢8 µX–5 ‹ñX:∫LB$"C] - CATALOG CURRENT DISK" "ñX:∫LB$"G] - CONVERT PRINT SHOPx≠EC–9ƒA$–"DISK FULL":´1440 >Ç≠EC–10ƒA$–"FILE LOCKED":´1440 gå≠EC–13ƒA$–"FILE TYPE MISMATCH":´1440 èñA$–"ERROR "»‰(EC)»" IN LINE "»‰(EL) †ó:¢10:∫Ë(BL$,”((40…„(A$))À2))A$:¢22:∫"ESC TO QUIT, RETURN TO TRY AGAIN";:æA$:∫:≠A$—œEX$ƒ¥EF´360,420,590,1100∫D$;"BSAVE ";PN$;",A$5000,L$758" )<´420 =F≤ ERROR HANDLER nPEC–‚(222):EL–‚(219) 256»‚(218):π216,0:å…3288 õZ≠EC–4ƒA$–"DISK IS WRITE-PROTECTED":´1440 Ãd≠EC–6ƒA$–"FILE NOT FOUND ON THIS DISK":´1440 ˝n≠EC–8ƒA$–"I/O ERROR--CHECK DRIVE DOOR":´1440 F–5:•´1360 >Ïó:¥Δ(GF)´1820:¢10:ñ10:∫"ENTER PICTURE NAME: ":∫ ]ˆ¢23:ñ12:∫"RETURN FOR MENU" e ¢12 Å
ñ11:Ñ"";PN$:≠PN$–""´420 ®PN$–PN$»".CVT":A$–PN$:∞1660:PN$–A$  L%–„(PN$»"SAVING ")À2:¢15:ñ(19…L%):ü:∫"SAVING ";PN$;:ù:∫ ˚(¢23:ñ5:∫Ë(BL$,32) 243FF #í∫D$;"BLOAD ";GN$;",A$4000" 9ú¢23:ñ5:∫Ë(BL$,32) |¶L%–„(GN$»"CONVERTING ")À2:¢15:ñ(19…L%):ü:∫"CONVERTING ";GN$;:ù í∞¢23:ñ5:∫Ë(BL$,32) ∞∫ÅKK–16956¡16959:πKK,0:ÇKK œƒå848:≤ CONVERT THE PICTURE ›ŒGF–1:´420 ˙ÿ≤ SAVE CONVERTED PICTURE
å ∫" THE ANNUAL COST SAVING COULD BE $";Â(AC$) (SAVÀ100) ~
ñ ∫:ñ7:∫"*ENTER 'P' TO PRINT DATA*" ß
† ∫:ñ6:∫"OR PRESS RETURN TO CONTINUE"; ≠
™ ± fi
¥ ∫" LOSS THROUGH WALLS....";”(WL);" BTU/HR" æ ∫" LOSS THROUGH CEILING..";(6)œ60ƒó:∫"YOU MUST FIRST RUN THE PROGRAM":∫"START.ANALYSIS":Ä ä d A$–"":IN$–"":BI–0:C–0:I–0:ESC$–Á(27):RET$–Á(13):DOT$–".":ÜPX(72),PY(72) „ n ÜB$(7,86):∞240:LINE$–"=======================================":π34,0:ó:´270:≤ 39 ='S x ∫Á(7);:±
Ç ∫" THE HE¶@
≤ *********************** = ≤ * ANALYZER * [ ≤ * ENERGY SQUEEZER * y( ≤ * BY VERN L. MASTEL * ó2 ≤ * COPYRIGHT (C) 1988 * µ< ≤ * MICROSPARC, INC * ”F ≤ * CONCORD, MA 01742 * ÒP ≤ *********************** > Z ≠‚(6)—10Œ‚
∫LINE$ S∫" 'ESC' TO BACK UP THROUGH THE DATA":∫ y ñ9:∫"'RETURN' TO MOVE FORWARD ":∫ •(∫" 'A' TO ACCEPT DATA 'B' TO BACK UP" &ÅX–1¡23«2:PX(X)–4:PY(X)–5»”((X»1)À2):PX(X»1)–9:PY(X»1)–PY(X):Ç:ÅX–25¡47«2:PX(X)–17:PY(ADE"; ƒæA$:≠A$–"0"ƒ1540 -Œ≠A$–Á(13)ƒ1260 =ÿ≠A$–"B"ƒ750 L‚∞120:´1220 oÏó:ñ10:∫"RECTANGULAR WALL AREA" òˆ∫" # HT WIDTH # HT WIDTH ":∫LINE$ ÅX–1¡23«2:∫”((X»1)À2);")";:ñ4:∫B$(BI,X);:ñ9:∫B$(BI,X»1):Ç:¢6:ÅX–25¡47«2:ñ14:∫”((X»1)À2);")";:ñ17:∫B j≠A$–Á(13)ƒ1150 "t∞120:´1120 (~≤ Oàâ:π34,2:ó:∫:BI–3:≤RECTANGULAR WALL uíñ8:∫"COMPUTE TOTAL RECTANGULAR":∫ åúñ15:∫"WALL AREA":∫ ¥¶ñ6:∫"PRESS RETURN TO CONTINUE OR":∫ ÷∞ñ10:∫"ENTER 'B' TO BACK UP":∫ ∫∫" ENTER '0' IF NO ENTRIES WILL BE M255 ' P1$–"VARIBLE CHART":P1%–2:P2%–1 0
H≤ ********RING ED≤ IF P1% = 0, THEN DISPLAY AT CURRENT OUTPUT CURSOR POSITION qN≤ P2% ---> CODE TO INDICATE OUTPUT MODE ÖX≤ 0 ---> NORMAL öb≤ 1 ---> INVERSE ∞l≤ 2 ---> FLASHING ¿v¢(P1%):ñ(1) ◊Ä∫¿20…”(„(P1$)À2)); Êä≠P2%–1´670 Ôî´690 ıûû ˛®´720 OUR OUTPUT COMES OUT DOUBLE-SPACED, PUT A ; AT THE END Y ‡≤ OF THIS NEXT PRINT STATEMENT j Í∫Í(BL$,T1,1) p Ù≤ x ˛ÇT1 ~ ± Ñ ≤ ú ≤ ***************** ¥ &≤ CENTER STRING P1$ ’ 0≤ P1$ ---> STRING TO DISPLAY :≤ P1% ---> LINE ON WHICH TO DISPLAY STTTERS 6ÅT1–1¡„(AL$) 2 @T2$–" "»Í(AL$,T1,1)»" " < J∫T2$; D TÇT1 J ^∫ P h± V r≤ m |≤ **************** ô Ü≤ PRINT EACH ROW OF BOXES FOR THE TABLE ≠ êT2$–UL$»UL$»VL$ æ öÅT1–1¡„(BL$) – §∫Í(BL$,T1,1); › ÆÅT2–1¡26 Á ∏∫T2$; Ô ¬ÇT2 ı Ã≤ 6 ÷≤ IF YER: "VL$" / "VL$" STRING: "VL$" "VL$;Á(8);"!"; W
"≤ ****************** ,≤ PRINT THE TOP ROW OF LEN PROGRAM Z ´1260 d ≤ 2 n ≤ ****************** [ x ≤ PRINT THE TITLE LINE FOR THE CHART a Ç ∫ Ñ å ∫"APPLESOFT VARIABLE CHART "; ø ñ ∫"PROGRAM:";:ÅI–1¡24:∫UL$;:Ç:∫"DATE:";:ÅI–1¡13:∫UL$;:Ç ≈ † ∫ fi ™ ∫√34);"MARKING CODE" 0
¥ ∫"REAL: "VL$"---"VL$" INTEGÁ
≤ ********************** ; ≤ * VAR.CHART * X ≤ * BY GARY D. CORBIN * u( ≤ * COPYRIGHT (C) 1987 * í2 ≤ * BY MICROSPARC, INC * Ø< ≤ * CONCORD, MA 01742 * ÃF ≤ ********************** P ≤ BRANCH AROUND ALL SUBROUTINES TO START OF MAI
¥ A$–"THIS IS A TEST OF INSEARCH. ENTER ANY SUB-STRING OF THIS STRING. THEN ALL OCCURRENCES WILL BE DETECTED AND THEIR POSITIONS LISTED.":∞310 Ã
æ ∫:Ñ"ENTER SUB-STRING (B$) >>";B$:∫:∫ ˘
» Z–1:X–0:≤ FIRST POSITION AND FOUND TOTAL “ åSALL":∫"COPYRIGHT 1987 BY MICROSPARC, INC.":∫:X$–"TO CONTINUE" x d KEY–…16384:KS–…16368:≤ * KEYBOARD CHARACTER AND STROBE ò n Q$–Á(34):≤ * QUOTATION MARK ß x SEARCH–768 ± Ç •´490 À å ∫Á(4)"BLOAD INSEARCH" ‘ ñ ∞460 È † ≤ * TEST ROUTINE
™ ∫"HERE'S THE TEST:l
≤ ********************** ; ≤ * SEARCH.DEMO * X ≤ * BY BOB SHOFTSTALL * u( ≤ * COPYRIGHT (C) 1987 * í2 ≤ * BY MICROSPARC, INC * Ø< ≤ * CONCORD, MA 01742 * ÃF ≤ ********************** ÍP â:ó:û:∫" SEARCH DEMO ";:ù = Z ∫" BY BOB SHOFTST
â:¢19:ñ1:å…958 I,X);:ñ22:∫B$(BI,X»1):Ç "(j ∫LINE$ P(t ∫" 'ESC' TO BACK UP THROUGH THE DATA":∫ v(~ ñ9:∫"'RETURN' TO MOVE FORWARD ":∫ ¢(à ∫" 'A' TO ACCEPT DATA 'B' TO BACK UP" #)í ÅX–1¡23«2:PX(X)–4:PY(X)–5»”((X»1)À2):PX(X»1)–9:PY(X»1)–PY(X):Ç:ÅX–25¡47«2:PX(X)–17:PY(X)–'$ æA$:≠A$–"0"ƒ2650 ''. ≠A$–Á(13)ƒ2380 8'8 ≠A$–"B"ƒ1910 G'B ∞120:´2340 l'L ó:ñ8:∫"RECTANGULAR CEILING AREA" ï'V ∫" # LEN WIDTH # LEN WIDTH ":∫LINE$ (` ÅX–1¡23«2:∫”((X»1)À2);")";:ñ4:∫B$(BI,X);:ñ9:∫B$(BI,X»1):Ç:¢6:ÅX–25¡47«2:ñ14:∫”((X»1)À2);")";:ñ17:∫B$(B"; & æA$:≠A$–"B"ƒ1920 *&‘≠A$–Á(13)ƒ2280 9&fi∞120:´2250 ?&Ë≤ b&Úâ:π34,2:ó:BI–6:≤ CEILING AREAS Ü&¸∫:ñ10:∫"COMPUTE CEILING AREA":∫ Æ& ñ6:∫"PRESS RETURN TO CONTINUE OR":∫ –& ñ10:∫"ENTER 'B' TO BACK UP":∫ ˇ& ∫" ENTER '0' IF NO ENTRIES WILL BE MADE"; ≠Cœ0ƒ∞230 %é≠I—36ƒI–I»1:´2100 .%òI–1:´2100 A%¢â:¢19:ñ1:å…958 ä%¨T–0:ÅX–1¡34«3:T–T»(((Â(B$(BI,X))»Â(B$(BI,X»1))) Â(B$(BI,X»2)))À2):ÇX —%∂ñ8:∫"THE TRAPEZIODAL WALL AREA IS":∫:ñ10:∫"==> ";T;" SQ FEET":TA–T &¿∫:∫"'RETURN' TO CONTINUE OR 'B' TO BACKUPBACK UP" e$ ÅX–1¡34«3:PX(X)–7:PY(X)–5»”((X»2)À3):PX(X»1)–17:PY(X»1)–PY(X):PX(X»2)–27:PY(X»2)–PY(X):Ç m$*I–1 $4ñPX(I):¢PY(I) ô$>∞4760:≤ INPUT ROUTINE ∑$H¥FLAG´2130,2210,1920,2170 ¡$R≤ ESC œ$\≠Cœ0ƒ∞230 ‰$f≠Iœ1ƒI–I…1:´2100 Û$pI–36:´2100 ¸$z≤ CR
ñ3:∫"THE RECTANGULAR CEILING AREA IS":∫:ñ10:∫"==> ";T;" SQ FEET":RA–T Æ*2
∫:∫" 'RETURN' TO CONTINUE OR 'B' TO BACK UP"; √*<
æA$:≠A$–"B"ƒ2290 ÷*F
≠A$–Á(13)ƒ2650 Â*P
∞120:´2620 Î*Z
≤ +d
â:π34,2:ó:BI–7:≤ G∂C–0:IN$–"":DOTTED–0:PP–0 $G¿æA$ vG FLAG–1 (A$–ESC$)»2 (A$–"A")»3 (A$–"B")»4 (A$–RET$):≠(FLAGÕ(Cœ0))ƒB$(BI,I)–IN$ ÇG‘≠FLAGƒ± ïGfi≠A$—œÁ(8)ƒ4900 §GË≠C—–0ƒ4940 ¬GÚå…1008:∫" ";:å…1008:C–C…1 ÿG¸≠Cœ0ƒIN$–Ë(IN$,C) ËG≠C–0ƒIN$–"" ˝G≠C–PP…1ƒDOTTED–0 HR VALUE OF WALL INSULATION IS ";R1 NFp∫"R VALUE OF CEILING INSULATION IS ";R2 rFz∫"ANNUAL HEATING COST IS $";AC$ ÅFÑ∫LINE$:∫:∫ ùFé∫Á(4)"PR#0":A$–"":´3560 øFò≤ INPUT NUMBER ROUTINE; THIS ‡F¢≤IS A LOOP THAT IS EXITED BY ˇF¨≤ HITTING CR, ESC, A, OR B 1¡LM:¢V:P–‚(40)»‚(41) 256 1E*ÅH–0¡39:∫Á(‚(P»H)); =E4ÇH:∫:ÇV oE>∫"TOTAL WINDOW AREA IS ";DP»SP;" SQUARE FEET" úEH∫"TOTAL WALL AREA IS ";WA;" SQUARE FEET" ÃER∫"TOTAL CEILING AREA IS ";RA;" SQUARE FEET" ˘E\∫"TOTAL DOOR AREA IS ";DA;" SQUARE FEET" "Ff∫"HERSTRIP":∫LINE$ DΔ∞180:∞250 ZD–∫LINE$:∫" ADJUSTED HEAT LOSS..";TN;" BTU/HR":∫LINE$:∫ ÅD⁄≠TLœ0ƒSAV–100…”((TNÀTL) 100):´4590 ãD‰SAV–0 îDÓ∞130 ´D¯æA$:≠A$–Á(13)ƒ3560 ◊D≠A$–"P"ƒLM–15:R1–WR:R2–RR:∞4630:¢18:ñ33 ÊD ∞120:´4600 ¯D∫:∫Á(4)"PR#1" E ÅV–NÀTL) 100):∫:´4490 CÄSAV–0:∫ 'Cä∞130 >CîæA$:≠A$–Á(13)ƒ3560 jCû≠A$–"P"ƒLM–15:R1–R3:R2–R4:∞4630:¢18:ñ33 yC®∞120:´4500 ≥C≤ó:DL–.30 (.8 (DP»SP)»DA) M:≤ CAULK AND WEATHERSTRIP Dºñ3:∫"****INSULATION ENERGY ANALYSIS****":∫:∫" HEAT LOSS WITH NEW WEAT1À(R4»3)) RA M) ?BNGL–(.45 (DP»SP) M):DL–.18 (.8 (DP»SP)»DA) M °BXó:ñ3:∫"****INSULATION ENERGY ANALYSIS****":∫:∫" HEAT LOSS WITH COMBINED IMPROVEMENTS":∫LINE$ ØBb∞180:∞250 ÈBl∫LINE$:∫" ADJUSTED HEAT LOSS..";TN;" BTU/HR":∫LINE$ Cv≠TLœ0ƒSAV–100…”((TENTER THE NEW R-VALUE OF THE INSULATION":∫:ñ13:∫"==>"; TAæA$:≠C–œ2ƒ≠A$—œÁ(13)ƒ4360 tA≠A$–Á(13)ÕIN$–""ƒ∞120:´4360 çA ≠A$–Á(13)ƒ∫A$;:´4420 ´A&≠A$—"0"ŒA$œ"9"ƒ∞120:´4360 ÀA0∫A$;:IN$–IN$»A$:C–C»1:´4360 ÎA:≠IN$œ"44"ƒ∞120:IN$–"":´4360 BDR4–Â(IN$):RL–”((0 !@∏≠A$–Á(13)ÕIN$–""ƒ∞120:´4270 :@¬≠A$–Á(13)ƒ∫A$;:´4320 X@Ã≠A$—"0"ŒA$œ"9"ƒ∞120:´4270 x@÷∫A$;:IN$–IN$»A$:C–C»1:´4270 ò@‡≠IN$œ"44"ƒ∞120:IN$–"":´4270 º@ÍR3–Â(IN$):WL–”((1À(R3»2)) WA M) ˘@ÙIN$–"":C–0:∫LINE$:∫"ADD MORE > CEILING < INSULATION ":∫ 6A˛∫"0 &?|≠A$–"P"ƒLM–15:R2–R:∞4630:¢18:ñ33 5?Ü∞120:´4210 t?êó:ñ10:∫"COMBINED INPROVEMENTS":∫LINE$:≤ COMBINED SOLUTION ¶?öIN$–"":C–0:ñ6:∫"ADD MORE >WALL< INSULATION":∫ „?§∫"ENTER THE NEW R-VALUE OF THE INSULATION":∫:ñ13:∫"==>"; @ÆæA$:≠C–œ2ƒ≠A$—œÁ(13)ƒ427NSULATION ENERGY ANALYSIS****":∫:∫"HEAT LOSS WITH MORE CEILING INSULATION":∫LINE$ _>6∞180:∞250 r>@TN–WL»RL»GL»DL ¨>J∫LINE$:∫" ADJUSTED HEAT LOSS..";TN;" BTU/HR":∫LINE$ ’>T≠TLœ0ƒSAV–100…”((TNÀTL) 100):∫:´4200 ·>^SAV–0:∫ Í>h∞130 ?ræA$:≠A$–Á(13)ƒ356∫"ENTER THE NEW R-VALUE OF THE INSULATION":∫:ñ13:∫"==>"; V=æA$:≠C–œ2ƒ≠A$—œÁ(13)ƒ4080 v=˙≠A$–Á(13)ÕIN$–""ƒ∞120:´4080 è=≠A$–Á(13)ƒ∫A$;:´4130 ≠=≠A$—"0"ŒA$œ"9"ƒ∞120:´4080 Õ=∫A$;:IN$–IN$»A$:C–C»1:´4080 Ô="R–Â(IN$):RL–”((1À(R»2)) RA M) Q>,ó:ñ3:∫"****ITN;" BTU/HR":∫LINE$:∫ <<ñ≠TLœ0ƒSAV–100…”((TNÀTL) 100):´4010 F<†SAV–0 O<™∞130 f<¥æA$:≠A$–Á(13)ƒ3560 ã<æ≠A$–"P"ƒLM–15:R1–R:∞4630:¢18:ñ33 ö<»∞120:´4020 ∫<“ó:≤ NEW CEILING INSULATION È<‹∫LINE$:ñ5:∫"ADD MORE >CEILING< INSULATION" 8=ÊIN$–"":C–0:∫LINE$:∫A$;:´3950 (;Z≠A$—"0"ŒA$œ"9"ƒ∞120:´3910 H;d∫A$;:IN$–IN$»A$:C–C»1:´3910 j;nR–Â(IN$):WL–”((1À(R»2)) WA M) À;xó:ñ3:∫"****INSULATION ENERGY ANALYSIS****":∫:∫" HEAT LOSS WITH MORE WALL INSULATION":∫LINE$ Ÿ;Ç∞180:∞250 <å∫LINE$:∫" ADJUSTED HEAT LOSS..";R:R2–RR:´4630 :∞120:´3840 =: ó:≤ NEW WALL INSULATION k:(∫LINE$:ñ6:∫"ADD MORE >WALL< INSULATION":∫ ≥:2IN$–"":C–0:∫"ENTER THE NEW R-VALUE OF THE INSULATION":∫:ñ13:∫"==>"; ”:<≠A$–Á(13)ÕIN$–""ƒ∞120:´3910 Ò:FæA$:≠C–œ2ƒ≠A$—œÁ(13)ƒ3910
;P≠A$–Á(13)ƒINSULATION ENERGY ANALYSIS****":∫:∫" HEAT LOSS WITH NEW STORM WINDOWS":∫LINE$ \9Œ∞180:∞250 ò9ÿ∫LINE$:∫" ADJUSTED HEAT LOSS..";TN;" BTU/HR":∫LINE$:∫ ø9‚≠TLœ0ƒSAV–100…”((TNÀTL) 100):´3830 …9ÏSAV–0 “9ˆ∞130 È9 æA$:≠A$–Á(13)ƒ3560 :
≠A$–"P"ƒLM–15:R1–W """ :ñ10:∫"Speed is set to slow":å768 P n ≠Sƒ¢23:ñ10:∫"Speed is set to fast":å768»17 ^ x ∞150:S–ΔS d Ç Ç j å Ä Å ñ ÅI–1¡39:ÅJ–0¡100:Ç ï † ñI:¢12:∫" A";:Ç Ø ™ ÅI–39¡1«…1:ÅJ–0¡100:Ç √ ¥ ñI:¢12:∫"A ";:Ç ’ æ ñ0:¢12:∫" ":± 8 ÷
´4800 H$≠Cœ–4ƒ4940 GH.≠A$œ–"0"ÕA$—–"9"ƒIN$–IN$»A$:C–C»1:∫A$;:´4800 YH8≠DOTTEDƒ´4940 îHB≠A$–DOT$ƒDOTTED–1:IN$–IN$»DOT$:∫DOT$;:C–C»1:PP–C:´4800 •HL∫Á(7);:´4800 A , æ ó:∫:∫"TREE GENERATION PROGRAM DEVELOPED" U » ∫"AND WRITTEN BY JOHN W. RATCLIFF":∫ z “ ∫"TREE SPECIFICATION IS:":∫:∞710 ù ‹ ∫:∫"1. PRESS RETURN TO BEGIN." » Ê ∫"2. WHILE THE TREE IS DRAWING PRESS:" Ï ∫" SPACE TO START NEW BRANCH; 1 ˙ ∫" RETURN TO NCHES CURVE":A–0:B–100:∞520:CV–RÀ50 n
å ¥ΔCV´150:G$–"WHAT DISTANCE TO ALTER BRANCH":A–1:B–20:∞520:GB–(21…R)À20 ®
ñ G$–"HOW OFTEN NEW BRANCHES SPROUT":A–5:B–50:∞520:NB–R ·
† G$–"LENGTH TO BEGIN NEW BRANCH":A–50:B–250:∞520:LN–R ˆ
™ ∞600:¥G$–"N"´110 ˇ
¥ ∞470 G PROGRAM IN UPPER MEMORY....":∫Á(4)"RUN TREES" a Z N–399:ÜX(N),Y(N),TH(N),TK(N),L(N),TL(N),FL(N) î d X(0)–€(1) 30»100:Y(0)–191:TH(0)–0:L(0)–1:•´580 ß n ∞1060:V–1:GB–0 ‰ x G$–"HOW THICK IS THE TREE TRUNK":A–10:B–100:∞520:TK(0)–R #
Ç G$–"HOW MUCH DO THE BRA
≤ *********************** = ≤ * TREES * [ ≤ * BY JOHN RATCLIFF * y( ≤ * COPYRIGHT (C) 1988 * ó2 ≤ * BY MICROSPARC, INC. * µ< ≤ * CONCORD, MA. 01742 * ”F ≤ *********************** / P ≠‚(104)—œ64ƒπ104,64:π16384,0:∫"RELOCATIN """"
∏ )
STROBE–49168:INKEY–49152:KEYPRESS–0 7 πSTROBE,0 D ÅI–1¡250 h( ≠‚(INKEY)œ–128ƒI–250:KEYPRESS–1 o2 ÇI á< ≠KEYPRESS–1ƒÑZ$:´80 ûF ∫:∫"TIME EXPIRED." ∂P ≤ PROGRAM CONTINUES
""" SSWORD.":Ä 0 d æA$:≠A$—œÁ(13)ƒENTRY$–ENTRY$»A$:± < n I–400:± Y x ≤ PROGRAM CONTINUES HERE
[
PASSWD$–"ALPHA":ENTRY$–"" G STROBE–49168:INKEY–49152:KEYPRESS–0 U πSTROBE,0 b( ÅI–1¡400 Ö2 ≠‚(INKEY)œ–128ƒKEYPRESS–1:∞100 å< ÇI ±F ≠KEYPRESS–0ƒ∫:∫"TIME EXPIRED.":Ä ÎP ≠KEYPRESS–1ÕPASSWD$–ENTRY$ƒ∫:∫"ACCESS APPROVED.":´120
