J<&MJ=JJJ@F 3 C @>) <]?J@* JJ<JJJ)JJ*J@@A f2*'&>J l@ȑ @ Б = 3JAJ*J&6H777777777777JJJJx 77 L778777777776 77H67 77777 7`77 77 7777`x =(`(8`5775I7`B` 76`77`2>&JJJ;ȱ>'JJJ3;ȱ>*JJJf;ȱ>J&*J&'J&&;ȱ>J&*J&'J;&*)<')3<*)f<>)Ƚ3Ƚfȥ&);>ȥ');>`*xY+&x'8*BIxix&&  x) +: :') +: :&д :+`FG8`0($ p,&" (0 8@ HPX !"#$`h%&px')*+,-./12345679:;<>                -<L >    HIHHHHhHH݌hHh݌H6 HHH(jf5( FG HUSj 80x e9xxH` ># ;>h ;>L=.x"xH >hx0h@(L)>@H/L>HH/Hh/ ۠-H x( 8( 9$8 H` j8HNx`. {>x$50x.$50xL:JJJJ`HHjf5 {>h $50x`xA :JPG'K݌$HhHhꝍ݌KGHhHhꝍ݌ ? ? ?/ ?A ?K ?/EAEKHJJ݌h ? ? ? ? ?F HhHh݌FG$Ki K ,KL>HhG04Hh$Hh e9- GL>AA# :GȄGL>@L)>L'>HJJ݌h Hhꝍ݌``L%c*p*q*` ['*` ~.3 #3 L3LA@@&E&&A@@&AA)߅CBBH&E&&A@B& ChLQhBAȌy8zx8v{v I7H7@)*AL@m{@AAA,+i(ˢ3Z@[A@ /@v wm{@8/e@@eAA3]ͥ@\ƊiY?AyC@B@B|ACLT$VXZdflpx|~**7777(*377558:=?@##topmnU^_R ij^_lk 󅔆nmLY^^ȱ^ȱ^eȱ^e(ӊ0Цe^^u**`*5".Q`pN%$#$$b"p"t""%%%%"""m%2"<"("-"P"y%%0#\##|"6$6$$$e<%%g< 7JJJJj*7h*I * aUL@* kU8*  L % Q(^*R*(jQ*0l^l\ * wU*u**W* '* H &h@ ['_* /QSIRb*_*L!`LLL*L7`**`LQ(LYLeLXLeLee Q*H\*(h0L&& $`(* &R*  \*Z*Ll8 R* HH\*`\*Z*[*Y*S*6`*LxQ*ɿu3'R*Ͳ*ʎR*ʎ]*]*]*ɍuLɍ}R*LR*ɍ*g^H8* ^&hZ*LɍR* &LͲ*ɊR*R*%* Q(L$Ͳ* Z*@ -^*  \*[*Z* Q(Y*\*[*Z*8`l6L_*Ȍb*_*Ͳ*]* !)Y( h( (֭Ͳ*Lɍ ['LL&_*_* ^& 9 )L&3 9 )a  ! 0L jLY ! u*< !(_*9 ) ˭*ɠu*ɠK_*9 )?L ˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` + d'@55`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` d ֠ z#  u*`H "ERR > 63999"DH " ONE OF THE PARAMETERS WAS LARGER"]H " THAN 63999."H :"ERR LINE INCREMENT = 0"H " THIS IS DISALLOWED."H* :"ERR LINE INCREMENT TOO LARGE"H4 " THE INCREMENT WILL CAUSE A LINE"&I> " GRAM IN MEMORY."6G :" * & MERGE RETURNS THE "_G " PROGRAM ON HOLD TO MEMORY"uG& :"ERR SYNTAX"G0 " THE FIRST LETTER OF YOUR COMMAND"G: " OR PARAMETER WAS INVALID."GD 9000G TT)"ERROR MESSAGES"PT)"PAGE 11"H MOST ERROR MESSAGES ARE SELF-"HF "EXPLAINATORY. ERRORS WILL STOP"uF "EXECUTION BEFORE ANY CHANGES ARE MADE"F "TO THE BASIC PROGRAM."F :"ERR NO PROGRAM IN MEMORY"F " THIS OCCURS IF YOU TRY TO RE-"G " NUMBER WITH NO PROIPLE PARAMETERS ARE SEPARATED"9E " BY COMMAS, ','"gE " * MULTIPLE PARAMETERS CAN BE IN ANY"yE" " ORDER"E, " * A COMMA MUST BE FOLLOWED BY A"E6 " PARAMETER LETTER"E@ 9000E TT)"ERROR MESSAGES"PT)"PAGE 10"E !F " ED."/D :" E,F,I,AND S SET UP RENUMBER"BD "PARAMETERS."rD :" * PARAMETERS ARE DECIMAL NUMBERS IN"D " THE RANGE OF 0 TO 63999"D " * IF NO NUMBER FOLLOWS E,F,I,OR S"D " THEN THE PARAMETER IS SET TO 0"E " * MULTTERS AND SPACES AFTER"3C "A COMMAND ARE IGNORED"=C 9000bC TT)"INPUT SYNTAX"PT)"PAGE 9 "hC C " THE FIRST LETTER AFTER '&' MUST BE"C "C,E,F,H,I,M,OR S"C :" C,H,AND M EXECUTE IMMEDIATELY."D "THE REST OF THE LINE IS IGNOR F - FIRST NEW LINE NUMBER"GB " I - LINE NUMBER INCREMENT"hB " S - START OF RANGE"B " E - END OF RANGE"B :"COMMAND LETTERS"B " M - MERGE"B " H - HOLD"B " C - CONVERT"C :" EXTRA LET VERSA."A90007A` TT)"INPUT SYNTAX"PT)"PAGE 8 "=Aj jAt " THE FIRST CHARACTER OF ANY INPUT"~A~ "MUST BE '&'."A :" RENUMBER / MERGE ONLY RECOGNIZES"A "THE FOLLOWING SINGLE CHARACTER COMMANDS"A :"PARAMETER LETTERS"B " EAR, HOLD VERSION SECOND"B@:" * MERGING WITH NO PROGRAM IN"l@" MEMORY RESTORES THE HOLD FILE"@:" CONVERT"@:"& CONVERT"@:" WILL CONVERT AN RAM APPLESOFT"@"PROGRAM TO RUN WITH A ROM CARD AND"A"VICE4TT)"MERGE"PT)"PAGE 7 "!?>N?H" MERGE WILL COMBINE THE HOLD FILE"{?R"WITH THE PROGRAM CURRENTLY IN MEMORY."?\:" * LINE NUMBERS ARE ARRANGED IN"?f" ASCENDING ORDER"?p:" * DUPLICATE LINE NUMBERS WILL BOTH"@z" APP1>D:" FIRST, LOAD THE FIRST PROGRAM AND"=>N"TYPE"M>X:"& HOLD"z>b:" NEXT, LOAD THE SECOND PROGRAM.">l"YOU MAY RUN OR RENUMBER THIS PROGRAM">v"AS NEEDED.">:" THEN, TO MERGE THE TWO TYPE">:"& MERGE">9000? RETURN"-=r"87 PRINT A * A 39 PRINT A"Q=|"99 RETURN 45 RETURN"[=9000y=TT)"MERGE"PT)"PAGE 6 "==" THIS PROGRAM CAN ALSO MERGE"=&"THE BASIC PROGRAM IN THE HOLD FILE TO"=0"TO THE BASIC PROGRAM IN MEMORY.">:,:"OLD NEW"C<6:"1 INPUT X 1 INPUT X"m<@"2 IF X<1 THEN 1 2 IF X<1 THEN 1"" 7:"IT WILL RENUMBER THE ENT I N NN G GG"@5h"WW WW A A R R N N I N N G G"o5r"W W A A R R N N III N N GGG "w5|135" DO NOT PRESS RESET"5:" DURING RENUMBER OR MERGE"5:" IT WILL DESTROY YOUR PROGRAM!"6:" ALS(A$)13100004&4,PT)"PAGE 2 "U46"W W A RRRR N N III N N GGG "4@"W W A A R R N N I N N G G"4J"W W A A R R NN N I NN N G "4T"W W W AAAAA RRRR N N N I N N N G "5^"W W W A A R R N NN ERROR MESSAGES"03"12 ERROR MESSAGES"O3"13 OTHER MESSAGES"e3"14 NOTES"{3"15 NOTES"3"16 NOTES"3233"PRESS RETURN TO RUN RENUMBER"3"HIT ANY KEY FOR INSTRUCTIONS";3A$3(A$)3Ā 4RENUMBER 13 OTHER MSGS"O2" 6 MERGE 14 USAGE NOTES"~2" 7 MERGE 15 USAGE NOTES"2" 8 SYNTAX 16 USAGE NOTES"22002"9 INPUT SYNTAX"2"10 ERROR MESSAGES"3"11 GE 1 "41z"PAGE TITLE PAGE TITLE ":1|h1}" 1 CONTENTS 9 SYNTAX "1~" 2 WARNING 10 ERROR MSGS"1" 3 RENUMBER 11 ERROR MSGS"1" 4 RENUMBER 12 ERROR MSGS" 2" 5 q%0 RENUMBER60 PAGES, 300 * PAGE #<0I0::255Y0#TT15:PT340F"&";05);"APPLESOFT RENUMBER INSTRUCTIONS";40);"&";0P0Z"&";4);"COPYRIGHT 1978 APPLE COMPUTER INC";40);"&";0d::0n1xTT)"CONTENTS"PT)"PA         336)(16336)JI"9:"MORE PONG?";A$?M::7062c(A$,1)"Y"5020{16303,0:16298,0936:"BYE!" 16297,0:16301,0:16304,0Өh dѮ#` L ARU Q Ү#`#2 Ӎ6I67485750'229,0?(224)127S2S21W&(224)127S1S11a06882k:5560xDI1200N6526XIb6786l5640vI12J110Z(16336)(16336)JJ15Z(16336)(16336)(16TY?";A$ mr65,27:67,27%|5I27118E66,I:68,IO6526VI^23"PLAYER #1";:27:"PLAYER #2"224,128:225,38:226,128:227,3824:4:S1;:31:S2;S15S255840(A$,1)"Y"5700I12006526727,UPDOWN26732,256UPDOWN:6736,256UPDOWNCGAME25440S"LE7:RE247k,6771,189:6830,189u65460@LE90:RE166J6771,203:6830,203T6589,LE:6652,RE^6680,LE3:6684,LE3:6688,RE3:6692,RE3h"SHOULD THERE BE GRAVI368,0 xX1275270 & 5300- I7 7062= Z "WHAT DIFFICULTY LEVEL"} "(1-EASIEST, 10-HARDEST)";DFF DFF10DFF15300 S10:S20 228,127:229,0 UPDOWN120 DFF10DFF5 6762,DFF:6800,DFF 6723,UPDOWN:25,28 6994+ 23:13:" HOCKEY "5 5200J 224,158:225,28T 6994q 23:13:" SCRAMBLE "{ 5200 224,250:225,28 (6994 223:13:" TENNIS " <5200 F5020 PGAMEGAME1 ZI1100 dX(16384) n16AT YOU WANT":$ " IS DISPLAYED."j :23:" PRESS 'RETURN' TO CONTINUE...";:A$:(A$)132050t 936 7062:7462:I12000:I:7062 5900 GAME0 224,182:225,27 6994 23:13:"BUMPER POOL " 5200 224,98:2E":` " BALL INTO THE OPPONENTS GOAL. DO THIS"::" FIVE TIMES AND YOU WIN! USE THE GAME": " PADDLES TO DEFEND YOUR GOAL.":::" NEXT YOU WILL BE SHOWN A SERIES OF": " PLAYING FIELDS -- TO SELECT ONE, PRESS"::" ANY KEY WHEN THE FIELD TH BY"::" BILL BUDGE":::_ `" COPYRIGHT 1979 APPLE COMPUTER INC." j:23:" PRESS 'RETURN' TO CONTINUE...";:A$:(A$)131130 t ~3:11:"*** INSTRUCTIONS ***"  :" THE OBJECT OF THE GAME IS TO GET THdn PENNY ARCADE#x@ BY BILL BUDGEFj175,32:176,19:105,32:106,19107,32:108,19:109,32:110,1916298,0:216,0: OFF THE ON ERRL:936:::::::" PENNY ARCADE":2 V"        20"\+(H$,1)"N"11080%"f+31111?"y16368,0::936::Y"֭(39(0)6)34P34QB2:868:VTB1:36,TB:868:"";H$+(VTB):868:(VTB1):"WOULD SOMEONE ELSE LIKE TO PLAY? ";:VTB(37):TB(36)!H+23:868:VTB1:36,TB:868:"";H$"R+(H$,1)"Y"2060A !936::: PADDLES ARE IN AND SPACE BAR HAS BEEN PRESSED.b * "ESC" KEY HAS BEEN PRESSED +16368,0:936:(34)0Ģ10 +"WOULD YOU LIKE TO CONTINUE" +"PLAYING? ";:VTB(37):TB(36) +::"(TYPE YES OR NO AND PRESS RETURN)";$! +VTE PADDLE"2R!"SET AND THEN PRESS THE SPACE BAR."_\!:"IF YOU DO NOT HAVE PADDLES, YOU MAY"f!"EXIT THE GAME BY PRESSING THE ESC KEY."p!P(16384):P1558560z!16368,0:P1558580:11000!(16287)127(16286)1278560 !P16085771,136:772,208:773,4:774,198:775,7:776,240:777,8:l778,202:779,208:780,246:781,166:782,6:783,76:784,0:785,3:786,96v4! PADDLES NOT PLUGGED IN>!10:"BRICK OUT REQUIRES THE USE OF THE APPLE" H!"PADDLE SET. PLEASE PLUG IN TH20:I:M1:N0 80k23:1:868:50,63:" PUSH PADDLE BUTTON TO BEGIN THE GAME ";:50,255:OQ500:23:1:868:" <<< PLEASE USE THE OTHER PADDLE. >>> ";6,40:7,30:768ERASE20:X SOUND ROUTINE8b768,173:769,48:770,192:8h A:X,Y3:Y120(1)#r X19F| V1:W5(1)2:LL1:L1800_ (A$)ĭL1ĺA$", "; L1ĺ"THIS IS BALL ";6L;" OUT OF 5." (16384)15511000 L13010 50,63:"THIS IS THE LAST BALL"; 50,255:23:  I125125(1):J K120:K: ALLOW TIME FOR USER TO RELEASE BUTTON FROM LAST PUSHKT 20X P1(1):((OOLDP1P1)3(16286)127)ERASEİ4810Y OOLDP1P1:WRONG PADDLEZ ERASEERASEERASE1[ ERASE1İ4800] (16287)128(16384)1552900^ 23:8680 P160P15524605 16368,0:P15511000D :24:1:N 936w :A2:B12:C9:D13:E2:F15:COLORS LL5:P15 355 OOLDP1(1), 13006 S0:Y19:L6@ 23:50,63:" PUSH PADDLE BUTTON TO BEGIN THE GAME ";:50,255C=================================="S. 12:" COPYRIGHT 1979 APPLE COMPUTER INC"[j 20t :"(PRESSING THE ESC KEY WILL END THE GAME)" 23:"PRESS THE SPACE BAR TO BEGIN....";:(40)(41)256(36),96:16368,0 P(16384):(16287)12724 "";A$(A$)02335C I1(A$):((A$,I,I))642330P I:II1 A$(A$,I,(A$)):(A$)ĭ(A$)12A$(A$,12) 2490#$ 936:5:"========================================";::" L I T T L E B R I C K O U T ";::"======." :16368,0"* BEFORE WE BEGIN, PLEASE TYPE":"* YOUR FIRST NAME AND THEN PRESS":"* THE KEY MARKED ";(34);"RETURN";(34);(40)(41)256(36),96: CURSORP(16384):P15511000(16287)1272335P156P1412260ALL":"* STRUCK BY YOUR PADDLE."::{"* YOU CONTROL THE PADDLE ON THE BOARD":"* BY TURNING THE APPLE PADDLE (0)."::"* YOU MAY ";(34);"PUT ENGLISH";(34);" ON THE BALL":"* (DEFLECT THE BALL) BY HITTING IT":"* WITH THE PADDLE HELD OFF-CENTER*************************";:1:1:"***************************************"p10:1,460:0,4739: "DRAW" ASTERICKS (*) ALONG EDGESz3:"* BRICK OUT IS A DYNAMIC BOARD GAME":"* IN WHICH YOU ATTEMPT TO KNOCK DOWN"$"* A WALL OF BRICKS WITH A B:936:16298,0;*(16287)127ĭ(16286)127İ85004 ^IF BOTH PADDLE SWITCHES READ "ON", THEN PADDLES ARE NOT PLUGGED IN.>24\QILLJPOQXYKWEVDFNMZS:SET UP VARIABLE TABLE FOR MAXIMUM SPEEDa2340Lf"**************"TOTAL=";JQ1500:Q-TQSSBANUS58^8:Q;Rh6,150Q40:7,3:768gr6,140:7,2:768{|6,50:7,3:768K110(1)20:KQ::lH180:OD(16336):H:2910 *** START OF PROGRAM ***7000: POKE SOUND ROUTINE BONUS POINTS: "[L1ĺ"BONUS POINTS FOR ";L;" BALLS LEFT: "p22:Q11800:QQ0L50532:Q;6,180:7,10:768"6,200(1)50:7,10:768,6,160Q10:7,12:7686Q:50,255 @BANUSQ5:21:1:958:"SCORE= 0";ZZ(787)37ĭ(788)381390: IF "VARIABLE" ALREADY INITIALIZED, SKIPd787,37:788,38:789,0:790,0: SET FLAGS AND INIT NON-CLEARING VARIABLEn22:"HIGH SCORE= ";(789)(790)256;:1: BONUS"22:50,63:L1ĺ" )256: POKE NEW HIGH SCORE INTO PLACE<~21:15:"FORMER"`Z(16384):(16287)1271190u20:Z1551160| Z15511000OQ500:2520 PRINT POINT SCALESCOLE6LL(936:"POINTS PER BRICK -> 1 2 3 4 5 6 7 8"P24:NEW GAME, ESC KEY TO EN";:2039,4:50,255:16368,0V "POKE 2039,4" POKES AN INVERSE "D" INTO THE LAST SCREEN POSITION, AVOIDING SCROLLING.`SSBANUS:BANUS0jS(789)(790)2561160: NEW SCORE LESS THAN HIGH SCORE&t790,S256:789,S(7901100NVC1030'"FAIR. ":1100I"GETTING REALLY GOOD.":1100`"NOT BAD. ":1100s"GOOD.":1100$"VERY GOOD.":1100."VERY, VERY GOOD.":11008"EXCELLENT.":1100B"NEARLY PERFECT.":11003L50,63:24:"PUSH BUTTON FOR NVC1950K "STILL NOT GREAT,":"BUT KEEP WORKING AT IT.":NVC11:1100x "ALL RIGHT.":"JUST KEEP TRYING.":1100 NVC990 EXTP910 "PRETTY BAD!":1100 "MUCH BETTER THAN IT WAS.":"KEEP GOING!":1100"O.K.":"TRY IT AGAIN!":22:"YOUR SCORE IS ";:S109100 *S50EXTP1A 4S100NVC0O >S20960^ HS601010n RS1201040~ \S2001050 fS3001060 pS4201070 zS6501080 1090 NVC930 "NOT TOO GOOD, BUT":"KEEP ON TRYING!":NVC1:1100 0:760 cE:DRAW FIELD0 hI039:0,39I:I? I20342v B:0,39I:C:W((I4(I4))4.05)(I4)394 W,W1I:W I: 23:"CONGRATULATIONS, ";:(A$)ĺA$;", "; "YOU WIN!";:868: A$"CHAMP" 1100 24::::6:M(16336):I:IX:M0! VV) 757 MV(V)? M1v (K2)2,(K2)21I:SSI29:24:8:S;:23:1 '6,180I3:7,3:Z(16336):768 ,6,140I(1):7,2:768 66,50:7,3:768 J^BRICK STRUCK TS720250 ^24::::1503:I39240 I,K)E75& I270? V2:W(KP)2LL:M1V 6,150(W)4:7,3 Z(16336)(16336)(16336)(16336):768 75 WW:JY:Z(16336)(16336)(16336)(16336)(16336)(16336)(16336):: SIDE BOUNCE I1Z  2000(Q(0):(QOQ)5(Q)ıFOQQ:Q(39Q6):Q0Q0U(Q34Q34w2D:Q,QLL0:A:PQď0,Q10<QPďQLL1,390FPQ:KX,Y3:F:I,K:XI:YJPJYW:J0J119İ230xIXV:I01900I6OQ500 20:E:KJ         :"":15020J" N:" BASIC FINANCE I-----------COPYRIGHT 1978":10)G$:R"0u:ESUBTOTAL AFTER ";C$(0);" NO.";:PP0:OO5000:100:AAS:Q115080W!:AAGGAA0AAGG!:T10:T20:T30:T40:BA0:BB0:IN0:LL0:XX0:Q0!>BA(A2)C(A)(A2)0:40 ">:"SORRY, YOU'VE PICKED A NONSENSE SCHEDULE":"PLEASE CHOOSE AGAIN.":KK11500:2I2:(A$,I,1);I::"X IS ";X;" ":"Y IS ";Y;" ".(E)Z200<(G)ZĈP(H)ZU(U1)^U16U0oU:X,Y:9406,P:7,D:768:((40(A$))21):A$:: :I031:I2:0,39I3:I 5:0,392:0,3935:2,350:2,3539:I1(A$)BUTTONS CLEAR THE TV AND CHANGE":2000X 4A$"THE DISPLAYED COLOR. TRY ONE NOW.":2000o (G)Z(H)Z930 (E)Z200 900 : P(0):X(P6):X39X39 I(1):Y(I6):Y39Y39 P((IP)29):P255P255 150021 2I4:I; I:::450Q ::W350:I119:J019:KIJ:(E)Z200g J3(I3)IW12 I,K:K,I:40I,40K:40K,40I K,40I:40I,K:I,40K:40K,I J,I,W:450 :A$"USE THE GAME CONTROLS AND BUTTONS.":2000& *A$"THE 500,600,700,800 (E)Z450) 2003 3000U A$"BMDPDGMLBOGPLYAW":4000:w A$"LGBUGRBBRRRIGEQI":4000: A$"ATLRRELLWNENRLUT":4000: A$"KAUPNYUUNGYKNOAE":4000 &450 X3000 bI0142 l2I4:I; vI: I1152STANDARD COLOR NAMES":2000& 6"2.";L @A$"STANDARD COLOR NUMBERS":2000W J"3.";s TA$"KALEIDOSCOPE":2000~ ^"4."; hA$"SKETCHING SCREEN":2000 r: |"WHICH WOULD YOU LIKE?";A$ (A$)0ī200 N(A$)48 N1N4ī200 NTRATION PROGRAMS":2000:F " TO OPERATE A DEMONSTRATION, TYPE"s "ITS NUMBER. THEN TYPE THE KEY MARKED" "'RETURN' AT THE RIGHT EDGE OF THE KEY-" "BOARD. TYPE THE 'RETURN' KEY TO STOP" "ANY DEMONSTRATION.":: ""1."; ,A$"7U9:D3:E16384:F16368:G16287:H16286:Z127~d768,173:769,48:770,192:771,136:772,208:773,4:774,198:775,7n776,240:777,8:778,202:779,208:780,246:781,166:782,6:783,76:784,0:785,03:786,96:::F,0 A$"APPLE DEMONS   :::J$;" FOR:":" 1 ";B$(0):" 2 ";B$(1);", OR"::" 3 ";B$(2);" ACCOUNT"::"WHICH";:PP1:OO3:100:AS1:Q15030 ::" WOULD YOU LIKE:":" 1 A COMPLETE ";J$;", OR":" 2 A ";D$(0);" SUMMARY ONLY":" WHICH";:PP1:OO2:100:JJS:Q15060@!:" FIRST AN ";J$;" (Y/N) ";:E$:(E$,1)"Y"15030O:"MORE (Y/N) ?";E$:(E$,1)"N"Ā::" 1 ANOTHER PROBLEM":" 2 ANOTHER SCHEDULE":" 3 BACK TO THE FIRST PAGE":" 4 QUIT":" WHICH";:PP1:OO4:100:Q15020:S10100,15027,1000,30000:R216070t 4IJ3KO28L4O:8)MH12I3JK84OL12O:Z)MHO7IO28JO84KL7:w)MHOIO4JO12K7L*M(M):TMGG:NFGG0*1000::R15010,15015:"ANOTHER ";J$;" (Y/N) ";:"? ";E$:(E$,1)"Y"15030:15020):"LIKE P0:OO1E8:100:DS:Q10495+)B310600b6)" ENTER TOTAL ";A$;:PP0:OO1E8:100:CS:Q10550qh)R210700m)B410700|)" ENTER BALLOON ";A$;:100:PS:Q10620)G110710,10720,10730,10740,10750:10760)MHI4J12K7OLO:)MH(0);"S/";C$(2);"S, OR":" 2 A SINGLE ";C$(0);"/";C$(2);" ONLY...":" WHICH";:PP1:OO2:100:RS:Q10465r(::(B110520(R10495,10492("ENTER ";C$(0);"/";C$(2);F$;A$;:PP0:OO1E8:100:DS:Q10492(10520(" ENTER ";D$(G);F$;A$;:P5 ";D$(4):" WHICH";:PP1:OO5:100:GS1:Q10400b(GG(G0)(G1)4(G2)12(G3)O7(G4)Oy(KL0G310465(" HOW MANY ";L$(4);" IN YOUR ":"ACCOUNTING YEAR";:PP0:OO365:100:OS:Q10420h(:" WILL YOU BE MAKING:":" 1 ";D$(G);F$;C$;F$;L$(1);:100:QIS:I$;F$;L$(2);:OO1200:100:QJS:I$;F$;L$(3);:OO10E4:100:QKS:I$;F$;L$(4);:OO1E6:100s(QLS:10390x(10340(:" "2(" WITH INTEREST TO BE COMPOUNDED:":" 1 ";D$(0):" 2 ";D$(1):" 3 ";D$(2):" 4 ";D$(3):" INTEREST RATE (APR) IN %";:PP.005:OO1000:100:FS100:Q10220PF(B210390d(" TERM OF THE ACCOUNT:":" YOU MAY ENTER ANY COMBINATION OF ";L$(0)",":L$(1);", ";L$(2);", ";L$(3);", OR ";L$(4);"."wn(PP0:OO400::I$;F$;L$(0);:Q0:100:QHS:I$(0);"/";C$(2);F$;A$:" 3 ";I$;F$;C$(0);"S/";C$(2);"S":" 4 TOTAL ";A$;" OR,":" 5 BALLOON ";C$(0)'" WHICH (ENTER BY NUMBER PLEASE)";:PP1:OO5:100:Q10140'BS1':10)G$:" OK..NOW I NEED TO KNOW THE FOLLOWING: "'B010310A'"ANNUALALLOON ";C$(0);K$;", AND "::J$;K$;" FOR ";B$(0);"S, ";B$(1);K$`$'"AND ";B$(2);"S ACCOUNTS."['" HIT RETURN WHEN READY...";E$t'20000y'O365:LL0:BB0:Q0:P0:a~'"YOU MAY CALCULATE ANY OF THE FOLLOWING:":" 1 INTEREST RATE (APR)":" 2 ";C$F$" ":G$"APPLE COMPUTER INC":H$"":J$"AMORTIZATION SCHEDULE":K$"S":L$(0)"YEARS":L$(1)"QUARTERS":L$(2)"MONTHS":L$(3)"WEEKS":L$(4)"DAYS"@'20000:" THIS PROGRAM CALCULATES ";A$;", ";C$(0);",":C$(2);", INTEREST RATE (APR), ";I$::C$(0);K$;", B'B$(2),C$(2),D$(4),V(2),N(2),C(2),D(2),L$(4),P(2),M(2):B$(0)"LOAN":B$(1)"LEASE":B$(2)"SAVINGS"'C$(0)"PAYMENT":C$(1)C$(0):C$(2)"DEPOSIT":D$(0)"YEARLY":D$(1)"QUARTERLY":D$(2)"MONTHLY":D$(3)"WEEKLY":D$(4)"DAILY"'I$"NUMBER OF":A$"AMOUNT":W)GG:5:V(2)N89Z02:N(Z)V(Z):V(Z)100N(Z)GG:?;7M=R21700i@:"COMPOUNDED ";D$(G);TB2ĺ" OVER ";(M100)100;F$;L$(G);^::"BASED ON ";O;" DAYS PER ACCOUNTING YEAR":15000:"# "L$(G);:Z02:V(Z)M(Z)::7:1600bMDPCV(0)W:V(1)W:1570UR2V(0)(DC)(WM)W:V(1)(CD)(WM)W:1570~N(((DMP)C)(WT)W)GG:1:V(0)NN((CDM)(WT)W)GG:3:V(1)N"MDPCV(2)1:1593,R2V(2)((CP)D)(WM)W:15936N(((CP)(DM))(WT)MM(1):1100:V(1)(CX3X5)X2:B4V(1)0V(1)W:1440KV(1)0V(1)0CC(2):DD(2):MM(2):1100:V(2)CX3X5X2:B4V(2)0V(2)W:1445V(2)0V(2)0Z02:P(Z)V(Z):7:"APR %";:B0āZ02:V(Z)F100:N(Z)N::1595 (0)W:V(1)W:1360@AV(0)(D(0)C(0))(X5):V(1)W:V(2)WWPZ02:M(Z)V(Z):exR21500:"BALLOON";:B0āZ02:V(Z)P::1450DD(0):CC(0):MM(0):1100:V(0)(CX3)X2:B4V(0)0V(0)W:1430V(0)0V(0)08CC(1):DD(1):1320V(0)(((NCD)(NPD)))(X5):V(1)(((CND(X5))(PND(X5))))(X5):V(2)(((CP)N)(D(X5))W)(X5):Z02:V(Z)(V(Z)):#Z02:M(Z)V(Z):(ND1:7-B014002R214007D(0)C(0)1345<V(2)(C(2)D(2))(X5):VV(Z)D::1220V(0)(R1)((CX4)X1.005)(R2)CX2:V(1)(R1)((CX4)(X1X5).005)(R2):V(2)(R1)((CP)X2(X1X5).005)(R2)(CP)X27:Z02:D(Z)V(Z)::"# PMTS";:R2V(0)1:V(1)1:V(2)1:1320B2āZ02:V(Z)M:M(Z)M::LB0X1(W(WN)M)N:X2(WN)M:X3DX1:X4PX2:X5WN:eV:A$;:B3āZ02:V(Z)C::1130`V(0)(R1)(X3X4)(R2)DX2:V(1)(R1)(X3X5X4)(R2):V(2)(R1)(X3X5X2P)(R2)DX2j7:Z02:C(Z)V(Z)::"PMT/DEP";:BWāZ02:S$)13)2 `S2QQ115020 a:11)G$:6)B$(A);F$;"AMORTIZATION SCHEDULE":15:"PMT# INTEREST PRINCIPAL BALANCE":15: dQ0:" ? ";S$:S(S$):SPPSOOĺH$:Q1: n 20000:" ";13)B$(0);23)B$(1);32)B$(2):15 1100:1110>2)0:PR(A0)BA(A1)(P(A)IN)(A2)P(A):BA(A0)0(A1)(BAPR)(A2)(BAP(A)):93` \95 ]"BLN";:V(0)IN:V(1)PR:V(2)BA:7:T3T3IN:T4T4PR:ZW:82 ^LL15(BBM(A)7LL17)ı _"HIT 'RTN' TO CONTINUE, ANY KEY TO EXIT";:S$::LL0:S((2T2PR:BBM(A)80 K P15:XXXXW:"YR";:TT5:ND1:VXX:10:ND0:V(0)T1:V(1)T2:V(2)BA:7:T3T3T1:T4T4T2:T10:T20 R"CUM";:V(0)T3:V(1)T4:7:LLLL4:15:94:QQ195 UBBM(A)91 Z43X [QQ1:P(A).005IN(A0)0(A1)N(A)BA(A U038:"-";:::/ (QQ0:ZZAA:97:459 +ZZGGF -DD1ZZ 2INN(A)(BA(BB0)(A1)BA(A2)D(A)):PRD(A)(A2)IN:BABA(A2)PR(A2)(INPR):BBBB1 AJJWVBB:NDW:TT4:10:ND0:V(0)IN:V(1)PR:V(2)BA:7:LLLLW:94 FT1T1IN:T1İ10:V(Z)((V(Z).005)100)100:Z::ND0:H TT6)"NO ANS";:::f V1E8V$"*.**":KK2:13 V.005V$".00":KK1:13 V$(V.005):KK1(V$):(V$,KK,1)"."Ă TTKK23ND)(V$,KK23ND);:(V$)KK2ĺ(".00",KK(V$)2); TW1:10000LDTN(CP(WN)M)(W(WN)M):DDT.001NNDDT:1RDT(N(CP(WN)M))((W(WN)M)(WN)):DTD.001NNDDT:3DT(CP)N((WN)(MW)(WN)):DTD.001NNDTD:5- Z02:TT11Z17:VV(Z):V                 Ϡӿ](]ԠŠҠ!4]ԠҠԮƠŠϠ!>]ӠŠ̠٬"H]Š٠ԠŠנ#R]ĠΠϠ \]Ԡ͠ҠӬ f]ŠŠŠŮp]z]̠͠]ȭ]͠"]]]٬Ӡ]ӠŠŠƠ" ]٠ŠŮ#]ŠҠϠΠ ]ҠŠӠҠϬ#*]̠ŠQ d::5(n"HERE'S A NEW PROGRAM"Js"WE CAN EVEN CHANGE IT"PxX $dg$ca(Ӻ)ca(ՠ̠ˠƠΠ̬Ġɠ)a(٠ϠӠԠ̠ՠ)U.a(ǠƮɠ̠ϠӠ٠)a(ՠӠƠӠԠ)v8a(̬ȠՠԠĠ)a(ӠҠϠϮԠƤŠԠŠҢӠҠ͠ӠϠӮ]a(LJҠŠ٠Ԡ)a(ŠĠΠҠϠ٠)a(š)moa(̠ǠŠ)ca(ŠՠҠĠſ)GR@`;@r%`@*#r9()Ŭ)@p(ŠŬ)@p()@p(ΠŬ̸)a@v]ŠŠӠŠԠϠԠŠ٠ĠϠԠǠҠΠŠŠŠήźq]ҠΠԠĤĠŬҢŠ] ] ]ĺ ]a(ΠɬϬ)^KM6N@"FrC@"FrC@"FrC@"FrC@"rC@"rC@" rC@"rC@"(rf@p(Ġ]͠ӠӠ ]ԠӠӠ ]͠ŠҮ ] ]͠Ӻ ]ˠ٬ˠɠ ] ]ҮΠ )FE(ӡ)_> ]ɠԠԠԡ*UVW cY4a(ɠԠԠԡ)>>cS(ԠϠ٠ο)&@`;@r%`@*#r9()%Q_d ] ] ]̺ 5qqbE()Fa@FR@TTa@F*a@`@9()$bb_bba@F$a@`@9()$bb_bb a@Fa@a@(a(ɠננ)E@*ra(Ġ)E@*rG-DS()&@`@*;@rr9()%@p@*#;@rrkNca(ԠĠŠԠҠҠ)a@*rE(ſ)GR@@p@*#r`@:()@:()$NXa@ ba@Fl]ŠҠĮvT'a@F6@p@*#r`@:()@:()$`@9()$ ,]ɠΧԠנԠ̠ԠӬˠF&cca(̠ԬɠŠЮԠ̠)a(ՠǠƿ)G0@p()R@Brd:ca(ŠŠΠԠ)a(ȠT THIS PROGRAM":32,0:#9 b32,0:K9*b22:20:868:"WHICH: ";S$:S(S$)e94bS1S7ĺ(7):251309>bS1000,2500,4000,5000,6000,24000,8009Hb9 9APPLE COMPUTER, INC.9 COPYRIGHT 4/1/1979/ ":250708a" ";::" ON ":W8a10:"YOU MAY CHOOSE FROM THE FOLLOWING:":32,5::8a"1 SEARCH FOR A LISTING":"2 LIST THE ENTIRE FILE"8b"3 ENTER NEW LISTINGS":"4 DELETE A LISTING"8 b"5 EDIT A LISTING":"6 PRINTER ON/OFF"9b"7 EXINE LIST ";::"----------------------------------------"u7a"PROGRAM CURRENTLY CONTAINS "NR" LISTING";:NR1ĺ"S";7a:"ROOM FOR "(150NR)" ADDITIONAL LISTINGS"7a8:"THE PRINTER IS";:PRĺ" OFF"; 8aPRĢ9:" A$)ı6I1(A$)96((A$,I,1))26B$B$(A$,I,1)@6IF6^6] PRINTER ON/OFF q6]PRPR:25050w6]6a MAIN MENU 6a:NR:NRNR10006a::1:"----------------------------------------";:87a" APPLE COMPUTER, INC. PHO020I513:868:"DO YOU WISH TO EDIT THIS DATA (Y/N) ";S$:S$""25000h5(S$,1)"Y"NN$NA$:60505(S$,1)"N"İ50705"":60205 GO EDIT THE LINE 5:8:NN$:4020:43605250005 REMOVE CONTROL CHARS. 5B$""6(4P OK THEN, KILL IT! -4ZUD1:4250K4dCU(START((LN201)46))\4nCU,((92))m4x4450:250004p EDIT A DATA LINE 4z:30005|:10:"PLEASE ENTER THE NAME OF THE PARTY WHOSE";:"LISTING YOU WISH TO EDIT AND PRESS":"'RETURN'.":5$:(NA$,(K$))K$510063(NA$,1)(92)INR5070E3::25000\3 FOUND A MATCH v3LN(123)(124)2563:11:NA$:S5ı3 13:868:"DO YOU WISH TO DELETE THIS DATA (Y/N) ";S$:(S$,1)"Y"52003(S$,1)"N"ĺ"":513045080 DELETE DATA CONTENTS %2:30002:10:"PLEASE ENTER THE NAME OF THE PARTY YOU":"WISH DELETED FROM THE DIRECTORY AND":"PRESS 'RETURN'."214:"-> ";K$:K$""S5ġ:250002K$""250002 FIND AN EXACT MATCH 2:Z:I1NR3NANE !1T$:(T$,1)(92)4310;1LN(123)(124)256U1 CALCULATE OFFSET s1CU(START((LN201)46))10 POKE DATA LINE 1:ICU(CU39)1DI,((NN$,I1CU,1)):1b SET UPDATE FLAG 1lMFMF1:S4S5ı1v2500012542000^UD1.0h PAD TO 40 CHARACTERS V0rI(NN$)(39(NP$)):NN$NN$".":n0|NN$NN$NP$:S5ı0 UPDATE DATA NUMBER 0:T:TTUD:CU(START11)0T$(T):I1(T$)0(CUI),((T$,I,1)):0S4ı1 FIND EMPTY DATA LI ";::"NAME";::" ENTRY:":10:14:NN$d/12:"AND THE ";::"PHONE NUMBER";::":":14:14:NP$/,18:8:868:"ARE THEY CORRECT (Y/N) ";S$:(S$,1)"Y"4180/6(S$,1)"Y"S5ġ:6000/@(S$,1)"N"ĺ"":4100/J4000/OS542000TSЫ4020^.10:958:"ENTER NEW NUMBER THEN PRESS 'RETURN'.":"(USE THE FORMAT: XXX XXX XXXX)".13:"-> ";A$:6100:NP$B$:NP$""S5Ĺ32,0::25000.NP$""Ĺ32,0:25000.(NP$)12ĺ"":4050. IS ENTRY CORRECT? (/::8:"HERE IS THE":I12000::25000-32,3:10:958:"ENTER NEW NAME AND PRESS 'RETURN'.":"(USE NO COMMAS, COLONS OR QUOTES.":"TWENTY-FIVE CHARACTERS, MAXIMUM.)"-14:"-> ";A$:6100:NN$B$:NN$""S5Ĺ32,0::25000-NN$""Ĺ32,0:25000.(NN$)25ĺ"":(NA$,1)(92)INR2540$, 1100>, VT22VT2:3:958E, IO, 1200l, IS DATA FILE EMPTY? , ::NR0Ģ12:9::"<< NO NAMES ON FILE >>"::I12000:I::25000, , ENTER LISTINGS -:NR150Ģ12:12:"DATA TABLE FULL!̠ұ̠ҲӬ̠Š͍ō΍̠ԬӬԠũԠũˠԬŠŬ ++ GOT A FULL PAGE [+22:958:"ENTER 'RTN' TO CONT - 'ESC' FOR MENU ";:T$r+(T$(27)ġ:25000+2T$(13)Ģ3:1:958:VT3:+<(7):1300+ + LIST EVERYTHING + 3000+ 1012+ :Z+ VT2:FO0:I1NR, NA$:*,.02468  ` s` ` ?>>ȱ>i8i`  `  CLL ȟ Q ^\lZl^?cq !"#$%&'( )*+,-./0123456789:;<=> ?@ABCDEFGHIJKLMNOPQRST L \E? 5Y0.i  ,ҥDkHi n hxLV ILHJ݌h$$ Hhꝍ݌` x  xL `L ^NR  RΩ "$&( RUNNING."8D$;"EXEC ";FL$N8 LINE 75 AND LINES 1000-1250 ARE NOT SAVED8 RECORD ZERO CONTAINS THE 'SAVE' PROGRAM EXECUTIVE8 DtWR$;FL$;",R0"I7~"75":"DEL 1000,1250":"SAVE RANDOM":"HOME":"RUN"T7R19h7WR$;FL$;",R";R7A$(R);",";B(R);",";C(R);",";D(R)7R7CL$;FL$ 8::"WHEN THE PROGRAM AND DATA HAVE BEEN":"FULLY TRANSFERRED, THE PROGRAM WILL":"BEGIN"Y"10706$:(9):104076.:"NOW READING DATA..."R68R19:RD$;FL$;",R";Rl6BA$(R),B(R),C(R),D(R)s6LR6VCL$;FL$6`(7):::"INSERT AN INITIALIZED DISKETTE, THEN":"PRESS THE RETURN KEY TO BEGIN TRANSFER.":" ";Q$6jOP$;FL$;",L40"7ROTECTED DISKETTE SUCH AS"5"YOUR DOS SYSTEM MASTER (VERSION 3.2). FOR YOUR CONVENIENCE, PROVISIONS HAVE BEEN MADE TO COPY THIS PROGRAM AND IT'S"5"DATA TO ANOTHER DISKETTE.":5"DO YOU WISH TO DO THIS NOW? (Y OR N) ";Q$:Q$"N"480 6Q$CHANGE"," 2"4"EXIT"," 3"J4:"CHOOSE NUMBER (1 - 3) ";Q$:Q(Q$)Y4Q0Q4ıo4(15):(7);:450|4CL$;FL$4:4DEMONSTRATION OF RANDOM ACCESS4A$(9),B(9),C(9),D(9)5::"THIS DEMONSTRATION WILL NOT EXECUTE ON":"A WRITE-P1Q9)Q$"0"ĺ(7);:33083^R1Q:R2Q:Q0R11:R29C3h:(5)3r"PART# NAME SIZE IN STOCK ----- ---- ---- -------- "3|3:12);FL$:(10)3"COMMAND","NUMBER"3"-------","------"3"LIST"," 1" 4"(T):(32):ST;:(31):Q$:(Q$)0ST(Q$)Y2(T):" ";R;8);N$;24);BL;32);ST;" "2"WR$;FL$;",R";R:N$;",";BL;",";ST2,D$:R26(23):"PRESS THE RETURN KEY TO CONTINUE.";:Q$2@802J:"PART NUMBER 1-9 (0=ALL) ";Q$3TQ$:Q(Q$):(QST%1" ";R;8);N$;24);BL;32);ST,1R41D$=1310F1330^1T7:RR1R2:TT11RD$;FL$;",R";R:N$,BL,BW,ST:D$1(T):" ";R;8);N$;:(7):Q$1(Q$)152001(Q$)0N$Q$1(T):(24):BL;:(23):Q$:(Q$)0BL(Q$),20"NOMONI,O,C":$0 :D$(4)80OP$D$"OPEN "M0CL$D$"CLOSE "a0(RD$D$"READ "v02WR$D$"WRITE "0<FL$"APPLE PROMS"0FOP$;FL$;",L40"0K10000P3900ZQ100,180,4800d3300nRR1R20xRD$;FL$;",R";R1N$,BL,BW,    ^a9i( ۤi  υ  L$       EEHJ݌h     aiq0֩$$ $Hh ai  ,꽌ɪɵ'*&%&E'зЮ꽌ɪФ`+*xJ&x'8*7Ixix&&  + ') +7 &п x) ++`FG8`0($ p,&"   n *  N0|'x&Hh &    Y@'&Y@xꪽ@'    `Hh` aI꽌ɪ򠚽ɭ&Ya&&Ya&a 꽌ɪ\8`&& eeh) tt L [ _HH`]ɍ]ɬ` ɠ``DE ɤ<(LΡ DE`80!  eDeE eDDeEE8`D&E`( 80 0 DDLDLDL^ t^`,tP ȟpMt-^^`DH hWL8B ,ee"eȱe eȱe PS /!jqȥ q8/8eeeeP` ie i:ih `aaa+C nLH" SINGLE DRIV E COPY NOT POSSIBLE.";(7);(7);(7)::110{ ***** DO NOT CHANGE ***** LINE 63999 .(122)256(121)35: H Xʽ8Keee<ȥq<8< =C:260:A,N16:Q 280:N;::4:" DRIVE: ";:L1:H2:260:A9,(A)N1:_ LM1270u K$:K$(13)270 K$(48L)K$(48H)262 N(K$)48 20:N;" ": :22:"DEFAULT = ";:((41)256(40)14),96:F":(AD4)68ĺ"***** DUPLICATE WRITE PROTECTED *****";(7);(7);(7):220 ::"DO YOU WISH TO MAKE ANOTHER COPY?";I$:(I$)0230 (I$,1)"Y"230 4:958:(978)64160 100 "MAXFILES3": :280:N;::1:I$;" SLOT: ";:L1:H7EY TO BEGIN COPY ---":I$* (I$)3230C (1017)256(1016)n (978)64Ľ:AD(1017)256(1016)56 :(AD12)0ĺ"****** UNABLE TO READ ******";(7);(7);(7):220 (AD11)11ĺ"****** UNABLE TO WRITE ******";(7);(7);(7):220H 40:SSN:N1:MSSSN3MD9 250:SDN::MSSSMDSD290 ::10:"ORIGINAL IN SLOT ";MS:21:"DRIVE ";MD:9:"DUPLICATE IN SLOT ";SS:21:"DRIVE ";SD (978)64Ċ0:0:1012,0 ((37)3):11:"INSERT DUPLICATE THEN";(7):"--- PRESS 'RETURN' K(1015)256(1014)k d"APPLE DISKETTE DUPLICATION PROGRAM":(6):" ... PLEASE INSERT ORIGINAL ...":(8) nCS(766)16:LM0 I$" ORIGINAL":NCS:AD(1016)(1017)256179:AAD:240:MSN:N(767):250:MDN:I$"DUPLICATE":NMS:AA1 LM1 2 :, (7):"COPY MAY BE SAVED ONLY"Q(7):"BEFORE IT HAS BEEN RUN":j COPYRIGHT 1979 BY ( APPLE COMPUTER INCK"MAXFILES1"P106,(116)1:105,(115)T108,(116)1:110,(116)1X107,(115):109,(115)Z63999 _   1500:I:25000*K'*L GOT ONE! H*NVTVT1:VT21PR1İ1300\*PFO1Ģ12:868i*QPRİ700z*VVT:1:NA$;*`PRİ750*tINRı*PRİ700:" ":" ":" ":" ":750+22:868:"THAT'S ALL OF THEM! - PRESS 'RETURN' ";:"";S$:25000Z)FO0:I1NR1)NA$:(NA$,1)(92)1040W)SK0SK1ĭ(NA$,(S$))S$1075h)II1(NA$))$(NA$,II,(S$))S$FOFO1:1100:1075).II)3I:FO1200)812:868:12::"<< NOT FOUND >>"::PRİ700:S14:" "::750*B(7):I1PLEASE ENTER THE SEARCH KEY:":13:5:"";S$:S$""25000O(PRİ700:" ":" "(:1:" NAME PHONE NUMBER":"----------------------------------------"(PRİ750(S22510(12:868:12::"<< SEARCHING >>"::VT2):N SAVED!!":22:'z::22:/' SEARCH D'3000:OP11010':9:5:"WOULD YOU LIKE TO SEARCH BY"::10:"1 WORD (FAST)":7:"OR 2 CHARACTER (SLOW)"'14:868:20:"WHICH: ";SK$:SK(SK$):SK1SK2(SK$)1ĺ"":10078(:11:5:":&  END ROUTINE %&*MF0890U&4DISKĺ(4)"SAVE PHONE LIST":::22:976:&>:11:"INSERT A NEW TAPE INTO THE RECORDER, SET";:"ON RECORD, AND PRESS 'RETURN' ";:"";S$&HI11500:::I12000::'R:12:"THE PROGRAM AND DATA HAVE BEE)(1001)192DISK13%DISKĺ(4)"NOMON C,I,O":`% GET ADDRESS OF FIRST DATA STATEMENT %START((103)(104)256458)%& SET FAST/SLOW SEARCH %0OP0%:25000% ACTIVATE PRINTER %SL:% DE-ACTIVATE PRINTER &0..0$[\.......................................^$\\.......................................$]\.......................................$^\.......................................$ SET PRINTER SLOT $SL1$ DISK SYSTEM?? %(994............................J#V\.......................................x#W\.......................................#X\.......................................#Y\.......................................$Z\.............................................6"P\.......................................d"Q\......................................."R\......................................."S\......................................."T\.......................................#U\.............................................P!K\.......................................~!L\.......................................!M\.......................................!N\......................................."O\.............................................< E\.......................................j F\....................................... G\....................................... H\....................................... I\......................................."!J\.....\.......................................V@\.......................................A\.......................................B\.......................................C\....................................... D\.............................................B:\.......................................p;\.......................................<\.......................................=\.......................................>\.......................................(? z #   ҠӠ' Ҡ ΧӠŠ Ǡ٠: ŠԠ3  ҠԠ  ŠˠԠ ŠԠ! ŠԠ" àϠ  ͠ ŠӠ  Ϡ ٠ Šɠ Š  ٠Š Š/ ΠT 'INCREMENT = 0' ERROR,"=S"RENUMBER IS PROBABLY INTACT."lS:" THE INTENDED USE FOR MERGE IS TO"S"BE ABLE TO INSERT SUBROUTINES INTO A"S"PROGRAM FROM A SUBROUTINE LIBRARY."S:" THE 'HOLD' FILE IS A SEPARATE PART"!T$"OF MEM'RESET'!!!"=R::" DISK USERS, DO NOT USE 'MAXFILES'"iR"AFTER RENUMBER IS IN, DOS WILL WRITE"R "OVER RENUMBER."R9000RTT)"NOTES"PT)"PAGE 16"RR" TO SEE IF RENUMBER IS OK, TYPE"R:"& INC 0"S:" IF YOU GEOGRAMS, BUT ON EXECUTION "GQ"RENUMBER WILL RETURN TO BASIC COMMAND"YQ"MODE, ']'."Q::" RENUMBER IS ABOUT 2K BYTES LONG"Q::" RENUMBER MAY TAKE UP TO ONE"Q"MINUTE TO RENUMBER OR MERGE A 16K BASIC" R"PROGRAM. DO NOT HIT HEN"1P:" 'THEN' AS IN '7 IF X=0 THEN 250'"7P=PjP:" RENUMBER WILL NOT RENUMBER ANY"P"REFERENCE THAT IS A PART OF A REMARK."P9000PTT)"NOTES"PT)"PAGE 15"PP" RENUMBER COMMANDS MAY BE PUT IN"Q"BASIC PRROGRAM."O90000OhTT)"NOTES"PT)"PAGE 14"6Or]O|" RENUMBER FIXES LINE NUMBER"O"REFERENCES IN THESE STATEMENTS;"OA10:B20O:A)"GOTO"B)"ON...GOTO"O:A)"GOSUB"B)"ON...GOSUB"O:A)"DEL"B)"LIST"P:A)"RUN"B)"TY' CANCELS":N" RENUMBER AND RETURNS TO BASIC"hN:"PROGRAM ON HOLD, USE '&M' TO RECOVER"N:" THIS IS DISPLAYED WHENEVER A"N" PROGRAM IS PUT INTO THE HOLD FILE."N" TYPING '& MERGE WILL RECOVER"O" THE P, MAY DESTROY PROGRAM"-MZ"CONTINUE (Y/N)?"[Md:" THIS OCCURS WITH SMALL SYSTEMS"Mn" OR LARGE PROGRAMS. THE RENUMBER"Mx" MAY OR MAY NOT SUCCEED."M:" * PROGRAM DESTROYED IF IT FAILS" N:" * ANY REPLY BUT 'RS."3L~:" TO FIX USE FEWER STATEMENTS PER"FL" LINE."fL:"ERR HOLD FILE IN USE"L" ONLY ONE PROGRAM MAY BE IN THE"L" HOLD FILE AT A TIME."L9000L<TT)"OTHER MESSAGES"PT)"PAGE 13"LFMP"LIMITED MEMORY NUMBERS IF RENUMBER CONTINUED.";KL:" TO FIX USE"`KV" * SMALLER INCREMENT OR"K`" * DIFFERENT FIRST LINE NUMBER"Kj:"ERR LINE TOO LONG"Ko" RENUMBERING WOULD CAUSE A LINE TO"Lt" BE LONGER THAN 239 CHARACTEPERATION REQUIRES">Jz " MORE MEMORY THAN IS AVAILABLE."HJ 9000oJTT)"ERROR MESSAGES"PT)"PAGE 12"uJJ$"ERR DUPLICATE LINE NUMBERS"J." ONE OF THE UNCHANGED LINE NUMBERS"J8" WOULD EQUAL ONE OF THE NEW LINE"!KB" TO BE NUMBERED GREATER THAN 63999.";GIH :"ERR NO LINES IN RANGE"tIR " THIS INDICATES THAT NOTHING WAS"I\ " CHANGED BECAUSE THE SPECIFIED"If " RANGE OF LINES WAS EMPTY."Ip :"ERR OUT OF MEMORY"Ju " OCCURS WHEN AN OLhLk'Lk'AIGAX DFpS1S2UPpLE`REwJ@Z (|`ܠLդ4ɪ 4<`<  / ) ) "&6 B /`TLՆ8M˕  Tբ , Tզ`  '( H() 91 eȱm)h`JJ`#JȱJLh `#  <(eΨ=)eϰ%Hh>?iJK̅  #`Lk 34 Lh856!;<79)F:&8J9j*0v 婭   +<; ˆU*U*U*U*U*U*U*U*  +) ,  ': ?7DyEyFzB{B|C|D|E|FBCDEIFHGBCDEFmLmMmNmOmPmQnKnNoKoNpLpMpNpOpPpQsMsNsOsPsQtMuMvNyNyOyPzMzQ{M{Q|NNOPMQMQMNOPQNOPMQMQKLMNOPQNOPMOQMOQNO}PPBPPB}PI1``H uhyP IiɠȘH  hy0 IiɀH uhȘH  hЌݬЂ0`g@gAgBgCg@gAgBgCgDgEgFh@hCi@iCjAjBmCmDmEnBnDnFoBoDoFpCpDsBsCsDsEsFtBuBvCvDvEvFyByCyJ BJ B6 B^ B6 B^ Be6 e@ e^ eh yJ yT 6 @ ^ h 6 B^ B6 B^ B6 ^ @ h !63B63B!66!hh@@8h88h8) )))) ))ȏ)H@@H``Y@!By@!B@!B@!BeF%`U**U х u i` u҅  i`ȱȱȱ.  JJH 7hLTJJH hLT` )WSP`8Ah8A8Ah8A!6 B!^ B+6 B+^ B!6 !^ !@ !h e6 Be^ Bq6 Bq^ By @hhhh` 1-`8A8 ePp0 x0 x`Ɉ`8BL-  [  ~ ,ɛ`  [  ~ХiP ,ɛ`hh``#`6`h0`   `) `0e ?`0e M`0L,`HЅ ,h`H ,h`eP8P`@HHHH JiAA8C0CiiC CiiC @ѩ@ JiBB8D0DiiD DiiD`8>8? >I>>?I?? `1`e u  9i  98  9`e  u 9i u 98 u 9`? i I > DI  &>e u?e  9 I !!!!!!!"""""""#######$$$$ @e u  i  8  `e  u i u 8 u `> ? `I1`HH)?5h)P(h) ` $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?e8` )-159=!%)-159="&*.26:>"&*.26:>#'+/37;?#'+/37;?e8` . $ ; E.. 4L& >H ֥ h HH)?5h)PHH)?5h)P(h) ` $(,048< $(,048"LEMONADE YOU NEED $";L(I)C1;" IN CASH."G890M"HOW MANY ADVERTISING SIGNS (";S3100;" CENTS""EACH) DO YOU WANT TO MAKE ";S(I)S(I)0S(I)50963965"COME ON, BE REASONABLE!!! TRY AGAIN." "WISH TO MAKE "; L(I)9 L(I)0L(I)1000903B 906m "COME ON, LET'S BE REASONABLE NOW!!!"~ "TRY AGAIN" 890 L(I)(L(I))903 L(I)C1A(I)950 "THINK AGAIN!!! YOU HAVE ONLY ";STI$"IN CASH AND TO MAKE ";L(II)A(I).000000001$ 4G(I)1:H(I)0` RSTIA(I):4000:"LEMONADE STAND ";I;26);"ASSETS ";STI$f Wv \B(I)0890 f"YOU ARE BANKRUPT, NO DECISIONS" k"FOR YOU TO MAKE." lN1A(1)C31111 p1050 z"HOW MANY GLASSES OF LEMONADE DO YOU"R11 X CURRENT EVENTS( bD3650X l"(YOUR MOTHER QUIT GIVING YOU FREE SUGAR)"f D7700 "(THE PRICE OF LEMONADE MIX JUST WENT UP)"  AFTER 2 DAYS THINGS CAN HAPPEN D22000  INPUT VALUES %:34,(37) *I1N /A( WEATHER REPORT SC(1)0 SC.6SC2:460F SC.8SC10:460O SC7] D3SC2h 15000p :  START OF NEW DAY DD1 "ON DAY ";D;", THE COST OF LEMONADE IS "; C2:D2C4 &D6C5 0"$.0";C: :C1C.01 D FEBRUARY, 19791 Z BY CHARLIE KELLNER` A(30),L(30),H(30),B(30),S(30),P(30),G(30)j P910u S3.15 S230 A22.00 C9.5 C21 , START OF GAME 612000:I1N:B(I)0:A(I)A2: @A$"Y"İ13000:400 J14000  - 14080*10000:11000:16000:135H <<< LEMONADE STAND >>>O n FROM AN ORIGINAL PROGRAM BY BOB JAMISON, OF THE( MINNESOTA EDUCATIONAL2 COMPUTING CONSORTIUM< * * *F MODIFIED FOR THE APPLE P               L;LL;,;L;LL;,;;;LL;,,,,,*J - 96,16,85,4,128,4,96,4,76,4,128,4,96,16,0,0 - 114,120,144,60,114,255,1,120,128,120,144,60,128,120,114,60,144,120,171,255,228,255,0,0 - 152,180,152,120,152,60,144,120,152,60,171,120,192,60,152,255,0,0S!(- 0,160,128,212%,32,0:33,40:34,20:35,23:22<,I14000::I(0)B,N, DATA, 96,180,128,60,114,60,128,120,144,60,152,60,128,255,128,60,114,60,85,120,96,60,102,60,114,120,102,60,96,255,0,0 - ,,,,,,L;LL;,L;LL;,;;LL;;,L;LL;,L;;;;,,,;L;;;;,;L;LL;,;5,1958,I3971:15:18,37I:12:I39ď18,36I1OB,15:I30ď18,36I10L,12:I29ď18,37I11:32,I11:11:I12::A$:A$;V,J14II:::I11000:`,13:14,3612:I36201:8,16Ij,J150::768,I312:769,12:770::12:14,19;L;LL;LLLLLLLL";A+"LLLLLLLLLLLL;LL;LL;;;;L;LL;L;LL;LLLLLLLL";r+"LLLLLLLLLLLL;LL;LL;LL;L;LL;L;LL;LLLLLLLL";,"LLLLLLLL;;;;;LL;LL;;;;L;LL;L;;;;LLLLLLLL";,23:" COPYRIGHT 1979 APPLE COMPUTER INC."$,11700:I12000:.,33,1:34,9:3L;L;LL;L;LL;L;LLL";D+";;;;L;;;;L;LLL;L;;;;L;LL;L;;;;L;;;;L;;;;";L+11}+"LLLLLLLL;;;;;LL;LLLLLLLLLLLLLLL;LLLLLLLL";+"LLLLLLLL;LLLLLL;LLLLLLLLLLLLLLL;LLLLLLLL";+"LLLLLLLL;LLLLL;;;L;;;;L;;;;L;;;;LLLLLLLL";+"LLLLLLLL;;;;;LL;LLLLL;L;LLLLLLLLLLLLLLLLLLLLLLLL;LLLLL";Op+";LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL;LLLLL";z+";LLLL;;;;L;;;;;L;;;;L;;;;L;;;;L;;;;L;;;;";+";LLLL;LL;L;L;L;L;LL;L;LL;LLLL;L;LL;L;LL;";+";LLLL;;;;L;L;L;L;LL;L;LL;L;;;;L;LL;L;;;;";+";LLLL;LLLL;L;L;L;LL;L;L71,48:772,192:773,136:774,208:775,5:776,206:777,1:778,3:779,240:780,9:781,202~'782,208:783,245:784,174:785,0:786,3:787,76:788,2:789,3:790,96:791,0:792,0'* INTRODUCTION\+:::12:I039:0,39I::2f+";LLLLLLLLLLL::" ";L(I);7);"GLASSES MADE":hSTIE:4000:" ";S(I);7);"SIGNS MADE";25);"EXPENSES ";STI$::STIP1:4000:16);"PROFIT ";STI$:STIA(I):4000:16);"ASSETS ";STI$18000 :' INITIALIZE'0:0Wt'770,173:7(STI)&STI(STI)STI$STI$".0"MSTI(STI10.5)10STI$STI$"0"S`6:34,5" DAY ";D;30);"STAND ";I::" ";N2;7);"GLASSES SOLD":STIP(I)100:4000:STI$;7);"PER GLASS";STIM:4000:27);"INCOME ";STI$"NDS WERE BEING SET UP."E8 "UNFORTUNATELY, EVERYTHING WAS RUINED!!"YB J1N:G(J)0:cL 1185q` X41805zj X41~ "A HEAT WAVE IS PREDICTED FOR TODAY!" R12 805  STI => DOLLARS.CENTSSTI(STI100.5)100STI$"$"805-"THE STREET CREWS BOUGHT ALL YOUR"L"LEMONADE AT LUNCHTIME!!"V1185k THUNDERSTORM!y X31:R30 SC5:15000:: "WEATHER REPORT: A SEVERE THUNDERSTORM"$ "HIT LEMONSVILLE EARLIER TODAY, JUST AS". "THE LEMONADE STA LIGHT RAIN,"5C"AND THE WEATHER IS COOLER TODAY."DHR11J100MRX11V\805dX21805"THE STREET DEPARTMENT IS WORKING TODAY.""THERE WILL BE NO TRAFFIC ON YOUR STREET."(1).52233R222250R1.1X21USINESS YOU'RE BANKRUPT!"%dB(I)12f18000:HiN1B(1)131111OnIXsR11atR20jx400 RANDOM EVENTSSC102110SC72410(1).2522108054X11805>J30((1)5)10 @"THERE IS A ";J;"% CHANCE OF+8:(7):"...READY TO BEGIN? ";A$;+8(A$,1)"N"13000A+8X+: WEATHER DISPLAY`+::{+;SC:I025:0,39I:I+;12:I2639:0,39I:I+;8:I2432:15,25I:I+.;13:I17232:22,23I:I+/;SC2SC715160+0;SC10Ġ15,5;SC5*@8I1N::@*J8"PLAYER NO. ";I;", HOW MUCH MONEY (ASSETS)":W*T8"DID YOU HAVE? ";l*^8"";A$:A(A$):*h8A2ĺ"O.K. - WE'LL START YOU OUT WITH $2.00":A2:14490*r8A40ĺ"JUST TO BE FAIR, LET'S MAKE THAT $10.00":A10*8A(I)(A100.5)100:$BER IT WAS? ";/)F7"";A$:A(A$)::A014200p)P7A$(A$,1):A$"Y"ĺ"GOOD! WHAT DAY WAS IT? ";:II1:14150)Z7A$"N"I014300)d7(7);"YES OR NO? ";:II1:14150)x7A1A99A(A)14300)7DA)7"OKAY - WE'LL START WITH DAY NO. ";D1: MONEY THAN YOU HAVE! ":%(318000-(3:F(6 CONTINUE OLD GAME[(7936:(7);:I0(7"HI AGAIN! WELCOME BACK TO LEMONSVILLE! ":((7"LET'S CONTINUE YOUR LAST GAME FROM WHERE"(27"YOU LEFT IT LAST TIME. DO YOU REMEMBER ")<7"WHAT DAY NUMNCOME FROM SALES AND YOUR EXPENSES.":V'3"THE NUMBER OF GLASSES YOU SELL EACH DAY "'3"DEPENDS ON THE PRICE YOU CHARGE, AND ON "'3"THE NUMBER OF ADVERTISING SIGNS YOU USE.":'3"KEEP TRACK OF YOUR ASSETS, BECAUSE YOU "(3"CAN'T SPEND MORE TO MAKE LEMONADE IS TWO CENTS "Q&3"A GLASS (THIS MAY CHANGE IN THE FUTURE).":\&318000b&3&3"YOUR EXPENSES ARE THE SUM OF THE COST OF"&3"THE LEMONADE AND THE COST OF THE SIGNS. ":&3"YOUR PROFITS ARE THE DIFFERENCE BETWEEN "&'3"THE IING)"]%T3"2. HOW MANY ADVERTISING SIGNS TO MAKE (THE SIGNS COST FIFTEEN CENTS EACH) "%^3"3. WHAT PRICE TO CHARGE FOR EACH GLASS ":%h3"YOU WILL BEGIN WITH $2.00 CASH (ASSETS)."%r3"BECAUSE YOUR MOTHER GAVE YOU SOME SUGAR,"&|3"YOUR COST RESTART";U<#A$ UA#(A$)3Ā3UF#(A$)2790609UP#?UZ#GUd#10MU'pU'20:"":20:"RUN RENUMBER":ORY. NEITHER BASIC NOR RENUMBER"RT."CAN USE THIS MEMORY FOR THEIR OPERATION.";T8"THEREFORE FOR MAXIMUM USEABLE MEMORY,"TB"USE THE HOLD FILE ONLY WHILE MERGING"TL"PROGRAMS."T9000T 10T'#T(#24 U2#"PRESS SPACE FOR MORE, ESC TO => ";N$+$/N(N$):N1N30ĺ(7);:122201$/E$2 NEW BUSINESSK$,3{$63"TO MANAGE YOUR LEMONADE STAND, YOU WILL "$@3"NEED TO MAKE THESE DECISIONS EVERY DAY: ":%J3"1. HOW MANY GLASSES OF LEMONADE TO MAKE (ONLY ONE BATCH IS MADE EACH MORN YOU"7#/"MAKE THE MOST MONEY, YOU'RE THE WINNER!!":g#/"ARE YOU STARTING A NEW GAME? (YES OR NO)"#/21:958:"TYPE YOUR ANSWER AND HIT RETURN ==> ";A$#/A$(A$,1):A$"Y"A$"N"ĺ(7);:12200$/23:958:"HOW MANY PEOPLE WILL BE PLAYING =YOU ARE IN CHARGE OF"E"b/"RUNNING YOUR OWN LEMONADE STAND. YOU CAN"u"l/"COMPETE WITH AS MANY OTHER PEOPLE AS YOU""v/"WISH, BUT HOW MUCH PROFIT YOU MAKE IS UP""/"TO YOU (THE OTHER STANDS' SALES WILL NOT"#/"AFFECT YOUR BUSINESS IN ANY WAY). IF55,152,40,171,80,192,40,228,255,1,40,0,160,192,255,192,40,171,80,152,40,128,255,0,0`!- MUSICp!-I,J:J0ı!-768,I:769,J:770!-11710!. TITLE PAGE!D/::(7);!N/"HI! WELCOME TO LEMONSVILLE, CALIFORNIA!":"X/"IN THIS SMALL TOWN, O PROGRAM IN MEMORYNO LINES IN RANGEINCREMENT TOO LARGEDUPLICATE LINE NUMBERSOUT OF MEMORYPROGRAM ON HOLD, USE "&M" TO RECOVERHOLD FILE IN USELIMITED MEMORY, MAY DESTROY PROGRAM CONTINUE (Y/N)?SYNTAX> 63999LINE TOO LONGINCREMENT = 0Pei `hhLȪ`樥sthhRL`EȱEi樠 ȱȱ`ijEȱEi椠`H h`:808`ESIFN尐giihijg` Lֆ ׆8stijRLghLDBC؆>ن?szi=i??><>=?>BPݱ>BL@ /@i ipm@8e@@AiA8ϥ_^8LKLK / ROM PROGRAM TO"4 " CURRENT TYPE OF BASIC"< 24b "PRESS 'RETURN' TO CONTINUE...";j A$y (A$)3Ā (A$)13220 ':"RENUMBER INSTALLED ABOVE HIMEM"::"** RE RUN RENUMBER AFTER A DOS 'FP' **" '(121)(122)256316PLE COMPUTER INC";40);"&";' dSS$;S$- nP x"RENUMBER (DEFAULT VALUES)" :"& [FIRST 10] [,INC 10] [,S 0] [,E 63999]" "MERGE" :"&H PUT PROGRAM ON HOLD" "&M MERGE TO PROGRAM ON HOLD" :"CONVERT" :"&C CONVERT RAM  RENUMBER&:::2556#TT15:PT34h(S$"&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&"2SS$"& &"<S$;SS$;F"&";11);"APPLESOFT RENUMBER";40);"&";PSS$; Z"&";4);"COPYRIGHT 1978 AP   ;I,J:J015320#.;SC10154008.;I,J:J015340L.(13824,76:13825,108:13826,54:13827,165:13828,48:1382SC7Ė15:" HOT AND DRY ";7-P;SC10Ė17:" CLOUDY ";a-R;SC5Ė14:" THUNDERSTORMS! ";:17000g-`;~-j;A$:A$"*"15210-t;SC215300-~;I,J:J015500-;K1J:768,I:769,10:770-;LKJ:::15230-;I,J:J015300-;SC715400.Ġ0J,6;6,102:4,143:7,124:22,304:20,365:23,336:::17000:15170W,8;SC7Ġ9,:;3,51:2,62:I36:1,7I::2,67:3,58,B;22:8:" LEMONSVILLE WEATHER REPORT ":,G;22:8:" LEMONSVILLE WEATHER REPORT ":,L;SC2Ė18:" SUNNY ";-N;AX> 63999LINE TOO LONGINCREMENT = 0 TE IS WRITE PROTECTED. REMOVE WRITE PROTECT TAB.`]``]`WRITTEN BY JAMES R. HUSTON DECEMBER 15, 1978 (THIS MESSAGE IS FILLER, WHY READ IT?)ISKETTE AND PRESS [RETURN] TO REBOOT DOS  UNABLE TO READ IMAGE.  IMAGE OF DOS 3.2 (MASTER) IS NOT AVAILABLE. CHECK INSTRUCTIONS.  UNABLE TO WRITE. DISKETTE MUST BE INITIALIZED PROPERLY. CHECK DISKETTE FOR PROPER INSERTION.  DISKETHAS BEEN UPDATED, YOU MAYREMOVE IT AT THIS TIME. IF YOU WISH TO "UPDATE" ANOTHER DISK- ETTE, PRESS [RETURN]. OTHERWISE PRESS [ESC] TO EXIT "UPDATE" IF YOU WISH TO RETRY PRESS [RETURN] OTHERWISE PRESS [ESC] TO EXIT "UPDATE" INSERT A SYSTEM D PLACE IT IN THE DISK DIRECTORY THIS IS THE FILE NAME THAT WILL BE PLACED WITHIN THE IMAGE: PLACE THE DISKETTE TO BE "UPDATED" IN THE DISK DRIVE. PRESS [RETURN] WHEN READY NOTE: IF YOU WANT A DIFFERENT FILE NAME,PRESS [ESC]. THE DISKETTE DOS 3.2 MASTER - UPDATE UTILITY COPYRIGHT 1979 BY APPLE COMPUTER INC ALL RIGHTS RESERVED. (NOW LOADING DOS IMAGE) PLEASE INPUT THE "GREETING" PROGRAM'S FILE NAME: REMEMBER THAT "UPDATE" DOES NOT CREATE THE "GREETING" PROGRAM, OR`H Xh%` .L68793` ɍɛ`,ɠ.ɍ ɬ 8`.` a f efjj7`H M[ȱN\Lahm` ` % B   #    ef ! LM In4If+ L    j H .u+      9 J  n      9   Lk    9 bJJJJ l    9 LN H h0   I 8 ز'DH 7 $\,d e.?r[R,`$6q.?6@r`$,d6?e`$6q`$,q"6PbE()[?d2e?Pa(Ԡ)Gd8.?)r&'( )*+,-./0123456789:;<=> ?@ABCDEFGHIJKLMNOPQRST "$&(*,.02468  M `  ` ` ȱ`L/ Lfh ` ;B-` ;B-`  -> 0֩$$ f $Hh i  , L.  F@ 8Y01i  ,ԥDnHi W hx W L  IL, HJ݌h$$ Hhꝍ݌` x W xLW  `8 !"#$%FG8`0($ p,&"  q (  >   i ۤ " L $ p f g g  U  U  U EEHJ݌h f g g g g  A V f i &Y & &Y &   꽌ɪ\8`&&꽌ɪɵ'*&%&E'зЮ꽌ɪФ`*xY+&x'8*BIxix&&  x) + ') + &д +`(rre`[4"ca(ŠŠ٠ԠŮ)c_n]80|'x &Hh &  Y \ '&Y \ x ꪽ\ ' `Hh`aI꽌ɪ򠚽ɭESS SPACE TO CONTINUE, ESC TO END...";J5ZFIN$:IN$" "(IN$)2718010_5dF(IN$)2731111e5nF5yI12000:::10:"WOULD YOU LIKE TO PLAY AGAIN ";5yIN$:IN$"Y"1505y(994)(1001)192Č9765y:::)5,54:13946,96:13947,0:4?+4hBSC5ıa4iB10:7,929:30,319:9,1432:33,3414:14,25354mB5,88:9,8:8,1310:11,13:13,17124rBRPT154|B138244B7:138274B138244B9:138274BRPT4B138244B5:138274B&5PF24:" PR173:13923,162:}3>13924,48:13925,133:13926,36:13927,173:13928,163:13929,54:13930,133:13931,37:13932,165:13933,48:3>13934,41:13935,15:13936,141:13937,164:13938,54:13939,165:13940,48:13941,41:13942,240:13943,141:4>13944,165:139499,161:13900,54:13901,145:13902,40:13903,200:2>13904,192:13905,40:13906,144:13907,213:13908,160:13909,0:13910,104:13911,105:13912,0:13913,197:3>13914,34:13915,144:13916,196:13917,32:13918,193:13919,251:13920,133:13921,40:13922,:13876,41:13877,240:13878,24:13879,109:13880,160:13881,54:13882,145:13883,40:1>13884,177:13885,40:13886,41:13887,240:13888,205:13889,165:13890,54:13891,208:13892,10:13893,177:12>13894,40:13895,41:13896,15:13897,24:13898,109:138:13853,133:z0>13854,36:13855,133:13856,37:13857,72:13858,32:13859,193:13860,251:13861,133:13862,40:13863,164:0>13864,36:13865,177:13866,40:13867,41:13868,15:13869,205:13870,164:13871,54:13872,208:13873,10:U1>13874,177:13875,409,41:13830,15:13831,141:13832,160:13833,54:/>13834,165:13835,48:13836,41:13837,240:13838,141:13839,161:13840,54:13841,165:13842,36:13843,141: 0>13844,162:13845,54:13846,165:13847,37:13848,141:13849,163:13850,54:13851,169:13852,0SE11500:PAUSE: DELAY6 120: DRAW A NEW PATTERNV y16298,0: TURN OFF HI-RESx y16388,0: CLEAR KBD STROBE y:936::A15531111 @S,X; TY0158I%: STEP THROUGH Y VALUES` hS01: 2 LINES, FROM Y AND Y+1 |3S: FIRST LINE BLACK, NEXT WHITE  DRAW LINE THROUGH "CENTER" TO OPPOSITE SIDE 279,YSA,B0,159YS (16384)15531111 S,Y PAU/ 24:" ";W X0278I%: STEP THROUGH X VALUES| S01: 2 LINES, FROM X AND X+1 3S: FIRST LINE BLACK, NEXT WHITE  DRAW LINE THROUGH "CENTER" TO OPPOSITE SIDE ,XS,0A,B279XS,159 6(16384) P: CLEAR THE TEXT AREA< d22: MOVE CURSOR TO MIDDLEf x: SET HIGH RESOLUTION GRAPHICS MODE A(1)279: PICK AN X FOR "CENTER" B(1)159: PICK A Y FOR "CENTER" I%((1)4)2: PICK A STEP SIZE :22 15:"STEPPING BY ";I% : CLEAR THE TEXT WINDOW= :216,0: TURN OFF ONERRZ7:15:"BRIAN'S THEME"o9:17:" BY"11:16:"BRIAN HOWARD"15:" COPYRIGHT 1979, APPLE COMPUTER INC."#23:9:"PRESS RETURN TO CONTINUE...";(A$:A$(13)40   %*QTU'T8ePT UeRU QJJJ` Ӎ$ H h .Ю#` L}Э%J u ӊH Өh dѮ#` L Q ;Ү#` Q Ү#`#2 Ӎ'( H() 91 eȱm)h`JJ`#JȱJLh TUU&E%0Q&&kS TePTUeQPفŴxaI1& ')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ`JJJJS)фPIȄR(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j00',"&,i8i#H&ii&hif&i'`'i,&i,.&iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% 8TeR &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%Ѕ0J$)` .ХQ&%0Q&&`$0JI0`'0% I`0 I0ܩh H@888 (`p hH8@@ Hh8H@H0 HOPALONG CASSIDY" `24F j" PRESS TO EXIT";W tI15000:Ig ~ FULL PAGEu 16302,0  WATCH FOR "ESC" A$ (A$)271180 :16298,0::  I;ATY@Hx(HH88 H@7  HI-RES PICTURE%; TEXT & GRAPHICSI 16297,0W16304,0e16301,0y PAGE 1 SELECT$16300,0. DISPLAY HEADING8:175,32:176,19:105,32:106,19<107,32:108,19:109,32:110,19B22 L"               | L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER  ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna LݦЁީ; =L Z , ,խLc ZL,զ}~, ߅ $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ 5ȱȱ` = $)94,;D {$0 4 Lک \I`$ !i)$ )L(ʊ$ L W 檠^ \ LD۩ ,? ɠ )H h`0{|uvLh$L :ۥyz` @ `" "hhh` { ɫ ޥ L>L( HɰɫЉơhL* ,h`PQ/ Q^ԥP &^ &^ePP^eQQP&QPe PQ L ߅ ޥHH {h* mh r ȥ`L'hpoj iLڠ 㥌 婝hQ L gePiheQjR  $LeLԩP<=R>?`gh<=ij>?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘e`:,  hab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !$v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$L >H ֥ h ߦ>  E֥ E & > ` E  E  H ֥ hL  ֥ -L L -EF# =Pi < N8i| (|`ܠLդ4ɪ 4<`<  / ) ) "&6 B /`TLՆ8M˕  Tբ , Tզ`  . $ ; E.. 4L&?iJK̅  #`Lk 34 Lh856!;<79)F:&8J9j*0v 婭   +<; LhLk'cg=%;!,<+k,w(gG gG]$ t 膢 ȱ " <67 L  8ij v vo>w*U*W.];wn}_*Q"E"T+U*uW*] wn]?h_;Un];w/ U*U*U*Q*U?UzW*U*U"];U*U*w.];wo_("D"Tj.U{W*U*n};w_o]+u*]:*U*UQ*U*U*U*U"poU*w.]{wo/U*U*U*U*DQj](U@(o];w/@Po_;W.];*U*Q*U*U*U*Uj?U"*U*Wn];w~U*U*E"_*w]*u*w~};w"D"wnU*wn] D "U*ujU *U*h]+W*];wo@*U*U*U*Uz?UT "}n_;w~?@~wo]+wn]; T *U*U*E(U*U*U"n]*u.];wn (U*U*U~ QjE*@~w "DzwnU*wn]+"D"U U*`_+W.];wo U*U*U*U*} z *D"D(u*}n];woQ*U*U*U*U*U*;wn]+wn] @"T*U*EU"U`_;W.]{wn T*U*U*|+ E@Q~ݩ),(,,ѸLLԠhhL ߅` ȱLL q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨80 ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаHٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {*U*UP*U*U*U*@*"@@UU?(U*U*U*U*U*U*U*un];W.U*U*T+U*U;w *U*P*U*U*U*U*U"Dx]"  U*U*U*U*U*U*U*uj]+w.U:U@*U*]{w*D*U*U*U U*U*U*U@D(D(*U*U*U*U*U*U:un]+W*U*U@ U*W*"*U*U*T*U*U*U P""t?@n/P*U*U*U*U*U*U*UjU*U*U:U *W. U *U*U*U*U*Uj U*U*U*U**DT*U*U*U*U*U:w ET*]{/ *U*U*U*@*U*U*U*@ U*U*U*U*U*U:uj];W @U.]*UT P*U*U*U*U*U*];w@ *U D(]*U*U*U*U*U*D@*U*U*U*U*P*DPw.*Un}*U*U*U*U*UjU*T*U*U*U*U*"U "P*U*U*U*U*]*E DU:woUP~wn_;z_;ujU; U*U*U**U*w/D~*P;U*U*wj];wn} "D"D~Wn]z/U*wn];"D(h]:ujU;w?(]*U*U*U*}*T "U+W*U*U*];w~]_"Tjo]_U*wn];w~t~];U*];*U* EU*U*U*U**|.U*u*];wn}U*U*E"Uko}*U*wn]?~};U*U;*U*U*U*U~+j_"xw.U*uj];wn]{_*U"T"\*u_/U*wo];wn}{ot?n]*un] T  U*U*(Q*U*~]:ujU;wn}?*Q*U*U*Uz+U*T twn]{wn}?ho];ujU; TU*UU*E(U*U*U*@n]*UnU;w~/*U*U~w/UUjE*@x~_wn}Pn_"D(_*Ujn_;wn]:wn] "DQ*U E`]:uj];wn_U*U*U*U*T +*@Ujwn_;n]{/D"D@Q~_?wn]*wj] @"U*U*U*U*U h];wj];~}@(U*U**]*u? Uz*U*UP*U*U*U*@"E u. U*Q"E*U*U*U*U*U*U*U*U*U*u*U*U."D*U*UP*U*U*U*P*E" wn*U*U"T*U*U*U*U*]*U*U*U*U*@.U*Un}+*U*U*U(U*U*U*U" (U*U*U*U*U*U*U:UjU*U*U U*Q*@*U*U*U*U*U*U q?P @*U*E*U*U*U*U*U:U*U*U*U *U*]+*U*U*U*U*U*U*(U*U*U*U* D(T*U*U*U*U*Un" Tn];`w*U*U*U*U P*U*U*U*"U*U*U*U*U*U*]:w*"DU+U*U QT*U*U*U*U*U*UnU+(U*@.]*U*U*U*U*U*U*U*U*@*U*U*U*U Th];@*U*w*U*U*U*U*U*U* U*U*U*U*U*P*U*U*U*U*U@ "@*U*];UP{U*wn8w.U*Uj] U*U*U*U*U*U Q~*@nU*U*U*ujU;w_"DDQ~_*u_+U*]:w*"(w.U*uj]+(W*U*U*DU/Q. D*U*U*U*U*UnU;w~ Pj+U~"U**U*UP*U*U*U*"D"uT**U *U*U*U*U*U*U+U*U*U*U*@*U*UjU*U*P*U*U*U*U U:@*T**u**U*U*U*U*U*U*U*U*.U*un]**U*U*U*U*U*Uz*U"D*U*U*U*U*U*U.U*U*U"T*U*(*U*U T*U*U*U P"U*(w/T**D*U*U*U*U*U*W*U*U*U*D*U*uP*U*U*U*U*UU*U*U*U*" T*U*U*U*U*U*U*T*un]+u*U*U*U**U*U(U*U U*E*U*U*U*U*U*w*U:U**UP @@*U*U*U*U*U*U*UT*U*U*U*U*U*P*U*U*U*U*P w.];EU:w*U*U*U*U*U*U*P*U*U*U*U*(UP*U*U*U*U*U tj];U:U+U*8w*U*Uj] U*U*U"E(U~?z+Ut*U*U*U*Un];~} @Qj_:unW*UU*W*"D(U*U*U.];(U*U*U"D*}/DuDQ*U*UzU*U*U;w~}*_+uw@*];Un];P;w*U*U.(U*E*"D*U*U*u*E]*U*U*un]:w~U*E"@(U*U?W*U U+wn]:wjU*Un(U*U*U*U~*E(}_jU*U*U*U.]:w~}_"D"P*U:>U*];wn];w~]{@o];U*U*W*U(U*U* T*U*U:U*U*U.U?w~*U*U*E:u*E*P*P~]+wn];w ];U*U*W*U"D D**T(U*U @+U*U*U*];w~?}*(U*E*.U*D**Eh];Wn];wn}{ "U*U*U*U~};wn]*U*U+W @T*@((W*U*U.];Q*U*U*U~*T];W.];~};w xwn]*U*U*U "DU*U**U*Q"8wjU*U*];w@*U*U*E Uz/U(  :36" MASTER DISKETTE VERISON 3.2 PLUS":M30:"1-JUNE-79":{" COPYRIGHT 1979 APPLE COMPUTER INC."(TCOMPUTER INC."( ................>\.......................................l\.......................................\.......................................\.......................................\.......................................$\...\.......................................X\.......................................\.......................................\.......................................\.......................................\.............................................D\.......................................r\.......................................\.......................................\.......................................\.......................................*..0 \.......................................^ \....................................... \....................................... \....................................... \.......................................\.............................................J \.......................................x \....................................... \....................................... \....................................... \.............................................6 \.......................................d \....................................... \....................................... \....................................... \....................................... \.............................................P \.......................................~ \....................................... \....................................... \....................................... \...............................SS *# m* THAN 400!! *@ n* *] o* PROGRAM WILL *z p* SELF-DESTRUCT! * q* * r*********************** s 1001 APPLE COMPUTER INC..........408 996 1010" \.....1d***********************;e* *Xf* W A R N I N G *ug* - - - - - - - *h* *i* DO NOT MODIFY *j* ANY LINE IN THIS *k* PROGRAM WITH A * l* LINE NUMBER LE         ! !!!!!!!!!"""             "TYPE STRING #";I;": ";"18A$(I)41:A$(I)""40:1<U1>"WHAT FILE NAME? ";N$h1FD$;"OPEN ";N$|1PD$;"WRITE ";N$1ZI11dJ1I11n:A$(J)1xJ1D$;"CLOSE ";N$ 0 A$(100):I0'0D$(4): CTRL D-0\0"THIS PROGRAM LETS YOU WRITE TEXT FILES."b0 0""YOU GET TO TYPE ONE STRING AT A TIME."0$0&"A STRING MAY HAVE UP TO 239 CHARACTERS."0(02II104"(PRESS THE RETURN KEY TO QUIT.)16 ................................N$\.......................................|%\.......................................&\.......................................'\.......................................(\.............................................:\.......................................h\....................................... \.......................................!\......................................."\....................................... #\.............................................T\.......................................\.......................................\.......................................\....................................... \.............................................@\.......................................n\.......................................\.......................................\.......................................\.......................................&\. \.......................................Z\.......................................\.......................................\.......................................\.......................................\.............................................F\.......................................t \....................................... \....................................... \....................................... \.......................................,....2\.......................................`\.......................................\.......................................\.......................................\.......................................\.............................................L\.......................................z\.......................................\.......................................\.......................................\.............................................8\.......................................f\.......................................\.......................................\.......................................\.......................................\.............................................R\.......................................\.......................................\.......................................\....................................... \.............................) 1<J1I1F:A$(J)1PJ31ZD$;"CLOSE ";Z$I1dD$;"NOMON C,I,O" MK0 D$(4): CTRL D?0 "THIS PROGRAM RETRIEVES TEXT FILES"l0"CREATED BY THE 'CREATE TEXT' PROGRAM."0"MON C,I,O IS IN EFFECT."00"NAME OF TEXT FILE? ";Z$0D$;"MON C,I,O"00D$;"OPEN ";Z$0(D$;"READ ";Z$02I17A$(I! ! .4\.......................................\5\.......................................6\.......................................7\.......................................8\.......................................9\.............................................H/\.......................................v0\.......................................1\.......................................2\.......................................3\.............................................4)\.......................................b*\.......................................+\.......................................,\.......................................-\........................................\............. DONE!!!":8@8"YOUR APPLE'S READY TO DO'ER IT'S THING!"b8"ALL YOU HAVE TO DO IS TYPE"t8"EXEC DO'ER"8"PRESS THE RETURN KEY, AND SIT BACK."RPRESS THE RETURN KEY, AND SIT BACK." IT"Q$"7?A7D"LIST : REM EVEN MORE RECENT PROGRAM!!"j7I"REM PAUSE TO LOOK AT NEW LISTING"7N"FOR X=1 TO 8000:NEXT X"7X"SAVE EVEN MORE RECENT PROGRAM!!"7b"DELETE NEW PROGRAM!!"7l"CATALOG"7vD$"CLOSE DO'ER" 8:::"IT'S"CALL -155 : REM JUMPS TO MONITOR"@6"800.820 I 821.840"J6"FP"}6"PRINT"Q$"PAUSE TO LOOK AT MONITOR LISTING"Q$6"FOR X=1 TO 4000:NEXT X"6!"MON C,I,O"6&"CATALOG"60"RUN NEW PROGRAM!!"65 7:"115 PRINT"Q$"WE CAN EVEN CHANGET : REM NEW PROGRAM!!";5"REM PAUSE TO LOOK AT LISTING"Z5"FOR X=1 TO 8000: NEXT X"e5"INT"v5"MON C,I,O"5"LOAD COLOR DEMO"5"LIST"5"FP"5"PRINT"Q$"PAUSE TO LOOK AT LISTING"Q$5"FOR X=1 TO 4000:NEXT X"5"MON C,I,O"'64TD$"MON C,I,O"'4^D$"OPEN DO'ER"<4hD$"WRITE DO'ER"F4r"FP"W4|"MON C,I,O"t4"REM HERE IS A PROGRAM"z44"100 TEXT:HOME:VTAB 5"4"110 PRINT"Q$"HERE'S A NEW PROGRAM"Q$4"120 END"44"SAVE NEW PROGRAM!!"45"LISAND WAIT FOR KEY TO BE PRESSED. m3"A$:A$(27)Ā: ESC KEY PRESSED3,A$(32)320: SPACE BAR PRESSED36(7);:290: BEEP AND TRY AGAIN 3@:: PROGRAM STARTS HERE4JD$(4):CTRL-DROGRAM IN MORE DETAIL."!2:10D2:"<< HAPPY EXECUTING >>"::l2"PRESS THE SPACE BAR TO MAKE THIS"2"PROGRAM CREATE THE FILE DO'ER."22"IF YOU WISH TO STOP THIS PROGRAM NOW,"2"YOU MAY PRESS THE ESC KEY."G3  END INSTRUCTIONS I COMMAND.""1:"WHEN YOU TYPE"41"EXEC DO'ER"`1"THEN THE COMMANDS IN FILE DO'ER TAKE"1"CONTROL OF YOUR COMPUTER. EACH COMMAND"1"WILL BE EXECUTED JUST AS IF IT HAD BEEN"1"TYPED AT THE KEYBOARD. THE DOS MANUAL"2"DESCRIBES THE PK0dQ$(34): 34 IS THE ASCII CODE FOR A QUOTATION MARK (") Z0n::2:12{0x:"<< EXEC DEMO >>":::0"THIS PROGRAM CREATES A SEQUENTIAL TEXT"0"FILE NAMED "Q$"DO'ER"Q$" CONTAINING SEVERAL" 1"STRINGS, EACH A LEGAL APPLE I" " " """"""