1(LL):B1(LL)DD #KKJJ1N1:DDA1(KK,JJ)A1(JJ,JJ)0 #LLJJN1: ELIMINATEU #A1(KK,LL)A1(KK,LL)DDA1(JJ,LL)] #LLy #B1(KK)B1(KK)DDB1(JJ) #KK #JJ #JJN111: BACK SUBSTITUTE #DDB1(JJ) #JJN19250 $KKJJ1N1 $ J010250$(QT,Q 255: QT1,(Q256)$(PPT:10220A$((Q,0:Q1,0:QQ2:834,Q255:835,(Q256)s$2(43,(832):44,(833):45,(834):46,(835):$F("TOLERANT INPUT",4500,4660$P("ROBUST INPUT",7000,7090$Z("BIGLETTERS",8000,8200$d("FO11 430P1$P$(LLA11):& DISPLAY PERSON7"NAME: ";C$K"ADDRESS: ";A$\"TOWN: ";T$l "AGE: ";A~&"HEIGHT: ",H0"HOBBIES: ";H1$:" ";H2$D"POLITICS: ";PO$NRE=";S| 240 ST64 "FILE R  SS6J XI$H1$ XI$H2$ SS63T XP$PO$ SS4c^ XP$"CONSERVATIVE" PO$"LABOUR" SS2h PO$"CONSERVATIVE" XP$"LABOUR" SS2r S M MS: "BEST SOLUTION SO FAR": 500:"SCORE=";S| 240 ST64 "FILE R DDDDX1(KK)A1(JJ,KK) $KK!"$X1(JJ)DDA1(JJ,JJ)!,$JJ"!6$=!'A(X)(X)256(X1)\!'P43:832,(43):833,(44)~!$'PA(P):A(P2)10000 10020!.'43,P255:44,(P256)!8' "LIBRARY SELECTION":!B'"THIS PROGRAM CAN'T BE RESTART RMATTED NUMBER",5000,5130%n("STRING DISPLAY",5700,58001%x("BINARY CONVERTER",1000,1060R%("EXTRACT SURNAME",4100,4200o%("LIST SEARCH",6000,6050%("BUBBLE SORT",6500,6560%("QUICKSORT",6200,6380%("FRACTION SIMPLIFIER",5500,5630%("S ED EXCEPT "L'"BY LOADING FROM DISK OR TAPE""V'C"`'"ANSWER YES OR NO FOR EACH OF THE FOLLOWING"Q"j'X$,M1,N1d"t'X$"ZZ"10170p"~'"";X$"'"(LINES";M1;"-";N1;")""'A$"'(A$,1)"Y"10090"'(A$,1)"N"10500:10090"'"ANSWER YEIMULTANEOUS EQUATIONS",9000,9270&(ZZ,0,0&)PPA(832)<&)SSA(A(PP)2):SSM1PPA(PP):10510J&)QQA(PP)r&")SSA(QQ2):QQA(QQ):SSN110530&,)PP,QQ255:PP1,(QQ256):ROBUST INPUT",7000,7090$Z("BIGLETTERS",8000,8200$d("FO EAD ERROR"2:16:"THIS IS THE BEST DATE WE CAN FIND": y DISPLAY MENU A1 TO B1 OF P$. SELECT A WORD AND RETURN IN P1$JJ1:KKA1 B1JJ;">";P$(KK):JJJJ1KK:"CHOOSE A NUMBER";LL:LL(LL) LL1 LL B1A 0 390  T$XT$ S$ XS$ 240(S0aDXAA: XS$"F" DD: D=MALE'S AGE - FEMALE'S AGE" D 0 D 4 SS5,DCHH: XS$"F" DD: D = MALE'S HEIGHT - FEMALE'S HEIGHT6 D1 D 3 SS3@ XH$H1$ XH$H2$ S OR NO":10570#'"AT 'READY' SAVE ON A NEW TAPE OR DISK":#'"FILE. NOW WAIT FOR READY."K#' COMPACT UPa#'QA(832):PA(Q)s#'PTA(P):QTQ#'A(P2)10000 10280#(Q2,(P2): Q3,(P3)#(PP4:QQ4# (J(P):Q,J:PP1:QQ1:0N1J1N#J$,K$,L$,M$,X,Y*J>X1$J$K$:5500Q$:X1$L$:5500d.:X1$M$:5500p3X0 x8X$BX$"A"NX:1010LX$"B"NY:1010V"TRY AGAIN":1080| DISPLAY X1$ WITHOUT SPLITTING WORDSXX$X1$B10000: COMMODORE 64 LIBRARY COPYRIGHT(C) ANDREW COLIN 1983i CONVERT X1 TO BINARY AND DISPLAYYY256:XXX1:KK18YYYY2XXYYXXXXYY:"*";:1050" ";KK$: EXTRACT SURNAME FROM N1$ AND DELIVER IN Y1$ TINE(XX$,RR);:RR406p SEARCH ORDERED LIST IN A1$FuHHH1:LLL1YzHHLLM11:oM1(0.5(HHLL))X1$A1$(M1)X1$A1$(M1)HHM11:6010LLM11:60108 QUICKSORT OF N1 NUMBERS IN ARRAY A1BSS16230L OT DEAD WHILE TRYING TO ESCAPE","THAT IS THE END OF THE GAME"b3 "FOR"," YOU!",0,<"YOU ARE PUT INTO A CELL WITH GEORGE THE IMPRISONED SPACE MAN."," DO YOU" =" A) MAKE FRIENDS WITH THE GUARD","OR B) HIT HIM ON THE HEAD  PP1(NN$)-(NN$,PP,1)"." (NN$,PPY1);:5PPCNN$;".";ZJJ1Y1:"0";:JJ` | REDUCE FRACTION A1/B1 TO ITS LOWEST TERMS RESULT IN C1/D1. LOCALS ARE JJ,KK,LL ERROR IF A1 OR B1 NOT WHOLE NUMBERS OR IF B1<1 K FOR DELPP07020: CAN'T ERASE NOTHING!A" ";:PPPP1:XX$(XX$,PP):7020h(AA$)13 7020:LOOK FOR RETURNwPP07020X1(XX$):@ DISPLAY CHARACTER IN A1$ FOUR TIMES USUAL SIZEJBB(A1$)TBB13BB141 "":PP(XX$)PP40RRPP:5580:)QQ4111c(XX$,QQ,1)" "RRQQ1:5580:XX$(XX$,PPQQ):5520kQQRR40:5580:XX$(XX$,PP40):5520 INTERNAL SUBROUTINE (XX$,RR);:RR40 'S WELCOME","WELL DONE!!!",0, JJ(N1$)JJ0Y1$"":O"(N1$,JJ,1)"A"(N1$,JJ,1)""JJJJ1:4120_,KKJJ11s6CC$(N1$,KK,1)@(CC$"A"CC$"Z"CC$"-"CC$"'")4190JKKTKK0^Y1$(N1$,KK1,JJKK)h TOLERANT INPUT OF NUMBERS XXSS%(100):SS1: DECLARE STACK,VAA1:BBN1:SS%(0)1:PP1F`XXAA:YYBB:ZZA1(BB)WjXXYY6290utA1(XX)ZZXXXX1:6250~A1(YY)ZZYYYY1:6250DDA1(YY):A1(YY)A1(XX):A1(XX)DD:6250A1(BB)A1(XX):A1(XX)ZZXXAA16340WHEN HE BRINGS FOOD">9,8dF"YOU MISTAKE YOUR ORBIT AND FIND YOURSELF HEADING AWAY FROM THE GALAXY."G" YOU EVENTUALLY STARVE.","THAT IS THE END","FOR YOU!",0,0P"HE TURNS OUT TO BE A ROBOT WITH AN IRON HEAD. YOU ARE TAKEN OUT AA1(A1)B1(B1)B115550I"WRONG PARAMETERS TO FRACTION SIMPLIFIER";A1;B1:_A10C10:D11:oJJA1:KKB1A10JJA1KK0 5620JJ0 JJKK:5620JJKKJJJJ(JJKK)KK:5580KKKK(KKJJ)JJ:5580C1A1JJ:^BB18QQ1: hBB146QQ0: mBB129 "";:\rBB32(" ",BB1,1);:|BB144 BB160(" ",BB143,1);:AA(BB31)0.5(BB128):(BB64)0AAAA32NN8AA12288819,160:NN#QQ0("  ",PP,2);:8150T("  ",PP,2);gNN(NN4):MMu"";}JJ""; (202)36"" (# SOLVE N1 SIMULTANEOUS EQUATIONS A1.X1=B12#N1$YY$""JJ1(XX$)-CC$(XX$,JJ,1)LCC$"O"YY$YY$"0":4600kCC$"I"YY$YY$"1":4600}CC$" "4600(CC$"9"CC$"0"CC$"."CC$"-")4620YY$YY$CC$JJX1(YY$): "NUMBERS CONSIST OF" "DECIMSS%(PP)XX:SS%(PP1)BB:SS%(PP2)2:PPPP30BBXX1:6240TPPPP3:XXSS%(PP):BBSS%(PP1)gBBXX16370SS%(PP)3:PPPP1:AAXX1:6240PPPP1SS%(PP1)6380,6330,6360d BUBBLE SORTnSS$"NO"xKK1N116ND HUNG.",-Q"FOR YOU, THE GAME","HAS ENDED.",0,0}Z"THE JAILER HELPS YOU TO ESCAPE WITH GEORGE. THE GRAFFS UNDERSTAND YOUR "[" POINT OF VIEW AND LEND YOU A SPACE-SHIP TO GET HOME"\"YOU ARRIVE TO A HERO'S WELCOME","WELL DONE!!!",0,D1B1JJ.D DISPLAY X1$ WITHOUT SPLITTIOING WORDS:NXX$X1$HXPP(XX$)cbPP40 RRPP:5780:slQQ4111v(XX$,QQ,1)" "RRQQ1:5780:XX$(XX$,PPQQ):5720QQRR40:5780:XX$(XX$,PP40):5720 INTERNAL SUBROU 820,7:821,185:822,NN 255;823,(NN65536)256:824,153:825,64:826,3:827,136X828,16:829,247:830,96a819oJJ062KK(832JJ):LL(833JJ)NN64:MM03PP18(KKNN)2(LLNN)KKKK(KKNN)NN:LLLL(LLNN) 1X1(1)B1(1)A1(1,1):<#JJ1N11: FIND PIVOT0F#DD(A1(JJ,JJ)):LLJJ>P#KKJJN1iZ#(A1(KK,JJ))DDDD(A1(KK,JJ)):LLKKqd#KKn#LLJJ9120x#KKJJN1#DDA1(JJ,KK):A1(JJ,KK)A1(LL,KK):A1(LL,KK)DD#KK#DDB1(JJ):B1(JJ)BAL DIGITS 0-9," "+,- AND . ONLY"7*"PLEASE TRY AGAIN"A44510fDISPLAY X1 TO Y1 DECIMAL PLACESXXX1:Y10 (X1)999999999 5050XXXX0.5 (XX);XX0XXXX0.510Y1:5070XXXX0.510Y1NN$(XX)A1$(KK)A1$(KK1)DD$A1$(KK):A1$(KK)A1$(KK1):A1$(KK1)DD$:SS$"YES">KKRSS$"YES"6510XrX ROBUST NUMBER INPUTbXX$"":PP0lAA$:AA$""7020vAA$"0"AA$"9"AA$;:XX$XX$AA$:PPPP1:7020(AA$)207070: LOOXXV%(C)XX,81:YY,U%(C):% ERASE HUNTERB XXSR40BA:YYXXV%(C)V XX,32:YY,32:p MOVE HUNTER OR SHHOT A$"M"3040 2500:CC1:C9C1 2000: A$"B" 3070 2500:CC1:C0C8 2000: A$"F" 31  SAVE "EXPT24.3A",9< EXPERIMENT 24.3A (FOR DISK)O"":DV(174)u DV8 DV$"DISK": DV$"TAPE"" INSERT DATA "DV$"."" PRESS SPACE WHEN READY."A$:A$" "19" FILE NAME";F$:F(F$)  F1ONSTITUTION CAN NO LONGER"""STAND IT"'(,520= WASP IS KILLEDl"A WASP BITES THE DUST! "JJ1000 500 251,JJ,3TT120:TTJJJ2NANANA1:W%(J2,1)W%(J21,1)W%(J2,2)W%(J SAVE"0:EXPT24.3B",9@ SOLUTION FOR EXPT 24.3B (DISK)N J(26,5)ZQ126f( R15s2 J(Q,R)}< R,QF 1,3,0,0,0P 3,1,1,1,0Z 3,1,3,1,0d 3,1,1,0,0n 1,0,0,0,0x 1,1,3,1,03,3,1,1,01,1,1,1,0  |W%(J1,1)01000A$:A$""410+ 239,053000=J1L2000:330W WINSv" WELL DONE !":" YOU HAVE KILLED ";NNA:" WASPS IN"((TITS)60);"SECONDS":" YOU WERE STUNG":&" ";SQ;" @3,3,1,1,0J7TDV(174)D^ DV8 DV$"DISK": DV$"TAPE"eh" INSERT DATA "DV$"."r" PRESS SPACE WHEN READY."wA$:A$" "375|" FILE NAME";Q$:Q(Q$) Q1 Q16 380 DV8 4202,1,0,F 50 2500:AAAD%(C,1):BBBD%(C,2)D AA2 AA36 BB2 BB22 AAA:BBBN 2000[& JJ1NA|0 AW%(JJ,1)BW%(JJ,2)4000: JJD N A$"S" X PPA2D%(C,1):QQB2D%(C,2)b 3,500,25l BUBU1v RRSR40QQPP IST OF ZZ. ONLY .dS$""/n A$: A$"" 110Nx (A$)20 " ";: 110b A$;: S$S$A$ A$ "." (S$)75 1102,S$ (S$,2)"ZZ" 502:1:ADY."A$:A$" "19" FILE NAME";F$:F(F$)  F121,2)J2J21:50702000:SQSQ1% JJ11680,JJ:4,17JJK1,80010JJ,3SJJa0,1:4,5sTT1200:TT (XX$)14110: JUMP IF LIVES USED UP"YOU HAVE BEEN STUNG THREE TIMES""AND YOUR C & 2: 1: "0"DISK ERROR":2:1:>: SEND CHARACTER IN A1$LDAA(A1$)mN AA32 TT1 4R:TT:X AA65 AA90 bAAAA64:PP1l J(AA,PP)0 TT 1 2R:TT:vT1RJ(AA,PP):1,950,T10.1 TT1 T1: TT TIMES"05 TT1 5000: TTI::" TO HAVE ANOTHER GAME HIT ANY KEY"^DA$:A$"" 580gN 20~X OUT OF FLY-SPRAYb"SORRY-NO FLY-SPRAY":l"LEFT!":v520 MOVE J1'TH WASP AT RANDOMXXW%(J1,1):YYW%(J1,2)#TT1R:TTPPPP1: 6208,2,Q$",SEQ,READ": DS 2:DS$: 380V" RATE?";R`2,Z$t (Z$)0 450 (Z$,2)"ZZ" 540 ST0 560 W1 (Z$)A1$(Z$,W,1)570W 450: "END OF TEXT"KK15 RR,102:TT130:TT& RR,32:TT150:TT. KK; JJ1NAe PPW%(JJ,1) QQW%(JJ,2)J2JJ:5000o JJ: HUNTER IS STUNG" S T U N G !!! "XX$(XX$,(XX$)1)2500A(316(0)):B F16 20 DV8 30(2,1,2,F$050E1,DV,15,"I":1:t( 2,DV,2,F$",SEQ,WRITE": DS 2:DS$:20|2:<"TYPE A SENTENCE AND END IT WITH A"F"PERIOD."P"DON'T EXCEED 75 CHARACTERS."Z"YOUR LAST SENTENCE SHOULD CONS SAVE"0:GRAFFS",9m "YOUR MISSION IS TO RESCUE GEORGE THE SPACE PIONEER FROM THE CLUTCHES OF THE " "GRAFFS, WHO INHABIT THE PLANET ARCNODE. DO YOU" " A) LAND" "OR B) WAIT AND WATCH",3,2%"YOU ARE ATTACKED BY GRAFF MIS1,1,0,0,01,3,3,3,0(3,1,3,1,071,3,1,1,0F3,3,0,0,0U3,1,0,0,0d3,3,3,0,0s1,3,3,1,03,3,1,3,01,3,1,0,01,1,1,0,03,0,0,0,01,1,3,0,01,1,1,3,0"1,3,3,0,0,3,1,1,3,063,1,3,3,0 XNXX(3(0))1:XN0 XN39 1020HYNYY(3(0))1: YN1 YN24 1030] SR40YYXX,32p J1NA 1080ZZSR40YNXN:(ZZ)32 ZZ,35$W%(J1,1)XN:W%(J1,2)YN8XNA YNB4000 DISPLAY HUNTERXXSR40BA:YY $4401,8,15,"I"C2,8,2,Q$",SEQ,READ": DS 2:DS$: 380V" RATE?";R`2,Z$t (Z$)0 450 (Z$,2)"ZZ" 540 ST0 560 W1 (Z$)A1$(Z$,W,1)570W 450: "END OF TEXT"(316(0)):C(18(0))2000:SQSQ1% JJ11680,JJ:4,17JJK1,80010JJ,3SJJa0,1:4,5sTT1200:TT (XX$)14110: JUMP IF LIVES USED UP"YOU HAVE BEEN STUNG THREE TIMES""AND YOUR CNT?' DO YOU "a " A) TELL THE TRUTH","OR B) MAKE UP A STORY ABOUT HAVING ARRIVED BY MISTAKE"j!6,4("YOU ARE GIVEN A LIE-DETECTOR TEST WHICH YOU FAIL.")"DO YOU "," A) TRY TO ESCAPE","OR B) ADMIT THE TRUTH",5,6;2"YOU ARE SHSILES AND YOUR SPACE-SHIP IS DISABLED."|"DO YOU"," A) MAKE A FORCED LANDING ON ARCNODE","OR B) ESCAPE IN YOUR LIFEBOAT" 3,7"YOU FIND YOURSELF SURROUNDED BY GRAFFS WHO TAKE YOU TO SMYRL THEIR "  " LEADER. HE ASKS, 'WHAT DO YOU WA SAVE"0:QUICKSORT",91 N1=20:DIMA1(N1)Y FORJ=N1TO1STEP-1:A1(J)=N1-J:NEXTJ GOSUB5:PRINT:GOSUB6000:GOSUB5:END FORJ=1TON1:PRINTA1(J);:NEXT:RETURNp QUICKSORT:SORTS N1 ELEMENTS OF A1zSS16030SS%(2 N1):SS1: DECLA"" ";1 N1/" ";8  JJB "";Hz DRAW VERTICAL LINE N1 UNITS DOWN FROM X1,Y1 500: POSITION CURSOR JJ1 N1" "; JJ DRAW LINE DIAGONALLY UPWARDS AND RIGHT FROM X1,Y1 SAVE"0:LIFESTART",9< FIRST PART OF LIFE PROGRAMQX$(9,9),Y$(9,9)o"TYPE STARTING PATTERN"("IN *'S AND SPACES,"2"USING CURSOR CONTROLS"<"TO GET IT INSIDE THE"F"BOX."P" "ZJ1 9d"  SAVE"0:DATEPROG.U24",9E EDINBURGH,GLASGOW,DUNDEE,ABERDEENFOOTBALL,TENNIS,HILLWALKING,OPERA,JAZZ,ROCK,THEATRE,READING,POLITICSCHESS,GAMBLING,HORSERACING,CARS,MOTORBIKES,CYCLING,MEETING PEOPLE(CONSERVATIVE,LABOUR,LIBERAL,SDP,OT 0 FP$(26)PJ126:P$(J):6Z"COMPUTER DATING"Id"WHAT TOWN ?"fnA11:B14: 420: XT$P1$x"WHAT IS YOUR MAIN INTEREST?"A15:B120:420:XH$P1$"WHAT IS YOUR SECOND INTEREST?"A15:B120:420:XI$P1$"WHAT ARE Y  SAVE"0:MONDRIAN",9# "".L189K07F(0,LK1Q2JK9\<Y12JmFX12J20JwP1000ZX1dX120JnY12J20Jx1000Y1Y120JX120J2J11000X1X12JY120J2J RE STACK#AA1:BBN1:SS%(0)1:PP1=XXAA:YYBB:ZZA1(BB)NXXYY6090lA1(XX)ZZXXXX1:6050A1(YY)ZZYYYY1:6050DDA1(YY):A1(YY)A1(XX):A1(XX)DD:6050A1(BB)A1(XX):A1(XX)ZZXXAA16140SS%(PP)XX:SS%(PP  SAVE"0:TONGUE",9; DEFINING YOUR OWN CHARACTERSb FIRST RESERVE SPACE IN THE STOREx 52,55: 56,55: 1000: FETCH FIRST 128 CHARACTER DEFINITIONS FOUR RUSSIAN LETTERS( WHICH REPLACE DIGITS 1,2,3 AND 4214728,0,62, "nJ$x" "4"";B J1 9QT$"": T$^K2 10vX$(J,K1)(T$,K,1)K,J DISPLAY CURRENT POSITION" "J1 9" ";K19:X$(J,K);:K""J OUR POLITICS?"%A121:B126:420:XP$P1$Q:"ARE YOU MALE OR FEMALE (SAY M OR F)[ XS${ XS$"M" XS$"F" 180: "WHAT IS YOUR AGE";XA:"HEIGHT IN INCHES";XHM100:"";2,C$,A$,T$,S$,A,H,H1$,H2$,PO$ ST DS"6,56JJ .8198JJB20,6,12,12,6,120,0XF14744,0,199,199,243,223,223,243,0P14752,0,102,108,120,120,108,102,0ZJ14dXnK07xY XK,YK,J65298,(65298) 25165299,((65299)3)56"THE RUSSI1 1000Y1J,K,L1230: LOOP STOPb PUT REVERSED SPACE AT X1+6,Y1+1 (COLOUR K)wZZX140 Y1 463072ZZ,1602048 ZZ,K80T20QUIZUNIT21QUIZ QUICKSORT1)BB:SS%(PP2)2:PPPP3'BBXX1:6040KPPPP3:XXSS%(PP):BBSS%(PP1)^BBXX16170SS%(PP)3:PPPP1:AAXX1:6040PPPP1SS%(PP1)6180,6130,6160$T:SORTS N1 ELEMENTS OF A1zSS16030SS%(2 N1):SS1: DECLA106,62,30,54,106,01<14736,0,120,6,12,12,6,120,0XF14744,0,199,199,243,223,223,243,0P14752,0,102,108,120,120,108,102,0ZJ14dXnK07xY XK,YK,J65298,(65298) 25165299,((65299)3)56"THE RUSSI" "T",9< FIRST PART OF LIFE PROGRAMQX$(9,9),Y$(9,9)o"TYPE STARTING PATTERN"("IN *'S AND SPACES,"2"USING CURSOR CONTROLS"<"TO GET IT INSIDE THE"F"BOX."P" "ZJ1 9d" HER,NONE42DV(174): SET DV = LAST DEVICE ACCESSEDV3DV8DV$"DISK":DV$"TAPE"u4" INSERT DATA "DV$"."6" PRESS SPACE WHEN READY."8A$:A$" "56<1,8,15,"I":1>2,8,2,"COMPUTER DATES,SEQ,READ"@ DS 2:5 SAVE"0:WASPS",9I WASPSHOOTER COPYRIGHT (C) ANDREW COLIN 1984k V%(8),U%(8),D%(8,2),W%(20,2)" W A S P S H O O T E R"::" COPYRIGHT (C) ANDREW COLIN 1984"" KILL ALL THE WASPS"(" BEFORE THE FLY-SPRAY"2" RUNS OUT"3<:" M TO TURN RIGHT"OF" B TO TURN LEFT"lP" F TO GO FORWARD"Z" S TO SHOOT":_XX$""dSR3072n 0,1: 7: 4,7x" HOW MANY WASPS";NN1N20 "1 TO 20 PLEASE":120J18$V%(J),U%(J),D%(J,1),D%(J,2)+JH-40,93,0,-1,-39,78,1,-1`1,67,1,0,41,77,1,1z40,93,0,1,39,78,-1,1-1,67,-1,0,-41,77,-1,-1BU(7(N)):SQ0""J2048 3047 :J,103:JJ1NW%(J,1)(40(0)) AN FOR LANGUAGE IS 1234"170S SUBROUTINE TO COPY 1K OF CHARACTER ROM TO 14336w819,160:820,0:821,185:822,0824,153:825,0:827,200 828,208:829,247: 830,96 828,208:829,247: 830,96JJ03 823,208JJ$ 82W%(J,2)(12(0))1/ SR40W%(J,2)W%(J,1),356"J?,NANI6TSTI`@A3:B18:C2:2000nJNA0500|OBU0600T" "^"WASPS";NA;"TIME";((TITS)60);"SHOTS";BU;"LIVES ";XX$rJ11NA "ITB II CBM+4 " 01 2A0BLOCKS FREE. )JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)J SAVE"0:UNIT16QUIZ",9B COPYRIGHT (C) ANDREW COLIN 1982n " QUESTION AND ANSWER PROGRAM.":" AT ALL TIMES, HIT ANY KEY TO"" GET THE NEXT QUESTION"(:" ALWAYS FOLLOW YOUR REPLY2" WITH THE RETURN KEY$,P,QP)A$1500PQ1:1390:R1:#@=TS6(1R)(6(1))1N^J1S:Z$:mh"";Z$rT2 1750|"THE RIGHT ANSWER IS":""; (Y$,1)"%"1710P1(Y$,P,1)"%"1750(Y$,P,1);:PP 1 8A$"#" 1150'BA$"%"JJW:K3:1070=GA$"\" A$(34)oL307240JK,(A$) 63: 204840JK,15:KK1yV1070~J112:X$:NJ1DX$:Y$X$X$Y$:Y$ J""; U#"TOTAL OF 80 CHARACTERS%% TRUE%% OR FALSE?%%#",T%TRUE%#wZ#" A READ COMMAND MAY REFER ONLY%TO DATA STATEMENTS WHICH COME AFTER%"_#"IT%% TRUE% OR FALSE?%%#",F%FALSE%#d#" A READ COMMAND MUST USE UP%EXACTLY AS MANY ITEMS AS THE  UNIT17PROG, DEBUG THIS PROGRAM!;"NAME";N$]N$"JIM"40:A$"JAMES":100(N$"BOB" 50:A$"ROBERT":1002N$"KATE"60:A$"KATHERINE":100<N$"PENNY" 70:A$"PENELOPE":100F N$;" IS NOT"P"SHORT FOR ANYTHING." PICTURE" DRAW A HOUSE+4,24(""N2X111:Y18:N15:3000h<X125:Y14:N15:4000FX116:Y14:N110:1000PX111:Y19:N112:2000ZX130:Y19:N112:2000dX111:Y121:N120:1000nX111:Y19:N120:1000x X114  "<::" GOOD LUCK!"*FJ112:Y$:1PN;ZZ(N)OdJ1N:Z(N)0:XnSC0cxJ1NuZ(J)0 200|JJ12000:J" YOU SCORED";SC:" QUESTIONS RIGHT FIRST":" TIME OUT OF";N:" THI1:1690(Y$,2,(Y$)):1750D" NOW TYPE ANY KEY":RX$"ABCD"ZY$jX$Y$2050z"NO":2000"YES" JYES,CORRECT,RIGHT,GOOD,"THAT'S RIGHT",OKTNO,WRONG,"THAT'S WRONG",NOT RIGHT,"NO-THAT'S WRA$""Q$:Q$"" 1307)(Q$)20 13149A$""1307`" ";:A$(A$,(A$)1):1307|"(Q$)13 " ";:1321# Q$"0" (Q$"9" Q$"A") Q$"Z" 1307$Q$;"";%A$A$Q$:1307)P(A$): P01300*((A$,1RE ARE%IN THE "4i#"DATA STATEMENT.%% TRUE% OR FALSE ?%%#",F%FALSE%#n#"IF A READ COMMAND TRIES TO PUT A%STRING INTO A NUMBER VARIABLE THE%ERROR"p#" IS REPORTED AT%%A) THE READ COMMAND LABEL%B) THE DATA STATEMENT LABEL%#"s#"B%DATASTATE7Z10d"N$;" IS SHT")n"FOR ";A$1x10UNIT17PROGPICTUREBIGLETTERSUNIT20QUIZUNIT21QUIZ QUICKSORT 500R:POSITION CURSOR$ JJ1 N1/" ";8  JJB "";Hz DRAW VERTICAL LINE N1 UNITS DOWN FROM X1,Y1 500: POSITION CURSOR JJ1 N1" "; JJ DRAW LINE DIAGONALLY UPWARDS AND RIGHT FROM X1,Y1S IS";(100SCN0.5);"PERCENT"!3D1(N(1))E Z(D)1200RCZ(D)1\1200gT13zA$:A$""250100013001600R1T1Z(D)0 SCSC1" R1 T1 Z(D)1:400, R1 3206T@Z(D)Z(D)1ONG",INCORRECT(# 7Q2#" DATA STATEMENTS MUST COME%%A) BEFORE ANY COMMANDS%B) AFTER ALL THE"7#" COMMANDS%C) ANYWHERE IN THE PROGRAM%%#",C%ANYWHERE%#<#" DATA STATEMENTS MAY SHARE THEIR%LABEL NUMBERS WITH CERTAIN COMMANDS%" A#"% TR))321330+A$(A$,1,P1).132142 (Y$,1)"%"1380<<P2\F(Y$,P,1)"-"PP1:1350P(A$)((Y$,2,P1))(A$)((Y$,P1,(Y$))) 1500ZR0:dP1n(Y$,P,1)"#"1370xQP(Y$,Q,1)"%"QQ1:1410(YMENT%#"7x#"WHEN THE LAST DATA STATEMENT HAS%%BEEN USED UP, THE COMPUTER%%AUTO"z#"MATICALLY GOES BACK TO THE%%FIRST ONE.%% TRUE%% OR FALSE ?%%#"}#"F%FALSE%#"E?%%#",F%FALSE%#d#" A READ COMMAND MUST USE UP%EXACTLY AS MANY ITEMS AS THE 24 5 Y112 17 5% 5000. Y16X1?200^ POSITION CURSOR TO X1,Y1h"";y X10 540KK1 X1:"";: KK Y10 &KK1 Y1:"";: KK0 TO DRAW HORIXONTAL LINE FOR N1 UNITS FROM X1,Y1 500: POSITION CURSOR& KK1 N15 "";> KKD ~ DRAW LINE DIAGONALLY DOWNWARDS AND RIGHT FROM X1,Y1 500: POSITION CURSOR KK1 N1"ߒ"; KK DRAW WINDOW 500: POSITION CURSOR:120120""""?J039:3072J,160: 2048J,C:hJ092040:3151J,160: 2127J,C:J3901:4032J,160: 3008J,C:J920040:3112J,160: 2088J,C:W2:(X$)110W1$P1:J3: K3.A$(X$,P,1):PPUE% OR FALSE?%%#",F%FALSE%#TF#"A DATA STATEMENT MUST HAVE ALL%%ITS ITEMS OF THE SAME TYPE -%%THAT "K#"IS, ALL NUMBERS OR ALL STRINGS%% TRUE% OR FALSE%#",F%FALSE%#P#" A DATA STATEMENT MAY HOLD ANY%NUMBER OF ITEMS UP TO A MAXIMUM%"+A Kl}ITB II CBM+4012A--PART 2--UNIT16QUIZUNIT17PROGPICTUREBIGLETTERSUNIT20QUIZUNIT21QUIZ QUICKSORTLIFESTARTDATEPROG(D)MONDRIANTONGUEWASPS MAKENAMES EXPT24.3A(D)EXPT24.3B(D)GRAFFSDUNGEON DUBLINTUNE PLAYERLIBRARYDATEPROG.U24---END--- SAVE"0:BIGLETTERS",9Q@ DISPLAY CHARACTER IN A1$ FOUR TIMES USUAL SIZE_JBB(A1$)zTBB13BB141"":^BB18QQ1:hBB146QQ0:m BB129 "";:rBB32("",BB1,1);:+|BB14 SAVE"0:UNIT20QUIZ",9B COPYRIGHT (C) ANDREW COLIN 1982n " QUESTION AND ANSWER PROGRAM.":" AT ALL TIMES, HIT ANY KEY TO"" GET THE NEXT QUESTION."(:" ALWAYS FOLLOW YOUR REPLY2" WITH THE RETURN KE1:120 120""""AJ039:3072J,160: 2048J,C:jJ092040:3151J,160: 2127J,C:J3901:4032J,160: 3008J,C:J920040:3112J,160: 2088J,C:W2:(X$)110W1$P1:J3: K3.A$(X$,P,1):P ,1))321330+A$(A$,1,P1).132162 (Y$,1)"%"1380><P2^F(Y$,P,1)"-"PP1:1350P(A$)((Y$,2,P1))(A$)((Y$,P1,(Y$))) 1500ZR0:dP1n(Y$,P,1)"#"1370xQP(Y$,Q,1)"%"QQ1:1410 WRONG",INCORRECT(#8T<#THE SUBSCRIPT OF AN ARRAY%ELEMENT IS CALCULATED WHEN%%A)THE ARRAY IS DECLA#ARED%B)THE PROGRAM IS TYPED IN%C)THE ARRAY ELEMENT IS USED%%#,C%#F#CONSIDER%% DIM U(K)%%THIS IS%A) ALWAYS WRONG%B) CORRECT IF THE VALUE OF K% 17)%THE ARRAY P HAS%A) 17 ELEMENTS%B) 18 ELEMENTS%"Ms#"C) SOME OTHER NUMBER OF ELEMENTS%%#",B%18%#x#"CONSIDER DIM G$(7)%THE ELEMENTS OF THIS ARRAY ARE%%A) NUMBERS%B)"}#" STRINGS%%#",B%STRINGS%##"ARRAYS MAY HAVE ELEMENTS WHICH ARE%%A 4 BB160("",BB143,1);:[AA(BB31)0.5(BB128):(BB64)0AAAA32mNN8AA12288819,160: 820,7:821,185:822,NN 255823,(NN65536)256:824,153:825,64:826,3:827,136828,16:829,247:830,96819  Y."<::" GOOD LUCK!",FJ112:Y$:3PN=ZZ(N)QdJ1N:Z(N)0:ZnSC0exJ1NwZ(J)0 200~JJ12000:J" YOU SCORED";SC:" QUESTIONS RIGHT FIRST":" TIME OUT OF";N:" TP1 8A$"#" 1150)BA$"%"JJW:K3:1070?GA$"\" A$(34)qL307240JK,(A$) 63: 204840JK,15:KK1{V1070~J112:X$:NJ1DX$:Y$X$X$Y$:Y$ J""(Y$,P,QP)A$1500PQ1:1390:R1:%@?TS6(1R)(6(1))1P^J1S:Z$:oh"";Z$rT2 1750|"THE RIGHT ANSWER IS":""; (Y$,1)"%"1710P1(Y$,P,1)"%"1750(Y$,P,1);:P;K#IS SET BEFORE THE DECLARATION%C) RIGHT IF THE VALUE OF K IS SET%ANYWHERE%#DM#B%#P#"CAN YOU HAVE A VARIABLE CALLED Q%AND AN ARRAY CALLED Q IN THE SAME%"U#"PROGRAM?%% YES% NO%#",Y%YES%#Z#"CAN YOU HAVE DIFFERENT ARRAYS%CALLED P AND m) ALL NUMBERS OR ALL STRINGS%B) "O#"NUMBERS AND STRINGS MIXED%C) NUMBERS ONLY%D) STRINGS ONLY%%#",A%#?%%A) THE SECOND DECLARATION%"i#"IS IGNORED%B) THE COMPUTER SETS UP ANOTHER%ARRAY%C) A FAULT OCCURS%#"k#C%FAULT%#n#"CONSIDER% DIM P(JJ0 6 2(KK(832JJ):LL(833JJ):NN64:MM03YPP18(KKNN)2(LLNN)KKKK(KKNN)NN:LLLL(LLNN)NNQQ0("  ",PP,2);:8150("  ",PP,2);NN(NHIS IS";(100SCN0.5);"PERCENT"#5D1(N(1))G Z(D)1200TCZ(D)1^1200iT13|A$:A$""250100013001600R1T1Z(D)0 SCSC1" R1 T1 Z(D)1:400, R1 3206T@Z(D)Z(D);A$""Q$:Q$"" 1307+(Q$)20 1314;A$""1307b" ";:A$(A$,(A$)1):1307~"(Q$)13 " ";:1321# Q$"0" (Q$"9" Q$"A") Q$"Z" 1307$Q$;"";%A$A$Q$:1307)P(A$): P01300*((A$P1:1690(Y$,2,(Y$)):1750F" NOW TYPE ANY KEY":TX$"ABCD"\Y$lX$Y$2050|"NO":2000"YES" JYES,CORRECT,RIGHT,GOOD,"THAT'S RIGHT",OKTNO,WRONG,"THAT'S WRONG",NOT RIGHT,"NO-THAT'S  P$ IN THE%SAME PROGRAM?%"$_#"% YES% NO%#",Y%YES%#td#"WHAT HAPPENS IF YOU DECLARE AN%ARRAY TWICE ?%%A) THE SECOND DECLARATION%"i#"IS IGNORED%B) THE COMPUTER SETS UP ANOTHER%ARRAY%C) A FAULT OCCURS%#"k#C%FAULT%#n#"CONSIDER% DIM P( SAVE"0:UNIT21QUIZ",9B COPYRIGHT (C) ANDREW COLIN 1982n " QUESTION AND ANSWER PROGRAM.":" AT ALL TIMES, HIT ANY KEY TO"" GET THE NEXT QUESTION."(:" ALWAYS FOLLOW YOUR REPLY2" WITH THE RETURN KEPN4): MM"";JJ*"";@(202)34""F 64)0AAAA32mNN8AA12288819,160: 820,7:821,185:822,NN 255823,(NN65536)256:824,153:825,64:826,3:827,136828,16:829,247:830,96819  P1 8A$"#" 1150)BA$"%"JJW:K3:1070?GA$"\" A$(34)qL307240JK,(A$) 63: 204840JK,15:KK1{V1070~J112:X$:NJ1DX$:Y$X$X$Y$:Y$ J"" ,1))321330+A$(A$,1,P1).132162 (Y$,1)"%"1380><P2^F(Y$,P,1)"-"PP1:1350P(A$)((Y$,2,P1))(A$)((Y$,P1,(Y$))) 1500ZR0:dP1n(Y$,P,1)"#"1370xQP(Y$,Q,1)"%"QQ1:1410 SAVE"0:MAKENAMES",9& :""{MILDRED,UNITY,ADELHEID,DESIREE,MERLE,XENOBIA,ANTHEA,TIZIANA,FLORENCE,ANNE,ALICEKATE(FIONA,ESTHER,DEIRDRE,SARAH,GILLIAN,MARGARET,CHRISTINE,ALISON,ALICE,CATHERINE.2BURL,MUSTAPHA,CLOPPER,RANDY,FRED, P1:1690(Y$,2,(Y$)):1750F" NOW TYPE ANY KEY":TX$"ABCD"\Y$lX$Y$2050|"NO":2000"YES" JYES,CORRECT,RIGHT,GOOD,"THAT'S RIGHT",OKTNO,WRONG,"THAT'S WRONG",NOT RIGHT,"NO-THAT'S % X=VAL("22"+"33")% PRINT X+1%A) 2234TU#%B) 56%C) "2234+1"%D) SOMETHING ELSE%%#,A%2234%#Z#CONSIDER THE EXPRESSION%%Q-INT(Q/P)*P%%IS IT EQUAL TO 0 WHEN%%A) P DIVIDES_#" Q EXACTLY%B) P DOES NOT DIVIDE Q EXACTLY%C) P IS GREATER THAN  LL,MACE,MUNRO,MOREVxSMITH,THOMSON,WILSON,SHAW,OGILVIE,PETERSON,RATTRAY,RAMSAY,YUILL,ZELLWORMWOOD SCRUBBS,PENTONVILLE,BRIXTON,HOLLOWAY,READING,STRANGEWAYS,DARTMOORBROADMOOR,CARSTAIRS,PETERHEAD,BARLINNIE,LANCASTER#"RD.","ST.","AVE.","G_%#%# CONSIDER% XY$="ABCD"% X=LEN(XY$+"XY$")% PRINT X%%C#WHAT IS DISPLAYED%%#,7%##,A%2234%#Z#CONSIDER THE EXPRESSION%%Q-INT(Q/P)*P%%IS IT EQUAL TO 0 WHEN%%A) P DIVIDES_#" Q EXACTLY%B) P DOES NOT DIVIDE Q EXACTLY%C) P IS GREATER THAN Y."<::" GOOD LUCK!",FJ112:Y$:3PN=ZZ(N)QdJ1N:Z(N)0:ZnSC0exJ1NwZ(J)0 200~JJ12000:J" YOU SCORED";SC:" QUESTIONS RIGHT FIRST":" TIME OUT OF";N:" TJUSTUS,ISRAEL,HARDY,IRVING,DOUGLAS,ELGIN,MONETEEo<OSWALD,MICHAEL,STEPHEN,TIM,TOM,HARRY,IAN,FRANK,PETER,STUARTFNOGGLE,LOKEN,SCHUYLER,NIGGLI,STRUNK,STACK,MBOOB,ALMON,REDSLOB,POPP,TUITS,SWEENEYPFAINSODD,HADDOCK,PLOG,FATT,GROSECLOSE,NAUSEA,JEEP1:120 120""""AJ039:3072J,160: 2048J,C:jJ092040:3151J,160: 2127J,C:J3901:4032J,160: 3008J,C:J920040:3112J,160: 2088J,C:W2:(X$)110W1$P1:J3: K3.A$(X$,P,1):P;A$""Q$:Q$"" 1307+(Q$)20 1314;A$""1307b" ";:A$(A$,(A$)1):1307~"(Q$)13 " ";:1321# Q$"0" (Q$"9" Q$"A") Q$"Z" 1307$Q$;"";%A$A$Q$:1307)P(A$): P01300*((A$DNS.","SQ.","PL.","CLOSE","RD.","ST.","ST."JEDINBURGH,GLASGOW,DUNDEE,ABERDEENFOOTBALL,TENNIS,HILLWALKING,OPERA,JAZZ,ROCK,THEATRE,READING,POLITICS,STUDYINGCHESS,GAMBLING,HORSERACING,CARS,MOTORBIKES,CYCLING,MEETING PEOPLECONSERVATIVE(Y$,P,QP)A$1500PQ1:1390:R1:%@?TS6(1R)(6(1))1P^J1S:Z$:oh"";Z$rT2 1750|"THE RIGHT ANSWER IS":""; (Y$,1)"%"1710P1(Y$,P,1)"%"1750(Y$,P,1);:PWRONG",INCORRECT(#84<#"IS THIS INCORRECT BASIC?% MID$(X$,5,1)"XA#="U"%% YES% NO%#,YES%Y%#F#WHAT IS DISPLAYED ?% X$=STR$(3*4)% PRINT X$+"1"%A) 13%B) 3*4K#+1%C) 121%D) SOMETHING ELSE%#,C%121%#P#WHAT IS DISPLAYED ?,MCDOOM,SOZZI,MOOG,SMUT,WORMiZANDERSON,ATTWELL,BLOGGS,COLLINS,CHALMERS,DEWAR,EISENSTEIN,ENTWISTLE,CLANGERdFLOOD,GAMP,GROPER,GORDON,HEWITT,HANKEY,ILINGWORTH,INCE,JONES,KNIGHT,HENDERSON nMACDONALD,MACGREGOR,MCNAB,MCFEE,MCGEORGE,MACTAVISH,MAXWEQ%#"a#A%#d#PRINT RIGHT$("COMMODORE";i#",3)%%WHAT IS PRINTED?%%#",ORE%#en#CONSIDER% Y$="BALLET"% X$=LEFT$(Y$s#",4)% PRINT X$%%WHAT IS DISPLAYED?%%#",BALL%#x#CONSIDER% Y$=MID$("DATE"}#",2,3)% PRINT Y$%%WHAT IS PRINTED?%#",ATE :PO$(J):J:"DV(174): LOCATION 174 IS THE CURRENT DEVICE NUMBER`,DV8DV$"DISK":DV$"CASSETTE"6""6)"INSERT A BLANK "DV$" INTO":10)"THE "DV$" UNIT."@6)"PRESS SPACE WHEN READY."JA$:A$" "330LDV8340N,LIBERAL,LABOUR,SDP,OTHER,NONEQG$(22),B$(22),S$(64),P$(12),R$(10),T$(4 ),H$(17),PO$(6)gJ122:G$(J):J}J122:B$(J):JJ164:S$(J):JJ112:P$(J):J110:R$(J):JJ14:T$(J):JJ117:H$(J):JJ16 HIS IS";(100SCN0.5);"PERCENT"#5D1(N(1))G Z(D)1200TCZ(D)1^1200iT13|A$:A$""250100013001600R1T1Z(D)0 SCSC1" R1 T1 Z(D)1:400, R1 3206T@Z(D)Z(D) SAVE"0:DUNGEON",9? COPYRIGHT (C) ANDRECOLIN 1983} "ADRAGON.","OU FIGHT AND "," KILL IT WITH YOUR SWORD!" "IT KILLS AND EATS YOU", "OU BOTH RUN AWAY!""A POISONOUS SPIDER.","T ATTACKS YOU "," BUT YOU KILL IT WITH YOUR STAVJJL%(2)JJL%(3)JJM$(JJ,3):D%(JJ)0:X11:5500:L: M$(JJ,4):::" ND OF THE GAME !":Z OBJECTSv "OU HAVE WITH YOU" JJ13:L%(JJ)0" A ";W$(L%(JJ)) JJ JJ15 W%(JJ)H3570 JJ  "OU FIND A ";W$2,1,2,"COMPUTER DATES":350-T15,DV,15,"I":15:DS310WV 2,DV,2,"@:COMPUTER DATES,SEQ,WRITE"d^Q1100hS$"M":C$B$(122(1))r(1)0.5S$"F":C$G$(122(0))|C$C$" "S$(140(1))A$((1(1)99))" "P$(112(1))" " 000:X11620 35002000.K110:J1((0)5):OD%(J)0D%(J)(1(0)12)VK_610  Q1"OU'RE OUT WITH THE RINCESS. ELL DONE!":*"OU'VE COME OUT WITHOUT THE RINCESS. RY AGAIN"4J13000: J9:> 5 ITCHEN= KING'S ROOM,GREAT HALL,LOO,LIBRARY,TOWER,PRINCESS'S ROOMl7,2,-1,0,5,3,0,1,0,0,0,2,0,0,0,5,10,4,2,00,0,0,7,0,6,1,0,0,9,0,0,12,10,0,80,11,5,9,0,0,0,10,13,0,9,0,0,0,12,0"NORTH","EAST","SOUTH","WEST"4,6:0,2:   SAVE"0:DUBLIN",94 IN DUBLIN'S FAIR CITY;7V MAIN LOOP START HERE`( F,No2 F0 90< 1,F,12N10F1,1022,5P 40Z 0dn834,2: INx881,2: DUB-881,2: LIN'S881,2: FAIR881,1: CI- E."G"AND BITES YOU TO DEATH.","OU RUN AWAY AND AREN'T BADLY BITTEN""A SWARM OF WASPS.","HEY ATTACK"," BUT YOU FINISH THEM OFF WITH THE FLY-SPRAY."" AND STING YOU TO DEATH","OU RUN AWAY FAST!"("A SEDUCTIVE ENCHANTRESS.","HE TRIES (JJ): "O YOU WANT IT";X$(X$,1)"N" QL%(1)0"OU DROP THE ";W$(L%(1)):W%(L%(1))HL%(1)L%(2):L%(2)L%(3):L%(3)JJ:W%(JJ)0: FLASH FRAMEQQ0 7:53280,QQTT1100:TTQQ:"RESS ń TO SEE WHATR$(1(1)10)T$T$(1(1) 4)&A17((1)10)<H64:S$"M"H67O570:HH2.5R^H(H0.5)tH1$H$(117(1))H2$H$(117(1))H2$H1$ 460P$PO$(16(1))X$C$","A$","T$","S$","(A)","(H)","H1$","00 HERE NEXT ?"$:"OU CAN GO":KK$" "0JJ14XC%(H,JJ)0KK$;DI$(JJ):KK$"OR "`JJt"HICH WAY";X$ Y$(X$,1)JJ14 Y$(DI$(JJ),1)C%(H,JJ)0HC%(H,JJ):*JJ4"RY AGAIN":2000 BATTLE " NTER THE CASTLE AND>" RESCUE THE RINCESS!OJ13000:JXN13M$(5,5),W$(5),R$(N),C%(N,4),DI$(4),D%(5),L%(3),W%(5)J15:K15:M$(J,K):K,JJ15:W$(J):J1N:R$(J):&J1N:K14:C%(J,K911,3: TY!881,1: WHERE2881,1: THEE897,2: GIRLSV897,2: AREf897,2: SOy897,1: PRET-917,3: TY0,0 HER CHARMS ON YOU "b)"BUT YOUR MAGIC POTION SOON CURES HER OF THAT !","AND ENSLAVES YOU FOR EVER"*"OUR MIND IS ON THE PRINCESS AND YOU ESCAPE."2"A SLIMY BELLY-FISH.","T ATTACKS ! ","BUT YOUR FLAME-GUN SOON FINISHES IT OFF."3"AND DIGX HAPPENS": A$:A$" " 5050"| WAIT A BIT6 JJ12000:JJ<GAME !":Z OBJECTSv "OU HAVE WITH YOU" JJ13:L%(JJ)0" A ";W$(L%(JJ)) JJ JJ15 W%(JJ)H3570 JJ  "OU FIND A ";W$H2$","P$ (X$)783602,X$X$$Q+210A: R=N.D.VARIDR0cNJJ112:RR(0):JJoXRR6:b570:R:610(1)0.5S$"F":C$G$(122(0))|C$C$" "S$(140(1))A$((1(1)99))" "P$(112(1))" "JJ15 D%(JJ)H3050 JJ X10:> :"OU MEET ";M$(JJ,1);:5000Q (0)0.53110_ M$(JJ,5) Q1:"OU LEAVE THE PRINCESS BEHIND!":Q0:PH H11(11(0)):H1H3090 JJ12500:JJ:HH1:X11:& M$(JJ,2);!0 L%(1)):K,J0J14:DI$(J):JC:J15:W%(J)( 6(0)1):D%(J)((0)66):JPDP13:Q0pNJ(1(5)):L%(3)J:W%(J)0xXH1bH0 800l"OU ARRIVE IN THE ";R$(H)vHP"OU'VE FOUND THE PRINCESS! OW SHE COMES WITH YOU.":Q13 SAVE"0:TUNE PLAYER",9/ TUNE PLAYERN N(44) : FREQUENCY TABLEt J0 44: SET FREQUENCY TABLE( N(J)2 J<7AR3F MAIN LOOP STARTS HEREP X$Z X$"Z" 0: : STOPIF END OF TUNEd Y$ n J1 (XESTS YOU SLOWLY AND VERY FINALLY."Q4"OMEHOW YOU ESCAPE ITS CLUTCHES AND GET AWAY." SHINING SWORD, STOUT STAVE, CAN OF FLYSPRAY,PHIAL OF MAGIC POTION " LOADED FLAME-GUN" SMALL HALL,THRONE-ROOM,DUNGEON,QUEEN'S ROOM,BATHROOM,PANTRY,K SAVE"0:DATEPROG.U24",9E EDINBURGH,GLASGOW,DUNDEE,ABERDEENFOOTBALL,TENNIS,HILLWALKING,OPERA,JAZZ,ROCK,THEATRE,READING,POLITICSCHESS,GAMBLING,HORSERACING,CARS,MOTORBIKES,CYCLING,MEETING PEOPLE(CONSERVATIVE,LABOUR,LIBERAL,SDP,OTRAFFSDUNGEON DUBLINTUNE PLAYERLIBRARYDATEPROG.U2411 430P1$P$(LLA11):& DISPLAY PERSON7"NAME: ";C$K"ADDRESS: ";A$\"TOWN: ";T$l "AGE: ";A~&"HEIGHT: ",H0"HOBBIES: ";H1$:" ";H2$D"POLITICS: ";PO$NRE=";S| 240 ST64 "FILE R $): PLAY EACH NOTE IN STRING PAIRBxA((X$,J,1)):B((Y$,J,1))QFFN(A40)aDDR(B48)r1,FF,DD0.61,1022,DD0.4J80 PITCH TABLE FOLLOWS"1022,169,217,262,305,345,383,419,4536485,516,544,571,596,620,6 0 390  T$XT$ S$ XS$ 240(S0aDXAA: XS$"F" DD: D=MALE'S AGE - FEMALE'S AGE" D 0 D 4 SS5,DCHH: XS$"F" DD: D = MALE'S HEIGHT - FEMALE'S HEIGHT6 D1 D 3 SS3@ XH$H1$ XH$H2$  HER,NONE42DV(174): SET DV = LAST DEVICE ACCESSEDV3DV8DV$"DISK":DV$"TAPE"u4" INSERT DATA "DV$"."6" PRESS SPACE WHEN READY."8A$:A$" "56<1,8,15,"I":1>2,8,2,"COMPUTER DATES,SEQ,READ"@ DS 2:543,664'@685,704,722,739,755,770,784,798LJ810,822,834,844,854,864,873,881qT889,897,904,911,917,923,929,934^939,944,949,953 TUNE FOLLOWS"CHHHHLHHJJJJMJLJHOMLLJHJ""444426224442644444444448""CCHHHHLHJJJJMJJLOMLOMLHJH" SS6J XI$H1$ XI$H2$ SS63T XP$PO$ SS4c^ XP$"CONSERVATIVE" PO$"LABOUR" SS2h PO$"CONSERVATIVE" XP$"LABOUR" SS2r S M MS: "BEST SOLUTION SO FAR": 500:"SCORE=";S| 240 ST64 "FILE R0 FP$(26)PJ126:P$(J):6Z"COMPUTER DATING"Id"WHAT TOWN ?"fnA11:B14: 420: XT$P1$x"WHAT IS YOUR MAIN INTEREST?"A15:B120:420:XH$P1$"WHAT IS YOUR SECOND INTEREST?"A15:B120:420:XI$P1$"WHAT ARE Y."2244426444426222642646248"$"Z"X$,J,1)):B((Y$,J,1))QFFN(A40)aDDR(B48)r1,FF,DD0.61,1022,DD0.4J80 PITCH TABLE FOLLOWS"1022,169,217,262,305,345,383,419,4536485,516,544,571,596,620,6EAD ERROR"2:16:"THIS IS THE BEST DATE WE CAN FIND": y DISPLAY MENU A1 TO B1 OF P$. SELECT A WORD AND RETURN IN P1$JJ1:KKA1 B1JJ;">";P$(KK):JJJJ1KK:"CHOOSE A NUMBER";LL:LL(LL) LL1 LL B1AOUR POLITICS?"%A121:B126:420:XP$P1$Q:"ARE YOU MALE OR FEMALE (SAY M OR F)[ XS${ XS$"M" XS$"F" 180: "WHAT IS YOUR AGE";XA:"HEIGHT IN INCHES";XHM100:"";2,C$,A$,T$,S$,A,H,H1$,H2$,PO$ ST DS