' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` F d ֠z# u` "THE DRAGON CAN'T GET THROUGH IT!!"::"HIT 'RETURN' TO BEGIN ";c KE(16384):KE1413090s 16368,0:} :15& I0393:0,39I:0,39I:I0 0:S1000:I1169:T(I)0:M(I)11:I:X((13)(1))1:Y((13)(1))1:C169: C132602N (THE RED DOT) EATS":"YOU!!"::"BEWARE!!!!!!!!! SOMETIMES THE DRAGON" "GETS REAL MAD, AND BREAKS DOWN A":"WALL TO GET AT YOU":"BUT USUALLY HE HAS TO GO AROUND." :"HINT: YOU CAN OFTEN TELL WHERE A WALL":"IS, BEFORE YOU CAN SEE IT BECAUSE"D THE":"WALLS AS YOU BUMP INTO THEM." :"TO MOVE,YOU HIT 'R' FOR RIGHT,":"'L' FOR LEFT, 'U' FOR UP,":"AND 'D' FOR DOWN. DO NOT HIT RETURN!" :"THE OBJECT IS FOR YOU (THE GREEN DOT)":"TO GET TO THE DOOR ON THE RIGHT SIDE"H "BEFORE THE DRAGONS!!" BSBS1@ 21:"SCORE: ";A$;" ";AS;:25:B$;" ";BS;J "";[ I11000:Im AS5BS510w 2090 M(169),T(169) :"YOU MAY WATCH AS I BUILD A MAZE":"BUT WHEN IT'S COMPLETE I'LL ERASE"% "THE PICTURE. THEN YOU'LL ONLY SEE 20 7B DD 20 52 E7 20 1A D6 90 F0 4C 41 D9 N D9C6G"j'I1(A$):511I,128((A$,I,1))::72,0:144:D BY RON ALDRICH \'&: COPYRIGHT (C) 1978 BY APPLE PUGETSOUND PROGRAM LIBRARY EXCHANGE3'1013,76:1015,3:A$"300:20 7B DD 20 52 E7 20 1A D6 90 1D A9 03 20 D6 D3 A5 B9 48 A5 B8 48 A5 76 48 A5 75 48 A9 B0 48 20 B7 00 20 41 D9 4C D2 D7 A2 5A 4C 12 D420:"WHICH DEMO #"Y#KE(16384):KE177KE1829190:16368,0:1014,45:(KE176)1000v# COLOR DEMOPAK II # APPLE PUGETSOUND PROGRAM # LIBRARY EXCHANGE # 6708 39TH AVENUE SW # SEATTLE, WA. 98136 # EDITE" P R E S E N T S ":10:" "=#50,255M#I1100:I#:936:3:10:"A.P.P.L.E. PRESENTS:":7:"COLOR DEMOS II"#10:"1 THE MAZE":"2 KALEIDOSCOPE":"3 SANDY'S FOLLY":"4 BIT BIN":"5 SWITCHBACK":"6 SQUIGGLE"# B C":4:"L E G R H"#5:"E T R A A":14:"S A R N"#15:"O M Y G":16:"U";:40:"E";#17:"N":18:"D"1#50,63:::10:" ":10: ";:33:" "EZ#" ";:5:" ";:7:" ";:9:" ";:15:" ";:17:" ";d#23:" ";:25:" ";:31:" ";:33:" ";:39:" "n#50,255:x#"A P P L E":2:"P U R I X"5#3:"P G O ::936J2#1:2:" ";:9:" ";:17:" ";:25:" ";:33:" "<#" ";:5:" ";:9:" ";:13:" ";:17:" ";:21:" ";:25:" ";:33:" "F#" ";:9:" ";:17:" ";:25:" ";:33:" " P#" ";:5:" ";:9:" ";:17:" ";:25:",J))16)1):I,J:J,I:8000:5010+5010=p::X20:Y20Tz(15(1))1:X,YDX(3(1))1:DX0XDX0XDX396020DY((3)(1))1:DY0YDY0YDY396030:XXDX:YYDY:8000:6010@(16384)128ıA16368,0::9000(#50,634160:X,Y1)04110@@X0X394080:XDX,Y)04080:4150JJ4150X::936mX((38)(1))1IX39:J039:(((I,J))16)((I,J)16)16.05)((I,J))16)1):I,J:J,I!IX39:J039:(((I,J))16)((I,J)16)16.05)((IOGRAM LIBRARY EXCHANGE1A9 03 20 D6 D3 A5 B9 48 A5 B8 48 A5 76 48 A5 75 48 A9 B0 48 20 B7 00 20 41 D9 4C D2 D7 A2 5A 4C 12 D4 20 7B DD 20 52 E7 20 1A D6 90 F0 4C 41 D9 N D9C6G"'I1(A$):511I,128((A$,I,1))::72,0:144: COPYRIGHT (C) 1978 BY APPLE PUGETSOUND PR90:F1:740936:1000?D$""::936:D$;"CATALOG,V0"]:"NAME OF SKETCH? ";NA$lQ111040:D$;"BLOAD ";NA$;",V0"D$;"BSAVE ";NA$;",A$400,L$3FF,V0"Q10:'1013,76:1015,3:A$"300:20 7B DD 20 52 E7 20 1A D6 90 1D X33,Y33)94330)*XC:YD:4280<*E((0)28)1Z*KE(16384):KE1274400m*F((1)28)1*EGFH4330*T:AG:BH:4540*TE32,F32):12:AE:BF:4540*&GE:HF:4330*016368,0*:AG:BH:9:4540*DT9:SS1+4510#)X133,Y133)134250:)AX1:BY1:0:4540P)AX:BY:13:4540^)X1X:Y1Yj)CX:DY)A((10)(1)):ACXX1)ACXX1)X1X1)X10X10)A((12)(1)):ADYY1)ADYY1)Y1Y1)Y10Y10*,2:S((6)(1))20I(6I03:0,38I:0,38I35:4,34I:4,34I35:Ib(@J((5)(1))10:15(JI1J:((9)(1))37,((9)(1))37:I(TX((10)(1))1(^Y((10)(1))1(hGXHYT13(r21:8:"AMMO = ";:S10ĺ" ";(sS)|S0DL(0) AND PDL(1)."`':"THE KLINGON IS A YELLOW SQUARE AND DESTROYED SECTORS ARE ORANGE"'"HIT ANY KEY TO FIRE TORPEDOS"'24:"HIT RETURN TO BEGIN ";A$'::34,21'G((0)28)1'I110:I'H((1)28)1'"X11:Y11:T0(SECTORS SURROUNDING THE KLINGON."v&:"DUE TO A SPACE/TIME WARP, BY THE TIME THE KLINGON IS SHOWN ON THE VIEWING"&"SCREEN IT PROBABLLY WILL HAVE MOVED BY ONE SECTOR."':"THE FIRING POSITION IS DISPLAYED BY A GREEN SQUARE AND IS MOVED BY P13)103800 %xDX0:DY1:3820E%"":"THE DRAGON GOT YOU!!"Z%I12000:I:10`%%:"THE OBJECT OF THIS GAME IS TO CAPTURE A KLINGON BATTLE CRIUSER WITHOUT DESTROYING IT."!&:"THIS IS ACOMPLISHED BY DESTROYING ALL OF THE Y1))93920)$HM(SX13(SY1))103930=$PDX0:DY1:3820L$ZSX13950h$[T(SX13(SY1))93940r$\ MOD$]AQM(SX13(SY1)1)$^BQ10:10220$`CQ13950$dDX1:DY0:3820$nSY13800$oT(SX13(SY1))93960 %pM(SX13(SY1)DY0 #0##RX3SX2:RY3SY2@#I13:RXRXDX:RYRYDYG# 0#K01:L01:QXK,QYL:L,K:RD:K01:L01:RXK,RYL:L,K:QXRX:QYRY#I#(SXSXDX:SYSYDY#2T(SX13(SY1))T(SX13(SY1))1#<#FSY133930 $GT(SX13(S36):I:""YOU WIN!!"%""";7""SCORE=";S3A"3980P"XSX3800_"YSY3910n"XSX3930}"YSY3950"SX133910"T(SX13(SY1))93810" MOD"AQM(SX13(SY1))"BQ10:10220"CQ13910""#DX1:3730 ! 15"!3(Y1),3Y3X,!33106!3730>!$15W!.3(Y1),3Y3(X1)a!83310k!B3730s!L15!V3(X1),3X3(Y1)!`3310!j3730!t15!~3(X1),3X3Y!3310"SS1:I120:A(16336)(16336)(16336)(163z I XXDX:YYDY* X13YWY37404 3310C DX1:DY0I S MODj AQM(X13(Y1)1){ BQ10:10220 CQ13610 3410 DX0:DY1 M(X13(Y2))103650 3410 DX0:DY1 M(X13(Y1))103690 3410! (K128)"D"3540 4 3730:3310.> DX1:DY08D MOD>E SH AQM(X13(Y1))dJ BQ10:10220sN CQ13570R FX3X2:FY3Y2:I13\ FXFXDX:FYFYDYf 0p K01:L01:HXK,HYL:L,K:12:K01:L01:FXK,FYL:L,K:HXFX:HYFY HX3X2:HY3Y2:WY((13)(1))1:0:3WY2,3WY139b SX13:SYWY:QX3SX2:QY3SY2:RD1~ K(16384):K1283310 16368,0 QQK:3780:KQQ SXXSYY3970 (K128)"R"3390 (K128)"L"3480 (K128)"U"3510* < X((13)(1))1:Y((13)(1))1:M(X13(Y1))03240L CC1:3130q 3730:"THE MAZE IS READY"::15w }   0,390:0,3939:0,390:0,3939 X1:Y((13)(1))1:12:X13X2:Y13Y2:X1,Y1:X11,Y1:X1,Y11:X11,Y1193230 R3190B M(K)M(K)1:XX1:3Y2,3Y13(X1):3130O D3190 M(K)M(K)10:YY1:3X2,3X13(Y1):3130 L3190 M(K1)M(K1)1:XX1:3Y2,3Y13X:3130 U3190 M(K13)M(K13)10:YY1:3X2,3X13Y:3130; R0:D0:L0:U0:KX13(Y1):M(K)(M(K)):CC1AD X133150PE RM(K1)0_N Y133160oO DM(K13)0}X X13170Y LM(K1)0b Y13180c UM(K13)0l QRDLU:(Q3((10)(1))2)Q03240v DR((4)(1))1:DR3200,3210,3220,1S(6):S(8)1S(8):2340;S(3)1S(3):S(9)1S(9):2340i S(4)1S(4):S(5)1S(5):S(8)1S(8):2340 S(7)1S(7):S(9)1S(9):2340 S(8)1S(8):S(5)1S(5):S(6)1S(6)$ I19. TS(I)7 I-1 MOD 38 AQI1: BQ3:10220< X(13C0?1014,45:A2250,2260,2270,2280,2290,2300,2310,2320,2330mS(2)1S(2):S(4)1S(4):S(5)1S(5):2340S(1)1S(1):S(3)1S(3):2340S(2)1S(2):S(5)1S(5):S(6)1S(6):2340S(1)1S(1):S(7)1S(7):2340S(2)1S(2):S(4)1S(4):S(6)YRIGHT (C) 19788@(/8F( BY APPLE PUGETSOUNDE8P( PROGRAM LIBRARYa8Z( EXCHANGE (A.P.P.L.E.)}8( (UPDATED 11-9-81 DMC) (h7' 7' MOD FUNCTION =====&7'67' AQ MOD BQM7' FROM PAGE 104 OFS7'j7' SET AQ,BQ BEFORE7' CALL / RETURNS CQ7'7'7'CQ((AQBQ))7'CQAQCQBQ7'CQ(CQ)7'7(7((72( END OF MOD ========76(78(8<( COPTS:":10:"COLOR GAMEPAK"l6'::"1 FAST BREAKOUT":"2 BLOCKADE":"3 DRAGON MAZE":"4 KLINGON CAPTURE"6'"5 MASTERMIND"6'20:"WHICH GAME #"6'Q(16384)176:Q1Q5102006'16368,0:Q1000,2000,3000,4000,50006' END OF HEADING7' R N"H5~'15:"O M Y G":16:"U";:40:"E";^5'17:"N":18:"D"5'50,63:::10:" ":10:" P R E S E N T S ":10:" "5'50,2555':I13000:I:6':3:10:"A.P.P.L.E. PRESEN ";:39:" "4V'50,255:n4`'"A P P L E":2:"P U R I X"4j'3:"P G O B C":4:"L E G R H"5t'5:"E T R A A":14:"S A 7:" ";:21:" ";:25:" ";:33:" "`3.'" ";:9:" ";:17:" ";:25:" ";:33:" "38'" ";:5:" ";:9:" ";:17:" ";:25:" ";:33:" "3B'" ";:5:" ";:7:" ";:9:" ";:15:" ";:17:" ";4L'23:" ";:25:" ";:31:" ";:33:" ";:A(I)0:D(J)9:2R2\%2f=2p END OF MASTERMINDC2zI2O2U2[2a2&g2&2& A.P.P.L.E. HEADING2'2'50,63::2'1:2:" ";:9:" ";:17:" ";:25:" ";:33:" "$3$'" ";:5:" ";:9:" ";:13:" ";:1TR;" TRIES (";:TR7ĺ"EXCELLENT)";1 TR6TR10ĺ"GOOD)"W1TR9TR15ĺ"AVERAGE)"q1TR14TR20ĺ"POOR)"1TR19ĺ"REALLY ROTTEN)"1I12000:I:101(N6ı1)8:FL1ĠX(A(N))1*N42,N4Y:12A(I)D(J)ı23MM1:21MM,Y:",1):KE(ZX$)128ĂI$0I9511060A(N)I:KE149M05160:KE1415120w0KE136N1KE149N6NN(KE528)0WA:FL1FL:510000:M0:I15:D(I)C(I):JI:5170:I:M55130015:J15:I15:5170:I,J:5090"1 :"YOU GOT IT IN ";OR ADVANCE AND BACK",H,\,,$,V MASTERMIND ==========,X,Z,\P-A(6),C(9),D(NAXBY4520)+XAX1X1:BY1Y1;+bAXBY4470g+lA33,B33)9A33,B33)24210q+vB:A+AX:BY:1:4540+"CONGRATULATIONS YOU WIN!"+H12000:H:10+"NO SHOTS LEFT":4500,"YOU JUST CAPTURED THE KLINGS12440<:23:"STAKE IS ";S;" ENTER YOUR BET ";ZL125:X(16336):L:BpBS2450:B0102420:4:L138:0,39L:L8:0,390:0,3939:L152:Z(L)0:LD0:P10:P20:DA0:PA0:PA0:PL0 DEALERS TWO CARDSHX2 BLACKJACK"::"USE THE FOLLOWING COMMANDS":"H=HIT":"S=STAY":"D=DOUBLE":"X=SPLIT(ONE ALLOWED)":"0=ZERO BET EXITS GAME":"PLEASE INPUT YOUR TOTAL STAKE";S:S1001210:S110936:I060:"CHEAP !!! ";:I::I01000:I:1210,2535:9,2538$BBS:2,16:37,167LSC0:LE5:HI0jVX((38)(1))1:Y38:OX((5)(1))2:OY100|`715:LELE1j936:22:"POINTS=";HI;:14:50,255:"SCORE=";SC;:27:"BALLS LEFT=";LEt250~-Z(52)::936:4:9:"APPLE CASINO48 A9 B0 48 20 B7 00 20 41 D9 4C D2 D7 A2 5A 4C 12 D4 20 7B DD 20 52 E7 20 1A D6 90 F0 4C 41 D9 N D9C6G"'I1(A$):511I,128((A$,I,1))::72,0:144:!P":"2. MESSAGES":?"3. ALPHABET IN RANDOM COLORS":h:"HIT ANY KEY TO RETURN TO MENU":x$"WHICH ";Q.Q200,500,3008h'1013,76:1015,3:A$"300:20 7B DD 20 52 E7 20 1A D6 90 1D A9 03 20 D6 D3 A5 B9 48 A5 B8 48 A5 76 48 A5 75 D ";A6$:(A6$)6570$;590:C(5):<(A6$)0A6$" "VD"BACKGROUND COLOR ";BK_I600N(37)1:25:"AND COLOR ";:X:16302,0:BK:M039:0,47M:Mb100:936:5:8:"APPLE COLORGRAPHIC CHARACTERS""1. ALPHABET SOU"'CQ(CQ)"'"("((7"2( END OF MOD ========S"( (UPDATED 11-9-81 DMC) (A D6 90 F0 4C 41 D9 N D9C6G"S! I1(A$):511I,128((A$,I,1))::72,0:144:Y!'_!'e!'k!'!' MOD FUNCTION =====!'!' AQ MOD BQ!'!' SET AQ,BQ BEFORE!' CALL / RETURNS CQ!'!'!'CQ((AQBQ))!'CQAQCQBQ 1,(B3)2 S, T1100:K(16336):T= N13000:NE 70! 1013,76:1015,3:A$"300:20 7B DD 20 52 E7 20 1A D6 90 1D A9 03 20 D6 D3 A5 B9 48 A5 B8 48 A5 76 48 A5 75 48 A9 B0 48 20 B7 00 20 41 D9 4C D2 D7 A2 5A 4C 12 D4 20 7B DD 20 52 E7 20 140 XA3130 "WEST"&0 31403: "EAST";9D aN T1100:K(16336):T:S1100:0vX (A3)1,(B3)1b (A3)2,(B3)1l (A3)2,(B3)2v (A3)1,(B3)2 12:(A3)1,(B3)1 (A3)2,(B3)1:(A3)2,(B3)2 (A3)ɰ3010 | K; 936:"SORRY BUT THAT'S ";N;" GUESSES..."\ "THE MOUSE WAS AT ";A;",";Bs :I13000:I:10 "YOU FOUND HIM IN ";K;" GUESSES!!!" 3150 "GO "; YB3080 YB3060 "NORTH"; 3080 "SOUTH"; XA31(1))1 B((10)(1))1& K1N, N 4:"THIS IS GUESS NUMBER ";Ki "(COLUMN , ROW) ";X,Y6 X1X10Y1Y102840:9@ (X3)1,(Y3)1J (X3)1,(Y3)2T (X3)2,(Y3)1^ (X3)2,(Y3)2h (XA)(YB)02990,3010r N 1 AND 10."3P :"HIT 'RETURN' WHEN READY...";A$BZ :PP1:PPd R0303\n 0,30Rhx 0,30Ro R 32,3412:32,3416 12,1632:33,14 14,1632:14,1634:14,1636 14,33:16,35 N1100:N N5 G10 A((10)     MOUSE& 4 ::936< 10b "THIS IS A TEN BY TEN GRID MAZE" "IN WHICH A SHY MOUSE IS HIDING"( :"TO FIND HIM, TYPE IN A COLUMN NUMBER"2 "THEN A COMMA, THEN A ROW NUMBER" F :"THE NUMBERS MUST BE BETWEE1-4 AND 6-9 WITH STARS.":l "SOUND EASY ? ... NOT WHEN A FEW STARS DISAPPEAR EVERY TIME YOU SHOOT !" :"HIT 'RETURN' WHEN READY ";A$:2070 T02530 DX22 X,YDX:XDX,YDX:XDX,Y:XDX,YDX:DX: 0:2510 12:X,YQ)6B Y13((I1)3)6!L I+V 25002` I:j T0Qt I19:TTS(I):I~~ T02440:"YOU LOSE!":I13000:I:70 T8S(5)02130 "YOU WIN!":I13000:I:70 :936 5:10:"SHOOTING STARS":10:"OBJECT IS TO FILL SECTORS 1(Q((Q20))20)1:H1:V10:SY$(W1$,S1,S1(S1)1))x 0:T21101:1,12T:T:2960:Q:X(16336)(16336)(16336)(16336)) X((3)(1))) R((20)(1)):QRR5((5)(1)):S2(Q((Q20))20)1:H14:V10:SY$(W2$,S2,S2(S2)1)N*6:PA(4)8:PA(5)10:PA(6)15<( PA(7)18:PA(8)20:PA(9)200a( PUT GOSUB TO DRAW MACHINE HEREk( 3380w(( 936:(2 X(16384)(< 16368,0(F X1272610(P X15510(Z X0:TTTT1(d X((3)(1))7)n R((20)(1)):QRR5((5)(1)):S' #' "ONE ARMED BANDIT" BY<' KARL GANDERSR' 02/20/78X' :c' PA(9)' W1$"OBLCWOWCBOLWOBDCWOBL"' W2$"LCBCLWDCOWLCBLCBWOCB"' W3$"ODLBWLOLDOBLBWBDLWOD"' PA$"CC-C--OODBBOLLLWWDOOOWWWDDD"( PA(1)5:PA(2)3:PA(3)NEXT BET":715:"&j 2430: MENU[&t 936:21:" LOSE BUST PUSH WIN"::a&~ & 936:21:10:"SORRY, NO CREDIT.":22:10:"YOU'LL HAVE TO LEAVE!":I12000:I:170& 936:21:"YOU ONLY HAVE $";S;".00 LEFT -- TRY AGAIN!":1210Y5:.% X1,X3Y1:Y2,Y5X2:X1,Y5:E% X3,X4Y6:2350%$ Y1,Y5X1:X2,Y3:X3,Y2:X3,Y4:X4,Y1:X4,Y5:%. X2,Y5%8 Y1,Y5X1%B X1,X3Y1%L Y1,Y5X3%V &` GG94:1:G,G337:G,G338:"HIT RETURN FOR Y1,Y3X1:X2,Y3:2380Y$X1,X3Y1:X1,X3Y3:X1,X3Y5:X1,Y2:X3,Y4:$Y1,Y5X1:Y3,Y5X3:X2,Y3:X2,Y5:$2370$X2,Y3:2350$Y2,Y3X1:X2,Y3:2370% Y1,Y5X:Y1,Y5X2:Y1,Y5X4:X3,Y1:X3,(H1)1:TC:C10T10$#C1T116#W0:T11W1<##0:1014,45:C2220,2230,2240,2250,2260,2270,2280,2290,2300,2310,2320,2330,2340,2350#X2,Y3:2360#X1,Y1:Y1,Y3X2:Y3,Y5X1:X2,Y5:#X2,Y3:X1,X2Y5:2370$5:X1)" G3:2400:X126140:L11500:L?"*X11240X11210V"4P20Ĺ1014,45:X1f">P2Dī2070w"HP2Dī2060"RG3:2400:L11000:L:1240"\ CARD FACE DISPLAY"f6:LYY6:X,X4L:L"pH((52)(1)):C(H41):Z(H1)1ī2160#zZ:Y2:2210:1990 !D16ī2030D!XX6:2150:DDT:DADAW:2210T!D22ī1970d!DA0ī2020r!D0:2030!DD10:DADA1:1990!P10ī2090!X11240:P1Dī2070!P1Dī2080! SSB:G1:2400:1014,45:X1"SSB:G4:2400:1014,4W:2210 DP122ī1910) NPA0ī1900C XG2:2400:SSB:1410a b21:SSB:G2:2400:1410| lPAPA1:P1P110:1860 vA$"D"ī1960 XX6:"H OR S ? ";A$:2420:A$"H"ī1850 A$"D"B2B A$"D"ī1850  DEALERS HAND!CDC:X8P10ī1770.15:14,1737:14,1738:178081960FG2:2400iSSB:PLPL1:P20:PL2ī1410s1960PAPA1:P2P210:1720E1ī1960"H OR S ?";A$:2420:XX6:A$"H"ī1710&19600 STANDARD CALL :2150:P1P1T:PAPA1T:PAPAW:2210"hP122ī16802rPA0ī1670V|G2:2400:PL1:SSB:P10:1700qPAPA1:P1P110:1640E1ī1700"H OR S ?";A$:2420:XX6:A$"H"ī1630X8:Y192150:P2P2T:PAPAW:2210P222ī1810PA0ī1800 D"ī15903B2B:X14:2150:P1P1T:PAPAW:2210DP122ī1960TPA0ī1570^1890y"PAPA1:P1P110:1540, SPLIT6A$"S"ī1960@A$"X"ī1850JCEī1510TP1(P12):P2P1:X2:Y19:2150:CE:2210:X8:Y11^2150:P1P:16,2018:15,1720:21,2315:16,1823BX(16336)(16336)15,2424:15,2425:14,1716:17,1917:14,1619:20,2414:14,1824L:2400:1240 DOUBLE22:"YOU CAN NOT SPLIT":L11000:L:2420"H,S,D OR X ?";A$:2420:A$"G4:2400:1410<ZS(SB2):22:"YOU LOST INSURANCE BET"SdL11000:L:2420dnD21ī1420xxSSB:G1:2400X8:Y2:CDC:2210:1240P121ī1520SSB(B2):G4:L110013:(L((L2))2)0Ġ1L100Ġ4(14,1815:Y2:2150:DDT:DADAW:FW:2210:X8:2150:DCC:DDT:DADAW:X2:Y11[ 2150:X2ECP1P1T:PAPAW:2210:XX6:X8ī1290F1ī1390(22:"DO YOU WANT INSURANCE? Y=YES N=NO":A$22420<A$"Y"ī1390FD21ī1370PSSB: 21:"SOUTH" : % 30906 C$"C"3350 "TRY TO GUESS WHERE THE HURKLE IS HIDING."::"YOU GUESS BY TELLING ME THE GRIDPOINT " "WHERE YOU THINK THE HURKLE IS HIDING. HOME BASE IS POINT 0,0 IN THE SOUTHWEST CORNER."* r4 "TO HIDING IN A GRID, LIKE THE ONE BELOW."3b 3190=l 3330Nv 21:"NORTH"T b K9O1q K43250 8:"WEST 4 . . . . . . . . . . EAST"; 3260 14:K;" . . . . . . . . . ." K  15:"0 1 2 3 4 5 6 7 8 9" EATTLE, WA. 98136 ! 3120T :"TO CONTINUE RULES, HIT RETURN":C$:3100:` 936:j& 34,00 3100:15:"FIND THE HURKLE!":10:8:"WOULD YOU LIKE THE RULES? ";: Z$:3100D Z$"N"3460N *** HERE ARE THE RULES)X "A HURKLE IS20 B7 00 20 41 D9 4C D2 D7 A2 5A 4C 12 D4 20 7B DD 20 52 E7 20 1A D6 90 F0 4C 41 D9 N D9C6G"6'I1(A$):511I,128((A$,I,1))::72,0:144:6 COPYRIGHT (C) 1978 BY APPLE PUGETSOUND PROGRAM LIBRARY EXCHANGE BAR =$200"]5 "TO RETURN TO MENU HIT 'ESC'":"TO FEED THE SLOT HIT ANY KEY."5 "**** READY? HIT RETURN.";Z$5 \6'1013,76:1015,3:A$"300:20 7B DD 20 52 E7 20 1A D6 90 1D A9 03 20 D6 D3 A5 B9 48 A5 B8 48 A5 76 48 A5 75 48 A9 B0 48 BELL ORANGE =$ 8";V4 "LEMON LEMON LEMON =$ 10";4 "WATERMELON WATERMELON BAR =$ 15";4 "ORANGE ORANGE ORANGE =$ 18";4 "WATERMELON WATERMELON WATERMELON =$ 20";5 "BAR BAR RIP. THIS ONE PAYS MORE THAN";3R " 97% OF ITS TAKE !!!":a3\ "THE PAYOFFS ARE AS FOLLOWS:"::3f "CHERRY ANY ANY =$ 3";3p "CHERRY CHERRY ANY =$ 5";3z "ORANGE ORANGE BAR =$ 6";%4 "BELL H10:V2,V8H11:H6,V2:H6,V5i2 0:H2,V3:H2,V7:H3,V5:H10,V3:H11,V5:V7,V8H102 5:H1,H11V102* 24 9362> ::" WELCOME TO MR. SY S CASINO IN LAS VEGAS"3H :"OUR SLOT MACHINES ARE THE MOST GENEROUS":"ON THE STV10'1 12:H2,H7V3:H2,H7V7`1 9:H7,V5:V3,V7H8:V1,V9H9:V2,V8H10:u1 4:V2,V9H111 0:H10,V3:H8,V4:H9,V71 1 3:V2,V8H1:V2,V8H2:V2,V8H3:V2,V8H5:V2,V8H7%2 V2,V8H9:V2,V86V1:H4,H7V2:H4,H8V3:H3,H9V4Z0 H1,H10V5:H2,H10V6:H2,H9V70 H2,H8V8:H3,H8V9:H4,H7V100 0 4:H6,H8V1:H3,H8V2:H1,H7V4:H1,H6V5:H1,H7V60 H2,H8V8:H2,H8V91 H5,H10 H1,H10V7:H1,H10V8:H2,H9V9I/: H3,H8V10:H4,H7V11O/D }/N 6:H5,H6V1:H5,H6V2:H4,H7V3/X H3,H8V5:H3,H8V6/b H2,H9V8:H2,H9V9/l 2:H4,H7V4:H3,H8V7/v 7:H4,V10/ -0 13:H5,H:H,H4V5:H,H3V6:H,H3V7:H1,H3V8v. H6,H8V5:H5,H9V6:H5,H10V7:H5,H10V8:H5,H10V9. H6,H9V10:H7,H8V11. . 9. H4,H7V1.& H3,H8V2:H2,H9V3:H1,H10V4:H1,H10V5:H1,H10V6)/0- 2610- SY$"C"3020,- SY$"O"3090>- SY$"B"3150P- SY$"L"3210b- SY$"W"3250t- SY$"D"3330- 4:H5,H8V- H5,H10V1:H8,H11V2:H10,H11V3- 8:H6,H7V2:H5,V3:V3,V4H8.. 1:H2,H3V3:H1,H4V41)2910, 21:19, "YOU WIN $";PA((I31)3);" "T, TTTTPA(((I31)3))n, "TOTAL =$";TT;" "," RIPA(((I31)3)),, X1RI,6 "";,@ Q150:Q,J X,T 2610,^ I,h 21:1,r "YOU LOSE $1 ",| "TOTAL =$";TT;" "(16336)(16336)"+ I1273R+ (PA$,I,I(I)1)(W1$,S1,S1(S1)1)2910w+ (PA$,I1,I1(I1)1)"-"2790+ (PA$,I1,I1(I1)1)(W2$,S2,S2(S2)1)2910+ (PA$,I2,I2(I2)1)"-"2810, (PA$,I2,I2(I2)1)(W3$,S3,S3(S3) 0:T21101:14,25T:T:2960:Q:X(16336)(16336)(16336)(16336)`* X((3)(1))* R((20)(1)):QRR5((5)(1)):S3(Q((Q20))20)1:H27:V10:SY$(W3$,S3,S3(S3)1)+ 0:T21101:27,38T:T:2960:Q:X(16336)(16336)17,2224:15,2425:14,2526J2A13:B26:X2731:A,BX:AA1:BB1:X<1:17,2226:15,2427:16,2328:18,2129:X1920:25,30X:XFX1920:18,19X:XP0:13,1513:24,2613:12,14:11,15:16,14:17,15:22,15:23,14Z27,14:28,15>8:5,95+1:A12:B23:X212:X7A11EA,BX:AA1:BB1:XZ13:A8:B31:F0gX1320rA,BXF0ī5120F0:AA1:BB15130F1 XX1227:17,2124:15,2425:14,252511,1721:22,2821(19,2023:T2:X1012:0,17X:22,38X:X:X79:19,20X:X;^Ph2:X1224:0,17X:22,39X:X:0,2119:0,2120:X1300:X:Z4:X039:0,39X:X15:X1323:6,33X:XA7:B32:X2434:A,BX:AA1:BB1:X4,66:5,77:4,635:X1Z:13,24A:13,24A1:AA4:X4A15AT1500:T:XM"P130,9:A((3)(1)):B((3)(1)):A7,919:B7,9206C35((Z1)4):Z4CC47X1Z:A((3)(1)):B((3)(1))@A10,12C:B10,12C1:CC4:C19C23JX433:B26:X13:4070:AA4:BB3:X:4080C25,B1A:25,BA1:13:33,3517:34,3518:22,3519:22,3520:34,3521:33,3522A19:B20:X3639:A,BX:AA1:BB1:XZ18:20000:KE12750008:10,2119:10,2120:X1500:X.AA5 75 48 A9 B0 48 20 B7 00 20 41 D9 4C D2 D7 A2 5A 4C 12 D4 20 7B DD 20 52 E7 20 1A D6 90 F0 4C 41 D9 N D9C6G"$'I1(A$):511I,128((A$,I,1))::72,0:144:$%, OUT OF ";N;" PROBLEMS."::AA17#<A105190:5090#FA0::"HIT RETURN FOR MORE PROBLEMS":"TYPE 'M' TO RETURN TO MENU";Y$#PY$"M"10:5090n$'1013,76:1015,3:A$"300:20 7B DD 20 52 E7 20 1A D6 90 1D A9 03 20 D6 D3 A5 B9 48 A5 B8 48 A5 76 48 I1200:M(16336)(16336)(16336):I:"WRONG ANSWER YOU DUMMY, TRY AGAIN":5100"198:198:198:"HOORAY, YOU GOT THE RIGHT ANSWER!!!":SS1"(R((S100)N):R70T(7K8)")R80T(3K4)"*R90T(K2)"#2"YOUR SCORE IS ";R;"UE SW.! SEATTLE, WA. 98136 ;!936:6p!"HOW MANY SECONDS FOR THINKING ":P:KP200:TK!X((10)(1))3:Y((10)(1))3!10:X;"*";Y;"= ?":NN1!I1T:(16384)1275120:I:5140!Z:16368,0! ZXY5150W"RE YOU, I'D LEARN ANOTHER GAME!":3680O  "MULTIPLY" BY w  BOB HUELSDONK  FEBRUARY, 1978  A.P.P.L.E. PUGETSOUND  PROGRAM LIBRARY EXCHANGE ! 6708 39TH AVENINE: PRINT INFORMATION FOR NEXT GUESS1~"GO ";?YB3770MYB3760["SOUTH";e3770s"NORTH";XA3820XA3810"WEST";3820"EAST";& :" IT TOOK YOU ";K;" GUESSES TO FIND HIM!!! IF I WEND!BK63670:K93850VL:"YOU FOUND HIM IN ";K;" GUESSES!!!..NOT BAD!":3680V:"YOU FOUND HIM IN ONLY ";K;" GUESSES!!!..THATIS REALLY TERRIFIC!"`"HIT RETURN TO PLAY AGAIN!":"TYPE 'M' FOR MENU ";Z$jZ$"M"10:3490%t *** SUBROUTIDING - TRY TO FIND HIM!"I *** GET A GUESS AND PRINT INFO FOR PLAYERR K1X z 22::"WHAT IS YOUR GUESS "; X,Y:936(XA)(YB)O3650 *** GO TO IMFO SUBROUTINE3710$KK1.35608 *** HURKLE HAS BEEN FOUTO GO FOR YOUR NEXT GUESS."7p 18:12:"GOOD LUCK!"ez :"TO PLAY, HIT RETURN":Z$:Z$"C"3460y 3100:3190:22 34,17 *** HURKLE 'PICK' A GRIDPOINT AND HIDES A((10)(1)) B((10)(1))  3100 "THE HURKLE IS HURKLE IS HIDING.":3090rR 6:" FOR EXAMPLE, IF YOU GUESS THE HURKLEIS 7 TO THE RIGHT AND 5 ABOVE HOME BASE,"\ " ENTER 7 AND HIT RETURN, THEN ENTER 5 AND HIT RETURN AGAIN."f :"AFTER EACH GUESS, I WILL TELL YOU THE APPROXIMATE DIRECTION MAKE YOUR GUESS, ENTER THE FIRST CO-ORDINATE, HIT RETURN, THEN ENTER THE SECOND NUMBER AND HIT RETURN AGAIN."> :"THE FIRST NUMBER TELLS HOW FAR TO THE RIGHT OF HOME BASE AND THE SECOND NUMBER"H "TELLS HOW FAR ABOVE HOME BASE YOU THINK THE H124:6:5,12:13:10,115:10220O+(0:10,1210:6:9,12:13:11,119:10220~+(0:10,129:6:10,12:13:10,1110:10220+((0:10,1215:7:14,12:13:10,1114:10220+2(0:10,1214:7:15,12:13:11,1115:10220,<(0:10,1220:7:19,12:13:1X,22:X,23:X,24:X1*'2,21:36,21:2,24:36,24*'I110:I:N((14)(1))1:N10230,10240,10250,10260,10270,10280,10290,10300,10310,10320,10330,10340,10350,10360,10370*'20000:KE12730000*(0:10,125:6:4,12:13:11,114:10220!+ (0:10,----------")'10150J)'"HAPPY BIRTHDAY ";B$;".":"MANY HAPPY RETURNS"b)'I335:24,37I:I{)'9:1,3739:1,3738)'X2363:X,(X1)22:X,(X1)23:X)'11:X4345:13,21X:13,21(X1):X)'12:X2362:X,37:X*'X4343:X,21:4);"---------------------------------------";(34):_(~'" GOTO 10120":37,((37)8):A1:11:o(':936:15~('A210140('" HAPPY BIRTHDAY "('" YOU BIG SLOB OF A KID " )'"----------------------------- QUOTES WITH VERSE AND HIT RETURN, AND TRACE GOTO 10120 AND HIT RETURN":'`'12:" 10132 PRINT";(34);"---------------------------------------";(34):'j'" 10134 PRINT";(34);"---------------------------------------";(34):4(t'" 10136 PRINT";(3&D%ER3:20X,20A:20A,20X:A,20X:20A,X:A,X:20X,A:X,A:X,20A:Y&':936:6l&'A1A210120&$'"PERSONALIZED GREETING ? (Y/N)";A$&.':&8'A$"Y"10070&B'"NAME FOR GREETING ? ";B$&L'A2:10120I'V'936:6:"FILL IN BLANKS BETWEENAF%&%20A,40X:A,40X:20A,X20:A,X20:20X,A20:X,A20:X,40A%0%ER1:40X,40A:40A,40X:A20,40X:40A,X20:A20,X20:40X,A20:X20,A20:X20,40A%:%ER2:40X,20A:40A,20X:20A,20X:40A,X:20A,X:40X,A:20X,A:20X,20AJRN8$d#WQW$n#X1TU2,$x#A19TU16$#7500>$#TYH$#7500P$#RNW$#A^$#Xe$#0t$#X1011$#AX11$#ER:9500$#A$#A0A1$#0:7500$$ERER1$$20000:KE1271000$$X$"$TY$,$9000%%ER:20X,4011#AX1W11!#75007#ER((13)(1))4A#9500N#0:7500U#A]#QWu#20000:KE1279000|# X# QW# RT#& 8000#(#936:#2#23:5:"'H'A'P'P'Y' 'N'E'W' 'Y'E'A'R'"#<#RN((13)(1))#F#TY14#P#TU151$Z#:X,A20:20X,A20:A,X20:20A,X20:A,40X:20A,40X:20X,40AJ"~V"@936:"J23:5:"^M^E^R^R^Y^ ^C^H^R^I^S^T^M^A^S^""TRT311"^QW119RT"hWQW"rX110RT"|ER((16)(1))"AWX1"9500"A"X#X10WA39H!VX,20A:X,A:20X,A:A,X:20A,X:A,20X:20A,20X:20X,20A!`20X,20A:20X,A:40X,A:20A,X:40A,X:20A,20X:40A,20X:40X,20A!jX20,40A:X20,A20:40X,A20:A20,X20:40A,X20:A20,40X:40A,40X:40X,40AD"tX,40AWQW X151RN" A1RN, 75004 15> 7500P 8:N150:NW A^ Xe 0v X10W11 AX1W11 7500 A ((5)(1))12 *20000:KE1278000 4X >QW HRT R7000 LX39X39!MA392427:19,2435:20,3519:20,3524Y29,3420:29,3427:29,3435:20,2734:27,3529}X1250:X:20000:KE1286000X936:b23:2:"-M-A-N-Y- -H-A-P-P-Y- -R-E-T-U-R-N-S-"lRN((13)(1))vRT301QW191RTRN8 2:0,116:2,65/0,1110:0,1114:10,130N10,135:0,1117:17,210l0,521:17,215:0,112424,280:0,528:24,2850,530:31,365:5,11330,53620,35420,2710:10,1420:20,3514:10,1427#19,2420:19,37,39A6:36,37A8:A8,39?AA10:X1100:X:A26ī5300I525013:13,1515:13,1516:X1100:X:0:13,1516:13,1515X1500:X4:X039:36,39X:X:A6X1500:X20000:KE1285250p:((15)(1))1z0,11d13,1515:24,2615:13,1516:24,2616:13,1517:24,2617Hn936PxA613:19,2025:17,2226:18,2129:19,2030X1250:X:1:19,2025:17,2226:18,2129:19,203013:37,39A:A1,38:37,39A237,39A4:A5,37:A5,39:OST MADE IT!"CXMXPXMXHT1N3ĺ"YOU DIDN'T DO TOO WELL!"qXMXHYMYHĺ"YOU WOUND UP BEING EATEN!":"DO YOU WANT TO PLAY AGAIN? ";I$"Y"(I$,1)1010"WELL, OK, WE'LL QUIT FOR NOW.""DO LET'S PLAY AGAIN SOON.":""DO BY LUCK & QUICKSAND.":"NOTHING TO TAKE PRIDE IN.":988MXMXPYMYP988TTn:"YOU SURVIVED!!!!"x3500~"YOU LASTED ";T1;" OUT OF ";N;" POSSIBLE TURNS.":PAUSE1100:PAUSET1Nĺ5)"A PERFECT SCORE!" TN1ĺ"YOU ALM2000: REPOSITON HUMAN6XMXHYMYHİ2100]XMXHYMYHĺ"YOU'VE BEEN EATEN!"rXMXHYMYH980xXMXPYMYPİ2900:XMXPYMYPĺ"THE MONSTER FELL IN QUICKSAND!":PAUSE175:PAUSE8XMXPYMYPC3ĺ3)"YOU WERE SAVEDXMXHYMYHD6*XMXHYMYHD7? XMXHYMYHD8SDD(3(1)1)` D0D8m*D9D14D1D5XMXM6>D5XMXM6HD3D7YMYM7RD3D8YMYM7\XM5XM5fXM29XM29pYM3YM3zYM31YM31XMXH6YMYHXMXH:860<XMXH6YMYHXMXH:860ZYMYH7XMXHYMYH:860xYMYH7XMXHYMYH:860 DETERMINE MONSTER'S MOVEXMXHYMYHD1XMXHYMYHD2XMXHYMYHD3XMXHYMYHD4XMXHYMYHD5 MOUTH! CHOMP"%@XHXMYHYMİ2100:AXHXMYHYM980DXHXPYHYPė:"YOU FELL IN THE QUICKSAND-- YOU LOSE!":PAUSE1100:PAUSEGXHXPYHYPİ2900IXHXPYHYP980X MONSTER'S MOVEb2700: REMOVE MONSTERlC1700vC3700H$"N"YHYH7:570(H$"E"XHXH6<H$"S"YHYH7P&H$"W"XHXH6i:2500: REPLOT HUMAN<XH0YH0XH29YH31ĺ"OUT OF BOUNDS--YOU LOSE!"=XH0YH0XH29YH31980>XHXMYHYMİ2100?XHXMYHYMĺ"YOU RAN RIGHT INTO HISOUND PROGRAM$46y LIBRARY EXCHANGE >4@y 6708 39TH AVENUE SWY4Jy SEATTLE, WA. 98136 UE SW $3u SEATTLE, WA. 98136 A3u EDITED BY RON ALDRICH^3v AND VAL J GOLDING j3vKEKE13 v(KE176)1000,2000,3000,4000,5000,6000,7000,8000,9000,100003yA.P.P.L.E. HOLIDAY GREETING3"y PAK EDITED BY RON ALDRICH 4,y APPLE PUGETSOSCOPE":"9 BIRTHDAY CAKE"[2u::"HIT 'ESC'FOR MENU":"HIT ANY OTHER KEY FOR NEXT DEMO"2uKE(16384):KE176KE185302002u16368,02u HOLIDAY GREETINGPAK 2u APPLE PUGETSOUND PROGRAM2u LIBRARY EXCHANGE 3u 6708 39TH AVENuI13000:IO1u:936:3:10:"A.P.P.L.E. PRESENTS:":7:"HOLIDAY PAK"::1u"0 XMAS TREE":"1 FIREPLACE":"2 REINDEER":"3 CANDELABRA":"4 SANTA CLAUS":"5 HAPPY 1982"2u"6 MANY HAPPY RETURNS":"7 XMAS KALEIDOSCOPE":"8 NEW YEAR KALEID T R A A":14:"S A R N"z0u15:"O M Y G":16:"U";:40:"E";0u17:"N":18:"D"0u50,63:::10:" ":10:" P R E S E N T S ":10:" "0u50,255 1" ";A/lu23:" ";:25:" ";:31:" ";:33:" ";:39:" "O/vu50,255:/u"A P P L E":2:"P U R I X"/u3:"P G O B C":4:"L E G R H"A0u5:"E :" "V.Du" ";:5:" ";:9:" ";:13:" ";:17:" ";:21:" ";:25:" ";:33:" ".Nu" ";:9:" ";:17:" ";:25:" ";:33:" ".Xu" ";:5:" ";:9:" ";:17:" ";:25:" ";:33:" "/bu" ";:5:" ";:7:" ";:9:" ";:15:" ";:17:-x(0:10,1235:7:34,12:13:11,1134:10220^-(0:10,1234:7:35,12:13:10,1135:10220~-( "GREETINGS" BY JEFF FINN"- NKE(16384):KE127ı-!N16368,0:KE155ı-0u:50,63::936 .:u1:2:" ";:9:" ";:17:" ";:25:" ";:331,1119:10220>,F(0:10,1219:6:20,12:13:10,1120:10220n,P(0:10,1225:6:24,12:13:11,1124:10220,Z(0:10,1224:7:25,12:13:10,1125:10220,d(0:10,1230:6:29,12:13:10,1129:10220,n(0:10,1229:6:30,12:13:11,1130:10220.5$PAUSE1100:PAUSE:!$100:PAUSE# XP,XP4YP # ?# DYING MONSTER SUBROUTINEO# 15: WHITEb# XM1,YM:4000u# XM2,YM:4000# XM3,YM:4000# XM1,XM3YM1:4000# XM,XM4YM2:4000# XM1,XM3YM3:4000# XM1,YM4:XM3,YM4$12:XM2,YM QUICKSAND SUBROUTINE)"^ XPPXX:YPPYY8"h 0: BLACKJ"r XP,XP4YP5b"w PAUSE1100:PAUSEt"| XP,XP4YP4" PAUSE1100:PAUSE" XP,XP4YP3" PAUSE1100:PAUSE" XP,XP4YP2" PAUSE1100:PAUSE" XP,XP4YP1 # PAUSE1XH2YH3! XH2,YH4.! 10: GREY SHIELDL!( I24:XH3,XH4YHI:IR!2 s! CLEANUP MONSTER SUBROUTINE! 15: WHITE! I05:XM,XM4YMI:I! ! CLEANUP SUBROUTINE FOR HUMAN! 15: WHITE! I05:XH,XH4YHI:I! "T ,YM1 z10: GREY SHIELD9 I24:XM3,XM4YMI:I` 15:XM,YM3: REMOVE HUMAN'S HANDf } HUMAN SUBROUTINE 9: ORANGE FLESH I01:XH1,XH3YHI:I XH2,YH2 XH,YH3:XH1,YH5:XH3,YH5 1: RED SUIT ! XH1,XM,YM2:XM4,YM2-XM1,YM5:XM3,YM5C15: WHITE MOUTHR XM2,YM1X|4 VICTORIOUS MONSTER SUBROUTINE>12HI01:XM1,XM3YMI:IRI24:XM1,XM2YMI:I\XM,YM2:XM1,YM5:XM3,YM5f1: RED MOUTH pXM2 YOU WANT INSTRUCTIONS AGAIN? ";I$2I$"YES"ĬN"DIFFICULTY LEVEL? ";C"DO YOU WISH TO DETERMINE NUMBER OF TURNS? ";I$:I$"YES"Ą" HOW MANY? ";N:20090 MONSTER SUBROUTINE12: GREEN BODYI04:XM1,XM3YMI:Iz#     ϠŠˠ0ΠŠˠȠ٠Ǡˠ.ҠǠ ̠ҠҠŠϠϠҠϠˠɠҠϠˠɠҠŠˠɠ2ҠŠˠɠԠ- (4);"RUN ";+"DISKPAK 12" D DISKPAK 12* APPLESOFT VERSION9 11-14-81?(E2K7j:" "<"A.P.P.L.E. "AF"DISKPAK 12 IN APPLESOFT"GH" "KPD$(4)ZD$;"CATALOG"d :NL900:RM920:N,R:9407MR910:M1,RL:940IR,M1L:940dLN930:L1,NM:940qN,L1MNL:RM:KE(16384):16368,0:KE("Q")70:KE("S")960:KE("X")730KE193KE208810:COKE193:810Q11:980:740 9 TO SAVE, 'X' TO CLEAR."4 "AND 'Q' TO QUIT";:F0_*J(0):J(L1)62JL620820:LJ64K(1):K(M1)62KM620830:MK6>L39L39HM38M38RNLRM940\15:CO15Ġ5fL,Mp30:868:"X=";L;:35:"Y=";M;zCO0 :9361936:I4342:I22:I,39:Ie5:"A B C D E F G H I J K L M N O P":F0790"BACKGROUND COLOR ?"KE(16384):KE193KE208770:COKE193:CO:16368,0 I038:0,39I:I22:"TYPE LETTER TO CHANGE COLOR,":"'S'W RESOLUTION GRAPHICS USING":"PADDLE CONTROL"4j"OR LOAD PREVIOUSLY SAVED DISPLAYS FROM":"DISK":"DO YOU WISH TO LOAD A SAVED DISPLAY":"FROM DISK (Y OR N) ?"KE(16384)128:KE128700:16368,0KE("Y")970KE("N")7031I:I#b4:I3239:16,23I:I0l20:620gv:936:"***************************************"3:12:"COLOR SKETCH II":5:"****************************************"8:"THIS PROGRAM ALLOWES YOU TO":"SKETCH COLORED FIGURES IN"."LO2737:14,1938:21,2638:15,1839:22,2539:020:560T:1:I07:16,23I:IDI815:3:8,15I:11:16,23I:9:24,31I:INI1623:2:0,7I:7:8,15I:15:16,23I:13:24,31I:8:32,39I:IXI2431:6:8,15I:14:16,23I:12:24,921:6,1020M13,1610:24,2710:12,1811:22,2811:11,2912:11,2913j13:I1417:10,30I:II1825:I19Ġ9I24Ġ19,31I:II2630:I29Ġ310,30I:II3133:11,29I:I2:I3436:12,28I:I-&13,P(6)K|R6RR1!N:3404I((20)(1))]R((16)(1)):J119:L019:KJLL30(J3)JI12R:J,K:K,J:40J,40K:40K,40J:K,40J:40J,K:J,40K:40K,JL,J:20:II1:I20I0410 12:1,424:2,723:3,822:4,((40)(1))STL((3)(1))1:M((3)(1))1:L0M0340:Q((15)(1))6:20^N1Q:J1JL:K1KM:J10J139K10K139340:J1C(5)K1P(5)340hJJ1:KK1:((14)(1))1:J,K:0:R6čC(1),P(1)rI15:C(I)C(I1):P(I)P(I1):I:C(6)J:KE182Ĉ8 ,1014,45:(KE176)310,330,400,450,570,630 6((14)(1))1:J((10)(1))1:KJ1410:M((40K)(1)):N((40J)(1)):N,NJM:M,MKNJ:N,NJMK:M,MKN @0:J2310:IN1NJ1:M1,MK1I:I:20:310 JR0:J((40)(1)):K. PRESENTS:":7:"COLOR DEMOS":10Y "1 SQUARES":"2 WORM":"3 MOSAIC":"4 APPLE" "5 BLENDED COLORS":"6 COLOR SKETCH" :: "HIT ANY KEY FOR NEW DEMO"::"WHICH DEMO # ?"; KE(16384):KE177KE182280:16368,0 "KE176: A R N"N 15:"O M Y G":16:"U";:40:"E";d 17:"N":18:"D" 50,63:::10:" ":10:" P R E S E N T S ":10:" " 50,255 I13000:I# :936:3:10:"A.P.P.L.E33:" ";:39:" "# 50,255:t "A P P L E":2:"P U R I X" 3:"P G O B C":4:"L E G R H" 5:"E T R A A":14:"S ";:17:" ";:21:" ";:25:" ";:33:" "f d" ";:9:" ";:17:" ";:25:" ";:33:" " n" ";:5:" ";:9:" ";:17:" ";:25:" ";:33:" " x" ";:5:" ";:7:" ";:9:" ";:15:" ";:17:" "; 23:" ";:25:" ";:31:" ";: 10000:40%(16384)128ı916368,0::40I(:16298,0]2"NOMON I,C,O"<I0:J0:K0:L0:M0:N0:R0:P(6),C(6)F50,63::936P1:2:" ";:9:" ";:17:" ";:25:" ";:33:" "* Z" ";:5:" ";:9:" ";:13:"      )04140:Q12:A(16336)(16336):Z110:Z,QbX0X394080:X1,Y)0X1,Y)04080:"DX1:((2)(1))1DX1#XDX,Y)04130:4150,Y394170:YY1:0:HX,HY:HXX:HYY:C:X,Y:41106XXDX:0:HX,HY:HXX:HYY:C:X,Y:Y39M04090dF(16336)(16336)(16336)(16336)(16336)(16336)(16336)(16336)8000:Y5:X((39)(1)):X,5)04090:C((15)(1))18,8)01100:MM1:HXX:HYY:22:" THERE ARE NOW ";M;" BITS IN THE BIN"2X,Y1:0,391:0,3938:0,3939:0,3938:0,3939]8:5,70:5,72:5,74:5,1:5,3:7,1:7,3:0,49:11,130:0,412:0,421:0,423:22,0:22,2:22,40,425:0,427:0,431:28,1:29,2:30,315I1300:((36)(1))2,((29)(1))9:IĎ39Y,39XZ  M1ĎX,Y39Z9 M1Ď39Y,39X39Zj T((20)(1)):S((20)(1)):R((20)(1))} R10S10N1 N1ďR,ST N1ďR,S39T N1ď39S,39RT N1ď39S,39R39T 8000:3010::936:M0:4,0,390, CO:2010:2030:XOX:YOY:AA1:ANA1@!XXQ(Z):YYQ(Z)\*0:2010:ZZ1:ZNZ1l+8000:2070t : ((16)(1)):((255)(1))150Ĉ M0:N0:X((20)(1)):Z((20)(1)):Y((20)(1)) X10Y10M1 M1ĎX,YZ  M1(FL2(FL2))2.05)(FL2)DYDY9YYDY:X0X19GX19X0TY0YXaYXY0g936:XQ(N),YQ(N):K1N:XQ(K)0:YQ(K)0:K A1:Z2:XO10:Y05:CO9:FL0XQ(A)XO:YQ(A)YO:XXO:YYO:((7)(1))2080:COCO1:CO15CO1I1PXI39PYJ1ı(:COPXI,PYJ)7DCO11S1=EP:N50::205020X,20Y:19X,20Y:20X,19Y:19X,19Y20Y,20X:19Y,20X:20Y,19X:19Y,19X:XX1(3(1)1(1)):DY(3(1)1(1))1:(3(1))0FL1FL$(A(K)G(T)G(T)B(K)"PT:3G(T)01770?M0ı\(G(P)16)(G(T)16)ıwKK1:C(K)T:A(K)E(S)SS24((S1)4):B(K)E(S)S0:PXI0PXI39PYJ1ıCOPXI,PYJ)CO2S1CO0S2&0S0:PX6S1:1740 @TP19:T01620.JS2:1740OTTP1:(T19)(P19)1650]^T01650khS3:1740rTP19:T3601670|S4:1740K01680:P1:K1(1(K)):TC(K)G(T)0M1M0B(K)B(K)16(G(P)16)G(P)G(P)8:"FREE AT LAST !! AFTER ";TR;" TURNS"N I02000:X(255(1))9:I:1040 RR1:R2(R)P:23:18:"TIME TILL MAZE = ";:W1361R:W110ĺ"0"; W1100ĺ"0"; W1,: FF1:P1:FRPR2(F)  "K0 ,TP1:(T19)(P19)1600 I0:J1:1800:S014907 I0:J1:1840:S01510T I1:J0:1840:S01510r I1:J0:1840:S01510 I0:J1:1840:S01510 8:PX,PY:1360 11:PX,PY 15:PXPXI:PYPYJ:PX,PY:S21520:1400 8:PX,PY:1500' ::39:K:2T1,399 <KT219:2K1,39:2K,39:K:39,39J F2:2T2,39d PI139:I,1)2PXIk QI Z16368,0:15:TR0 dPY1 nPX,PY x8000:TRTR1:I0:J1:1800:S01490 I1:J0:1800:S01490 I1:J0:1800:S01490 (T2)CO9 9:2L1,2K12 CO:2L,2K1F L:9:39,2K1R L119m T(G(19(K1)L1)4) CO2:T2(T2)CO9 CO:2L1,2K 2:2L,2K L:9:39,2K K PR2(1):TP19(P19) (9 2K1T:2K1,39:2K,' 8N(1)3(7(1)):N(2)357(7(1))@ BG(N(1))2:G(N(2))24^ LPN(1):1540:PN(2):1540o VL3L:PN(L) `1570:P01140 j1540:1150 t1560:P01160 ~N(L)P:1110  K119 L119 T(G(19(K1)L1)2) CO2:T2l0201,128:202,79:203,199:204,82:205,255A 10000:9000O::936mA(3),B(3),C(3),E(4),N(2)G(361),R2(361)E(1)1:E(2)2:E(3)4:E(4)8R1:F1:M0:L2::$22:12:"THE MAZE !!".K1361:G(K1)0:R2(K1)0:K         X,Y)02450 X,Y*$ AII:AXX:AYY@. M1N3:M:NN1G8 2ZB IBI:XBX:YBYbL Q0lV 2170` X,Y)02450j X,Yt BII:BXX:BYY~ M1N3:M:NN1 2280 :Q12490 A$;" WINS!!" ASAS1 2510 B$;" WIX1 X39XX1 0Y39YY1@X39XX1FVY39YY1\lY39YY1{X0XX1X0XX1Y0YY1X0XX1X0XX11IAI:XAX:YAYQ1 2170 29:BY29:BI0R15*\0,390:0,3939?f0,390:0,3939Pp:"":2280Vv`x MODwzAQ(I((Q)86)7)|BQ8:10220~ICQI2190,2200,2210,2220,2230,2240,2250,2260,2270Y0YY1Y0YY1X39XPOSSIBLE"T:"THIS GAME TAKES PRACTICE SO DON'T GIVE UP ON THE FIRST TRY!"v20:"HIT RETURN TO BEGIN";A$ :::::4"WHO WILL BE RED ? ";A$:"AND WHO WILL BE BLUE ? ";B$ AS0:BS0*:34,214AX10:AY10:AI4>N225 HBXLAYERS"::"STARTING WITH AN EMPTY SCREEN, PATHS""ARE DRAWN BY THE TWO PLAYERS ONE RED AND THE OTHER BLUE"::"THESE PATHS ARE CONTROLED BY PDL(0) AND PDL(1)" :"THE OBJECT IS TO KEEP YOUR PATH FROM RUNNING INTO ANYTHING FOR AS LONG AS PQ1570Q34ďQ6,390+PQ:15702"I@,M1:1010X6A:X,Y3:24:1180y@"ANOTHER GAME (Y/N) ? ";B$JB$(1,1)"N"ĀT"SAME COLORS, ";A$;" "^B$hB$(1,1)"N"1360r14501"THIS IS A SURVIVAL GAME FOR TWO P(120)(1)):V2:W((5)(1))2.E:X,Y3BLL1:L11590a6:L1ĺL;" BALLS LEFT "L1ĺ"LAST BALL, ";A$;" ":I1100Q(((0)20)6):Q0Q0Q34Q34D:Q,Q50:A:PQ1560Qď0,Q10PQ:1570"INVALID. REENTER.":1430?34,20:A:I039:0,39I:IiI20342:I1:I29;:B:0,39I:Cs MODAQI:BQ4:10220JCQ394J,J1I:J,I5:"SCORE = 0":::34,21:S0:PS:LS:X18:Y19:L6 A:X,Y3:X18:Y(;:If MOD#gAQI:BQ2:10220)h4i21CQ\n34,22:24::"BACKGROUND ";:1430xAE:"EVEN BRICK ";:1430:BE:"ODD BRICK ";:1430:CE"PADDLE ";:1430:DE:"BALL ";:14301450"COLOR (0 TO 15) ";E:E0E1514404:10:"*** BREAKOUT ***"F (:" OBJECT IS TO DESTROY ALL BRICKS"i 2:"HI, WHAT'S YOUR NAME? ";A$ <:"STANDARD COLORS, ";A$; F" (Y/N)? ";B$ P::B$(1,1)"N"1450 ZI039:I2(I32):0,39I:I d34,20::::I015eII1:I "LOUSY.":1270' "POOR.":1270: "FAIR.":1270M "GOOD.":1270e "VERY GOOD.":1270} "EXCELLENT.":1270 "NEARLY PERFECT." I12000:I:10 X0:Y0:V0:W0:J0:I0:A0:P0 ::A0:B2:C6:D12:E15 ::16298,0 16336)(16336)(16336)(16336)(16336)(16336)(16336)(16336)(16336)(16336)(16336)z ~S7201100 24:"CONGRATULATIONS, ";A$;", YOU WIN!" 1600 "YOUR SCORE OF ";S;" IS ";:SS(S100)10:1190SS "TERRIBLE!":1270Q 8N(16336)(16336)(16336)(16336)(16336)(16336)(16336):1110s BI16:M(16336):I:IX:M0| LVV VX,Y3:E:I,K:XI:YJ:1010 `I180:Q(16336):I:1490 jMV(V) kK22,K221I:SSI29:21:13:Sj tQ(ɂI IXV:I01120+ Q(((0)20)6)8 Q0Q0G Q34Q34d D:Q,Q50:A:PQ1050t Qď0,Q10 PQ:1060 PQ1060 Q34ďQ6,390 PQ $A:KJ3:I391090 %I,K)A1110 &I1130 'W(KP)25:M1 .V20 COLOR GAME PAK I5 A.P.P.L.E. DISKPAK 12A;AY A.P.P.L.E. HEADERd 10000j p*v4|>H FAST-BREAKOUTR\1280: FAST BREAKOUT BY MARK CROSSJYW:J0J1201020 WW:JY:I16:K(16336):               ):"7 8 9":(22) f"SHOOT-";:XpKE(16384):KE177KE1852160:16368,0:AKE176_zApS(A)12210"YOU CAN'T SHOOT A BLACK HOLE!"I11500:I:2130 MODAQABQ3:10220X13(CQ1)6Y13((A1)3)6S(A)F128195016368,0$*06< Q  SHOOTING STARSW c :2460i X63313:Y63313*T0:X19Y19T142500>Y,XHS(9):I19:S(I)0:I:S(5)1R936\(20):"1 2 3":(20):"4 5 6":(20ARBLES IN THE BOTTOM":"YOU LOSE!!!"1lSMUWv"YOU SCORED ";S;" PERFECT IS 68"lI13000:I:70"YOU WIN---YOU WIN ";A$1900V((0)5)V3V3V37V377V,0N140:N0:V,0F(16384)01870C:X,Y1540;XXDX:0:HX,HY:HXX:HYYBCKX,YZY381800nX,Y1)01540X2X381450XDX,Y)014501750&0:2,32038,32:MM1D1450N::XM66U51930'b"THERE'S ";U;" M1450"6DX1:((2)(1))1DX18@XDX,Y)01590BJ1750WTY371630:1660c^T238whT,37)0UU1~rT|M66U41870Y381550YY10:HX,HY:HXX:HYYX2Y321830X38Y3218304,38)036,38)M0:2:2,33:38,33 19502MM1:Y0:XVQC((15)(1))1:HXX:HYY_C21470m22:936"SO FAR YOU'VE DROPPED ";M;" MARBLES, ";A$X,Y1)01620Q12A(16336)(16336)"Z15:Z,Q,X,Y)0X1,Y)0TURN' WHEN READY";B$;dU0::936:2:H1392:V1394cn0,391:0,3939:1,3939:H,V:V,HxH2398:V1394:V,V2H:V,HH6378:V3374:V,V2H:V,H0:H13:V338:V,H:V,37:H,38:V,HH138:0,H:2,H:38,H:H:N0T ANY MARBLES FALLING THRU":"TO THE BOTTOM."f2:"WHEN 5 MARBLES FALL THRU":"THE GAME IS OVER.":<"A PERFECT SCORE IS 68"::"IF A MARBLE FALLS OFF THE EDGE"F"NO POINTS ARE GIVEN AND NO BALL COUNTS":P8:"GOOD LUCK! ";A$:Z"HIT 'RE:(B$,1,1(1)1)"Y"1380n 936:4:" INSTRUCTIONS......"::"USE PADDLE (0) TO SET THE PLACE FROM""WHICH YOU WANT TO DROP THE MARBLE.":"THEN, PRESS ANY KEY TO DROP IT.":"THE OBJECT IS TO PLACE A MARBLE IN EVERY";-("CUP, WITHOU0:"WHICH GAME #"a KE(16384):KE177KE179260:16368,0:1014,45:(KE176)1240,2060,2560g m   MARBLE DROP  :: : 22:"HI THERE, WHAT'S YOUR NAME ";A$ "DO YOU WANT INSTRUCTIONS (YES OR NO)? ";B$B$""129050,63:::10:" ":10:" P R E S E N T S ":10:" "i 50,255z I13000:I :936:3:10:"A.P.P.L.E. PRESENTS:":7:"COLOR GAMEPAK II" 10:"1 MARBLE DROP ":"2 SHOOTING STARS":"3 MOUSE" 2 I X"a 3:"P G O B C":4:"L E G R H" 5:"E T R A A":14:"S A R N" 15:"O M Y G":16:"U";:40:"E"; 17:"N":18:"D"] 8 n" ";:5:" ";:9:" ";:17:" ";:25:" ";:33:" "q x" ";:5:" ";:7:" ";:9:" ";:15:" ";:17:" "; 23:" ";:25:" ";:31:" ";:33:" ";:39:" " 50,255: "A P P L E":2:"P U R  D HEADING E4 F:50,63::936v P1:2:" ";:9:" ";:17:" ";:25:" ";:33:" " Z" ";:5:" ";:9:" ";:13:" ";:17:" ";:21:" ";:25:" ";:33:" " d" ";:9:" ";:17:" ";:25:" ";:33:" "[! 3270: COLOR GAMEPAK IIB APPLE PUGETSOUND PROGRAM ` LIBRARY EXCHANGE }( 6708 39TH AVENUE SW 2 SEATTLE, WA. 98136 < EDITED BY RON ALDRICH A UPDATED 11-10-81 DMC            "+"ENTER 3RD WORD ";A3$:(A3$)6540:590:C(2)P(A3$)0A3$" "y&"ENTER 4TH WORD ";A4$:(A4$)6550'590:C(3)((A4$)0A4$" "0"ENTER 5TH WORD ";A5$:(A5$)65601590:C(4)2(A5$)0A5$" ":"ENTER 6TH WOR518:"13 YELLOW";:519:"14 AQUA":I"15 WHITE";:518:"16 RANDOM":R520\15:f30:"ENTER 1ST WORD ";A1$:(A1$)6520 590:C(0) (A1$)0A1$" ""ENTER 2ND WORD ";A2$:(A2$)6530590:C(1)(A2$)0A2$"COLOR SELECTIONS:":K"0 BLACK";:518:"1 MAGENTA";:519:"2 DARK BLUE""3 PURPLE";:518:"4 DARK GREEN";:519:"5 GREY":"6 BLUE";:518:"7 LIGHT BLUE";:519:"8 BROWN":"9 ORANGE";:518:"10 GREY";:519:"11 PINK":$"12 GREEN";:C6A4$"STUVWX":C(3)16:A5$"YZ1234":C(4)16:A6$"567890":C(5)16U@R1:250:150JA2$"+-*/":A4$"< = >":A6$"? ! $":A1$"APPLE":A3$A1$:A5$A1$:150:305936:"PLEASE ENTER SIX 6 LETTER ALPHA-NUMERIC 'WORDS' AND THE DESIRED COLORS.":"(1)):X((36)(1)):Y((42)(1)):1014,0:((59)(1))41I250:210rAA(16384):AA127270:16368,0:16368,0::1050:1050:1000,:16302,0:BK:M039:0,47M:M1A1$"ABCDEF":C(0)16:A2$"GHIJKL":C(1)16:A3$"MNOPQR":C(2)167,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98,99jM,LI11500:I:BK((16)(1)):BK5BK10160:BK:I039:0,47I:I250:R1ı150:16302,0:I4047:0:0,39I:I;((16)3$:hA$A4$:iA$A5$:+jA$A6$:MxD((16)(1)):DBK120:D:}L05:1014,0:L1101,102,103,104,105,106YL81:C(L):M0(A$)1:XM6203(A$):C(L)16İ120a1014,0:NL((A$,M1,1))47:NL57,58,59,60,61,62,63,64,65,66,6Z1:15:5:26:*[1:15:9:7:23:I\10:2:5:11:17:7:18:V]27:2:f^1:36:5:_10:9:28:29:30:`1:36:31:a32:33:16:17:18:19:b16:17:34:35:c2:5:32:d150eA$A1$:fA$A2$:gA$A19:M1:37:15:14:5N1:2:5:12:19:17:IO1:2:17:12:cP1:2:17:5:4:38:sQ1:36:7:R27:20:21:S36:5:18:T1:22:23:U1:5:19:V1:36:24:W1:36:33:X1:2:5:36:Y1:15:9:7:3:4:5:6:7:16:X,Y2:1 B2:5:7:10:36:9 C41A D41O E22:23:o FX1,X3Y2:X1,X3Y4: GI03:XI,Y6I:XI,YI:I: H2:16:9:13:X2,Y4:X2,Y6: I41 J1:2:7:36: K15:14:1:3:4:7:L1:2:5:17: 47:Y1,Y5X2: 541& 67:5 7X2,Y6:P 87:X2,Y1:X2,Y5:^ 988:32:s :27:X1,Y:20: ;2:5:8:9:7:19: <2:5:13:16:18:36: =7:10:36: >2:10:7:11:5:18: ?1:2:7:5:11: @2:36: A2:&X3,X4Y4:5 )BK:I04:Y,Y6XI:I:C(L):O *Y,Y4X2:X2,Y6:k +Y,Y2X1:Y,Y2X3:s ,41 -X,X4Y1:X,X4Y3:X,X4Y5:X,Y2:X4,Y4:27: .32:17:18:16:19: /41 0Y,Y2X2: 141 241 332:33:Y1,Y5X3: Y,Y6X2:1 Y4,Y5X1:D Y4,Y5X3:S X2,Y6:x X1,Y5:X3,Y5:Y3,Y4X2: I04:XI,Y5I:I: !I04:XI,Y1I:I: "X1,Y2:X3,Y2: #Y3,Y6X2: $Y,Y6X4: %Y1,Y5X4: X,X3Y6: X,X3Y:- Y,Y1X:> Y,Y1X4:O Y5,Y6X:b Y5,Y6X4:u X1,X3Y6: X1,X3Y: I14:XI,Y4I:I: I24:XI,Y2I:I: X1,Y1:X3,Y1:Y2,Y3X2: I13:XI,YI:I: 10000:C(16):R0:1000,Y,Y6X:;X,X4Y:NY1,Y2X4:aY4,Y5X4:rX,X4Y6:Y4,Y5X:X1,X3Y3:Y3,Y6X: Y,Y3X4: Y,Y3X: Y3,Y6X4: X,X2Y3: X2,X4Y3:     ;31,12:30,13:32,13:29,14:33,14:30,15:32,15:31,16CBCo17,2221:17,2227:22,2616:22,2623BI:19,2023:19,2025:18,24:21,24BI$19,205:BS:8,31:31,31.BD:19,2031:19,2032:19,20338BS:9,251:9,254:9D12:DB15:BI14:BS3:BS8:FL7<:N039:BG:0,39N:N]BO:0,390:0,390:0,3939w0:1,1739:22,3839BT:19,203:18,4:21,4:17,5:22,5:18,621,6:19,207:BI:19,205BL:8,12:7,13:9,13:6,14:10,14:7,15:9,15:8,168:"TO SHOOT A BALL, HIT ANY KEY."::"THE FLIPPERS ARE CONTROLLED BY THE BUTTONE ON THE GAME CONTROLLERS AND BY THE '<,' AND '>.' ON THE KEYBOARD.":::"HIT ANY KEY TO START":715936:BG13:BA0:BO6:BT1:BL9:BC2:BT4:BS11:B:760>0:22,3839:7700H0:1,1739:780tR860:23:50,63:10:"DOUBLE POINTS WHEN LIT":50,255:DB1:570\DB:19,2031:19,2032:19,2033:fBD:19,2031:19,2032:19,2033:DB0:k PINBALLp:936:16298,0zHI10:720(787,3:788,96:C(16287)127(16384)174(16384)190790v(16286)127(16384)188(16384)17281016368,0:RTRT1:RT4830LTLT1:LT4840 RT0760 RT9:FL:22,3839:750*LT07604LT9:FL:1,1739AME ":"WOULD YOU LIKE TO PLAY AGAIN? (Y OR N) ";Q$:Q$"Y"940j10770,173:771,48:772,192:773,136:774,208:775,4:776,198:777,1:778,240779,8:780,202:781,208:782,246:783,166:784,0:785,76:786,2:14*bZ13:768,P:769,20((20)(1))3l770?vZ:510WDB0650:DB166023:10:"HIT ANY KEY FOR NEXT BALL":50,63:23:10:"DOUBLE POINTS WHEN LIT":50,255:768,200:769,100:770CO:X,YLE01110b"END OF G1:510J0W(16336)(16336)(16336)(16336)(16336):OY30:510:OX((5)(1))2:OY((180)(1))90:OX0OY10OY10570DSCSCHI:936:22:14:"SCORE= ";SC;:27:"BALLS LEFT= ";LE;:640N22:"POINTS=";HIXP160(2HI):P14PCOBSCOBI570(COBSCOBS5707COBD850EY39530\CO:X,Y:HI0:250iCO:X,YyCOFL670OY((5)(1))OY:OX((5)(1))2:W(16336)(16336):HI3:580&W(16336)(16336)(16336)(16336)(16336):OXOX @BA:X,Y JX0X39550* TY05609 ^COBG500I hCOBLİ870Z rCOBTHI20k |COBLHI15| COBCHI10 COBDHI25 COBSHI50 COBIHI25 COBSHI5 COBSHI75 DB1HIHIHI COBTCOBLCOBC570868:"WHICH GAME # ";I) I1I3210G 1014,45:I880,1150,2460g 880: FAST GRAVITY PINBALL XXOX:Y(YOY30):X39X39 X0X0 Y39Y39 Y0Y0 "OYOY6: STRENGTH OF GRAVITY ,740: UPDATE FLIPPERS 6COX,Y) ":10:" P R E S E N T S ":10:" "P 50,255a I12000:Im :936 2:10:"A.P.P.L.E. PRESENTS:" 8:10:"CASINO GAMEPAK #1" 10:"1 GRAVITY PINBALL":"2 BLACKJACK":"3 ONE ARM BANDIT" 20: G O B C":4:"L E G R H" n5:"E T R A A":14:"S A R N" x15:"O M Y G":16:"U";:40:"E"; 17:"N":18:"D"D 50,63:::10:" ";:17:" ";:25:" ";:33:" "X <" ";:5:" ";:7:" ";:9:" ";:15:" ";:17:" "; F23:" ";:25:" ";:31:" ";:33:" ";:39:" " P50,255: Z"A P P L E":2:"P U R I X"H d3:"P . 10000:50,63::936]1:2:" ";:9:" ";:17:" ";:25:" ";:33:" "" ";:5:" ";:9:" ";:13:" ";:17:" ";:21:" ";:25:" ";:33:" "(" ";:9:" ";:17:" ";:25:" ";:33:" " 2" ";:5:" ";:9:"                 *** HURKLE *** T PEOPLE'S COMPUTER COMPANY, MENLO PARK, CA. MODIFIED BY VAL GOLDING 1.31.78  A.P.P.L.E. PUGETSOUND PROGRAM LIBRARY EXCHANGE  6708 39TH AVENUE SW  SYOUR PERFORMANCE COULD HAVE BEEN":"BETTER, BUT WAS PRETTY GOOD":{P(8(1)10);" PEOPLE WANT TO SEE YOU ASSINATTED" "BUT WE ALL HAVE OUR TRIVIAL PROBLEMS."*23:"ANOTHER TRY ?";A$4A$""1010>(A$,1,1(1)1)"Y"1010H10 132060L102060Y"A FANTASTIC PERFORMANCE!!!":"THE PEOPLE LOVE YOU!!!":2090"DUE TO YOUR HEAVY-HANDED PERFORMANCE":"THE PEOPLE (REMAINING) FIND YOU AN""UNPLEASENT RULER AND FRANKLY,"::" HATE YOUR GUTS!!!"2090B "TION STARVED PER YEAR."X"A TOTAL OF ";D1;" PEOPLE DIED.":L(AP):LL(A10PL10):"YOU STARTED WITH 10 ACRES PER PERSON""AND ENDED WITH ";L;".";LL;" ACRES PER PERSON.":P1331850L71850P1102030L92030PU ONLY HAVE ";S;" BUSHELS":IX23:868:"YOU ONLY HAVE ";A;" ACRES":}b:936::"HAMMURABI I CANNOT DO AS YOU WISH."l"GET YOURSELF ANOTHER STEWARD!!!":2090vI15000:I::936::"IN YOUR 10 YEAR TERM OF OFFICE"P1;"% OF THE POPULA1D1D:1110E0:936::"YOU STARVED ";D;" PEOPLE IN ONE YEAR!!!"::"DUE TO THIS EXTREME MISMANAGEMENT YOU":"NOT ONLY HAVE BEEN IMPEACHED AND THROWN"D"OUT OF OFFICE BUT YOU HAVE ALSO BEEN":"DECLARED NATIONAL FINK!!":2090N23:868:"YOS(D2)C((5)(1))1.YC:HDY:E0RC(5(1))1:C(C22)1760_E(SC)kSSEHC((5)(1))1I((2AS10)PC101)C(Q20)PC1100DPC:D(45P100)1840P1(((Z1)P1D100P)Z) &PC:D"1530,SSQ:C1%623:868:H@"ACRES TO PLANT WITH SEED ";D`JD01890:D01720oTDA1650y^1880h1600r(D2)S1680|18701600D10P171023:"YOU HAVE ONLY ";P;" PEOPLE TO PLANT IT"1600SQ01520$AAQ:SSYQ:C0.1520>23:868:i"HOW MANY ACRES TO SELL ";Q:Q01890wQA151018801470AAQ:SSYQ:C023:868:"BUSHELS TO FEED THE PEOPLE ";QQ01890QS15801870 <23:"TYPE 'YES' , 'NO' , 'BUY' OR 'SELL'"7 F1290{ P"BUY OR SELL ?";A$:(A$,1,1(1)1)"B"1380:A$11)"S"1460 Z23:"TYPE 'BUY' OR 'SELL'":1360 d23:868: n"HOW MANY ACRES TO BUY ";Q:Q01890 xYQS1430 18701390((9)(1)):YC17K :"LAND IS TRADING AT";:(20):Y;" BUSHELS PER ACRE"Z 34,23:24 "DO YOU WISH TO BUY OR SELL LAND ?";A$ (A$,1,1(1)1)"N"1520 (A$,1,1(1)1)"Y"1360 ((A$,1,1(1)1)"B"1380 2(A$,1,1(1)1)"S"1460-0):P 8 "THE CITY NOW OWNS";:(20):A;" ACRES"> t "HARVEST PER ACRE =";:(20):Y;:(26):"BUSHELS" E01240 "RATS HAVE EATEN";:(20):E;:(26):"BUSHELS" "GRAIN IN STORE =";:(20):S;:(26):"BUSHELS" Z111910 C1 LD0: V:936M `::"HAMMURABI: I BEG TO REPORT TO YOU,"::ZZ1z j"YEAR ";Z::"PEOPLE STARVED =";:20:D tR((P(1))15100):Z1R0 ~PPR:"TOTAL THAT DIED =";:20:RD "NEW PEOPLE =";:20:I:PPI "POPULATION =";:(2SIC COMPUTER GAMES' BY DARRELL ALDRICH2 :936I (15):"HAMMURABI"S ::} "TRY YOUR HAND AT GOVERNING ANCIENT" "SUMERIA FOR A TEN YEAR TERM OF OFFICE." $D10:P10 .R14000:R 8Z0:P95:S2800:H3000:EHS BY3:A1000:I5:Q 10000 :936>2:10:"A.P.P.L.E. PRESENTS:"^8:10:"EDUCATIONAL GAMES"(10:"1 HAMMURABI":"2 HURKLE":"3 MULTIPLY"220:868:"WHICH GAME # ";I<I1I350F1014,45:I20001000&  HAMMURABI ADAPTED FROM 'BA           OPYRIGHT (C) 1978 BY A.P.P.L.E. PUGETSOUND PROGRAM LIBRARY EXCHANGEA 200! HH1:M0:H12H1* 200@ ,H;":";:M10İ90V -M;":";:S10İ90^ .S:o 6I13500:I @:936:4:"TO RESET TIME, TYPE 'RUN'." J8:4:"ELAPSED TIME "; ^EH;":";:EM10İ90 _EM;":";:ES10İ90 `ES hI CM10İ90 M;":";:S10İ90% Sa ADJUST MAXIMUM VALUE OF I TO VARY CLOCK SPEEDu I1638:I:60 ESES1:ES59240 260 EMEM1:ES0:EM59250 260 EHEH1:EM0 SS1:S59270 200 MM1:S0:M59280MES AS ZERO"j :"TO FREEZE TIME, HIT RETURN"::"AFTER A BRIEF PAUSE, ELAPSED TIME WILL BE DISPLAYED" 80:"HRS:MIN:SEC" 70:"SET TIME " 70:"HOURS":H 70:"MINUTES":M 70:"SECONDS":S 936:37,23:34,24 15:H;":";: FEB 12, 1978 $ 2100? <X(16384):X127300O =16368,0:[ F:15:i P16:70:u Z"0";: d:936:4 n"THIS PROGRAM FUNCTIONS AS EITHER A":"REAL TIME CLOCK OR STOPWATCH" x:"FOR STOP WATCH FUNCTION, ":"ENTER ALL TIK "STOPWATCH"4 ^^^^^^^^^:W BY BOB HUELSDONK &q VAL GOLDINGy  APPLE PUGETSOUND PROGRAM  LIBRARY EXCHANGE   6708 39TH AVE. SW SEATTLE, WA. 98136      00:KE1273140+:2:X039:0,39X:XQN0:13:B27:X316:4030:X:N0uB27:X36231:4030:X:404025,BX:NN1:N4N0BB1:N1BB12:A5:B25:X13:4050:AA4:BB3:X:406025,B1A:25,B2A1:)A3:A,B3:A1,B2:AA7:BB1:X:3220{ F3:8:A12:B16:X14:A1,B2:A2,B3:A3,B2:A4,B3:AA7:BB1:X:3220 F1:A12:B16:8:X14:B2,B3A:B2,B3A2:AA7:BB1:X 0:37,13:Z38((5)(1)):13:X3435:Z,Z1X:X 200ī3170P F3ī3180MX X14:B2,B3A:B2,B3A2:AA7:BB1:X:3190b X14:A1,B2:A2,B3:A1,B2:A,B3:AA7:BB1:X:3200l X14:A1,B2:A2,B3:A3,B2:A4,B3:AA7:BB1:X:3210&v F2:8:A12:B16:X14:A1,B2:A2,B0:X4Ġ10' A4,B:15:A1,B1:AA7:BB1:X0 4:"S E A S O N 'S G R E E T I N G S":4:"TO YOU AND YOURS FROM ALL OF US AT":12:"APPLE PUGETSOUND":F1: Z3D X1300:X:1:37,13:0:X3435:Z,Z1X:XN A12:B16:2:F1ī3160O F2,23:6,24E 8:X2023:1,6X:X:10:1,316:1,318:1,319:2,17| 10:X1619:1,4X:X:1:X1619:5,6X:X:7,17 10:2,315:1,414:15:5,615 A12:B16:X14 8:B,B3A:B,B1A1:B,B3A2:B1,B1A3 & A2,B2:A4,B2:E36:F0:X3033:A,AFX:B,BFX:C,CFX:D,DFX:E,EFXi AA1:BB1:CC1:DD1:EE1:FF2:X X3437:2,6X:10,14X:18,22X:26,30X:34,38X:X 0:X3435:3,4X:19,20X:27,28X:11,12X:35,36X:X  24,251:2,725:8,24:9:X:X2829:12,27X:XTf9:X1425:A((4)(1))22:B((3)(1))26:A,BX:XdpX1100:Xz10:X2228:14,25X:X:8:X2528:14,25X:X20000:KE1272150 :2:X034:0,39X:X:15:X3539:0,39X:X> 8:A4:B12:C20:D28::B21:X3639:A,BX:AA2:BB2:XR415:X1112:7,13X:17,23X:27,33X:X>1:X1316:8,12X:18,22X:28,32X:XH7,1217:17,2217:27,3217:6,1118:16,2218:26,3118RX1920:4,10X:24,30X:14,20X:X\8:X2627:14,25X 7:X029:0,39X:XF15:A10:B29:X029:X10ī2030P2040bX15:B34:A5pA,BX:X8:X1014:5,34X:X 10:X1529:10,29X:X14:X3039:0,39X:X 1:A18:B21:X3239:A,BX:AA2:BB2:X$*6:A18 nI150:I:2:D,K. xI150:I:2:X,YE I150:I:2:M,Rf Z((14)(1))1:Z12ī1420m Z Y16:X13333:X,Y:YY2:X:Y20:X11233:X,Y:YY2:X ((14)(1))1 Y24:X9153:X,Y:YY2:X:7,2820000:KE12711701:Z12ī1330 3Z7 <Y12:X15273:X,Y:YY2:Xq F13:D((40)(1)):K((40)(1)):SD,K):S2ī1350 P13:X((40)(1)):Y((40)(1)):SX,Y):S2ī1360 QX,Y Z13:M((40)(1)):R((40)(1)):SM,R):S2ī1370 [M,R dD,K(1)):SM,R):S2ī1260" M,R\ 13:X((40)(1)):Y((40)(1)):SX,Y):S2ī1270e X,Y 13:D((40)(1)):K((40)(1)):SD,K):S2ī1280 D,K I150:I:2:M,R I150:I:2:X,Y (I150:I:2:D,K 2Z((14)(1))M,R@ 13:D((40)(1)):K((40)(1)):SD,K):S2ī1190I D,K` I150:I:2:X,Yw I150:I:2:M,R I150:I:2:D,K Z((14)(1))1:Z12ī1240 Z:19,5:22,7:Y8:X17243:X,Y:YY2:X 13:M((40)(1)):R((40)632:25,3132& `30,3513:30,35276 j7:X3339K t6,14X:20,28XR ~X 1:6,1435:20,2835:33,3910:33,3924 13:X((40)(1)):Y((40)(1)):SX,Y):S2ī1170 X,Y 13:M((40)(1)):R((40)(1)):SM,R):S2ī1180 [,  30000*:15:I2540:0,39I:I4936N2:W024:0,39W:Wk13:0,219:18,201:12X2:I113:XX1:19I,19IX:XX1:19I,19IX:I8:I2934:19,I:I$1.X3035810,16X:25,31XBXL12 V10,1                       WERE NEVER SEEN AGAIN":"1300(d936:Z18:::" ********CRASH*********"(7):Zj2THER MISSION(Y/N)?";A$ a:X02fA$"Y" 100Jp:"CONTROL OUT ":t787,X:785,Z:J(784):(810)51200~q1300787,X:785,Z:784:(810)71200936:::::"YOU HAVE LEFT THE MOON'S GRAVITATIONAL PULL":"YOU NDS"&F;" UNITS OF FUEL REMAINING"5V10810c "CONGRATULATIONS!!!...A PERFECT LANDING"%"YOUR LICENSE WILL BE RENEWED"*(V1)28404"****SORRY, BUT YOU BLEW IT!!!!!">"CONDOLENCES WILL BE SENT TO YOUR NEXT OF KIN"H" ANO# 5 :Z35H33500:XX1: X,Z3X38X38;B0D540JT936y:::" *****CONTACT******"HH.5(VV1)B5720D(V(VVH(102B)))(5B)730DHVV1V(5B)D"TOUCHDOWN AT ";TD;" SECO38 900 19:B$ B06503 B30B30@ BFBFM V1VB5W 0FFBi :HH.5(VV1)v DH0665 NTT1 XVV1 bF0457 gB0640 l"***OUT OF FUEL***" q"SEC FEET VEL FUEL" rN11500:N(T);(H);(V);(F);41,42,3,96$ rW784794:P:W,P:WH " BEGIN LANDING PROCEDURE"a T0:H500:V50:F200 "SEC FEET VEL FUEL BURN" (T);:5:(H);:10:(V);:14:(F);  5 :Z35H33500:Z01000 X,Z:M1050:Q(16336):M XX1:X38XRE YOU READY(Y/N)?";A$& +A$"Y"100P ,::" CHICKEN! YOU HAVE TO ANYWAY"p d : 4:I3639: 0,39I:I 7:I012:J(35(1)):J10J10 J,35I:I , 7:I3439:J(35(1)):J10J10 ^ J,35I:I h169,0,160,0,32,113,248,1":2 $"AFTER EACH BURN A DISPLAY AND DATA WILL"G %"BE REPORTED":u &"YOU MAY BURN FROM 0 TO 30UNITS OF FUEL" '"EACH BURN WILL SLOW YOU DOWN BY 30FT/S/S" (:"AFTER CONTACT YOU WILL RECEIVE A FINAL" )"REPORT OF YOUR MISSION": *" A WANT INSTRUCTIONS(Y/N)";A$+ A$"N"100= :"YOU HAVE"j "TAKEN OVER MANUAL CONTROL 500FT ABOVE" "THE SURFACE. YOU WILL HAVE TO AVOID" !"THE LUNAR MOUNTAINS" ":"YOU HAVE A DOWNWARD VELOCITY OF 50FT/S #:"200 UNITS OF FUEL REMAINl  FROM PUBLIC DOMAIN/ SOFTWARE DISKS6 > [ COMPLETE LIST OF DISKSx AND PROGRAMS AVAILABLE FOR S.A.S.E. WITH $.37 THROUGH A.P.P.L.E.   16298,08)"LUNAR LANDING SIMULATION": "DO YOU     6)(16336)(16336)(16336)(16336)(16336):F  DRAW BALLg X,YX2,YX2,Y2X,Y2X,Ym  :"YOU WON! YOU GOT IT OFF THE TOP!": :"TOO LOW - YOU LOST.":3T BOTTOM "1000 ,NX1330* 61000= @NX1:VXVXDVM JNX276360W T1000o ^NX552NX:VXVXDV hXBX:YBY:0:2000 rXNX:YNY:3:2000 |BXNX:BYNY 0:PX,PYPXW,PY PX(0)S1 3:PX,PYPX5,PY 2106 X(1633Y111 VY9:VX(1)1053 XBX:YBY:3:2000Q NXBXVX:NYBYVY:VYVY1m (NY)140(VY)24000| NY13000 NY156300 BX(PX2)BX(PXW)280 VYVY1:NY153:: HIT PADDLE I17:X(16336):I VYLOSSVY:NY156: HI dLOSS3: LOSS AT EACH BOUNCEC nDV.5: SIDEWAYS SPEED-UP RATEZ xW7: PADDLE WIDTHl S(276W)255u :2 0,00,159278,159278,00,0 936:24:"GET THE PADDLE UNDER THE BALL" PX1(0):PY156:1:PX,PYPXW,PY BX(1)2783:B FROM PUBLIC DOMAIN/ SOFTWARE DISKS6 > [ COMPLETE LIST OF DISKSx AND PROGRAMS AVAILABLE FOR S.A.S.E. WITH $.37 THROUGH A.P.P.L.E.  2 BOUNCING BALL CATCHER < MARK CROSSF RUSTON, LAP    :HY29XMXMX:YMYMY.XHXHX:YHYHYB PLACE MONSTERL2000^ PLACE HUMANh2500 BEGIN HUMAN MOVEMENT LOOPT1N"MOVE NUMBER ";T;" OUT OF ";N"HUMAN'S TURN- WHICH DIRECTION (N,S,E,W, OR'X')? ";H$2800PZ22PX13 PZ23PY291PZ23PX19>C3455KC4455aC1C1:C4C4p DRAW PIT|X4:Y2XPXPX:YPYPY0: BLACKI05:XP,XP4YPI:IX4:Y2: SET CONDITIONSXPXPX:YPYPY:MX1:MY1HX2525PZ15PY22$PZ15PX15PZ16PY22EPZ16PX7VPZ17PY22gPZ17PX13xPZ18PY22PZ18PX19PZ19PY22PZ19PX25PZ20PY29PZ20PX1PZ21PY29PZ21PX7PZ22PY29PZ7PY8PZ7PX13,PZ8PY8<PZ8PX19KPZ9PY8[PZ9PX25lPZ10PY15|PZ10PX1PZ11PY15PZ11PX7PZ12PY15PZ12PX13PZ13PY15PZ13PX19PZ14PY15PZ14PX OF PITcX4:Y3'hPZ(23(1))16rPZ1PZ1G|PZ23PZ23VPZ1PY1ePZ1PX7tPZ2PY1PZ2PX13PZ3PY1PZ3PX19PZ4PY1PZ4PX25PZ5PY8PZ5PX1PZ6PY8PZ6PX7 23,Y36:X23,Y36:X27,Y36:X31,Y36zJX1,Y3:X1,Y7:X1,Y11:X1,Y15:X1,Y19:X1,Y23:X1,Y27:X1,Y31TX31,Y3:X31,Y7:X31,Y11:X31,Y15:X31,Y19:X31,Y23:X31,Y27:X31,Y31U15:X11,Y11^ DETERMINE LOCATION,Y34X18:Y1,Y34X248"Y1,Y34X:Y1,Y34X30O, BARS AROUND CAGE^110: GREY6X1,Y1:X3,Y1:X7,Y1:X11,Y1:X15,Y1:X19,Y1:X23,Y1:X27,Y1:X31,Y1(@X1,Y36:X3,Y36:X7,Y36:X11,Y36:X15,Y36:X19,Y36:XY GRID FOR CAGE200$X4:Y2415: WHITE@I035PX,X30YIWI GROUT BETWEEN FLOOR TILES (YELLOW)13X,X30Y:X,X30Y35X,X30Y7:X,X30Y14:X,X30Y21:X,X30Y28Y1,Y34X6:Y1,Y34X12:Y16Y"OF TURNS?(Y/N)";I$:(I$,1)"Y"Ą"HOW MANY? ";NOZN0N(10(1))5[:3)"YOUR ONLY HOPE FOR SURVIVAL IS TO":"OUTWIT HIM FOR ";N;" TURNS OR LURE HIM"\"INTO THE PIT. GOOD LUCK!"_"HIT RETURN TO START GAME.";I$`: DISPLA) R5)"IF YOU CHOOSE 3, THE MONSTER IS"S S"SEMI-STUPID AND THE PIT IS HIDDEN."} T5)"IF YOU CHOOSE 4, THE MONSTER IS" U"SMARTER AND THE PIT IS HIDDEN." V:"WHICH LEVEL OF DIFFICULTY? (1-4) ";CX:3)"DO YOU WANT TO DETERMINE THE NUMBER"DIAGONALLY TOO)":= L3)"YOU MAY DECIDE HOW DIFFICULT YOU"Y M"WANT THE GAME TO BE:" N5)"IF YOU CHOOSE 1, THE MONSTER IS" O"SEMI-STUPID AND THE PIT IS VISIBLE." P5)"IF YOU CHOOSE 2, THE MONSTER IS" Q"SMARTER AND THE PIT IS VISIBLE." NORTH, EAST, SOUTH, OR"C 7"WEST BY ENTERING N,E,S OR W. IF YOU"s <"ENTER ANY OTHER LETTER, YOU WILL STAY IN" A"THE SAME PLACE.": B"HIT RETURN TO CONTINUE.";I$ C F3)"THE MONSTER IS PROGRAMMED TO MOVE" K"TOWARDS YOU (HE CAN MOVE :2 (3)"YOUR MOVEMENT AND THAT OF THE MONSTER"^ -"TAKES PLACE ON A 5X5 GRID. SOMEWHERE" ."ON EACH GRID THERE IS A PIT FILLED WITH " /"QUICKSAND. IF ANYONE FALLS INTO IT HE'LL" 0"SINK---AND LOSE AUTOMATICALLY!" 1 23)"YOU MAY MOVE80)" PP11200:PP E 13)"MONSTER CHASE "::v 3)"IN THIS SIMULATION YOU'RE TRAPPED IN A" "CAGE WITH A HUNGRY GREEN MONSTER WHO HAS" #"A LIFE SPAN OF ONLY A FEW TURNS (YOU" $"OR THE COMPUTER MAY SELECT THE NUMBER)"# FROM PUBLIC DOMAIN/ SOFTWARE DISKS6 > [ COMPLETE LIST OF DISKSx AND PROGRAMS AVAILABLE FOR S.A.S.E. WITH $.37 THROUGH A.P.P.L.E.  : (10):13)"MONSTER CHASE"::14)