' +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- ( Y Ϡ@跻~!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 ~(` d ֠z# u`#9500"#CC1:16368,0:1005,#9800a#:23::13:"VESSEL DOCKED":TT12000:::X,0u$VDVD1:F10000 $9500$CC1:16368,0:1005%:22:13);"FUEL REMAINTNG: ";F0%T%9700^$:23::13:"FUEL EXHAUSTED":TT12000::1066X11019000'E(X128)091007JYX:XX128GTY,0:X,153M^b(#II10661096102#XIIXII5YX:XX856<#II:8020#9600#:23::12:" VESSEL DESTROYED:VW = VW + 1: FOR TT = 1 TO 2000:NEXT : F = 10000: NORMAL: POKE X,0ALUABLE"6"VESSEL AND MANY HUMAN LIVES. TAKE THIS"e"ASSIGNMENT SERIOUSLY. THAT WILL BE ALL":"PRESS RETURN JO BEGIN";AA$o TT16000: X16368,0:XS]AA0bAAAA1:8000lAA117040v92007010768@XSE"/z" BETWEEN KEYS ONE THROUGH THREE, THE"["POSSIBLE CHOICES INCREASING FOR EACH""VESSEL UP TO NINE, THEN START OVER."" IF YOU FIRE AT THE WRONG TIME OR"" ALLOW THE VESSES TO RUN JOUT JOF FUEL,""YOU WILL HAVE DESTROYED A V >" ON LTHE SCREEN AS BLUE AND WHITE TUBES."[ H" WHEN YOU THINK THE VESSEL IS AT THE " R"OPENING, PRESS A NUMBER DEY BETWEEN" \"ONE AND TWO FOR THE FIRST VESSEL." f"PRESS RETURN TO CONTINUE ";AA$p:"FOR THE SECOND VESSEL YOU MUST CHOOENT: TO SAFELY DOCK TWENTY"F "BATTLE CRUISERS RETURNING FROM DEEP"W "SPACE. ":{ "PRESS RETURN TO CONTINUE";AA$ :" THE VESSELS HAVE LIMITED FUEL REMAINING" *" SO YOU MUST DOCK THEM AS SOOM AS" 4"POSSIBLE. YOU WILL SEE THE PORTS".11100. IC9S1832CC1:16368,0:1005E LT,0:S,153:FF10U VDI11090 " A LONG TIME FROM NOW, IN A GALAXY" "LIGHT-YEARS AWAY..." :"YOU HAVE BEEN ASSIGNED TO DUTY ABOARD" " THE SPACE CARRIER XENOPH0N." "YOUR ASSIGNMVDVW209400 D((1)C1)4 F1F0:9300> 9500I S1832a S1871DI1:1090} ((16384)176)D7000 $TS:SS1 .T,0:S,153:FF10 81040 BTS:SS1 E((16384)176)DĹT,0:7000 GS1832DI1:C91000 HDI4840>RA(1)A(2)'HTR(RER)-RF\A(1)OP$A(2)"=";CS$;OfTM0XpCP1bzG$"":""BK$;:: BLINK CURSORTF0 INKEY$ROUTINEK(KB)K128K$"":1030K$(K128)KF,0K$EN$1070K$BK$CP199T BE >0. ENTER NEW UPPER LIMIT";*U(2);U(2)0640FI12RN1L(I)^N2U(I)h1370I2IP4NR0710A(I)NRIIP760,780,810,830RA(1)A(2)840 A(1)A(2)680RA(1)A(2) 840*RA(1)A(2)1,225 0,426: M( X28:540: A: X33:560: NA 6W Y79:10,34Y:o X3034:10,39X:u   BLINK WORD  22:20L I1L (W$,I,1);" ";:   WRONG GUESS 24:1 NH1ĺ"NO ";G$;:935 212821287 nJI13010$ xJ,K, := I15761578N I,K:I37,KT i I14101922128y JII355 J,K : I10661450128 JII355 J,K : 16368,0:C9C1 C9C1 VD0VW0F10000 R " PROGRAM TITLE BE PREPARED9 (4);"BLOADSOUND"V:10:">>BE PREPARED<<""BE SURE YOU HAVE READ THE INSTRUCTONS("BEFORE YOU START. DO YOU NEED TO "2"SEE THEM NOW (Y,N)? ";AA$<AA$"N"95F:2000ZK127_ dI      IME LIMIT, 0-10000 (0 = NO LIMIT)"*0TLA:TLOTL10000550JD150dNIP2U(1)L(2)630X"ADJUST RANGES SO THAT"b"UPPER LIMIT A IS > OR = LOWER LIMITB"l330vIP4U(2)0680"UPPER LIMIT FOR OPERAND B (DIVISOR)" "MUSON, UPPER LIMIT JOF B") "MUST BE > 0"2 390F L(I)U(I)470c "MUST BE < OR = ";L(I)l 390s I| 150 "ENTER ERROR TOLERANCE, 0=25" "(0 = NO MARGIN OF ERROR)" ER ER0ER25490 ERER100 150"&"ENTER T$"+-*/" -Q2$OP$ .QP1' /14001 0IPQF? 6IP0280H @150S JI12q T"LOWE LIMIT FOR "OD$(1);{ ^L(1) hL(1)0390 r"MUST BE > OR = 0" |340 "UPPER LIMIT FOR "OD$(1); U(1) I1IP4U(I)O440 "FOR DIVILI(ER10.5)"%"& :"4-TIME LIMIT:"TL4 I1VW1> "=";E IK q "SELECT <1>-<4> TO CHANGE DRILL" "OR <0> TO START"; S0 S S0S4150  S1590,280,330,490,550 "SELECT AN OPERATION: + - * /" "OP$ ,Q11Y2:Y21,Y1X1I6 LOAD MUSIC ROUTINEPI770795:M:I,M:I 172,01,03,174,01,03,169,04,32,168,252,173,48,192,232,208,253,136,208,239,206,0,03,208,231,96280*&::5:8:"... SEE YU LATER...":H0230,32:62450::1994:S:J13qDCL0:L00:HI19:S11:620NCL17:L019:HI0:S11:620XJblIL0H1S1:((1)CL):X119I:X220I:Y119I:Y220IvX1,X2Y1:Y11,Y2X2X21,X50 DD1:D10500 360/ :C10:150< D0:430J  YOU WINW D0:560~ 22:8::" Y O U D I D I T ! !" I15:768,1:769,200I30:770:I:I110:768,1:769,40I20:770:I:24:10:"TRY AGAIN (Y/N) ?";:A$:A$("Y")ĉ:A(X)BC# |A$("-")ĸA(X)BC< A$("*")ĸA(X)BCR A$("/")C0360o A$("/")(BC)BC360 A$("/")ĸA(X)BC :7:8:"CORRECT ANSWERS IN A ROW = ";::D: EA(X):15:15:B;" ";A$;" ";C;"= ";:F:FE480 :C11:110:7:"TO";::"DIVIDE";::" : TYPE /"G @13:7:"YOUR CHOICE = ";| JA$:A$("*")A$("+")A$("-")A$("/")330 T17:7:"HIGHEST NUMBER = ?";UL:19:7:"LOWEST NUMBER = ?";LL ^RUL1LL hC((1)R)LL:B((1)R)LL rA$("+"):::34,0:::b ::10:12:"F I R S T M A T H"::18:4:"... W A I T A S E C O N D ..."k 120 :4:7:"TO";::"ADD";::" : TYPE +" "6:7:"TO ";::"SUBTRACT";::" : TYPE -" ,8:7:"TO";::"MULTIPLY";::" : TYPE *"( 6 200@ 18,2223:17,24:23,24:16,25:24,25:15,26:25,26G 1h I1100:X(I)20,Y(I)20:I 22:10::C11ĺ" G O O D J O B ! ! "::250 :22:6:" S O R R Y B U T ";B;" ";A$;" ";C;"=";" ";::E: I12000:I I11500:I d670n260&xX(100),Y(100)vP2(355113):I1100:ANGLEP(I100):X(I)15(ANGLE):Y(I)15(ANGLE):I|230,32:62450::1994::7:16,15:24,15:4:20,1911:C1019015,23:25,23:16,24:24,24:17,25:23,25:18,2226      NT TO CHANGE" = "ANYTHING TYPE THE LINE NUMBER THAT"C d "YOU WOULD LIKE TO CHANGE."j "======================" :"1-OPERATION (+-*/):A"OP$"B" :"2-RANGES:"L(1)"<=A<="U(1)" & "L(2)"<=B<="U(2)" :"3-ERROR TOLERANCE:"D. ADDRESS ZVW40* dDG$"0123456789."M nOP$,L(1),U(1),L(2),U(2),ER,TLg x +,10,99,10,99,0,100p KR0y KQ0 300 :(VW11)2)"MATH DRILLS" "I'LL START BY SHOWING YOU THE SPECS THAT" "WE'LL START WITH. IF YOU WA &X1,X2Y: 0Y,Y4X: N1 :Y1,Y2X1B DY2,Y3X2S NY,Y4X3:g X INIT DISPPLAYn ]1 bY0:X2:510: H gX7:540: A lX12:560: N v0,417:18,200 {18,204:2,320 19,2: G 0,422:1,223 2,324:ECT WORD 621:1, @"WORD IS:";:(20L)I JI1L:(W$,I,1);" ";:O Td  GUESS A LETTERr 24:23: "GUESS  LETTER";::" "; " "; G$   LETTERS H,A,N Y,Y4X: H Y,Y4X3 X1,X2Y2: 510: A"6 PRINTER ON/OFF"79b"7 EXIT THIS PROGRAM":32,0:C9 b32,0:k9*b22:20:868:"WHICH: ";S$:S(S$)94bS1S7ĺ(7):251309>bS1000,2500,4000,5000,6000,24000,8009Hb9 9APPLE COMPUTER, INC.9 COPYRIGHT 4/1/1979S ":25070?8a" ";::" ON ":w8a10:"YOU MAY CHOOSE FROM THE FOLLOWING:":32,5::8a"1 SEARCH FOR A LISTING":"2 LIST THE ENTIRE FILE"8b"3 ENTER NEW LISTINGS":"4 DELETE A LISTING"9 b"5 EDIT A LISTING": APPLE COMPUTER, INC. PHONE LIST ";::"----------------------------------------"7a"PROGRAM CURRENTLY CONTAINS "NR" LISTING";:NR1ĺ"S";7a:"ROOM FOR "(150NR)" ADDITIONAL LISTINGS"7a8:"THE PRINTER IS";:PRĺ" OFF";)8aPRĢ9:" TROL CHARS. 6B$""%6(A$)ı46I1(A$)Y6((A$,I,1))26B$B$(A$,I,1)`6If6~6] PRINTER ON/OFF 6]PRPR:250506]6a MAIN MENU 6a:NR:NRNR10006a::1:"----------------------------------------";:X7a" EDIT AND PRESS":"'RETURN'.":5020i513:868:"DO YOU WISH TO EDIT THIS DATA (Y/N) ";S$:S$""250005(S$,1)"Y"NN$NA$:60505(S$,1)"N"İ50705"":60205 GO EDIT THE LINE 5:8:NN$:4020:4360525000 6 REMOVE CON(S$,1)"N"ĺ"":5130 45081<4P OK THEN, KILL IT! M4ZUD1:4250k4dCU(START((LN201)46))|4nCU,((92))4x4450:250004p EDIT A DATA LINE 4z:3000#5|:10:"PLEASE ENTER THE NAME OF THE PARTY WHOSE";:"LISTING YOU WISH TO8 9525 "ENTER A NUMBER FROM 1 TO 1000"S "TO GET ME THINKING ";SDh SD1SD100010uR(SD)S(2),U(2),A(2),OD$(2)OD$(1)"A"(OD$(2)"B"2EN$(13)<BK$(8)FDL$(8)(32)(8) UKB16384:KF16368: KEYB       ,1)ĺG$;" ";:NLNL1:R1:130$ xX+ I7 R180L NHNH1:900:80W 23:1 NH6ĺ" YOU ARE HANGED BUNKO! !";:300:190 "YOU ARE SAVED ";:700 24:23: "PLAY AGAIN ???";::" "; G$:G$"Y"20 :: , PRINT CORR HANGMAN::15B600: DISPLAY HANGMAN AND GALLOWSY(1000: FIND WORDSq2L(W$):22:(20L)<I1L:"- ";:FNL0:NH0:S$""PNLLNH6160Z400: GUESS A LETTERd22:X20L:X:R0nI1LpXX2 sG$(W$,I   (NA$,(K$))K$510033(NA$,1)(92)UUNR5070?3UUUU1P3UUNR5070]3:25000t3 FOUND A MATCH 3LN(123)(124)256:UUUU13:11:NA$:S5ı3 13:868:"DO YOU WISH TO DELETE THIS DATA (Y/N) ";S$:(S$,1)"Y"52004 DELETE DATA CONTENTS $2:30002:10:"PLEASE ENTER THE NAME OF THE PARTY YOU":"WISH DELETED FROM THE DIRECTORY AND":"PRESS 'RETURN'."214:"-> ";K$:K$""S5ġ:250002K$""250002 FIND AN EXACT MATCH 2:Z:UU13NA$:E 1T$:(T$,1)(92)4310:1LN(123)(124)256T1 CALCULATE OFFSET r1CU(START((LN201)46))10 POKE DATA LINE 1:ICU(CU39)1DI,((NN$,I1CU,1)):1b SET UPDATE FLAG 1lMFMF1:S4S5ı1v250001242000^UD1-0h PAD TO 40 CHARACTERS U0rI(NN$)(39(NP$)):NN$NN$".":m0|NN$NN$NP$:S5ı0 UPDATE DATA NUMBER 0:T:TTUD:CU(START11)0T$(T):I1(T$)0(CUI),((T$,I,1)):0S4ı1 FIND EMPTY DATA LIN";::"NAME";::" ENTRY:":10:14:NN$c/12:"AND THE ";::"PHONE NUMBER";::":":14:14:NP$/,18:8:868:"ARE THEY CORRECT (Y/N) ";S$:(S$,1)"Y"4180/6(S$,1)"Y"S5ġ:6000/@(S$,1)"N"ĺ"":4100/J4000/OS542000TS54020].10:958:"ENTER NEW NUMBER THEN PRESS 'RETURN'.":"(USE THE FORMAT: XXX XXX XXXX)".13:"-> ";A$:6100:NP$B$:NP$""S5Ĺ32,0::25000.NP$""Ĺ32,0:25000.(NP$)12ĺ"":4050. IS ENTRY CORRECT? '/::8:"HERE IS THE :I12000::25000-32,3:10:958:"ENTER NEW NAME AND PRESS 'RETURN'.":"(USE NO COMMAS, COLONS OR QUOTES.":"TWENTY-FIVE CHARACTERS, MAXIMUM.)"-14:"-> ";A$:6100:NN$B$:NN$""S5Ĺ32,0::25000-NN$""Ĺ32,0:25000.(NN$)25ĺ"":(NA$,1)(92)INR2540#, 1100=, VT22VT2:3:958D, IN, 1200k, IS DATA FILE EMPTY? , ::NR0Ģ12:9::"<< NO NAMES ON FILE >>"::I12000:I::25000, , ENTER LISTINGS -:NR150Ģ12:12:"DATA TABLE FULL!"++ GOT A FULL PAGE Z+22:958:"ENTER 'RTN' TO CONT - 'ESC' FOR MENU ";:T$q+(T$(27)ġ:25000+2T$(13)Ģ3:1:958:VT3:+<(7):1300+ + LIST EVERYTHING + 3000+ 1012+ :Z+ VT2:FO0:I1NR, NA$:1500:I:25000*K'*L GOT ONE! H*NVTVT1:VT21PR1İ1300\*PFO1Ģ12:868i*QPRİ700y*VVT:1:NA$*`PRİ750*tINRı*PRİ700:" ":" ":" ":" ":750*22:868:"THAT'S ALL OF THEM! - PRESS 'RETURN' ";:"";S$:25000Z)FO0:I1NR1)NA$:(NA$,1)(92)1040W)SK0SK1ĭ(NA$,(S$))S$1075h)II1(NA$))$(NA$,II,(S$))S$FOFO1:1100:1075).II)3I:FO1200)812:868:12::"<< NOT FOUND >>"::PRİ700:S14:" "::750*B(7):I1PLEASE ENTER THE SEARCH KEY:":13:5:"";S$:S$""25000O(PRİ700:" ":" "(:1:" NAME PHONE NUMBER":"----------------------------------------"(PRİ750(S22510(12:868:12::"<< SEARCHING >>"::VT2):N SAVED!!":22:'z::22:/' SEARCH D'3000:OP11010':9:5:"WOULD YOU LIKE TO SEARCH BY"::10:"1 WORD (FAST)":7:"OR 2 CHARACTER (SLOW)"'14:868:20:"WHICH: ";SK$:SK(SK$):SK1SK2(SK$)1ĺ"":10078(:11:5:":&  END ROUTINE %&*MF0890U&4DISKĺ(4)"SAVE PHONE LIST":::22:976:&>:11:"INSERT A NEW TAPE INTO THE RECORDER, SET";:"ON RECORD, AND PRESS 'RETURN' ";:"";S$&HI11500:::I12000::'R:12:"THE PROGRAM AND DATA HAVE BEE)(1001)192DISK13%DISKĺ(4)"NOMON C,I,O":`% GET ADDRESS OF FIRST DATA STATEMENT %START((103)(104)256458)%& SET FAST/SLOW SEARCH %0OP0%:25000% ACTIVATE PRINTER %SL:% DE-ACTIVATE PRINTER &0..0$[\.......................................^$\\.......................................$]\.......................................$^\.......................................$ SET PRINTER SLOT $SL1$ DISK SYSTEM?? %(994............................J#V\.......................................x#W\.......................................#X\.......................................#Y\.......................................$Z\.............................................6"P\.......................................d"Q\......................................."R\......................................."S\......................................."T\.......................................#U\.............................................P!K\.......................................~!L\.......................................!M\.......................................!N\......................................."O\.............................................< E\.......................................j F\....................................... G\....................................... H\....................................... I\......................................."!J\.....\.......................................V@\.......................................A\.......................................B\.......................................C\....................................... D\.............................................B:\.......................................p;\.......................................<\.......................................=\.......................................>\.......................................(?.4\.......................................\5\.......................................6\.......................................7\.......................................8\.......................................9\.............................................H/\.......................................v0\.......................................1\.......................................2\.......................................3\.............................................4)\.......................................b*\.......................................+\.......................................,\.......................................-\........................................\.............................................N$\.......................................|%\.......................................&\.......................................'\.......................................(\.............................................:\.......................................h\....................................... \.......................................!\......................................."\....................................... #\.............................................T\.......................................\.......................................\.......................................\....................................... \.............................................@\.......................................n\.......................................\.......................................\.......................................\.......................................&\.ODLES,CUP,200,7,37,21. OATMEAL,CUP,150,5,26,3M8 SUGAR,CUP,770,0,199,0pB ALMONDS,1/2 CUP,425,13,13,38L WALNUTS,1/2 CUP,325,7,8,32V END,"",0,0,0,0 \.......................................Z\.......................................\.......................................\.......................................\.......................................\.............................................F\.......................................t \....................................... \....................................... \....................................... \.......................................,....2\.......................................`\.......................................\.......................................\.......................................\.......................................\.............................................L\.......................................z\.......................................\.......................................\.......................................\.............................................8\.......................................f\.......................................\.......................................\.......................................\.......................................\.............................................R\.......................................\.......................................\.......................................\....................................... \.............................................>\.......................................l\.......................................\.......................................\.......................................\.......................................$\...\.......................................X\.......................................\.......................................\.......................................\.......................................\.............................................D\.......................................r\.......................................\.......................................\.......................................\.......................................*..0 \.......................................^ \....................................... \....................................... \....................................... \.......................................\.................NT LINDA........716 889 3436J \.......................................x \....................................... \....................................... \....................................... \.....................................288 27806 ROSSANA DIFILIPPO...........716 482 9479d SUE BRYSON..................716 482 5711 CARL - WORK NUMBER..........716 588 4502 GINNY MCHUGH................716 482 6249 UNCLE TOM AUNT DIANE........716 334 2418 UNCLE TIM AUER ROMAN..............716 288 5544P THE GAGLIOS.................716 671 8684~ DEBBIE VANSAVAGE............716 654 8848 GRANDMA MOMS SIDE...........716 328 7440 MARC AND DAVID TILTON.......716 288 7926 COREY HAMM..................716 SS *# m* THAN 400!! *@ n* *] o* PROGRAM WILL *z p* SELF-DESTRUCT! * q* * r*********************** s 1013 HALINA MINURKA..............716 338 7091" JENNIF1d***********************;e* *Xf* W A R N I N G *ug* - - - - - - - *h* *i* DO NOT MODIFY *j* ANY LINE IN THIS *k* PROGRAM WITH A * l* LINE NUMBER LES,CUP(CANNED),200,0,52,0@ PINEAPPLE,SLICE(CANNED),95,0,26,0\ RASINS,CUP,230,2,62,0{ CORNMEAL, CUP,360,9,74,4 FLOUR,CUP,400,12,84,0 WHEAT FLOUR,CUP,390,13,79,2 BROWN RICE,CUP,748,15,154,3 RICE,CUP,692,14,150,0$ NO POTATOES,1 MED.,100,2,22,0; TOMATO,1 MED.,25,1,4.5,0V SPINACH,CUP,26,3,3,0s APPLE,LARGE,100,0,26,0 APPLE,CUP,100,0,26,0 BANANA,1 MED.,85,0,23,0 BANANAS,1 MED.,85,0,23,0 BLUEBERRIES,CUP(CANNED),245,1,2,0 PEACHE                    CARROT,CUP,45,1,10,00R CARROTS,CUP,45,1,10,0O\ CAULIFLOWER,CUP,30,3,6,0if CELERY,CUP,20,1,4,0p CORN,CUP,170,5,41,0z ONION,1 MED,20,.5,5,0 ONIONS,CUP,80,2,18,0 PEAS,CUP(CANNED),68,3,13,0 POTATOE,1 MED.,100,2,22,0 FLOUNDER, LB, 914,137,0,37<  CRABMEAT,LB,480,75,5,11W TUNA,LB,907,133,0,37v  GREEN BEANS,CUP,25,1,6,0* LIMA BEANS,CUP,140,8,24,04 KIDNEY BEANS,CUP (CANNED),230,15,42,0> BROCCOLI,CUP,45,5,8,0H CABBAGE,CUP,40,2,9,0M V A$(100)& D$(4): CONTROL-D?"INPUT FILE===>";F$^========================= = READ IN THE DATA AND PR INT = = THE ORIGINAL ORDER. ===========================100ALII1AL#"A$(";I;")= ";A$(I) (I,4I,4I"PLEASE WAIT WHILE IT SETS UP THE MAZE":::R ::5:12:"CONGRATULATIONS !" :7)"YOU HAVE FINISHED THE MAZE IN ":7)T;"SECONDS" "DO YOU WANT TO PLAY AGAIN? ";Y$ (Y$,1)"Y"Ĭ'' 1,2,4,0,5,3,1,2,0,4,3,5,1,2,3,5,4,0,1,2,5,3,0::"-QUIT";:17::"F";::"-CHANGE FACING"W23:"HIT ";::"SPACE";::"FOR MORE"o (16384)1272080*16368,0:::"F";::"WILL COME BACK WITH A QUESTION AS TO "::"WHICH FACING YOU WISH. HIT JONLY ONE KEY"::"AND ";::"RETURN":.4::"YOU MUST TRY TO FIND IT IN AS FEW TURNS ":"AS POSSIBLE. THE COMMANDS ARE :":6::"U";::"-UP";:17::"S";::"-SOUTH":6::"D";::"-DOWN";:17::"E";::"-EAST":6::"N";::"-NORTH";:17::"W";::"-WEST", :6::"Q";"xD$;"CLOSE OLD MAZE/"N$;1220o12:18::"MAZE"::22:"DO YOU WANT INSTRUCTIONS? ";Y$:(Y$,1)"Y"ı:"THE OBJECT JOF MAZE IS TO FIND YOUR WAY"::"OUT JOF A 5X5X5 CUBIC MAZE. IN ONE OF THE ":"ROOMS THERE IS AN EXIT OUT JOF ;THE MAZE."S1! OIL,TABLESPOON,125,0,0,14L VEGETABLE OIL, TABLESPOON,125,0,0,14i BEEF,LB.,1307,112,0,91 GROUND BEEF,LB,1307,112,0,91 CHICKEN,LB,1326,114,0,91 LAMB,LB,1675,107,0,75 HAM,LB,1547,85,0,117 COD, LB,777,128,0,23ING CREAM,CUP,860,4,6,94>  COTTAGE CHEESE, CUP,240,30,6,11h  CHEDDAR CHEESE,1-INCH CUBE,70,4,0,6  EGG,1 EGG,75,6,0,6  EGGS,1 EGG,75,6,0,6  CREAM CHEESE, OZ.,105,2,1,11  BUTTER,1/4 LB.,800,0,0,90 MARGARINE,1/4 LB.,806,0,0,9/";N$:D$;"WRITE OLD MAZE?";N$Q<A115:X115:S$(X1,A1):::X:Y:A:T:FCuFD$;"CLOSE JOLD MAZE/";N$:3000P"WHAT IS ITS NAME ";N$ZD$(4)dD$;"OPEN OLD MAZE/";N$:D$;"READ OLD MAZE/"N$nA115:X115:S$(X1,A1):::X:A:T:FCING 1-N 2-S 3-E 4-W ";FC:FC1FC4128021220V :18:SX;" ";SY;" ";SA::1220" DO YOU WANT TO SAVE THES MAZE? (Y OR N) :INPUT Y$: IF LEFT$ (Y$,1) <> "Y" THEN GOTO 3000"WHAT DO YOU WANT TO CALL IT ";N$(D$(4)2D$;"OPEN OLD MAZEX1Y5Y1A5A1P;R"YOU WIN":T100,100:T100,50:T100,50:T75,66:T100,66:T75,66:T60,255:3000:3:0,0:62454:0:120I16:(S$(X,A),(Y1)6I,1)"X"Ă:1010RFC(FC,I)10:R125,130,135,140,145,150:1010("WHAT FACA$"E"D5LA$"?"1290+VA$"W"D6=`A$"F"ī1280KjD01010UoTT1t(S$(X,A),(Y1)6D,1)"O"ĺ(7):1010~D1160,1170,1180,1190,1200,1210AA1:1220AA1:1220YY1:1220YY1:1220XX1:1220fX5C1:12207:22:18:FC$(FC):A$"":D0:LS1ĺX,Y,AV22:"TIME :";T:TIME180n(16384)1271030:TT1:22:"TIME :";T:1020A$ A$"*"LS1S$"Q"1300A$"U"D1$A$"D"D2.A$"N"D38A$"S"D4 BX,A),L):S$(X,A)P1$"O"P2$:280wX1:P1$(S$(X,A),(Y1)65):L29(P1$):P2$(S$(X,A),L):S$(X,A)P1$"O"P2$:280SXX:SYY:SAA"23:"HIT ANY KEY TO START",(16384)127300616368,00 X((1)5)1:Y((1)5)1:A((1)5)1:FL):S$(X,A)P1$"O"P2$:280rY5:P1$(S$(X,A),(Y1)63):L29(P1$):P2$(S$(X,A),L):S$(X,A)P1$"O"P2$:280 Y1:P1$(S$(X,A),(Y1)62):L29(P1$):P2$(S$(X,A),L):S$(X,A)P1$"O"P2$:280 X5:P1$(S$(X,A),(Y1)64):L29(P1$):P2$(S$(X,A)"X"::@X((1)3)2:Y((1)3)2:A((1)3)2oRD((1)6)1:RD250,255,260,265,270,275A5:P1$(S$(X,A),(Y1)6):L29(P1$):P2$(S$(X,A),L):S$(X,A)P1$"O"P2$:280A1:P1$(S$(X,A),(Y1)61):L29(P1$):P2$(S$(X,A),$(X,A)S$(X,A)"O":205/ S$(X,A)S$(X,A)"X"Z Y5(1).8S$(X,A)S$(X,A)"O":215r S$(X,A)S$(X,A)"X" X5(1).8S$(X,A)S$(X,A)"O":225 S$(X,A)S$(X,A)"X" (S$(X1,A),(Y1)65,1)"O"S$(X,A)S$(X,A)"O":235S$(X,A)S$(Y"1360 A15:X15:Y158 T10A10X10Y,10d A5(1).80S$(X,A)S$(X,A)"O":180| S$(X,A)S$(X,A)"X" (S$(X,A1),(Y1)61,1)"O"S$(X,A)S$(X,A)"O":190 S$(X,A)S$(X,A)"X" Y20200 (S$(X,A),(Y2)64,1)"O"S119,59159,59159,129119,129119,59129,69149,69149,119129,119129,69:149,69159,59:149,119159,129:129,119119,129: 229,49259,39259,149:229,139229,49:229,49259,49:229,139259,139: S$(6,6) "RESTART OLD MAZE ";Y$:(Y$,1)"79,0:209,129279,159:69,1290,159:+ }n 109,9169,9159,19119,19109,9:119,19119,9:159,19159,9: 119,139159,139169,149109,149119,139:119,139119,149:159,139159,149: 19,3949,4949,139:19,14919,39:19,13949,139:19,49: 08,241,96& 1013,76:1014,0:1015,3. :8 Z2000M dFC(5,7):FC$(5) iFC$(1)"NORTH":FC$(2)"SOUTH":FC$(3)"EAST":FC$(4)"WEST" nB14:I16:FC(B,I):: s155% x0,0279,0279,1590,1590,069,29209,29209,12969,12969,29:209,292e 201,84,208,15,32,177,0,32,248,230,138,72,32,183,0,201,44,240,3,76,201,222,32,177,0,32,248,230I768833:P:I,P:I 104,134,3,134,1,133,0,170,160,1,132,2,173,48,192,136,208,4,198  1,240,7,202,208,246,166,0,208,239,165,3,133,1,198,2,2         PRNS;"GRAMS PROTEIN" > CBNS;"GRAMS CARBOHYDRATE"D [ &FANS;"GRAMS FAT"a 0g 1 :"TYPE 1 TO ANALYZE ANOTHER RECIPE" D" 2 TO END" NS XS1570 ]S2570 bS05,620 l v MILK,CUP,165,8,12,10  WHIPP"PROTEIN GRAMS (G.) PER ";U$$ N2E "CARBOHYDRATE (G.) PER ";U$M N3e "FAT (G.) PER ";U$m N4v 180 "HOW MANY SERVINGS DOES THE RECIPE MAKE?"; NS NS1480 "EACH SERVING CONTAINS"  CANS;" CALORIES"   10:"GOOD LUCK" SATA FOR ";IG$7 " 3 TO ENTER A NEW INGREDIENT."> "SK ,S1260X 1S3260j 6S320,370,90p @ JN$,U$,N1,N2,N3,N4 TN$"END"90 ^N$ h330 r"ENTER MEASUREMENT UNIT FOR ";IG$; |U$ "CALORIES PER ";U$ N1 IS A NUMBER GUESSING GAME."! K "I WILL PICK A NUMBER FROM 1 TO 100"Q z "YOUR JOB IS TO GUESS THAT NUMBER."  "YOU CAN HAVE 7 GUESSES BUT AFTER"  "THAT I GET TIRED AND HAVE TO TELL"  "YOU WHAT THE NUMBER IS." GO"  =========================( E "TYPE -GO- TO START";S$T S$"GO"ıc 250: ENDi  "WHAT IS YOUR NAME? ";N$ "O.K. HERE WE GO ";N$   ====================  INTROSUBROUTINE  =================== "THIS "PLEASE WAIT WHILE IT SETS UP THE MAZE":::R ::5:12:"CONGRATULATIONS !" :7)"YOU HAVE FINISHED THE MAZE IN ":7)T;"SECONDS" "DO YOU WANT TO PLAY AGAIN? ";Y$ (Y$,1)"Y"Ĭ'' 1,2,4,0,5,3,1,2,0,4,3,5,1,2,3,5,4,0,1,2,5,3,0::"-QUIT";:17::"F";::"-CHANGE FACING"W23:"HIT ";::"SPACE";::"FOR MORE"o (16384)1272080*16368,0:::"F";::"WILL COME BACK WITH A QUESTION AS TO "::"WHICH FACING YOU WISH. HIT JONLY ONE KEY"::"AND ";::"RETURN":.4:N$,U$,N1,N2,N3,N4& N$"END"2507 N$IG$150Z "HOW MANY "U$;"(S) ARE USED";a Up CACAN1U PRPRN2U CBCBN3U FAFAN4U 90 " NODATA AVLAIABLE ON ";IG$ "TYPE 1 TO SEE FOOD LIST" " 2 TO ENTER D & "THE NUTRITIONAL ADVISOR",F"TYPE IN THE RECIPE"h("INGREDIENTS, ONE PER LINE."q2CA0z<PR0FCB0PFA0Z[d"INGREDIENT (HIT RETURN A COUPLE OF TIMES WHEN DONE)"nIG$""xIG$IG$""480          E TO PLAY AGAIN? ";B$' B$"YES"ī20F "O.K. SEE YOU LATER ";N$L l , ========================= - CORRECT RESPONSE . ========================== 1:10:"YAHOO ! NICE ONE !!!" 6210  ========================  CHECK FOR Y AGAIN" Q110 Z6 d10:"TOO LOW, TRY AGAIN."Q nX: GET ANOTHER GUESSk =================== ENDING SUBROUTINE =================== :5:15:"IM TIRED ! !" 10:8:"THE CORRECT NUMBER WAS ";R 15:7:" WOULD YOU LIK : CLEAR THE SCREEN1 GUESS THE NUMBERO ========================c5000:400:500R(100(1)1): PICK A NUMBERX17: ALLOW 7 GUESSES#("WHAT IS YOUR GUESS? ";G2GR300<GR90F P10:"TOO HIGH, TR   :"YOU MUST TRY TO FIND IT IN AS FEW TURNS ":"AS POSSIBLE. THE COMMANDS ARE :":6::"U";::"-UP";:17::"S";::"-SOUTH":6::"D";::"-DOWN";:17::"E";::"-EAST":6::"N";::"-NORTH";:17::"W";::"-WEST", :6::"Q";"xD$;"CLOSE OLD MAZE/"N$;1220o12:18::"MAZE"::22:"DO YOU WANT INSTRUCTIONS? ";Y$:(Y$,1)"Y"ı:"THE OBJECT JOF MAZE IS TO FIND YOUR WAY"::"OUT JOF A 5X5X5 CUBIC MAZE. IN ONE OF THE ":"ROOMS THERE IS AN EXIT OUT JOF ;THE MAZE."S/";N$:D$;"WRITE OLD MAZE?";N$Q<A115:X115:S$(X1,A1):::X:Y:A:T:FCuFD$;"CLOSE JOLD MAZE/";N$:3000P"WHAT IS ITS NAME ";N$ZD$(4)dD$;"OPEN OLD MAZE/";N$:D$;"READ OLD MAZE/"N$nA115:X115:S$(X1,A1):::X:A:T:FCY(I)Y(I)F I:' ,R%VOS%S%:7 6J0R%S%:P @HO,VOR%JHOJ,VO:b JHO,VOR%J:q THOJ,VO: ^HO,VOR%J   "PRESS PERIOD FOR NEXT PATTERN ....." Z% 200PPOINTS ZJ1N1 dKJ1NE nXCX(J),YCY(J)XCX(K),YCY(K)O xK:JW }24v :"ANOTHER PLOT?";::1)~ G$ G$"Y"20 ::: CALCULATE POINTS I1N ADI360N ARADPI180 X(I)R(AR) Y(I)R(AR)  -----------------------& = PLOT A POLYGONCa -----------------------rX(25),Y(25)|:22:3(PI3.1415926:F1.12XC140:YC80:R88<"ENTER NUMBER OF SIDES (3-30) ";NFN3N3060 P200: CALCULATE   z!#O???     ŠŠҠ ӠӠƠŠĠů ̠ǠĠ!!ŠɠŠ Π ԠȠ ĠˠŠҠǮЮŠ'ĠӠ* ĠϠ ŠԠ3Ůǐ"ɠӠ͠ӠԠΠӠŠҠ ĠȠ:VWVW1:F10000_$X,0#c$9500=h$CC1:16368,0:1005G$9500g$21:12);"G A M E O V E Rq$::%:22:13);"FUEL REMAINING: ";F&%24:"VESSELS DOCKED: ";VD;"VESSELS DESTROYED: ";VW0%%II14%769,159:770,7:768,3CQ$1400SQF%S012509(S590,1330,150d2"YOU GOT "KR" RIGHT OUT OF "KQ"TRIES"F"FOR A SCORE JOF "(KRKQ100.5)"%"PZNGN2N11dNR((1)NG)N1nxQF0}(Q2$)0ıQP(Q2$)1(Q1$)ı(Q1$,QP,NCOURAGEMENT GOES HERE+"CORRECT"51250[ AUDIBLE ENCOURAGEMENT GOES HERE"CLOSE ENOUGH! THE EXACT ANSWER IS "R" TO CONTINUE TO STOP"" TO CHANGE DRILLS"CQ$"C" CQ$QP1Q1$"CAN"Q2$TMTL910$TF1.G(G$)+8KQKQ1HB" "(8): STOP BLINKINGWLTF01120fV"TIME UP"{`(GR)TR1170j(7);: AUDIBLE ERROR MESSAGEt"INCORRECT."~"CORRECT ANSWER IS "R1250KRKR1RG1230 AUDIBLE E0 QP1Q1$DG$!Q2$K$+1400:QF01030GG$G$K$SCPCP1]1020sCP2G$"":1000G$(G$,CP2)CPCP1K$DL$" "(8);: ERASE FLASHK$;:" "BK$;:: BLINK CURSORTL0910TMTM1 27X::#8:Y2021:21,24Y:=X2324:22,27X::Z3:X1415:27,35X::u3:X1920:27,35X:13:16,2119:12,1821:17,2111:17,10: FIND A WORDNW20X((1)NW1)I1X:W$:$#L HIPPOPOTANH1:",";G$;. NH940,950,960,970,980,990r 11:16,1813:15,1914:14,2015:15,1916:16,1817:16,1818} 17,19 2:16,15:18,15:1:17,17: 8:Y2021:14,20Y: X1618:22,28X:: 8:Y2021:10,13Y:X1011:22,  GREETING-1 PROGRAM@D$(4): CHR$ IS CONTROL D` 10:"INITIALIZED DISKETTE"f l 10:"BY CARL M. FACCIPONTE"15:"12/83"D$;"CATALOG",93:770,5&768,17&768%&P|V"ONE AND TWO FOR THE FIRST VESSEL.":A%768"%796,173:770,6:768,3(%.%A%769,8:770,14L%768,3U%768i%769,13:770,30t%768,3}&768 &769,26:770,49:768,3*&7684&H&769,6:770,8R&768,16\&771f&769,135:770,5p&768,16z&768 &769(Q2$))Q2$1450QPQP1&14100QFQP6 SMUS,NURSE,FAMOUS,EMPIRE,ELK,DIGNITYGV CONDITIONAL,BRIBE,PAPER,QUAILn` HOUSE,GIRL,ESOPHOGUS,PIZZA,MOUSEj AUTOMOBILE,COUCH,ASPRIN,ROCKER,BANANAt Yz ==================%ERASEBLOT5SPOTSPOT1JOFSPOT0SPOT10Pe ============== ERASEBLOT SUBROUTINE ==================CVERTRESPSELINEROWTAB7COL3:"" ====================="CVERT7RESPSELINEROWF#TAB7COL3^(50,63:""::50,255dE|F =================G AHEADH =================KERASEBLOTLSPOTSPOT1PSPOT11SPOT1wx =================y AHEAD==================, CLASSIFY SUBROUTINEE ==================QCLASS3r(KEY136)(KEY149)CLASS1(KEY("A"))(KEY("Z"))CLASS0KEY141CLASS2 =================== POSITION TO ANSWER BLANK SPOT===================( ANSWER OUTLINEC ====================YRESPSELINE:TAB1"1. 2. 3. 4. 5. ""6. 7. 8. 9. 10. ":]OVECURSWITHRIGHDLEFTARROWS""HIT RETURN WHEN FINISHED" A$ALPH$(INDEX,INDEX)2A$::ANSWERS(SPOT)INDEXDAHEAD:ITIN1155h **** CLASS = 1 ****|KEY149İAHEADKEY136İBACK1155 **** CLASS = 2 ****ERASEBLOT **** CLASS 3 ****OT1155 8,59,60,61,62,63L  16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,48,49|  50,51,52,53,54,55,56,57,58,59,60,61,62,63  32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49  50,51,52,53,54,55,56,57,58,59,60,61,62,63 "I THINK YOU'RE PU27,30,31,34,35,38>  39,42,43,46,47,50,51,54,55,58,59,62,63y  4,5,6,7,12,13,14,15,20,21,22,23,28,29,30,31,36,37,38  39,44,45,46,47,52,53,54,55,60,61,62,63  8,9,10,11,12,13,14,15,24,25,26,27,28,29,30,31,40,41  42,43,44,45,46,47,56,57,5ER? (Y OR N)";T$! VT$"N"İ505' ^V h"DO YOU WISH TO PLAY AGAIN? (Y OR N) ";X$f rX$"Y"ī40o |510  1,3,5,7,9,11,13,15,17,19,21,23,25,27,29,31,33,35,37  39,41,43,45,47,49,51,53,55,57,59,61,63  2,3,6,7,10,11,14,15,18,19,22,23,26, N$"Y"SS2(J1)1 N$"Y"N$"N"ī230< N$" "C JI Y "Z1500:Z ,"OKAY, CONCENTRATE VERY HARD NOW ..." 6"I AN READING YOUR MIND ..." @Z1800:Z J::"YOUR NUMBER IS ";S TZ1500:Z U"IS THAT THE RIGHT NUMB Z"PRESS TO CONTINUE";X$) d1 nS0< xJ16D T1M 5:Y K132` A A10ĺA;" ";:200: SPACES IN QUOTES A;" ";: K4Tĺ:5:TT1 K "DOES YOUR NUMBER APPEAR ON SCREEN (Y OR N) ";N$ ~ & 10:"NIFTY CARD TRICK #1"U 4:"I'LL BET THAT I CAN GUESS ANY NUMBER""THAT YOU CAN THINK OF (WELL, ALMOST)."(:-27<"PLEASE THINK OF A WHOLE NUMBER"="FROM 1 TO 63"F:Z1800:Z: TIME DELAYP::#     ALPHABET SUBROUTINE/  =====================; BA:20D "A"R 20:"A."` 20:"B."n 20:"C."| 20:"D." 20:"E." 20:"F." 20:"G." 20:"H." 20:"I." 20:"J."   =======================  === MS ";C$" NEED ANY PRICES?" }' E$= (E$,1)"Y"1000C d "WELL, SEE YOU LATER THEN."j :"WILL YOU NEED PRINTS,ALBUMS" :"OR BOTH?" F$ F$"ALBUMS"ī2500 F$"BOTH"İ3000 F$"PRINTS"İ1999 $4000   : HAL PRICE CALCULATING- : PROGRAM3 AD$"CARL"R#"HI ";D$"."k(A$:(A$,1)"H"1004(B$,5)"ELLEN"607D$"ELLEN"8<"OH! HI THERE KIDDO."Ad:"WHO IS THAT NEXT TO YOU, ";D$"?"inC$s x"DOE      LLING MY LEG"5"IN FACT I THINK THAT YOU CHANGED"L"YOUR NUMBER !!!"p"I'D LIKE ANOTHER SHOT AT IT."v| Z:"SO HOW MANY 4 X 5'S"/ :"DO YOU NEED?": :G:T :"HOW MANY 5 X 7'S"j :"DO YOU NEED?"q H :"HOW MANY 8 X 10'S" :"DO YOU NEED?" I :"HOW MANY 11 X 14'S" :"DO YOU NEED?" J :"HOW MANY 16 X 20'S"RS USID IN CODES$ Z"INITIALIZING". d1380Q nP$(256),GU$(25),S1(25),S2(25)` xDG$"ABCD" P114:P214:P314:P414 IX(P11)64(P21)16(P31)4P4 P$(IX)(DG$,P1,1)(DG$,P2,1)(DG$,P3,1)(DG$,P4,1) THE CODE BREAKER) INITIALIZEQ @$-CONTAINS ALL POSSIBLE PATTERNSn( GU$() -LIST OF GUESSES2 S1() & S2() -SCORES OF EACH GUESS IN GU$()< PN = PATTERN NUMGER, GN = GUESS NUMBERF H$ IS CURRENT HYPOTHESIS P DG$ = CHARACTE %:"DO YOU NEED?" *K" /:Q 4L(G4)(H6.25)(I9.95)(J16.)(K34.5)v >:"WELL ";C$" YOUR PRINTS WILL" C:"ONLY COST $";L H::"THANKS FOR THE ORDER!": f :C$" THERE ARE" :"TOO MANY ALBUMS AND PRICES" :"TO DISC PL%PL%I * " , PLAYER'S TURN"B "TAKE 1,2, OR 3";IH Y &I1I3530g 0PL%PL%Im :s N X"PRESS TO CONTINUE";A$ b9:"MOVE" l"PILE 1 2 3 " v"----------" S%((J1)VS%)İ6009 J7:I;GS%(I,1);GS%(I,2);GS%(I,3)@ TIF ^Y hSW%1SW%2:e rSW%1:v |WT%500:580 P;R", COMPUTER TAKES "; I1 GS%(PL%,I)1460 DS%1 DP%PL% DM%I 480 II1 I3410 I  SW%2DS%1GS%(DP%,DM%)10 PL$(SW%)"WINS!"6 S "PLAY AGAIN (Y/N)? ";A$b A$"Y"90r A$"N"270 "TYPE Y OR N" 220 "SEE THE STRATEGY YET (Y/N) ? ";A$ A$"N"Ā "A$"Y"270 ,ISZ%11 6JSZ%I1 @(J1)V GS%(21,3),PL$(2)"VS%20GPL$(1)"COMPUTER":PL$(2)"HUMAN"S(I121^2J13m<GS%(I,J)OvFJ,IPSZ%21ZSW%(2)dDS%0nPL%SZ%"PILE CONTAINS"PL%SW%380,520: COMP OR PLAYER TURNPL%2190360    :"SEE YOU LATER." DUSS HERE.". :"PLEASE GO OVER THE CATALOG"N :"WITH ";D$". THANK YOU."T Z { "WELL, I'LL DO THE PRINTS," :"BUT THERE ARE TOO MANY" :"ALBUM TYPES TO DO HERE!" 2000 :"IT'S BEEN NICE TALKING WITH" :"YOU ";C$ 79,0:209,129279,159:69,1290,159:+ }n 109,9169,9159,19119,19109,9:119,19119,9:159,19159,9: 119,139159,139169,149109,149119,139:119,139119,149:159,139159,149: 19,3949,4949,139:19,14919,39:19,13949,139:19,49: 08,241,96& 1013,76:1014,0:1015,3. :8 Z2000M dFC(5,7):FC$(5) iFC$(1)"NORTH":FC$(2)"SOUTH":FC$(3)"EAST":FC$(4)"WEST" nB14:I16:FC(B,I):: s155% x0,0279,0279,1590,1590,069,29209,29209,12969,12969,29:209,292e 201,84,208,15,32,177,0,32,248,230,138,72,32,183,0,201,44,240,3,76,201,222,32,177,0,32,248,230I768833:P:I,P:I 104,134,3,134,1,133,0,170,160,1,132,2,173,48,192,136,208,4,198  1,240,7,202,208,246,166,0,208,239,165,3,133,1,198,2,2   " " "     ,6 "DID YOU COME TO ME BECAUSE YOU ARE*"L@ "HOW LONG HAVE YOU BEEN*"vJ"DO YOU BELIEVE IT IS NORMAL TO BE*"T"DO YOU ENJOY BEING*"^"WE WERE DISCUSSING YOU--NOT ME."h"OH,I*"r "YOU'RE NOT REALLY TALKING ABOUT ME, ARE YOU?"'| BE ABLE TO*"#"WHY CAN'T YOU*"Z "WHY ARE YOU INTERESTED IN WHETHER OR NOT I AM*""WOULD YOU PREFER IF I WERE NOT*" "PERHAPS IN YOUR FANTASIES I AM*""HOW DO YOU KNOW YOU CAN'T*"" "HAVE YOU TRIED?", "PERHAPS YOU CAN NOW*""DOES THAT TROUBLE YOU?"D"TELL ME MORE ABOUT SUCH FEELINGS."^"DO YOU OFTEN FEEL*"{"DO YOU ENJOY FEELING*" "DO YOU REALLY BELIEVE I DON'T*""PERHAPS IN GOOD TIME I WILL*" "DO YOU WANT ME TO*"  "DO YOU THINK YOU SHOULDBE ABLE TO*"/Z "WHAT MAKES YOU THINK I AM*"[d "DOES IT PLEASE YOU TO BELIEVE I AM*"n "PERHAPS YOU WOULD LIKE TO BE*"x "DO YOU SOMETIMES WISH YOU WERE*" "DON'T YOU REALLY*" "WHY DON'T YOU*" "DO YOU WISH TO BE ABLE TO*"OU "," I ","YOUR ","MY "U " IVE "," YOUVE "," IM "," YOURE "," ME ", " HUMANS "z2"DON'T YOU BELIEVE THAT I CAN*"< "PERHAPS YOU'LD LIKE TO BE ABLE TO*"F"YOU WANT ME TO BE ABLE TO*"P"PERHAPS YOU DON'T WANT TO*" U "DO YOU WANT TO "I AM","IM "J. "YOU ","I WANT","WHAT","HOW","WHO","WHERE","WHEN","WHY"8 "NAME","CAUSE","SORRY","DREAM","HELLO","HI ","MAYBE"B " NO","YOUR ","ALWAYS","THINK","ALIKE","YES","FRIEND"L "COMPUTER","XXX" " ARE "," AM ","WERE ","WAS "," Y18XX1R%(K): F$:XDbR%(K)R%(K)1:R%(K)N%(K)R%(K)S%(K)gl(F$,1)"*" F$:P$I$:200~v (F$,(F$)1);C$P$I$: 200 "CAN YOU","CAN I","YOU ARE","YOURE","I DONT","I FEEL" $ "WHY DONT YOU","WHY CANT I","ARE YOU","I CANT",(C$,(C$)L(S$)1)#LL(R$),540CL(R$)(C$)540^(C$,L,(R$))R$540C$(C$,L1)S$(C$,(C$)L(R$)1)LL(S$)L&X+(C$,2,1)" " C$(C$,(C$)1)N: X1 N1%N2%: Z$: X: 15: 12,1318: 22,2310,1514: 20,2514:K.mS%0KS%:LT:420<rK36:590l:X1N1%:Z$:X: 0: 12,1318: 22,2318C$" "(I$,(I$)(F$)L1)X1N2%2 S$,R$L2(C$)1L(S$)(C$)510(C$,L,(S$))S$510C$(C$,L1)R$T YOURSELF!":2002 ": 15: 12,1318: 22,2318; 'S%0I , K1N1%Q 6K$_ ;S%0360v @L1(I$)(K$)1 T(I$,L,(K$))K$S%K :TL:F$K$ ^L: 11: 10,1514: 20,2514: 15: 10,1512: 21,2512h 11: 10,1512: 21,2512: 15: M FREUD. WHAT'S YOUR PROBLEM?"::L 0: 12,1318: 22,2318:"";:I$_ I$" "I$" "e k } L2 (I$) (I$,L,1)"'"I$(I$,L1)(I$,(I$)L):230 L4(I$)ĭ(I$,L,4)"SHUT"ī 3000 L I$P$ĺ"PLEASE DON'T REPEA,2528: 11,2429: 11,2430: 12,2331: 12,2332: 12,2333: 13,2234: 14,2135 7: 11,1416: 21,2416: 11,1417: 21,2417: 12,1318: 22,2318 0: 16,1920: 17,1821: 1: 14,2126: 14,2127 0: 12,1318: 22,2318" "HI! I'14` 4,2215: 4,2216: 4,2217: 4,2218: 4,2219: 4,2220: 4,2221: 4,2322: 4,2423 5,2524: 6,2625: 7,2626: 8,2527: 9,2428: 15,1829 15: 10,1514: 20,2514: 14,2123: 13,2224: 12,2325: 11,2426: 10,2527S 10 P""( d S%(36),R%(36),N%(36)B nN1%36:N2%14:N3%112b x X1 N1%N2%N3%: Z$: Xr X1 N1% S%(X),L:R%(X)S%(X):N%(X)S%(X)L1:X : 11: 15,186: 9,247: 8,258: 7,269: 6,2610: 5,2511: 4,2412: 4,2313: 4,22Ń9000 1: 3,717: 18,233: 4,520: 10,1417: 18,2310: 11,1420: 18,1914: 12,21: 13,22: 14,23 17,2117: 18,2317: 18,1920: 18,2123: 17,2324: 25,2723: 17,2328  17,2331: 32,3417: 18,2235: 32,3423         PUTERS WORRY YOU?"B  "ARE YOU TALKING ABOUT ME IN PARTICULAR?"j  "ARE YOU FRIGHTENED BY MACHINES?"  "WHY DO YOU MENTION COMPUTERS?" $ "WHAT DO YOU THINK MACHINES HAVE TO DO WITH YOUR PROBLEM?"!. "DON'T YOU THINK COMPUTERS CAN HELP PEOPO YOU BRING UP THE TOPIC OF FRIENDS?"H "DO YOUR FRIENDS WORRY YOU?"m "DO YOUR FRIENDS PICK ON YOU?" "ARE YOU SURE YOU HAVE ANY FRIENDS?" "DO YOU IMPOSE ON YOUR FRIENDS?" "PERHAPS YOUR LOVE FOR FRIENDS WORRIES YOU."  "DO COMSUGGEST TO YOU?";z "WHAT OTHER CONNECTIONS DO YOU SEE?"j "COULD THERE REALLY BE SOME CONNECTION?"w "HOW?" "YOU SEEM QUITE POSITIVE." "ARE YOU SURE?" "I SEE. PLEASE GO ON." "I UNDERSTAND. PLEASE CONTINUE."% "WHY D"  "WHEN?"1* "WHAT ARE YOU THINKING OF?"I4 "REALLY, ALWAYS?"i> "DO YOU REALLY THINK SO?"H "BUT YOU ARE NOT SURE YOU*"R "DO YOU DOUBT YOU*"\ "IN WHAT WAY?"f "WHAT RESEMBLANCE DO YOU SEE?"p "WHAT DOES THE SIMILARITY NOW?"4 "ARE YOU SAYING NO JUST TO BE NEGATIVE?"Z "YOU ARE BEING A BIT NEGATIVE."k "WHY NOT?" "ARE YOU SURE?" "WHY NO?" "WHY ARE YOU CONCERNED ABOUT MY*" "WHAT ABOUT YOUR OWN*""CAN YOU THINK OF A SPECIFIC EXAMPLE?L):S$(X,A)P1$"O"P2$:280rY5:P1$(S$(X,A),(Y1)63):L29(P1$):P2$(S$(X,A),L):S$(X,A)P1$"O"P2$:280 Y1:P1$(S$(X,A),(Y1)62):L29(P1$):P2$(S$(X,A),L):S$(X,A)P1$"O"P2$:280 X5:P1$(S$(X,A),(Y1)64):L29(P1$):P2$(S$(X,A)"X"::@X((1)3)2:Y((1)3)2:A((1)3)2oRD((1)6)1:RD250,255,260,265,270,275A5:P1$(S$(X,A),(Y1)6):L29(P1$):P2$(S$(X,A),L):S$(X,A)P1$"O"P2$:280A1:P1$(S$(X,A),(Y1)61):L29(P1$):P2$(S$(X,A),$(X,A)S$(X,A)"O":205/ S$(X,A)S$(X,A)"X"Z Y5(1).8S$(X,A)S$(X,A)"O":215r S$(X,A)S$(X,A)"X" X5(1).8S$(X,A)S$(X,A)"O":225 S$(X,A)S$(X,A)"X" (S$(X1,A),(Y1)65,1)"O"S$(X,A)S$(X,A)"O":235S$(X,A)S$(Y"1360 A15:X15:Y158 T10A10X10Y,10d A5(1).80S$(X,A)S$(X,A)"O":180| S$(X,A)S$(X,A)"X" (S$(X,A1),(Y1)61,1)"O"S$(X,A)S$(X,A)"O":190 S$(X,A)S$(X,A)"X" Y20200 (S$(X,A),(Y2)64,1)"O"S119,59159,59159,129119,129119,59129,69149,69149,119129,119129,69:149,69159,59:149,119159,129:129,119119,129: 229,49259,39259,149:229,139229,49:229,49259,49:229,139259,139: S$(6,6) "RESTART OLD MAZE ";Y$:(Y$,1)"PEAR IN YOUR DREAMS?"? "ARE YOU DISTURBED BY YOUR DREAMS?"j "HELLO...PLEASE STATE YOUR PROBLEM." "YOU DON'T SEEM QUITE CERTAIN." "WHY THE UNCERTAIN TONE?" "CAN'T YOU BE MORE POSITIVE?" "YOU AREN'T SURE?" "DON'T YOU KE BE?"&D "PLEASE DON'T APOLOGIZE."KN "APOLOGIES ARE NOT NECESSARY."X "WHAT FEELINGS DO YOU HAVE WHEN YOU APOLOGIZE?"b "DON'T BE SO DEFENSIVE!"l "WHAT DOES THAT DREAM SUGGEST TO YOU?"v "DO YOU DREAM OFTEN?" "WHAT PERSONS AP ASK THAT?", "NAMES DON'T INTEREST ME."\ "I DON'T CARE ABOUT NAMES--PLEASE GO ON."} "IS THAT THE REAL REASON?"& "DON'T ANY OTHER REASONS COME TO MIND?"0 "DOES THAT REASON EXPLAIN ANYTHING ELSE?": "WHAT OTHER REASONS MIGHT THER THE MOST?"& "WHAT DO YOU THINK?"U "ARE SUCH QUESTIONS ON YOUR MIND OFTEN?" "WHAT IS IT THAT YOU REALLY WANT TO KNOW?" "HAVE YOU ASKED ANYONE ELSE?" "HAVE YOU ASKED SUCH QUESTIONS BEFORE?"  "WHAT ELSE COMES TO MIND WHEN YOU"WHAT WOULD IT MEAN TO YOU IF YOU GOT*"@ "WHY DO YOU WANT*"^ "SUPPOSE YOU SOON GOT*"} "WHAT IF YOU NEVER GOT*" "I SOMETIMES ALSO WANT*" "WHY DO YOU ASK?""DOES THAT QUESTION INTEREST YOU?"  "WHAT ANSWER WOULD PLEASE YOU FINAL PRINTOUTG ==============================YGT$"Q"787iROW1:COL0tN15~COL0:M134ROW:12COL4((11(WD$(ROWCOL)))2)WD$(ROWCOL)COLCOL1M:ROWROW3 N::1:1:" ";V1:15:"END OF GAME.";`TMR09000: PRESS RETURN TO CONTINUE:TT1T1B1(TI):B2(T1):BSWR:WT1:WS1: FIRST TIME AROUND. ============================== 1)ROWCOLJ11669/ANS(1)ANS(2)6678669A565G:hB1(J1)4ROW:B2(J1)12COL4r5000zJ1:3000: CHECK RIGHT ANSWER4000: PRAISE:J1LIMIT:A(J)0718A(J)1718J724555RASE PRAISE WINDOW J=(EF1ER1)J11WR1İ6000: ERASE TEXT WINDOW^?(GT$)2ī667dB:DL$(GT$,1): LETTER PART OF RESPONSEIL$"A"L$"E"667NROW3((L$)65)1S:]:COL((GT$,2,1))1COL0COL2ī605 ANS(J"SELECT ONE LETTER AND ONE NUMBER: ";+&:7+WRWR1C0J112I3:e51:36:" ";:1:366LL2:8400: GET ANSWER7(EF1ER1)J11WR1İ6000: ERASE TEXT WINDOW8XQ209TMR0:742: FINAL PRINTOUT;21:16:" ": ER$(WC):R$(WC)"NO MORE WORDS"WCWC1:525:WCWC1@:F2000: RND SELECTION OF ITEM PAIRS TO APPEAR ON SCREEN.1100: DRAW INITIAL GAME BOARD.Q209TMR0:751SB$"1": SET INPUT LIMITTMR1: TIMER ON%!1:2::"ONE MOMENT, PLEASE."HWT0:WS0:TI0:T10:WR0:R0:B0:V0:Y0:E0RYY1J150:COUNTER(J)1:: DATA LOCATION EMPTY = 1J115:WD$(J)"":X(J)0:: CLEAR FOR 15 ITEMSJ17:A(J)0:: SET PAIRS MATCHED TO 'NONE':WC1. 1:QF0: CLEAR 'QUIT' FLAGq:5:5);"DO YOU WANT THE CORRECTLY CHOSEN"::5);"ITEM PAIRS TO REMAIN ON THE":5);"SCREEN (Y/N)? ";8400:GT$"N"ER1:508GT$"Y"ER0:5089:19:" ";:9:19:50515:11+3*5,3+4*7,4+5*9,5+6*11,6+7*13,7+8*15,8+9*17,9+10*19,10+11*21T "NO MORE WORDS" ===================================================== GAME LOOP =====================================================:LLLY*MONTH","CLOUD*RAIN","PAPER*PENCIL","SCHOOL*STUDENT"  LINCOLN*PRESIDENT,ALBANY*NEW YORK,EIGHT*OCHO,LONDON*ENGLAND,HOLIDAY*CHRISTMAS,TOKYO*JAPAN  DANUBE*RIVER,ATLANTIC*OCEAN,CAIRO*EGYPT,NILE*AFRICA,AMAZON*SO.AMERICA,DUBLIN*IRELAND= 1+2*3,2IMER OFF/  ==============================L  DATA PAIRSr  ==============================  FRIUT*KUMQUAT,CONTINENT*AFRICA,PARIS*FRANCE6  "APPLE*FRUIT","BEANS*VEGETABLE","DOS*TWO","SEPT*SEVEN","GREEN*COLOR","RUN*VERB","JU" WR$(3)"TRY AGAIN."+ WR$(4)WR$(1)= "WR$(5)WR$(2)R 'E$" " ,SB$"A":FB$"Z":LL15: INPUT NUMBER OF CHARACTERS ALLOWED WITH GET 1:4:2);"HI, WHAT IS YOUR NAME? ";:8400: GET GT$ 6(GT$)0305 ;N$GT$ @TMR0: T$(7),OK$(5),WR$(5),X(15)0 ANS(2),B1(2),B2(2)6 :W BS0:LIMIT7:T0:R0:B0:V0o OK$(1)"VERY GOOD!" OK$(2)"A WINNER!" OK$(3)"RIGHT ON!" OK$(4)"GOOD JOB!" OK$(5)"WELL DONE!" : WR$(1)"NOT QUITE." WR$(2)"NICE TRY. E N T R A T I O N"8 8);"-------------------------"] 19:14);"COPYRIGHT (C) 1981": 14);"BY COURSEWARE MAGAZINE" 17);"4919 N. MILLBROOK #222" 17);"FRESNO, CA 93726" P54:8200: PAUSE COUNTER(50),R$(50) WD$(15),Wk%d "CONCENTRATION"f:'h:Li TRANSLATED INTO APPLESOFTyj BY RUSSELL DONNELLY & BOB SITZEx ==============================z T I T L E P A G E| ==============================:9 8);"C O N C               ================,& SUBR - PAUSEQ& =============================f& K61700P5::& =============================& SUBR -'GET'& =============================& 16368,0: CLEAR KEY BOARD BUFFER& GT$""11:"PRESS ";::"RETURN";::" TO END ";O%n =============================h%p SUBR- ERASE%r =============================%zP112%{ER1ī6015%|X(ANS(P1))1ī6025%B1(P1):B2(P1)%E$%P1%& =============$(WN):$4045$WR$(WN)$$:;$21:3:R;:12:WRA$f$ =============================$ SUBR- PRINT-OUT$ =============================$4ROW:12COL4((11(WD$(ROWCOL)))2)$WD$(ROWCOL)$$:*%24:$(ANS(2))"*"WD$(ANS(1))W$(J)X(ANS(1))1:X(ANS(2))1:A(J)1:3040K# JQ# :Z# EF1`# # =============================# PRAISE# =============================#21:16#WN((1)51)#:#EF14040$:OKECK(" =============================1" EF0@" J1LIMITv" (WD$(ANS(1))"*"WD$(ANS(2))W$(J)A(J)0)RR1" (WD$(ANS(2))"*"WD$(ANS(1))W$(J)A(J)0)RR1" WD$(ANS(1))"*"WD$(ANS(2))W$(J)X(ANS(1))1:X(ANS(2))1:A(J)1:3040D# WD151)!WD$(WN)""2040#!J1G!(W$(NT),J,1)"*"JJ1:2055c! WD$(WN)(W$(NT),1,J1)w!WN((1)151)!WD$(WN)""2065!WD$(WN)(W$(NT),J1,(W$(NT)))! NT!%:!9! =============================" CH=============================:  SELECT WORD PAIRS_  =============================s WN((1)151) WD$(WN)"**FREE**" : NT1LIMIT WN((1)WC1) COUNTER(WN)12025 COUNTER(WN)0 W$(NT)R$(WN)!WN((1)ʈ5:2);"A"8:2);"B".11:2);"C"?14:2);"D"P17:2);"E"20:1:"!-------------!----------!-------------!";"! 0 OUT OF 0 !";26);"!TIME: 0.0 !";"!-------------!----------!-------------!";9000  ==========================,QD$;"CATALOG"5V:2T[9);"1";21);"2";33);"3"Z]:e`J16te3(J1)3j4);"------------------------------------"oJq:tJ116y2J~3:"!";:15:"!";:27:"!";:39:"!"J: )(978)256ZZ:LOC OF DOS HOOKSU8Z(107)(108)2568: LOC OF START OF ARRAYS s=(209),(Z):(210),(Z1)B GET CATALOG INTO STRINGGQ,0:Q1,3:Q2,18:Q3,3J =============================L DRAW INITGAMEBOARDN ===INGLY.+ QQ(977)185:QQ0A$(0)C$" "CQQ0A$(0)C$" "aD$(4):D$;"NOMON I,O,C"l10051495:STORE ROUTINE TO MASK CTRLS,INV,FLASH AND COMPLETE CATALOG$D$;"NOMON I,O,C")ZZ3037.QQ(977)185:QQ0ZZ3220!3Q(977ALLENGE!"4y20:6::"END OF PROGRAM"::16368,0:s:A$(85):B(60):N1: DEFINE ARRAY TO HOLD CATALOGC$" "B$" "I8511:A$(I)B$C$:I0:R0"TEST WHICH DOS. MODIFY ARRAY ACCORD5);"OWN SCORE, ";N$;" (Y/N)?";(GD0>ITB(37):TA(36)NKTB1:TA1XM8400jOGT$"Y"ī500QGT$"N"::TB1:TA1:" ":843p:7s" THANKS FOR PLAYING, ";N$;"."::: v" I HOPE YOU ENJOYED THE"::" CH ";(TI);".";(T1)'9XQ209QF18354:S1829f;WT1B1Ģ16:12::"A NEW BEST TIME!!!!":=(TI)B1B1(TI):B2(T1):WT1?((TI)B1(T1)B2)B2(T1):WT1ABSWRBSWR:WS1C20:5);"DO YOU WISH TO TRY TO BEAT YOUR" E22:%15);"GAME: ";(TI);".$'825-):5O+5);"LEAST NO.";22);"TRIES"o-5);"OF TRIES";22);"THIS"/5);"SO FAR: ";BS;22);"GAME: ";WR1935);"BEST";22);"TIME"55);"TIME";22);"THIS"75);"SO FAR: ";B1;".";B2;22);"GAME:  9000/ =============================I SUBR- RECAPo =============================XQ209QF0SS1S1809:515);"TRIES"15);"THIS"15);"GAME: ";WR9!15);"TIME"#15);"THIS"ST MOD.SEPT 1979 FOR CONVENTIONS UPDATE.d'b# PROGRAM CLASSIFIED - PUBLIC DOMAIN -k'd# {'f# ' FREUD ''h#C:&J#16298,0::9032&&L#9034:10H&N#10:"* * * THE END * * *":d&P# PRINT CENTER ROUTINE.u&R#20(CT$)2~&T#CT$&V#""&X#&Z# &\# GIVEN TO APPLE CORE OF SAN FRANCISCO FOR USE OF MEMBERS..&^# /'`# LA90402%:#CT$"LET FREUD HELP YOU SOLVE IT !":9040I%<# PAUSE ROUTINE.m%>#21:" PRESS THE 'ESC' TO END"%@#22:"< PRESS THE SPACE BAR TO CONTINUE...>"%B#(16384)1559036%D#(16384)1609024%F# SPECIAL END ROUTINE.&H#16368,0:936"$$p"RUNM"$z.$(# INITIALIZE.A$*#CT$(40):9034]$,# TITLE PAGE ROUTINE.z$.#3:CT$"* FREUD *":9040$0#CT$"BY AUTHOR UNKNOWN":9040$2#CT$"JUNE 1979":9040$4# $6#:CT$"NEED SOME HELP ?":9040%8#CT$"HAVE A PROBLEM ?":99,7,106,6u# "PLEASE LEAVE MY FEE ON THE KEYBOARD.":X13000:X:"DID YOU LEAVE THE MONEY?":I$:(I$,1)"N"5000# "YOU ARE HAVING DELUSIONS. YOU NEED "# "ANOTHER SESSION. GOODBYE.": 6000$"THAT'S A VERY SANE ANSWER. YOU'RE CURED. GOODBYE. "CAN YOU ELABORATE ON THAT?"A"~ "THAT IS QUITE INTERESTING."u" 1,3,4,2,6,4,6,4,10,4,14,3,17,3,20,2,22,3,25,3" 28,4,28,4,32,3,35,5,40,9,40,9,40,9,40,9,40,9,40,9" 49,2,51,4,55,4,59,4,63,1,63,1,64,5,69,5,74,2,76,4 # 80,3,83,7,90,3,93,6,LE?"8!8 "WHAT IS IT ABOUT MACHINES THAT WORRIES YOU?"m!B "DO YOU HAVE ANY PSYCHOLOGICAL PROBLEMS?"!L "WHAT DOES THAT SUGGEST TO YOU?"!V "I SEE."!` "I'M NOT SURE I UNDERSTAND YOU FULLY."!j "COME COME ELUCIDATE YOUR THOUGHTS.""t C1:12207:22:18:FC$(FC):A$"":D0:LS1ĺX,Y,AV22:"TIME :";T:TIME180n(16384)1271030:TT1:22:"TIME :";T:1020A$ A$"*"LS1S$"Q"1300A$"U"D1$A$"D"D2.A$"N"D38A$"S"D4 BX,A),L):S$(X,A)P1$"O"P2$:280wX1:P1$(S$(X,A),(Y1)65):L29(P1$):P2$(S$(X,A),L):S$(X,A)P1$"O"P2$:280SXX:SYY:SAA"23:"HIT ANY KEY TO START",(16384)127300616368,00 X((1)5)1:Y((1)5)1:A((1)5)1:F641024F&-36,65:"BYTES: "36220F>-36,65:"TIME: "T$V-36,65:"DATE: "D$d-36,T:S$j-PATE ";D$:"TIME ";T$.,PP$"** "PP$" **";,T(PP$)Z,S$"":X12T:S$S$"*":i,T80(S$),1:(27);(20):(9);"132N",36,T:S$,(138),36,T:(27)(14);PP$,36,T:"APPLESOFT EDITION",(138),F(0) -F0F" TO QUIT.";+:#Q(16384),+<#Q1419027=+>#Q2099018F+A#QF1r+C#23:11:" "x+F#+ ============================+ PRINTER INSTRUCTIONS+ ============================+PP$"CONCENTRATION","D RESTORE CURSOR LOCATION. *!E*&# =============================d*(# SUBR - PRESS RETURN**# =============================*2#16368,0: CLEAR KEYBOARD BUFFER.*6#23:11:"PRESS ";::"RETURN";::" TO CONTINUE," +7#24:16::"Q";::=================-)! SUBR - TIMERR)! =============================c)!TMR0ī8640p)!TITI.1|)!T1T11)!TB(37):TA(36): SAVE CURSOR LOCATION.)!T110T10)!21:37(((TI))):(TI))!21:38:(T1)*!TA1:TB1:1GT$"": DELETE FROM STORED WORD.G(R!(GT$)1GT$(GT$,(GT$)1)Q(W!8560W(Y!:l(\!(GT$)LL8560}(]!XQ1418560(^!Q$(XQ128)(_!Q$SB$Q$FB$8560(b!GT$GT$Q$: CONCATENATE NEW LETTER TO WORD.(k!Q$;(p!8420)! ============' T5TI4' XQ(16384):XQ127QQ(16368):8500Q' T5TIğ:" ";::(8);x' TMR1İ8600: UPDATE THE TIMER.'%!8560'*!:'4!XQ209ı'>!XQ141(GT$)0ĺ" ";:'C!XQ1368540'E!T5TI'H!(GT$)0ĺ(8);" ";(8);(8);%(M!(GT$)85:34,24:170:735(155:34,24:1705SC(CP)0LV7:115:V23:115jV3:H16:100:"LETTERS:"|H7:GN5H1V5:100:I1NL:(RL$,I,1);" ";:IV11:H17(NS$(CP))2:100:NS$(CP);" WORDS"V12:H16:100:"SCORE: "$NP1:OS(2)11:OS(3)17:OS(4)24:OS(5)32RBN(0)0:BN(1)5:I26:BN(I)BN(I1)2:I`AD7:GN1lBP1750:V1:H1:100:"GAME NUMBER: ";GNV1:H26:100:"TIME LEFT: "145200:SB0CP0NP1CL180:V1:H37:100:CL:NP1İ110 bI@gI0NP1:(NM$(I),1)"S"NS$(I)NM$(I)"'":625WlNS$(I)NM$(I)"'S"^qIvPC$"********":PD$"########"{GW$"AAAAAAAABBCCDDDDEEEEEEEEEEEEFFGGGHHIIIIIIIIIJKLLLLMMNNNNNNOOOOOOOOPPQRRRRRRSSSSTTTTTTUUUUVVWWXYYZ"$OS(0)2:OS(1)6SIX PLAYERS.":105:VV2:H1:5753NWD$(NP1,34)SNW(NP1,6),NM$(NP1),NW$(NP1),TN$(NP1),FS(NP1),SC(NP1),TS(NP1),BN(6),OS(6),WA(25),WW(25):NL13X:V3:H10:I1NP]100:"WHAT'S PLAYER #";(I);"'S NAME":H18:VV1:100:NM$(I1):VV2:HNP1VV2:H10:100:"THAT'S NOT VERY MANY!":VV1:H7:100:"TRY AND ROUND UP SOME MORE!":VV2:H1:105:575!INP6VV2:H7:100:"I THINK I'D GET LOST TRYING":VV1:H6:100:"TO REMEMBER ALL THOSE WORDS...":VV1:H4:100:"LET'S KEEP IT DOWN TO COLINO"1053V21:H14:100:"INSTRUCTIONS"Z!V23:H12:100:"PRESS OR "h&16368,0+(16384)217565016368,0:15005(16384)206555:16368,0::H1:V3?100:"HOW MANY PEOPLE ARE PLAYING WORD WARS?";NPoDAD:H20:100:W$"":3909:V5:H16:100:"WORD WARS"fV9:H10:100:"ORIGINAL TRS-80 PROGRAM"V10:H19:100:"BY"V11:H13:100:"ROWLAND ARCHER"V14:H14:100:"APPLE VERSION" V15:H19:100:"BY"V16:H13:100:"BRUCE MUSA$ 390(W$)0795&3904H20390a(W$)1W$"":100:" ":HH1:100:390W$(W$,(W$)1):100:" ":HH1:100:390NP1M$"** ABANDONING THIS GAME **":H7:140:34,0::1365390H2020(W$):100:" ":H:TITIJ150:135:J:10003100::" "::A(16384)MA128TITIAD:390gA141Ĺ16368,0:455A136Ĺ16368,0:465A155Ĺ16368,0:480A152Ĺ16368,0:490A193A218AA128:A$(A):100:A$:16368,0:HH1:TITIAD:W$W$)T:TN$(J)T$ J "IL 'V5:H12:100:"NAME":H24:100:"SCORE":V7Z ,I0NP1 1H12:100:TN$(I):TS$(I)(TS(I)):H29(TS$(I)):100:TS(I):TN$(I)"":TS(I)0:VV1 6I ; V7:H20:16368,0 TITI1:TI180İ120CL0İ105:245 I(NL(1)1):I2I2/ I12I12 L$(RL$,I,1):L(L$)65:WA(L)WA(L)1:WA(20)WA(20)1:RL$(RL$,I1)"U"(RL$,NLI) I0NP2 JI1NP1 TS(I)TS(J)285 TTS(I):T$TN$(I) TS(I)TS(J):TN$(I)TN$(J) TS(J368,0:H V7:H8:100:"OK, ";NM$(CP);" PRESS ";::"";:::y QP0:L$"":RL$"":I025:WA(I)0:WW(I)0:I I1NL:M((GW$)(1)1):M(GW$)MM1 L$(GW$,M,1):L(L$)65:RL$RL$L$:WA(L)WA(L)1 L$"Q"QP1 I QP010& V21::H140:100:" ":H::b V7:H4:100:"IT'S ";NS$(CP);" TURN...CLEAR THE AREA!" V23:H8:100:"PRESS ";::"";::" WHEN READY": H7:V23:100:"PRESS TO CONTINUE" 16368,0 (16384)141175 16100:" ":100:CLg }CL60V9:H10:I150:135:I:100:"--60 SECOND WARNING --":105:115:TI30| V7:H20(W$): BZ(S)(S): V9:100:M$:105:105:115:V7:115: H1:110:H5:110:H10:110:H16:110:H23:110:H31:110:H40:1S(0 :V12:H10:100:"PRESS ANY KEY TO START">16368,0j(16384)128(16384)255I(1):20x16368,0ZS16336:500dH:V:iX1500:X:nV1520:100::" ":V:::sH140:100:" ":H: xCLCL1:TI0:V1:H37:          !!!!!!!!!" "YOUR WORDS MUST CONTAIN AT LEAST THREE"T&"LETTERS. THEY ARE GROUPED ON THE"&"SCREEN ACCORDING TO LENGTH. YOU CAN"&""MAKE UP TO FIVE WORDS OF EACH LENGTH"&'"FROM THREE TO EIGHT LETTERS."&1165&@:14)"INSTRUCTIONS":'E"NO PF ABOUT" %"THREE MINUTES.":K%"WORD WARS MAY BE PLAYED BY A SINGLE"w%"PLAYER, COMPETING AGAINST THE CLOCK,"%"AND TRYING TO GET THE HIGHEST POSSIBLE"% "SCORE, OR BY UP TO SIX PEOPLE PLAYING"%"AGAINST THE CLOCK AND EACH OTHER.":+&:J034:WD$(I,J)"":J:K06:NW(I,K)0:K:I7$x700S$:14)"INSTRUCTIONS":$"THE OBJECT OF WORD WARS IS TO MAKE AS"$"MANY WORDS AS YOU CAN FROM A GROUP OF"$"LETTERS DISPLAYED ON THE SCREEN, WHILE"%"WORKING AGAINST A TIME LIMIT OQUIT":16368,0(#Z(16384)1411380D#_16368,0:34,0::1390]#d(16384)2091370#i16368,0:34,0::V12:H1:100:"THANKS FOR PLAYING - HOPE YOU HAD FUN!":105:105:#k:(4);"RUN MENU"#nI0NP1:FS(I)0:I:NL13:GN1.$sI0NP155:165:1355@"<:V3:H6:100:"FINAL SCORING FOR TOURNAMENT"k"AI0NP1:TS(I)FS(I):TN$(I)NM$(I):I"F255:165:1370"KGNGN1:GN5NL20"P165:1395#UV15:H1:100:"PRESS FOR ANOTHER TOURNAMENT":V16:H12:100:"PRESS TO :TN$(I)NM$(I):I!255`!#GN5V15:H5:100:"PRESS FOR FINAL SCORES":170:1340!(GN5V15:H2:100:"PRESS FOR CUMULATIVE SCORES":170!-:V3:H12:100:"CUMULATIVE SCORES"!2I0NP1:TS(I)FS(I):TN$(I)NM$(I):I "72";SC(0);" POINTS" 105Y H4:V12:100:"YOUR TOTAL SCORE IS NOW ";FS(CP);" POINTS"b 105q GN51355 H10:V13:100:"...AND THAT'S FINAL!" 105:1365 :V3:H12:100:"SCORING FOR ROUND"!I0NP1:FS(I)FS(I)SC(I):TS(I)SC(I)"SORRY ";NM$(I);"..."[H8:V14:100:"...THAT'LL COST YOU ";PN;" POINTS":SC(I)SC(I)PN|105:105:105:34,0::1110INP11300FS(CP)FS(CP)SC(CP):H6:V9:100:"WELL DONE ";NM$(0);"..." H6:V10:100:"YOU FINISHED WITH 117016368,0:IH3:V10:100:"TYPE IN THE CHALLENGED WORD ";W$UJ029kWD$(I,J)W$1215rJH5:V12:100:"THAT'S NOT ONE OF ";NS$(I);" WORDS":1235LW(W$):WD$(I,J)(PC$,LW)PNLW102(BN(LW3)5)H5:V12:100: THESE WORDS MAY NOW BE CHALLENGED":34,8\~H7:V12:100:"PRESS TO CHALLENGE A WORD"uH19:V13:100:"OR"H6:V14:100:"PRESS TO CONTINUE PLAY"16368,0(16384)141118016368,0:34,0:1240(16384)195LI0NP1QFVV2:H17((NS$(I))2):100:NS$(I);" WORDS"\[K0:V4:J10:J24q`JJ1J2:HOS(K)eWD$(I,J)""WD$(I,J)(PD$,K3)j100:WD$(I,J):VV1:JoJ291145tKK1:V4:J1J15:J2J25:1120)yH1:V10:100:"ANY OF"** ALL BONUS SCORES NOW DOUBLED **":H3:140:M$"** YOU GET 60 SECONDS OF EXTRA TIME **":H1:140:CLCL60:BW1{78034,2:CPNP1Ĺ34,0:1100CPCP1:155:CPCP1:145SC(CP)SBSBSC(CP)CPSC(CP)SBSBSC(CP) CP,8):LW8pSCLW10GuHOS(LW3):V20NW:100:W$:V9:115:V7:115^zBNBN(LW3)(NW1)vSC(CP)BPBNBNBNSCSCBN:SC(CP)SC(CP)SC:V12:H23:100:" ":100:SC(CP)rSC(CP)BPBW0M$"** YOU'RE IN DOUBLE BONUS TIME **":H4:140:M$AT LENGTH **":H2:140:780.HNWNW(CP,LW3)<MNW0865ZRJ5(LW3)5(LW3)NW1uWWD$(CP,J)W$ĂJ:865\M$"** SORRY, YOU HAVE THAT WORD **":H5:140:780aNWNW(CP,LW3):NW(CP,LW3)NW1fWD$(CP,5(LW3)NW)W$k(W$)8W$(W$40:780R*WW(L)0M$"** YOUR WORD CONTAINS TOO MANY "L$"'S **":H3:140:780d/WW(L)WW(L)1k4I9TI30:LW(W$):LW8LW8>LW3M$"** WORDS MUST HAVE AT LEAST 3 LETTERS **":H1:140:780CNW(CP,LW3)5M$"** YOU HAVE 5 WORDS OF THV23:H10:100:"SCORE TO BEAT: ";SB-BW0H I025:WW(I)WA(I):IgV7:H9:100:"YOUR WORD:"vW$"":385V9:H15:100:"CHECKING..." I1(W$):L$(W$,I,1):L(L$)65%WA(L)0M$"** THERE ARE NO "L$"'S IN THIS ROLL **":H3:1T KEY SUBROUTINE) ==================DKE(KBD):KE1282005R16368,0`KEKE128f4 ====================5 WAIT SUBROUTINE6 ===================950,63:24:5:"PRESS ANY KEY TO CONTINUE":KEY(KBD);KEY12821 TOPICS SECTIONS& ==============02200:1000D1050P1100:"********************************************"1200SPOT1:13001150: GET RESPONSES1550: MARK2100: WAIT =============== GE :868 "YOU GOT ";3"II1RI:1600:IIK$RIGHT;" CORRECT!"Q?c@ ===========pA = TOOTB ==========--E"";: CONT -GJI1DE:Iq ==================== = QUIZ - DRIVER CALLED FROM INDIVIDUALSPOT ==============(ROWSPOT65TSPOT1RCOL((T5(T5))5.05)X i ==========} MARK: SCORING ==========RI0I110AN(O(I))I1565RIRI1BAO(I)1::O(I);".";I21:1:868BACK ==z ==============21450: ERASEBLOTBSPOTSPOT1VSPOT0SPOT10\p ============= == ERASEBLOT SUBROUTINE ============1500: CONVERT18ROW7COL3:" "; ============= == CONVERT =$ =========================.1500:18ROWG#7COL3`(50,63:" ";:50,255fEF =====================G == AHEAD H ===================K1450LSPOTSPOT1PSPOT11SPOT1wx ===============y == ======# == CLASSIFY SUBROUTINEB ========================NCLASS3l(KEY8)(KEY21)CLASS1(KEY("A"))(KEY("Z"))CLASS0KEY13CLASS2 ======================== == POSITION TO ANSWER  == BLANK SPOT.=== == ANSWER OUTLINE9 =======================D18:1j"1. 2. 3. 4. 5. ""6. 7. 8. 9. 10. ":"MOVE CURSOR WITRH RIGHT AND LEFT ARROWS""HIT ENTER WHEN FINISHED" ==================,INDEX,1)&A$;:ANSWERS(SPOT)INDEX61350:1300@1155Z *** CLASS = 1 *****lKEY21İ1350}KEY8İ14001155 *** CLASS = 2 ****1450 **** CLASS = 3 *****14501155 ====================:AN$(WH) eI }8 ~ ===========================Y  === GETRESPONSE SUBROUTINE|  ============================ I110:AN(I)0:I 1300:2000:1250 CL11160,1170,1180,1190  **** CLASS = 0 ***** INDEXKEY("@"):A$(AL$E  =======================6 I110:O(I)1:IB $I110T )J((1)10)1g .O(J)11065r 3O(J)Iy 8I K L ======================= M == SHOWANS SUBROUTINE N ======================== VI110 [WHO(I) `BAI1:23ALPHABET SUBROUTINE/  =====================; BA:20D "A"R 20:"B."` 20:"C."n 20:"D."| 20:"E." 20:"F." 20:"G." 20:"H." 20:"I." 20:"J."   =======================  === MIXUP SUBROUTINMBERS TY6250 :- TA(TY)290; 18:868k 1:"SORRY BUT YOU HAVE ALREADY TAKEN THAT" "QUIZ. YOU WILL HAVE TO TRY ANOTHER" "SUBJECT KIDDO" 2100: WAIT 100 "TY4000 +100  ====================  == HE FOLLOWING:" n0 x5:"(A) CHESS HISTORY"G }5:"(B) OLYMPICS)g 5:"(C) BOOKS AND AUTHORS" 5:"(D) COMPUTER LORE" 5:"(E) GENERAL INFORMATION" 5:"(F) EXIT" 200 14:5:868:2000: GETKEY TYKE("@"): SET KEYS=NU  GREETING-1 PROGRAM@D$(4): CHR$ IS CONTROL D` 10:"INITIALIZED DISKETTE"f l 10:"BY CARL M. FACCIPONTE"15:"12/83"D$;"CATALOG"10 l:14)"INSTRUCTIONS":F/q"YOU MAY FIND IT FUN AT PARTIES TO LET"u/v"TWO OR THREE PLAYERS WORK TOGETHER AS A"/{"TEAM. AT ANY RATE..."/V7:H16:100::"HAVE FUN"::/V9:H6:100:"AND IMPROVE YOUR VOCABULARY!"#0H7:V23:100:"PRES THE HIGHEST POSSIBLE DOUBLE BONUS.":S.D"WHEN ENTERING A WORD, BACK-ARROW WILL".I"ERASE THE LAST LETTER WHILE ".N"WILL ERASE THE ENTIRE WORD. IF YOU ARE".S"PLAYING ALONE, YOU CAN GET A NEW ROLL".X"BY PRESSING ".]165/"YOU ALSO RECEIVE ANOTHER 60 SECONDS OF"@-&"PLAYING TIME.":o-+"IF ANY OF YOUR WORDS ARE CHALLENGED AND"-0"FOUND INVALID, YOU ARE PENALIZED AT THE"-5"HIGHEST POSSIBLE SCORE FOR A WORD OF"-:"THAT SIZE. THAT IS, THE BASE SCORE"&.?"PLUSWHICH YOU HAVE,"-,"THE HIGHER THE BONUS."6,165R,:14)"INSTRUCTIONS":|, "FINALLY, IF YOU GET MORE THAN 1750","POINTS IN A GAME, YOU GO INTO DOUBLE","BONUS MODE. THE BONUS FOR EACH","ADDITIONAL WORD YOU MAKE IS DOUBLED.")-!OR"2+"A WORD IS 10 POINTS TIMES THE NUMBER OF"^+"LETTERS IN THE WORD. IN ADDITION, A"+"BONUS RANGING FROM 0 TO 800 POINTS IS"+"ADDED TO THE SCORE OF EACH WORD. THE"+"MORE LETTERS IN A WORD, AND THE MORE","WORDS OF THAT LENGTH ER"2*"PLAYERS. YOU WILL NEED A DICTIONARY OR"\*"SOME OTHER MEANS OF ARBITRATION.":*"ALL PLAYERS ARE THEN RANKED ACCORDING"*"TO THEIR SCORE FOR THIS GAME AND THEIR"*"TOTAL SCORE SO FAR.":+"A WORD ON SCORING. THE BASIC SCORE F TURN YET SHOULD NOT">)"WATCH THE SCREEN WHILE OTHERS ARE"Y)"MAKING THEIR WORDS."b)165~):14)"INSTRUCTIONS":)"AFTER EACH PLAYER HAS HAD A TURN,")"EVERYONE'S WORDS ARE DISPLAYED IN TURN"*"FOR POSSIBLE CHALLENGES FROM THE OTHRS. IN THE LAST GAME OF THE"K(h"TOURNAMENT YOU WILL HAVE 20 LETTERS TO"_(m"WORK WITH.":(r"IF THERE IS MORE THAN ONE PLAYER, EACH"(w"GETS A THREE MINUTE TURN WITH THE SAME"(|"SET OF LETTERS. NATURALLY, THOSE WHO")"HAVEN'T HAD THEIRROPER NOUNS ARE ALLOWED, BUT"L'J"CONTRACTIONS, PLURALS, AND ALL PREFIXES"l'O"AND SUFFIXES ARE FINE.":'T"A GROUP OF FIVE GAMES IS CALLED A"'Y"TOURNAMENT. IN THE FIRST FOUR GAMES,"'^"YOU MUST MAKE YOUR WORDS FROM A ROLL OF"(c"13 LETTETAKEN, YOU MAY NOT"(K}"RETURN TO IT.".L}EP}10:"GOOD LUCK!!"KQ}\_}2100: WAITbc}K}"OF THE FOLLOWING TYPES:"!'}9(}" 1. MATCHING"X-}" 2. MULTIPLE CHOICE"t2}" 3. SHORT ANSWER"7}" 4. TRUE OF FALSE"<}:" YOU MAY TAKE ALLTHE TIME YOU WISH"A}"TO ANSWER EACH QUIZ, BUT ONCE A GIVEN"F}"TOPIC HAS BEEN  \* p"PRESS (RETURN) TO PLAY AGAIN."2 R$; 300 Y 400 M(16384)1 M194LL1B M206LL1K (L)T "H"^ $SS1j .T120q 8T L(8);(32) `  L)"*"  "CRASH!"   *"YOU WENT "S" YARDS." 4SHHS H"THE HIGH SCORE IS "H".""PRESS (RETURN) TO BEGIN."" "R$( ,: J"GET READY!"H TT12500O ^TX hL12` rS0q A((1)24)| X1A 1000 X);(33);" ";(33) LX2000 X YA11 1000 Y);(33);" ";(33) LY122000=P12)"THE SKI GAME"-T115004T:R"YOU ARE SKIER: H"Xp"FOR A HIGH SCORE""SKI DOWN THE SLOPE""WITHOUT HITTING TREES.""PRESSING...""B MOVES YOU LEFT;""N MOVES YOU RIGHT." !! ! ! ING 1-N 2-S 3-E 4-W ";FC:FC1FC4128021220V :18:SX;" ";SY;" ";SA::1220" DO YOU WANT TO SAVE THES MAZE? (Y OR N) :INPUT Y$: IF LEFT$ (Y$,1) <> "Y" THEN GOTO 3000"WHAT DO YOU WANT TO CALL IT ";N$(D$(4)2D$;"OPEN OLD MAZEX1Y5Y1A5A1P;R"YOU WIN":T100,100:T100,50:T100,50:T75,66:T100,66:T75,66:T60,255:3000:3:0,0:62454:0:120I16:(S$(X,A),(Y1)6I,1)"X"Ă:1010RFC(FC,I)10:R125,130,135,140,145,150:1010("WHAT FACA$"E"D5LA$"?"1290+VA$"W"D6=`A$"F"ī1280KjD01010UoTT1t(S$(X,A),(Y1)6D,1)"O"ĺ(7):1010~D1160,1170,1180,1190,1200,1210AA1:1220AA1:1220YY1:1220YY1:1220XX1:1220fX5S TO BEGIN PLAY":16368,0<0(16384)1411935Q016368,0::570 V"PRESS PERIOD FOR NEXT PATTERN .....". Z%7 200H9dnHO130xVO79:(MS11:0:BS%MS(1)1:a1:22:"STEP SIZE = ";S%{Z%7(1)1:Z%4230Z%,R%VOS%S%:6J0R%S%:@HO,VOR%JHOJ,VO:JHO,VOR%J:THOJ,VO:^HO,VOR%J& ""