' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`)`ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ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*@` +5L^6L65`  \* ?*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*`ԍǍōFTER THE TEST.":"WORDS ARE PRESENTED IN RANDOM ORDER TO AVOID ROTE MEMORY RESPONSES.":"PRESS A KEY FOR MENU: ";:A$:1 NRD."l:"PROVISION IS ALSO MADE FOR A PRINTER LISTING."::"THE SPELLING TEST PROVIDES FOR THREE LOOKS AT THE WORD BEFORE IT IS BYPASSED TO THE NEXT WORD. A RECORD OF NUMBER OF CORRECT WORDS IS KEPT.";W" THE MISSED":"WORDS CAN BE REVIEWED A'T GET YOUR")"SPELLING TEST RIGHT!!"/5BI1NUMSI(I)ĺW$(I)ZI`X"THIS PROGRAM PROVIDES FOR ENTERING A LIST OF SPELLING WORDS WHICH WILL THEN BE FLASHED ON THE SCREEN TO PROMPT THE USER FOR TYPING OUT ON THE KEYBOAOUR SCORE IS:";CN:B"YOU GOT ";C;" WORDS CORRECT"H:"DO YOU WANT TO SEE THE WORDS YOU MISSED (Y/N)? ";A$(A$,1)"Y"İ500:"DO YOU WANT TO DO IT AGAIN (Y/N)? ";A$(A$,1)"Y"190 :"DON'T BLAME ME IF YOU DONN? ";,A$:1:B$'.TT1:T340091A$(13)240C6:A$\;(W$(I),1)" "320<W$(I)(W$(I),((W$(I))1)):315@(A$,((W$(I))))W$(I)380ET1I(I)1JT11:T3240T400|CV(37)CV:1:B$T10CC1"Y"SPELLING TEST: TO BEGIN PRESS RETURN";A$:(A$)13ĀHN1NUM_I%(NUM.5)(1)1pR(I%)0222II%:R(I)1T0:T1010:W$(I)J120Q(3)J10:1:" """DO YOU WANT TO SEE THE WORD AGAI$(NUM)""145AD$;"CLOSE SPELLING LIST":NUMNUM1:OPN1180R(4);"PR#1"](20)jI1NUM5)I;". ";W$(I)I(4);"PR#0"B$" ":C0I1NUM:R(I)0:I(I)0:I&IST":1) i(A$)0Ģ(37)2:958:1007 nNUM(A$)U s:"ENTER WORD: ";W$(NUM)y xD$;"WRITE SPELLING LIST,R";NUM }W$(NUM) NUMNUM1:80 D$;"OPEN SPELLING LIST,L20":NUM0 NUMNUM1:D$;"READ SPELLING LIST,R";NUM W$(NUM)W";NUM UW$(NUM), WW$(NUM)""NL20:95I ZD$:5)NUM;". ";W$(NUM) _NL20NL0:D$::"IF YOU WANT TO MAKE A CORRECTION, ENTER # OF WORD,OTHERWISE PRESS RETURN: ";A$:105 dW$(NUM)""80 gD$;"CLOSE SPELLING LIST" hD$;"LOCK SPELLING LELLING LIST,L20"9 -NUMNUM1:D$:5)NUM;". ";:W$(NUM)] 2D$;"WRITE SPELLING LIST,R";NUMj 7W$(NUM)~ <W$(NUM)""45 F LIST SPELLING WORDS HNL0:NUM0:: KD$;"OPEN SPELLING LIST,L20" PNUMNUM1:NLNL1 RD$;"READ SPELLING LIST,RCT WORDSg !:"** SPELLING LIST IS ABOUT TO BE DELETED."::10)"PRESS ESC TO AVOID.":A$:(A$)271 "::"ENTER YOUR WORD AFTER THE ?":I(37):24:"PRESS RETURN AFTER ? TO END INPUT. ";:I1::35,22 #D$;"DELETE SPELLING LIST" (D$;"OPEN SPINSTRUCTIONS"7 5)"6. STOP"::"INPUT OPTION? ";OPN` D$(4):D$;"OPEN SPELLING LIST,L20"o OPN1140 OPN4140: PRINT SPELLING LIST OPN5ė:600: INSTRUCTIONS OPN6ĺ(7): D$;"UNLOCK SPELLING LIST" OPN370: CORRE "W$(100),R(100),I(100):NUM0=:13)"SPELLING TEST"h:10)"BY RICHARD A. MICHAEL 1980 z :"OPTIONS:"5)"1. TAKE SPELLING TEST"5)"2. ENTER NEW WORDS"5)"3. LIST AND CORRECT WORDS"5)"4. PRINT LIST" 5)"5.       2480 BAYVIEW AVE. 4 WILLOWDALE, TORONTO, K ONTARIO, CANADA Z M2L 1A7 s TEL. 416-445-8156  DAVID - 14 YEARS OLD PETER - 13 YEARS OLDDECEMBER 19, 1979 MERRY CHRISTMAS, HO HO HO:PRNTR$"Y"Ğ:" TURN YOUR PRINTER ON ****":] RPRNTR$"Y"āI16::I:R TURN YOUR PRINTER ON HERE RI13000:I:100:I16:(10):I:255:  ALPHABET PRINTER  BY D. & P. CUSIMANO 1(L$) >NHNA$(L$,I,1)RN "A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z"," "WNJ127\NI$fNI$A$21000pNJjO:::" ";A$;" IS NOT A PRINTABLE CHARACTER":::1000>RI****"2010=' "*^^**"2020-B' "^^^^*"2310?G' "*^^*^"2410QL' "*^*^^"2420dQ' "**^^^"2430 vV' "**^**"2610[' "*^*^*"2620`' "*^^**"2710e' "^**^*"3010j't' '^'=SPACE ~' '*'=*' .."3010 =LINE # N CHECK CHAR.4NIЁI13000:I: TURN YOUR PRINTER OFF HERE D1000ZXI16::I:1000`'r' "^^*^^"1410' "^*^*^"1420' "*^^^*"1430' "*****"1450$' "****^"1510)' "^***^"1610.' "*^^^*"1620 - 14303' "*^^^^"1630 8' "^" * * ";:5000<LINE1430,1430,3710,1410,1410,1410,1410i<LINE1450,2310,3910,1410,3920,1630,1450}F" * ";:5000P" * ";:5000" ";" ";:LTTERLINEpPRNTR$"Y"6020z7000 I13:(7):I:I13::I:0,16103 LINE1450,1410,1410,1410,1410,1410,1410`H LINE1430,1430,1430,1430,1430,1430,1610 LINE1430,1430,1430,1430,1430,3510,1410 " * * ";:5000LINE1430,1430,1430,2620,2620,2610,1430tLINE1430,1430,3710,1410,3710,1430,1430~ "** *";:5000> LINE1610,1430,1430,1430,1430,1430,1610kT LINE1510,1620,1620,1510,1630,1630,1630 LINE1610,1620,1620,1620,2620,2410,3010 " ** *";:5000 LINE1510,1620,1620,1510,2420,2410,1620 LINE1610,1620,1630,1610,2310,162430,2420,2410,1430&j "* * ";:5000:t "* * ";:5000N~ "** ";:5000{ LINE1630,1630,1630,1630,1630,1630,1450( LINE1620,2610,2620,2620,1620,1620,16202 "** **";:5000< "* * *";:5000 LINE1620,1620,2710,2620,2020,1620,16202010,1630,1630,1630,2020,1620,20106" ****";:5000J"* **";:5000w4LINE1430,1430,1430,1450,1430,1430,1430LINE1610,1410,1410,1410,1410,1410,1610LINE2310,2310,2310,2310,2310,1430,1610 " *";:5000` LINE1430,2410,2420,250002@LINE1610,1620,1630,1630,1630,1620,1610FJ" *** ";:5000ZT"* *";:5000n^"* ";:5000LINE1510,1430,1430,1430,1430,1430,1510LINE1450,1630,1630,1510,1630,1630,1450lLINE1450,1630,1630,1510,1630,1630,1630"LINExz#     Ϡ Ǡ$"ԠҠǠԠǠԠϠ ŠҠ ӠΠW ӠTӠӠPL:N$(Z)R$Ģ20:1:868::B$:"DUPLICATE NAME";::1030@LZWVA$"DELETE"1140`19:1:868:"PRESS 'D' TO DELETE FILE ";K$:"OR ANY OTHER KEY TO CANCEL.";:R$:R$"D"810t(A$"RUN"A$"LOAD")T$(JPLK)"B"A$"B"A$J~A$A$" "N$(JB$;"FILE ";K$;"LOCKED"::8204A$"RENAME"1110e19:1:868:"RENAME ";K$;:RR$:RR$""810(RR$)65(RR$)90Ģ20:1:868::B$;"INVALID NAME";::1030R$"":I1(RR$):R$R$(((RR$,I,1))128):I:R$R$(BL$,30(R$))9BZ1L%RENAME"!A$;::K$:K(K$)484K17K31810OKK16:(JPLK)C810gN$(JPLK)"1"810(A$"RUN"A$"LOAD")T$(JPLK)"T"Ģ19:1:868::B$;"FILE ";K$;" IS TEXT"::820(A$"DELETED"A$"RENAME")L$(JPLK)"*"Ģ19:1:868::K(16384):K128830OR16368,0:19:1:958:K$(K):KK176:K0K9970]fK01340opK6K71260zK8K9300"PRESS 'LETTER' YOU WISH TO ";:K1A$"LOAD"K2A$"LOCK"K3A$"UNLOCK"K4A$"DELETE":K5A$"GE ";P;"OF ";L%::JP1:I1PL:(JPLI)C810f N$(JPLI)"1"ĺ(TI);" ";::"DELETED FILE":N$(JPLI)"1"ĺ(TI);" ";L$(JPLI);T$(JPLI);" ";S$(JPLI);" ";N$(JPLI) I*19:1:9584A$"RUN":21:1:M1$:M2$:M3$:M4$;>T$(C)"A"Z4T$(C)"B"4N$(C)(INP$,ZZ,30)>Y:X[L%CPL:CL%PLL%L%1V$((VOL)):(V$)1V$"00"V$(V$)2V$"0"V$F$(F):(F$)1F$"00"F$(F$)2F$"0"F$/:"SL:";S;"DR:";D;"VOL:";V$;" FREE:";F$;" PAZ34:YF1F735:ZZZZ35:Z(Y33):Z0690P&CC1:(Y)255N$(C)"1":670:FFZ:S$(C)(Z):(S$(C))1S$(C)"00"S$(C)X(S$(C))2S$(C)"0"S$(C)bZ(Y2):L$(C)" ":Z4L$(C)"*":ZZ128lZ0T$(C)"T"vZ1T$(C)"I" Z2(13)ĺ:440)I$"0"I$"7"Ģ3:1:370VI$:S(I$):OS,(CS):OD,(CD):CS,S16:"CURRENT DRIVE IS ";D:"PRESS RETURN OR ENTER DRIVE #";:I$:I$(13)490I$"1"I$"2"Ģ5:1:958:440I$:D(I$):CD,D-X1511:SEC,X:768:Zp\q"ENOUGH OF MY IDEAS.":BN1150:BN:::::"LET'S GET GOING!!":SW1600:SW:irK0490|K8ĺ"INSERT NEW DISK IN SLOT:";S;",DRIVE:";D:"AND PRESS RETURN.";:R$:490 "CURRENT SLOT IS ";S:"PRESS RETURN OR ENTER SLOT #";:I$:I$ f] h(5):"ROOM 300"::(5):"18 DUNCAN DRIVE"::(5):"NEW PORT RICHEY, FLORIDA 34653"w i:" 813-848-0413" jSD11200:SD m::"OF COURSE THEY WILL GIVE YOU YOUR":"$5.00 BACK WITH YOUR FIRST ORDER." nNB1600:NBoLK1600:LK:WE11000:WEF [:"FOR YOUR OWN CATALOG LISTING OVER":UY11:UYt ^::(12):"2,000 PROGRAMS":IO1500:IO _:(6)::"FOR LESS THAN 25 CENTS EACH!!"::QP11:QP a::"SEND $5.00 TO:":TG1600:TG d:(5):"DUNCAN INSTITUTE LIBRARY":(15):"AND GET MORE WORK DONE"N J:"BY USING MORE OF THE":TH1100:THw O:(5):"FASCINATING,":RD1100:RD R:(10):"LOW COST,":PO1300:PO U:(15):"PUBLIC DOMAIN PROGRAMS":WR1100:WR X:"AVAILABLE FROM THE DUNCAN INSTITUTE."OCK 6=PAGE AHEAD 9=RESET DRIVE":S(18455)16:D(18454):K0:CS,S16:CD,Do ,TKR,17:F496:P1:C0:: /K8K9370 2:(18):"HI!" 3Q1400:Q: 5 6"YOU AND I CAN" : ;(5):"LEARN MORE," ?:(10):"HAVE MORE FUN,"" C:IOB777:T64:PL15:RB27136:CSIOB1:CDIOB2:TRKIOB4:SECIOB5:VOLIOB14:OSIOB15:ODIOB16:F1RB11:F7RB221:M1$"TYPE'LETTER' TO RUN, OR 0=EXIT"Q "M2$"1=LOAD 4=DELETE 7=PAGE BACK":M3$"2=LOCK 5=RENAME 8=NEW DISK":M4$"3=UNLDdINP$"":VS(106)256(105):VS2,240:VS3,14:VS4,150: 169,3,160,9,32,217,3,96,0,1,96,1,0,17,15,251,183,0,150,0,0,1,0,254,96,1:I768793:X:I,X:I:BL$""I140:BL$BL$(160):I:N$(105),S$(105),T$(105),L$(105):1290 D$(4):B$(7)      ";A$B(A$,1)"Y"745+DW$(I)"":9509RJSY:KSXE\P1LNof(A$(J,K))A$(J,K)(W$(I),P,1)790pJJDXY(SD,2):KKDXY(SD,1):PJSY:KSXP1LN:A$(J,K)(W$(I),P,1)JJDXY(SD,2):KKDXY(SD,1):W(I,1)SX:W(I,2)SY:W(I,1SY(LN1)DXY(SD,2):X11X1L790?4NTNT1:NTWL2850O6FLAGFLAG19FLAG4ĺ"TROUBLE FITTING *** ";W$(I);" ***":"ON BOARD...PLEASE WAIT I'LL TRY AGAIN.":745>"COULDN'T FIT ";W$(I);" IN THE PUZZLE."@"DO YOU WANT ME TO START OVER ,-1,1C 2,4,6,8,2,4,6,8,2,4,6,8,2,4,6,8,2,4,6,8,2,4,6,8,1,3,5,7NFLAG0qJ1L:K1W:A$(J,K)"":K:J|I1MLN(W$(I))10ANS1950NT0SDDD(A(28)) SXA(W):X1SX(LN1)DXY(SD,1):X11X1W790$*SYA(L):XT$ I("THAT'S IS...";M;" WORDS"K"NOW LET ME THINK ABOUT THIS"XI1M1eJI1M(W$(I))(W$(J))HZ$W$(I):W$(I)W$(J):W$(J)HZ$:I18:DXY(I,1),DXY(I,2):I128:DD(I): 0,1,1,1,1,0,1,-1,0,-1,-1,-1,-1,00T$(T$,J1)(T$,(T$)J):JJ1;:JJ1:J(T$)520KD"-";T$;"-"^X(T$)MD610]"THAT'S TOO LONG, I'M AFRAID"_"TRY ANOTHER ONE":480bIZ1I1:W$(IZ)T$Ă:630l"YOU ENTERED THAT ONE ALREADY. TRY ANOTHER":480vW$(I)$"."MI1:6606(T$)0ĺ"INPUT ERROR-REDO":480>J1gTE$(T$,J,1):TE$"A"TE$"Z"570 TE$"A"TE$"Z"530(T$,J,1)(((T$,J,1))):570TE$T$T$"":500J(T$)T$(T$,J1):580&J1T$(T$,(T$)1):JJ1:570#."' "( ";TW;" CHARACTERS MAXIMUM )"0 XY$` "OK...ENTER A WORD AT EACH QUESTION MARK." "TO REDO A WORD, TYPE A HYPHEN (-)." "WHEN YOU RUN OUT OF WORDS,TYPE A PERIOD (.)." I1M T$:T$"-"II1:"REDO ";W$(I);"...":480TDL cL1350L h"WHAT IS THE MAXINUM NUMBER OF WORDS IN THE PUZZLE ";MZ rM2380 w"SORRY--THERE MUST BE AT LEAST 2 WORDS":360 | A$(L,W),W$(M) W(M,3),DXY(8,2),DD(28) "NOW ENTER A HEADING THAT WILL BE PRINTED OVER THE PUZZLE1)Z1): 6"HOW MANY COLUMNS DOES YOUR PRINTER HAVE ";TWe @"DO YOU WANT A SOLUTION PRINTOUT ";X$ J"WHAT IS THE WIDTH OF THE PUZZZLE ";W:MDW TW2TW345 W"THAT WILL NOT FIT IN ";TW;" COLUMNS.":330 YW1330 ^"THE LENGTH ";L:LWM ANS0ı. W(I,1)SX:W(I,2)SY:W(I,3)DIR@ D1(W$(I))[ A$(SY,SX)(W$(I),D,1) SXSXDXY(DIR,1):SYSYDXY(DIR,2) D XW:YL:Z(W$(I))  936:"PUZZLE MAKER FOR HIDDEN WORDS" "D$"": CONTROL D 'PT0 ,A(Z)((J1)(JL)200 D1(W$(I))[ A$(J,K)""LTHLTH1:KKDXY(PT,1):JJDXY(PT,2):160 A$(J,K)(W$(I),D,1)LTHLTH1:KKDXY(PT,1):JJDXY(PT,2) LTH(W$(I))ANS1:DIRPT:SD8:D(W$(I)):180 (K1)(KW)(J1)(JL)D(W$(I)) D J 280 ANS0X1W*Y1L6(Z1LNT2(W$(I),Z,1)A$(Y,X)İ80[<ZbAYiDXoF{PSD18UPTPT1:PT8PT1ZSXX:SYY:LTH0dZ1SXSX((Z1)DXY(PT,1)):SYSY((Z1)DXY(PT,2))nKSX:JSY x(K1)(KW)(       D;" LINE ";LOC2:820:<:10:12:"MASH 6502 ENDED"BF: I(JPLK)):7306(A$,4)"RENA"N$(JPLK)(R$,30)?750XK6PP1:PL%P1qK7PP1:P1PL%z750 ECD(222):LOC(219)256(218):19:1:958::ECD4ĺB$;"WRITE PROTECTED"(A$,1)"B"ĝ:1350(ECD4ĺB$;"ERROR ";ECPLK):19:1:958:(A$,4)"RENA"ĺA$:20:8:(R$,30):A$A$","(R$,30)c(A$,4)"RENA"ĺA$D$;A$;",S";S;",D";D:(A$,1)"B"1350(A$,4)"LOCK"L$(JPLK)"*"(A$,4)"UNLO"L$(JPLK)" "(A$,4)"DELE"N$(JPLK)"1":FF(S$  $ A%0:A$"":TI0:TL0:W%04 16300,0:H "NOMON I,C,O"Q 570k 560:16368,0::255w Y5:21 YY1:Y800Y0  (16384)12718 X14,171,115:16 A%(16384):A%A%128:A$(A%):16368,0: 16368,0:16PU2080: TONE ROUTINE: ,67 `ɆL J HI H ?`,0`  HANGMAN 3.0 B. COSTALES SAN FRANCISCO,CA. (C) 1980                            ̍ΠǍӍ΍ӠƍōԠĠ͍ÍٍĠΠŠٍŠϠԍ̍Ҡ͍ҍҍĠčàԍԠƠōĠЍĠƠ̍ŠōˍŠԍ͠ƠōǠ΍ǠٍōĠƠЍĠƠԍԍϠŠÍΠ̍ԭŠЍĠƠȍϠҍҍԠԍĠǍŠōҍ٠ҍĠōԠϠԍΠ͍ΠԍԍԍϠɍ٠ҍԠƠԍōĠƠō̠΍ōĠōŠϠōŠƠčŠǠҍҠƠԍϠōōҍōōԠčԠƠō٠ԍ΍Ǡ̍Π΍͠ƠӍӠƍǠ" CAROLINA APPLE CORE., BOX 31424H6 RALEIGH, NC 27612Y1978. MODIFIED BY CLAUDE8 HOLLIDAY FOR APPLE R II WITH OVERLAPPINGf LETTERS. THIS PROGRAM IS FREE TO ALL WHO WISH TO HAVE IT. AS LONG AS ALL CREDITS ARE RETAINED. CAC PAC 2W(I,2):KW(I,1) P1LN4A$(J,K)(W$(I),P,1)_JJDXY(W(I,3),2):KKDXY(W(I,3),1):Pf(I2XY$"HERE IS THE ANSWER KEY: "<1070F:Pd "PUZZLE GENERATOR"nx PROGRAM FOUND IN CREATIVE COMPUTING NOV-DEC : ~:="FIND THESE HIDDEN WORDS IN THE ABOVE PUZZLE"C_J1M:(W$(J))01210y(0)(W$(J))TW2ĺW$(J)::::::0(X$,1)"Y"1250I1L:J1W:A$(I,J)".":J:II1MLN(W$(I)):JDO YOU WANT ";NE"FOR EACH COPY, HIT RETURN TO BEGIN PRINTING..."\$C1N:1070:1230q.A$:D$;"PR#1":8T(TW2W)2:BL(TW(XY$))2);XY$V:`J1L:T)jK1W:A$(J,K)"."ĺ". ";:1140o((A$(J,K)));" ";t:3)SD II1L"J1WGA$(I,J)""A$(I,J)(A(26)64)O:eI1M1:JI1M|W$(I)W$(J)1030HZ$W$(I):W$(I)W$(J):W$(J)HZ$K13:HZW(I,K):W(I,K)W(J,K):W(J,K)HZ:KJ:I"HOW MANY COPIES OF THIS PUZZLE F9%1ı." OPTIONS":" -------":M" INSTRUCTIONS 0"]F0%1ī148F4%0F5%0Z6ĺ" EARLY CLUE -20 4":" NO CLUE +20 5"" EXTRA MINUTE -20 6"F0%1ī152F7%3Z6F4%1ī152" GO 4 ";WV(W%)X:Y0/:I6590:LV%0:A$(I):887K0XJ1(G$):A$(G$,J,1)KJiJ:K0141DWV(W%)X:Q1DD(Q1):LV%D141Q1LV%D141YY1:Y14Ĺ32,6:3A$"=";LV%I::161:117::33,24:32,15:35,19:::"B=5 K=8 T=1"::"C=6 L=2 U=1"::"D=4 M=3 V=8"::"E=1 N=2 W=10"::"F=6 O=1 X=11":"G=4 P=3 Y=9"::"H=3 Q=10 Z=11"::"I=1 R=2"Q0:X0:I1LW:X$(I)"-"A$X$(I):LV%0:88:XXLV%X$(I)"-"QQ1I:"NEED: v1052:1052:,w1052:1052:1052:^xI110:SO(16336)(16336)(16336):I:jyI150zSOUND(16336)(16336)(16336)(16336)(16336)(16336){I:|F9%1ı}:33,15:35,19:~F8%0130c"A=1 J=7 S=1"R"LV%2jA$"S"LV%1,kA$"T"LV%1>lA$"U"LV%1PmA$"V"LV%8cnA$"W"LV%10voA$"X"LV%11pA$"Y"LV%9qA$"Z"LV%11rs1052:24:3:"OPTION ( ) OR (SPACE BAR TO CONTINUE)";:11:A$:550tu1052:$"D"LV%4\A$"E"LV%1/]A$"F"LV%6A^A$"G"LV%4S_A$"H"LV%3e`A$"I"LV%1waA$"J"LV%7bA$"K"LV%8cA$"L"LV%2dA$"M"LV%3eA$"N"LV%2fA$"O"LV%1gA$"P"LV%3hA$"Q"LV%10iA$"%::"IS SHAMEFULLY LOW."::86'RX0ESXX1:HG(X)PS%VX:85MT83U347:15:"YOU MADE IT INTO THE TOP TEN. SCORE=";PS%:328V::"PLAY AGAIN?":X1:16:A$"Y"ĬW:"BYE":XA$"A"LV%1YA$"B"LV%5ZA$"C"LV%6 [A)"-"FF1.HI:(FLW).5F7%3:142:156@I161:117:49yJ88:LZ%LZ%LV%:PS%PS%LV%:G$G$A$:ZZ1:Z7ī361KF0%1Z1ī244LZ6F4%1İ142:156M161:120:49N PHG(HG)QPS%HG(10)ė:5:328:326::"YOUR SCORE: ";PSA$;::118:49:?I1LW:A$(W$(W%),I,1)F1:X$(I)A$J@I:F0ī74WAG$G$A$BF4%0Z0BS%BS%(WV(W%)10):PS%PS%(WV(W%)10):"";CF0:I1LW:X$(I)(W$(W%),I,1)FF1DIEF0%1FLWī244FFLW361 GF0:I1LW:X$(I"5"F4%0F5%1:PS%PS%20:142:161:118:156:49j8A$"6"TLTL60:F6%F6%1:PS%PS%20:161:117:499A$"7"F7%0Z6F4%0ī302:A$"8"İ317:118:49;A%65A%90İ119:49<F0:I1(G$):A$(G$,I,1)FI=I>F0Ģ24:F:::X$(I)"-":I/:20124:142:156:161:117L1X2:19:TITI.3:171`2F0%1Z1ī2443A$"0"ĉ:254::XF8%:F8%0:124:F8%X:142:156:1614A$"1"İ180:495F0%586A$"4"F5%0F4%1:142:PS%PS%20:161:117:156:4927A$"CLOSE HANGWORDS":"CLOSE HANGCLUES"f):326:216,0:119:516::"INSTRUCTIONS ? ";:490:YNİ254*W%W%1:WTGWTG1:PT%PS%,(C$(W%),1)"*"WTGWTG1:290-LW(W$(W%)):G$">":LZ%0:BS%0:Z0:TI0:TL61:TS0:PS%PS%(WV(W%)11) .I1LWWNWNCC((1)16):WNWCWN(WCWN):WN0WN((1)23) #"READ HANGWORDS,R";WN:A$:411:450:LW(A$)6:W$(X)(A$,LW):WN(X)WN:WV(X)((A$,2)):CL((A$,(LW2),3)) $CN(X)CL &"READ HANGCLUES,R";CL:C$(X):A$C$(X):411 'X30ī33&(:12:"PLEASE WAIT"5 CC(Y10)((1)30)30:X0K  ONERR GOTO 231 "OPEN HANGWORDS,L22":"READ HANGWORDS,R0":WC:"CLOSE HANGWORDS" 18:10:"SELECTING FROM ";WC;" WORDS." "OPEN HANGWORDS,L22":"OPEN HANGCLUES,L20" !XX1; " COSTALES":11:" SAN  FRANCISCO":11:" CALIF.  94103" 15:"NOTICE":"------"::"THIS GAME IS DISC INTERACTIVE. LEAVE THE DISC IN THE DRIVE AND THE DRIVE DOOR CLOSED AT ALL TIMES." 495:500:460 :12:10:"COMPILING WORD LIST"::E WW%15:W$(30):C$(30):WV(30):PS%100:X$(15):WN(30):CN(30)Z HG$(11):HG(11) ::"***************************************":I19:"*";:39:"*":I:"***************************************":5:11:"* HANGMAN 3.0 *"< :11:" BRYANOU GET THE NEXT WORD WITH ZERO MISTAKES, YOU WILL INCREASE YOUR SCORE BY FIVE TIMES."):"IF YOU MAKE JUST ONE MISTAKE, YOU WILL LOSE ALL OF YOUR POINTS AND THE GAME WILL END."*:" ARE YOU SURE YOU WANT TO TRY THIS ";:4 GAME IS DISC INTERACTIVE."::"PLEASE LEAVE THE DISC IN THE DISC DRIVE AND THE DRIVE DOOR SHUT AT ALL TIMES WHILE PLAYING THIS GAME."(24:"REPLACE DISC AND HIT RETURN";:X$::192(:"YOU HAVE SELECTED 'THE BIG GAMBLE'"::(119[)"IF YG:"::"THIS GAME IS DISC INTERACTIVE."::"PLEASE LEAVE THE DISC IN THE DISC DRIVE AND THE DRIVE DOOR SHUT AT ALL TIMES WHILE PLAYING THIS GAME."'24:"REPLACE DISC AND HIT RETURN";:X$::"SAVING NAME TO DISC":342(::10:"WARNING:"::"THIS5:"NOMON O":&::10:"WARNING:"::"THIS GAME IS DISC INTERACTIVE."::"PLEASE LEAVE THE DISC IN THE DISC DRIVE AND THE DRIVE DOOR SHUT AT ALL TIMES WHILE PLAYING THIS GAME."&24:"REPLACE DISC AND HIT RETURN";:A$::27'::10:"WARNINS,R0":CN:"WRITE HANGCLUES,R";CN:CL$:"CLOSEHANGCLUES"y%I1II:W$(I)W$(I)("000"(CN),3)("00"(WV(I)),2):I%"OPEN HANGWORDS,L22":"WRITE HANGWORDS,R0":WNII:%I1II:"WRITE HANGWORDS,R";WNI:W$(I):I:"CLOSE HANGWORDS"&11":217$JR$"YOU ENTERED '";W$(I);"'.":"IS THIS CORRECT? ";:490:YN217z$I::"SAVING TO DISC":5:"MON O"$CL$"- "CL$:((1)15)7CL$"*"(CL$,(CL$)2):%"OPEN HANGCLUES,L20":"READ HANGCLUES,R0":CN:CNCN1:"WRITE HANGCLUE."#I1II,#:WNI;" ";:"";W$(I)@#(W$(I))0217#(W$(I))14ĺ:">> SORRY, 14 LETTERS MAXIMUM <<":217#WV(I)0:J1(W$(I)):A$(W$(I),J,1):88:WV(I)WV(I)LV%$B$(W$(I),J,1):B$"A"B$"Z"ĺ:">> LETTERS ONLY <<:20"X1:16:A%13213@"A%8Ė25:" ";:208I"A$;["B$B$A$:209g"A$B$:":"CLUE: ";CL$:::#CNZ1:"OPEN HANGWORDS,L22":"READ HANGWORDS,R0":WN:"CLOSE HANGWORDS":Z0:"THE WORD LIST NOW CONTAINS":WN;" WORDSĺ:"LETTERS ONLY":197#!IN!(A$)14ĺ:"14 LETTERS MAXIMUM":197!:"YOU FEEL '";A$;"'IS A":"BETTER WORD? ";:490!YN197!WV0:B$A$:I1(B$):A$(B$,I,1):88:WVWVLV%:I:A$B$!192!120::"SHAME ON YOU.":"B$""MISLEADING?":430I 5:"WORD WAS: ";W$(W%)::"CLUE WAS: ";C$(W%) 1:10:"WHAT IS ANOTHER WORD WHICH WILL WORK BETTER WITH THIS CLUE?":15:"TYPE WORD --> ";A$ (A$)0ī207 A$W$(W%)207!I1(A$):(A$,I,1)"A"(A$,I,1)"Z"A$B$("000"(CN(W%)),3)("00"(WV),2)5235"MONO"::"SAVING NEW WORD TO DISC"::"OPEN HANGWORDS,L22":"WRITE HANGWORDS,R";WN(W%):A$:"CLOSE HANGWORDS":216,0:"NOMON":::"WORD IS TOO DIFFICULT?":196 ::"CLUE WAS  ";A$:(A$)0ī207K(A$)14ĺ::"SORRY, 14 LETTERS MAXIMUM: ";:186A$W$(W%)ĺ::"THAT'S THE SAME SPELLING.":207WV0:B$A$:I1(B$):(B$,I,1)"A"(B$,I,1)"Z"ĺ::"LETTERS ONLY PLEASE: ";:186A$(B$,I,1):88:WVWVLV%:I+;D::5:"YOU SELECTED 'NEW GAME'."::"ARE YOU SURE ? ";M119\490:YNĬb124:142:156:161:118::5:"SO THE WORD IS NOT SPELLED '";W$(W%);"' !!"::"THEN HOW IS IT SPELLED? ";:Z0:A$""1:12:"TYPE WORD --->;PS%; 4TITI.07:TITLġ:PS%PS%1000:361Q(TLTI)30SO(16336)TLTI31TLTI29Ė18:13::"EXTRA MINUTE -20";:38:"6";:(TLTI)10ğ23:24:"TIME ";:Y(TLTI):Y100Y9ĺ" ";Y;Y99ĺY;Y10ĺ" ";YORD ";WTG;" OF ";WW%):34,20:G1:22:I1LW:X$(I);:IVF9%1165eF5%1167F4%1Z6Ė4:20::">>";::" CLUE: "C$(W%)" ";::"<<";:F9%1ı1:24:G$"<";23:23:"NO. WRONG = ";Z;23:22:"SCORE = "BROKE (+500) 7"0" HINT (EA.TIME)-10 8"Q:" NEW GAME 1"F0%1ĺ::" ";::"THE BIG GAMBLE"::" GOING FOR ";PS%11F9%1ı:15:18:"WORD-VALUE = ";WV(W%)16:18:LW;" LETTERS IN WORD"18:25:"WYPE THE ENTIRE WORD. IF YOU MAKE A MISTAKE TYPE A BACKSPACE ARROW. IF YOU DON'T WANT THIS OPTION, TYPE A ZERO"90:"WHEN YOU ARE DONE, HIT >RETURN<."91119::"WHAT IS THE WORD ?"::92F7%1:B$"":22::X$(1):93X2:16:A%13ī314*:4A8B$"":12:" ";:297D8+B$B$A$:12:B$;:2978,B$W$(W%)PS%PS%50:Z1:B1%1::"YOU GOT IT !! YOU GET 50 POINTS.":119:119:119:3628-121::B1%1:Z1:"SORRY,":3628.:35,19::5:"YOU SELECTED 'GO 4 BROKE'"s9/:"T7$:"YOU WILL HAVE ONE TRY TO GUESS THIS WORD":^7%5:"WORD HAS ";(W$(W%));" LETTERS.":7&5:"WORD STARTS WITH LETTER: ";(W$(W%),1):7'5:"CLUE: ";:(C$(W%),(C$(W%))1):7("WHAT IS THIS WORD ?":::B$""7)X1:16:A%13300)8*A%"-----"::"IF YOU MAKE IT INTO THE TOP TEN HIGH- SCORES TO DATE, YOU GET A CHANCE TO ADD UP TO TEN BRAND NEW WORDS TO THE WORD LIST."6!:24:10:"ANY KEY TO START GAME";::1052:X1:16:420:6":5:"BONUS WORD":"----------":I15:119:I2 MISSPELLED, OR TOO DIFFICULT, OR THAT A CLUE WAS MISLEADING, THEN PROTEST."5:"9. NEXT WORD BLIND. (+50 POINTS)":" ALL YOU SEE IS YOUR CORRECT GUESSES AND THE TIME RUNNING OUT."5495::30:"8 OF 8"6 ::"BONUS":IOD 7 OF 8 -----------------------------"4:"0. ";::"THE BIG GAMBLE";::" LAST WORD ONLY":" (5 TIMES YOUR SCORE OR NOTHING)"4:"1. NEW GAME. ABORT & START OVER"_5:"2. PROTEST WORD/CLUE.":" ANYTIME YOU FEEL A WORD IS RS IN THE WORD."3:"8. HINT. HELP WITH THE MATH (-10) ":" FIGURES THE LETTER VALUE OF ALL THE UNGUESSED LETTERS AND SHOWS YOU THE ONLY ONES THAT CAN WORK TO COMPLETE THE WORD."3495::,4"OPTIONS DURING SCORING PERE. AT 30 SECONDS A TICKING STARTS. AT 10 SECONDS THE WORD 'TIME' STARTS TO FLASH."3495::"OPTIONS DURING PLAY (CONTINUED)";:33:"6 OF 8":4:"7 GO 4 BROKE GET IT( + 500)":" IF YOU'VE GOTTEN NO CLUE AND LESS THAN HALF THE LETTESTOPS CLOCK."91:"1. NEW GAME. ABORT AND START OVER"^1:"4. EARLY CLUE. (-20 POINTS)1:"5. NO CLUE. WAIVES CLUE. (+20 POINTS)"[2:"6. MORE TIME. 60 SEC. COSTS 20 POINTS":" YOU WILL BE WARNED THAT YOU ARE RUNNING OUT OF TIMPOINTS. RUN OUT OF TIME AND LOSE 1000 POINTS."90 495:0142::1:"4 OF 8":5:"OPTIONS DURING":"PLAY LOOK LIKE"::"THIS ---------->":495:0"OPTIONS DURING PLAY (0-9)";:30:"5 OF 8":"-------------------" 1:"0. REVIEW INSTRUCTIONS. YOU HAVEN'T ALREADY GOTTEN ONE BY SELECTING OPTION 5)."g/ "SEVEN MISTAKES AND YOU BUST! LOSE 100":/ "EACH WRONG GUESS WILL CAUSE YOU TO LOSE THE VALUE OF THE LETTER.".0 :"SOLVE THE WORD IN LESS THAN 30 SECONDS AND RECEIVE A BONUS OF UP TO 50 "FOR EACH CORRECT GUESS BEFORE YOUR FIRSTMISTAKE, YOU RECEIVE A BONUS OF TEN TIMES THE WORD VALUE.".:"MAKE NO MISTAKES, AND DON'T REQUEST A CLUE, AND YOU GET AN ";::"EXTRA WORD":8/ :"MAKE SIX MISTAKES, AND YOU WILL BE GIVENA CLUE. (IF E AS IT WOULD HAVE IN THE GAME OF SCRABBLE."F-495-:124::1:30:"2 OF 8":3:20:"LETTER VALUES":20:"AND LOCATION.":20:"DURING PLAY":18:"<-----------":495-:"GAINS AND LOSSES";:30:"3 OF 8":"----- ------":i. THE START OF THE GAME."{,:" YOU WILL GET TEN TIMES THE WORD VALUE AT THE START OF EACH WORD.",:" EACH WORD'S VALUE IS THE SUM OF THE VALUES OF THE LETTERS."=-:" EACH LETTER HAS THE SAME VALU:"YOUR SCORE IS NOW ";PS%::.+115:80e+:"INSTRUCTIONS";:30:"1 OF 8":"------------":+"OBJECT: TO BEAT THE HIGH SCORE TO DATE IN FIFTEEN WORDS, WITH ONE MINUTE PER WORD."!,:" YOU WILL GET 100 POINTS AT90*YNF0%1:A*F0%0:20:12:"CANCELED":119:119:119:I*:r*"YOU SELECTED 'THE BIG GAMBLE'"::*Z1ĺ"WRONG. WORD WAS ";W$(W%)*Z1İ121*Z0ĺ"YOU GOT IT !!!!!"*Z0āI110:119:I*Z0PS%PS%5*Z1PS%0!+%1)IWTG1WW%ĺ"NO WORDS LEFT.":394ZI" YOUR NEXT WORD IS ";WTG1;" OF ";WW%;"."I:" OPTIONS #":" ------------------------"IWTG1WW%ĺ" ";::"THE BIG GAMBLE";::" (7)" J" NEW GAME 7%1F7%2ĺ" <50 SEC. BONUS";:33:(50TI):PS%PS%(50TI)}H:"HI GAME (";HG(1);") YOUR SCORE:";:PS%0Ė32:390H33HPS%:"-------------------------------------"IZ0F4%0ĺ"ZERO MISTAKES GIVES YOU AN ";::"EXTRA WORD":::WW%WW-GF5%1ĺ" NO CLUE (OPTION 5)";:33:"20"gGF6%0ĺ" EXTRA TIME (";F6%;" MIN)";:32:"-";20F6%GF8%0ĺ" HINTS (";F8%;")";:32:"-";10F8%:PS%PS%(10F8%)GF9%1ĺ" IN THE BLIND (TRY)";:33:"50":PS%PS%50@HF4%1Z6Z7TI50F:"-1000":380:FzZ7ĺ" BUST";:32:"-100":PS%PS%100yF{F5%0Z6F4%0ĺ" GOT WITH CLUE";:32:"-20":PS%PS%20F|" GOOD LETTERS W/0 WRONG";:33:BS%F}" WRONG GUESSES (TOT.)";:32:"-";LZ%F~F4%1ĺ" CLUE GET (OPTION 4)";:32:"-20"-"*Et"SCORE AT START OF WORD";:33:PT%0EubEv" TWICE WORD VALUE (START)";:33:WV(W%)11EwF7%1ĺ" GO 4 BROKE (FAIL)";:32:"-50":PS%PS%50:380ExF7%2ĺ" GO 4 BROKE (GOOD)";:33:"500":PS%PS%500:380FyTITLĺ" OUT OF TIME";:321 DnZ7ĺ"YOU BUST":121:371HDoZ6F5%1ĺ"GOT WITHOUT CLUE":371}DpZ6F4%1ĺ"GOT IT, BUT NEEDED CLUE.":119:371DqZ0Z6ĺ"YOU GOT IT.":119:119:119:371DrZ0ğ:"PERFECT"::I15:119:IEs"-------------------------------------90:YN352Cf214:F49ıKCg:12:8:"PLAY AGAIN ?":X1:16:A$"Y"ĬZCh:"BYE":bCi:Cj"WORD WAS: "W$(W%):B1%1B1%0:394CkF7%1ĺ"GOT IT WRONG":121:371ClF7%2ĺ"CORRECT":119:119:119:371DmTITLĺ"OUT OF TIME ":121:37".Ba15:1:"TYPE CLUE --> ";A$:(A$)0359`Bb(A$)17ĺ::"17 LETTERS MAXIMUM":353BcA$"?"ĺ::"LIST OF CLUES":"------------":BdA$"?"X0İ410:216,0:::115:352 Ce::"YOUR CLUE WILL READ: ";A$:CL$A$::"IS THIS OKAY? ";:4TO THE WORD LIST."CA_:"DO YOU WANT TO DO THIS?";:490:YN359B`:"FIRST YOU MUST CREATE A CLUE COMMON TO THE FIVE WORDS. YOU HAVE A MAXIMUM OF 17 LETTERS AND SPACES FOR YOUR CLUE."::"TYPE A '?' IF YOU WISH A LIST OF THE EXISTING CLUES.8:"* CONGRATULATIONS *":8:"* *":8:"*********************"@\I110:16299,0:16300,0:1052:1052:I@]24:I17:::A^II((1)4)6:"BECAUSE YOU MADE IT INTO THE TOP TEN, YOU GET TO ADD ";II;" BRAND NEW WORDS":")HG$(X1)?SI?THG$(V)A$'?UX01?V233?W:"OPENHANGWINNERS":"WRITEHANGWINNERS":J110:HG$(J):J:"CLOSEHANGWINNERS"?X:"YOUR ENTRY WILL READ":326:216,0?Y:350S@[:10:8:"*********************":8:"* *":$("000"(NG),3)("0000"(AV),4)("00000"(HI),5)o>M"WRITE HANGNAMES,R";X:A$:"CLOSE":PS%HG(10)ı>NB$(NAME$,(NAME$)3)>PA$B$"...............":A$(A$,15):B$(PS%):B$" "B$:B$(B$,6):A$A$B$>QI0(10V):X10I ?RHG$(X)=GJ110:HG(J)((HG$(J),6)):J:600w=H:"OPEN HANGNAMES,L35":A$(NAME$,3):X(A$):"READ HANGNAMES,R";X:A$=IB$(A$,(A$)11,3):NG(B$)1=JB$(A$,(A$)8,4):AV(((NG1)(B$)PS%)NG)=KB$(A$,5):HI(B$):PS%HIHIPS%7>LA$NAMEY. I HAVE NO OBJECTION.">>> A NUMBER 1 THRU 4 <<<":322::5:"YOU SELECTED 'PROTEST WORD/CLUE'"U;?::"WORD WAS: ";W$(W%)o;@:"CLUE WAS "C$(W%) ";NAME$:(NAME$)0500TT(NAME$)17NAME$(NAME$,17)uT:"A BIG HELLO ";NAME$;" !"T:"PLAYED BEFORE? ";:490:YNī510U:"OPEN HANGNAMES,L35":"READ HANGNAMES,R0":A$:X(A$)1:A$("000"(X),3):"WRITE HANGN0:I:16368,0>S24:5:"ANY KEY TO RETURN TO PROGRAM";:C$DSRSH(36)1S(H):"(Y/N) ( )";:((36)1):A$:A$"Y"YN1:A$:SA$"N"YN0:A$:S491S24:9:"(ANY KEY TO CONTINUE)";:X1:16:1T::5:"FOR THE RECORD, WHAT I1)):480?RJ1(A$):B$(A$,J,1):B(B$)64:L(B)L(B)1:JPRI:"CLOSE"R:"FREQUENCY OF LETTERS IN CURRENT WORD LIST."::F12ĺX;" WORDS COUNTED":RK1262R(K64);"=";L(K),(K164);"=";L(K1)RK:F12ıSI117:L(I)S"::"DO YOU WISH TO CONTINUE? ";:4902QYNıGQ:12:"WORKING"bQ"OPEN HANGWORDS,L22"mQI1XQ20:5:" ";:5:XI;" WORDS LEFT."Q"READ HANGWORDS,R";I:A$QA$"Y"482 R(A$,1)"A"(A$,1)"Z"A$(A$,((A$) ";:490:YNıP::"THIS STUDY WILL FIND FOR YOU THE NUMBER OF TIMES EACH LETTER OCCURS IN THE ENTIRE WORD LIST."PL(31):F11P12::"OPEN HANGWORDS,L22":"READ HANGWORDS,R0":X:"CLOSE"'Q"STUDY WILL REQUIRE"::X155;" MINUTE"O2OWXWX1:WX40WX0:WFWF1:WF3WF0SO((A$,(A$)5,1))WFġ:34OB$(A$,(A$)5,1):B$"A"B$"Z"A$(A$,(A$)5)"1"(A$,5):455OA$(A$,(A$)6)(WF1)(A$,5)O"WRITE HANGWORDS,R";WN:A$:P12:"FREQUENCY STUDY?0":C:CC1:"WRITE HANGCLUES,R0":C:"WRITE HANGCLUES,R";C:B$:"CLOSE"}NB$W$(W%)("000"(C),3)("00"(WV(W%)),2)N24::"CHANGING ";W$(W%);" TO POINT":"TO THE NEW CLUE."O"OPEN HANGWORDS,L22":"WRITE HANGWORDS,R";WN(W%):B$:"CLOSESHAME ON YOU":BM(B$)17ĺ:">> 17 LETTERS MAX <<":432M:"NEW CLUE: ";B$:"IS THIS OKAY (Y/N) ";:YN$:YN$"N"430M(C$(W%),1)"*"B$"*"B$:440MB$"- "B$M22::"SAVING ";B$;KN:"OPEN HANGCLUES,L20":"READ HANGCLUES,R:"DO NOT HIT RETURN AFTER EACH GUESS. -- --":I11400:I:^L3::"WORD WAS: ";W$(W%)L:"CLUE WAS: ";(C$(W%),(C$(W%))1)L15:"WHAT IS A BETTER CLUE FOR THIS WORD? 17 LETTERS AND SPACES MAXIMUM.":19:"------> ";B$M(B$)0ė:"0KA$"9"F9%1)KF5%0:F6%0:F4%06K418:42K"OPEN HANGCLUES,L20":"READ HANGCLUES,R0":CN:I1CN:"READ HANGCLUES,R";I:A$:I;". ";A$:J1700:J:I:"CLOSE HANGCLUES":KA$"Y"(A$)5ġ:34KKWTG1WW%78K@L:15 (1)"!JF2%1F2%0:399NJF2%0:" PROTEST WORD/CLUE (2)"uJ" NEXT WORD BLIND (9)"JF1%0:F6%0:F7%0:F8%0:F9%0J115JA$"7"İ237JA$"1"İ180JF3%1F2%1ī406JA$"2"A$"P"ī318KF9%1F9%аٍűٱҲŲűɱ±ٱҲűҲ̲IJ̲ٲҲŲٱӲٰűұŲȲͱͱӱͳұȲ̱ű̱̱űIJҲαȱŲűұұԱűԲαDzٲΰͲϲıҲٲ˲ȱűIJűͲаԱαԲűԱҲҲŲƱӱӱ˲±̱̲ȱıűҲȲӲӰŲαűٍҲΰ˱ͱԲñŲűٱβӱӱٰŲӱҲ˱ԲұӲٲٲı̱űϲűβIJűԲŲŰײαű˲Ų                           MAN 3.0'":<]X:"HIGH GAME TO DATE:"::J110:10:JVğO]YHG$(J)::J:R2\J216,0::10:"FILE: 'HANGCLUES'."::"FILE ON ANOTHER DISK? ";:490:YNĺ"OPENHANGCLUES,L20":"WRITEHANGCLUES":"000":"CLOSE":585 ]K:5:"BRUN FID (FROM YOUR 3.3 MASTER) AND MOVETHE FILE 'HANGCLUES' ONTO THE SAME DISC AS THE PROGRAM 'HANGERS":"WRITE HANGWINNERS":I110:"..................":I:"CLOSE"O[C582r[D"RENAME HANGNAMES,HANGNAMES"{[E583[F216,0:"OPEN HANGNAMES,L35":"WRITE HANGNAMES,R0":"000":"CLOSE"[G586[H"RENAME HANGCLUES,HANGCLUES"\I216,0:1DS,L20":"WRITEHANGWORDS":"000":"CLOSE":575Z>:5:"BRUN FID (FROM YOUR 3.3 MASTER) AND MOVETHE FILE 'HANGWORDS' ONTO THE SAME DISC AS THE PROGRAM 'HANGMAN 3.0'":Z?578Z@"RENAME HANGWINNERS,HANGWINNERS"ZA579E[B216,0:"OPENHANGWINNųӱű̲űԱԲŲ԰ԱԱıαβٲIJŲŲ̲DZűԲԲű˱̱ұ̲ıβƲǰαٲ̳űҲвDZȳԱձٲԲٱұұβԱԲβԲ˱ԱԲԱҰٱ̱Ͳٱ̱ҰűԲβαٱųŲȱŲıԱұűٲòŲٱɲβҰԲıԱԲɱϱӲҲٰӱҲҲIJͱٳٰӲγŰ̱ԱԱű˱ٱٍıұDẔ˲IJDZȱٲٱٱıҲŲٱŲıٱȱ˱Ȳ˱̲αűβűͱ̲ŲӱԱӲ԰ԲҲҳ԰βͱٲӲٲرβαβűӲԲ̱ҲűٱɲŲٲı˱Բұױ̱Ųϲٱ̲ıβҰβ̱̰ijűűԱŲ˱±ƲҲҲӲ±DZ˰ԱαҲұıٲŲ̳DzȱԲԱűұҲұұŲŲұDZȰȲűűŲβԱ˱ӱ̲˰IJŲŲ˱̱ٱײٱӱױȱIJDZİŲٲٱԱ̱̱űұűαϱٲŰɲӳűӱŲűŲӲıűҲŰűв̱űŰűұԱȳűҲ˱ͰٍٲŲرͱͲñ̲˲βDZŰűųȱڱ̲ŲͲԲű̲űŲԲŲ԰ٲײٱͳŲαٱαűҲűұ˲ԱűŲŲűβϱͲٳűűԱ̰űŲԲΰűŲ˰ԱıٍӱҰұűԲٲαײŲβűٱͱϱ˲̲βñұұбҰűٱұװұԱұײԲ̰̱Ӳűٍϰ˲βαDZ˲ٱβҲò̱αٱαűűŲƲԱٱԲٲαӲұűŲԲŲűԱձԱձŲ˱ٱŲбIJ̱ԱԱűҲŲŰ̲ͲԲϰ̳ű̱ı̲ŲıŰббвͱԲŲαŲDZԱȱŲٲűͲȱ˱ҲαŲűɲβűӰŰDZűӱ̱ű̲ͲԲαȱ˱űβұ̱ԱбȲҲҲIJӱٱ˳İűԱ̱űױ˰űӲԲıűıñŲȲűٲ²ȲӰDZӲٲIJӲòűױӱųٱűDzŲβұŲ˱ű̱ԱαŲͱȲذΰٱб˲ٲűűٱűȳŲȳұȱӲٲ̱İαвٱаԲٲȲͲұұбԱŲαŲԲű̲ҲӲٱٰβűϱ̱ұűŲŲԱβűűŰԲȱбٲαΰβӱű˲²̱˱αβű˱ŲԲٱű̱αٱɲͱIJų԰Ų̱ıű̲ӱΰȲŲγڳͰβñDZűűαǰıİŲIJIJñӱıβԲԲȱαȲٍűŰΰű˱űұȱԱԱŲԱͲIJ̱ҲıŲαűŲαٱԲױ̱ŰŲαİԱı԰ԱӲαŲűͳвٲαƱ˱ӲıűŰٲұ˱ԲŲײ԰ȳԱٱβ̲Բ̰ҲҲȱ̲вDZұٱٱԲ̲======================" (17:14:"FROM"::8:" BRYAN COSTALES":8:" 445 NATOMA ST":8:" SAN FRANCISCO":8:" CALIF. 94103" )23:9:"( ANY KEY TO CONTINUE )"; -16368,0 2(16384)12750 <16368,0:33,36:32,2:34nz ::"BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB":I222:"B";:39:"B":I:"BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB";11:4:"* HANGMAN 3.0 *"::11:"(32K APPLESOFT)":12:8:"A GIFT TO THE" 8:10:"SAN FRANCISCO APPLE CORE":8:"==   ˠ˰ŰŰŰŰΰұӲԱӱβҰӱӱϱŲٱıڱٱرװŲűԲŰӲɱұı̱ϳŰԱڰ˲԰űвİҲ̱ŰűűȱŲ̱԰ٲӰȰŲӲȲΰ԰ԲͱβұͲͱŲԱ˲βͱŲ̰İұű²ײ̱DZȱҲβȱȰӱԱβY AGAIN.":32011000"320-12000M"JUST MISSED!! TRY AGAIN!!V320:13:30,2:30,313:30,314:29,315:29,316:28,317:27,308:26,30925,2910:24,2811:23,2712:21,2613:20,2514:17,2415:11,2316:12,2117110M3,1010:3,1015:3,1018:8,922:3,1025:3,1030:3,1034:3,1035y20,2312:19,2413:19,2421:20,231815,1917:17,1816:15,1926:17,182720,15:23,15:18,14:25,14:17,19:19,19:24,19:18,20:25,20"NOT EVEN CLOSE TR202 210F4204$100002F1207FTNTN1:NRNR1O109^L1(A$)}(A$,L,1)(B$,L,1)NN1L(N4(L1))260,270,280,280,280,280:9:18,223:34,353:20,237:25,307:34,358:10,1510:18,2210:34,35s22:"TYPE 1 TO STOP!"?t23:"TYPE 2 FOR ANOTHER WORD."RuND:ND13000]vX(0)nxI11800:Ityz:10);}N0~11"--------"I0990:I1110);A$;I1800:I1110);:B$A$B$EN,ZEROS,BEAUTY,HONEY,IMPROVE,ALMOST,SQUAD,ONION,BULLET,GUIDE,BEIGE,Z HASTE,YIELD,PROVE,MOVIE,UNION,TOUGH,PLURAL,DANGER,FRONT,SQUAD,ERROR,MOVIE,ALMOST,MANGER,EARLYc ENDd13000:***STARTS AT DIFFERENT PLACES***mA$:F0nA$"END"Į:109OULD,SHOULD,WOULD,FOOT,WHY,WHITE,WHILE,WHICH,WHOM,WHO,WHOOP,WHOLE,WHOSE,cG COMPUTER,BENCH,PINCHK CRAWL,DRAW,FAULT,CAUSE,CAUGHT,SHALL,CRAWL,FAULT,CAUGHT,GROWL,PROUD,HOWL,GROUND,MOUSE,CROWD,OWL,CLOUDDL WONDER,SUGAR,TODAY,SWAMP,WATCH,ANOTHER,HEAVLE,USE,MULE,LOOSE,SCHOOL, = CIRCLE,SQUARE A BOOT,COOL,STOOP,BROOM,MOOSE,TOOTH,SHOOT,SPOON,TUBE,FRIEND,HEAD,DOES,SHOE,GUESS,MOVE,COME,GUESS,FRIEND B SHIELD,COUSIN,SQUASH,BUILT,GUARD,TERROR,YOUTH,HF WATCH,PIECE,BUILD,FULL,BUSH,PULL,BOOK,TOOK,CT,HIND,KIND,FIND,BRIGHT,TIGHT,LOAD7 ) TROUBLE,DOUBLE 2 NOSE,THOSE,CLOSE,HOPE,HOLD,GOLD,OLD,TOLD,SPOKE,DROVE,SCOLD,SOLD,BROKE,SMOKE,STOVE 4 GRAVEL,TRAVEL < FRUIT,CHEW,FLEW,NEW,CHEW,GREW,THREW,SUIT,TRUE,SUIT,CHOOSE,ROOM,GOOSE,SOON,FOOD,MULE,RUW,APPROVE,LAUGH ,TIME,LINE,GIVE,STRIKE,SMILE,DIME,WIPE,PILE,PRIZE,WISE,MILE,TIRE,SHINE,TIME,DRIVE,WORTH  GULP,LAUGH,LAUGHTER ! PROMISE,BELIEVE,WEALTH,HEAVY,INSTEAD,WOMAN,MEADOW" ( WIDE,GIVE,PRIZE,TIREWIND,FIND,RIGHT,LIGHT,NIGHT,FIGHT,BLIND,MIGHBULLETIN,STRANGER,JEALOUS,SOURCE  PIECE,DREAM,MEAN,CREAM,TEETH,SWEEP,PIECE,TRIED,EYE,LIE,DIE,FLY,BY,EYE,CRIED,DRIED,CRIES,FLIES,LIES,DIE,CRY,EYE  PLEASENT,SARDINE,TREASURE,SCISSORS,MINUTE,FOREHEAD,LIBRARY,RELEIVE,LEATHERg SOMEONE,QUITE,EYEBROR  MAGIC,LAZYA  TRAIN,WAIT,PAINT,STAY,SAY,THEY,MAIN,PRAYf  YACHT,QUESTION,BUTCHER,WORKMAN YOUNG,COMFORT,COUPLE,POLICE,GATE,GAME,BREAK,VASE,SHADE,SPADE,SNAKE,SKATE,BREAK,GRADE,ENOUGH,PERIOD,TONGUE,PRETTY,NARROW  MOUNTAIN,STATUE  "15000t KNOWN,THIEF,PROVE,WEIRD,USUAL,PRIEST,GLOVE,SWEAT,DOZEN,RURAL,WATER,LINGER,CHALK,SQUAT,FLOOR BOTH,THICK,THIN,CLOTH,WITH,YOUNG,STRING,SANG,LONG,HANG,HUNG,DRANK,BANK,DRINK,TRUNK,YOUNG BEIGE,DISCOVER,JOURNEY,LEISURE,LAUGHTE         !!! ! ! ! ! !!!!!!!!!""" " " " " * j23:5:"BBBBBB( PLEASE WAIT )BBBBB";N n:12:8:"LOADING HANGMAN 3.0"m x1052:"RUN HANGMAN 3.0"A"THESE PROGRAMS AND TO":"GIVE THEM FREELY TO ANY MEMBERS":"OR OTHER INTERESTED GROUPS":"OR ORGANIZATIONS." _::20:"B. COSTALES":20:"FEB 22, 1981" `1052 a23:7:"( ANY KEY TO CONTINUE )"; d16368,0 e(16384)127101 i16368,0,2:35,22:r F"I DO HEREBY CERTIFY THAT THIS":"DISK CONTAINS ONLY PROGRAMS OF":"WHICH I AM THE SOLE CREATOR," P"AND FOR WHICH I RETAIN ALL":"RIGHTS."::"I GRANT TO THE SAN FRANCISCO":"APPLE CORE PERMISSION TO":"USE ALL OR ANY PORTION OF"m Z*" #gN20300!#pN(38):(7):" ",#qN20300A#zN(20):(12):"*"L#{N20300`#N(31):(7):" "k#N20300#N(23):(11):" "#N20300#N(36):(14):" "#N20300#N(19):(3):" "#N20300#N(20):(11):"*"#N20300#N(22):(16):" ":"*""/N20300%"0N(20):(12):" "0"1N20300D"4N(38):(7):"*"O"9N20300d">N(22):(16):"*"o"CN20300"HN(31):(7):"*""MN20300"RN(23):(11):"*""WN20300"\N(36):(14):"*""^N20300"aN(23):(11):" ""bN20300#fN(27):(8):"5220,45215,45:14000[!:240,25230,25235,45240,25:235,50230,55240,55235,50:14000!;120,85120,115140,120160,115160,85140,90120,85124,82140,87156,82160,85!;140,90140,120!;NU15000:NU!$;!>! N!%N75"*N(19):(3)75,2590,2590,4075,40:14000U :115,25100,25100,55115,55:110,40100,40:14000v :125,25125,55140,55:14000 :145,25145,55160,55:14000 :170,25170,55:14000 :180,55180,25195,55195,25:14000!:220,30220,25205,25205,55220,5130993NU1140:A$.3A$"END"Į:1309963NUA 313099G"3^#3A$"END"Į:13099f+3:x6NU1500:NU~6:***TITLE***::3:35,10255,10255,7035,7035,10:14000:65,2550,2550,4065,4065,5550,55:14000 :75,55U 2130992NU140!2A$82A$"END"Į:13099@2NUK213099X3NU160`3A$w3A$"END"Į:130993NU 3130993NU1803A$3A$"END"Į:130993NU3130993NU1120:A$3A$"END"Į:130993NU305/22B2"TYPE IN A NUMBER BETWEEN '1' AND '8'.."J2NU2NU13030,13040,13050,13060,13070,13080,13085,130902130002NU11002A$2A$"END"Į:130992NU2130992NU1202A$2A$"END"Į:130992N:30,10:32,10C /28,11:31,11:34,11:26,12:29,12:33,12:36,12c/27,13:35,13:28,14:34,14o/X120/X1,X6X2:X4,X5X1:X4,X5X3:X4,X:X4,X4/NU160:NU/X2012080/SW112080/0/SW1!/120520/9:SW.:9.X123D.X1,X63:X4,X52:X4,X54:X4,1:X4,5n.29,332:30,324:30,3213:29,3315.6,1025:7,1027:8,929:8,933:7,1035:6,1137.28,3:34,2:27,4:35,4/26,5:29,5:33,5:36,5/28,6:31,6:34,6:30,7:32,7T IT RIGHT! RIGHT!"5+11099N9+"WAY OFF BASE. LOOK CLOSELY AT THE WORD"Y:+11099{>+TINGBETTERBUTYOURTHEIRYET!"?+11099C+"LUKE WARM BUT NOT HOT!! TRY AGAIN!"D+11099H+"ONE MORE TIME (SINCE YOU MISSED)!"I+11099[+.+110993 +"YOU MISSED TONTO!! WATCH CLOSELY!!">!+11099h%+"DO BETTER NEXT TIME! HERE WE GO!!"s&+11099*+"YOU JUST GUESSED! SAY THE WORD ALOUD!!"++11099/+"GOFFED, GOOFEY...ARE YOU BEING CAREFUL!"0+110994+"ERROR! ERROR! GE RIGHT AGAIN!!"R'100995V'"NOT BAD FOR A KID!!"@W'10099j['"PRETTY SHARP!! YOU GOT IT RIGHT!!"ps'|*XX(1)+XYXX10 +XI(XY)+XI11035,11040,11045,11050,11055,11060,11065,11070,11075,11080+"SOME LETTERS OK, TRY AGAIN!!4'10099!8'"CORRECTO MONGO!!",9'10099O='"YOUR COOKING WITH GAS NOW!!"Z>'10099B'"SUPER DUPER!! YOU GOT THAT ONE!!"C'10099G'"YOUR A REAL BRAIN!!"H'10099L'"GO TO THE HEAD OF THE CLASS!!"M'10099Q'"ARE YOU CHEATING? YOURRY HARDER NEXT TIME!":3999= :"YOU NEED TO STUDY!":3999CO'XX(1)\'YY10XXi'IY(YY)$'IY10030,10035,10040,10045,10050,10055,10060,10065,10070,10075)'"RIGHT ON!!!"*'10099.'"BULLS EYE!!"/'100993'"YOU GOT IT!!!" 10:" ";WRNG;" WRONG", SCRENRTN100< SCR(SCRE)W 13:" OR ";SCR;" %" SCR90İ20000:::(20):"THAT'S A SUPER DUPER SCORE!!":3999 SCR80ĺ:"THAT'S PRETTY GOOD!!!":3999 SCR70ĺ:"NOT BAD AT ALL!":3999 SCR60ĺ:"T4,1818%!"CLOSE!! BUT NO BANANA."/@FF1IAF2WRNGWRNG1:325RB330^ETNTN1kJF4120vK21000T"THE WORD WAS ";A$;" NOT ";B$^I15000:I_ch109  5:"YOUR SCORE WAS...." 8:" ";NR;" RIGHT"3900A$" "4000970*wLINE1oxLINE1410,1420,1430,1430,1450,1430,1430: 1430=1440=1460=1470 u}" * ";:5000" * * ";:5000"* *";:5000"*****";:5000LIN1510,1430,1430,1510,1430,1430,1510"**** ";:"2400A$"L"2500(A$"M"26009A$"N"2700JA$"O"2800[A$"P"2900lA$"Q"3000}A$"R"3100A$"S"3200A$"T"3300A$"U"3400A$"V"3500A$"W"3600A$"X"3700 A$"Y"3800A$"Z"1)"Y"980 20000# LINE176 LTTER1(L$)K A$(L$,LTTFR,1)\ A$"A"1400m $A$"B"1500~ .A$"C"1600 8A$"D"1700 BA$"E"1800 LA$"F"1900 VA$"G"2000 `A$"H"2100 jA$"I"2200 tA$"J"2300~A$"KCONTINUE ";:A$ A$ A$* ::34 1000S "ENTER LESS THAN 7 CHAR."Y c 1000 "ENTER LESS THAN 13 CHAR."::1000 "WHAT LETTERS "; L$ : (L$)6(PRNTER$,1)"Y"950 (L$)0955 (L$)13(PRNTER$, IF YOUR":"PRINTER IS SET TO 80 CHAR.S": y::"NOTE: YOU CAN NOT ENTER NUMBERS OR":"SYMBOLS SUCH AS .,<>+;*:!#$%&"::"AFTER YOUR LETTERS HAVE BEEN PRINTED":"OUT THERE WILL BE A WAIT FOR YOU TO":"TURN OFF YOUR PRINTER":: |" HIT ANY KEY TO S"::"IF YOU DO NOT HAVE A PRINTER", ^:\ h" WHEN THE COMPUTER ASKS 'WHAT LETERS',": r"TYPE WHAT YOU WANT TO BE PRINTED"::"IS THERE A PRINTER CONNECTED TO YOUR":"APPLE (Y/N) ?";PRNTER$:* w(PRNTER$,1)"Y"ĺ"YOU CAN ENTER UP TO 13 LETTERS& PETER CUSIMANO"2 :" DAVID - 14; PETER - 13"_ ::::7:" ON THE APPLE II COMPUTER "p I15000:Iy ,:2 6" WELCOME TO THE 'ALPHABET PRINTER'"::$ @"THIS PROGRAM WILL PRINT A CHAR. 7 LINES"::"TALL, BUT YOU CAN ONLY ENTER 6 LETTERAT LINE #21007 ENTER HOW=YOUR PRINTER IS ACTIVED ZAT LINE #6030 ENTER HOWsYOUR PRINTER IS DE-ACTIVATED :8:0,9:I110000:Id::6n11x" ALPHABET PRINTER ":::2 " PROGRAMMED BY DAVID """"""""     N180,115155,115:14000)R220,135215,130210,130205,135210,140215,145220,150225,145230,140235,135230,130225,130220,135)RN11500:)R)R)U5,85:14000C(R260,70270,70275,80275,90270,100260,100260,70N(R14000(R125,115125,120130,120130,145125,145125,150140,150140,145135,145135,120140,120140,115125,115:14000)R155,115155,120165,120165,150170,150170,120180,120110,100110,70:14000G'lR140,100140,70153,100165,70165,100:14000b'vR175,70175,100:14000'{R200,70185,70185,85200,85200,100185,100:14000'R225,70210,70210,85225,85225,100210,100:14000 (R250,70235,70235,100250,100:245,85235,15200,15200,50180,15175,15+&?R14000S&DR215,15215,55240,55240,15215,15^&ER14000&FR220,20220,50235,50235,20220,20&IR14000&NR45,7055,8565,70:55,8555,100&OR14000&XR70,7070,10085,10085,7070,70:14000'bR95,7095,10070,1570,5595,5595,1570,15)%!R14000L%&R75,2075,5090,5090,2075,20W%+R14000%0R110,15110,55115,55115,35130,35130,55135,55135,15130,15130,30%1R130,30115,30115,15110,15%5R14000 &:R175,15175,55180,55180,20200,55205,5520 $N20300$N(29):(4):"*")$N20300=$N(38):(9):"*"H$N20300\$N(29):(4):" "h$NNUNU1$NNU20080,20060,20110,20030,20040,20060$N250$KO$LOS16336:N110:SOUND(S)(S)::$R***OH NO! YOU DID NOT GET IT***$R:3%R