y&:SCREEN SAVER&*:BY FRANK D'URSO&C:COPYRIGHT (C) 1992&Z:BY FALSOFT, INC.&q:RAINBOW MAGAZINE&yFA8&P : 65497,0:2:A: BREAK 390&ZX(2)&dD(3)&nB(3)&xQ(3)&Z(7)&ZZ1& Z8 ZZ0' Y1 400'BB1:SS.1:DDQ'3 B250 BB3'=YY1'E Z'Y҅ B250 BB1'm܅ D180 QQ2' D5 QQ2' B5 BB2'X((S)160)160' X1 XX2' D1 DD2' B1 BB2'"(X,D)(D,B),',M250D(6N250B(@ M1 MM10(.J N1 NN10(8T M,1(B^ N,1(Jh Y([rXX0:BB20(e|140(x 65496,0:0:Q2' B5 BB2'X((S)160)160' X1 XX2' D1 DD2' B1 BB2'"(X,D)(D,B),',M250D([&:NEW CLS&$:BY STEVEN PULS&=:COPYRIGHT (C) 1992&T:BY FALSOFT, INC.&k:RAINBOW MAGAZINE& 100,&H3000: 30& M"NEWCLS",&H3000,&H3029,&H3000&&ADD&H3000 &H3029:INF$:ADD,("&H"INF$):: 10'Z( 8E,4,0,10,8E,0,0,A6,84,81,20,27,6,80,1,A7,84,31,21,30,1,8C,6,0,26,ED,10,8C,0,0,27,9,10,8E,0,0,8E,4,0,20,DE,39INBOW MAGAZINE& 100,&H3000: 30& M"NEWCLS",&H3000,&H3029,&H3000&&ADD&H3000 &H3029:INF$:ADD,("&H"INF$):: 10'Z( 8E,4,0,10,8E,0,0,A&:DISK DEFRAGMENTOR&/:BY NICK JOHNSON&H:COPYRIGHT (C) 1992&^:BY FALSOFT, INC&u:RAINBOW MAGAZINE&| ڈ& (&HFFFF)27 WD(&HE7): &HF652: 65502,0& 1&(DV(&H95A)&2 20000: F1$(68): A$(10): B$(10): G(72)'<'&F" -=> COCO DISK DEFRAGMENT <=-"'LP" -=> BY NICK JOHNSON <=-"'TZ:'td6)"bEGIN DEFRAGMENTATION"'zn'x6)"dISPLAY GRANULE TABLE"''6)"qUIT"'@100,(25,207):@292,(25,207)( X4 8:@(X32)4,(207);:@(X32)28,(207);: X(@384(2A$: A$"" 180(M ("BDQ",A$)0 180(ȅ A$"B" 220 : A$"D" 1200 : A$"Q" 210(ҁ 1810: 200,32768: (&HFFFF)27 65503,0: &HE7,WD:(ܞ(A$"DEFRAGMENTATION"( 1350)#"INSERT A BLANK, FORMATTED DISK IN DRIVE 1.")U:"INSERT THE FRAGMENTED DISK IN DRIVE 0.")x:"PRESS [ENTER] WHEN READY.") (13) 280)"),A$"DEFRAGMENTATION IN PROGRESS")6 1350)@:FAT$"")J5)"PRESS [ENTER] TO ABORT."* T@160,"FILENAME"*#^@192,"CURRENT OP:"*=h@224,"TRACK, SECTOR"*Qr@256,"GRANULE"*c|@288,"DRIVE"*i*F$"":OP$"READING DIRECTORY":T1:S1:G1:D0* 1480*:READ THE DIRECTORY.* 1810* I3 11*0,17,I,A$(I1),B$(I1)+S1:T17: 1480+֋ I+$ 1790+OOP$"PROCESSING DIR":T1:D1: 1480+WP2+cN1:O1+ (N1)32128 570 : Q$(A$(P),(N1)321,32)+ (Q$)0 NN1: 520+ (A$(P))255 (Q$)255 650+&F1$(O)Q$,0 (N1)32128 570 : NN1:OO1: 520,&:N1,]D (N1)32128 630 :Q$(B$(P),(N1)321,32),{N (Q$)0 NN1: 580,X (B$(P))255 (Q$)255 650,bF1$(O)Q$,l (N1)32128 630 : NN1:OO1: 580,vPP1: P11 650-N1: 520-:-*OO1 :O IS # OF FILES-@OP$"READING FAT"-QT17:S2:D0-] 1480-|1810:0,17,2,A$(1),B$(1)-Ɓ1790:GR0 :LAST AVAILABLE GRN ON NEW DISK-Ѐ K1 O :OUTER LOOP-څ (13) 50-F$(F1$(K),11)."OP$"ANALYZING FILE":T1:D1:G1: 1480.NFG((F1$(K),14,1)):EGFG :1ST GRAN.LB((F1$(K),15,1))256((F1$),16,1)). G(K)GR.OP$"GRABBING GRANULE". D0:GEG: 1550.*OP$"WRITING GRANULE.".4D1:GGR: 1680/">OP$"CHECKING NEXT GR":D1:T1:S1:G1: 1480/>HNG((A$(1),EG1,1))/RR NG192 930/d\EGNG:GRGR1/fOP$"UPDATING FAT":D1:T17:S2:G1: 1480/pFAT$FAT$(GR)/z 1810/1,17,2,FAT$,""/ 1790/ 7900OP$"UPDATING FAT":D1:T17:S2:G1: 14800/FAT$FAT$(NG):GRGR10; 18100O1,17,2,FAT$,""0[ʁ 17900cԋ K0OP$"UPDATING DIR":D1:G10:0FI1: MS2 100 I14 128 320(A$(MS),I,1)(G(FI))0FIFI10 I0$ I14 128 321.(B$(MS),I,1)(G(FI))1%8FIFI112B I: MS1TLFAT$FAT$(68(FAT$),255)1gVT17:S2:F$""1s` 14801j 1810:1,17,2,FAT$,"": 17901t I3 111~ 181011,17,I,A$(I1),B$(I1)1 17901 I1 5011FC02A$"GRANULE TABLE: "2 ΁ 13502,؁ 18102@ DV,17,2,A$,B$2L쁦 17902](32,"-");2l X1 682 " %% ":(((A$,X,1)));2 ((A$,X,1))255 FCFC12 X2(:" FREE:"FC:(32,"-");22"PRESS ANY KEY."3< "" 60 : 13403FX10:X2313$PA(A$)32ZB(A2)3BdB$(A$,B)3\nC$((A$,B1,AB1))3mxX2X2(C$)3 X11 @X11,"";3@X1,B$;3@X2,C$3X2X213X1X113 X2X1(B2) 1470 : 14103@32,"";:3:4҇@171, "%%";F$;4(܇@204, "% %";OP$4l@238,"";: T1 S1 " ";: 1520 : "## ##";T,S;4@264,"";: G1 " ";: 1530 : G;4@293,"";: D1 " ";:1540 : D;44:4ST(G2)4" G33 STST15$, G2(G2) SS1:M0 : SS10:M9506ESSS85@@ ZSS ES5UJSZ:TST: 14805aT 18105}^D,ST,Z,C$(ZM),D$(ZM)5h 17905r Z5|5:5ST(G2)5 G33 STST15 G2(G2) SS1:M0 : SS10:M95ESSS86 ZSS ES6SZ:TST: 14806)́ 18106ED,ST,Z,C$(ZM),D$(ZM)6Q 17906Y Z6_6 (&HFFFF)27 65497,0 : 65495,066 (&HFFFF)27 65496,0 : 65494,06 G2(G2) SS1:M0 : SS10:M95ESSS86 -&: GOPHER SMASH&2:0,0:4,0:H0:K1:A18:A,750:A:B19:C(B),D(B),E(B):B:32,40,81,128,40,87,224,40,69,32,88,65,128,88,83,224,88,68,32,136,90,128,136,88,224,136,67'k(28,24),28,4,.3,.5,0:(14,24),8,4:(14,24),2,4:(42,24),8,4:(42,24),2,4:"BM28,24F8L16E8BD10R8D2G4L8H4U2R8D6":(14,20),7,4:(42,20),7,4:(0,24)(0,40),:(56,40),:(56,24),(((28,28),2,4:(88,16)(88,20),:(60,20)(116,40),,B:(60,27)(116,33),,B:(88,23),2,4:(88,30),3,4:(88,36),5,4:"BM120,18D20R16U8R36U4L36U8L16":(130,28),6,4:(120,22)(136,34),,B((0,0)(56,24),1:(0,8)(56,32),2:(0,16)(56,40),3:(180,16)(236,40),4:(60,0)(116,24),5:(60,8)(116,32),6:(60,16)(116,40),7:(120,16)(176,40),8::2:(4,4)(316,28),,BF:(4,32)(316,182),,B)3:F1620896:G6516148:(F,G)(F88,G16),,BF:G,F:4:(7,9),"Q":(19,9),"W":(31,9),"E":(7,15),"A":(19,15),"S":(31,15),"D":(7,21),"Z":(19,21),"X":(31,21),"C)I0:J61:(C(K),D(K))(C(K)56,D(K)24),4*wJJ1:(1,1),"SCORE:":(19,1),"HI-SCORE:":(16,2),"TIME:":2:(56,8)(136,15),,BF:(232,8)(304,15),,BF:(168,16)(190,23),,BF:4:(7,1),I:(28,1),H:(21,2),J* IH HI:JJ1:7+C J1 (15,5),"GAME OVER":(4,23),"Do you want to play again (Y/N)?":R$:R$"Y" 0:(120,38)(192,47),,BF:(32,184)(288,192),,BF:4:6:R$"N" &HFFD8,0:32::9+f K(9):L(2): L1M0:M4+x NM1:ON:P1+ (C(K),D(K))(C(K)56,D(K)24),O:Q$: Q$"" 17+ OOP+ON2 ON2:P1, ON (C(K),D(K))(C(K)56,D(K)24),4:7,12,S19,3 (Q$)E(S)19:20,(C(S),D(S))(C(S)56,D(S)24),8:(C(S),D(S))(C(S)56,D(S)24),4:E(S),1: SK 21,S:,L1IIO:(1,2),"OUCH!":24:(8,16)(48,24),,BF-L2II(O4):(34,2),"BOOM!":24:(272,16)(312,24),,BF-4:-,2:T150:T::20,(C(S),D(S))(C(S)56,D(S)24),8:(C(S),D(S))(C(S)56,D(S)24),4:E(S),1: SK 21,S:,L1IIO:(1,2),"OUCH!":24:(8,16)(48,24),,BF-L2II(O4):(34,2),"BOOM!":24:(272,1&:PROMPT IMPROVEMENT&/:BY RIC PUCELLA&H:COPYRIGHT (C) 1992&_:BY FALSOFT, INC.&v:RAINBOW MAGAZINE&<200,&H7F001&FL&H7F00&P100&Z:::"PROMPT CHANGED...":::&H7F00:')dA$:I1(A$)2:B$(A$,I,2):B$"**" : L,("&H"B$):LL1::100 :ML LOADER'n8E7F07BFAC7A39BDB9588E7F2EBDB99CB6095A8B30BDA2828E7F3ABDB99C1F40931FBDBDCCBDB9588EABEDBDB99C39202044454620445220232000202046524545204D454D200020**&H7F00:')dA$:I1(A$)2:B$(A$,I,2):B$"**" :NNNNNNNNNNNNNNNNNNNNNNNN"NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN"NNNNNNNNNNNNNNNNNNNNNN'(RAINBOW ON !DISK "JANUARY 93#GOFR SM BAS0PROMPT BASCMPSAVE BAS$RCMPLOAD BAS%CDISKFRAGBASDARN IT BAS&{SSAVER BAS|NEWCLS BAS^NEWCLS BIN)4NNNNNNNNNNNNNNNNNNNNNNNN"NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN"NNNNNNNNNNNNNNNNNNNNNNO& :COMPRESSED HSCREEN SAVER&6:BY JOEL HEGBERG&O:COPYRIGHT (C) 1992&f:BY FALSOFT, INC.&}:RAINBOW MAGAZINE& :&:COMPRESSED HSCREEN SAVER&:BY JOEL MATHEW HEGBERG&(:936 NORTH TWELFTH STREET&2:DE KALB, IL 60115&<:'P1000,31000'Z:LC31000'9dLL0:TL0:LN1000:LKLC'Pn A$:A$"**" 160'x (A$)2 V("&H"A$): LC,V:LLLLV:LCLC1: 110'V(A$): VLL TLTLLL:LL0:LNLN10:110'"ERROR WITH DATA IN":"LINE #";LN'( A$:V(A$):TLTLLL( TLV 200(;"ERROR IN DATA STATEMENTS."(A(aȞ:"ENTER NAME OF PICTURE."(һ ">";NM$:NM$NM$".CPS"(܇"WHICH SCREEN? (1-4)"( HS:HS(HS): HS1 HS4 1,5:200("O",#1,NM$ LK,HS: LK1,0( LK2) #1:200,3) NM$;" IS SAVED.") )_ 2,0,6F,8D,0,DF,8E,40,0,AF,8D,0,D9,8E,FF,B0,C6,10,86,2137) 1,97,6F,A6,8C,E7,AD,9F,A0,2,A6,8C,E1,AD,9F,A0,2,A6,80,2613) 34,14,AD,9F,A0,2,35,14,5A,C1,0,10,22,FF,EF,86,4A,AD,1847* 9F,A0,2,86,4D,AD,9F,A0,2,86,48,AD,9F,A0,2,A6,8D,0,9A,2187*k 1A,50,8B,70,B7,FF,A2,86,1,A7,8D,0,91,AE,8D,0,91,AE,8D,0,8A,A6,80,2292* A7,8D,0,86,8C,5F,FF,10,22,0,23,A6,8D,0,7C,81,FD,10,22,1880*$ 0,19,A6,84,A1,8D,0,6F,10,26,0,F,A6,80,A6,8D,0,66,8B,1647+*. 1,A7,8D,0,60,16,FF,D6,AF,8D,0,56,C6,1,D7,6F,A6,8D,0,2130+p8 51,AD,9F,A0,2,A6,8D,0,48,AD,9F,A0,9F,A0,2,AE,8D,0,3E,8C,60,2061+B 0,10,25,FF,98,A6,8D,0,32,8B,1,A7,8D,0,2C,81,3,10,22,1491+L 0,1E,8E,40,0,AF,8D,0,20,A6,8D,FF,36,81,1,10,27,0,3,1388,+V 16,FF,74,A6,8D,0,E,81,1,10,23,FF,6A,86,7A,B7,FF,A2,2112,N` 1C,AF,39,FF,FF,FF,0,**,250650,9F,A0,2,AE,8D,0,3E,8C,60,2061+B 0,10,25,FF,98,A6,8D,0,32,8B,1,A7,8D,0,2C,81,3,10,22,1491+L 0,1E,8E,40,0,AF,8D,0,20,A6,8D,FF,36,81,1,10,27,0,3,1388,+V 16,FF,74,A6@&!:COMPRESSED HSCREEN LOADER&7:BY JOEL HEGBERG&P:COPYRIGHT (C) 1992&g:BY FALSOFT, INC.&~:RAINBOW MAGAZINE& :&:COMPRESSED HSCREEN LOADER&:BY JOEL MATHEW HEGBERG&(:936 NORTH TWELFTH STREET&2:DE KALB, IL 60115'<:'P1000,31000'Z:LC31000';dLL0:TL0:LN1000:LKLC'Rn A$:A$"**" 160'x (A$)2 V("&H"A$): LC,V:LLLLV:LCLC1: 110'V(A$): VLL TLTLLL:LL0:LNLN10:110'"ERROR WITH DATA IN":"LINE #";LN'( A$:V(A$):TLTLLL( TLV 200(="ERROR IN DATA STATEMENTS."(C(cȞ:"ENTER NAME OF PICTURE."(һ ">";NM$:NM$NM$".CPS"(ܙ"I",#1,NM$:NM$NM$".CPS"( (LK)( LK23( #1: 200,3( 260) 2,0,6F,8D,0,AC,8E,40,0,AF,8D,0,A6,1A,50,C6,1,D7,6F,17,1768)U 0,8D,39,17,0,6A,BD,A1,76,81,0,10,27,0,59,A7,8D,0,8E,1518) A6,8D,0,87,8B,70,B7,FF,A2,BD,A1,76,E6,8D,0,7E,AE,8D,2573) 0,78,A7,80,5A,C1,0,10,22,FF,F7,AF,8D,0,6B,8C,60,0,10,1925* 25,FF,CB,A6,8D,0,5F,8B,1,A7,8D,0,59,81,3,10,22,0,1D,1645*R 8E,40,0,AF,8D,0,4D,A6,8C,97,81,1,10,27,0,3,16,FF,A8,1689*$ A6,8D,0,3C,81,1,10,23,FF,9E,86,7A,B7,FF,A2,1C,AF,39,2077*. 8E,FF,B0,C6,10,34,14,BD,A1,76,35,14,A7,80,5A,C1,0,10,1994+8 22,FF,F0,BD,A1,76,BD,A1,76,BD,A1,76,39,BD,A1,76,A7,8D,2766+?B FF,56,BD,A1,76,A7,8D,FF,50,39,**,19464,3,16,FF,A8,1689*$ A6,8D,0,3C,81,1,10,23,FF,9E,86,7A,B7,FF,A2,1C,AF,39,2077*. 8E,FF,B0,C6,10,34,14,BD,A1,76,35,14,A7,80,5A,C1,0,10,1994+8 22,FF,F0,BD,A1,76,BD,A1,76,BD,A1,76,39,x&:DARN IT&.:BY KENNETH REIGHARD, JR.&C:COPYRIGHT 1992&yd U(52), C(52), P(52), G(6,6), S(15), R(6), O(52)&i:"MONITOR (R/C)";Q$: Q$"R" MN1 : Q$"C" MN0 : 105&k&n 65497,0&s BREAK 180'w 1500 :BLANK SCREEN'x 1800 :DRAW CARDS'3{ 2400 :DRAW TITLES'N} 1400 :RESET COLORS'g 2500 :PLAY MUSIC' 200 :SHUFFLE CARDS' 300 :DEAL CARD ARRAYS' 400 :SET UP SCREEN' 500 :PLAY GAME' 7:(11,15),"Play again (Y/N)?"(cQ$:Q$"Y" : 130 : Q$"N" 180 : Q$"O" 2600:(72,112)(264,128),,BF: 160 : 170(} 1400: 65496,0::(:SHUFFLE CARDS(Ȁ X1 52:U(X)0: X(X()(܀ X1 52(Y(52): U(Y)0 230(U(Y)1:C(X)Y( X))+:SET UP CARD ARRAYS)&,P1)>6 X1 6: Y1 6)N@G(X,Y)C(P))XEPP1)bJ Y,X)qT X1 15)^S(X)C(X36))h X)rP(1)C(52))t X1 6:R(X)6: X)vZ15:Q1:CL36:O0)|):SET UP SCREEN) 4,8:* X1 6: Y1 6*CG(X,Y): 700*& Y, X*?X2:Y17:C78: 700*ZX5:Y17:CP(1): 700*eǁ 900*k̐*{:PLAY GAME*V1*HV4017:"C2BM=H;,112XA$;"*Q$: Q$"" 520*"C8BM=H;,112XA$;"* Q$(8) VV1: V1 V6+& Q$(9) VV1: V6 V1+30 Q$(32) 1000+M: Q$(13) 1100+`D Q$"Q" 650+wI Q$"O" 2600+N CL0 2200: 650+P Z0 1300: (CM) 2300: 650+X 510++:PUT CARD ON SCREEN,(X401,Y82)(X4033,Y852),((C14)1),%CCC,7ȅ CC52 750,P˅ CC27 3 : 8,[Ё 800,څ CC1 C$"A" : CC10 C$((CC),1) : CC10 C$"10" : CC11 C$"J" : CC12 C$"Q" : C$"K",(X5,Y),C$,,:GET CARD VALUE- CC13 CCCC13: 800-"*-A:PRINT CARDS LEFT IN DECK-a5:(88,176)(104,184),,BF-7: Z9 (10,22),Z : (11,22),"0"((Z),1)--:GET CARD OFF DECK- Z0 1030-QQ1:P(Q)S(Z)-X5:Y17:CP(Q): 700.&ZZ1: Z0 X2:Y17:C65: 700 : 900.7OO1:O(O)0.F"O3L100C".L.fK:PLAY CARD FROM GRID.zL R(V)0 1210.VCCP(Q): 800:QQCC.`CCG(V,R(V)): 800.j QQ13 1600: 1210.t (CCQQ1 CCQQ1) 1700: 1210/~XV:YR(V):C65: 700/6QQ1:P(Q)G(V,R(V)):R(V)R(V)1/c R(V)0 XV:YR(V):CG(V,R(V)): 700/~X5:Y17:CP(Q): 700/OO1:O(O)V/"O2L100ABDC"/CLCL1//:CHECK FOR LEGAL MOVES/CM0/CCP(Q): 800:QQCC0( QQ13 137002 X1 60&7 R(X)0 13600>4 Y0 3:(24(Y34),42),Y,0:(24,42),Y33,Y,1,.5,0: Y4P>(24,42),15,54jH 5:(8,43)(38,43),4R(24,20),4,1:(23,20),1,14\ 7: Y1 2:(6Y,7Y)(42Y,61Y),,B: Y4f4:WIN MESSAGE4 1:(11,14),"We Have a Winner!!"5?"O2L8G#GF#GG#GF#P8D#DC#DD#DC#P8C#D#F#P8C#D#F#P8F#GG#A#BP255BP255B"5E5X:LOSE MESSAGE5 3:(9,14),"No moves,"(CL)" cards left."5 "O1L4EDL2C"5 5 _:TITLE SCREEN5 ` 4,8:6} jO$"C3D50R10E10U30H10L10BR45BD10C2NF10G10D10ND30R20NU10D30BR15BU40C1ND50R10F10G10NL10M+10,+30BR15BU40C6ND50M+20,+50U50BR35BU10C7R10NR10D50NL10R10BR15BU60C5R10NR10D50BR25BU60C0D40BD5D5"6 t X1 56 ~H40X:V10X:"BM=H;,=V;XQ$;"6 X6 4:(14,13),"A Card Puzzle"6 (8,18),"By Kenneth Reighard, Jr."7 (13,23),"Copyright 1992"7" 74 :THEME MUSIC7C Ā X1 177X "O2T=X;L4F#GG#"7^ ؋7k "T2L2G"7q 7 ':OOPS ROUTINE7 ( O0 26507 2O(O)0 ZZ1:QQ1: Z1 X2:Y17:C78: 700: 900: 2630 : 900: 26308<