' +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:;<=>?  , = #""*( (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'??4)E81B $! h h Լ ռ ռ ռ`HJ>݌h Hh݌`IHɭ ɭ R`ӤL߼IHHHHhHH݌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ɜK JI8h hLߍ ԧ᜙߼IHͺ9ٜ췈뷠詷 뷍ߜLJ` H`ߜߜ8)H`H`H` L` Rӛ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- ( G  Ϡ@跻~!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`0:1300LX131060L450=LASTADDSNUM256256TNUMSLCX,(A)2Z:A,0pLSTADDSNUM256256,TNUMLTNUMTNUM1(TNUM254)L450LXX4910(X48):TNUM(X28.3):990LTNUM2450LTNUMTNUM2:990L MAIN MENUM$3:CX,40N0K>N13N13$KHPITCHQ(N)AKR(N1):10,Y(0)269,Y(0)^K\(N3):10,Y(1)269,Y(1)jKf0:450Kp PADDLE AND KEYBOARD ENTRYKz2CX,CYKXX128:X21990KX61EQ(EQ0)KX32970KX47X581020KX81030LX27İ161JX193890JX211620*J2CX,CYqJX50(X217)10(X213)2(X201)50(X194)10(X206)2(X205)~JM2800JPITCHPITCHX:PITCH1PITCH1J PITCH255PITCH255J450J N013:PITCHQ(N)ĂJ*X(X)((X).4)K4NNX:NY)28)1.45):N1NT2IvASTADDSNUM256TNUM256CICX,(A)2Z]IA,PITCH:ATNUM,TNUMxITNUMTNUM1(TNUM254)I1CX,CYIEQCXCX1:I(16286)128I1450I(16287)127450I680I PROCESS KEY PRESSI KEYBOARD ENTRY16286)127550,H!(16287)127X160:890GH&X(16286):X127620YH02CX,CY:470nH: KEYBOARD ENTRYHDCXZTNUM:CYZPITCH2:2CX,CYHNX(16384):X127Ĺ16368,0:720HX590Hb PROCESS BUTTON PRESSHl2CX,CYIqEQNT3(((148C GM15103GN(((1)21.23)21.24):PITCHQ(N)PG(N1):10,Y(0)269,Y(0)rG(N3):10,Y(1)269,Y(1):520GPITCH(1)1:PITCH255PITCH255GCXZTNUM:CYZPITCH2G2CX,CY:0GX(16384):X127Ĺ16368,0:890H(16287)127(I1ĺ"KEYS YUI FOR UP, BNM FOR DOWN, S FOR DOT";:410[F"PADDLE AND BUTTON TO SET PITCH"zF"SPACE/BUT. 0 FOR PAUSE";F26:"ESC FOR SHIFT"F"0-9, <>, PLACE CURSOR, =TOGGLES LENGTH";F MAIN SOUND MAKING LOOPFI1580F PADDLE ENTRY;",L1":216,0(EJ CLEAR FOR NEXT SOUNDNET:3:0,0279,0279,1590,1590,0_E^1560:TNUM1zEc24::"INITIALIZING";EhN0255:STADDSNUM256256N,0::IF ERROR, SEE LINE 1860Er:21:"RETURN FOR MENU";E|25::"SOUND NUMBER ";SNUM:5F"2) BEGIN NEW SOUND TABLE"6D7:"3) INSTRUCTIONS ";SDA$:X(A$):X1X3250jD":X1820,300,1930D,"ENTER NAME FOR NEW SOUND TABLE.":NAME$:2650D6(NAME$)0(NAME$)15ĺ"ILLEGAL FILE NAME. TRY AGAIN":300 E@D$"BSAVE";NAME$;",A";STADDBLE FOR THE EQUAL OPTIONLCM$(1)"SOUND SYNTHESIS":M$(2)"MUSIC SYNTHESIS"CI$(1)"KEYBOARD ENTRY ":I$(2)"PADDLE ENTRY "C11:"SOUND SYNTHESIZER":22:"** COPYRIGHT 1984 BY MINDCRAFT PUBL. **"C10:7:"1) LOAD EXISTING SOUND TABLE"D7:B DATA FOR SCALE LINESDBN06:Y(N)::48,54,65,77,89,107,128_B DATA FOR SHAPE TABLEBN912924:A:N,A::232,144:233,3:2,0,6,0,8,0,4,0,172,30,7,32,0BZ12.5:M1:I1:PITCH125:SNUM1:NUM1:STADD25600:::1:0CEQ0:SET FLAG VARIAAZ(104)64120.Ad103,1:104,64:16384,0JAn(4);"RUN SYNTHESIZER"UAx37376yAQ(14),Y(6),M$(2),I$(2):D$(4)AD$;"BLOAD SOUND.READER"A DATA FOR MUSICAL NOTESAN014:Q(N)::73,77,86,96,108,116,128,144,152,171,192,213,230,254,0 $@ **********************;@ * SYNTHESIZER *X@ *BY JAMES R GESCHWEND*u@( * COPYRIGHT (C) 1984 *@2 * BY MICROSPARC, INC *@< * CONCORD, MA 01742 *@F **********************@P INITIALIZATION ** PRODOS USERS SEE LINE 1860             ZZ$"Y"ė:160*7ZZ$"Y"ZZ$"N"3820E7:10:10:"BYE BYE":112!6ST$(X)"KILLED"NKNK1(6XH6:"NO. OF MEN KILLED=";NK"x6::"CARE TO TRY AGAIN, CHAMP? (Y/N) ";ZZ$6ZZ$"Y"ė:1606ZZ$"Y"ZZ$"N"378066::610:10:"GAME OVER."6:"CARE TO PLAY AGAIN? (Y/N) ";ZZ$7 7)"Q-QUIT PROGRAM"?5816:7)"GOOD LUCK!-- YOU'LL NEED IT!!!"j5B20::"PRESS TO BEGIN...";Z$s5L200y5V:5` ** END **5j:5t:::10:105~"CONGRATULATIONS!!":5"YOU HAVE COMPLETED YOUR MISSION"5"SUCCESSFULLY."6Xк7)"OTHER COMMANDS ARE:-"14 :7)"D-LIE DOWN"F4 7)"U-STAND UP"\4 7)"A-AIM RIFLE"s4 7)"F-FIRE RIFLE"47)"L-LOAD RIFLE"47)"P-PULL PIN (OF GRENADE)"47)"T-THROW GRENADE (AT MACHINE GUN)"4$7)"?-REFER TO COMMAND LIST"5.HEN PRESS THE FOLLOWING KEYS:-":;3 10)"'I'-TO MOVE UP"W3 10)"'J'-TO MOVE LEFT"t3 10)"'K'-TO MOVE RIGHT"3 10)"'M'-TO MOVE DOWN"3 10)"'S'-TO SET MAN IN NEW POSITION"3 ::"PRESS TO CONTINUE...";Z$3 Z$""35404 :3:WL."N2> :5:"YOUR GRENADES ARE TO BE USED ONLY TO DESTROY THE MACHINE GUN."z2H ::"PRESS TO CONTINUE...";Z$2R Z$""34202\ ::5:"THE COMMANDS TO MOVE YOUR MEN"2f "ARE AS FOLLOWS:-"2p ::10:"R-RUN"2z 10)"C-CRAWL"!3 :"TRE ARE A FEW ROCKS ON THE BEACH"F1 "WHICH WILL PROVIDE SOME COVER."s1 :5:"YOU MAY RUN A MAXIMUM OF 4 STEPS"1 "EACH TURN OR CRAWL A MAXIMUM OF 1 STEP."1 "YOU ARE LESS LIKELY TO BE HIT BY"1* "MACHINE GUN FIRE IF YOU LIE DOWN AND"24 "CRAE BEACH AND HAS"00 "THE FOLLOWING DEFENSES:-"\0 ::"PRESS TO CONTINUE...";Z$l0 Z$""32700 ::10:"1) A MACHINE GUN"0 10)"2) SNIPERS"0 10)"3) MORTAR SHELLS"0 10)"4) BARBED WIRE"0 10)"5) MINEFIELDS" 1 :5:"THE GUN NEST LOCATED THERE."F/l :5:"THIS WILL BE A FORMIDABLE IF NOT"^/v "IMPOSSIBLE TASK."/ :5:"YOUR SOLDIERS ARE EQUIPPED ONLY"/ "WITH RIFLES AND 2 GRENADES EACH.":/ 5:"HOWEVER, THE ENEMY IS LOCATED ON A"0 "CLIFF TOP OVERLOOKING THINSTRUCTIONS **. :2.& :15:"INSTRUCTIONS":_.0 5)"YOUR MISSION IS TO LAND AND SECURE".: "THE BEACH HEAD WITH MINIMAL LOSS".D "OF LIFE.".N :5:"YOU WILL LAND 12 MEN ON THE".X "BEACH AND PROCEED TO LOCATE AND DESTROY"/b "THE MACHINE3:"NICE THROW":E11000:E:450:2MG(1),MG(2)::23::"MACHINE GUN DESTROYED!!!":E11000:E:2MG(1),MG(2):GG0:3670- D1A(X,1)((RGDMG)(A(X,1)MG(1)))- D2A(X,2)((RGDMG)(A(X,2)MG(2)))- G(X)G(X)1- 830- 760- :. ** :1260,35:RR0:760:, :23:"MISSED":E11000:E:760@, :\, * GRENADE EXPLOSION *b, :s, EE(X)1760, GG0ė::23:"MACHINE GUN ALREADY DESTROYED, SIR?":E11000:E:760, DMG(((A(X,1)MG(1))2(A(X,2)MG(2))2)){- DMGRGė:2)1+@ LDD100DRDR3W+J DR7ė:23:"GOT HIM":E11000:E:0:135,35:LL0:760}+T :23:"MISSED":E11000:E:760+^ RDD(((A(X,1)260)2(A(X,2)35)2))+h 450:SH(X)SH(X)1+r RDD100DRDR3,| DR7ė:23:"GOT HIM":E11000:E:0THERE, SIR?":E11000:E:2760c* ZZ$"R"RR0ė:23:"NO SNIPER THERE, SIR?":E11000:E:2760* DR((1)10)1: DIE ROLL* ZZ$"L"2860* ZZ$"R"2910*" ZZ$"R"ZZ$"L"2760*, LDD(((A(X,1)20)2(A(X,2)35)2))+6 450:SH(X)SH(XX) ) 1430) :4) ** ATTACKER FIRING **:) :F) ::23) LL0RR0ĺ"BOTH SNIPERS ARE ALREADY KILLED, SIR?":E11000:E:760) "ENTER TARGET FOR MAN #";X) "L)EFT SNIPER OR R)IGHT SNIPER? ";ZZ$* ZZ$"L"LL0ė:23:"NO SNIPER 1002700.(P AA0:780:AA12700: ROCK COVERL(Z DR((1)6)1: DIE ROLLc(d A(X,2)80DRDR1w(n A(X,2)60DR1(x 450( DR2ĝ:24:"MAN #";X;" KILLED BY SNIPER FIRE":Z11500:Z:0:1A(X,1),A(X,2):3:ST$(X)"KILLED":A(X,1)0:A(X,2)0) MACHINE GUN FIRE":Z11000:Z:0:1A(X,1),A(X,2):3:ST$(X)"KILLED":A(X,1)0:A(X,2)0_' Xe' k' :' * DEFENDER FIRING *' :' LL0RR02710'( :22::"ENEMY SNIPER FIRE":E1500:E'2 X112'< ST$(X)"KILLED"2700(F A(X,2),2)5025402& AA0:780:AA12540: ROCK COVERW& VV1DR((1)15)1: DIE ROLL{& VV2DR((1)9)1: DIE ROLL& FF(X)1DRDR2& A(X,2)100DRDR1& A(X,2)100DRDR2& A(X,2)80DRDR2X' DR3ĝ:24:"MAN #";X;" KILLED BY1)1DF1: CAN SEE MACHINE GUN(%8 450/%B X>%L DF02430h%V :24:"WE CAN SEE MACHINE GUN, SIR!"t%` Y130%j 3:MG(1),MG(2)MG(1),MG(2)2:E110:E:0:MG(1),MG(2)MG(1),MG(2)2:E110:E%t Y%~ X112% ST$(X)"KILLED"2540 & A(X24::"MAN #";X;" KILLED BY MORTAR FIRE":Z11000:Z:0:1A(X,1),A(X,2):3:ST$(X)"KILLED":A(X,1)0:A(X,2)0u$X~$E:$:$ * ENEMY MACHINE GUN *$ :$ DF0:GG03670$ :23::"ENEMY MACHINE GUN FIRE"$$ X112%. A(X,2)85A(X,H((1)50)((1)50):MYSS((1)50)((1)50)V#MX275MX5MY150MY602170c#2MX,MYl#450|#Z1500:Z#2MX,MY#X112#PO$(X)"KILLED"2270#DMS(((A(X,1)MX)2(A(X,2)MY)2)): DISTANCE FROM EXPLOSIONn$DMS6Ģ ** MORTAR SHELL PHASE **!" :<":23::TT0:TX0:TY0U" "ENEMY MORTAR FIRE"a"*X112{"4ST$(X)"KILLED"2130">TXTXA(X,1):TYTYA(X,2): AVG. OF POSITIONS"HTTTT1"RX"\TT03820"fHH(TXTT):SS(TYTT)"pE123#zMXH!K$"S"Ē0:1XO,YO:3:1XC,YC:PO$(X)C$:A(X,1)XC:A(X,2)YC:2030!YC150ė:23:"MAN #";X;" DROWNED IN THE SEA":E11000:E:0:1XO,YO:1XC,YC:3:ST$(X)"KILLED":A(X,1)0:A(X,2)0:2030!1XC,YC!1790!PO$(X)C$!X!:" C5# XC5FL1:450:490:20307 K$"K"XCXC5Y XC275FL1:450:490:2030m K$"M"YCYC5 (((YCYO)2(XCXO)2))STĒ0:1XO,YO:3:1XC,YC:A(X,1)XC:A(X,2)YC::23:"YOU ARE ONLY ALLOWED ";ST5;" PACES":E11000:E::2030F:770:2030: BARBED WIRECbYC95XC235XC265YC95:770:2030llYC105XC2XC60YC105:770:2030vYC40ė:23:"FELL OFF THE CLIFF - TOUGH LUCK.":E12000:E:0:1XO,YO:1XC,YC:3:ST$(X)"KILLED":A(X,1)0:A(X,2)0:2030 K$"J"XCX:PO$(X)C$+K(16384):K127Ĺ16368,081XC,YCOK128K$"":1830_K$(K128)s&K$"I"YCYC50YC1101880:U120DXCM(U,1)FL1:450:490:M(U,1)0:M(U,2)0:2030: MINE EXPLOSIONNUXYC115XC110XC135YC115"C"2030YC$"R"FF(X)1ė:23:"YOU MUST STANDUP BEFORE RUNNING":E11000:E:1490C$"C"FF(X)0ė:23:"YOU MUST LIE DOWN BEFORE CRAWLING":E11000:E:1490XCA(X,1):YCA(X,2)XOXC:YOYCC$"C"ST5:PO$(X)C$ C$"R"ST20POSITION A-AIM":"F-FIRE L-LOAD D-LIE DOWN U-STANDUP":"P-PULL PIN T-THROW GRENADE Q-QUIT":"PRESS RETURN TO CONTINUE..";Z$:Z$""ė:23:1490PO$(X)"P"C$"T"FL2:450:490:2030C$"R"C$"C"İ630:FL3FL0:1490 C$"R"C$,1),A(X,2)hY2rI(16384):I127Ĺ16368,0b|"COMMAND? (ENTER '?' TO SEE LEGEND )";:C$C$"R"C$"C"C$"D"C$"U"C$"A"C$"F"C$"L"C$"P"C$"T"C$"?"C$"Q"1490C$"Q"3820C$"?"ė:21:"C-CRAWL R-RUN S-SET 22:"MAN #";7)"STATUS";414)"POSITION";F23)"SHOTS";Z30)"GRENADES"e3)X;u8)PO$(X);FF(X)0ĺ16)"UP";"FF(X)1ĺ16)"DOWN";,25)SH(X);632)G(X)@Y110J1A(X,1),A(X,2)TE110:E ^1A(X1I,140:A(11,1)I:A(11,2)140:620Pd1I10,140:A(12,1)I10:A(12,2)140:620}n:23:"LANDING COMPLETED.":Z11000:Zx135,351260,352040: ** MOVEMENT PHASE **:X112FL0ST$(X)"KILLED"2030 :1I,130:A(5,1)I:A(5,2)130:620N(1I10,130:A(6,1)I10:A(6,2)130:620z21I10,135:A(7,1)I10:A(7,2)135:620<1I,135:A(8,1)I:A(8,2)135:620F1I10,135:A(9,1)I10:A(9,2)135:620P1I10,140:A(10,1)I10:A(10,2)140:620"Z,43278,43: CLIFFS:2 ** SHOW MEN **8:R3:I(((1)46)5)5~1I10,125:A(1,1)I10:A(1,2)125:6201I,125:A(2,1)I:A(2,2)125:620 1I10,125:A(3,1)I10:A(3,2)125:6201I10,130:A(4,1)I10:A(4,2)130:620"458,9550,9550,9660,9662,9750,97,`2@j2:X1071354`tY117:950:X: BARBED WIREq~X2342654Y97:950:XX1604Y108:950:X3:2,150278,150: WAVES6:2,153278,1532,156278,1565:2,41278,41:228,61231,61231,62227,62227,63232,63233,64226,64B190,108192,108193,109189,110193,110194,111188,111187,112195,112186,114196,114L132,75133,75134,76132,76131,77134,77135,78131,78130,79136,79%V52,9254,9255,9351,9457,91,Y10 X,YX4,Y3:%:H ** DISPLAY MAP OF AREA **N:Ta1:1:0zX1025020: TREESY5:890:XX2026020Y20:890:XX1025020$Y30:890:X.5: ROCKS68228,59229,59230,60228,602AA1: 4<>::23:"NICE THROW":E11000:E:2D1,D2EH450oR::24:"NOT WITHIN OUR RANGE, SIR."\E11000:Ef2D1,D2pzX1,YX1,Y: TREE SHAPEX2,Y2X2,Y2X4,Y4X4,Y4X6,Y6X6,Y6X1,Y6X"STUCK":A(X,1)XC:A(X,2)YC:W A(X,2)60A(X,2)70A(X,1)225A(X,1)235AA1:A(X,2)115A(X,2)125A(X,1)190A(X,1)200AA1: A(X,2)80A(X,2)90A(X,1)130A(X,1)140AA1:*A(X,2)95A(X,2)105A(X,1)50A(X,1)65 TO PULL THE PIN":E11000:E:G(X)G(X)1:EE(X)1::23:PO$(X)C$:C$"P"A(X,2)85A(X,1)1ė:23:"CAN'T SEE THE MACHINE GUN FROM HERE,SIR.":E11500:E:FL3::23:C$"T"PO$(X)C$:2960PO$(X)C$:0:1XO,YO:3:1XC,YC:PO$(X)C$"T"FL2:450:490:PO$(X)C$:kC$"P"G(X)0ė:23:"NO GRENADES LEFT.":E11000:E::23:FL3:C$"T"G(X)0ė:23:"NO GRENADES LEFT.":E11000:E::23:FL3:DC$"T"PO$(X)"P"ė:23:"NICE THROW":E11000:E:" - BUT YOU FORGOT"F"SH(X)0PO$(X)"A"ė:23:"YOU JUST SHOT YOURSELF IN THE FOOT.":"YOU DIDN'T AIM FIRST.":E11500:E:SH(X)SH(X)1:PO$(X)C$:C$"F"SH(X)0ė:23:"CLICK - RIFLE NOT LOADED!":E11000:E:PO$(X)C$:C$"F"PO$(X)C$:2730#PO$(X)"P"MINE."0NFL2ĺ"MAN #";X;" BLOWS HIMSELF UP!"AXZ11000:ZMb:23:_lE1200:E:svC$"D"FF(X)1C$"U"FF(X)0C$"L"SH(X)1:760C$"A"PO$(X)"R"ė:23:"YOU CAN'T AIM WHILE RUNNING.":E11000:E::23:FL3:C$ZZ(16336):: SOUND6 FL1ĕ2XC,YC: EXPLOSIONSQ FL2ĕ2A(X,1),A(X,2)a Z1500:Zt FL1ĕ2XC,YC FL2ĕ2A(X,1),A(X,2) 0:1A(X,1),A(X,2) &3:A(X,1)0:A(X,2)0 0ST$(X)"KILLED" ::23DFL1ĺ"MAN #";X;" KILLED BY :10 |"LEVEL OF DIFFICULTY:"; :"1) VERY DIFFICULT"W "2) ALMOST IMPOSSIBLE" :"PLEASE ENTER YOUR CHOICE (1 OR 2) ";ZZ$ ZZ$"1"ZZ$"2"370 VV(ZZ$) 960 :  ** SUB-ROUTINES ** : ZZ(16336):ZZ(16336):((1)20)27)5:M(X,2)110! X. X1620U "M(X,1)(((1)8)47)5:M(X,2)110\ ,Xh 6X112 @ST$(X)"OK":PO$(X)"R":SH(X)1:G(X)2:FF(X)0:EE(X)0 JX TMG(1)((1)277)1: MACHINE GUN ^MG(2)40 hFL0:RG30:LL1:RR1:GG1 r,M(20,2),PO$(12),ST$(12),SH(12),G(12),FF(12),EE(12)Z 20:10:"INSTRUCTIONS? (Y/N) ";X$k X$"Y"3080| X$"N"160 : ** SET VARIABLES ** : X15: MINES M(X,1)(((1)9)12)5:M(X,2)110 X X615 M(X,1)(BEACH HEAD"K Z ACTUAL START OF PROGRAM AFTER LOADING ABOVE HI-RES SCREEN] d232,1:233,8 n(4);"BLOAD BEACH.SHAPES,A$801" x:10:15:"BEACH HEAD": 23:"** COPYRIGHT 1984 MICROSPARC, INC. **":12 :12)"BY GRAHAM FRAME "3 A(12,2)G/ **********************; * BEACH HEAD *X * BY GRAHAM FRAME *u( * COPYRIGHT (C) 1984 *2 * BY MICRO-SPARC INC *< * LINCOLN, MA. 01773 *F ********************** P(104)64Ĺ103,1:104,64:16384,0:(4);"RUN                07' :22:"COLORS-";C;" AND ";D;""0 170: CC1C AA$V "AA$(27)120] ,Fk 6C0:DD1r @Ez J20D NY0 190: X11403:C:0,XX,0:D:3,XX,0:F NY1ı :21:958:"FIRST COLOR:";:C$:C(C$):C:C0C7190 C$(27)120 22:958:"SECOND COLOR:";:D$:D(D$):D:D0D7210 D$(27)120 170 NY1:E07:F::13:"BY TED HUNTINGTON":::8:"":22:"** COPYRIGHT 1984 BY MICROSPARC, INC. **" d15:20:AA$ n x:21:"AUTO OR MANUAL OR QUIT (A/M/Q):";:AA$:AA$"A"AA$"M"AA$"Q"120 :AA$"A"240 AA$"Q"ĉ::| **********************; * SHADES TEXTURES *X * TED HUNTINGTON *u( * COPYRIGHT (C) 1984 *2 * BY MICROSPARC, INC *< * CONCORD, MA. 01742 *F **********************P120o Z:5:12::" SHADES AND TEXTURES ":; JP15280( TP520(P520)İ370< ^(10(1));:PD h80r r:(7);" ==> CONTINUE? (Y/N) ==> ";:PR$ |PR$"Y"Č998:6: 3000 UNDENIABLE?,IS THAT YOUR ACTUAL REPLY?,ARE YOU FIRM IN THAT OPINION? :"DO YOU WANT TO TRY AGAIN? ";"(Y)ES - (N)O ";:AN$ ::S$((10(1))1);" ";:AN$ "AN$"N"80 ,::"...END": 67:1:958:"OK, YOU ASKED FOR IT!": @"3.1415"((25(1))65)2 :AN$::13:37:((AN$)1)g :AN$;" ";::" YOU TYPED THE WRONG LETTER! ": :"PROGRAM ABORTED!":270 ARE YOU ARE?,DO YOU MEAN IT?,ARE YOU POSITIVE?,REALLY?,NO KIDDING?E  ARE YOU CONVINCED?,IS THAT A FACT?,IS THAT0D 23:"THAT'S ";R;" HOURS AND ";RA;" MINUTES!":I11000::120^ ::S$((10(1))1) :"YES/NO => ";:AN$:AN$"Y"190 120 ::S$((10(1))1);" ";"Y/N ";:AN$:AN$"Y"210 120 ::"TO EXIT PROGRAM PLEASE PRESS LETTER ";RA(60(1))1 n"THIS PROGRAM WILL PRINT THE VALUE OF PI TO 5280 DECIMAL PLACES (ACCURATE TO ONLY.001). IT WILL TAKE APPROXIMATELY ";R:"HOURS, ";RA;" MINUTES." xTT1:T5310 5:1:958:"DO YOU WANT TO QUIT? (Y/N) ";:AN$: AN$"Y"16 **********************; * QUITTER *X * BY PAUL RAYMER *u( * COPYRIGHT (C) 1984 *2 * BY MICROSPARC, INC *< * CONCORD, MA. 01742 *F **********************P::ZX110:S$(X): dR(10(1))10:   65656%$'$'$',---56>6676%$%$,$,6.6656%$'$<$'$---%$'''''?6n666---%%$''''''?76666>66767.--%$,--$$--%$,--$$'??666---$$<<??66??-5???7666IIII!$$%$$%$?76666---<$$<$?7666--566---$$,$$,$>>>666666.-%$$$$,-66666?II--%-%-,,,,??'$$$$$76>??7666---$$$??766>????65..-.,--,-,%%????????655,5!$%$%$%$565@ OvM^-------%$$$$$$$???????7666666.------%$$$$$$??????7666666-------%$$>>>>>>........$%%%%%$''''?77777655555II!$$$???'---%$$$5666-- ,60,130,60,180,60,230,60,30,120,80,120,130,120,180,120I32,0:233,64*HL(39),COUNTER(39),P(20)E-INIT TONE GENERATOR-fI020:P(I):770I,P(I):I$ 173,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,2,3,96.-LOCATIONS OF SHAPES TO BE COUNTED-8I19:X(I),Y(I):I:6B 30,60,80):C0C4CC1BC:SX(I),Y(I):768,200:769,15:770:860:I16368,0:22:"HOW MANY ";S$;" ? ";:B$:B$:(B$)13ĉ::N(B$)((B$)48(B$)57)İ720:T970,990390:900***** INITIALIZE *****(4);"BLOAD BSHAPES" 2500:DLY:"pDLY11000:DLY:>z ***** MAIN LOOP *****P:3:T2T0S((1)10)1:S760,770,780,790,800,810,820,830,840,850N((1)10)0,0279,0279,1590,1590,0:1,1278,1278,1581,1581,1I1N:N0970C((1)860%13:"TRY ANOTHER":880:880:8S$"SQUARES":NS$"RECTANGLES":c S$"TRIANGLES":wS$"DIAMONDS": S$"CROSSES":*S$"CUPS":4S$"HOUSES":>S$"BOATS":HS$"DOGS":RS$"SNAKES":\DLY1200:DLY: fDLY1(1)23)1:((1)40)1:N;:BZ(16336):n880:I2311:1:I:BL$;:I:I2311:21:I:BL$;:I:1:-IF ANSWER IS WRONG-I125:BZ(16336)::TT1:T2ı::10:5:"YOU'RE GUESSING, AREN'T YOU?":I150:BZ(16336):I:8DCOUNTER(HL(I))HL(I):0,390:0,39HL(I):J12:BZ(16336):JgI:I039:COUNTER(I)0:I:: ##### REWARD 5 #####::1:I121:BL$BL$:J12:BZ(16336):J,I:I123:I::BL$BL$;:768,2I:769,5:770:I:+880::I1125:("D870:768,100:769,20:770::=N ##### REWARD 4 #####{X:I140:((1)15)1:((1)40),((1)40)((1)40)b((1)40),((1)40)((1)40)l768,250:769,15:770:I:870v0:I038HL(I)((1)39)1:COUNTER(HL(I))06400:J1901:0,39J:0,3939J:768,200J:769,20:770:J^860:768,100:769,20:770::y& ##### REWARD 3 #####0:I039:((1)15):0,39I:768,5I:769,20:770:I:J1901:((1)15):0,39J:0,3939J:768,1434J:769,20:770:JJ,J138J:38J,J1J1:38J,J138J:38J,J1J1:768,2202J:769,20:770:Jy0,390:0,3939:0,390:0,3939870:768,100:769,20:770:: ##### REWARD 2 #####:I1901:(15(1))1:0,392I1:J1I:BZ(16336):J,I;C:S1((1)258),((1)170)21:768,20J:769,20:770:JwI150:I:::CH((1)51):CH450,520,560,600,680 ##### REWARD 1 #####:13:I3901:0,39I:J1(I2):BZ(16336):J,IJ1901:C((1)15):C13CC1SC:38NES *****&| -IF ANSWER IS CORRECT-U:21:I160:N;" ";:BZ(16336):I:860:16302,0:1998::I110:C((1)8):C0C4CC1C:S1((1)255),((1)170)21:768,20I:769,20:770:IJ1011:C((1)8):C0C4CC1=L279,L:0,L10,L3:1,L11,L3:279,L1279,L3:278,L1278,L3:I12:BZ(16336):I,L ^0,1279,1:0,159279,159:0,158279,158:870 h22:100:" PRESS ";::"'RETURN'";::" TO END 'COUNTING QUIZ' ":880:880:255::910 r***** SUBROUTIS((1)10)1:0:S27S19,90:768,10S:769,5:770:C:S27S19,90:I[ "0:10251,90 ,S911:IS10:S27I19,90 63:S27I19,90:768,10I:769,5:770:0:S27I19,90 @I,S:880::880 J3:L15603:0:0,L3279,L3\ T3:0,2,91277,91277,922,92N 0:I13932:I,2I,90:280I,2280I,90:I:880 S1011:I1S:3:S27I19,90:768,10I:769,5:770:IS260 (S10I1)(S10I2)İ880 0:S27I19,90 I,S:I125 C((1)8):C0C4C7270I :14:100:" MIKE ROHRER":255:880:880a I1571:I:12:BL$:J13:BZ(16336):J,I:870y ***** INTRO ***** :0:1:5:I290:2,I277,I:I 1:I91157:2,I277,I:I 3:0,0279,0279,1590,1590,0:1,1278,1278,1581,1581,1: **":1000' Z ***** TITLE PAGE *****R dBL$" ": 20 SPACESn nT1$"*****************" xT2$"* *" 7:12:860 T1$:I17:12:T2$:I:12:T1$ 9:14:860::"COUNTING QUIZ":( 880::15:" BY":8 **********************; * COUNTING QUIZ *X * BY MIKE ROHRER *u( * COPYRIGHT (C) 1984 *2 * BY MICROSPARC, INC *< * LINCOLN, MA. 01773 *F ********************** P::22:"** COPYRIGHT 1984 BY MICROSPARC, INC.        2);(Z4)ĺ"%";:%(Z5)ĺ"$";+FZ8(109)256(110):AZ2127 :1 DZ9,90128Z4:Z91,51128Z5:G NZ9,Z1:Z91,Z2:P XZ00g b(Z190Z1138)ı l((Z2128Z5)47)((Z2128Z5)58)Z01 v Z9(105)256(106) Z8(107)256(108) Z9Z9(Z92)256(Z93):(Z1);(Z" HAS ";(Z94);" DIMENSIONS.":632600 633006 V Z60(Z96)256(Z95)1r "ELEMENT (";Z6;") = "; (Z4)ĺZ3%(Z6):63250 (Z5)ĺZ3$(Z6):63250 Z3(Z6) Z6 63310 63390:63140 &Z1(Z9):Z2(Z91) 0Z4Z1127:Z5 J63320:(Z0)63120" T633004 ^(Z1);(Z2);Q h(Z4)ĺ"% = ";Z3%:63110n r(Z5)ĺ"$ = ";Z3$:63110| |" = ";Z3 63310 Z9Z97:63030 63440 Z9Z8ĺ:"END OF VARIABLE DUMP": 63270 "ARRAY ";:63400% (Z94)1ĺABRIELE  COPYRIGHT (C) 19849  BY MICROSPARC, INCR  LINCOLN, MA. 01773 Z00:Z10:Z20:Z30:Z40:Z50:Z60:Z70:Z80:Z90 "63360 ,:"** COPYRIGHT 1984 BY MICROSPARC, INC. **"::"APPLESOFT VARIABLE DUMP": 6Z9Z863130 @63270T WILL SHOW"2 dI$"THE VALUES OF YOUR VARIABLES"X nJ$"EXCEPT FOR MULTI-DIM ARRAYS."b xK$"" L(4):L(0)55:L(2)33:L(4)11 MD(1,2)  NOW DUMP THE VARIABLES 63000  ` ------------------  VARIABLE DUMP  BY TOM GH VARIABLE DUMP DEMO3 BY SAMUEL STODDARDC 1/20/2008_( ---------------------{2 DEFINE SOME VARIABLES<AA2.3223:BB73.2:CC8.1E8FD%4:E%3828:F%32767PG$"THIS IS A DEMO OF VARIABLE DUMP." ZH$"GOSUB TO 63000, AND I     9Z9(Z92)256(Z93):, (Z1);(Z2);> (Z4)ĺ"%";:N (Z5)ĺ"$";T o Z8(109)256(110): &Z1(Z9):Z2(Z91)0 0Z4Z1127:Z5Z21276 :Z DZ9,90128Z4:Z91,51128Z5:p NZ9,Z1:Z91,Z2:y XZ00 b(Z190Z1138)ı l((Z2128Z5)47)((Z2128Z5)58)Z01 v Z9(105)256(106) Z8(107)256(108)  Z0 "ARRAY ";:63400N (Z94)1ĺ" HAS ";(Z94);" DIMENSIONS.":63260Y 63300_  Z60(Z96)256(Z95)1 "ELEMENT (";Z6;") = "; (Z4)ĺZ3%(Z6):63250 (Z5)ĺZ3$(Z6):63250 Z3(Z6) Z6 63310 63390:63140IABLE DUMP": 6Z9Z863130) @63270@ J63320:(Z0)63120K T63300] ^(Z1);(Z2);z h(Z4)ĺ"% = ";Z3%:63110 r(Z5)ĺ"$ = ";Z3$:63110 |" = ";Z3 63310 Z9Z97:63030 63440 Z9Z8ĺ:"END OF VARIABLE DUMP": 6327q VARIABLE DUMP0 BY TOM GABRIELEI COPYRIGHT (C) 1984b BY MICROSPARC, INC{ LINCOLN, MA. 01773Z00:Z10:Z20:Z30:Z40:Z50:Z60:Z70:Z80:Z90"63360 ,:"** COPYRIGHT 1984 BY MICROSPARC, INC. **"::"APPLESOFT VAR   6----6>/56??6.-%$666??6.-56??666--$?7  b#0V?76-u?'$-766>--6?$$$-&,46.&$$,4666.&$$$$45666&%$$456&%4-65$$5665$$45665$$4566,$$,466,$$,466,$$.6-???--?65$$5665$$45665$$,466,$$,466,$$.665$$%66&%$$%66.6&$$$$.66.&$$.66.$$.65%-6$-.," PLAY AGAIN ? (Y/N) ";U>AX$:AX$"N"Ā[>d>RSKp>XZ17> (43NPSP)(163XZ)RSXZ>>ET0:WT0>(J814>2TE0:TW0><K8113>FTETEE(K8,J8):TWTWW(K8,J8)>P ?ZTEET-----------------------"#=`Y02V=j6);G(0,Y);12);"";23);G(1,Y)^=t:=~" "=:===6);QE;12);="";23);QW:=:" ":=#>ZZ1Č1Z1:7450=<G(1,0)100G(1,1)100OBOB750:ZZ1:7450d<G(0,2)100UBUB500:ZZ1:7450<G(1,2)100OBOB500:ZZ1<QEQEUB<$QWQWOB<.7480:7590<8QK:RK:RE1:PR:8R148Q113A8S(Q,R)KS(Q,R)K:T2T21:1150G8M8T81b8DE1250s80,DE279,DE80,DE127279,DE127883:8AX$::: SCORE SHEET SECTION876708QS30:QEK:QWK:QN(SBNB)9 T1T7ZZS(X,Y)77ZZTN%7-7RK;7TK6950G7Q113]7RRN(Q,T)S(Q,T)c77&(RT8RZ)(SB)ZZZZ(SB)1:NP6NP670RT8RZR51:TPT7:7DZ5K7ND81137XN(D8,R)KZ5Z517b7lZ54D8K:8vD81:TW1 6,66QE11396@E(QE,RE)S(QS,RS)CE1:W3:?6JI6T4420U6^CE1ıd6hRET:4420t6rCE1W3:6|4460:6Q(SBNB)16Q0Q146RT:X12:Y81:18306K:K1:1920:3490:6XXK:ZK6X1136N(X,Y)KXXXX1:5dRERS:44205nCE1ı(5x446045CE1ıC5RET:4420R5QEQWW3X5h5RWRN:4190t5CW1ı5RWT:53505CW1W1:541305CW1ı5RWT:4190:5RWRN5CW1ı541305CW1ı5RWT:41906"QWQE304W4RERS:6710:350:@4W2RNTRERN:4690:350:a4W2RSRNRSTİ5510:350:w4W2İ6430:350:4 RWRSİ4520:350:46500:350:4RERS:44204(CE1ı42RET:48304<CE1W3:4F44604PCE1ı5ZRET:4420 3j41303tCW1ı(3~RWT:4190:I3X130:Y105:1110: SO LEADS^3AX$"A"İ7040:3W4:TP1:X70:4900:1830:460:PTRS3RWRS:12103RWRSQW12N(13,RS)K(1).5İ17033403TP0:4870:1830:3603W4İ5060:6370450241302CW1ı)2W1:RWT:4190:92RWRE:6130M2CW1QWQEW1Y25410:i2QW13112W(QW,RW)KCW1:222QW13112$W(QW,RW)S(QS,RS)CW1:2.282BRWRE:41902LCW1ı2VRWT:53503`CW1W1:HC1:1RE141QE11321 CECEE(QE,RE)81T1 CEKRETCE1:HC1:]1*CEKc14i1>u1HRW141RQW1131\CWCWW(QW,RW)1f1pCWKRWTCW1:HC1:1zCWK111RWRE:41901CW1QWQEW1:1CW1ı340:57200N6210:34020XTP0:4870:1830:360D0bHC1RNTıU0lW1İ5030:f0vW3İ5090:r05060:0QE13110RE4110E(QE,RE)Kİ58400CE1ı0000QNQE130N(QN,RE)KS(QN,RE)Kı01CE1:CW1CW0:HC0:RERW:44200/CE1İ350:5660K/FLKFL1:5960:5600U/4460j/CE1İ350:5660~/RET:4420:350/PTRE:TP1:4900:1830:460/&4970/0HC1W3İ6040:340:5720/:W3İ6100:340:5720 0DRSRERWRS:RNRW:1210:6CW1W1:.@4130:).JRWRE:4190;.TCW1QWQEıK.^CW1W1:U.h4130a.rCW1ıv.|RWT:W1:4190:.RET:4830.CE1W3:.4420.CE1ı.4460:.FLK: EAST LEADS.W3:5770.CE1İ350:5660.4020/40:340:-6640:340:*-RWRN:52906-5390:C-QW113a-W(QW,RW)N(QN,RN)CW1:g-m-}-RWRS:5350-5390:-QW113-W(QW,RW)S(QS,RS)CW1:---CW1W1:-4190:5410:-"CW1ı-,RWT:4190 .30:360:PTRN,RERN:1320F,(RERNQE12S(13,RN)K(1).5İ140O,2350i,<TP1:4900:1830:460~,FW2İ5000:5210,P4970,ZW2İ5270:340:,dW4RSTİ5330:340:,nW4RSRNRSTİ5330:340:,xW4İ6570:340: -RERNİ60+QNQWRNRWW2:HCK5+RNRWRNTW2:HCK;+U+QNQSRNRSW2:HCKo+RNRSRNTW2:HCKu++QNQERNREW2:HCK+RNRERNTW2:HCK++X130:Y59:1110: NO LEADS+ AX$"A"İ7040: ,W2:TP0:X70:4870:18S(QS,RS)KČ198:4900*8S*BS(QS,RS)1:N(QN,RN)1:E(QE,RE)1:W(QW,RW)1:m*LQSQWRSRWW4:HCK*VRSRWRSTW4:HCK*`*jQSQERSREW4:HCK*tRSRERSTW4:HCK*~*QSQNRSRNW4:HCK*RSRNRSTW4:HCK+)CE1W3:)4460&)CE1ı7)RET:4420:D)QE113b)E(QE,RE)N(QN,RN)CE1:h)n))4230:QNQ:RNR:X130:Y59)QN1QN13RN1RN4N(QN,RN)KČ198:4870))$4230:QSQ:RSR:X130:Y105*.QS1QS13RS1RS4720:(QE1311,( E(QE,RE)KCE1:2(8( H(*QE1311f(4E(QE,RE)N(QN,RN)CE1:l(>r(H|(R4650(\CE1W3:(f4420:4720:(pCE1ı(zRET:4420(CE1W3:(4460:(RERW:4420(CE1ı)RET:4830 'DQE113#'NE(QE,RE)KCE1:)'X/'b<'lQE113K'vRE411h'E(QE,RE)KRETCE1:n't'z''RERW:4420'CE1QEQWW3'CE1ı'4460'CE1ı'W3:RET:4420:'RERW:4610'CE1QEQWW3(40QQ1&QKİ42904&4350:Y71Č198:4230:&K&Q$"A"Q13\&Q$"K"Q12m&Q$"Q"Q11~&Q$"J"Q10&Q$"T"Q9&&RK:Y7K&R$"C"R1&R$"D"R2&R$"H"R3&&R$"S"R4&0R(PT)X70İ300&:W)Kİ4090%CW1ı%"%(%6%QNQW13S%N(QN,RW)KS(QN,RW)KıY%i%CW1:HC1:v%"QW113%,RW14%6W(QW,RW)KRWTCW1:%@%J%T%^QW113%hW(QW,RW)KCW1:%r%|%Q$:R$%Q(Q$) &Q360$P5030-$ZHC1W1İ4520:350:3970G$dW1İ4580:350:3970o$nRNRWRERN:RSRE:1320:350:3970~$x4760:350$TP1:4900:1830:460$HC1RSTı$W1İ4940:$W3İ4970:$5000:$QW1311$RW14 %W(QW,RW2W4T2T21:1150#8#W1:FLK: WEST LEADSB#4020W#CW1İ340:3910a#5770# CE1CE0:HC0:RWRE:4190#CW1İ340:3910#FLKFL1:5880:3850#(4130#2CW1İ340:3910#<RWT:4190:340$FPTRW:TP0:4870:1830:ECTION".PTM8W2TM8W48"8PTM8W4TPTW2S"BW5120,5560,6280,3810]"L4930f"V200"`W2W4T2T21:1150"j450"tW3810,5120,5560,6280"~4930"Q113"R14"S(Q,R)03670"""AX$"A"ı"200#:232,0:233,98! 1X10,Y3.! 2X7,Y9>! 3X6,Y17D! z! X10,Y9X14,Y9X14,Y15X10,Y15X10,Y9:! 1:X130:Y59:1920:Y105:1920! X12:Y81:1920:X32:1920! Y145501!279,Y190,Y!!"$6790: TRICK S::" PROJECTED BID OF EAST/WEST:"(RS)EW$:::AX$W \ 16304,0:16297,0:16299,0:j f DRAW NO & SO p K:K1:X80:Y59:1920 z 3:X2,Y15X2,Y9X6,Y15X6,Y9:3550 K:K1:Y105:1920 3:5X6,Y9:3550 DRAW BID! 3T$"D"ST$"C"ST$"N")Č198:3230; ST$"C"R1:T1P ST$"D"R2:T2e ST$"H"R3:T3z ST$"S"R4:T4 ST$"N"RK:TK SB1M8T TKT5* SBQT10:T5TK4 SBNBČ198:3230> 1690H 3 R ::7670:7480:T8S(Q,M8)N(Q,M8)*b DEDES(Q,T)N(Q,T)0l 6v E SO'S BID] XQW:Y105:QWQW20t K:K1:1920:3490| Q$ Q$(27)İ3410:Y105:3230 Q$"P"SBK:3:1920: ST$ Q(Q$) Q1Č198:3230& Q7(ST$"S"ST$"H"SPTİ6980 D81ı ! , R14< Q13121V N(Q,R)KRPTİ6980b D81ıh n t } D8K SBKTKM8Kı T8ZD81:TPM8& DET8DEZD81:TPT0 : M8KSBKTKıD T8K:DEKN Q113X T8Э(QTP10)SBQZZ2920" -, TP5TPKA6 3:1920:NBK:L@ Q17[J TPKTP5rT (QTP10)SB2920x^ h NBQTP10:TP5TPKr TTP:RTP:1690:| D8K R14 Q13121  (N(Q,R)KN(Q1,R)K)(N(Q,R)KN(Q2,R)K)RB)3)İ2940:2880> (ST$"N"NB1)((SB)2NB1NP5)2880b (SBKNP13)(SBKNP6)2870 SBKNP19NB1Q2:2920 NBKBN2BN5İ2940 D81D8K:2820 NBKBN2BN7İ3080 D81D8K:2820 Q17 TPKTP5 PT:QEQE20:SBKİ3130: NO'S BIDNx NB1SBKNP19XX4Q1:TP0:2920q R5K:TM8T(PT)SBKİ6900 R51R5K:2880 XX7(NPSP)20SB2NB1Q3:2920 XX6(SB)1NB1Q3:2920 XX6SB72880 (NB)1(ST$"N"(SY)KT8T81 ' D83NPNP3D8< T83SPSP3T8b NTTND83TNNT:TPY:PTY:6830h s Y14 X1013 N(X,Y)KNPNPX9( S(X,Y)KSPSPX92 < F Q17P (NPSP)(163Q)ZZQZ d "n XQE:Y59:TPB DN22420#L NBKSBKW4:4V SBKNBKı>` 3200Hj 1740]t SBKNBKW2:n~ SBKNBKıx 2670 1740 2380 Y14: DETERMINE PTS OF NO AND SO D8K:T8K:NTK X113 N(X,Y)KNTNTN(X,Y):D8D81  S(X,p12X8,Y9z%13X6,Y3+;14X6,Y9AXX8,Y3X8,Y9:_Ko7X4,Y19u|54X2,Y1755X2,Y13  K 6X3,Y17$ . 1060:1510:3430: BIDDING SECTION8 247016336): SOUND OF CARD WHEN PLAYED)82X6,Y3>M3X6,Y3Sb4X6,Y3hx5X10,Y3~6X6,Y3 7X6,Y3 8X6,Y5*49X9,Y6>H10X6,Y3R\11X10,Y3f:1920 :0ZDQ1960,1980,2000,2020,2040,2060,2080,2100,2120,2140,2160,2180,2200,2220mN232,0:233,98XR2230,2260,2290,2320b1:X2,Y10X2,Y20lXX20v232,0:233,96:1X,YK1K0:#AX(16336):AX(16336):AX(Y12^R3R1Y25%hQ1311=rN(Q,R)KK1:1830C|IOU_QQ1mQKQ14w1830}BCBC1BNBN1BC2BC11:CH0Y5913180,Y279,Y3:CH3:& DRAW CARDS03QN1311!N(QN,RN)0ı'2QN0:BQS1311TS(QS,RS)0ıZeQS0:nX12|R411R4R2Y140R3R1Y153Q1311S(Q,R)KK1:1830",6@X12JR411TR4R25350CW1W1:(41904CW1ıC RWT:4190SCW1W1:_4130:i(1470v2QE113<E(QE,RE)N(QN,RN)QEQSCE1:W3:FP4830ZCE1W3:d4420nCE1ıxRET:4420CE1W3:4460:B LV3$`X2,YX15,Y<jX2,Y23X15,Y23BtP~XX8:YY8zX8221Y851İ260:X8X88:Y8Y812:T27X8191:Y855XX8:YY8:260X8X88:Y8Y8121430QW113W(QW,RW)S(QS,RS)QWQNCW1:W1:60:S(Q,R)Q:S81:X(74(1)90):Y(37(1)120):260@IMS1zZZK:ST$"O":NB1:SB1:NTK:TNK:NPK:SPKDNDN1:BC1DN3DN1T2KX8221:Y851BN1:PTK450$1: BACKGROUND COLOR.0,08624541)Q(13(1)1)?(N(Q,R)S(Q,R)E(Q,R)W(Q,R))0890S81W(Q,R)Q:S82:X(74(1)1):Y(37(1)60):260:960S82N(Q,R)Q:S83:X(74(1)90):Y(37(1)):260:960S83E(Q,R)Q:S84:X(74(1)180):Y(37(1)60):260:9/"ENTER MONTH,DAY,YEAR AND WAIT FOR DEAL:"?"MO ? ";M8O "DA ? ";D8_"YR ? ";T8s T8(M8D8)760*:10604T8T8D8M8>T81760HM81T8RD8(1)\f16304,0:16297,0:16299,0:3560pT8152zR(4(1) lX01 vY02" G(X,Y)K( . 4 a Q113: INITIALIZE VARIABLES AND DEALl R04 N(Q,R)K:S(Q,R)K:E(Q,R)K:W(Q,R)K   S81:QE100:QW100 MS1840::22:"** COPYRIGHT 1984 BY MICROSPARC, INC. **":1RS2RS4Y140! Y74111 X71311O X7QY7RĒ1:K1:1920:r S(X7,Y7)KS(X7,Y7)1XX20x ~  &K0: INITIALIZE DIM'S 01:0 :N(13,4):S(13,4):E(13,4):W(13,4) DUBK:OBK:G(1,2) NMS0:DN1 X620 b:# ^QQE:RRE:X170:Y81:1830:, hX12@ rRN1RN3Y25T |RN2RN4Y12c Y7411s X71311 X7QY7RĒ1:K1:1920: N(X7,Y7)KN(X7,Y7)1XX20   CWK:CSK:CNK:CEK:HCK: X12 RS1RS3Y153 K1:1920" X170:Y81:K1:1920< X130:Y105:K1:1920B O 3:1920b 6:15X2,Y4 K:X1,YX16,YX16,Y24X1,Y24X1,Y " ,X71311 6(TP1S(X7,PT)0)(TP0N(X7,PT)0)Y71: @ J TQQW:RRW:X90:Y81:1830680 P2350% Z7670:1600:1780I d(NBSB)1RSNBSBİ7090:120S n3620] x7150 70: MAIN LOGIC SECTION ENDS HERE 4420 QEQNW2:HCK 4190 QWQSW4:HCK 1:AX$ X90:Y81:K1:1920 X130:Y59:7 * BRIDGE.BIDDER *= * BY DALE SEDIVEC *[ * COPYRIGHT (C) 1984 *y * BY MICROSPARC, INC * * LINCOLN, MA. 01773 * MAIN LOGIC SECTION25400D$(4)(D$;"BLOAD CARDS"2D$;"BLOAD SUITS"<550 F                                 ::$I01:0,152I129,152I:150,152I279,152I::5.I1322:J,K:IJ,K::137,17,137,50,137,83,137,116,21,141,62,141,104,141,170,141,212,141,254,1418I14:J16:X1X(J)14:Y1Y(I)10:L22:200,5BKY1Y111:X1,KX128,K:X1,KLX1LEVEL (1-3)? ";:160:LE(I$):LE1LE31010p330:81,32:77,128:81,128:102,64:121,128:91,64:320TF1:::1:0:6I313533:J01:0,IJ129,IJ:150,IJ279,IJ::I012642:J02:IJ,3IJ,153:IJ150,3IJ150,153: THE TWO TASKS MUST BE COMPLETED."{:"ENTER YOUR NAMES AND WE'LL BEGIN...":19:1:"PLAYER 1'S NAME? ";:160:P1$I$21:1:868:"PLAYER 2'S NAME? ";:160:P2$I$:P1$P2$99023:1::"1=EASY 2=MODERATE 3=HARD":-24:1:868:"WHAT GAME OF CONCENTRATION WITH AN ADDED TWIST.":"THE OBJECT OF THE GAME IS STILL TO MATCHSHAPES, BUT A MATH PROBLEM MUST ALSO BE""CORRECTLY ANSWERED TO WIN POINTS."::"TO ADD TO THE EXCITEMENT, THERE IS A"$"TWENTY SECOND TIME LIMIT IN WHICHI:"<-";:320::4:4):34:4)_I13:100I,2:7I:"<-";:(KB)128ĹKR,0:54915:93033I:"->";:320:J(1)::880::11)"MATH CONCENTRATION"12)"COPYRIGHT (C) 1984 BY MICROSPARC, INC ":,5:"MATH CONCENTRATION IS THE TIMELESS:J((1)121)T\K((1)121):TA(I):A(I)A(J):A(J)T:TB(I):B(I)B(K):B(K)T:fJ13:K14:IK(J1)4:L(K,J)A(I):L(K,J3)B(I):::KR,0p22:4:"-> PRESS ANY KEY TO BEGIN <-";zI13:100I,2:3I:"->";:(KB)128930!373)10:I(LE)((1)VA(LE)VB(LE))Q4I13:X(I)22(I1)42:X(I3)150X(I):>I14:Y(I)19(I1)33::I112:SC(I),DX(I),DY(I):H3,8,6,3,9,9,3,9,3,7,7,8,3,9,2,7,9,4,3,7,8,3,14,4,3,9,9,7,8,6,3,10,9,7,10,2RI112:A(I)I:B(I)I::I112,1931? 7:12:"MATH CONCENTRATION"::14:"BY STEVEN WONG"|1013,76:1014,0:1015,64:230,32:232,48:233,64:62450 I12:A(I),B(I),DX(I),DY(I),SC(I):KB16384:KR16368:S1100:S2100:BS$(8)#*VA(1)10:VB(1)2:VA(2)25:VB(2)5:VA(3)50:VB(L(M3,M4)İ500:AM1:BM2:410:AM3:BM4:410:370@470:580x340:PN1::P1$;::670:NUNU1:(NU12)1740,530340:PN2:P2$;:670:NUNU1:(NU12)1750,530::(16384)32ĺ(4)"BLOAD M.SHAPES"48,170:9,308:9,3020:9,198:9:L(M1,M2)1:L(M3,M4)1:CS0:7"'S TURN":CSİ440gCS1:22:1:"MOVE 1: ";:160:OFİ510:370260:M1A:M2B:EFİ520:37023:1:"MOVE 2: ";:160:OFİ510:AM1:BM2:410:370260:M3A:M4B:EFİ520:AM1:BM2:410:3702L(M1,M2)SUBTRACTION:":N2N1IN2:N2N1:N1I;bN3N1N2:I45:640lN1(N12):N2(N22):I3ĺ"MULTIPLICATION:":N3N2N1:I42:640v"DIVISION":N3N1:N1N1N2:I47:640N1(I)N2"=";:160:OFİ510:360(I$)N3Ģ23:HP::N3::490:360480S1S2Ğ:P1$;::" DEFEATS":P2$", "S1" TO "S2:560a&P2$" DEFEATS"::P1$;::", "S2" TO "S1024:"PLAY AGAIN? ";:A$:A$:A$"N"Ĭ:::D350:N1I(LE):N2I(LE):I((1)4)1:I590,600,620,620N"ADDITION:":N3N1N2:I43:640$X"NO MATCHES!";:I15:100,20I:150,20I::330:TS10:38024:1:"TIME'S UP";:I20010010:I,10:50,5:330:TS15:38024:1:"ILLEGAL MOVE!";:I15:17010I,60I::330:TS20:38021:1:350:S1S2ğ:" TIE GAME "::5604VERTICAL,HHT(BG)ī630:6255:ST1:VT(BG)VST1j@ZVSTVT(BG)1STST:H:Z:(62);::680J NEXT LETTER RE-ENTRYT:35,24:255:Y0^DIFFICULTY OUTPUThDF4āJ126:390rJBG26|DF1JBGĹ50,127VT(J):HT(J):):(AL$,BG,1);::VL1:HT(BG):" ";::; MOVING LEFTz 130:KHT(BG)1BG1:180:K:(AL$,BG,1);::"<";::: CATCH HORIZONTAL VVT(BG)ī630 255:ST1:HT(BG)HST1 ZHSTHT(BG)1STST:V:Z:(94);::680" CATCH G1:340 'TYPE' SOUNDSH Z1(1)41:ZZ(16336)(16336)::[ MOVING RIGHT 120::VT(BG):KHT(BG)BG1:K:" ";(AL$,BG,1);:180:::HT(BG)BG: MOVING DOWN) 165::KVT(BG)VL:6,10K20:7,50:SOUND:K:HT(BG):" ":HT(BG50,100:320:16304,0:100,40:b24:1:"A MATCH!";:I1023010:I,3:I20,3:I,10::33024:1:"CORRECT!";:I10150:I,2::330:TS25TT5:38024:1:"WRONG ANSWER!";:I1015010:I,10:1,15::330:TS5:380=24:1:"SORRY, :T130:T222S IY1Y115:4:X1,IX136,I:X1,IT1X136,IT1:T1T12:IK10Ă 5:X2,IX228,I:X2,IT2X228,IT2:T2T22:: KR,0:12:20:"09":16303,0:330:I100 (KB)128II1:Iį150I,3:1468,(I10)176:450 KR,0:320:I:1:18)::21:1:8 hAM1:BM2:410:AM3:BM4:410O r54915:PN750,740x |23:PN1S1S1TS:S1S1(S10):IS1 PN2ĺ:S2S2TS:S2S2(S20):IS2 36:("000"(I),4);: 150,10:200,10:250,10:JX(B):KY(A):X1J18:X2J14:Y1K14:I10200,10::JX(B):KY(A):T114X ,4:X1J18:Y1K14:IY115Y130:X1,IX136,I 6X1,I14T1X136,I14T1:T1T12::SC(C):CJDX(C),KDY(C): @J1250:: JJ1500:: TEF0:FF176:II299:M10:M20:OF0:23:20:"20" ^I2124:F580 ZDF5ė:) d RANDOM COLUMNSL nNU$"":I1149:NU$NU$(I): xJ38131:RN2((1)J)1:HT(39J)((NU$,RN,2))10:RN1NU$(NU$,RN2,J2):150 NU$(NU$,RN1)(NU$,RN2,J2) RANDOM ROWS VT(39J)((1)18)1:J BZ014:DA:SOUNDZ,DA:Q <166,7,164,6,173,48,192,136,208,253,202,208,245,96,0m F DIFFICULTY LEVEL MENU P255:1:1:"INDICATE DIFFICULTY LEVEL";65);"#1=EASY"33);"#2";38);"#3";38);"#4=HARD";73);"#5=QUIT << >>":8:24:DF$:DF(DF$):DF1DRITTEN BY JOHN E. VOJTISEK PH.D.":11:"** COPYRIGHT 1984 BY MICROSPARC, INC. **":22:" ":16384,128:16368,0 VT(26),HT(26): S1$"*":S2$":":S3$".":AL$"ABCDEFGHIJKLMNOPQRSTUVWXYZ":SOUND768 ( POKE SOUNDS 2  ***********************= * TADPOLE *[ * BY JOHN E. VOJTISEK *y * COPYRIGHT (C) 1984 * * BY MICROSPARC, INC. * * LINCOLN, MA. 01773 * *********************** ::5:12:"TADPOLE ALPHABET":8:4:"W ICTURE"1  "3). COMPLEMENT THE PAGE 1 PICTURE"W  "4). MIRROR THE PAGE 1 PICTURE"p  "5). EXIT PROGRAM" & SUBRTN. TO PRINT A$ 0A(X));A$ :EG = $610E 130+  MIRROR OF PICTUREX 24576: ADDRESS OF MIRROR-IMAGE = $6000a 130k ::  "HI-RES SPECIAL EFFECTS"  "----------------------": 22 DASHES  "1). LOAD A BINARY PICTURE INTO PAGE 1"  "2). VIEW THE PAGE 1 PRE J:- T12:"NAME OF PICTURE:";:PIC$T ^:12::"LOADING";::" ";:PIC$u h(4);"BLOAD";PIC$;",A$2000"~ r130 | VIEW PAGE 1 16297,0:16300,0:16302,0:16304,0 130  COMPLEMENT THE PICTURE 24846: ADDRESS OF POS-N( A$"HIT SPACE BAR TO EXIT GRAPHICS"5 20:550^ 22:A$"<< ENTER SELECTION PLEASE>>"m 958:550  OBTAIN AND VERIFY SELECTION "?";:B$:B(B$) "(B$)32ĉ:130 ,B1B5ĺ(7):250 6B320,380,410,440,470 @ LOAD A PICTUNG";::" ROUTINES":22:"** COPYRIGHT 1984 BY MICROSPARC, INC. **"b n(4);"BLOAD MIRROR.IMAGE"| x(4);"BLOAD POS.NEG" HEADING A(X)((40(A$))2) I12:A$:550: 6 INSTRUCTIONS I15 A$::A$  **********************; * SPECIAL EFFECTS *X * BY ROD MACKENZIE *u( * COPYRIGHT (C) 1984 *2 * BY MICROSPARC, INC *< * LINCOLN, MA. 01773 *F **********************P LOAD THE ROUTINESZC d12:13::"LOADI     )6I33)I8170/ I8ĺA$;:I$I$A$:170A TFİ110:110b (I$)2ĖHP:" ";:HP:160 BS$" "BS$BS$;:I$(I$,(I$)1):170 A((I$,1))64:B((I$,1)) A1A4B1B6(I$)2EF1: CL(A,B):M1AM2BC1EF1:$ "I15:II15TTı, x75,2:JTT9:TT5FF112S 1892,TT10JFF:TT20Ĺ1891,FFJ] TTıj OF1:: I(0):HP(0)1:I$"" :" ";::BS$; I(KB)128:TFİ110 I0180 KR,0:I50,2:A$(I):I13(I$)ĺ" ";:I(0): ((I$ **********************; * CONCENTRATION *X * BY STEVEN WONG *u( * COPYRIGHT (C) 1984 *2 * BY MICROSPARC, INC *< * CONCORD, MA 01742 *F **********************PZ24576:760d nIIII1:TT(II15)     [:"THE 'HELP' MESSAGE IS GIVEN NEXT."::"** COPYRIGHT 1984 BY MICROSPARC, INC. **":aON A WINDY DAY. THE MAIN SCREEN"O"DISPLAY IS A THREE-VIEW DRAWING OF THE"|"FIELD. A 'HELP' MESSAGE IS AVAILABLE""TO DESCRIBE OPTIONS FROM THIS MAIN""DISPLAY. ADDITIONAL PROGRAM PARAMETERS""CAN BE CHANGED FROM A SPECIAL MENU."O LARGE -- RE-ENTER":ARL254ĺ"IMPROPER ENTRY -- RE-ENTER":t\"UNTRAPPABLE ERROR IN LINE";(218)(219)256zfpPROGM. DESC.z:(16):"CROSSWIND"::13)"BY CARL FIELDS":"CROSSWIND SIMULATES KICKING A FOOTBALL"!"OWED RANGE"I112+LL(I):UL(I):Q 0,1E37,0,1000,0,1000,00000,1000a0,100,0,53  0000,+150,0,0,0,180,-360,360 0000,+1000,-360,360 2160:1720*1590:172041070:300>ERROR TRAPPERHL(222):L69ĺ"ENTRY TOINIT. DOWNFIELD DISTANCE8INIT. CROSSFIELD DISTANCESINITIAL KICK VELOCITYoWIND VELOCITY SELECTORVERTICAL ANGLEAZIMUTHAL ANGLEWIND VEL.WIND ANGLEPX$(0)"TIME = ":PX$(14)"DISTANCE = " PX$(15)"ENTRY OUT OF ALL1,1.5.&RG(3)1.0:C10.01745:VL(0)50.0:FL1E0W$"RND":QT$(34)f:PL(9),LL(13),UL(13),PX$(15)DGA(3)10.72:T1.1:MV18NI112:PX$(I):XREL. GRAVITY (VERT.)bREL. AIR DENSITYlINTERACTION COEFFICIENTv MAX. WIND VEL.ROPES,STATUE,18,14,14W6A SMALL KNIFE,KNIFE,19,0,0XW@A SMALL PICTURE,PICTURE,22,0,0sWJA TOPAZ,TOPAZ,124,0,1WTAN ELECTRUM RING,RING,25,0,1W^PUT DATA FOR ADDITIONAL INITIALIZATION ROUTINES HERE. TINY LADDER,LADDER,8,0,08VA SILVER BAR,SILVER,0,0,1TVA LARGE KEY,KEY,14,9,0xVA BLUE SAPPHIRE,SAPPHIRE,0,0,1VSOME RUBIES,RUBIES,16,0,1VA SET OF KEYS,KEYS,17,12,0V"MAGIC WATER,WATER,9,13,0W,JADE STATUE IN CASE BOUND WITH MAGIC ED TO GET, AND IDENTIFICATION AS TREASURE (1 IF YES, 0 IF NO)^UTWO POTS OF GOLD,GOLD,2,0,1{UA FAIRY WAND,WAND,0,0,0UA SHORT BOARD,BOARD,5,0,0UEMERALDS,EMERALDS,6,0,1UA PLAIN POTTERY VASE,VASE,7,0,0UA DIAMOND,DIAMOND,8,6,1VAh$H hJ``    @ i'i `H `hii8ϩiii(i@8`$H h$ H @h$ H h$ H h$ H h$ H h$H  z#   ΠQȠΠ ͮӠ  ˠ 6ˠ. ĠϠ Ӡ ӮǠ ҮŠ̠ӠŠӠ0Ġ Ӡ ҠӠĠӠȠĠ1ȮӠ Ҡ&ĮҠϠŠҠ 9Ӡ Ӡ ŠР  ŠРϠ Ǡڠ  OR THE KEYBOARD ONLY."DY"THE TOP OF THE SCREEN REPRESENTS HIGH"pY"PITCH, AND THE BOTTOM REPRESENTS LOW"~Y"PITCH."YN1255Y Q(N127)(12560(N.05))YSTADDN,Q:Y 2610:"AN EXAMPLE MIGHT LOOK LIKE THIS."Z*:3:0,0279,02MAKING SOUND EFFECTS OF";EX"ALL VARIETIES, AND THE SECOND IS FOR"`X"SYNTHESIZING MUSIC."X:"TO USE MODE ONE YOU SIMPLY LAY OUT THE"X"DESIRED SOUND ON THE HI-RES DISPLAY"X"USING A PADDLE CONTROLLER OR JOYSTICK"Y"AND THE KEYBOARD,6,0WDNUM(48858)1:WN:21:"FILE "NAME$" CURRENTLY"ZWX"CONTAINS "NUM1" SOUNDS."lWbSNUMNUM:340~WlD$;"CATALOG"Wv1820W INSTRUCTIONSW:14:"INSTRUCTIONS"W7:"THIS PROGRAM HAS TWO SOUND MAKING MODES."X"THE FIRST IS FOR STADDSNUM256256N,0:?VSTADDSNUM256256,TNUMX:XSNUMIV1360OVlV LOAD SAVED SOUND TABLEV"ENTER NAME OF EXISTING SOUND TABLE."V&"TYPE 'CAT' FOR A CATALOG":2660V0NAME$:NAME$"CAT"1900W:D$;"BLOAD";NAME$;",A";STADD:21::16:"SHIFTING";:;UXX(A$):(X)21710,1800,1730RUXTNUMX1TNUMhUNTNUM255:1750zUXTNUM255ıUN255XTNUM1UQSTADD256SNUM256N:QX,(Q):UX0āNTNUMTNUMX:STADDSNUM256256N,0::1780VN255X255:IS FEATURE YOU MAY SHIFT ALL OF"XT^"THE DOTS THAT ARE TO THE RIGHT OF THE":"CURSOR."Th"SHIFT LEFT OR RIGHT (L OR R)? ";:A$:A$TrA$"R"A$"RIGHT":X1:1680T|A$"L"1610TA$"LEFT":X1T"SHIFT HOW FAR "A$" (0-9)? ";:A$:A$;U:3ı#SX49M2(M2):1560:1480=SX50I2(I2):1480GS1480qSM1:N2M26:10,Y(N)269,Y(N)::|S" QUITS,:21:"VERIFY QUIT (Y/N)? ";:A$:A$"Y"ıS6::S@ SHIFT DISPLAYSJ3:CX,4CX,9:CX,142CX,147 TT:21:"WITH TH SOUND9R:21:"VERIFY DELETE (Y/N)? ";:A$:A$"Y"ıDR:340WR CHANGE MODESR:21::" CURRENT MODE ":M$(M):I$(I):R22:18:"1) CHANGE SOUND MODE"R18:"2) CHANGE ENTRY MODE"R12:"<> ";:A$SX(A$):X1):X1XNUM13401QP13,11267,11:0:Z,1Z,158WQZSNUMX:TNUM(STADDSNUM256256)dQdN1255QnCXZN:Q(STADDSNUM256256N):CYZQ2QxCX,1CX,158:Q0ĕ1CX,CYQQM2İ1560QCXZTNUM:3:CX,4CX,9:CX,142CX,147:R DELETEPX256(NUMA):NUMNUM1AFPD$;"BSAVE ";NAME$;",A";STADD;",L";XRP:1870eP  ADD TO SOUNDP0:CX,4CX,9:CX,142CX,147P:370P( DISPLAY PREVIOUS SOUNDP2NUM2ıP<:21:"DISPLAY WHICH SOUND NUMBER (1-"NUM;:")? ";A$QFX(A$NUM","P","R","L:768,SNUM,P,R,LUO" <> ";:A$:(A$)13ı_O1150pO SAVE SOUNDO:21:"VERIFY SAVE (Y/N)? ";:A$:A$"Y"ıO:21:" **SAVING SOUND TABLE**":"TABLE NAME - ";NAME$OA((STADDNUM256256)0)300,1330,1450,1480,1580!Nj10602Nt SOUND TESTQN~:21:7:"**TEST SOUND**"~N"OVERALL PITCH (1-9)? ";P:P1P91160N"NUMBER OF REPETITIONS (1-255)? ";R:R1R2551170N"LENGTH OF EACH TONE (1-255)? ";L:L1L2551180O"CALL 768,"SCX,9:CX,142CX,147HM.:21:" 1) TEST SOUND";:21:"5) DELETE SOUND"wM8" 2) SAVE SOUND";:21:"6) CHANGE MODES"MB" 3) ADD TO SOUND";:21:"7) QUIT"ML" 4) DISPLAY PREVIOUSLY CREATED SOUND ";:A$MVX(A$):X1X71060N`X1150,1230,1>"; <16368,0:A$:? F22:"CATALOG":998:(4)"CATALOG"E P AG 1/21/08 255:::F"NIBBLE PROGRAMS - VOL. 5, PART 3"n"================================"(6:"THIS DISK CONTAINS PROGRAMS FROM NIBBLE MAGAZINE, VOL. 5 (1984), ENTERED AND COLLECTED IN 2008." 219:"> ";Ub< A$:(A$)132610abF :21:wbP DISK ERROR TRAPbZ EL1:2670: ENTRY POINT FOR DISK WRITEbd EL2: ENTRY POINT FOR DISK READbn ER(222)bx ER4ĺ"DISK WRITE PROTECTED":2760 ARE SATISFIED WITH THE SOUND,"La "RECORD THE CALL COMMAND DISPLAYED, AND"{a "SAVE THE SOUND. TO USE THE SOUND IN AN"a "APPLESOFT PROGRAM, BLOAD THE SOUND FILE"a "AND THE SOUND READER PROGRAM, AND USE"b "THE CALL COMMAND TO EXECUTE THE SOTNUMQQA:STADDTNUM,Q(X),` TNUM:QTNUM3` NO` STADD,79:X1:M2:1360` 2610:"NOTE THAT HIGH NOTES PLAY FASTER SO THAT";` "THE NOTE LINE MUST BE LONGER FOR EQUAL"` "DURATION.":768,1,4,1,12` 2610:768,1,1,1,25::7a "WHEN YOU HE END OF THE"1_` "SOUND BEFORE TESTING.":2610__j "MODE TWO SETS UP A MUSICAL SCALE WHICH"_t "ALLOWS YOU TO TRANSCRIBE DIRECTLY FROM"_~ "SHEET MUSIC, TO A FORMAT LIKE THIS."_ Q1:N08_ X,A:7,9,5,11,3,14,14,1,5,9,6,8,5,9,7,7,14,60` CX,CY^$ A$:(A$)2723400^. 2CX,CY:1610v^8 :21:X0ĺ"PLEASE TRY AGAIN WITH A NON-ZERO SHIFT.":2610:2320^B "NOTE THAT THE SOUND READER READS ONLY UP";^L "TO THE 'END OF SOUND' SLASHES.":768,1,2,3,70_V 2610:"SO PLACE THE CURSOR AT T2610 ]TNUM30:CXZ126:CY60I]"YOU MAY ALSO SHIFT THE RIGHT HAND"u]"PORTION OF THE SCREEN LEFT OR RIGHT."] "PLACE THE CURSOR HERE FOR INSTANCE, AND"] "PRESS ESC TO TRY IT. <> ";^ 0:CX,4CX,9:CX,142CX,147:CXZTNUM:2U MAY MOVE THE CURSOR HORIZONTALLY"P\"LEFT OR RIGHT WITH THE ARROW KEYS, AS"\"WELL AS WITH THE NUMBER KEYS (0-9).":2610\"YOU MAY WRITE OVER AN INCORRECT SECTION"\"WITH DIFFERENT TONE DOTS, OR ERASE A"]"SECTION BY SPACING OVER IT.":610@[p"SO, WITH THE SOUND PATTERN ABOVE, THIS,":768,1,1,1,30_[z"AND THIS,":768,1,2,10,1["AND THIS, ";:768,1,9,3,3["ARE POSSIBLE.":2610["IF YOU ARE NOT SATISFIED WITH THE SOUND,";["USE THE 'ADD TO SOUND' OPTION.":2610#\"YO79,1590,1590,0-Z4X1:M1:STADD,126:1360_Z>21:"WHEN YOU WISH TO HEAR THE SOUND, GO TO"ZH"THE MENU, AND USE THE 'TEST' OPTION.":2610ZR"YOU CONTROL THE OVERALL PITCH,"Z\"THE NUMBER OF REPETITIONS,"[f"AND THE LENGTH OF EACH NOTE.":2SED.":12809j"HERE IS THE REST OF THE 'MARINE HYMN',"wt"AND WHAT IT SOUNDS LIKE PLAYED ALONE.":X14:1300:1230~P5:R1:L13:1240:"NOTE THAT LEDGER LINES ARE PROVIDED WHEN";"YOU ENTER NOTES HIGH ON THE SCALE."1:10,48269,48:10,5LONG OR REPETITIOUS TUNE,"G."YOU MAY WANT TO PUT IT ON TWO OR MORE"s8"SCREENS, LIKE THIS;":X13:1300:1230BP5:R1:L13:1240L"NOTE THAT THE AVERAGE LENGTH OF A NOTE"V"LINE IS A MATTER OF CHOICE, HERE, LONGER"; `"NOTE LINES ARE U"THIS IS BECAUSE THESE WOULD NOT BE"S"EASILY DISTINGUISHABLE ON THE MUSICAL"p"STAFF PROVIDED.":1280"HOWEVER, YOU MAY WISH TO ATTEMPT TO ADD""SHARPS OR FLATS IN MODE ONE, BUT YOU""MUST DO IT BY EAR.":1280$"IF YOU HAVE A PLE.":X11:1300:1230-P2:R1:L30:1240Y"HERE IS A TUNE THAT IS HIGHER ON THE"x"SCALE.":X12:1300:1230P1:R1:L85:1240"NOTE THAT FOR THE SAKE OF CLARITY,""SHARPS AND FLATS ARE NOT INCLUDED IN""MODE TWO.":1280&IS;";:12800fN327:X(N3):768,10,X,1,1:dp1280:"OR ADD ANOTHER SOUND AND SOME FLASHES,"z"AND YOU GET THIS.":1280:210:1280"SIMPLE MUSIC CAN BE REPRODUCED BY""ENTERING IT NOTE BY NOTE FROM SHEET""MUSIC. HERE IS AN EXAM THAT PLAYED IT AT EACH";M*"OF THE PITCHES, 1 TO 9, CONSECUTIVELY?":1280z4"A LINE LIKE THIS WOULD ACCOMPLISH IT.">"890 FOR N = 3 TO 27:X = INT (N /"H6:"3): CALL 768,10,X,1,1: NEXT"R1280 \"AND WHEN EXECUTED WOULD SOUND LIKE THX10:1300:"TAKE THIS FOR INSTANCE."X"ORDINARY TECHNIQUES DON'T YIELD ANYTHING";"PARTICULARLY INTERESTING.":P5:R3:L20:1240P9:R30:L1:1250 P2:R20:L3:1250"BUT WHAT IF YOU MADE A ROUTINE IN YOUR" "APPLESOFT PROGRAM HAVE GUESSED"?"THE PATTERN FOR A MACHINE GUN COULD LOOK";["LIKE THIS?":X9:1300rP3:R40:L4:1240"OTHER SOUNDS CAN BE BASICALLY SIMPLE,""BUT REQUIRE INNOVATION IN THE PLAYING IN";"ORDER TO MAKE THEM SOUND RIGHT.":1280'E INCOMING SHELL YOU HEARD"Bl"EARLIER, I USED THIS.":X8:1300XvP2:R1:L8:1240"FOR SOME SOUNDS, IT IS LESS OBVIOUS HOW""TO LAY THEM OUT. TRIAL AND ERROR TAKES""ON A GREAT DEAL OF IMPORTANCE.":1280"FOR INSTANCE, WOULD YOU* 500: FOR"006:"Q = 1 TO X: NEXT Q: NEXT N"a:N110:768,7,1,1,1:X(1)440:Q1X:Q:ND1280:"SOMETIMES MOVING THE SOUND UP OR DOWN ON";N"THE SCREEN CAN MAKE A SMALL BUT"X"IMPORTANT DIFFERANCE IN THE SOUND.":1280b"SO, FOR TH:12404"A SIMPLE PATTERN CAN ALSO SOUND LIKE A"^"BIRD.":X7:1300:P1:R10:L1:1240"IF YOU WANT IT TO SOUND MORE NATURAL,""INTRODUCE RANDOM PAUSES LIKE THIS;":1280"590 FOR N = 1 TO 10: CALL 768,7," &6:"1,1,1:X = RND (1) TER COMPLEXITY GIVES MORE":"POSSIBILITIES.":X2:1300QP1:R10:L1:1240gP9:R7:L1:1250uX3:1300P2:R15:L1:1240P1:R20:L1:1250X4:1300:P4:R8:L20:1240X5:1300:P1:R1:L50:1240X6:1300:P1:R1:L30ED TO INVOKE IT"8 J"FROM AN APPLESOFT PROGRAM.":1280F TX1:1300q ^"EVEN THE SIMPLEST PATTERNS CAN GIVE" h"INTERESTING EFFECTS WHEN REPEATED" r"RAPIDLY.":P1:R10:L7:1240 |P4:R10:L4:1250 P9:R10:L2:1250"OF COURSE GREAK"1 "UNDER THE FILE NAME 'SOUNDS'. YOU WILL"_ "BE SHOWN SOME USEFUL TECHNIQUES TO AID" ""YOU IN DESIGNING YOUR OWN SOUNDS. FOR" ,"EACH SOUND PLAYED, YOU WILL BE SHOWN" 6"WHAT THE SOUND LOOKS LIKE, AND THE" @"COMMAND OR COMMANDS US6300,0:768,10,N,1,1::K :5:"THE PURPOSE OF THIS PROGRAM IS TO SHOW"x "SOME OF THE CAPABILITIES OF THE SOUND" "SYNTHESIZER. ALL THE SOUNDS YOU HAVE" "JUST HEARD WERE CREATED WITH THE SOUND" "SYNTHESIZER, AND ARE SAVED ON THIS DIS14,5,1,13:N1450::768,13,5,1,13: 768,9,3,40,4:210V 768,9,3,15,4:210:210f N11500: 768,11,2,1,30:N1500: N110:768,7,1,1,1:X(1)440:Q1X:Q:N 220 768,8,2,1,8:N19:768,10,N,1,1:16299,0:768,10,N,1,1:1tttt`````````VVVVVV`````tttttttttttttttt`````````VVVVVV`````ttttttttttttllllllllllllllVVVVVVVVVVVV````````tttttttt`````````VVVVVV`````tttttttttttt «{_:M    "'19FWn^^^^^^^^^]]]__________baaaaaaaaddccccccdffffefeehhghhghgjjiiijjkkkklkkmmmnmmmpopoooqrrrrrststttuuuvvuwwwwwwyyyyy|{{{{}}~~~!!!!!!!!!!!!!!!!!$$$$$$$$$$$$$$$$&&%%%%%%%%%%%%&(((((((((((((()))))))))))))++,+++,,+,++......-----00////0/00222212111333333345555555787877:999:<;<<>=>@?B!.?G:67/--"$#()%#ABC896# +12:@=>?7455,-()*  !!778:650,'#'(&(#((9:8:898.4254/,*-),*'.##%( ";:;>;7622.,'"(."%.588 &,8AKUYZZUNC0%$*3nBvC?5465:7 !%)+/379=AEIKOQUY[_cgkoquy    256N):CYZQ2:Q0ēCX,CY$2:A:21?10:"CALL 768,"X","P","R","L:768,X,P,R,L:1280:E24:9:"<> ";:A$:(A$)131280 :21::3:0,0279,0279,1590,1590,0SNUMX:TNUM(STADDSNUM256256)(N1TNUM:CXZN:Q(STADDSNUM2564269,54:1280="USING THESE TECHNIQUES, AND ANY OF YOUR"j"OWN, A GREAT VARIETY OF SOUNDS CAN BE"z"CREATED."768,13,5,2,13:768,14,5,1,13:N1450::768,13,5,1,13:1280:::1:N04:10,Y(N)269,Y(N)::3:1280:1260               ICTURE"1  "3). COMPLEMENT THE PAGE 1 PICTURE"W  "4). MIRROR THE PAGE 1 PICTURE"p  "5). EXIT PROGRAM" & SUBRTN. TO PRINT A$ 0A(X));A$ :EG = $610E 130+  MIRROR OF PICTUREX 24576: ADDRESS OF MIRROR-IMAGE = $6000a 130k ::  "HI-RES SPECIAL EFFECTS"  "----------------------": 22 DASHES  "1). LOAD A BINARY PICTURE INTO PAGE 1"  "2). VIEW THE PAGE 1 PRE J:- T12:"NAME OF PICTURE:";:PIC$T ^:12::"LOADING";::" ";:PIC$u h(4);"BLOAD";PIC$;",A$2000"~ r130 | VIEW PAGE 1 16297,0:16300,0:16302,0:16304,0 130  COMPLEMENT THE PICTURE 24846: ADDRESS OF POS-N( A$"HIT SPACE BAR TO EXIT GRAPHICS"5 20:550^ 22:A$"<< ENTER SELECTION PLEASE>>"m 958:550  OBTAIN AND VERIFY SELECTION "?";:B$:B(B$) "(B$)32ĉ:130 ,B1B5ĺ(7):250 6B320,380,410,440,470 @ LOAD A PICTUNG";::" ROUTINES":22:"** COPYRIGHT 1984 BY MICROSPARC, INC. **"b n(4);"BLOAD MIRROR.IMAGE"| x(4);"BLOAD POS.NEG" HEADING A(X)((40(A$))2) I12:A$:550: 6 INSTRUCTIONS I15 A$::A$  **********************; * SPECIAL EFFECTS *X * BY ROD MACKENZIE *u( * COPYRIGHT (C) 1984 *2 * BY MICROSPARC, INC *< * LINCOLN, MA. 01773 *F **********************P LOAD THE ROUTINESZC d12:13::"LOADIh$H hJ``    @ i'i `H `hii8ϩiii(i@8`$H h$ H @h$ H h$ H h$ H h$ H h$H  aL Iii8?x8өii8` ```IIIIIIIIIMMMMMMMMMVVVVVVVVVVVVVVVVllllllllllllllVVVVVVVVVVVVVVVVIIIIIIIIIIIIIIIIII````````````````````````ttttttt````````````````IIIIIIIIIMMMMMMMMMVVVVVVVVVVVVVVVVllllllllllllllVVVVVVVVVVVVVVVVIIIIIIIIIIIIIIIIII`````````````````````````󐐐ttttttt````````````````````````````````````````````````````````````````````````````````````````IIIIIIIII````````````````tttttttlllllll````````````````````````````````llllllllllllll UJM"3390 :"UJM ";A$'3C3650:3850:3860:3870Q20:958o:"VMVMVM FJFJFJ RURURU"y3440&:"VM";A$03680:3690:3700:5D3820:3830:3840N:"RTYU FGHJ VBNM VBNM FGHJ RTYU"X:"R";A$b:"RUN RUN3390^:"RFV ";A$h:&r:5B|3710:3880:3890:3900J21u"MMMMM JJJJJ UUUUU MMMMM JJJJJ UUUUU":"MM";A$20:958:"MJU MJU MJU MJU MJU MJU MJU"3340:"MJU ";A$20:958:"UJM UJM UJM UJM UJM UJM LESSON THREE:3;3650:3850:3860:3870C21n"VVVVV FFFFF RRRRR VVVVV FFFFF RRRRR"}:"VV";A$20:958":"VFR VFR VFR VFR VFR VFR VFR",33406:"VFR ";A$@20:958J:"RFV RFV RFV RFV RFV RFV"T3680:3690:3700<20:958=F:"BN BN BN BN BN BN BN"GP3440WZ:"BN ";A$ed20:958n:"GH GH GH GH GH GH GH"x3440:"GH ";A$20:958:"TY TY TY TY TY TY TY"3440:"TY ";A$:R23490:3830:384021?"NNNNN HHHHH YYYYY NNNNN HHHHH YYYYY"R:"NNNNN ";A$`20:958:"NHY NHY NHY NHY NHY NHY NHY"3340:"NHY ";A$20:958 :"YHN YHN YHN YHN YHN YHN YHN"3390:"YHN ";A$(323650:0 .2148"BBBBB GGGGG TTTTT BBBBB GGGGG TTTTT"CB:"BB";A$QL20:958vV:"BGT BGT BGT BGT BGT BGT BGT"`3340j:"BGT ";A$t20:958~:"TGB TGB TGB TGB TGB TGB TGB"3390:"TGB ";A$::5 3710:38203780:38106:"..... ..... ..... ..... RETURN"I:"..... ";A$r:"... ... ... ... ... ... RETURN":"... ";A$:". . . . . . . . . . . . RETURN":". . ";A$590 LESSON TWO:3$3650:3680:3690:3702690 L73120 *L82900-4L9840>>L1L9600VH:5:17:"GOODBYE"\Rm\ LESSON ONEuf:|p5z3710:3740:377021 THIRTY PERIODS"..............................RETURN":30 PERIODS:"...";A$1:5)"5 W S X O L"2:5)"6 Q A Z P"J:5)"7 NUMBERS"c:5)"8 ALPHABET"x:5)"9 STOP"~:"WHICH LESSON DO YOU WANT? ";L$L(L$)L1860L21030L31490L41940 L52330L6OTH HANDS."80"YOU USE BOTH HANDS TO TYPE 'BN BN BN'"O:K11000:K:3440YD4770fN: MENUX:10::"LITTLE FINGERS"bl:5)"1 PERIOD SPACE RETURN"v:5)"2 T G B Y H N":5)"3 R F V U J M":5)"4 E D C I K"4770 :5 3390 Y "THIS MUSIC TELLS YOU TO GO DOWN THE KEYBOARD." :"TYPING 'Y H N' WILL MOVE YOUR FINGER DOWN." K11000:K 3390 4770 :3440 :3:3650 5:3710 &21:"THIS MUSIC SAYS TO USE B UNDER THE FIRST ONE."5 ^:"LISTEN TO THE MUSIC. "? h4770K r:3340T |:5 :"IT TELLS YOU TO MOVE YOUR FINGER UP ON THE KEYBOARD." :"WHEN YOU TYPE THE LETTERS 'N H Y' YOUR FINGER MOVES UP THE KEYBOARD." K11000:K 3340 AR. " 4770 ::, 5:3710:47604 "21d ,"USE THE ARROW KEY TO BACK UP AND RETYPE."n 64770y @::5 J:"WHEN YOU RUN THE PROGRAM YOU WILL SEE A LINE OF TYPE UNDER THE PICTURES." T:"TYPE THE SAME LINE AND WATCH IT APPEAR JUSTINGER OF YOUR RIGHT HAND."$ 4770. ::; 3:3650C 21 "THIS PICTURE TELLS YOU TO USE THE POINTER FINGER OF YOUR LEFT HAND." 4770 :: 1:3780:3810 21 "THIS PICTURE TELLS YOU TO USE YOUR THUMBON THE SPACE BPRACTICE PROGRAM":23:"** COPYRIGHT 1984 MICROSPARC, INC. **"V Z(4)"BLOAD MSOUND" d(104)64Ĺ103,1:104,64:16384,0:(4)"RUN LITTLE FINGERS" n INSTRUCTIONS x::5 3710 21 "THIS PICTURE TELLS YOU TO USE THE POINTER F. **********************; * LITTLE FINGERS *X * CONNIE FAIRBANKS *u( * COPYRIGHT (C) 1984 *2 * BY MICROSPARC, INC *< * LINCOLN, MA. 01773 *F **********************> P:5:13::"LITTLE FINGERS":::7)"A TYPING 5,31227,33227,55^'227,47229,45231,45233,47233,55:233,47235,45237,45239,47239,55'239,47241,45243,45245,47245,60241,65241,70:: RIGHT HAND'191,50215,50215,60191,60191,50'194,54212,54:194,55212,55(194,56212,56 LEFT HAND2&`109,30117,30:113,30113,40:: T}&j121,52119,50115,50113,52113,58115,60119,60121,58121,56116,56&t119,75124,75127,74127,72125,70119,70119,80125,80127,78127,76124,75:: B'~225,70225,65221,60221,33223,3122R31490%R41940&%R523304%$R62690B%.R73120P%8R82900%B24,7024,6520,6020,4722,4524,4525,4725,55%L25,4727,4529,4531,4731,55:31,4733,4535,4537,4737,55 &V37,4737,3339,3141,3143,3343,6037,6537,70:: M13"$ 768,153:769,100:770=$ 768,193:769,100:770F$ M:[$ REPEAT ROUTINEd$ :5z$ 3710:3820:3840$ 21$ "WOULD YOU LIKE TO DO THIS LESSON OVER?"$ :"Y OR N ";R$$ :$ R$"N"590$ R$"Y"3490$ R21030 %0 # :# R7:3490&# UP MUSICA# 768,193:769,100:770\# 768,153:769,100:770w#* 768,129:769,200:770}#4 #> DOWN MUSIC#H 768,129:769,100:770#R 768,153:769,100:770#\ 768,193:769,200:770#f #p LEFT/RIGHT MUSIC$z" 4120:4130:4140E" :"666 777 888 999 000 000 999 888 777 666"S" :"6";A$s" :"TO HEAR THE SONG AGAIN"" :"TYPE THE NUMBERS FROM 1 TO 10."" 4450" :" 1 2 3 4 5 6 7 8 9 10"" :" ";C$" C$"1 2 3 4 5 6 7 8 9 10"3280# 445;A$.! A$"ABCDEFGHIJKLMNOPQRSTUVWXYZ"30608! 4150@! :N!& R8:3490a!0 LESSON SEVENi!: :p!D 3!N 3650:4050:4060!X 4070:4080:4090!b 21!l "111 222 333 444 555 555 444 333 222 111"!v :"1";A$! 5! 3710:4100:4110 3880:3890:39000 3940:3950:3990:4000F 3680:3690:3700\ 3850:3860:3870r 3910:3920:3930 3960:3970:3980 21:"TO HEAR THE SONG AGAIN" :"TYPE THE ALPHABET." 4150 :" ABCDEFGHIJKLMNOPQRSTUVWXYZ"! :" "Z QAZ QAZ QAZ QAZ QAZ QAZ"$ 33905 :"QAZ ";A$< 5L" 3710:4040m, :"PA PA PA PAPA PAPA PAPA"}6 :"PA ";A$@ :J R6:3490T LESSON EIGHT^ :h 3r 3650:4010:4020:4030| 5 3710:4040 3820:3830:3840L";A$ n :x R5:3490, LESSON SIX4 :; 3W 3650:4010:4020:4030_ 21 "QQQQQ AAAAA ZZZZZ ZZZZZ AAAAA QQQQQ" :"QQ";A$ 20:958 :"ZAQ ZAQ ZAQ ZAQ ZAQ ZAQ ZAQ" 3340 :"ZAQ ";A$ 20:958 :"QALX WOSLX" 3440& :"WOSLX ";A$G :"SOX SOX SOX SOX SOX SOX"X( :"SOX ";A$2 3680:3690:3700:3850:3860:3870:3910:3920:3930< 5F 3820:3830:3840:3880:3890:3900:3940:3950P 3770Z :"LOOK IN THE COOK BOOK."d :"WSX WSX WSX WSX WSX WSX WSX"& 33907 :"WSX ";A$A ::H 5^ 3710:3990:4000f 21 "OOOOO LLLLL LLLLL OOOOO OOOOO" :"OO";A$ :"OL OL OL LO LO LO" :"OL ";A$ 3 3650:3960:3970:3980  :"WOSLX WOSLX WOS KICK RUN RUN RUN":"RUN ";A$* :8 R4:3490J LESSON FIVER$ :Y. 3u8 3650:3960:3970:3980}B 21L "WWWWW SSSSS XXXXX XXXXX SSSSS WWWWW"V :"WW";A$` :"XSW XSW XSW XSW XSW XSW XSW"j 3340t :"XSW ";A$~ :":393020:9585:"EIDKC EIDKC EIDKC EIDKC"?3440R:"EIDKC ";A$t:"KICK KICK KICK KICK KICK":"KICK ";A$3680:3690:3700:3850:3860:387053820:3830:3840:3880:3890:390020:958:"RUN KICK RUN:"CDE ";A$20:958@ :"EDC EDC EDC EDC EDC EDC EDC"J3390[ :"EDC ";A$e*::l45>3710:3940:3950H21R"IIIII KKKKK KKKKK IIIII"\:"II";A$f:"IK IK IK KI KI KI"p:"IK ";A$z33650:3910:3920 RUN RUN RUN RUN RUN"&l:"RUN ";A$.v:6R3@3490R LESSON FOURZ:a3}3650:3910:3920:393021"EEEEE DDDDD CCCCC CCCCC DDDDD EEEEE":"EE";A$20:958:"CDE CDE CDE CDE CDE CDE CDE"3340 6768,145:769,200:770 6X6170,95190,95:175,92170,95175,98:: LEFT ARROW623:" ":16384,128:16368,0: 768,129:769,50:77015*768,129:769,50:770L54768,153:769,100:770g5>768,193:769,200:770{5HRR1:R144705R768,97:769,100:7705\768,109:769,50:7705f768,109:769,50:7705p768,115:769,100:7705z768,129:769,100:77069,100:770$4768,97:769,50:770=4768,97:769,50:770X4768,115:769,100:770s4768,145:769,200:7704R146904G124768,129:769,100:7704768,129:769,50:7704768,129:769,50:7704 G4768,153:769,100:77051:R1ī432030R2ī417063:768,172:769,100:770Q3D768,172:769,100:770l3N768,193:769,200:770r3X3b COUNTING MUSIC3lR03vF123768,145:769,100:7703768,145:769,50:7703768,145:769,50:7703F 4768,115:742768,172:769,50:770:D:2768,193:769,200:770U2768,129:769,100:770p2768,129:769,100:7702768,145:769,100:7702768,145:769,100:7702768,153:769,100:7702768,153:769,100:7702768,172:769,200:770 3&RR129:769,100:770,1h768,129:769,100:770G1r768,115:769,100:770b1|768,115:769,100:770}1768,129:769,200:7701768,145:769,100:7701768,145:769,100:7701768,153:769,100:7701768,153:769,100:7701R044102D1_0"161,14159,15155,15153,14153,12155,10159,10161,12161,18159,20155,20153,18:: 90,173,12171,10167,10165,12165,18167,20171,20173,18173,12:: 006 ABC SONG0@R00J768,193:769,100:7700T768,193:769,100:7701^768,111,20107,20105,18:: 5s/125,12123,10120,10117,13117,18119,20123,20125,18125,16123,15117,16:: 6/129,10137,10131,18131,20:: 70149,12147,10143,10141,12141,14149,16149,18147,20143,20141,18141,16149,14149,12:: 8.61,1061,20:: 1L.69,1271,1075,1077,1277,1469,2077,20:: 2.81,1283,1087,1089,1189,1387,14:85,1487,1489,1589,1887,2083,2081,18:: 3.101,1693,1699,1099,20:: 4/113,10105,10105,13107,12111,12113,14113,18,32:: O)-161,50161,60169,60:: Lw-69,3267,3063,3061,3261,3863,4067,4069,3869,32:66,3770,41:: Q-65,6069,5073,60:67,5771,57:: A-71,7079,7071,8079,80:: Z.169,40169,30175,30177,31177,33175,34169,34:: P0:157,50149,55157,60:: KH,x73,3075,4077,3079,4081,30:: W,85,5283,5079,5077,5277,5479,5583,5585,5685,5883,6079,6077,58:: S,83,7091,80:83,8091,70:: X -165,32163,30159,30157,32157,38159,40163,40165,38165 J1+<143,80143,70147,80151,70151,80:: Ma+F93,3085,3085,4093,40:85,3590,35:: E+P89,5089,6095,6097,5897,5295,5089,50:: D+Z103,72101,7097,7095,7295,7897,80101,80103,78:: C+d149,30149,40:: I,n149,50149,69,70:: NJ* 97,4097,30103,30105,32105,34103,3697,36105,40:: Ry*101,60101,50109,50:101,55107,55:: F*107,70111,80115,70:: V*(133,30133,38135,40139,40141,38141,30:: U+2145,50145,58143,60139,60137,58137,56::111,58111,56112,55H)120,55112,55111,53111,51112,50:: THUMB})99,90159,90159,10099,10099,90:: SPACE BAR)121,30125,35129,30:125,35125,40:: Y)125,50125,60:133,50133,60:125,55133,55:: H *131,80131,70139,8013:: RETURN KEYb(165,70175,70175,80165,80165,70:169,77:169,78:171,77:171,78:: PERIOD(112,50130,50138,56149,56149,66138,66124,80119,80119,76126,70112,70111,68111,66112,65)120,65112,65111,63111,61112,60:120,60112,60230<LOC%(9)100ĺ"YOU DON'T HAVE THE RIGHT KEY.":230tGO%(20,2)21:30:"OK. THE GATE IS OPEN.":GT1:230GM$""A$GM$530:ROOM%1:220((A$,10)"UNTIE ROPE"(A$,10)"UNTIE KNOT")ROOM%18ĺ"YOU CAN'T. THE KNOTS ARE MAGICAL.":230230&DRĺ"IT'S ALREADY OPEN.":230`LOC%(12)100ĺ"YOU DON'T HAVE THE RIGHT KEYS.":230GO%(17,3)16:30:"OK. THE DOOR IS OPEN.":DR1:230A$"OPEN GATE"A$"UNLOCK GATE"520:ROOM%20ĺ"WHAT GATE?":230GTĺ"IT'S ALREADY OPEN.":"CUT ROPE"440:ROOM%18ĺ"WHAT ROPE?":230RLOC%(15)100ĺ"WITH WHAT?":230zKNĺ"THE KNIFE IS TOO DULL.":230"OK":LDESC$(14)"A SMALL JADE STATUE":30:NEED%(14)0:230A$"OPEN DOOR"A$"UNLOCK DOOR"480:ROOM%17ĺ"WHAT DOOR?":IFF ABOVE.":30:230|(A$,11)"PUSH BUTTON"(A$,12)"PUNCH BUTTON"(A$,10)"HIT BUTTON"(A$,12)"PRESS BUTTON"400:PUSHSET:SETĺ"NOTHING HAPPENS.":230LOC%(10)15:30:"THE CHEST OPENS. INSIDE IS A BLUE SAP- PHIRE.":230,(A$,8)"WAVE WAND"380:LOC%(2)100ĺ"WHAT WAND?":230[hROOM%17RPĺ"NOTHING HAPPENS.":230rRP1:GO%(1,5)17:GO%(17,4)1:ROOM$(17)ROOM$(17)". A ROPE HANGS OUTSIDE THE CAVE":ROOM$(1)ROOM$(1)". A ROPE HANGS TO A CAVE BELOW":"A ROPE DROPS FROM THE CLO WATER.":230JROOM%18ROOM%19ĺ"THAT WAS DELICIOUS, BUT I FEEL DIZZY ANDI CAN'T SEE CLEARLY. PRESS RETURN AND SEE IF THAT HELPS. ";:A$:ROOM%18:220T"AHHH! HERE WE GO AGAIN! PRESS RETURN.";:A$:ROOM%R(17)(R(10)5)(2R(6)):2200^A$.":230,"LOC%(3)100ĺ"WITH WHAT?":230,BD2:GO%(5,2)6:LOC%(3)0:"OK. YOU PLACE THE BOARD ACROSS THE CHASMAND IT BECOMES A WIDE, SAFE BRIDGE.":30:150:2306A$"DRINK WATER"350@(LOC%(5)100(LDESC$(5),1)"T")ROOM%9ĺ"YOU HAVE N I DIDN'T HEAR THAT.":960OSPECIAL COMMANDS ARE ANALYZED IN LINES 240-640.kA$"BRIDGE CHASM"310ROOM%6(ROOM%5BD2)ĺ"THERE IS ALREADY A BRIDGE THERE.":230ROOM%5ĺ"WHAT CHASM?":230BD0ĺ"WITH WHAT? THE BOARD IS TOO SHORTPLAYER ENTERS A LOCATION. CL%1:30:AGAIN%(ROOM%)ĴROOM%1000,1100,1200,1300,1400,1500,1600,1700,1800,1900,2000,2100,2200,2300,2400,2500,2600,2700,2800,2900,3000,3100,3200,3300,3400AGAIN%(ROOM%)1:TURN%TURN%1:"-->COMMAND: ";A$::A$""ĺ"HUH?E IS 0 UNLESS YOU TAKE YOURTREASURES WITH YOU TO A SAFE PLACE."E t :"YOUR ANSWER--> ";Z$:Z(Z$):Z0200: MAIN PROGRAM GOES FROM 210 TO 990. THIS IS THE COMMAND ANALYZER. LINE 220 SENDS PROGRAM TO EDUCATIONAL SUBROUTINES THE FIRST TIME THE $(A$,(A$)L):100 R INV$"":I1I%:LOC%(I)100INV$INV$LDESC$(I)".Z : SC%0:I1I%:SC%SC%(TREASURE%(I)(LOC%(I)ROOM%LOC%(I)100))::"YOU HAVE "SC%" TREASURE";:SC%1ĺ"S";? " OUT OF "TN%".":SC%0ROOM%3ĺ"BUT YOUR SCOR%(ROOM%,I)0GO%(ROOM%,I)100ĺDIR$(I)" ";2 F: P"<-------------------------------------->";:35,24:34,(37):CL%CL%0::38'-'S Z24: d(A$)40B$A$:A$"":130 nJ4021:(A$,J,1)" "B$(A$,J1):LJ:J2 x B$:(A$)L0Ai 34,0:35,10::A$"YOU ARE "ROOM$(ROOM%)".":100:A$"":I1I%:LOC%(I)ROOM%A$A$LDESC$(I)". " (:A$""ĺ"HERE YOU SEE-":100 2OK%0:I05:OK%OK%GO%(ROOM%,I)::OK%0ĺ"THERE ARE NO OBVIOUS EXITS.":80* <"OBVIOUS EXITS-":I05:GOO **********************= * MATHEMAGICIAN *[ * BY DONALD NUTE *y * COPYRIGHT (C) 1984 * * BY MICROSPARC, INC * * LINCOLN, MA. 01773 * ********************** 3510 SUBROUTINES GO FROM 20 TO 200                         0 L`%G%: NO EDUCATIONAL SUBROUTINE FOR ROOM OR LOCATION NUMBER 3.M%S%Y%_%e%k%q%w%}% %X20R(20):Y30R(20) &"A LOVELY LITTLE FAIRY IS BEING ATTACKED BY "X" RATS AND "Y" BATS. HOW MANY":"NASTIES ARE AFTER ARE FRIGHTENED WHEN THEY SEE YOU AND RUN AWAY, LEAVING THEIR GOLD BEHIND.":$j"NO, "X" PIECES OF GOLD PLUS "Y" PIECES":"MAKES "XY" PIECES OF GOLD. THE LEPRE-":"CHAUNS RUN AWAY WITH THEIR GOLD.":LOC%(1)0:30:$t$~$$$#B"#LX50R(20):Y30R(20)#V"YOU MEET TWO LEPRECHAUNS, EACH WITH A POT OF GOLD. THE FIRST HAS "X" PIECES OF":"GOLD AND THE SECOND HAS "Y" PIECES. HOW":"MANY PIECES DO THEY HAVE BETWEEN THEM?":200U$`ZXYĺ"THAT'S RIGHT. THE LEPRECHAUNS FEET MINUS "Y" FEET, OR "XY" FEET.":""THAT'S RIGHT. YOU DISCOVER A ROPE HANG- ING FROM THE TOP OF THE CLIFF TO THE CAVE BELOW.":RP1:GO%(1,5)17:ROOM$(17)ROOM$(17)". A ROPE HANGS OUTSIDE THE CAVE":GO%(17,4)1:30:"""$".#8 A CAVE IN THE SIDE OF THE CLIFF "Y" FEET FROM THE TOP. HOW FAR":"IS THE CAVE FROM THE BOTTOM OF THE CLIFF?":200&"ZXYĺ"NO, THE HEIGHT OF THE CAVE IS THE HEIGHTOF THE CLIFF MINUS THE DISTANCE FROM THECAVE TO THE TOP OF THE CLIFF. THAT'S "X"VING NUMBER OF TURNS (TURN%) BEFORE RETURNING TO LINE 230?  SPECIAL EDUCATIONAL SUBROUTINE FOR LOCATION N IS LOCATED IN LINES N*100+900 TO N*100+990 230 X100R(50):Y30R(40)y!"IT IS "X" FEET TO THE BOTTOM OF THE":"CLIFF. THERE IS"I DON'T UNDERSTAND '"A$"'.":100:"SOME WORDS I KNOW ARE:":"VERBS:","NOUNS:":"GO","WAND":"GET","WATER":"DROP","VASE":"SEARCH","LADDER":"HELP","CHEST":"OPEN","RING":"BRIDGE","CHASM":"DRINK","GATE"::9909 USE LINES 960-980 FOR ROUTINES INVOLKO%17z:KO%İ30:"YOU FOUND A HIDDEN OBJECT!":960DOK%960n"I DON'T SEE ANYTHING UNUSUAL.":960A$"HELP"ĺHELP$(ROOM%):960A$"SCORE"İ170:960A$"QUIT"İ170:"DO YOU REALLY WANT TO QUIT? ";:B$:B$:B$"Y"960::A$*RLOC%(ITEM%)ROOM%:150:30:"OK":960\(A$"L"(A$,6)"SEARCH"(A$,4)"LOOK")920:OK%0:I05:GO%(ROOM%,I)100GO%(ROOM%,I)GO%(ROOM%,I)100:OK%1f:OK%İ30:"YOU FOUND ANOTHER EXIT!"pKO%0:I1I%:LOC%(I)100ROOM%LOC%(I)ROOM%: ":LOC%(ITEM%)100:30:"OK":960: (A$,4)"DROP"860\*A$"DROP"ĺ"DROP WHAT?":9604((A$,5)"DROP ")950:B$(A$,(A$)5):I1I%:B$SDESC$(I)ITEM%I:II%>:ITEM%0950HLOC%(ITEM%)100ĺ"YOU CAN'T DROP WHAT YOU DON'T HAVE.":960:II%:ITEM%0950XLOC%(ITEM%)ROOM%ĺ"I DON'T SEE WHAT YOU WANT HERE.":960LOC%(NEED%(ITEM%))0ĭLOC%(NEED%(ITEM%))100ĺ"YOU CAN'T.":960 (INV$)(LDESC$(ITEM%))250ĺ"YOU CAN'T CARRY ANY MORE.":960!INV$INV$LDESC$(ITEM%)".)A$(DIR$(I),1)T%GO%(ROOM%,I):GO%1:I5_:GO%(T%0T%100)ĺ"YOU CAN'T GO "A$".":960vGO%ROOM%T%:220ITEM%0:(A$,3)"GET"800A$"GET"ĺ"GET WHAT?":960((A$,4)"GET ")950:B$(A$,(A$)4):I1I%:B$SDESC$(I)ITEM%I$,3)"INV")680:INV$""ĺ"YOU HAVE NOTHING WORTH MENTIONING.":960u"YOU HAVE THE FOLLOWING.":A$INV$:100:960GO%0:(A$,2)"GO"GO%1:T%0:(A$,3,1)" "(A$)4ĺ"GO WHICH DIRECTION?":960+A$(A$,(A$)3(GO%1)):T%0:I05:A$DIR$(IXLOC%(5)100ĺ"YOU HAVE NOTHING TO HOLD IT.":230qbLDESC$(5)"VASE WITH MAGIC WATER IN IT":"OK":150:230wl}v COMMANDS COMMON TO MOST ADVENTURES ARE ANALYZED IN LINES 650-950. LINES 210 AND 220 ARE ALSO COMMON.D(A$"I"(A TOUGH!":230_:(A$"GO CAVE"ROOM%3)(A$"GO DOOR"ROOM%17DR)ROOM%412(ROOM%17):220D(A$"GO ROPE"ROOM%17RP)(A$"GO GATE"ROOM%19GT)ROOM%119(ROOM%19)(ROOM%20):220NA$"GET WATER"660:LOC%(13)ROOM%ĺ"WHAT WATER?":2305D(A$,4)"SWIM"ROOM%9ĺ"YOU DIDN'T BRING YOUR SWIM SUIT.":230}&(A$,4)"JUMP"(A$,5)"CLIMB"ĺ"YOU'LL FALL.":230 0(A$"BREAK CHEST"ROOM%15)(A$"BREAK CASE"ROOM%18)(A$"BREAK DOOR"ROOM%17)(A$"BREAK GATE"ROOM%20)ĺ"OUCH! IT'S TOOARE IN THE COLUMN?":200r5 ZXYĺ"YES, THAT'S CORRECT. THE ANTS PUT DOWN THE KEY AND MARCH OFF.":NEED%(9)0:6 "NO, YOU NEED TO MULTIPLY "X" COLUMNS BY":Y" ANTS IN EACH COLUMN. THE CORRECT AN-":"SWER IS "XY" ANTS.":"THE ANTS CARRY THE KEY AWAYER IS "X" FEET MINUS "Y:"FEET, OR "XY" FEET.":74=4C4I4O4U4o4X5R(4):Y15R(10)5 "A COLUMN OF ANTS MARCHES BY CARRYING A LARGE KEY. THERE ARE "X" ROWS OF ANTS IN":"THE COLUMN AND "Y" ANTS IN EACH ROW.":"HOW MANY ANTS 4 3>3H3R3\!3f'3p-3z3393U3X50R(50):Y30R(20)3"YOU GO UP "X" FEET AND DOWN "Y" FEET.":"HOW MANY FEET HIGHER ARE YOU THAN WHEN YOU STARTED?":2003ZXYĺ"THAT'S RIGHT.":LOC%(8)113:14"THE CORRECT ANSWDOWN TO THE POOL. "X" FEET PLUS "Y:"FEET IS "XY" FEET.":"THE SPRING STOPS FLOWING.":LOC%(13)0:30:m2:s2Dy2N2X2b2l2v222222222222222 22 2*3"POOL. A MAGIC SPRING OF WATER FALLS FROM";p1"THE CEILING TO THE POOL. HOW FAR DOES THE WATER FALL?":2001&ZXYĺ"THAT IS EXACTLY RIGHT.":NEED%(13)5:g20"TO GET THE ANSWER, YOU NEED TO ADD THE DISTANCE UP TO THE CEILING TO THE DIS- TANCE SE, AND THAT'S "XY" FEET.":#0)0/050;0W0X40R(10):Y30R(20),1"THE CEILING OF THIS CAVERN IS "X" FEET":"OVER YOUR HEAD, AND THERE IS A HOLE IN THE FLOOR OF THE CAVERN WITH A POOL AT THE BOTTOM. IT IS "Y" FEET DOWN TO THE":THE CAVERN TO THE DIAMOND?":200/ZXYĺ"BEFORE YOU CAN SAY LONG DIVISION, THE LADDER GROWS TO EXACTLY "XY" FEET!":LDESC$(7)"A LONG LADDER":30:NEED%(6)7:0"NO, YOU MUST ADD THE HEIGHT OF THE BASE TO THE HEIGHT OF THE DIAMOND ABOVE THE BAT. THE STATUE IS OF A GIRL HOLDING A DIAMOND OVER HER HEAD. THE BASE OF THE STATUE IS "X" FEET HIGH":"AND THE DIAMOND IS "Y" FEET ABOVE THE""/"BASE. ON THE FLOOR IS A TINY LADDER. HOWLONG WOULD THE LADDER HAVE TO BE TO REACH FROM THE FLOOR OF SO THE VASE IS "XY:"YEARS OLD. OOPS! YOU KNOCKED IT OFF THE PEDESTAL AND IT BROKE INTO AT LEAST "XY:"PIECES!":LOC%(5)0:30:-h-r-|----X13R(8):Y55R(10)."THIS IS A VERY LARGE ROOM WITH AN ENOR- MOUS STATUE IN ISSAGEON THE PEDESTAL SAYS THE VASE WAS "X:"YEARS OLD WHEN THE LAST UNICORN DIED. THE LAST UNICORN DIED "Y" YEARS AGO. HOW":"OLD IS THE VASE?":200,TZXYĺ"YES, IT'S "XY" YEARS OLD.":-^"NO, TO GET THE AGE OF THE VASE YOU MUST ADD "X" AND "Y",AMONG "X:"GNOMES IS "Y" EMERALDS EACH.":LOC%(4)0:30:"THE GNOMES TAKE THEIR EMERALDS TO LOOK FOR SOMEONE ELSE TO HELP THEM WITH THEIRPROBLEM.":++++"+,+6+@X200R(50):Y350R(50),J"THE VASE IS ON A PEDESTAL, AND A ME(20)*"HERE YOU FIND "X" GNOMES TRYING TO DIVIDE":XY" EMERALDS BETWEEN THEM. THEY ASK YOU":"HOW MANY EMERALDS EACH SHOULD HAVE.":200*ZYĺ"THAT'S RIGHT. THE GNOMES LEAVE ONE EMER-ALD EACH FOR YOU AND LEAVE.":+"NO, "XY" EMERALDS DIVIDED X" MINUS "Y" FEET PLUS TWO FEET":"IS "XY2" FEET TOO SHORT.":)BD1:LDESC$(3)"A LONG BOARD":30:"VERY GOOD, MATHEMAGICIAN! THE BOARD GROWS AND IS NOW LONG ENOUGH TO BRIDGE THE CHASM.":))))))*X5R(4):Y20RASM, THE BOARD WOULD HAVE TO BE TWO FEET LONGER THAN THE CHASM IS WIDE. HOW MUCH TOO SHORT IS THE BOARD?":200@)ZXY2ĺ"NO, YOU NEED TO SUBTRACT THE LENGTH OF THE BOARD FROM THE WIDTH OF THE CHASM AND THEN ADD TWO FEET TO REST ON EACH SIDE. "Y. THE LITTLE FAIRY THANKS YOU, LAYS HER WAND DOWN IN FRONT OF YOU, AND FLIES AWAY.":LOC%(2)4:30:j'<p'Fv'P|'Z'd'n'xX30R(10):Y1R(10)p("THE CHASM IS "X" FEET WIDE AND THE BOARD":"IS ONLY "Y" FEET LONG. TO BRIDGE THE":"CHHER?":200&(ZXYĺ"NO, "X" RATS PLUS "Y" BATS MAKES "XY:"MEAN LITTLE CRITTERS. THE FAIRY FLIES AWAY DOWN THE TUNNEL TO THE WEST WITH ALL THE BATS AND RATS IN PURSUIT. SOME HELP YOU ARE!":d'2"THAT'S RIGHT. YOU SCARE THE BATS AND RATS AWA MINUTE IS 60 SECONDS, DIVIDED BY "X:"SWINGS PER MINUTE IS "60X" SECONDS PER":"SWING. SOMEONE IS PULLING THE CORD UP THROUGH THE HOLE IN THE CEILING! IT'S GONE!":LOC%(18)0:30:Ep Ez E E E E E PROGRAM START-UP(F I05: HANGS FROM A HOLE IN THE CEILING. IT IS SWINGING BACK AND FORTH "X" TIMES EACH":"MINUTE. HOW MANY SECONDS DOES IT TAKE FOR THE RING TO SWING BACK AND FORTH ONCE?":200D\ Z60Xĺ"YES. THE CORD BREAKS AND THE RING FALLS TO THE FLOOR.":Ef "A" FEET.":LDESC$(16)"A WORTHLESS PICTURE":1CD 7CN =CX CCb ICl OCv UC [C aC gC mC sC yC C C C C C C C C C C C* C4 C> CH X2R(4)DR "THE RING IS ATTACHED TO A CORD WHICHE NORTH WALL?":200eB0 ZXYTREASURE%(16)1:"YES, YOU'RE RIGHT. THE PICTURE LOOKS VALUABLE.":+C: "THE LENGTH OF THE NORTH WALL EQUALS THE DISTANCE FROM THE EAST WALL TO THE PIC- TURE PLUS THE DISTANCE FROM THE WEST WALL TO THE PICTURE, OR "XYEARS HE":"LIVED AFTER HE MARRIED. THE GOLDEN MEAN IS "XY".":EA KA QA WA ]A cA }A X20R(9):Y15R(9)B& "THE PICTURE IS ON THE NORTH WALL, "X:"FEET FROM THE EAST WALL AND "Y" FEET":"FROM THE WEST WALL. HOW MANY FEET LONG IS THTH NO WIFE AND "Y" YEARS WITH A WIFE.":"WHAT IS THE GOLDEN MEAN?":200@ ZXYĺ"THAT'S RIGHT. REMEMBER THE GOLDEN MEAN.":GM$(XY):?A "NO. TO DISCOVER THE GOLDEN MEAN, YOU MUST ADD THE "X" YEARS BILDAR LIVED BE-":"FORE HE MARRIED TO THE "Y" YOTAL NUMBER OF BARS, TO GET "XY", THE":"NUMBER OF UNSHARPENED BARS.":N?| T? Z? `? f? l? ? X20R(9):Y40R(9)G@ "THE PLAQUE ON THE WALL SAYS-":"BILDAR THE WISE, WHOSE LIFE REACHED THE GOLDEN MEAN IN YEARS, LIVED "X" YEARS":"WI IT, AND "Y" OF":"THESE HAVE SHARPENED EDGES. HOW MANY OF THE BARS ARE NOT SHARPENED?":200>h ZXYĺ"THAT'S RIGHT, SO BE CAREFUL NOT TO CUT YOURSELF.":KEY1:H?r "NOT SO. YOU NEED TO SUBTRACT "Y", THE":"NUMBER OF SHARPENED BARS, FROM "X",":"THE T{= "YOU MUST ADD THE LENGTH OF THE HILT AND THE LENGTH OF THE BLADE TO GET THE TOTALLENGTH OF "XY" CENTIMETERS.":KN0:= =" =, =6 =@ =J =T X20R(9):Y10R(5)\>^ "THE GATE IS IN THE SOUTH WALL OF THE ROOM. IT HAS "X" BARS INROPE. THERE ARE "XY" KNOTS.":(< .< 4< :< @< F< `< X10R(5):Y25R(7)< "THE HILT OF THE KNIFE IS "X" CENTIMETERS":"LONG AND THE BLADE IS "Y" CENTIMETERS.":"HOW MANY CENTIMETERS LONG IS THE KNIFE?":200= ZXYĺ"GOOD.": JADE STATUE. THE CASE IS BOUND SHUT WITH "X" MAGIC ROPES":"AND EACH ROPE IS TIED WITH "Y" KNOTS.":"HOW MANY MAGIC KNOTS ARE THERE?":200; ZXYĺ"THAT'S VERY GOOD.":KN1:"< "YOU NEED TO MULTIPLY THE NUMBER OF ROPESBY THE NUMBER OF KNOTS IN EACH S RIGHT. THE SMURFS ALL RUN AWAY LAUGHING AND LEAVE THE KEYS BEHIND.":NEED%(12)0::F "NO, "XY" SMURFS DIVIDED INTO "X" TEAMS":"PUTS "Y" SMURFS ON EACH TEAM."::P :Z :d :n :x : : X4R(5):Y4R(5); "IN A CRYSTAL CASE IS A 9( X5R(4):Y11R(8)92 "THERE ARE "XY" SMURFS HERE PLAYING A":"GAME WITH A SET OF KEYS. THE SMURFS ARE DIVIDED INTO "X" TEAMS AND ARE THROWING":"THE KEYS FROM ONE TEAM TO ANOTHER. HOW MANY SMURFS ARE ON EACH TEAM?":200U:< ZYĺ"YES, THAT' DO ALL THE":"RUBIES WEIGH TOGETHER?":200F8 ZXYĺ"VERY GOOD.":8 "NO, "Y" RUBIES TIMES "X" OUNCES EACH IS":XY" OUNCES. OH, NO! A DWARF RAN INTO":"THE ROOM, GRABBED THE RUBIES, AND RAN AWAY!":LOC%(11)0:30:8 8 8 8 8 9"X" ROWS IS":Y" BUTTONS IN EACH ROW.":.7 47 :7 @7 F7 L7 e7 X11R(8):Y6R(6)+8 "THERE ARE "Y" LARGE RUBIES HERE, ALL THE":"SAME SIZE. THERE IS A SCALE AND ONE OF THE RUBIES IS ON THE SCALE. IT WEIGHS "X"OUNCES. HOW MANY OUNCES.":LOC%(9)0:30:6$ 6. $68 *6B 06L 66V P6` X11R(8):Y40R(9)6j "ON THE CHEST ARE "XY" BUTTONS DIVIDED":"INTO "X" ROWS. HOW MANY BUTTONS ARE IN":"EACH ROW?":2006t ZYĺ"THAT'S RIGHT.":SET1:(7~ "NO, "XY" BUTTONS DIVIDED BY ED TO GET, AND IDENTIFICATION AS TREASURE (1 IF YES, 0 IF NO)^UTWO POTS OF GOLD,GOLD,2,0,1{UA FAIRY WAND,WAND,0,0,0UA SHORT BOARD,BOARD,5,0,0UEMERALDS,EMERALDS,6,0,1UA PLAIN POTTERY VASE,VASE,7,0,0UA DIAMOND,DIAMOND,8,6,1VA,0,0,0'TdIN THE RING,0,25,0,0,23,0,0HTnIN THE RING,0,0,0,24,21,0,0NTxTTZT`T=UDATA FOR OBJECT N IS IN LINE 4000+N*10 AND IS IN THE ORDER: LONG DESCRIPTION, SHORT DESCRIPTION, INITIAL LOCATION, NUMBER OF OBJECT, NUMBER OF OBJECT NEED,0WS2IN THE SOUTH END OF A SMALL UNDERGROUND MUSEUM,THE VASE IS THE KEY,18,0,0,0,0,0S<IN THE GATE ROOM,YOU'RE THIRSTY,11,0,0,0,0,0SFIN THE PLAQUE ROOM,0,20,25,0,22,0,0SPIN THE RING,0,0,21,23,0,0,0TZIN THE RING,TRY THE GOLDEN MEAN,22,24,0ID THERE ARE BUTTONS ON THE CHEST,0,0,0,14,0,0URIN THE SCALE ROOM,0,0,17,14,0,0,0RIN A SMALL CAVE WITH A DOOR IN THE WEST END,SOMETIMES WANDS WORK,0,0,0,0,0,0S(IN THE NORTH END OF A SMALL UNDERGROUND MUSEUM,THE WAY OUT IS THE WAY IN,0,0,19,0,0,8,11,0,02QIN A TWISTY MAZE,0,11,10,120,12,0,0ZQIN A TWISTY MAZE,0,12,11,12,13,0,0QIN AN UP-AND-DOWN TUNNEL,0,12,14,0,0,0,0QIN A GIANT ANT HILL,YOU'RE THIRSTY,16,15,0,13,0,0.R IN A ROOM WITH A CHEST. THERE ARE BUTTONS ON THE CHEST,I SANG CAVERN,0,4,0,0,0,0,0XPIN A SMALL GROTTO BESIDE A CHASM,YOU'RE THIRSTY,5,0,0,0,0,0|PIN THE VASE ROOM,0,0,4,8,0,0,0PIN THE STATUE ROOM,0,7,9,10,0,0,0PIN THE SPRING ROOM,THE WATER LOOKS DELICIOUS,0,0,0,8,0,0 QIN A TWISTY MAZE,0,10,120T THE EDGE OF A CLIFF WITH DENSE FOREST ON THREE SIDES,0,2,2,2,0,0,0jO IN A DENSE FOREST,0,2,3,2,1,0,0OIN A DENSE FOREST. THERE IS A CAVE TO THE SOUTH,0,2,2,4,2,0,0OAT THE NORTH END OF A LONG CAVERN,0,3,0,5,7,0,0PAT THE SOUTH END OF A LO3700 CONTAINS NAME OF ADVENTURE, NUMBER OF ROOMS OR LOCATIONS, NUMBER OF OBJECTS, AND NUMBER OF TREASURES. DATA FOR LOCATION N IS FOUND IN LINE 3700+10*N IN THE ORDER: DESCRIPTION; HELP MESSAGE; NEXT ROOM N, E, S, W, U, DNtMATHEMAGICIAN,25,18,10DO~AELLS AND SMALL MAG-ICAL CREATURES. YOU WILL USE YOUR POWERSTO TRY TO WIN THE TREASURES OF THE CAVE."{MBR(X)((1)X)1ML23:4:"PRESS RETURN TO BEGIN ADVENTURE.":16368,0MVX(16384):Y(1):X128āI120::3670M`16368,0:220NjLINE N. YOUHAVE LEARNED THAT NUMBERS HAVE MAGICAL POWERS AND CAN BE USED TO CONTROL THE WORLD AROUND YOU. NOW YOU WILL PUT YOUR POWERS TO THE TEST.":dM8"YOU HAVE COME TO THE CAVE OF THE WEE CREATURES. INSIDE THE CAVE ARE TREASURESGUARDED BY MAGICAL SPSTION.":K$"WHEN ASKED FOR A COMMAND, YOU CAN CHANGELOCATION BY ENTERING JUST THE FIRST LET-TER OF THE DIRECTION YOU WISH TO GO - SAY D FOR DOWN. THIS SAVES TYPING.":24:6:"PRESS RETURN TO CONTINUE. ";:A$:L."YOU ARE AN APPRENTICE MATHEMAGICIAETURN TO CONTINUE. ";:A$: K"SOMETIMES WHEN YOU ENTER A NEW LOCATION YOU MAY BE ASKED A QUESTION. WATCH FOR THESE QUESTIONS AND ANSWER THEM CAREFUL-LY. RIGHT ANSWERS WILL HELP YOU FIND THETREASURES. YOU CAN'T GIVE A COMMAND UN- TIL YOU ANSWER THE QUEETIMES UNCOVER HIDDEN OBJECTS OR GIVEVALUABLE CLUES."jI I1RM%:ROOM$(I),HELP$(I):J05:GO%(I,J)::I I%0āI1I%:LDESC$(I),SDESC$(I),LOC%(I),NEED%(I),TREASURE%(I):II1RM%:HELP$(I)"0"HELP$(I)"OK - HOW?"J:ROOM%1:24:6:"PRESS R YOU WILL ENCOUNTER AND WHICH YOU MAY BE ABLE TO MANIPULATE BY GIVING ME THE RIGHT COMMANDS. BUT MY VOCABULARY ISLIMITED. IF ONE WORD DOESN'T WORK, TRY ANOTHER.":5I "DON'T FORGET TO TRY THE SEARCH AND HELP COMMANDS FROM TIME TO TIME. THEY WILL SOMG "YOU ARE ABOUT TO BEGIN A GREAT ADVEN- TURE. TO PARTICIPATE IN THIS ADVENTURE, YOU MUST GIVE ME COMMANDS OF ONE OR TWO ENGLISH WORDS. I UNDERSTAND GO, HELP, SEARCH, GET, DROP, AND OTHER VERBS. I"H "ALSO KNOW THE NAMES OF SEVERAL OBJECTS WHICHDIR$(I)::NORTH,EAST,SOUTH,WEST,UP,DOWNF A$,RM%,I%,TN%:ROOM$(RM%),GO%(RM%,5),HELP$(RM%),AGAIN%(RM%),LDESC$(I%),SDESC$(I%),LOC%(I%),NEED%(I%),TREASURE%(I%)F ::20((A$)2):A$:13)"BY DONALD NUTE"::"** COPYRIGHT 1984 BY MICROSPARC, INC. **")),(C(15)SP(9))V VL(4)((WV(1)VL(1))C(2)(WV(2)VL(2))C(2)(WV(3)VL(3))C(2))g IC(1)C(3) XL(I)GA(I)IXRDVL(4)(WV(I)VL(I)) SP(I)SP(I)VL(I)T1C(11)XL(I)T1T1 VL(I)VL(I)XL(I)T1  TMTMT1:TM((TMC1)C(10))C(1****** d" n1740:INITIALIZE> x MAIN CALCULATION SUBR SP(1)C(0)SP(1)C(13)SP(2)C(0)SP(2)C(12)SP(3)C(13)180 IC(1)C(3):SP(C(6)I)(C(17)SP(I)C(11)): (00SP(7)),(00SP(8)) (C(0)SP(7)),(C(15)SP(9)) (C(16)SP(8c **********************; * *X * CROSSWIND *u( * BY CARL FIELDS *2 * COPYRIGHT (C) 1984 *< * BY MICROSPARC, INC *F * CONCORD, MA 01742 *P * * Z ****************         !""" ' G$"S"580' 790R OF PLAYERS IS 1, YOU PLAY";& :"AGAINST THE COMPUTER."k& :"IF THE NUMBER OF PLAYERS IS 2, YOU CAN"& :"PLAY AGAINST A FRIEND."& 22:8:"PUSH ANY KEY TO PROCEED"& 20:G$& 580& 24:"ANY KEY TO CONTINUE, S TO START OVER"& G$U CAN PLACE A MARKER. THE X KEY"I%t :"PLACES YOUR MARKER ON THE POST."a%~ 19:16:"HAVE FUN"% 22:8:"PUSH ANY KEY TO PROCEED"% 20:G$% :"IF THE NUMBER OF PLAYERS IS 0, THE"% :"COMPUTER WILL PLAY AGAINST ITSELF."& :"IF THE NUMBE"1$8 :"3-DIMENSIONS. TRY TO GET 4 IN A ROW IN"b$B :"ANY DIRECTION (HORIZONTAL, VERTICAL, OR"$L :"DIAGONAL) ON ANY LAYER OR BETWEEN":$V "LAYERS. THE FIRST ONE TO DO THIS WINS!"$` ::"I,J,K,&M ALLOWS SELECTION OF THE POST" %j :"WHERE YO 1984 MICROSPARC INC. *""#2170B# ABOVE SPEED SHOULD BE 100J#:h#10:13:"3-D FOUR SCORE"z# 12:19:"BY"# 14:9:"LEAH AND RICHARD NEDBAL"# 22:8:"PUSH ANY KEY TO PROCEED":20:G$#$ $. "3-D FOUR SCORE IS LIKE TIC-TAC-TOE IN,1,2,2,0,3,3,3,0,3,2,1,2,1,2,1,0,3,00"zZ075="Z1011E"A%V"LM%(Z,Z1)A%^"Z1e"Zk""S10:S20:PL1:255"BRD%(3,3,3),LM%(75,11),LP%(75,1),OPEN(15)#::5:13:"3-D FOUR SCORE":12:14:"PLEASE WAIT":22:"* COPYRIGHT (C)ARE IN THE COLUMN?":200r5 ZXYĺ"YES, THAT'S CORRECT. THE ANTS PUT DOWN THE KEY AND MARCH OFF.":NEED%(9)0:6 "NO, YOU NEED TO MULTIPLY "X" COLUMNS BY":Y" ANTS IN EACH COLUMN. THE CORRECT AN-":"SWER IS "XY" ANTS.":"THE ANTS CARRY THE KEY AWAYER IS "X" FEET MINUS "Y:"FEET, OR "XY" FEET.":74=4C4I4O4U4o4X5R(4):Y15R(10)5 "A COLUMN OF ANTS MARCHES BY CARRYING A LARGE KEY. THERE ARE "X" ROWS OF ANTS IN":"THE COLUMN AND "Y" ANTS IN EACH ROW.":"HOW MANY ANTS 4 3>3H3R3\!3f'3p-3z3393U3X50R(50):Y30R(20)3"YOU GO UP "X" FEET AND DOWN "Y" FEET.":"HOW MANY FEET HIGHER ARE YOU THAN WHEN YOU STARTED?":2003ZXYĺ"THAT'S RIGHT.":LOC%(8)113:14"THE CORRECT ANSWDOWN TO THE POOL. "X" FEET PLUS "Y:"FEET IS "XY" FEET.":"THE SPRING STOPS FLOWING.":LOC%(13)0:30:m2:s2Dy2N2X2b2l2v222222222222222 22 2*3ROPES,STATUE,18,14,14W6A SMALL KNIFE,KNIFE,19,0,0XW@A SMALL PICTURE,PICTURE,22,0,0sWJA TOPAZ,TOPAZ,124,0,1WTAN ELECTRUM RING,RING,25,0,1W^PUT DATA FOR ADDITIONAL INITIALIZATION ROUTINES HERE. TINY LADDER,LADDER,8,0,08VA SILVER BAR,SILVER,0,0,1TVA LARGE KEY,KEY,14,9,0xVA BLUE SAPPHIRE,SAPPHIRE,0,0,1VSOME RUBIES,RUBIES,16,0,1VA SET OF KEYS,KEYS,17,12,0V"MAGIC WATER,WATER,9,13,0W,JADE STATUE IN CASE BOUND WITH MAGIC VALUE = ";:1350;(IILL(I2)IIUL(I2)TPII:1340T2PX$(15):1720:1270Z<vFNUMERIC INPUT CHK SUBRP2110:SET ONERR ROUTINEZ"";IId216,0:TURN OFF ONERRnxWIND VEL. COMPONENTSWV(1)WV(4)(WV(5)C1):WV(2)WV("WIND VEL. CALCULATED USING ";QT$;"RND";QT$;" OPTION"CNNWV(4)WPX$(11);:1560dNNWV(5)xPX$(12);:15601720:NUMBER INPUT SUBR::"OPTION: CHANGE VALUE OF ";PX$(I2) NNTP:T21"CURRENT VALUE = ";:1560"NEW BW$"RND"İ1150:11400LJ1112:TPWV(J7)9VI2JP`1270:WV(J7)TP:Zj1400et590:{~RANDOM WIND VEL.WV(5)360(2)TP(2):((WV(5)45)(WV(5)135WV(5)225)(WV(5)315))TP.4ī1160WV(4)MV(3)1400T356PL(3):MVPL(4):SP(4)PL(5):SP(5)PL(6):VL(0)PL(7)<690PFL1FL0:990Y590_xNEW VERT. ANG. SUBRT18:I29:TPAV:1270:AVTPNEW AZITH. ANG. SUBRT18:I210:TPAA1270:AATP$.NEW WIND VEL.8:HQQ$"8"İ1450:960#RQQ(QQ$)>\QQ1QQ7700: CHECKUf(QQ(QQ))0690p"ENTER NEW VALUE FOR: ":10);PX$(QQ);35)z1350IILL(QQ)IIUL(QQ)930PX$(15)1720:690PL(QQ)IIRG(3)PL(1):RDPL(2):UNLOAD3IX(4)MV:PL(5)SP(4).PL(6)SP(5):PL(7)VL(0)RI18:" ";I;". "PX$(I);36);gI3ĺ(IX):800y I8ĺW$:800NNPL(I):1560 *::"ENTER NUMBER OF PARAMETER TO BE CHANGED"4"(ZERO FOR NO CHANGES) ";:"";QQ$>QQ$"0"970,140(I04:0,(15I)15,15(15I):OI04:165,(15I)180,15(15I):iJ018015:J,0J,80}J1,36:J1,45:PARAMETER TABLE::14);"PARAMETERS":T38PL(1)RG(3):PL(2)RD:PL(3)IX:LOAD TEMP ARRAYPLC1:AVAVC1U:VL(1)VL(0)(AA)(AV):VL(2)VL(0)(AA)1(AV):VL(3)VL(0)(AV)`D130:pNDRAW FIELDX:3:0,80260,80:180,0180,159b0,1600,0180,0:0,159260,160l260,80260,160:216,155225,155v216,160216,140:225,160225H"İ1590 I$"N"İ1070, I$"E"ĉ::= I$"R"İ590d I$"R"I$"P"I$"N"Ģ23:1720| I$"H"I$"P"İ590 300:END MAIN MENU SET UP MAIN CALC :TM0:WV(2)WV(2) SP(1)110SP(4) &SP(2)SP(5):SP(6)1:SP(3)1 0AAAAAA) TNNWV(4)3 ^"WIND VEL. = ";:(NN);" ";N hWV(1)0WV(1).000001[ rNNWV(5)z |"WIND ANG. = ";:(NN) "ENTER K, V, A, P, N, R, E, OR H (HELP)" I$ I$"K"İ520 I$"V"İ1000 I$"A"İ1030 I$"P"İ690 I$"0) (23):(1):868K PX$(0);TM;:20:PX$(14);:(SP(1)SP(4)C(10))h TMC(11)SP(3)C(1)290q 130 "AAAAC1:AVAVC1:WV(2)WV(2): , COMMAND PROMPT 6:J(0):(21):(1) @"VERT ANGLE = ";:(AV);" "; J"AZITH. ANGLE = ";(S RIGHT. THE SMURFS ALL RUN AWAY LAUGHING AND LEAVE THE KEYS BEHIND.":NEED%(12)0::F "NO, "XY" SMURFS DIVIDED INTO "X" TEAMS":"PUTS "Y" SMURFS ON EACH TEAM."::P :Z :d :n :x : : X4R(5):Y4R(5); "IN A CRYSTAL CASE IS A 9( X5R(4):Y11R(8)92 "THERE ARE "XY" SMURFS HERE PLAYING A":"GAME WITH A SET OF KEYS. THE SMURFS ARE DIVIDED INTO "X" TEAMS AND ARE THROWING":"THE KEYS FROM ONE TEAM TO ANOTHER. HOW MANY SMURFS ARE ON EACH TEAM?":200U:< ZYĺ"YES, THAT' DO ALL THE":"RUBIES WEIGH TOGETHER?":200F8 ZXYĺ"VERY GOOD.":8 "NO, "Y" RUBIES TIMES "X" OUNCES EACH IS":XY" OUNCES. OH, NO! A DWARF RAN INTO":"THE ROOM, GRABBED THE RUBIES, AND RAN AWAY!":LOC%(11)0:30:8 8 8 8 8 9"X" ROWS IS":Y" BUTTONS IN EACH ROW.":.7 47 :7 @7 F7 L7 e7 X11R(8):Y6R(6)+8 "THERE ARE "Y" LARGE RUBIES HERE, ALL THE":"SAME SIZE. THERE IS A SCALE AND ONE OF THE RUBIES IS ON THE SCALE. IT WEIGHS "X"OUNCES. HOW MANY OUNCES.":LOC%(9)0:30:6$ 6. $68 *6B 06L 66V P6` X11R(8):Y40R(9)6j "ON THE CHEST ARE "XY" BUTTONS DIVIDED":"INTO "X" ROWS. HOW MANY BUTTONS ARE IN":"EACH ROW?":2006t ZYĺ"THAT'S RIGHT.":SET1:(7~ "NO, "XY" BUTTONS DIVIDED BY 4)(WV(5)C1).WV(5)180WV(5)360WV(5)NWV(5)180WV(5)360WV(5)TuCHG. WIND VEL. SELECT. OPT.}:"CURRENT WIND VEL. SELECT MODE IS ";QT$;W$;QT$"DO YOU WANT TO CHANGE?""";I$(I$,1)"N"1550(I$,1)"YETIMES UNCOVER HIDDEN OBJECTS OR GIVEVALUABLE CLUES."jI I1RM%:ROOM$(I),HELP$(I):J05:GO%(I,J)::I I%0āI1I%:LDESC$(I),SDESC$(I),LOC%(I),NEED%(I),TREASURE%(I):II1RM%:HELP$(I)"0"HELP$(I)"OK - HOW?"J:ROOM%1:24:6:"PRESS R YOU WILL ENCOUNTER AND WHICH YOU MAY BE ABLE TO MANIPULATE BY GIVING ME THE RIGHT COMMANDS. BUT MY VOCABULARY ISLIMITED. IF ONE WORD DOESN'T WORK, TRY ANOTHER.":5I "DON'T FORGET TO TRY THE SEARCH AND HELP COMMANDS FROM TIME TO TIME. THEY WILL SOMG "YOU ARE ABOUT TO BEGIN A GREAT ADVEN- TURE. TO PARTICIPATE IN THIS ADVENTURE, YOU MUST GIVE ME COMMANDS OF ONE OR TWO ENGLISH WORDS. I UNDERSTAND GO, HELP, SEARCH, GET, DROP, AND OTHER VERBS. I"H "ALSO KNOW THE NAMES OF SEVERAL OBJECTS WHICHDIR$(I)::NORTH,EAST,SOUTH,WEST,UP,DOWNF A$,RM%,I%,TN%:ROOM$(RM%),GO%(RM%,5),HELP$(RM%),AGAIN%(RM%),LDESC$(I%),SDESC$(I%),LOC%(I%),NEED%(I%),TREASURE%(I%)F ::20((A$)2):A$:13)"BY DONALD NUTE"::"** COPYRIGHT 1984 BY MICROSPARC, INC. **" MINUTE IS 60 SECONDS, DIVIDED BY "X:"SWINGS PER MINUTE IS "60X" SECONDS PER":"SWING. SOMEONE IS PULLING THE CORD UP THROUGH THE HOLE IN THE CEILING! IT'S GONE!":LOC%(18)0:30:Ep Ez E E E E E PROGRAM START-UP(F I05: HANGS FROM A HOLE IN THE CEILING. IT IS SWINGING BACK AND FORTH "X" TIMES EACH":"MINUTE. HOW MANY SECONDS DOES IT TAKE FOR THE RING TO SWING BACK AND FORTH ONCE?":200D\ Z60Xĺ"YES. THE CORD BREAKS AND THE RING FALLS TO THE FLOOR.":Ef "A" FEET.":LDESC$(16)"A WORTHLESS PICTURE":1CD 7CN =CX CCb ICl OCv UC [C aC gC mC sC yC C C C C C C C C C C C* C4 C> CH X2R(4)DR "THE RING IS ATTACHED TO A CORD WHICHE NORTH WALL?":200eB0 ZXYTREASURE%(16)1:"YES, YOU'RE RIGHT. THE PICTURE LOOKS VALUABLE.":+C: "THE LENGTH OF THE NORTH WALL EQUALS THE DISTANCE FROM THE EAST WALL TO THE PIC- TURE PLUS THE DISTANCE FROM THE WEST WALL TO THE PICTURE, OR "XYEARS HE":"LIVED AFTER HE MARRIED. THE GOLDEN MEAN IS "XY".":EA KA QA WA ]A cA }A X20R(9):Y15R(9)B& "THE PICTURE IS ON THE NORTH WALL, "X:"FEET FROM THE EAST WALL AND "Y" FEET":"FROM THE WEST WALL. HOW MANY FEET LONG IS THTH NO WIFE AND "Y" YEARS WITH A WIFE.":"WHAT IS THE GOLDEN MEAN?":200@ ZXYĺ"THAT'S RIGHT. REMEMBER THE GOLDEN MEAN.":GM$(XY):?A "NO. TO DISCOVER THE GOLDEN MEAN, YOU MUST ADD THE "X" YEARS BILDAR LIVED BE-":"FORE HE MARRIED TO THE "Y" YOTAL NUMBER OF BARS, TO GET "XY", THE":"NUMBER OF UNSHARPENED BARS.":N?| T? Z? `? f? l? ? X20R(9):Y40R(9)G@ "THE PLAQUE ON THE WALL SAYS-":"BILDAR THE WISE, WHOSE LIFE REACHED THE GOLDEN MEAN IN YEARS, LIVED "X" YEARS":"WI IT, AND "Y" OF":"THESE HAVE SHARPENED EDGES. HOW MANY OF THE BARS ARE NOT SHARPENED?":200>h ZXYĺ"THAT'S RIGHT, SO BE CAREFUL NOT TO CUT YOURSELF.":KEY1:H?r "NOT SO. YOU NEED TO SUBTRACT "Y", THE":"NUMBER OF SHARPENED BARS, FROM "X",":"THE T{= "YOU MUST ADD THE LENGTH OF THE HILT AND THE LENGTH OF THE BLADE TO GET THE TOTALLENGTH OF "XY" CENTIMETERS.":KN0:= =" =, =6 =@ =J =T X20R(9):Y10R(5)\>^ "THE GATE IS IN THE SOUTH WALL OF THE ROOM. IT HAS "X" BARS INROPE. THERE ARE "XY" KNOTS.":(< .< 4< :< @< F< `< X10R(5):Y25R(7)< "THE HILT OF THE KNIFE IS "X" CENTIMETERS":"LONG AND THE BLADE IS "Y" CENTIMETERS.":"HOW MANY CENTIMETERS LONG IS THE KNIFE?":200= ZXYĺ"GOOD.": JADE STATUE. THE CASE IS BOUND SHUT WITH "X" MAGIC ROPES":"AND EACH ROPE IS TIED WITH "Y" KNOTS.":"HOW MANY MAGIC KNOTS ARE THERE?":200; ZXYĺ"THAT'S VERY GOOD.":KN1:"< "YOU NEED TO MULTIPLY THE NUMBER OF ROPESBY THE NUMBER OF KNOTS IN EACH *:"PRESS ANY KEY TO CONTINUE";:QX$::INITIALIZED::O16385~SP(9),WV(5),XL(3),VL(4),RG(3),GA(3),C(17)I46:SP(I):50,27,0RD1.0:IX0.012:AV45.I017:C(I): 0,1,2,3,4,5,6,7,8,9,10,.5,53,120,110,159,26"V - CHANGE VERT. ANGLE":h"A - CHANGE AZIMUTHAL ANGLE"[r"P - GO TO PARAMETER TABLE"z|"N - NEW WIND CONDITIONS"" (SELECTION MODE FROM PARM. LIST)""R - REDRAWS FIELD""E - END""H - PRINTS THIS MESSAGE "PAUSE"15301450-W$"RND"W$"INP":1550:W$"RND"@YDEC. PT. PRINT SUBR"P$(((NN.005))"."((((NN100)100.5)),2),100):36,T(P$):P$,6HELP SUBR@:J12)"MAIN MENU OPTIONS:":T"K - KICK FOOTBALL"^,0,0,0'TdIN THE RING,0,25,0,0,23,0,0HTnIN THE RING,0,0,0,24,21,0,0NTxTTZT`T=UDATA FOR OBJECT N IS IN LINE 4000+N*10 AND IS IN THE ORDER: LONG DESCRIPTION, SHORT DESCRIPTION, INITIAL LOCATION, NUMBER OF OBJECT, NUMBER OF OBJECT NEED,0WS2IN THE SOUTH END OF A SMALL UNDERGROUND MUSEUM,THE VASE IS THE KEY,18,0,0,0,0,0S<IN THE GATE ROOM,YOU'RE THIRSTY,11,0,0,0,0,0SFIN THE PLAQUE ROOM,0,20,25,0,22,0,0SPIN THE RING,0,0,21,23,0,0,0TZIN THE RING,TRY THE GOLDEN MEAN,22,24,0ID THERE ARE BUTTONS ON THE CHEST,0,0,0,14,0,0URIN THE SCALE ROOM,0,0,17,14,0,0,0RIN A SMALL CAVE WITH A DOOR IN THE WEST END,SOMETIMES WANDS WORK,0,0,0,0,0,0S(IN THE NORTH END OF A SMALL UNDERGROUND MUSEUM,THE WAY OUT IS THE WAY IN,0,0,19,0,0,8,11,0,02QIN A TWISTY MAZE,0,11,10,120,12,0,0ZQIN A TWISTY MAZE,0,12,11,12,13,0,0QIN AN UP-AND-DOWN TUNNEL,0,12,14,0,0,0,0QIN A GIANT ANT HILL,YOU'RE THIRSTY,16,15,0,13,0,0.R IN A ROOM WITH A CHEST. THERE ARE BUTTONS ON THE CHEST,I SANG CAVERN,0,4,0,0,0,0,0XPIN A SMALL GROTTO BESIDE A CHASM,YOU'RE THIRSTY,5,0,0,0,0,0|PIN THE VASE ROOM,0,0,4,8,0,0,0PIN THE STATUE ROOM,0,7,9,10,0,0,0PIN THE SPRING ROOM,THE WATER LOOKS DELICIOUS,0,0,0,8,0,0 QIN A TWISTY MAZE,0,10,120T THE EDGE OF A CLIFF WITH DENSE FOREST ON THREE SIDES,0,2,2,2,0,0,0jO IN A DENSE FOREST,0,2,3,2,1,0,0OIN A DENSE FOREST. THERE IS A CAVE TO THE SOUTH,0,2,2,4,2,0,0OAT THE NORTH END OF A LONG CAVERN,0,3,0,5,7,0,0PAT THE SOUTH END OF A LO3700 CONTAINS NAME OF ADVENTURE, NUMBER OF ROOMS OR LOCATIONS, NUMBER OF OBJECTS, AND NUMBER OF TREASURES. DATA FOR LOCATION N IS FOUND IN LINE 3700+10*N IN THE ORDER: DESCRIPTION; HELP MESSAGE; NEXT ROOM N, E, S, W, U, DNtMATHEMAGICIAN,25,18,10DO~AELLS AND SMALL MAG-ICAL CREATURES. YOU WILL USE YOUR POWERSTO TRY TO WIN THE TREASURES OF THE CAVE."{MBR(X)((1)X)1ML23:4:"PRESS RETURN TO BEGIN ADVENTURE.":16368,0MVX(16384):Y(1):X128āI120::3670M`16368,0:220NjLINE N. YOUHAVE LEARNED THAT NUMBERS HAVE MAGICAL POWERS AND CAN BE USED TO CONTROL THE WORLD AROUND YOU. NOW YOU WILL PUT YOUR POWERS TO THE TEST.":dM8"YOU HAVE COME TO THE CAVE OF THE WEE CREATURES. INSIDE THE CAVE ARE TREASURESGUARDED BY MAGICAL SPSTION.":K$"WHEN ASKED FOR A COMMAND, YOU CAN CHANGELOCATION BY ENTERING JUST THE FIRST LET-TER OF THE DIRECTION YOU WISH TO GO - SAY D FOR DOWN. THIS SAVES TYPING.":24:6:"PRESS RETURN TO CONTINUE. ";:A$:L."YOU ARE AN APPRENTICE MATHEMAGICIAETURN TO CONTINUE. ";:A$: K"SOMETIMES WHEN YOU ENTER A NEW LOCATION YOU MAY BE ASKED A QUESTION. WATCH FOR THESE QUESTIONS AND ANSWER THEM CAREFUL-LY. RIGHT ANSWERS WILL HELP YOU FIND THETREASURES. YOU CAN'T GIVE A COMMAND UN- TIL YOU ANSWER THE QUEaL Iii8?x8өii8`"