' +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 ~(` i d ֠z# u`17:C0 x(1)279,(1)191(1)279,(1)1918 :T I17:6,I:768:160:b ::23: :23:"PRESS RETURN TO CONTINUE ";:16368,0:A$: "ERROR WHILE LOADING 'FLASH'": **********************9* FLASH.DEMO *U* BY PHIL GOETZ *q(* COPYRIGHT(C) 1988 *2* MICROSPARC, INC. *<* CONCORD, MA 01742 *F**********************P170Z(4)"BLOAD FLASH,A$300"d nI15:C\(+14i HL%T.YȩY(+14(`U*ժ*U..:","THREES:","FOURS.:","FIVES.:","SIXES.:","SMALL RUN..:","LARGE RUN..:","THREE DICER:","FOUR DICER.:","FIVER DICER:","THREE & TWO:","POT LUCK...:"" "M$" O "M$" ":DP$(2)"O "M$" "M$" O":DP$(3)" O"M$" O "M$"O ":DICE PICTURE STRINGS#DP$(4)"O O"M$" "M$"O O":DP$(5)"O O"M$" O "M$"O O":DP$(6)"O O"M$"O O"M$"O O":3 CHARS. BETWEEN ""#170$""ONES..:","TWOS35,11:::13:958:ERASE ALL BUT HEADING\"24:X111::: PUT HEADING BACK AT VTAB 1b"w"** VARIABLES **"KB49152:CL49168:BZ49200:SC$(13,1),D(4,1),DP$(6),NM$(1),T(1),FL(13)"X113:SC$(X,0):SC$(X,1)SC$(X,0):l#M$(13):DP$(1)BOTH SCORECARDSG!X01:X$NM$(X)"'S TOTAL: "(T(X)):X122:30:]!3:T(1)T(0)Ģ15!32,37:33,3:::" W I N N E R ! ":1 SPACE ON EACH END; 2 BETWEEN LETTERS!:!24:"PLAY ANOTHER GAME? (Y/N) ";:100:X$"N"X$"n"İ50:+"1:255:610:NEXT PLAYER'S TURN8 x** END OF GAME ** X019:1448X,(1024X):1024X,160:1487X,(1063X):1063X,160::MOVE HEADING TO VTAB 12!X16:3X:SC$(X,0),SC$(X6,0):15X:SC$(X,1),SC$(X6,1)::,SC$(13,1):10:,SC$(13,0):DRAW CK!<* NO AVAILABLE CATAGORY *RFCT16:FL(CT)01380:USE UP SINGLES FIRSTP:CT1111:FL(CT)01380:BEFORE USING UP THE OTHERSZ:CT13:ONLY POT LUCK LEFTd570:X113:(SC$(X,0),1)":"FL(X)0:CLEAR TEMPORARY FLAGS! n:FL(CT):868:440:890:RE-ROLL DICEA** END OF COMPUTER'S TURN **^CT113:FL(CT)0İ570 :CT1271:FL(CT)01380:SEARCH FOR CATAGORY:X521:CT16FL(CT)XCT1380:TEST SINGLES(:2FL(13)15CT13:1380:TEST POT LU1)4D(0,1)0:D(1,1)0:1220:ROLLED 12456 KD(1,1)1D(2,1)D(1,1)0jD(4,1)1D(3,1)D(4,1)0** SEPARATE KEEPERS/TRASH **Y0X04:D(X,1)D(Y,0)D(X,1)0:1250".";::D(Y,0)0YY1:Y5123011:1:868::868:20:KEEP ONLY ONE PAIR-`* REDO ALL DICE *OjX04:D(X,0)0:".";::1220ht** TRY FOR A RUN **~X03:D(X,1)D(X1,1)D(X,1)0:FIND DUPLICATE DICE".";::490:D(0,1)01190D(2,1)3D(3,1)0:D(4,1)0:1220:ROLLED 12356,D(2,".";::D1(FL(D(2,1))0FL(9)0FL(10)0FL(11)0)1220:GO FOR SINGLES, 3,4, OR 5 DICER$D11130:CAN'T USE THESE DICE.FL(D(3,1))0YD(3,1):11008FL(D(1,1))01130:CAN'T USE THESEBYD(1,1)LX04:D(X,1)YD(X,1)0V:12R1:1150:TRY FOR RUN/* GO FOR A DICER *fX13:D(X,1)D(X1,1)D(X,1)D(X1,1)D(X,1)0".";::D(0,1)D(1,1)D(0,1)0D(4,1)D(3,1)D(4,1)0:FIND NON-PAIRED DICEFL(12)01220:GO FOR 3&2D0:X04:D(X,1)0DD1\0FL(7)0CT7:1380:SCORE SM. RUN IF LG. RUN IS USEDe".";:FL(8)0CT8:1380:SCORE A LG. RUN *POTENTIAL RUN OR DICER *D0:R0:X03:D(X,1)1D(X1,1)RR1:RUN??D(X,1)D(X1,1)DD1:DICER??".";::RD(FL(7)0FL(8)0):SUM OF DICE(p** COMPUTER'S TURN **nz220:11:X$"THINKING":30:ZZ1:Z01280:ALLOWS FOR 2 RE-ROLLS12:CT712:FL(CT)0İ570".";::FL(11)0CT11:1380:SCORE A 5 DICER".";:FL(12)0CT12:1380:SCORE A 3&26".";:FL(8)X04:XX04:D(X,0)D(XX,0)YY1? ::Y1SC(CT6)10E*]4 ** THREE & TWO **>D(0,1)D(1,1)D(1,1)D(2,1)D(3,1)D(4,1)SC40:HD(4,1)D(3,1)D(3,1)D(2,1)D(1,1)D(0,1)SC40R\ ** POT LUCK ** fX04:SCSCD(X,0)::Y3:CT8Y4:SET COUNTERFX03:D(X,1)1D(X1,1)YY1:740}D(X,1)D(X1,1)(X1X2)YY1:NOT IN SEQUENCE:Y0ı: NEITHER RUNSC30:CT8SC40 ** 3,4,& 5 DICERS ** Y25:CT11Y17:CT9Y11:SET COUNTER%I11000::HIGHLIGHT SELECTIONNY1115:Y:868::::RESTORE SELECTION~13:70:X04:D(X,0)0::CLEAR DICE ARRAY250:NEXT PLAYER** SCORING TESTS **X04:D(X,0)CTSCSCCT::1'S TO 6'S ** LARGE & SMALL RUN **30,8706NPL0OP1FL(CT)SC::FOR COMPUTER'S TURNRX** ADD TO SCORECARD **wbSC10SC$(CT,PL)SC$(CT,PL)" "lSC$(CT,PL)SC$(CT,PL)(SC):T(PL)T(PL)SC:ADD SCORE TO SCORECARD AND TOTALv:X12:16CT6(CT6):516(CT6):SC$(CT,PL):96X123)64:X1X13520|(SC$(X,PL),1)":"Ģ11:X$"CATAGORIES CANNOT BE RE-USED":30::X$"SELECT ANOTHER":30:530&CTX:GET CATAGORY # FOR SCORE-TEST0** SCORING **:SC0:CT7İ680:590:SINGLES COLUMNDCT6710,710,780,780,780,8Y03:D(Y,1)D(Y1,1)Ă::32,0:241,SP:eXD(Y,1):D(Y,1)D(Y1,1):D(Y1,1)X:490:SORT DICE** PLAYER'S SCORING **10::X$"WHICH CATAGORY DO YOU CHOOSE":30::X$"FOR THIS TURN?":30::X$"(A-M) ":3015:24:X$:X(X$):XX32(XDICE *JX04:D(X,0)0Ģ5:Y13:8X3:" "::3 SPACES BETWEEN ""Po** ROLL/DRAW/SORT DICE **SP(241):220::X04:D(X,0)0D(X,0)((1)61):Y09:YY(BZ)::ROLL32,X82:5:DP$(D(X,0)):D(X,1)D(X,0)::32,0::DRAW-,5 OR 'RETURN'X13410oXX49:Y19238X:X((Y)128)12849X:Y,X:380:POKE FLASH/NORMAL TO SCREENX04:(19238X)128D(X,0)0:IF INVERSE THEN RE-ROLL:7::868:X1115:X:868::GET RID OF DIRECTIONS* ERASE UNWANTED 1-5 TOGGLE ";::"ROLL";::" / KEEP ":h:"INVERSE";::" #'S INDICATE DICE TO BE ROLLED":::"RETURN";::" RE-ROLLS THE SELECTED DICE"r8:X04:X84:X1;::NUMBER THE DICE|CL,0:KB,128:X(KB)128:X13(X49X53)380:ONLY 1,2,3,4868:Z3:470:890:COMPUTER'S TURN=,** PLAYER'S TURN **W66:868:13:868:1@470:330:330:520:ALLOWS FOR 2 RE-ROLLSJ11:X$"ROLL DICE AGAIN?":30::17:"(Y/N) ";:100:X$"N"X$"n"ġ:520T** PLAYER RE-ROLL **(^10::"KEYS 1410:ONLY 13 ROUNDS PER PLAYER? X$NM$(PL)"'S TURN":6:30n X019:3:X21:"+-":9:39X2:"-+": 17:X16:"<"(X64)"> "SC$(X,PL),"<"(X70)"> "SC$(X6,PL)::," "SC$(13,PL):24:"PLAYER: "NM$(PL);:DRAW SCORECARD$"PL0OPĢ5::LE II":OP1:210H X01:"ENTER NAME OF PLAYER #"X1;:": ";NM$(X): :"PLAYER TO GO FIRST? (1 OR 2)":"1) "NM$(0):"2) "NM$(1):(37)2:30 X$:PL0:X$"1"PL1:250 X$"2"220 ** MAIN LOOP ** 50:X(0):PLPL:RDRD1:RD26, INC.":308 KB49152:23:70:1520:INIT. VARIABLESy X012:1024X,32:1063X,32::DRAW INVERSE LINE AT VTAB 1 34,1:50:X$"PLAY AGAINST COMPUTER?":5:30:17:"(Y/N) "; 100:X$:8:X$"Y"X$"y"Ą"ENTER YOUR NAME: ";NM$(1):NM$(0)"APP210:X525:1:X4:" DICER";:40X:"FIVER ";::255:20:"--":MOVING TITLE 7:X$"A GAME OF LUCK AND SKILL":30:X$"IN WHICH YOU MATCH WITS":30:X$"WITH YOUR COMPUTER":30 12:X$"BY DAVID KALLAS":30:X$"COPYRIGHT (C) 1988":30:X$"MICROSPARC* $)(((( .**111 !$<88 633 $!!!!!!???*-- $ 06)- $$<(-5 $$$$  $$$$*--$$$$ 6666$$$$2111!66668 $$!)-*26>:*- 6$$$$---26;?7  #$,((5116>;*%1)$$$$---2>:?7 )*20)-- $;?? $)--2 !$$$---8 $$, 166>:*-  $$ 66>::3) $$$$ 6666(((* ?<L_u"/?Tgy%8<5>2 -$$$((511>?? 6.$$$$$---26;?7*-%16$$ --2-%1$$$$--66*- $$$$---?7*--$$$$---?7  #$,((-*- $?$$$$*-%6666-$$$$?5-  CNh(-*-6616>26??:??8?8 $$$ $$)(-( 6$$1663;?'##$$!)--:::::: 66??8 $,((-596? $)-888(((0-?;-))?;?;-))?;-09"+-26;? $)      ] LHHH *IGI! ,0GLBX hh(`  ( PMİ3170& PMPM0:YES1,& YES35905& 650?& 1500I& 1730S& 3000]& 3510h&::7r&3100&::10:"THANK YOU FOR PLAYING"&$::17:" ZAPZ "::22:&. DISK ERROR."9%R "ZAPZ CANNOT FIND THE FILES IT NEEDS."`%\ "PLEASE INSERT THE ZAPZ DISK AND"v%f "PRESS ANY KEY."~%p A$%z % % 3500% "ERROR #";K;" IN LINE ";(218)256(219);"."% :"ZAPZ HAS TERMINATED ABNORMALLY.":% 390 & $ K(222)$ ::%$ K2553320/$ 3380W$ 11:7:"YOU HAVE ABORTED THIS GAMEz$ 7:" BY PRESSING CONTROL-C."$ 23:"PRESS RETURN TO CONTINUE ";:16368,0:A$$ 54915$ 3510$* 3500$4 K6K83400$> 3480 %H "THERE HAS BEEN AON ***":#0 K01<#: 5:PL$(K);:(DOTS$,27(PL$(K)));U#D (" "(WN(K)),3)\#N Kb#X #b ::12:"WOULD YOU LIKE TO PLAY ";#l AGAIN3200#v 3220# T$"AGAIN"# 3230# T$"ZAPZ":AGAIN1# 330# X(0)# # 3280# " 9:(21(WN$)2)::WN$:?" 11:18:"WINS!!":SND,SF3m" WINNER(TT4):WN(WINNER)WN(WINNER)1:15w" 3100" 23:1:"PRESS RETURN TO CONTINUE ";:16368,0:A$" " DOTS$"...........................":"27 PERIODS" #& 12:"*** GAMES W3SX(TX),SY(TY)-! B(TX,TY)(B(TX,TY)1)13! C! I1600:I! WN$PL$(TT4):WD(WN$)8:B$"++++++++++++++++++++++++++++++++++++++++":"40 PLUS SIGNS"! ::LN713:LN:(21(WD2)):(B$,WD):LN! LN812:LN:(21(WD2))1:WD2);:LNZQUIT2870  TXAX) " B(AX,TY)028703 , 2820= 6 2940R @ DY(ZD2)(ZD4)r J AYTYDY:ZQUIT(AY0AYSZ) T ZQUIT2940 ^ TYAY h B(TX,AY)02940 r 2890 | TTB(TX,TY) 16(B(TX,TY)2):3SX(TX),SY(TY)! 16(B(TX,TY)1):TT5) ZQUIT2760C ZXTX:ZYTY:ZDRF(ZD,B(TX,TY)):SND,SF5U RRTRUE2740_ 2750i 2960s 2580 SND,7SF((TT0)(TXZXTYZY))  TT0 ZD1ZD32810 2880 DX(ZD1)(ZD3) AXTXDX:ZQUIT(AX0AXSZ)  ,PC((PL),1))) TXPC(PL,0):TYPC(PL,1)5 ZQUIT0? 2780H( 160h2 TT2((TXZXTYZY))2630r< 2700F B(TX,TY)0P TT1SX(TX),SY(TY)Z EX89d EXSX(TX),SY(TY):EXSX(TX),SY(TY)n EX:SND,SF4x ZQUIT1 KILL(TT4ROW 2530$ DX(CXPC(PL,0))? COLPC(PL,0)CXDXDX~ 5PLSX(COL),SY(CY):5PLSX(COLDX),SY(CY):SND,SF1 COL B(PC(PL,0),PC(PL,1))0:B(CX,CY)4PL:PC(PL,0)CX:PC(PL,1)CY  ZXPC(PL,0):ZYPC(PL,1)  ZDAR(PC((PL),0)ER((DX)3(DY)3)"$ ER2360,. 2380<8 CXNX:CYNYFB 2390TL SND,SF6^V 1960d` kj 0t CXPC(PL,0)2440~ 2490 DY(CYPC(PL,1)) ROWPC(PL,1)CYDYDY 5PLSX(CX),SY(ROW):5PLSX(CX),SY(ROWDY):SND,SF1 L,1)))2400SND,SF6#2390[NXCX((A$RT$)(A$LF$)):NYCY((A$DN$)(A$UP$))zER(NX0NXSZNY0NYSZ)ER23102340 ERER((B(NX,NY)0)(B(NX,NY)(4PL))) DX(PC(PL,0)NX):DY(PC(PL,1)NY):ERER(DX0DY0) ERIS GAME"330 %*YES2110/42140:>54915DH3510NR2150i\GMODE,0:FULL,0:P1,0sf2210pA$(83)A$(115)2180z2200SFSF2210SND,SF61960A$RN$22402270 ((CXPC(PL,0))(CYPC(P,SY(CY):1SX(CX),SY(CY))A(RDKY):A1282000D1960vKCLR,0:A$(A128):A$((A$)32(A$(95)))A$UP$A$DN$A$RT$A$LF$A$RN$2220A$(27)20402160::128:" DO YOU REALLY WANT" 8:T$"TO END THN181191:0,LN279,LN:LNS0NM$PL$(PL)"@S TURN":NR140(9((NM$)2)):NR,191d:NC1(NM$)yDA((NM$,NC,1))NA64A901890X1910bA28l1920vAA63A:29NCCXPC(PL,0):CYPC(PL,1):233,81SX(CX)1680 0:5((BXBY)0)X,Y(BY0BX^PC(0,0)0:PC(0,1)0:PC(1,0)SZ:PC(1,1)SZvB(0,0)4:B(SZ,SZ)5|PL((1)2)KILL01830195024102550KILL1820PL(PL)1750&0:233,9:0:LAR((1)4):AR16:2X,Y:AR(BX,BY)AR19,B(BX,BY)0\6(BXBY)1(BXBY)2SZ11610f@1650xJ(1)PB1630T1650^R((1)2):T(((1)PF100)3):R16:TX,YhBTR(T4):BB(B6):B(BX,BY)B2r(BXBY)0(BXBY)2SZ1670|A$(110)148014907RRFALSE:ERFALSE:IN$"NO"=X:FULL,0:3:1:233,8QX1399SZ:QY909SZ:PB0.10D100A(78):AA1:I0A:X(1):I:202,A:X(1)BX0SZBY0SZXSX(BX):YSY(BY)0:1X,Y:SND,SF8*"ERFALSE1330(1340.2DK:IN$(D)4<DFK((IN$))WPER(K0K100)jZERFALSE1390td1400nPFK:IN$(PF)xA$(IN$,1):ERTRUEA$"Y"A$(121)14401460RRTRUE:ERFALSE:IN$"YES"1490A$"N"NC,1)):A95AA32-~(A65)(A90)117071180FA$A$(A)NNC`(A$)01210j1220PL$(CL1)A$:ERFALSEK((IN$))ER(K6K10)ER12701280SZK1:IN$(K) K((IN$))ER(K0K20)$A$(13)İ1100:<.L10ĺA$;:IN$IN$A$:LL1:1100M8L10Č768,9WB1050LCV(37):CH(36):15:1:39);:CV1:CH1:VNG(A$"!"A$(122))((CL1CL2)((A$"A")A$"Z"A$(97))):`ERTRUE:A$""jNC1(IN$)tA((IN$,760CL700MCLMT1:1::40);:CLMT1:1:CP$(CL);i40(DF$(CL)):DF$(CL)oy868IN$"":L0:CV(37):CH(36):15:1:"PRESS RETURN TO RESTORE FORMER ENTRY";:CV1:CH1A$:A$(13)İ1110:NGČ768,9:1050ERTRUE840>900@HMT1:8::" INPUT ERROR - TRY AGAIN";PR:SND,SF6\23:1:"PRESS RETURN TO CONTINUE ";:16368,0:A$:1:39)fMT1:8:25);p1000z920DF$(CL)IN$1000950ERFALSE1000ER970T:T$" ARE THESE OPTIONS CORRECT"-330>MT:1:868KYES990sMT:1:868:(21(MT$)2)::MT$CL1CPCLMT1:1::CP$(CL);:CLMT1:30 1030(IN$)0810 930*CL1120,1120,1230,1290,1350,1410 42):SZ(DF$(3))1:D(DF$(4)):PF50:RRFALSE:SFTRUEYbD$"BLOAD ZAPZ.SHP,A$800":232,0xlD$"BLOAD ZFONT.SHP,A$900"vD$"BLOAD ZAPZ.SND"::17::" Z A P Z ":3:10:"(C)1988 MICROSPARC, INC."CL1CP1000CL$M "PLAYER 1","ALPHA". "PLAYER 2","BETA"K &"BOARD SIZE (6-10)","8"o 0"OBSTACLE DENSITY (0-20)","10" :"CHANCE OF REFLECTOR (0-100)","50" D"ROTATING REFLECTORS? (Y/N)","NO" NMT$" *** GAME SETUP *** ":MT54XPL$(0)DF$(1):PL$(1)DF$(34:KCLR49168:RDKY49152:SND768& G J12:I14:RF(I,J):I:J\ 4,3,2,1,2,1,4,3{ (64899)(64898)264490 510 UP$"I":RT$"K":DN$"M":LF$"J" 520 UP$(11):RT$(21):DN$(10):LF$(8) CP6:I1CP:CP$(I),DF$(I):IA$"Y"A$"y"A$"N"A$"n"370) h340E rYES((A$"Y")(A$"y"))K |u D$(4):RN$(13):FALSE0:TRUEFALSE PL$(1),B(9,9),AR(9,9),PC(1,1),RF(4,2),CP$(10),DF$(10),WN(1) SX(X)QXX18 SY(Y)QYY18 GMODE49232:P149236:FULL4929:ZSZS MX 320= DY((ZYDY)0(ZYDY)SZ)270F 320U MXSX(ZX)r MYSY(ZY)SY(TY)3DY "7ZSMX,MY:SND,SF2 ,7ZSMX,MY:SND,SF9:ZSZS 6MY @ JK0(36):K1(37):YES0 TK01:K11:T$;" (Y/N) ?";:A$ ^ x150% 16384,0:103,1:104,64< :(4);"RUN ZAPZ"F 3500t DX(ZD1)(ZD3):DY(ZD2)(ZD4):ZS0:0 DX((ZXDX)0(ZXDX)SZ)190 250 MYSY(ZY) MXSX(ZX)SX(TX)3DX 7ZSMX,MY:SND,SF2 7ZSMX,MY:SND,SFʼ **********************; * ZAPZ *X * BY JEFFRY G. BROWN *u( * COPYRIGHT(C) 1988 *2 * MICROSPARC, INC. *< * CONCORD, MA 01742 *F **********************PZ(21)dPM1:3260 n(104)64130          LEFT WINS.":16368,0:23:"PRESS RETURN TO CONTINUE";:A$:16384,128:16368,0: 22:"PLAYER ON THE RIGHT WINS.":16368,0:23:"PRESS RETURN TO CONTINUE";:A$:16384,128:16368,0:2 X215M21:M10+ X193M20:M11@ X216M21:M10V X207M30:M41k X187M31:M40 X203M31:M40 X174M30:M41 X1X1M1:Y1Y1M2:X2X2M3:Y2Y2M4:X1,Y1,A%:A%250 X2,Y2,A%:A%140R 22:"PLAYER ON THE RETURN TO CONTINUE":23:"OR 'Q' TO QUIT";:A$:A$"Q"A$"q"ė:R x16368,0: :(4)"BRUNHSF":X150:Y150:X2220:Y2110::3:0,0279,0279,1590,1590,0:M11:M20:M31:M40 X1,Y1:X(16336):X2,Y2:X(16336):X(16384):X196M11:M20 RIGHT CAR" d"-------- ---------":"X - DOWN . - DOWN":"A - LEFT K - LEFT":"W - UP O - UP":"D - RIGHT ; - RIGHT":8 DASHES;12 SPACES;9 DASHES;12, 12, 14 AND 11 SPACESB n22:"PRESS IS A GAME IN WHICH TWO PLAYERS":"RIDE CARS AROUND LEAVING TRAILS OF OIL":"BEHIND THEM. NO CAR CAN TOUCH THE OIL" Z"AND IF HE DOES, HE LOSES. THE OIL IS":"REPRESENTED BY THE WHITE DOTS ON THE":"SCREEN. THE CONTROLS ARE AS FOLLOWS:"::::"LEFT CAR ***********************;* HSF.DEMO *X* BY CHRIS MEYER *u(* COPYRIGHT(C) 1988 *2* MICROSPARC, INC. *<* CONCORD, MA 01742 *F***********************s P::(21)::15:" SURROUND "::::"SURROUND  BL` &)0)% 0H ߠh`   (* CENTER-OUT WIPE *; 2X120:32,20X:33,2X:::V <* WAIT FOR KEYPRESS *x FX$"PRESS RETURN TO CONTINUE" P30:CL,0:KB,128: Z* GET (Y/N) RESPONSE * dCL,0:X$:X$"Y"X$"y"X$"N"X$"n"ı n100 x** INTRODUCTION **N *********************7* FIVER.DICER *R* BY DAVID KALLAS *m* COPYRIGHT 1988 ** MICROSPARC, INC. ** CONCORD, MA 01742 ********************** ::(21):130* CENTER TEXT *(21(X$)2):X$:            (8)ĺ(7);:3650K7`AA$" "AA$(126)ĺAA$;:GN$GN$AA$:LLLL1:36507jAA$(8)LL1LLLL1:GN$(GN$,LL):1008:" ";:1008:36507tAA$(8)LL1Č1008:" ";:1008:36407~(7);:3650ke,to the movies,to visit Grandma6. in a rocket ship,in a new car,on a motorcyle,in a boat,up an elevator,across the street,down by the river,at the circus,with a friend,on a dinosaur68LL0:GN$"":16368,06BAA$6LAA$(13)ı7VLL24AA$ shouted,yelled,called,said,stated,mumbled,cried,whooped,howled,roared5 clever,nice,able,smart,good,brilliant,witty,neat,kind,courteous!6$ to the moon,to Disneyland,to get a pizza,to school,to visit Grandpa,to the ballgame,to the desert,to the lalevators,golf balls,eagle eggs,tadpoles,blackboards,TV sets4 pencil boxes,candy bars,erasers,magazines,newspapers,books,bubble gum,Disneyland,pizza,grasshoppers4 telephone,tin can,radio,tape player,wall,wire,clothespin,tomato,pickle,radar setH5 shoes,suspenders3 household chores,help with the dishes,clean up the table,make your bed,pick up your clothes,put your toys away,take out the trash,feed the goldfish,help do the lawn,help put tools away;4 gorillas,dragons,dinosaurs,rocket ships,encing in the kitchen,climbing up a pole,walking on a fence,reading a book,painting a picture,watching the TV2 odd,awful,silly,weird,strange,dumb,crazy,dippy,spooky,curious3 shoes,earrings,stockings,skis,boots,underwear,sunglasses,swim fins,tennisream,fruit,toy,soldier,doll,book,tapea1 long,short,big,little,skinny,fat,high,low,thin,stocky1 bike,scooter,skateboard,car,boat,bus,plane,train,submarine,camperl2 crying in a tree,sleeping in a bed,jumping on the roof,singing in the bathtub,daard,warlock,mystic,conjurer,genie,jin0 in a bathtub,on a chair,on the roof,under a house,in a doghouse,in the playbox,in the garage,on a tent,in a box,in a bottle0 big,little,tiny,small,sweet,sour,tall,short,fat,thin%1 plum,sweet,cookie,ice cephant,hippo,tiger,giraffe,alligator,kangaroo,panda,bear/z fireman,policeman,plumber,pilot,carpenter,explorer,doctor,race driver,teacher,sailor/ jacket,coat,suit,sweater,shirt,T-shirt,pajamas,shorts,jeans,uniform%0 giant,magician,elf,fairy,wiz J$(C)GN$. C. . 1. CAPITAL MAKER7. A. Q$""S. Q1(J$(C))v. J((J$(C),Q,1)):J90JJ32.* Q$Q$(J).4 Q.> .H .R WORD LIST.\ .f red,orange,yellow,green,blue,brown,purple,white,black,pink8/p dog,cat,el-b PRINT ROUTINE-l '-v AN$"P":-- @- WORD CHOOSERF- Q- CAB[- 3340- 15:1:958:"Press if "::Q$" is OK ... or":W1(Q$):"=";:W- 22:1:958:"Change ";(34)J$(C)(34);" to: ";:3640- GN$""GN$J$(C) .20 , XR, :"========== END OF WORD LIST ==========":10 EQUAL SIGNS EACH END\, 3120p, (7)(7):2930v, , NEXT SCREEN ADVANCE,& ,0 23:1:" to go on to stop ";:AN$,: AN$(13)ė:2930,D :,N :,X HANGE WORDS,START OVER,STOP GAME,PRINT THIS PAGE ONLYH+^ AN$"G":P39:[+h AN$"C":P39:o+r (7):K3:2710x+| 250~+ + FULL STORY PRINT+ + T1+ 430+ + WORD LIST PRINTER+ + :X1210:X" "B$(X), (X20)X20İ31$(X):X:/*, FLAGĴK3030,2930,2940,3150,2980O*6 K2910,2920,2940,3150,3190*@ "Arrow or number selects Press to RUN selection"*J "Go ahead","Change words","Start over","Stop game","Print this page only"5+T X,GO AHEAD,C>":) 15K:1:AN$+) AN$(27)ī2700F) (AN$)5ĺ(7);:2760f) K15:4:(32);L$(K);(32){) (AN$)K(AN$)) AN$(8)AN$(11)KK1:K1K5) AN$(21)AN$(10)KK1:K5K1) AN$(13)ĺ:2860) 2750 *" X15:LT$(X)UT===========":U$(1)"SEE WORD LIST":U$(2)L$(2):L$(5)"Print complete story":U$(5)"PRINT COMPLETE STORY":FLAG1:2710}( K1( X15:X15:1:868:X;". ";L$(X)( X5ĢX15:20:LT$(X)( X:16368,0( 22:1:L$(0)) :K15:4:"<";U$(K);"50' '( '2 VOWEL TRAP%'< 4'F W$(V$,1)'P W$"A"W$"E"W$"I"W$"O"W$"U"W$"a"W$"e"W$"i"W$"o"W$"u"A$"an"'Z 'd 'n PAUL'S GAME MENU'x u( (7)(7)(7):14:16::" THE END "::K3:L$(1)"See word list":L$(2)"==& (WW$)Pĺ:WW$:2590*& W1(WW$)M& (WW$,P,1)(32)PP1:2480T& We& WL$(WW$,P)|& N$(WW$,(WW$)P)& & PROPER SPACING& END OF SENTENCE& & (WL$,1)(32)WL$(WL$,(WL$)1):2560& :WL$:PPP' WW$N$:24QUAL SIGNS%!% RANDOMIZER'% <% R(10(1))1:B%$ L%. BOYR%8 %B S$"boy":S1$"He":S2$"he":S3$"his":S4$"him":%L %V GIRL%` %j S$"girl":S1$"She":S2$"she":S3$"her":S4$"her":%t %~ WORD WRAPPER% % PPPĺ:(4)"PR#0"::26907$P40ĺ(4)"PR#0":P39:2130G$2290:2700a$AN$"G"AN$"g"2690$AN$"P"AN$"p"ĺ:(4)"PR#";SL:P79:2130$A27:B28:3210$2130$$ DRAW BAR$ %"======================================"::38 EJ$(1)" finished "S3$" homework and, "b#\WW$WW$"using "S3$" imagination, called for "S3$#fWW$WW$" friend the "J$(6)" to take "S4$#pWW$WW$(32)J$(27)(32)J$(28)"!"#zT$(11)WW$:TWW$T$(11):P79:(4)"PR#";SL#2450:$T"PR#";SL"2450: "T2130A"P40ĺ(4)"PR#0":P39:1960Q" 2290:2700k"AN$"G"AN$"g"2110" AN$"P"AN$"p"ĺ:(4)"PR#";SL:P79:1960"*A26:B26:3210"41960">2330:J$(27)B$(R190)"H2330:J$(28)B$(R200))#RWW$""::WW$agreed and said, "J!WW$WW$(34)"Not only does our "J$(1)" have a "!WW$WW$"wonderful imagination, but "S2$" is "!WW$WW$J$(26)" as well. We are very proud "!WW$WW$"of our "J$(1)"."(34)"T$(10)WW$:TWW$T$(10):P79:(4)40,3,136,16,247,228,6,240,4,202,76,30,3,96,140,101,3,138,72,160,0,32,17,244,165,38,133,0,165,39,133,1,173,101,3,160,0,32,17,244,104,170,164,9,177,38,145,0,136,196,8,176,247,96 l loader routine X0100:Y:768X,Y::UP768:DOWN782:WI796:T6:B7:L8:R9:C25:: 166,6,138,168,200,32,61,3,232,228,7,208,245,96,166,7,138,168,136,32,61,3,202,228,6,208,245,96,166,7,138,72 160,0,32,17,244,104,170,164,9,165,25,145,38,196,8,2(X7)7:5 FT,25:B,134:L,7:R,32:X079:UP:I PX079:DOWN:t Z24:8:"PRESS RETURN WHEN FINISHED";: dT,110:B,134:L,7(1)15:R,22(1)11 nT,110:UP:UP:DOWN:DOWN:(49152)128100 xA$::: *** The actual Mini-ScrolRATION PROGRAM";:140<  *** Wipe sample used for drawing X019:Y019:((XY)2)((XY)2)ĹT,Y8:B,Y87:L,X2:R,X21:C,127:WI (Y,X:T,24:B,135:L,6:R,33:C,111:WI 2*** Now draw a line and scroll upward <0:X49230:X,120 **********************; * SCROLL DEMO *X * BY BOB THRASHER *u * COPYRIGHT (C) 1988 * * MICROSPARC, INC. * * CONCORD, MA 01742 * ********************** (12)(21):::22:" MINI-SCROLL PLUS DEMONST  "PR#0":P39:1830! l2290:2700; vAN$"G"AN$"g"1950k AN$"P"AN$"p"ĺ:(4)"PR#";SL:P79:1830 A24:B25:3210 1830 2330:J$(26)B$(R180) WW$""::WW$"When "J$(1)" checked with "S3$" mom "!WW$WW$"and dad they both 0):&WW$""::WW$"The "J$(6)", who was listening on "k0WW$WW$"the "J$(24)" in the other room, ":WW$WW$J$(25)", "(34)"Good for you, "J$(1)"!"(34)DT$(9)WW$:TWW$T$(9):P79:(4)"PR#";SLN2450:XT1960 bP40ĺ(4)W$T$(8):P79:(4)"PR#";SL'2450:3T1830TP40ĺ(4)"PR#0":P39:1690d2290:2700~AN$"G"AN$"g"1810AN$"P"AN$"p"ĺ:(4)"PR#";SL:P79:1690A18:B20:321016902330:J$(24)B$(R160)2330:J$(25)B$(R17ܪպܪպܪպܪպܪպܪպܪպܪպռժժժժժժժժժŨ婝񣝮ժժժժժժժժժժժռܪպܪպܪպܪպܪպܪպܪպܪպܪԺܪԺ܊ѺӺǺϺܪպܪպիիժժժժժժժտտުվտտտտުվުվުվުվտտտsGGƿĿƿժժժժժxx`C>xpaC?xpa@@|xpaC?xpa@@GxxxaC?xpa@~@px`o=xpa@~@`x?`O"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?pC~?@xp@@G"&*.26:>#'+/37;?#'+/         HehѤ Heh(` e(`J i Heh(` `LqL L(Lb   0 ` 멀@ (i(i`)ʩi(i( Heh ѩ)JJJJJ iP   0 &120-&:"PRESS RETURN TO CONTINUE";\&16368,0:16384,128:(16384)1412000d&:3(B1)6:Y5A15:P%(B,A)0M%237,X:238,Y:2057:2060,1:2061,4:2062:i%(222)6(222)71960|%(222)254Ħ%216,0:%:(7)"PLEASE INSERT THE DISK WITH "FL$:"ON IT AND PRESS RETURN":&16368,0:16384,128:(16384)141197:238,20:239,D%(P):2048:=$D** REMOVE CARD FROM TALON **z$N2060,1:2061,4:2062:237,35:238,20:TA1Č2057:TA0:$X2051:TATA1$b237,35:238,20:239,T%(TA):2048:$l** REMOVE CARD FROM PYRAMID **%vB(U%(CU)10):AU%(CU)B10:X21A5,100,5#1990H#:21:"1. NEW GAME":"2. QUIT":"ENTER 1 OR 2 ";:l#A$:A$"1"A$"2"ĺ(7);:1790|#A$"1"970#::23:#** REMOVE CARD FROM HAND **#&2060,1:2061,4:2062:237,1:238,20:P1Č2057:P0:#02051:PP1$:237,1":"CU0&"CUCU1:CU9CU19"U%(CU)01700M"P%(1,1)01750V"720n"** PYRAMID GONE **":21:"YOU HAVE REMOVED THE LAST CARD OF THE":"PYRAMID. CONGRATULATIONS!"#A14:B,C:2060,B:2061,C:2062:D120:::6,55,6,55,6,5)0Ĺ237,21A3(B1)6:238,5A15:239,P%(B,A):2048>!h:!r** CHECK TO SEE WHICH CARDS ARE NOW AVAILABLE FOR MATCHING **!|U%(1)(P0):U%(2)(TA0):A39:U%(A)0::A3!Y17:X1Y:P%(X,Y)0P%(X,Y1)0P%(X1,Y1)0U%(A)X10Y:AA1S 13 BY ITSELF"::"REMOVING CARD..."/ ,1620R 6** HANDLE TWO CARD REMOVAL ** @:21:"A"CN$(C1)" AND A"CN$(C2)" DO MATCH!"::"REMOVING CARDS..." JCU1830,1870:CU2İ1910 TS21830,1870:S22CUS2:U%(CU)S1:19106!^A17:B1A:P%(B,A!** CHECK FOR LEGAL MATCH **9A(C16):C2CA16LC1C2131600b ** NO MATCH! **:21:(7)(7)"A"CN$(C1)" AND A"CN$(C2)" DOES NOT MATCH!":"("C1" + "C2" <> 13)"1990:1410** HANDLE KING REMOVAL **% ":21:"A KING TOTAL81470dK211430.nK32ĺ(7);:1280Px** ABORT SECOND SELECTION **iCUS2:U%(CU)S1:720** CURSOR RIGHT **CUCU1:CU9CU1U%(CU)014301250** CURSOR LEFT **CUCU1:CU1CU9U%(CU)014701250:CP%(B,A)Q237,X:238,Y:2057:D115::237,X:238,Y:239,C:2048:D115:_ JK1340w(16287)1271510(16286)1271410((0)7514702(0)1801430<(16384)1281280FK(16384)128:16368,0PK131510ZK28:"(BUTTON 0)";M:"SPACE - ABORT SELECTION ";:JKĖ28:"(BUTTON 1)";dCUCU1:CU9CU1wU%(CU)0123016368,0:CU1X1:Y20:CD%(P):1280CU2X35:Y20:CT%(TA):1280 B(U%(CU)10):AU%(CU)B10:X21A3(B1)6:Y5A152061,4:2062~720;** MAKE FIRST CARD SELECTION **SA(C16):C1CA16pS1U%(CU):U%(CU)0:S2CUC1131570** SECOND CARD SELECTION MODE **:21:"POSITION CURSOR OVER CARD TO MATCH WITH":"A"CN$(C1)" AND PRESS RETURN";:JK770BP111308L** TURN UP NEXT CARD FROM HAND **fV:21:(7)"END OF HAND HAS BEEN REACHED"u`1990:720jTATA1:T%(TA)D%(P):U%(2)1:237,1:238,20:2051:237,35:238,20:239,T%(TA):2048 tPP1:237,1:238,20:239,D%(P):2048:2060,1:URE YOU WANT TO QUIT (Y/N) ? ";:A$:A$"Y"A$"N"A$"y"A$"n"980eA$"Y"A$"y"ĉ::23:n720** CURSOR RIGHT **CUCU1:CU9CU1U%(CU)01020770** CURSOR LEFT **$CUCU1:CU1CU9.U%(CU)0106080K81060K2110205K27ĺ(7);:800I** GIVE UP? **:21:"1. WHOOPS! BACK TO GAME":"2. NEW GAME":"3. QUIT":"ENTER 1,2, OR 3: ";:A$:A$"1"A$"3"ĺ(7);:950A(A$):A720,970,980::130H:23:"ARE YOU SF 237,X:238,Y:2057:D115::237,X:238,Y:239,C:2048:D115:S*JK860k4(16287)1271170>(16286)1271090H(0)751060R(0)1801020\(16384)128800fK(16384)128:16368,0pK131170zK78K110109:P1ĺ"N - NEXT CARD FROM HAND";:JKĖ28:"(BUTTON 1)";T:"ESC - GIVE UP ";n** SELECTION MODE **16368,0:CU1X1:Y20:CD%(P):800 CU2X35:Y20:CT%(TA):800B(U%(CU)10):AU%(CU)B10:X21A3(B1)6:Y5A15:CP%(B,A)E"," FOUR"," FIVE"," SIX"," SEVEN","N EIGHT"," NINE"," TEN"," JACK"," QUEEN"," KING"bCU1:TA0** PRINT SLECTION INSTRUCTIONS **:21:"ARROW KEYS - MOVE CURSOR";:JKĖ28:"(JOYSTICK)";:"RETURN - MATCH CARD";:JKĖ28:"(BUTTON 0)";:237,1:238,20:2057:237,1:238,20:2051}237,21A3(B1)6:238,5A15:239,P%(B,A):2048:2060,1:2061,4:2062::237,1:238,20:239,D%(P):2048:A19:U%(A):A113:CN$(A):1,0,17,27,37,47,57,67,77T"N ACE"," TWO"," THRE7:N** BUILD PYRAMID **YXA1711:237,A:238,60:2051:237,A4:238,60:2057:bA60205:237,1:238,A:2051:237,1:238,A40:2057:l2054:237,1:238,20:2051::22:12:"BUILDING PYRAMID":P52vA17:B1A:P%(B,A)D%(P):PP1,:238,60:2051:237,B4:238,60:2057:237,B4:238,60:2057:0AP451:237,A:238,120:2051:237,A4:238,120:2057:49200,0::A517:237,A:238,120:2051:237,A4:238,120:2057:DA110605:237,17:238,A:2051:237,17:238,A40:205:A152:D%(A)H%(A):fA31P51:237,A:238,120:2051:237,A4:238,120:2057:49200,0:A110605:237,P5:238,A40:2057:237,P4:238,120:2051:237,P5:238,A:2051:A(1(P517))(P517):P517560>&BP517A:237,B";:16368,0:2060,1:2061,220P:2062=(16384)128450eB(16384)128:16368,0:B13500B8P1ĺ(8)" ":PP1:440B21P26ĺ(8)" ":PP1:440(7);:440:AP2:B1:CA52:H%(B)D%(C):BB1::C1A1:H%(B)D%(C):BB160:2051:237,A4:238,60:2057:^A601205:237,5:238,A:2051:237,5:238,A40:2057:A531:237,A:238,120:2051:49200,0:P1::23:"POSITION POINTER (WITH ARROW KEYS) WHERE";:"CARDS SHOULD BE CUT AND PRESS RETURN";&21:P6:"^h:21:"1. SHUFFLE CARDS AGAIN":"2. CUT AND DEAL CARDS":"3. DEAL CARDS":"ENTER 1,2, OR 3: ";:rA$:A$"1"A$"3"ĺ(7);:370|A(A$)::A390,400,600A60905:237,17:238,A:2051:237,17:238,60:2051::300!A1751:237,A:238,21:12:"SHUFFLING CARDS"M 6A152:237,17:238,60(30((A2)A2)):2051 @BD%((1)521):D%((0)521)D%((1)521):D%((0)521)B J2060,1:2061,3:2062::2060,1:2061,6:2062 TA90601:237,17:238,A:2051: ^** SHUFFLE MENU **c75ĺ(7);:200 JK(A74):9 ** SHUFFLE CARDS ** :2054:237,0:238,0:2057:237,4:238,0:2057:237,32:238,0:2057:237,36:238,0:2057 "237,17:238,60:2051:A1100:BD%((1)521):D%((0)521)D%((1)521):D%((0)521)B: ,:";+ :" "(8);::A13:BD%((1)521)] D%((0)521)D%((1)521):D%((0)521)B: " "(8);:A13:BD%((1)521):D%((0)521)D%((1)521):D%((0)521)B: (16384)128200 A(16384)128:16368,0 AA32(A95):A74A# 5:19:"THE":7:17:"PYRAMID"+ :z 13:14:"BY JIM LAZAR":12:"COPYRIGHT (C) 1988":13:"MICROSPARC, INC." ** SET UP CARD DECK AND RANDONIZE ** C1:A113:B14:D%(C)B16A:CC1:: 21:"USE JOYSTICK OR KEYBOARD? (J OR K) (21):::"THE PYRAMID"::(104)64110j d"RELOADING PROGRAM":104,64:16384,0:(4)"RUN PYRAMID":u n1930 xFL$"PYRAMID.ML":(4)"BLOAD "FL$:FL$"PYRAMID.SHAPES":(4)"BLOAD "FL$ ::A19:21A:AA1)"":2060,1:2061,255A2:2062:e **********************; * PYRAMID *X * BY JIM LAZAR *u( * COPYRIGHT (C) 1988 *2 * MICROSPARC, INC. *< * CONCORD, MA 01742 *F **********************PD%(52),H%(52),T%(52),P%(8,8),U%(9),CN$(13)+ Z                INED BEFORE":"THE MOVES, SUCH AS D$ AND FN X:":100::"...REMAIN INTACT":210 :"ASC(D$) = "(D$):"FN X(103) = "X(103)D THE SAME TECHNIQUE TO":"RESTORE THE DEMO TO NORMAL--PAGE "(104):170:"THIS PROGRAM NOW HAS 14K MORE MEMORY":"AVAILABLE IN TEXT MODE THAN IT HAD":"JUST A MOMENT AGO!" :::"PRESS TO CONTINUE ";:AN$:O :"VARIABLES AND FUNCTIONS DEFMOVE TO PG.64> :3:0,80:I1927920:I,((1)140)10: 21:"APM MOVED THE DEMO TO PAGE "(104)", JUST":"BEFORE HI-RES GRAPHICS WERE INVOKED"::"PRESS TO CONTINUE ";:AN$: : 6,8:X(175): BACK TO NORMAL "AND APM USE5$ dD$(4):X(X)(X)256(X1)D nD$"BLOAD APM.OBJ,A"X(175) x"A 'POKE 6,64' AND A CALL OR BRUN WILL":"MOVE A LONG BASIC PROGRAM TO PAGE 64:":130:"...SO IT CAN USE HI-RES GRAPHICS":::"PRESS TO DO IT ";:AN$: 6,64:X(175): *********************9 * APM.DEMO *U * BY MIKE MIYAKE *q( * COPYRIGHT(C) 1988 *2 * MICROSPARC, INC. *< * CONCORD, MA 01742 *F *********************P(175)256(176)314 Z::"PROGRAM MOVER DEMO":    Heh 鈥=L,nCmB>B8>B>C?n?iΤjkl60 ȱȱ0eΠpeiΐϰ¥mn[΅qHȥυq΅hΠ0ȱՠ ei愠peiΥϐ㰛gegeeȱ AN$"P"AN$"p"ĺ:(4)"PR#";SL:P79:1550>A21:B23:3210H1550~WW$""::WW$J$(1)", looking directly into the "WW$WW$J$(18)"'s "J$(19)(32)J$(20)","WW$WW$" said "(34)"I believe you are correct."(34)T$(8)WW$:TW2,WW$WW$"it would be just fine to sometimes "i6WW$WW$"imagine "J$(22)" and "J$(23)"."(34)@T$(7)WW$:TWW$T$(7):P79:(4)"PR#";SLJ2450:TT1690^P40ĺ(4)"PR#0":P39:1550h2290:2700rAN$"G"AN$"g"1690*|6:B20:3210139012330:J$(21)B$(R130)L2330:J$(22)B$(R140)g2330:J$(23)B$(R150)WW$""::WW$"The "J$(18)" said, "(34)J$(1)", if you "WW$WW$"imagine just for fun and do your ""WW$WW$"homework and "J$(21)", "e "J$(18)" wore "7WW$WW$J$(19)(32)J$(20)"."eT$(6)WW$:TWW$T$(6):P79:(4)"PR#";SLq2450:}T1550P40ĺ(4)"PR#0":P39:13902290:2700AN$"G"AN$"g"1520AN$"P"AN$"p"ĺ:(4)"PR#";SL:P79:1390 A1B$(R):J$(19)J$(12)J$(19)J$(2)1370Bd2330:J$(20)B$(R120)~nWW$""::WW$"One day "J$(1)" used "S3$" wonderful"xV$J$(16):2630:WW$WW$" imagination. "S1$" imagined "A$(32)J$(16)(32):A$"a"WW$WW$J$(17)(32)J$(18)". Th0 2290:2700+AN$"G"AN$"g"1340[AN$"P"AN$"p"ĺ:(4)"PR#";SL:P79:1180o(A10:B15:3210y21180<2330:J$(16)B$(R110)F2330:J$(17)B$(R80):J$(17)J$(11)1350P2330:J$(18)B$(R10):J$(18)J$(3)1360'Z2330:J$(19)2)J$(10)" in ":A$"a"CV$J$(11):2630:WW$WW$A$(32):A$"a"WW$WW$J$(11)(32)J$(12)(32)J$(13)" or "J$(14)"s "WW$WW$J$(15)"."T$(5)WW$:TWW$T$(5):P79:(4)"PR#";SL2450:T1390P40ĺ(4)"PR#0":P39:118" wonderful imagination. "J$(13)B$(91)J$(13)B$(92)J$(13)B$(93)WW$WW$J$(1)" could see ":V$J$(10):2630:WW$WW$A$(32)J$(10)" on ":A$"a":V$J$(11):2630:WW$WW$A$(32):A$"a":1230V$J$(10):2630:WW$WW$J$(1)" could see "A$(3)J$(3)1120&j2330:J$(11)B$(R80)Pt2330:J$(12)B$(R):J$(12)J$(2)1140j~2330:J$(13)B$(R90)2330:J$(14)B$(R10):J$(14)J$(3)11602330:J$(15)B$(R100)WW$""::WW$J$(1)" could see almost anything "WW$WW$"with "S3$elf."3T$(4)WW$:TWW$T$(4):P79:(4)"PR#";SL?2450:KT1180k$P40ĺ(4)"PR#0":P39:980{.2290:27008AN$"G"AN$"g"1120BAN$"P"AN$"p"ĺ:(4)"PR#";SL:P79:980LA8:B9:3210V980 `2330:J$(10)B$(R10):J$(1030:J$(9)B$(R70)CWW$""::WW$J$(1)" wished for three "J$(8)|WW$WW$(32)J$(9)"s. One "J$(9)" was for the "WW$WW$J$(3)". One "J$(9)" was for the "WW$WW$J$(6)(32)J$(7)". The last "WW$WW$J$(9)" was for "S4$"s wish."5fT$(3)WW$:TWW$T$(3):P79:(4)"PR#";SLAp2450:LzT980lP40ĺ(4)"PR#0":P39:830|2290:2700AN$"G"AN$"g"960AN$"P"AN$"p"ĺ:(4)"PR#";SL:P79:830A6:B7:32108302330:J$(8)B$(R60)2342330:J$(7)B$(R50)T>WW$""::WW$S1$" could shut "S3$" eyes and imagine "HV$J$(6):2630:WW$WW$A$(32)J$(6)(32)J$(7)". The "J$(6):A$"a"RWW$WW$(32)S2$" imagined would be so kind that "\WW$WW$J$(1)" would get a magicit would be!";T$(2)WW$:TWW$T$(2):P79:(4)"PR#";SLG2450:RT830rP40ĺ(4)"PR#0":P39:6602290:2700AN$"G"AN$"g"810 AN$"P"AN$"p"ĺ:(4)"PR#";SL:P79:660A2:B5:3210 660*2330:J$(6)B$(R40)::WW$S1$" could close "S3$" eyes and imagine "FV$J$(2):2630{WW$WW$A$(32)J$(2)(32)J$(3)" in ":A$"a"V$J$(4):2630:WW$WW$A$(32)J$(4)"'s ":A$"a"WW$WW$J$(5)". When "S2$" opened "S3$" eyes," WW$WW$" there 0;D22:1:958:"Is ";J$(1)" a BOY or a GIRL? ";:"";Q$cN(Q$,1)"G"(Q$,1)"g"İ2410:430X(Q$,1)"B"(Q$,1)"b"İ2370:430b580l2330:J$(2)B$(R)v2330:J$(3)B$(R10)2330:J$(4)B$(R20)2330:J$(5)B$(R30)3WW$"""/ T$(1)WW$:TWW$T$(1):P79:(4)"PR#";SL; 2450:F T660f P40ĺ(4)"PR#0":P39:430p 2290z 2700 AN$"G"AN$"g"620 AN$"P"AN$"p"ĺ:(4)"PR#";SL:P79:430 &A1:B1:3210 0J$(1)GN$:AN$"G"AN$"g"P39:62J$(1)"Joshie":23704 R2J$(1)"Jennifer":2410g :WW$"It seemed that "J$(1)" was a little " WW$WW$S$" who liked to daydream. But if the" WW$WW$" truth were known, it was only that " WW$WW$J$(1)" had a wonderful imagination."  A MULTI-STORY " 3 , VIRGINIA ANDE 6 PAUL RAYMER` @ 3464 TOWNHOUSE DRIVEy J LAS VEGAS NV 89121 T ^B$(210),J$(28),T$(11):A$"a" hX05:L$(X): rX05:U$(X): |X1210:B$(X):X P39 R(2(1))1  young people"8 18:7:"by Virginia and Paul Raymer" 20:1:"Copyright (c) 1988 by Microsparc, Inc.":12:"Concord, MA 01742" 23:10:"Press Return to start":49152,128 49168,0: :SL1: PRINTER SLOT  "JOSHIE'S IMAGINATION nBL$" ": 13 SPACESF x:7:14:BL$:14:BL$:14:BL$[ A$"IMAGINATION"g X111z R(20(1))1 (R64)(A$,X,1)ĝ:8:14X:(R64)::150 8:14X:(R64) X  :8:"An interactive story-game":12:"for/ **********************; * IMAGINATION *X * BY PAUL & VIRGINIA *u( * RAYMER *2 * COPYRIGHT (C) 1988 *< * BY MICROSPARC, INC *F * CONCORD, MA 01742 *P **********************Zd::(21)"                       ?";DR$:DR(DR$):DR1DR21940qD$;("CATALOG",74PRODOS);",S";SL;",D",DR:PRODOSĺD$"PREFIX,S";SL;",D";DR:"PRESS RETURN TO CONTINUE ";:16368,0:Z$16304,0:57016368,0:Z$Pl(EL610)2(EL1700)3(EL1720)4(EL1950)570,1660,1600,1920v:23:"ERROR ";EN;" AT LINE ";EL:"PROGRAM TERMINATED";::: CATALOG ROUTINE2:1:39):1:"SLOT ?";SL$:SL(SL$):SL1SL71930 4:1:39):1:"DRIVE H021:1:958:EN(222):EL(218)(219)256: ERROR TRAP ROUTINE j:EN6ĺ"FILE NOT FOUND":1890DEN9ĺ"DISK FULL"NEN4ĺ"DISK WRITE-PROTECTED":1890XEL1950EL610EL1700EL1720ĺ"DISK ERROR" b"PRESS RETURN TO CONTINUE ";: 192,222,165,18,72,165,17,72,32,185J 246,32,17,244,165,48,49,38,240,2z 169,1,168,32,1,227,76,91,218,1,0,4,0,57,01013,76:1014,0:1015,3::12:"PRESS RETURN TO CONTINUE":"OR ESCAPE TO QUIT":16368,0:Z$:Z$(27)ė:23:&OCMEM:D$"BSAVE ";F$;",A";MEM;",L";LEAF$""1820:LELOCMEMfD$;"BSAVE ";F$;",A";MEM;",L";LEp1820 POKE IN M/L HIRES "SCRN" FUNCTION FOLLOWED BY DOT SHAPE TABLEI768812:J:I,J:I 32,227,223,133,133,132,134,169,208,32#hX$"Y"X$"y"17100rX$"N"X$"n"1600e|:21:"WANT TO SAVE THIS SHAPE TABLE? (Y OR N)"X$:X$"N"X$"n"1820X$"Y"X$"y"161021:1:958&"ENTER A NAME FOR THE TABLE":"OR PRESS RETURN TO CANCEL":">";F$:F$""LEL958:"PRESS RETURN TO CONTINUE ";:16368,0:Z$7Ic":21:"SEE THEM AGAIN? (Y OR N) ";:X${,X$"Y"X$"y"15206X$"N"X$"n"1570@:21:1JF$""1660T"DO YOU WANT TO ADD THIS SHAPE"^"TO ";F$;" (Y/N) ";:16368,0:X$z# Ҡ٠ Ҡ٠ӠӠϠ ĠϠĠϠ!!ɭӠΠΠ1ҠҠ ȠȠϠ ڠ"ڮĠ ڮР ԮР ڠӠ ĠĠϠ ͠ϠĠ"Į̠ ĮӠ ɭ̠Ϡ Ơ ƠϠ ŠϠŠ͠ԠΠԮԠӠͮʠϠ ŠӠŮӠŮΠ ӠӠĠŠKBHOLE1ĭX1607807T1TIME2::HOLE2730L5:1XA,YA:760]HOLE1750rB:1XA,YA:760W:1XA,YA:B:2XA,YAT1TIME2::M1H:N1V:KB620640  MOVE TO 6,30:7,30H1V1:772:1:16514H11V,6:2367:1R'S MOVEXKB630!bH5:V50l1210:650Gv(16287)127630iV9((0)30):H9((1)30)HOLE(16514H11V):XA140(HV)10:YA206(HV)11:HOLE0670W:2XA,YA2:1XA,YA:KB700(16287)127HOLE1780710FI0560&100:MA9570016301,0::22:15:"** I WIN **"B$B$::23:"PRESS TO CONTINUE";:CH$::::90::16301,0::22:2:"* YOU MUST FINISH THIS TURN FOR DRAW *"B$B$:I11200::16302,0::NU1:DN PLAYER111C),0:120:300::16301,0::22:16yMA10ĺ"** DRAW **"B$::23:"PRESS TO CONTINUE";:CH$::::9014:"** YOU WIN **"B$B$:::23:"PRESS TO CONTINUE";:CH$::::90 APPLE'S END120MA10580 S END100:MA10500~NU1Ĺ16301,0::22:16:"** DRAW **"B$B$::23:"PRESS TO CONTINUE";:CH$::::902400:R118(770):R1(R11)1:CR(R11)111:R118(771):R2(R11)1:C2R(R11)111*(16514R211C2),2:(16514ɔ1XA,YA:XX1Ĺ6,30:7,30R2C2:7723^XX3370mhZZ1TIME2::W:1XA,YA:B:2XA,YA:ZZ1TIME2:ur:| OPENINGSCOUP0230OP((1)10):OP5420R19:C6:R28:C26:260R16:C9:R26:C28:16664,30:260 PLAYER'90 , DRAW APPLE'S MOVE^ 6XA140(R1C)10:YA206(R1C)11:XX15:XX1Ĺ7,30R1C:772 @W:1XA,YA:B:2XA,YA:XX5340 JZZ1TIME2::W:2XA,YA:5:1XA,YA:ZZ1TIME2:%T:XA140(R2C2)10:YA206(R2C2)11:XX13:W:2XA,YA:5:1:R118(771):R2(R11)1:C2R(R11)111] COUPCOUP1:R2R1C2C280: NO MOVE FOUND (16514R211C2),2:(16514R111C),0:290 16301,0::22:16:"** I WIN **"B$B$::23:"PRESS TO CONTINUE";:CH$:CH$:::90 "300:510:5OU WANT TO GO FIRST? ";:A$:A$"Y"A$"N"ĺB$;:22:200{ :16304,0:16300,0:16297,0:16302,0:A$"Y"İ1290:590 1290:380 2400: APPLE'S MOVE (16406)0Ĺ16662,16: PATCH FOR BACKJUMP- R118(770):R1(R11)1:CR(R11)11CHINESE CHECKERS"x B$(7):1120:D$;"BLOAD CHINESE.BIN":D$;"BLOAD CHINESE.TABLES":2,22:3,65:B0:W3:TIME70:1:0 22:"J)OYSTICK, K)EYBOARD OR TO END":A$:A$(27)ĉ:: A$"K"A$"J"180:A$"K"KB1: 8 SPACES: 23:6:" DO YJ)1MAMA1+ nJ,I:: PLAYER'S TRIANGLE_ xMA0:I14:J15I:(16514I11J)2MAMA1} J,I:: APPLE'S TRIANGLE D$(4):1780 D$"VERIFY CHINESE.BIN":D$"VERIFY CHINESE.TABLES":216,0 (104)96Ĺ103,1:104,96:24576,0:D$;"RUN  **********************9* CHINESE CHECKERS *U* BY BRUNO CROFT *q(* COPYRIGHT (C) 1988 *2* BY MICROSPARC, INC *<* CONCORD, MA 01742 *F**********************PZ140 dMA0:I961:J15I9:(16514I11        >"; <16368,0:A$:? F22:"CATALOG":998:(4)"CATALOG"E P AG 5/18/08 255:::F"NIBBLE PROGRAMS - VOL. 9, PART 1"n"================================"(6:"THIS DISK CONTAINS PROGRAMS FROM NIBBLE MAGAZINE, VOL. 9 (1988), ENTERED AND COLLECTED IN 2008." 219:":"I25:260,52I226,90I:)4K100,5220,140260,140180,52z1:I141144:20,I96,I:184,I260,I::4H19:V19(HV6)(HV14)15901310"3:1X,Y,0:2X,Y6:@1680J6TI050:0,I130,062454 F1PGC0ZGC'dY96?n232,0:233,3:1:1PxX6014010cX,YX80,Y88{X,192YX80,104YX,192Y280X,192YX,Y280X,YYY11XGC100,14020,52260,52180,1401:I25:20,52I54,90IX1601280/X193VV1:V9V9:1280OX211HH1:H9H9:1280oX218HH1:H1H1:1280X216VV1:V1V116368,0: I768823:A:I,A:1330X140(HV)10:Y(HV)1114(2:3:16302,0<0,0: KEYBOARD CONTROLS":e18)"A S"36)(92)" /"38);::" ";::38)"/ "(92)36)"Z X"m:" USE SPACE BAR TO ENTER YOUR MOVE""----------------------------------------": 41 DASHESX(16384):X1271230:`j:::"----------------------------------------CHINESE CHECKERS BY BRUNO CROFT----------------------------------------": 41 DASHES EACHt" COPYRIGHT 1988 BY MICROSPARC, INC."~:" REDS: APPLE II":" BLACKS: YOU":::" TIME2::W:2XA,YA:1:1XA,YA:ZZ1TIME2:B:6,30:7,30H1V1:772:XA140(HV)10:YA206(HV)11:XX13:W:1XA,YA:XX31110LB:2XA,YA:ZZ1TIME2::W:2XA,YA:1:1XA,YA:ZZ1TIME2::VB:1XA,YA:16514H11V,1:430:3802::KB820840U16514H111V1,0:XX14:W:1XA,YA:B:2XA,YA:XX41090$1:1XA,YA:6,30:7,30H1V1:772:ZZ1TIME2::XA140(H1V1)10:YA206(H1V1)11:2341.16514H111V1,0:XX14:W:1XA,YA:B:2XA,YA:XX4109008ZZ112:6,200:7,60:772:J150::6,200:7,72:772:J1100::P:16302,0:oT1TIME2::HOLE29805:1XA,YA:1030HOLE11000B:1XA,YA:1030HOLE310201:1XA,YA:1030W:1XA,YA:B:2XA,YA T1TIME60 z910"(16287)128960BHOLE4(HV)(H1V1)1060HOLE0(HH1)2(VV1)2(HV)(H1V1)(HV)(H1V12)1060HOLE3ĒB:1XA,YA:2341:16514H11V,1:6,30:7,30H1V1:772:590>16301,0:::22:14:" ILLEGAL MOVE ":KXA,YA:H1H:V1V:16514H11V,3- KB8303*B41210:850Y>(16287)127830{HV9((0)30):H9((1)30)RHOLE(16514H11V):XA140(HV)10:YA206(HV)11:HOLE0HOLE4870\W:2XA,YAf2:1XA,YA:KB900pX1609EM ALL"$ xA$(1)"ASCENDING FIFTHS"@ A$(2)"BATTLE STATIONS"S A$(3)"PHASER"o A$(4)"SPACESHIP ALARM" A$(5)"DOOR BELL" A$(6)"AUTO ENGINE" A$(7)"EXIT TO BASIC" :300:V0 :2(V2):12:A$(V) KS(16384):KS128210!  *********************9 * SOUND.DEMO3 *U * BY JIM RICHARDSON *q( * COPYRIGHT(C) 1988 *2 * MICROSPARC, INC. *< * CONCORD, MA 01742 *F *********************PZ(21)d(4)"BLOAD SOUND" nA$(0)"PLAY TH     ,135,108,48 9"x108,90,48,108,90,72,108,90,24,120,96,48j"120,96,48,135,120,48,162,135,48,180,144,144x"-1,-1,-1,240,180,24,180,144,24G!F180,144,48,180,144,72,180,144,24,192,160,48x!P162,135,48,162,135,96,240,180,24,162,135,24!Z162,135,48,162,135,72,162,135,24,180,144,48!d144,120,48,144,120,96,180,144,24,144,120,24 "n144,120,48,144,120,72,144,120,24,192,160,24,192,160,24,180,144,48R 162,135,72,144,120,24,135,108,48,144,120,48 162,135,24,162,135,24,180,144,48,216,180,48 (216,180,48,135,108,72,216,180,24,240,192,48 2192,160,48,162,135,72,135,120,24,144,120,48!<180,144,48,180,144,96S:SS.25:NS(1)40:272,L279,N:LN:768:13,Y:(234)20:(120S)100:6,0,15,0,28,63,14,190,45,45,44,37,0,63,56,36,12,45,21,23,21,4,0" Y768826:K:Y,K::232,34:233,3:0:1::3::21:Y120:SY:L159:169,32,133,39,162,0,134,38,160,0,200,177,38,136,145,38,200,192,39,208,245,169,0,145,38,32,4,245,232,224,160,208,231,96,2,0 K(49152):YY(K218)(K193):Q(49200):2278,(1)  8PB0Bߩ@C ,` F -`CC ,` F `d@  + w0`@b@ @@!@ ,@,@ @ *@*@@ @@ @ @@ @ @@@L+aL-  8 i `@iBAPBa  -./012 .:FGGGJ.;GQ[\]^-:GR\dlmn.FQ\emsyz/G[dmtz~0H\lsz1I]my~2J^nzDN$VY5:V159VY:! 1X,Y, 1H,V: XH:YV:[ " CREATE SHAPE TABLE ENTRIESn ,B0:Q0:V1P 6B2M(V)0M(V)4340 @B2(M(V)0M(V)4)340 JB0:QQ1 TVEC(Q)VEC(Q)M(V)(8B) ^BB1 hB2B0:QQ1 r23:34:V:V750: HIRES (SCRN) FUNCTION$ 570T 21:1:958::13:"PLEASE STANDBY"::1:f MOVE CURSOR X$"J"X$"j"X$LF$HX5:H0HX: X$"K"X$"k"X$RT$HX5:H279HX: X$"I"X$"i"X$UP$VY5:V0VY: X$"M"X$"m"X$,0: HGR W/O CLEARING SCREEN6 d24576: ABOVE PAGE 2b nMEM16384: STORE SHAPE TABLE ON PAGE 2m x1840 PRODOS(48896)76:PRODOSD$(13) LF$(8):RT$(21):DN$(10):UP$(11) M(1000),VEC(900) 232,0:233,64 D$D$(4) 1 **********************9* HIRES.SCAN *U* BY RON SJOLANDER *q(* COPYRIGHT(C) 1988 *2* MICROSPARC, INC. *<* CONCORD, MA 01742 *F**********************P::(21):1:0 Z49232,0:49235,0:49236,0:49239      AUSE BETWEEN PUTTSjN+t6,7:PDIST=7=~N3018.25e7,(3N):8,(5N):774:2ND GEAR!}752,0:774:PAUSE N:******** END ********:::23:"BYE":************!* AUTO ENGINE *6***************H6,1:PDIST=1\9,2:LENGTH=2 hN130$7,120:8,200:774:IDLE.7,0:774:PAUSE 8NB6,3:PDIST=3LN4030.2V7,(3N):8,(5N):774:1ST GEAR!`257,0:774:Pz9,2:LENGTH=2/7,57:8,57:PITCH1 & 2=C#@VOL2111b6,VOL:PDIST CONTROLS VOLUMEz774:SOUND ROUTINEVOL7,84:8,84:PITCH1 & 2=FVOL21116,VOL:PDIST CONTROLS VOLUME774:SOUND ROUTINEVOL: *****6,0:PDIST=0'9,2:LENGTH=23A3:B5ALOOP18O N611a7,AN:8,BNy 774:SOUND ROUTINE*N4N25>7,AN:8,BNH774:SOUND ROUTINERN,LOOP:\*************f* DOOR BELL *p************* SE / LENGTH=20b774*l9,2:LENGTH=23vJ:C**********S* PHASER *c**********v6,42:PDIST427,219:8,17:PITCHS 1 & 29,255:LENGTH=255774:******************** SPACESHIP ALARM ****************** 7,2N:8,3N( 774:SOUND ROUTINE1 N:J *******************c * BATTLE STATIONS *| ******************* 6,15:PDIST=15 9,2:LENGTH=2 &J14 0N120802 :7,N:8,N D774:SOUND ROUTINE NNX7,0:9,20:PAU(V2):12:A$(V)5 |PN18::2(PN2):12:A$(PN)V PN440,530,670,740,890,1030x :2(PN2):12:A$(PN):PN: ******************** * ASCENDING FIFTHS * ******************** 6,127:PDIST=127 9,1:LENGTH=1 N8021@oII---MI;??SI ---MI;??SI ---Miۛ mII???NI)--mI???JI)--mI1???JI)--mI??? 192,222,165,18,72,165,17,72,32,185J 246,32,17,244,165,48,49,38,240,2z 169,1,168,32,1,227,76,91,218,1,0,4,0,57,01013,76:1014,0:1015,3::12:"PRESS RETURN TO CONTINUE":"OR ESCAPE TO QUIT":16368,0:Z$:Z$(27)ė:23:&OCMEM:D$"BSAVE ";F$;",A";MEM;",L";LEAF$""1820:LELOCMEMfD$;"BSAVE ";F$;",A";MEM;",L";LEp1820 POKE IN M/L HIRES "SCRN" FUNCTION FOLLOWED BY DOT SHAPE TABLEI768812:J:I,J:I 32,227,223,133,133,132,134,169,208,32#hX$"Y"X$"y"17100rX$"N"X$"n"1600e|:21:"WANT TO SAVE THIS SHAPE TABLE? (Y OR N)"X$:X$"N"X$"n"1820X$"Y"X$"y"161021:1:958&"ENTER A NAME FOR THE TABLE":"OR PRESS RETURN TO CANCEL":">";F$:F$""LEL958:"PRESS RETURN TO CONTINUE ";:16368,0:Z$7Ic":21:"SEE THEM AGAIN? (Y OR N) ";:X${,X$"Y"X$"y"15206X$"N"X$"n"1570@:21:1JF$""1660T"DO YOU WANT TO ADD THIS SHAPE"^"TO ";F$;" (Y/N) ";:16368,0:X$CLOC1ILOC,0.LOCLOC1:LOC,0:21:1:"WOULD YOU LIKE TO SEE THE SHAPES IN":"THIS SHAPE TABLE? (Y OR N) ";:X$X$"N"X$"n"1610X$"Y"X$"y"14803:1:0I1(MEM):I100,100:21:1021:1: SCAN LEFTFE11380#P1300XZ CREATE SHAPE TABLE ENTRIES AND POKE INTO TABLEd200:23:3:"CREATING SHAPE TABLE ENTRIES -"n21:33:"VECTOR";x300200:23:4:"POKING SHAPE ENTRIES INTO TABLE."I0QLOC,VEC(I)LO:H(1),V(1)H(2),V(1)H(2),V(3)H(1),V(3)H(1),V(1)m3:X13,Y13X23,Y13X23,Y23X13,Y23X13,Y13~ SCAN SHAPE 200:123:"SCANNING RIGHT - ";Y1400: SCAN RIGHT(E11380223:1:868:"SCANNING LEFT - ";Y1 <490:1I8IH(1)1H(2)1*BIIY1V(3)16LCI,IIDVC11130N`II,IWjX1IktIV(3)1Y11}~IIX1H(2)1CII,IC11190II,IY2IIH(2)1X11IIY1Y2CI,IIC11250II,IX2I3022:1:868:21:1:868="MOVE THE CURSOR STRAIGHT DOWN"^"TO JUST BELOW THE SHAPE":s SHRINK OUTLINE200:23:2:"SHRINKING OUTLINE TO A MINIMUM SIZE."IV(1)1V(3)1IIH(1)1H(2)1CII,IC11070$II,I.YH,VZ:232,0:233,64KH(1),V(1)H(2),V(1)H(2),V(3)H(1),V(3)H(1),V(1)U101022:1:868:"SLIGHTLY ABOVE AND LEFT OF THE SHAPE.":22:1:868:21:1:868"MOVE THE CURSOR STRAIGHT ACROSS""TO THE RIGHT OF THE SHAPE.":,HB4 OUTLINE SHAPE<>21:958:"POSITION THE CURSOR"hH24::"PRESS 'P' WHEN IN POSITION.";:R3:X4:Y144:232,39:233,3:1X,Y:HX:VY\I13fI930,940,970pX$:23:X$"P"X$"p"H(I)H:V(I)V:900z220:880I::3:10NS$:NS(NS$):NS1NS255ĺ(7);(7);:730UXNS21:HB(X256):LBXHB256}MEM,1:MEM1,0:MEM2,LB:MEM3,HB LOCMEM2NS2:830MEM,(MEM)1:LOCMEMLE STLOCMEM:HB(ST256):LBSTHB256*MEM(MEM)2,LB:MEM1(MEM)2NOTHER SHAPE."7"TRY ANOTHER SHAPE TABLE? (Y/N) ";:?X$VX$"Y"X$"y"570oX$"N"X$"n"670y1820 NEW SHAPE TABLEF$""21:1:958:"HOW MANY SHAPES WOULD YOU LIKE TO ""LEAVE SPACE FOR IN THE SHAPE DIRECTORY?"R PRESS '?' FOR CATALOG":">";F$:F$"?"1920JbD$;"BLOAD ";F$;",A";MEMlLE(436165224PRODOS)(436175224PRODOS)256v(MEM2)(MEM3)256((MEM)1)279021:958:"SORRY - THERE'S NOT ENOUGH ROOM IN YOUR""TABLE DIRECTORY FOR A{ XʽiiL`H hFD#Lީ C=??>Ȅ";:A$::V@"ZAPZ":"----":$A("PLAYER 1 IS THE HOLLOW DIAMOND THAT BEGINS IN THE UPPER LEFT CORNER. PLAYER2 IS THE SOLID DIAMOND THAT BEGINS IN THE LOWER RIGHT CORNER. THE OBJECT OF THE HIh0h0 +``+`)`*`  Z`hhhvhhY4`憊Ƈ0LEc`u8#`)`$`*`8%`+`&`,` b8%`)`&`*`8#`+`$`,` b8%`)`&`*`m#`+`m$`,` b8#`)`$`*`m%`+`m&`,` b`*`HIh0h0 )``*`HIh0h0 )``,`HIh0h0 +`ɿ`,``'`i '`(`i(`%`&`%`#`$`$`HM&`h0h&`0 #`%`Li`#`%` $`&` XaL%cm#`)`m$`*`m%`+`m&`,` bm%`)`m&`*`m#`+`m$`,` bm%`)`m&`*`8#`+`$`,` bm#`)`m$`*`8%`+`&`,` b`ZYHHvHHHv٩3L/`L/L/L/L/L/L/#` ?c#`$`%`&`.8'`(` Xa(`HIh0h0 '`L`#`-`$`.`-`..`-`..`'`m-`'`(`m.`(`'`i'`(`i(`La8#`%`-`$`&`.`-`..`-`..`'`m-`'`(`m.`(   9,6,32,170,162,76,115,165,0:234,234,76,179,182,173,191,181,141,102,170,96:A46771:B42350:TAA74:C:T,C::YBB11:E:Y,E:  173,16,192,32,88,252,76,200,182,196,210,201,214,197,160,49,160,207,210,160,50,162,0,189,188,182,32,237,253,232,224,12,208,245,173,0,192,16,251,201,177,208,3,76,237,182,201,178,208,240,169,2,141,104,170,76,242,182,169,1,141,104,170 141,16,192,16, ESCAPE TO QUIT";:Z$::Z$(27)80:71,B(Y)" 0772,A(R):773,B(R)- :245763 Dc NE(222):EL(218)256(219):3288:216,0 X:12:E6E7ĺ"CIRCLE FILE NOT ON THIS DISK":630 bE8ĺ"I/O ERROR--CHECK DRIVE DOOR":630 l"ERROR "E" IN LINE "EL:( v"RETURN TO TRY AGAIN128280 : :/ ---END OF MAIN LOOP5 :; :T ---POKE THE LO & HIi  BYTES OF THE  PARAMETERS FOR  THE CIRCLE ROUTINE  WHERE IT EXPECTS  THEM, THEN CALL IT. : 768,A(X):769,B(X) &770,A(Y):7  X140:Y80 :- ---MAIN LOOP3 :C R016020I ":g ,---GET RANDOM, NON-BLACKv 6 HCOLOR| @: JHC((1)7)1:HC0HC4330 THC ^: h---GOSUB CIRCLE-CALLING r SUBROUTINE |: 540  (16384)n---FUNCTIONS A & B3 x GET THE HI & LO BYTESN OF THEIR ARGUMENTSk ...NUMBERS >=0 ONLY!q : A(T)(T256(T256))256 B(T)(T256) : ---CLEAR SCREEN, SET CENTER OF CIRCLE AT CENTER OF SCREEN :* **********************; * CIRCLE DEMO *X * BY BRENT IVERSON *u( * COYPRIGHT (C) 1988 *2 * BY MICROSPARC, INC *< * CONCORD, MA 01742 *F **********************P:590Z(4)"BLOAD CIRCLE":216,0d:      |7,P1:9,LE:768:M# ::23:: *****************Q DATA FOR 'CHARGE'h *****************  159,24,120,24,93,24,78,24,0,24,93,12,78,72,0,24RATIO: ";RT$(N)2 15:18:" ":3 BLANK SPACESO "15:11:"PDIST= ";PD(N)^ ,:N7370{ 6M18:P1,LE:P2P1MTPL @7,P1:8,P2:9,LE:774:M JN T******************* ^SOUND LOOP FOR DUET h******************* rM18:P1,LE )"DUET EMULATION ":5 BLANK SPACES@ RT$(N)"N TO N+1":N] 9:12:"SONG: 'CHARGE'"w ******************** SOUND LOOP FOR SOUND ******************** N09:6,PD(N):N4MTPL23 11:6:"SOUND TYPE: ";STYP$(N) 13:11:"LOAD SOUND"? MTPL1:PD(0)0:PD(1)1:PD(2)3:PD(3)7:PD(4)15n PD(5)0:PD(6)1:PD(7)15:PD(8)0:PD(9)127 N04:STYP$(N)"SAME PITCH VALUE" RT$(N)"1 TO 1":N N57:STYP$(N)"FUNDAMENTAL + FIFTH" RT$(N)"2 TO 3":N' N89:STYP$(N *********************9 * SOUND.DEMO1 *U * BY JIM RICHARDSON *q( * COPYRIGHT(C) 1988 *2 * MICROSPARC, INC *< * CONCORD, MA 01742 *F *********************P:(21)Z *****dSETUPn***** x(4)"BV 5e0`ʠ݈`  --HPLOT POINTS IN 80 @ QUADRANTS. NOTE THATH J NO CHECKING FORa T SCREEN LIMITS ISt ^ EVER DONE!z h: rAX,BY:AY,BX:AY,BX:AX,BY:AX,BY:AY,BX:AY,BX:AX,BY |A n: xA140:B80:R70 :> ---CALL CIRCLE-GENERATORD :M :3V 220\ b :t ---MAIN LOOPz : X0:YR:D32R 370 D0DD4X6:260 DD4(XY)10:YY1 XX1 XY230 XYİ370 " ,: 6- **********************; * BASIC CIRCLE *X * BY BRENT IVERSON *u( * COYPRIGHT (C) 1988 *2 * BY MICROSPARC, INC *< * CONCORD, MA 01742 *F **********************P:Z---SET CIRCLE POSITION d AND RADIUS           !12M 16,41,44,73,79,92,97,106,123,128,135,180,203,246,249,261,316,321,326 ,6,201,205,208,16r 169,210,32,79,134,169,197,32,79,134,169,205,32,79,134,96,164,226,177,6,24,144,135,162,8,10 38,8,38,9,144,14,72,165,8,73,33,133,8,165,9,73,16,133,9,104,202,208,232,96,169,0 133,8,133,9,133,251,133,252,96,208,210,201,206,22,226,160,0,185,117,134,32,79,134,200,192,5,144,245,164,226,176,3,32 79,134,200,196,224,144,188,96,166,224,104,104,169,141,96,132,226,136,177,6,201,160,240,249,201,186 240,8,201,176,144,36,201,186,176,32,164,226,200,177,6,201,197,208,23,200,17720,15,20,1,12,58,32,32,106,134,133 6,169,2,133,7,160,0,177,6,201,176,144,73,201,186,176,69,177,6,44,170,133,16,53,201,210 208,4,166,251,240,61,201,162,208,8,72,169,1,69,251,133,251,104,201,160,208,6,166,251,208,25D 240,26,201,191,208,19,13177,6i 32,79,134,230,6,208,2,230,7,230,251,208,2,230,252,165,251,205,168,133,165,252,237,169,133,144 227,162,0,189,171,133,32,237,253,232,224,7,144,245,44,16,192,32,128,254,164,8,166,9,32,64" 249,32,251,218,32,132,254,169,152,96,0,0,0,0,0,2,132,254,166,224,169,141,96,32,106,134,44,170,133,16,43,169,1,133,6,169 8,133,7,160,0,177,6,133,251,200,177,6,133,252,240,63,200,177,6,32,79,134,200,177,6,32 79,134,165,251,133,6,165,252,133,7,208,221,173,167,133,133,7,173,166,133,133,6,160,0,)111: TI^21:"PRESS RETURN TO CONTINUE ";:CH$:CH$:16368,0:]h $8500 VERSION}rI0377:ML:34048I,ML:I| 216,32,27,253,201,154,240,31,201,141,208,26,134,224,32,178,133,32,251,218,32,128,254,56,165,8H 229,9,32,218,253,3768)1ĺ:"ENTER THE MONITOR BY TYPING":" CALL -151";A"H0:L(H$):L1L4300:I1L:D((H$,I,1)):HHH(LI)(D48(D58D47)55(D64D71)):,6 $1600 VERSION@I0377:ML:5632I,ML:I:C5632JI018:ML:CML,(CML17,(B256):34216,B256(34217):34218,0:210: BELOW $1800 SOMEWHEREr (48896)76Ĺ56,0:57,133:1002:250 (4)"IN#A$8500":250 (48896)76Ĺ56,0:57,22:1002:250 (4)"IN#A$1600":250 :::34,1:2:"CHECKIT INSTALLED"5(:"AND RE-ENTER.":350:160G :::34,1:2:"INSTALLING CHECKIT..." A6144İ320:5799,(A256):5798,A256(5799):5801,(B256):5800,B256(5801):5802,0:230: ABOVE $1800 SOMEWHEREG A6144İ370:34215,(A256):34214,A256(34215):342 THE":"FILE (IN HEX)";:H$:290:AH} A736A39424ĺ:"INVALID ADDRESS. PLEASE DOUBLE-CHECK":"AND RE-ENTER.":350:140 13:958:"WHAT IS THE LENGTH OF THE FILE":"(IN HEX)";:H$:290:BH B1B32000ĺ"INVALID LENGTH. PLEASE DOUBLE-CHECK":< d216,0:768,0:H(3):H(0)1:H(1)16:H(2)256:H(3)4096 n6:"ARE YOU ENTERING A HEXADECIMAL":"FILE? ";:A$:16368,0:A$ xA$"N"A$(110)İ370:34218,128:210 A$"Y"A$(121)110$ 768,1:10:958:"WHAT IS THE STARTING ADDRESS OF o <:::"CHECKIT":"COPYRIGHT 1988 BY MICROSPARC, INC."x F90 PI0377:ML:CSCSML:::CS48127100 Z:"ERROR IN DATA STATEMENTS!":"PROBABLY LOCATED ON OR BEFORE LINE ";(123)(124)256O  *********************9 * *U * CHECKIT *q * COPYRIGHT 1988 BY *! * MICROSPARC, INC *$ * CONCORD, MA 01742 *( * *4 2 *********************      (TI,TJ)0S3:1350:1330:1400:TT1:cNI10TITI1:R%(TI,TJ)0S3:1350:1330:1400:TT1:NI10TJ1:TII:C%(TI,TJ)0S2:1370:1330:1580:TT1:NI10TJ2:C%(TI,TJ)0S2:1370:1330:1580:TT1:!OA$(I):I((A$,1)):J((A$,110)1:R%(TI,TJ)0S3::1090'M810508MBASKİ1510PML1350:1330:1400:ZMV1050M`TI((1)10)1:TJ((1)11)1:C%(TI,TJ)0S2:1140Mj1050MtASKİ1690M~1370:1330:1580:M1050M FIND OPEN AREA&NI10TJ1:TII:R%1LC%(TI,TJ)0İ1370:830'L950>L COMPUTER'S MOVEyLA$"The computer is deciding on a move..."::22:1380LX141:M0:A1LI1100:B%(I)3İ1180:I100L:TTTT0:LFL0:N((1)2)L$N11120M.TI((1)11)1:TJ((1)ʭX141İ1580:"KfMĕSTX,TY:M0X(16384):STX,TY:M(M1):X136X149X141X214X246Ĺ16368,0:850JH830JRX141MĕSTX,TY:CıK\0:IMĕSTX,TY:M01IX200X232S2:790@IX149740`ITI1TJ1TI11:TJ10:720}ITI1TJTJ1:TI11:720ITITI1IR%(TI,TJ)0İ1350:620I690ITI11TJ10TI1:TJ1:770ITI11TJTJ1:TI1:770ITITI1JR%(A$"h"S2:790,HDS3:A$"Q"A$"q"2050eHNJ110:I111:R%(I,J)0TII:TJJ:I11:J10:1350mHX:{Hb16368,0HlX(16384):STX,TY:M(M1):X136X149X141X200X232Ĺ16368,0:640Hv620HX141MĕSTX,TY:CıIX141İ140297,0:G HUMAN MOVE;G:23:M0:"(Q)uit";:22:36,0G&"(H)orizontal or (V)ertical line:";:A$:A$"H"A$"V"A$"h"A$"v"A$"Q"A$"q"Č198:540G0:22:"Use left and right arrow keys to select move. Return to make move."H:A$"H"who will make the first move."GFX(16384):A((1)9)1:X127470jF16368,0:A2(A2)C1:500rFC0F12:958:CPL$"Computer"FCPL$"Human"G"The "PL$" will make the first move.":I13000::16304,0:16301,0:16300,0:1621230,60:22230,90CEJ01:CJ:1850:: DRAW INITIAL SCORE`E SELECT WHO MOVES FIRSTE:" *-* CONNECTION *-* ";::" By Rudy A. Guy"EA$"Copyright (c) 1988 - MicroSPARC Inc.":1380ESK50İ1940F12:"Please press a key to see $(I)"00"::SKSK5:140'D@ TIE GAMEYDJA$"The game ends in a tie!"::21:1380:280iDT DRAW GRIDD^I1100:B%(I)0:DhJ1514513DrI7520513:1I,J:I,JD|I111:J111:R%(I,J)0:C%(I,J)0:J,IDJ35:I610:I35,J:JJ18:EMVMV0:170#CC((C1)):170OJ11J10]O(A$,1)"0"(A$)3JJ1lOJ11J10zOTII:TJJOS3:R%(TI,TJ)0İ1350:1330:1400:TT1:O TITI1:R%(TI,TJ)0İ1350:1330:1400:TT1: PS2:TII:C%(TI,TJ)0İ1370:1330 ";:33 SPACES@b16368,0:STROBE. CLEAR KBD BUFFERFlav*********************|* CALL SOUND SUBRTN **********************P1,P2,LE:P10ı7,P1:8,P2:9,LE:774:660*******************DATA FOR PLAIN SONG WORLD OF HARMONY ON"::"THE APPLE."+D*******************]&* CONTINUE SUBRTN *v0*******************:16368,0: STROBE. CLEAR KBD BUFFERD7:23:"PRESS TO CONTINUE"N(16384)128590X23:" AIL FLY'. MOST OF"::"THIS SONG IS HARMONIZED IN THIRDS.":"ONLY TWO SECONDS WERE USED IN THIS SONG,":"AND THEY WERE USED AS DOMINANT 7THS.":570:660%2:14:"SEE HOW SIMPLE IT IS?"::"NOW IT'S YOUR TURN TO EXPERIMENT AND"::"EXPLORE THE NEW0:5:12:"1. OPENING":660p570:5:13:"2. CLOSING":660:1:15:"II. CONTRARY FAN":3:17:"A. CHROMATIC"570:5:19:"1. OPENING":660:570:5:20:"2. CLOSING":660:570<:3:" THE FINAL SELECTION IS A FOLK SONG"::"ENTITLED 'THE BLUE THE"::"SAME) OR CONTRARY (IE. BOTH NOTES MOVE"::"APART)."s:" FOLLOWING ARE SEVERAL EXAMPLES OF FANS.":570:3:"I. OBLIQUE FAN":3:5:"A. STEPWISE MOTION":5:7:"1. OPENING":660570:5:8:"2. CLOSING":660:3:10:"B. CHROMATIC":57:3:" THERE IS ONE OTHER DEVICE THAT IS"::"AVAILABLE TO YOU, THE FAN. IT IS CALLED"::"A FAN BECAUSE THE NOTES SLOWLY MOVE"::"APART LIKE A FAN BEING UNFOLDED.":<" FANS CAN BE EITHER OBLIQUE (IE. ONE"::"NOTE MOVES WHILE THE OTHER STAYS TPPROACHED AND"::"RESOLVED IN STEPWISE MOTION."::" FOLLOWING ARE THREE EXAMPLES OF HOW TO"::"USE THE DOMINANT 7TH CHORD."570:1:14:"1. C-E F-G C-E":660:570:1:15:"2. E-G F-G C-E":660:570:1:16:"3. C-E F-A E-G F-G C-E":660:570 BUILT UPON THE":"FIFTH SCALE DEGREE. IN THE KEY OF 'C'":"THAT WOULD BE THE NOTE 'G'. THE G 7TH"::"CHORD IS SPELLED G-B-D-F. TO SUGGEST THE":"DOMINANT 7TH CHORD USE THE ROOT AND THE":"7TH, (IE. F-G).":570~:3:" THE 7TH IS USUALLY ALY,"::"OR BE CAREFUL TO HARMONIZE AROUND THE"::"BAD INTERVALS IN THE SECOND OCTAVE.":570r:3:" INTERVALS OF SECONDS MAY BE USED IN"::"MANY WAYS. THE MOST USEFUL OF THESE IS"::"AS A DOMINANT SEVENTH CHORD.":;|:"THE DOMINANT 7TH CHORD ISAJOR 3RD C'E' 120,96"!J570}T:3:" A SCALE MADE UP OF THIRDS IS FAIRLY IN"::"TUNE WITHIN THE FIRST OCTAVE.":660^:"...BUT THE SECOND OCTAVE IS NOT.":660]h::" TO AVOID THESE INTERVALS, EITHER"::"HARMONIZE WITH THE FIRST OCTAVE ONBETWEEN COLUMNS5" D MINOR 3RD D F 216,180"[" E MINOR 3RD E G 192,160"" F MAJOR 3RD F A 180,144""" G MAJOR 3RD G B 160,128"," A MINOR 3RD A C' 144,120"6" B MINOR 3RD B D' 126,105"@" C' M MINOR THIRDS."_ " A 'C' MAJOR SCALE CONSTRUCTED OUT OF"::"THIRDS WOULD BE AS FOLLOWS:": "BASE LETTER PITCH": 12 SPACES "NOTE INTERVAL NAMES VALUES": 2 SPACES BETWEEN TITLES" C MAJOR 3RD C E 240,192": 3 SPACES $$?????????????? *--5???N->7->7-->??'%)-???.M)>;.M)>;.--??666.$$$255V$$$,666&)- ?6 $$-- -?'--?(-I$$6---?',-%)-?$ - d ?N1 $$-?VI!$,-?VI!$-m$$--?-??????????????$$-D66 $- $ 66`66 $d->?N1 $$.5?IWdAJOZemvd6.$&----;.M)>;.--??57-?7m57.I$$$,666666>$$$> '666>$$$$--->??757-,5;.--5???V--???.M)757--%5??--->??w)5?.5?.5?  80,80,48,160,170,48,192,160,48,216,162,968-1,-1,-1D CLOSEs216,162,48,192,160,48,160,170,48,80,80,96$-1,-1,-1.#OBLIQUE CROMATIC#8 OPENB160,160,48,170,160,48,180,160,48,192,160,48L205,164,48,216,162,96V-1,-1,-1 0,160,96,240,192,96!-1,-1,-1G192,160,96,180,160,96,240,192,96U-1,-1,-1240,192,96,180,144,96,192,160,96,180,160,96,240,192,96-1,-1,-1*************DATA FOR FANS*************#OBLIQUE STEPWISE# OPEN*****************;R120,96,48,108,90,48,90,75,48,85,68,48d\80,64,48,70,60,48,63,54,48,60,48,48rf-1,-1,-1p***********************************zDATA FOR DOMINATE 7TH CHORD CADENCE***********************************240,192,96,18DATA FOR C SCALE IN THIRDS> **************************o240,192,48,216,180,48,192,160,48,180,144,48 160,128,48,144,120,48,126,105,48,120,96,48*-1,-1,-14***************************>DATA FOR C' SCALE IN THIRDSH******************************I216,162,60,240,180,60,216,162,60,180,135,60x216,162,60,240,180,60,216,162,180,0,0,120216,162,60,192,144,60,180,135,60,192,144,60216,162,60,240,180,60,216,162,240-1,-1,-1**************************FORWARD ORDER"&I"2. REVERSE ORDER"CIG$:G$"1"G$"2"500YIG$:RD(G$"1"):IJV23:1:J:40);::1:V:G$" ";::"("A"-"B")?";::I"ENTER VALUE->";R$:R(R$):RARB(R$,1)"0"(R$,1)"9"520IVV3:I&580dJ0::"YOU. SAVE TREE AND EXIT":"3. EXIT":EXĺ"4. RESUME DRAWING TREE."H(8):G$:G$"1"G$"2"G$"3"(G$"4"EX)450:G$"1"Ĺ16304,0:16302,0:G$::450HG$"4"870:G$"2"550::"FINISHED.":H:"DO YOU WISH THE TREE TO DRAW IN:"I:"1. FL(FL):FL(J)FL:FL(FL)G:FLA:330\GGFL(BE):AFL(FL):FL(BE)FL:FL(FL)G:BEFL:FLA:330mGJFL(J):330G3288:FCFC1:BLFL(J):GFL:FLJ:FL(J)G:BCBC1:JBL:NNNN1:BC0330G::"ALL BRANCHES WERE PROCESSED":EX0?H:"1. VIEW TREE":"2L(J)1DFh(1)GB370:TH(J)TH(J)1TK(J)(1)CV(12((1).5))zFrL(J)LN(L(J)LN)410:((1)NB)1NBFC330F|X(FL)X(J):Y(FL)Y(J):TK(FL)(.5(1)2)TK(J):TH(FL)TH(J)TK(FL)TK(J)(12(1)):L(FL)0#GBCBC1:FCFC1:RD400:GFL(J):A16302,0QE@(23):"PRESS Q TO QUIT; SPACE TO BRANCH":"RETURN TO TOGGLE TEXT";EJXX(J):YY(J):RTK(J):TTH(J):TX820:(16384)128830ETR.5420:A(T):B(T)F^X2X(RA):Y2Y(RB):X,YX2,Y2:X(J)XB(A):Y(J)Y(A):TK(J)R(R80):L(J)THE TEXT WINDOW;":" Q TO QUIT PROGRAM."|D:" ** NOTE ** LEAVING THE TEXT WINDOW ON";:15:"SLOWS DOWN THE PROGRAM."DG$:G$::"INITIALIZING LINKED LIST...."D420D"J0N1:FL(J)J1::FL1:FCND,BC1:BL0:JBL:BE1:NN1 E6:3:::"TREE GENERATION PROGRAM DEVELOPED"NC"AND WRITTEN BY JOHN W. RATCLIFF":sC"TREE SPECIFICATION IS:"::710C:"1. PRESS RETURN TO BEGIN."C"2. WHILE THE TREE IS DRAWING PRESS:"C" SPACE TO START NEW BRANCH;*D" RETURN TO TOGGLE URVE":A0:B100:520:CVR50gBCV150:G$"WHAT DISTANCE TO ALTER BRANCH":A1:B20:520:GB(21R)20BG$"HOW OFTEN NEW BRANCHES SPROUT":A5:B50:520:NBRBG$"LENGTH TO BEGIN NEW BRANCH":A50:B250:520:LNRB600:G$"N"110B470%C:AM IN UPPER MEMORY....":(4)"RUN TREES"ZAZN399:X(N),Y(N),TH(N),TK(N),L(N),TL(N),FL(N)AdX(0)(1)30100:Y(0)191:TH(0)0:L(0)1:580An1060:V1:GB0AxG$"HOW THICK IS THE TREE TRUNK":A10:B100:520:TK(0)RBG$"HOW MUCH DO THE BRANCHES C@ **********************;@ * TREES *X@ * BY JOHN RATCLIFF *u@( * COPYRIGHT (C) 1988 *@2 * BY MICROSPARC, INC *@< * CONCORD, MA 01742 *@F **********************(AP(104)64Ĺ104,64:16384,0:"RELOCATING PROGR          ,135,108,48 9"x108,90,48,108,90,72,108,90,24,120,96,48j"120,96,48,135,120,48,162,135,48,180,144,144x"-1,-1,-1,240,180,24,180,144,24G!F180,144,48,180,144,72,180,144,24,192,160,48x!P162,135,48,162,135,96,240,180,24,162,135,24!Z162,135,48,162,135,72,162,135,24,180,144,48!d144,120,48,144,120,96,180,144,24,144,120,24 "n144,120,48,144,120,72,144,120,24,192,160,24,192,160,24,180,144,48R 162,135,72,144,120,24,135,108,48,144,120,48 162,135,24,162,135,24,180,144,48,216,180,48 (216,180,48,135,108,72,216,180,24,240,192,48 2192,160,48,162,135,72,135,120,24,144,120,48!<180,144,48,180,144,96************************:DATA FOR 'THE BLUE TAIL FLY']**************************** 144,120,48,135,108,48,144,120,48,162,135,48180,144,48,216,180,48,216,180,48,135,108,72240,180,24,180,144,48,180,144,48,180,144,48! 180,144,48` CLOSE;j216,162,48,205,164,48,192,160,48,180,160,48Tt170,160,48,80,80,96b~-1,-1,-1{#CONTRARY CROMATIC# OPEN80,80,48,170,153,48,180,144,96-1,-1,-1 CLOSE180,144,48,170,153,48,80,80,96-1,-1,-1****S.:24:40)!S81:1:40)-SBX223JSLX:1:" ";:40:" ";:XSSV:5jS`16:"T R E E S":Sj12:"BY JOHN W. RATCLIFF"::4:"COPYRIGHT 1988 BY MICROSPARC INC."St21:8:"PRESS RETURN TO CONTINUE";S~G$::: "WILDLY CURVING",1,2.1R 39R "FREQUENTLY",.5,1.1MR "OFTEN",.2,.5R "AFTER FOLLOWING THE SAME COURSE FOR A WHILE",0,.2R 3R "VERY CLOSE TOGETHER",5,15R "MODERATELY SPACED",15,30R "SPREAD WIDELY APART",30,51S$:(17);:R NEW BRANCHQ\?Qf16304,0:23:"PRESS Q TO QUIT EARLY":GQp 3ZQz "THIN",10,39qQ "MODERATE",40,60Q "THICK",60,101Q 5Q "STRAIGHT",0,0Q "SLIGHTLY CURVING",0,.2Q "MODERATELY CURVING",.2,.5Q "VERY CURVY",.5,1RACESeP>G(16384)128:16368,0:G32G81G113TXTX:16302TX,0:860: RETURN OR OTHER KEYPHG81G113ĉ:::"FINISHED DRAWING YOUR TREE.":EX1:440: Q PRESSED QR:FCFC1:BLFL(J):GFL:FLJ:FL(J)G:BCBC1:JBL:NNNN1: SPACE PRESSED FOE A PICTURE FILE.":800hO::"UNEXPECTED ERROR NO. "ER" HAS OCCURRED":"IN LINE "(218)256(219):rO 580xO*P436,0:(21):"X="(X)" Y="(Y)" ANGLE="((T180)3.14159)" THICK="(R.5)" ":"BRANCH#:"NN" FREE:"FC" USED:"BC" "::7,3 SPRTED IN THE DRIVE CORRECTLY AND THE DRIVE DOOR IS CLOSED.":800NER6(48896)76ĺ(4)"PREFIX":PF$:M$"PATH NOT FOUND. PLEASE INSERT A DISK WITH THE PREFIX "PF$:800O ER9M$"YOUR DISK IS FULL. PLEASE INSERT A DISK THAT HAS ENOUGH ROOM TO SAVR:J1R:G$,A,B:GAGBFFJ:F$G$/M:FMSK0:K39:EK(M$)eM(M$,K,1)" "KK1:720M(M$,SK1,KSK):SKK:KK39:KEK720M(M$,SK1,EKSK)M?NER(222):ER8M$"AN I/O ERROR OCCURRED. MAKE CERTAIN THAT YOUR DISK IS INSEICH CHANGE DIRECTION "F$LGNB:690:M$M$". BRANCHES ARE "F$" AND GROW FOR A LENGTH OF "(LN)" UNITS BEFORE STARTING A NEW ONE."L710L:"IS THIS TREE OKAY (Y/N)?";LG$:G(G$):G$(G32(G95)):G$"Y"G$"N"670:G$L'MF0:$"2"590:G$"1"560:`KXG(0):::"TREE SELECTION IS:"::M$"YOU SELECTED A TREE WITH A "KbGTK(0):690:M$M$F$" TREE TRUNK AND ":CVM$M$" COMPLETELY STRAIGHT BRANCHES"KlGCV:690:CV0M$M$F$" BRANCHES"LvGGB:690:CV0M$M$" WHR TREE WILL BE SAVED IN PICTURE":"FORMAT AS PIC.TREE"::"INSERT DISK TO SAVE ON AND PRESS RETURN."J:G$::"SAVING...":(4)"BSAVE PIC.TREE,A$2000,L$1FF8":JD216,0:3288:760:710:"PRESS (1) TO TRY AGAIN OR (2) TO EXIT"KN3288:G$:G$"1"G""" " " " " """""""""     SE BETWEEN PUTTSjN)t6,7:PDIST=7;~N3018.25c7,(3N):8,(5N):774:2ND GEAR!x9,2:774:PAUSEN:******** END ********:::23:"BYE":************!* AUTO ENGINE *6***************H6,1:PDIST=1\9,2:LENGTH=2 hN130$7,120:8,200:774:IDLE.7,0:774:PAUSE 8NB6,3:PDIST=3LN4030.2V7,(3N):8,(5N):774:1ST GEAR!`9,2:774:PAUz9,2:LENGTH=2/7,57:8,57:PITCH1 & 2=C#@VOL2111b6,VOL:PDIST CONTROLS VOLUMEz774:SOUND ROUTINEVOL7,84:8,84:PITCH1 & 2=FVOL21116,VOL:PDIST CONTROLS VOLUME774:SOUND ROUTINEVOL: *****6,0:PDIST=0'9,2:LENGTH=23A3:B5ALOOP18O N611a7,AN:8,BNy 774:SOUND ROUTINE*N4N25>7,AN:8,BNH774:SOUND ROUTINERN,LOOP:\*************f* DOOR BELL *p************* SE / LENGTH=20b774*l9,2:LENGTH=23vJ:C**********S* PHASER *c**********v6,42:PDIST427,219:8,17:PITCHS 1 & 29,255:LENGTH=255774:******************** SPACESHIP ALARM ****************** 7,2N:8,3N( 774:SOUND ROUTINE1 N:J *******************c * BATTLE STATIONS *| ******************* 6,15:PDIST=15 9,2:LENGTH=2 &J14 0N120802 :7,N:8,N D774:SOUND ROUTINE NNX7,0:9,20:PAU(V2):12:A$(V)5 |PN16::2(PN2):12:A$(PN)V PN440,530,670,740,890,1030x :2(PN2):12:A$(PN):PN: ******************** * ASCENDING FIFTHS * ******************** 6,127:PDIST=127 9,1:LENGTH=1 N8021 SUB RT'NK ,22:"_______________________________________":39 UNDERLINES 6"TYPE NUMBER, OR USE ARROWS,":"THEN PRESS RETURN."; @K07:2(K2) J9:K;". ";A$(K):: T***************** ^* PLAY THEM ALL * h***************** r:216368,0::2(V2):12:A$(V)l KS141Ğ:2(V2):12:A$(V):(V1)370,440,530,670,740,890,1030,1220 KS136KS139VV1:V0V7 KS138KS149VV1:V7V0 KS175KS184VKS176 KS136KS183ĺ(7) 200 "SCREEN SETUPEM ALL"$ xA$(1)"ASCENDING FIFTHS"@ A$(2)"BATTLE STATIONS"S A$(3)"PHASER"o A$(4)"SPACESHIP ALARM" A$(5)"DOOR BELL" A$(6)"AUTO ENGINE" A$(7)"EXIT TO BASIC" :300:V0 :2(V2):12:A$(V) KS(16384):KS128210!  *********************9 * SOUND.DEMO3 *U * BY JIM RICHARDSON *q( * COPYRIGHT(C) 1988 *2 * MICROSPARC, INC. *< * CONCORD, MA 01742 *F *********************PZ(21)d(4)"BLOAD SOUND" nA$(0)"PLAY TH! ! ! ! ! !!!!!!!!CLOC1ILOC,0.LOCLOC1:LOC,0:21:1:"WOULD YOU LIKE TO SEE THE SHAPES IN":"THIS SHAPE TABLE? (Y OR N) ";:X$X$"N"X$"n"1610X$"Y"X$"y"14803:1:0I1(MEM):I100,100:21:1021:1: SCAN LEFTFE11380#P1300XZ CREATE SHAPE TABLE ENTRIES AND POKE INTO TABLEd200:23:3:"CREATING SHAPE TABLE ENTRIES -"n21:33:"VECTOR";x300200:23:4:"POKING SHAPE ENTRIES INTO TABLE."I0QLOC,VEC(I)LO:H(1),V(1)H(2),V(1)H(2),V(3)H(1),V(3)H(1),V(1)m3:X13,Y13X23,Y13X23,Y23X13,Y23X13,Y13~ SCAN SHAPE 200:123:"SCANNING RIGHT - ";Y1400: SCAN RIGHT(E11380223:1:868:"SCANNING LEFT - ";Y1 <490:1I8IH(1)1H(2)1*BIIY1V(3)16LCI,IIDVC11130N`II,IWjX1IktIV(3)1Y11}~IIX1H(2)1CII,IC11190II,IY2IIH(2)1X11IIY1Y2CI,IIC11250II,IX2I3022:1:868:21:1:868="MOVE THE CURSOR STRAIGHT DOWN"^"TO JUST BELOW THE SHAPE":s SHRINK OUTLINE200:23:2:"SHRINKING OUTLINE TO A MINIMUM SIZE."IV(1)1V(3)1IIH(1)1H(2)1CII,IC11070$II,I.YH,VZ:232,0:233,64KH(1),V(1)H(2),V(1)H(2),V(3)H(1),V(3)H(1),V(1)U101022:1:868:"SLIGHTLY ABOVE AND LEFT OF THE SHAPE.":22:1:868:21:1:868"MOVE THE CURSOR STRAIGHT ACROSS""TO THE RIGHT OF THE SHAPE.":,HB4 OUTLINE SHAPE<>21:958:"POSITION THE CURSOR"hH24::"PRESS 'P' WHEN IN POSITION.";:R3:X4:Y144:232,39:233,3:1X,Y:HX:VY\I13fI930,940,970pX$:23:X$"P"X$"p"H(I)H:V(I)V:900z220:880I::3:10NS$:NS(NS$):NS1NS255ĺ(7);(7);:730UXNS21:HB(X256):LBXHB256}MEM,1:MEM1,0:MEM2,LB:MEM3,HB LOCMEM2NS2:830MEM,(MEM)1:LOCMEMLE STLOCMEM:HB(ST256):LBSTHB256*MEM(MEM)2,LB:MEM1(MEM)2NOTHER SHAPE."7"TRY ANOTHER SHAPE TABLE? (Y/N) ";:?X$VX$"Y"X$"y"570oX$"N"X$"n"670y1820 NEW SHAPE TABLEF$""21:1:958:"HOW MANY SHAPES WOULD YOU LIKE TO ""LEAVE SPACE FOR IN THE SHAPE DIRECTORY?"R PRESS '?' FOR CATALOG":">";F$:F$"?"1920JbD$;"BLOAD ";F$;",A";MEMlLE(436165224PRODOS)(436175224PRODOS)256v(MEM2)(MEM3)256((MEM)1)279021:958:"SORRY - THERE'S NOT ENOUGH ROOM IN YOUR""TABLE DIRECTORY FOR APP1:M(P)2:C1M(P)60 &Y1Y11:Y1Y2E16 0 :F$"":21:1:958:"DO YOU WANT TO ADD THIS SHAPE TO AN":"EXISTING TABLE? (Y/N) ";:16368,0:X$ DX$"N"X$"n"730 NX$"Y"X$"y"570-X21:1:958:"ENTER SHAPE TABLE FILENAME":"O |  SCAN RIGHT& IX1X212 CI,Y1O PP1:M(P)1:C1M(P)5V Ic CX2,Y1 PP1:M(P)2:C1M(P)6 Y1Y11:Y1Y2E1   SCAN LEFT IX2X111 CI,Y1 PP1:M(P)3:C1M(P)7 I CX1,Y1 DN$VY5:V159VY:! 1X,Y, 1H,V: XH:YV:[ " CREATE SHAPE TABLE ENTRIESn ,B0:Q0:V1P 6B2M(V)0M(V)4340 @B2(M(V)0M(V)4)340 JB0:QQ1 TVEC(Q)VEC(Q)M(V)(8B) ^BB1 hB2B0:QQ1 r23:34:V:V750: HIRES (SCRN) FUNCTION$ 570T 21:1:958::13:"PLEASE STANDBY"::1:f MOVE CURSOR X$"J"X$"j"X$LF$HX5:H0HX: X$"K"X$"k"X$RT$HX5:H279HX: X$"I"X$"i"X$UP$VY5:V0VY: X$"M"X$"m"X$,0: HGR W/O CLEARING SCREEN6 d24576: ABOVE PAGE 2b nMEM16384: STORE SHAPE TABLE ON PAGE 2m x1840 PRODOS(48896)76:PRODOSD$(13) LF$(8):RT$(21):DN$(10):UP$(11) M(1000),VEC(900) 232,0:233,64 D$D$(4) 1 **********************9* HIRES.SCAN *U* BY RON SJOLANDER *q(* COPYRIGHT(C) 1988 *2* MICROSPARC, INC. *<* CONCORD, MA 01742 *F**********************P::(21):1:0 Z49232,0:49235,0:49236,0:49239