KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK!d 0,0,0,0,0,1,192!n 0,0,224,0,0,112,0"x 255,252,0,255,255,0,2550" 252,0,0,112,0,0,224F" 0,1,192,0,0,0,0Z" 0,0,0,0,0,0,0n" 0,0,0,0,0,0,053  222,198,200,208,205,96,160,0  185,0,192,153,0,4,185,240  195,153,0,21K 16,153,240,195,185,250  4,153,250,192,185,250,216,153.  234,196,185,244,5,153,244,193T  185,244,217,153,228,197,185,238x  6,153,238,194,185,238,218,153  222,198,200,208,205,96,160,0  185,0,192,153,0,4,185,240  195,153,0,21K PC=UN ROGRAM] "",AT,15,1:""]1AT,22,3:" ":10006XX15:AT,7XX,3:""TX$(XX):@AN$:AN$""4160JAN$(13)882:204TB1H3B1H5B1H6BKKKKKKK 6,185,250,192,153! 250,4,185,234,196,153,250,216'! 185,244,193,153,244,5,185,228M! 197,153,244,217,185,238,194,153q!  238,6,185,222,198,153,238,218! 200,208,205,96!FI9601022:N:I,N::!P 0,0,0,0,0,0,0!Z 0,0,0,0,0,0,0K 1H7B1H82155VB1H122155!WB2H1B2H4B2H5B2H62155.X IF B=4?^882:V21,1_`I035:V,X1I:D135::pbV21,0:230c882:1550h4160I828935:A:I,A:: 160,0,185,0,4,153,0,192 185,0,2K 828:V21,0:ZZ$IN$(B,H) 2,8,2,"@0:"ZZ$",S,R" XX15* 2,TX$(XX)3 :2kAT,7,1:""I813:AT,I,1:" ""AT,14,1:" [/=ANCEL * 128 àCROLLER IS A PROGRAM EDITING UTILITY THAT LETS THE USER VIEW AND SCROLL THROUGH HIS ROUTINE EVEN IF HE HAS PASSED THE VISIBLE VIEWING AREA. VER PRIOR TO USING. ":1000AN$:AN$""16701882:V21,1:225R **************************s **** WINDOW ROUTINE **** **************************828AT,4,11:""11)"EE NSTRUCTIONS"11 8:V21,0,AT,12,4:""X"4)" HIS IS A 128 ROGRAM. T MAY",4)" NOT BE LOADED IN THE 64 MODE."64)" OU MUST SWITCH TO THE 128 "@4)" MODE IN ORDER TO LOAD THIS "J4)" PROGR X0882:4100aX221807bB1H3B1H5B1H6B1H7B1H82155JcB1H122155tdB2H1B2H4B2H5B2H62155e IFB=4 THEN2155f2159k882:1550oX1882pI035:V,X1I:D135::zV21,0:230 "fAT,3,10:""CpAT,4,10:" "izAT,5,10:""oS54272:S23,0:S24,15S6,0:S5,12:S1,70:S3,40S4,0:S4,65:D1100::S4,0:Y1Y18:Y1188Y1100 ,5)"VANISH IN"+ P$(1,6)"REVOLVER DEMO":IN$(1,6)"REVOLVER DEMO IN"c P$(1,7)"128 BASIC SCROLL":IN$(1,7)"128 SCROLL IN" P$(1,8)"FRACTAL DECODER":IN$(1,8)"FRACTAL IN" P$(1,9)"OLVER":IN$(1,9)"OLVER IN"( P$(1,10)"UICKLY ANDOM":IN 2,2:""X %AT,1,3:"ENU ROGRAM (C) OUBLE OFTWARE" *AT,3,2:"  " /I419 4AT,I,2:2)"  ": >AT,20,2:" N INE EV.":IN$(2,3)"CREEN INE IN"=Z P$(2,4)"SCREEN LINE IN":IN$(2,4)"SCREEN LINE IN"td P$(2,5)"SIMPLE RAM DISK":IN$(2,5)"SIMPLE RAM IN"n P$(2,6)"COLOR SQUARES":IN$(2,6)"COLOR SQUARES IN" P$(2,7)"ASY DDRESS":IN$(2,7)"ASY DDRESS 1:V1,Y1* x800:53265,(53265)16:53296,0G LC55590:P7:H1:V21,1[ BB1:BNNB1 I112:AT,I6,14:""P$(B,I)::V1,Y1 F(P$(B,H)):A0F:LCA,8::1000 AN$:AN$""206 AN$(17)1250 AN$(145)1300 AN$  P$(3,1)" ":IN$(3,1)" "@ P$(3,2)" ":IN$(3,2)" "p P$(3,4)" ":IN$(3,4)" " P$(3,5)" ":IN$(3,5)" " P$(3,6)" ":IN$(3,6)" " P$(3  ":IN$(3,12)" ", P$(4,1)" ":IN$(4,1)" "# U CL718:AT,CL,14:" "::POKE657,128:REM DISABLE SHIFT/COM KEYPOKE775,200:REM DISABLE LISTINGPOKE808,234:REM DISABLE STOP/RESTORE )"UN ROGRAM "11)"ANCEL INDOW "> 11)""OPO55507:X0k I116:POI,0::1000*AN$:AN$""20904AN$(17)2200:POPO40:XX1:PO55587PO55507>X2X0HAN$(13)2140R2080\ AM SUCCESSFULLY. SE THE"4T4)" PRESCRIBED METHOD WHICH IS "p^4)" ";(34);"ROGNAME";(34);". "h4)" [RESS ANY EY] "r4)""|AT,22,3:" 882:225I116:POI,5::4 P$(1,1)"LANKSPEED":IN$(1,1)"LANK IN"f P$(1,2)"64 UG EP ":IN$(1,2)"UG EP IN" P$(1,3)"128 BUG REP II":IN$(1,3)"BUG REP IN" P$(1,4)"LAG UNT":IN$(1,4)"LAG UNT IN" P$(1,5)"VANISH":IN$(1 V1,Y1:I0F:LCI,0:"HH1:H12H16PP1:P18P7VLCLC40:LC56030LC55590_204zY1Y18:Y1100Y1188V1,Y1:I0F:LCI,0:HH1:H1H12 PP1:P7P18#LCLC40:LC55590LC56030(20482 $(1,10)"UICKLY IN"(2 P$(1,11)"EAM LAY":IN$(1,11)"EAM LAY IN"`7 P$(1,12)"TEAM PLAY C-128":IN$(1,12)"TEAM PLAY IN"< P$(2,1)"SIMPLE ADDITION":IN$(2,1)"SIMPLE ADD IN"F P$(2,2)"CREEN AVER":IN$(2,2)"CREEN AVER IN"P P$(2,3)"CREE  "G CAT,21,2:"" HAT,22,1:"" RAT,23,1:" RSR=ELECT PC=ORE /Ґ=XECUTE " \AT,24,1:" IN" P$(2,8)"HIRLPOOL -64":IN$(2,8)"HIRLPOOL IN"G P$(2,9)"NE-OUCH":IN$(2,9)"NE-OUCH IN"v P$(2,10)"OLOR IST":IN$(2,10)"OLOR IN" P$(2,11)"ISK ":IN$(2,11)"ISK IN" P$(2,12)" ":IN$(2,12)" " (13)2000$ AN$(32)3000:Y1100:140- 204Q "";:53280,0:53281,0:V21,0} "OADING...";(34);P$(B,H)(34);"" "LOAD";(34);P$(B,H);(34);",8" (142)"RUN": ""  631,13: 632,13: 198,2:% "":AT, ,7)" ":IN$(3,7)" "1 P$(3,8)" ":IN$(3,8)" "e P$(3,9)" ":IN$(3,9)" " P$(3,10)" ":IN$(3,10)" " P$(3,11)" ":IN$(3,11)" "" P$(3,12)" 132,251,32,180,21 .166,251,76,240,255,32,253,174O 032,158,173,32,170,177,96g 253265,(53265)239 <4000:V53248:X175:Y1100 P P$(4,12),PG$(4,12),IN$(4,12):5000:NN2:B.:5190 d53280,0:53281,1:(14):2500 n2040,15:V39,10:V,X 220 !O LAST LINE'!T" ":TAD((AD256)256)M!YB0A1:TTA%(B):T255TT255S!^k!cA%(A)T375:195!hB0A1:ADB,A%(B):!m:"YOU ARE FINISHED!":535!r BELL AND ERROR MESSAGES!w:"LINE ENTERED INCORRECTLY"::415"|:HOY!'S CHECKSUM PROGRAM FOR MIS- TAKEPROOF TYPING OF -64 PROGRAMS PRINTED IN HOY!. (OR PROGRAMS PUBLISHED FROM AY 1987 ONWARD ONLY!) HOY!'S CHECKSUM PROGRAM FOR MIS- TAKEPROOF TYPING OF -128 PROGRAMS PRINTED IN HOY!. (OR PROGRAMS PUBLISHED FROM AY 1987 ONLY! THERWISE USE 128 UG EP.) CA):T9A$(T55):530% A$(T48)+%A$;:ACACAT:B%A$"**SAVE**":585X%1,T,1,A$:680:1d%!ST0w%&400:T8420%+535%0A$"**LOAD**":585%51,T,0,A$:690:1%:ST64195%?405:T8420%D560%I" ":14)A$&LAG UNT FOR THE -64 IS A TWO PLAYER GAME. ODGE YOUR ENEMY'S FIRE WHILE TRYING TO QUICKLY SNATCH THE FLAG AND RETURN IT TO BASE. OYSTICKS REQUIRED. 8 UG EP.) ANISH FOR THE -128 IS A 3- TWO PLAYER GAME. HE OBJECT IS TO PROTECT YOUR GRID SQUARES FROM THE STARLIKE PROJECTILES. F THE PROJECTILE HITS THE BOX VANISHES. "INPUT A 4 DIGIT HEX VALUE!":415F":"ENDING IS LESS THAN STARTING!":B0:415|":"ADDRESS NOT WITHIN SPECIFIED RANGE!":B0:415":"NOT ZERO PAGE OR ROM!":B0:415""?ERROR IN SAVE":415""?ERROR IN LOAD":415"::"END OF ML AREEVOLVER FOR THE -128 IS AN UTILITY THAT ALLOWS YOU TO PROGRAM MULTICOLOR ANIMATION ROUTINES. EVOLVER MOVES THREE COLORS TO PRODUCE THE EFFECT. HE BOX VANISHES. EVOLVER EMO FOR THE -128 IS A PROGRAM THAT DEMONSTRATES THE MANY CAPABILITIES OF USING EVOLVER FOR ANIMATION SEQUENCES. OU MUST LOAD AND RUN EVOLVER PRIOR TO USING. N:A$"":"FILENAME";A$&SA$""590,&X:"TAPE OR DISK?":R&]B$:T1:B$"D"T8:A$"@0:"A$:c&bB$"T"605i&g&lB$"CONTINUE FROM ADDRESS":430:ADB&q475:B0620&v:195&{B$"BEGIN SCAN AT ADDRESS":430:ADB&475:B0635 '********************************M * MENU PROGRAM V2.0 *s"* (C)1988 DOUBLE L SOFTWARE *&* ALL RIGHTS RESERVED *(********************************):53296,1*AT679:NATAT22:M:N,M: ,32,180,2,RACTAL ECODER FOR THE -128 IS FROM THIS MONTH'S UPERT EPORT ON RACTAL ECREATIONS. HE PROGRAM GENERATES A FRACTAL REPRESENTATION OF A CIRCLE. . VER PRIOR TO USING. A":#54276,17:54276,16:0#15,8,15:15,A,A$:15:A$:I# GET FOUR DIGIT HEXX#:B$;:T$p#(T$)4380:430#A14:A$(T$,A,1):450:T(A)16380:430#:B(T(1)4096)(T(2)256)(T(3)16)T(4):#A$"@"A$"G"T(A)(A$)5OLVER FOR THE -64 IS FROM THIS MONTH'S UPERT EPORT ON RACTAL ECREATIONS. HE PROGRAM SOLVES SIX NUMERICAL EQUATIONS FOR SIX VARIABLES. CIRCLE. . VER PRIOR TO USING. UICKLY ANDOM FOR THE -64 IS A SOLUTION TO THE EPTEMBER 1988 OMMODARE THAT REQUIRED THE READER TO WRITE A ROUTINE THAT REARRANGES A GIVEN ARRAY IN RANDOM ORDER. SING. &:670)'B07:AC(ADB):505:ADBENADSR:410:1956'" ";:BD':ADAD8['B$:B$(136)195p'495:": ";:650oEAM LAY IS A -64 SOLUTION TO THE EPTEMBER 1988 OMMODARE THAT ASKED THE READER TO WRITE A PRO- GRAM THAT WOULD PRINT OUT A TEAM SCHEDULE FOR TOURNAMENT PLAY. R. SING. EAM LAY IS THE -128 SOLUTION TO THE EPTEMBER 1988 OMMODARE THAT REQUIRED THE READER TO CREATE A ROUTINE THAT WOULD PRINT OUT TEAM SCHEDULES FOR TOURNAMENT PLAY. ING. 5:$A$"/"A$":"T(A)(A$)48:$$T(A)16:8$ ADDRESS CHECKG$ADEN385Z$BSRBEN390$B256(B40960B49152)B53247395$$ ADDRESS TO HEX$ACAD:A4096:520$A256:520$A16:520$A1:520$%T(AIMPLE DDITION FOR THE -128 IS A SOLUTION TO THE EPTEMBER 1988 OMMODARE THAT ASKED THE READER TO WRITE A ROUTINE TO SUM AMOUNTS THAT ARE READ FROM A GIVEN DATA LINE. CREEN AVER FOR THE -64 IS A SOLUTION TO THE EPTEMBER 1988 OMMODARE THAT REQUIRED THE READER TO CREATE A ROUTINE THAT WOULD SAVE THE -64'S HI-RES SCREEN. DATA LINE. C VS. VS. VS."5! X3,SE,WE: 4: 4: E,WE: 4: 4: & * EASY ADDRESS BY DAVID ROTH *JI828 1008:A:CKCKA:I,A:{ CK20726 "ERROR IN DATA STATEMENTS.":2 (147)"USE CTRL/A TO GET ADDRESSES.": 828:< 120,169,77,141,20,3,169,3,141,21,3,169,0,133,2,88 F 96,173,141,2,41,4 WHIRLPOOL- C64/(C) 1988: BY JEFFREY D. PANICIa TO STARTSYS49152 TO STOPSYS49155n LOADER(CK.:(147):C4915249342:D:C,D)CKCKD:"LOADING ";CK:*CK16666"ERROR!!! IN DATA..": -"SYS 49152 TO START SYS 49155 ! ONE-TOUCH RESTORE KEY? BY BARRY L. CAMPEc TO DISABLE, TYPE: SYS58451:SYS64789 [RETURN]:A2024:XAA10:Y:X,Y:A11,(770):A12,(771) 56333,127:771,A256:770,((A256)(771))256 "COLOR LIST INSTALLED."<0 ***** COLOR LIST *****B1`2 ADDS COLOR TO A LISTINGq9 INITIALIZE: 53280,0: 53281,0DLP(43)256(44):C(0)28:C(1)30:C(2)31:C(3)5:K0M MAIN LOOPNNP(LP)256(LP1): NP0 ) X 96CK4C@D@CE!  * DISK ID CHECKLIST *R"SCREEN OR PRINTER S/P";SP$:D4: SP$"S" D3 4,D:N$"0":X09:X$(X):Y$(X$,2,1):4,N$Y$" ";:( X1099:4,0)X;::(13):N652X09:X$(X):Y$(X$,2,1):4,1)(N)Y$" ";<N90X94:4:  ,240,10,165,197,201,10,208,4,165,2\ P 240,3,76,49,234,169,255,133,2,169,0,133,187,169,2,133 Z 188,169,0,133,183,165,209,166,210,133,3,134,4,169,5,24 d 101,3,133,3,169,0,101,4,133,4,160,19,177,3,201,16 n 208,92,160,0,177,3,201,34,208,84,230 TO STOP.": 2 ML DATA7 7 76,49,192,76,112,192,0,0M < 1,2,3,4,5,6,7,7c F 7,7,7,6,5,4,3,2y P 1,0,0,0,4,5,6,7 Z 7,7,7,6,5,4,3,2 d 1,0,0,0,0,1,2,3 n 4,120,169,88,141,20,3,169 x 192,141,21,3,169,1,141,26 208,169,0,141,18]- 56333,129:"ONE-TOUCH RESTORE ENGAGED.":W 169,102,160,254,141,24,3,140,25,3,76A}X~`Y2,160,254,141,24,3,140,25,3,76A}X~`Y n 4,120,169,88,141,20,3,169 x 192,141,21,3,169,1,141,26 208,169,0,141,18N(LP4)143 NPLP6 LP5,C(K3):KK1H bLPNP: 62030: MAIN LOOPLPKNPC> `px Y n 4,120,169,88,141,20,3,169 x 192,141,21,3,169,1,141,26 208,169,0,141,18d53280,12:53281,11Mi" FLANKSPEED ";~n" MISTAKEPROOF ML ENTRY PROGRAM "s" CREATED BY G. F. WHEAT "x" COPR. 1987, ION INTERNATIONAL INC. "}A5427254296:A,0:/F:NN1:50SD@N`XX}Y}N&MAIN LOOPLPKNPC> `px Y n 4,120,169,88,141,20,3,169 x 192,141,21,3,169,1,141,26 208,169,0,141,18,3,177,3,201,34E x 240,24,72,41,64,170,104,41,63,201,32,176,2,9,64,224 64,208,2,9,128,145,187,200,16,226,132,183,169,96,133,185 169,8,133,186,32,213,243,165,186,32,180,255,165,185,32,150 255,166,214,160,29,24,32,240,255,32,165,255,17,208,173,17* 208,41,119,141,17,208,173,22L 208,41,247,141,22,208,88,96m 173,25,208,41,1,240,11,169 1,141,25,208,32,150,192,76 49,234,104,168,104,170,104,64 120,169,128,141,26,208,169,49 141,20,3,169,234,141,21,3 2)T(1)16/B$"ENDING ADDRESS IN HEX":430:ENBA470:B0150h254,T(2)T(1)16:BT(4)1T(3)16B255BB255:254,(254)1253,B: GET HEX LINE495:": ";:A08B01:250BA%(A)T(1)T(0)16:ADA1EN340 " ";-A:TAD((AD256)256):" "QA07:TTA%(A):T255TT255WoA%(8)T375:195A07:ADA,A%(A)::ADAD8:195 GET HEX INPUTA$:A$""250A$(20)305A$(133)535 A$(134)56054272,4:54273,48:54277,0:54278,249:54296,15HA680699:B:A,B:s169,251,166,253,164,254,32,216,255,96169,0,166,251,164,252,32,213,255,96B$"STARTING ADDRESS IN HEX":430:ADB:SRB480:B0150251,T(4)T(3)16:252,T(  A$(135)" ":620) A$(136)" ":635O A$"@"A$"G"T(B)(A$)55:295u A$"/"A$":"T(B)(A$)48:295 "415:250 'A$""; ,205 1A0320 6A1:B1330 ;220 @B0(20);(20);:AA1 EAA1 J(20);:c0,32,165,255C 32,205,189,166,214,160,0,24,32,240,255,32,66,246,169,0Y 133,2,76,49,234I|@AjCK! 173,22,208,41,240,9,8,1417 22,208,173,17,208,41,240,9W 11,141,17,208,88,96,174,6x 192,173,22,208,41,248,29,7 192,141,22,208,173,17,208,41  248,29,28,192,141,17,208,238  6,192,173,6,192,201,21,144  5,169,0,141,6,192,0,00,00,00,00,00,00<( 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,FF,00,01,FF,80,03,FFc<* C0,03,FF,C0,03,FF,C0,03,FF,C0,01,FF,80,00,FF,00,00,00,00,00,00,00<, 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00<. 00,00,00,00,*===================================0F SOLVERLl CALCULATE TRANSFORMATION COEFFICIENTS FOR COLLAGE IMAGES. RUPERT REPORT #61 ================================== USE GAUSS-SEIDEL METHOD6" QUICKLY RANDOM":53280,1:53281,1^ ================================= COMMODARES PROBLEM #57-1 : QUICKLY RANDOM SOLUTION BY BOB RISPOLI ================================= X(100):J1 $" TEAM PLAY":M ==================================q COMMODARES PROBLEM #57-2 : TEAM PLAY SOLUTION BY FRED RANSOM ================================== "NUMBER OF TEAMS";N   5)A(J,2) A(J,3)1 A(J3,6)1+ K4 68 A(J,K)0E A(K,J)0M KU Jt --- CALL SOLVING ROUTINE: 1000 "A, B, C, D, E, F:"  A(1,7), A(2,7), A(4,7),  A(5,7), A(3,7), A(6,7)  : SOLVE FOR A,B,C,D,E, J 4 NKFDE@JAAT 00,00,00,00,00,00,7E,00,01,FF,80,03,FF,C0,07,FF,E0,07;=0 FF,E0,07,FF,E0,07,FF,E0,03,FF,C0,01,FF,80,00,7E,00,00,00,00,00,00=2 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00=4 00,00,00,00,00,00,00,00,FF,00,03,FF,C0,07,FF,E0,0F FOR( SOLVING SIMULTANEOUS EQUATIONS.. V X1*A + Y1*B + E = X1'~ X2*A + Y2*B + E = X2' X3*A + Y2*B + E = X3' X1*C + Y1*D + F = Y1' X2*C + Y2*D + F = Y2'100:X(J)J: TI$"000000"R J1100:N((1)100)1:AX(N):X(N)X(J):X(J)A:d  TI"JIFFIES"x 16)" DONE " (:"TO SEE THE REARRANGED ARRAY HIT ANY KEY" 2A$:A$""50 <J1100:15)"X"J"="X(J):D1200::JJN*A`T$(N): "GIVE TEAM NAMES:"(  K0 N1J ("TEAM NUMBER ";K1;: T$(K)R 2 Kv 7 (N 1) NN1:T$(N1)"---" < "TO (P)RINTER OR (S)CREEN [S]";FL$ FDEV3 : FL$"P" DEV4 P 4,DEV Z J1 N1 d A1 3 : 4 :  n4,"ROUF! K1 NROW)!PVA(K,K) : PIVOT2!ILKE! MK1 NROWY! MNROW 1080x! (A(M,K)) (PV) 1080!$PVA(M,K)!.ILM!8!L N1 NCOL!VTMPA(K,N): A(K,N)A(IL,N): A(IL,N)TMP!`!j J1 NCOL!tB(K,J)* ==================================N COMMODARES PROBLEM #57-2 :d TEAM PLAYy SOLUTION BY RICHIE VANCE ================================== %: "WORKING ..." ANDY,BILL,CRIS,DAVE,EDDY,FRED,GARY,HAs,FF,F0,0F,FF,F0>6 0F,FF,F0,0F,FF,F0,07,FF,E0,03,FF,C0,00,FF,00,00,00,00,00,00,00,00+>8 00,00,00,00,00,00 X3*C + Y3*D + F = Y3'F === SOLVE FOR A,B,C,D,E,F =======Lt OLD COORDS X,Y : NEW COORDS X',Y'# 3 POINTS: 1,2,3( 0,0 : X1, Y1) 0,0 : X1',Y1'* 2,2 : X2,Y2+CO1)42,ET)PL: TN2: 50FP TN2 PL((CO1)43,ET)PL: TN3: 50nZ TN3 PL((CO1)44,ET)PL: TN0d CO: I1 12: PY(I)0: I,SE,WEn&x"PRINT SCHEDULE. PLEASE WAIT."S1$" ":S2$(S1$,13)0 4,ND ";J x4,"HOME", "AWAY"2 4,"======", "======"F K0 (N21)m (J 1)1 4, T$(K), T$(KN2) (J 1)0 4, T$(K N2), T$(K) K A$T$(1) N 3 240 K2 N1 T$(K1)T$(K) K T$(N1)A$ ɲA(K,J)PV"~" I1 NROW&" IK 12107" J1 NCOLW"B(I,J)A(I,J)A(I,K)B(K,J)_" Jg" Ix" I1 NROW" J1 NCOL"A(I,J)B(I,J)" J" I" K" I" K" ,XS,200YS : PLOT PT"b KY$NK,JOEY,MATT,NEIL,TONYF PL(12,36),PL$(12),PY(12):I112: PL$(I):|( WE1 12: "WEEK #";WE: SE1 3: CO1 32PL((1)12)1:ET(WE1)3SE: PY(PL)0 50: PY(PL)1< TN0 PL((CO1)41,ET)PL: TN1: 50F TN1 PL((T 1 COURT 2 COURT 3"? X30 1: X1WE WE1: X20 2 4," "PL$(PL(X241X32,(X11)3SE))" & "PL$(PL(X242X32,(X11)3SE)); X2: X12(X12) 4," ";!X1:X304," VS. VS. VS.  1,1 : X2',Y2'9, 0,4 : X3,Y3\- 0,2 : X3',Y3'Z---- INIT; READ DATA -------d A(6,7), B(6,7)nNROW6: NCOL7x J1 3 A(J,1),A(J,2),A(J,7),A(J3,7)A(J3,4)A(J,1) A(J3,4: WE1 11 2: WE5 WE9 V1 23: 4: Vn4:4:4:4,S2$"*** WEEK"WE"***"S2$S2$"*** WEEK"WE1"***" SE1 3: 4: 4: 4,S1$"--SET "(64SE)"--"S1$S1$"--SET "(64SE)"--" 4," COURT 1 COURT 2 COURT 3 COUR1,0)24,(1,1)50:142:S(M)S(M)1:Q(M,YR(M),YC(M))GP:82L'(1,1)2401,0#0:1,X8,Y8:80U'122z' ** CHECK IF PLAYER HAS LOST **'(P1)S(1)15W12:L17'(P2)S(2)15W11:L18''1,0#0:1,184,60:1,1,6,0:' ** W8,1F,60,C9,3C,90,05,A9,5B,8D,F8,1F,60,C1,AD,1FR. D0,8D,47,14,AD,47,14,29,40,C9,40,F0,08,A9,01,85,FC,8D,00,0B,60,AD. 47,14,29,80,C9,80,F0,07,A9,01,85,FC,8D,01,0B,60,00,EA,AD,4F,13,A8. 0A,AA,BD,E3,11,C9,B7,90,06,A9,3F,99,FE,1F,60,C9,AD,90,06, 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00Z5 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,03,80,00,07,00,005 07,00,00,87,00,00,FF,F8,00,7F,FC,00,07,0C,00,07,00,00,07,00,00,0E5 00,00,00,00,00,00,00,00,00,00,00,00 3,0A,AA,AD,00,DC:+ 29,0F,85,FE,A9,0F,38,E5,FE,85,FE,D0,01,60,A5,FE,0A,18,69,70,8D,70+ 13,6C,78,13,27,13,2B,13,65,13,2F,13,33,13,39,13,65,13,3F,13,43,13+ 49,13,AD,E6,11,1D,91,13,8D,E6,11,60,BF,40,7F,80,00,9C,A2,EA,AD,47, 14,29,01,F0,09, 00,00,00,00,00,00,00,00,00,00,00,00,00B2 00,00,38,00,00,B0,00,00,F8,00,00,34,00,00,70,00,00,00,00,00,00,002 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,002 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 0,00,00,00,00,00,78,00,00,FC,00,00,FC,00,00,FC,00,00,78,00,00K9 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,009 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,009 00,00,00,00,00,7C,00,00,FE,00,00,FE,00,00, IN ROUTINE **Y(1,C(W1):1,6,4,"THE WINNER IS "P$(W1):1,5000,120,1,300,37,0:L1,1,2,1:L1,180#1:53269,192(1,7,6,"PRESS '*' KEY FOR NEW GAME"((L1,1)245L1,0( ** NEW GAME SELECTION **(Y$:Y$"*"150:%:16( ** DATA F A9,3E,99*/ FE,1F,60,C9,A3,90,06,A9,3D,99,FE,1F,60,C9,9C,90,06,A9,3C,99,FE,1Fr/ 60,C9,95,90,06,A9,3B,99,FE,1F,60,C9,90,90,06,A9,3A,99,FE,1F,60,C9/ 8C,90,06,A9,39,99,FE,1F,60,C9,82,90,05,A9,38,99,FE,1F,60,C0,EA,780 A9,DA,8D,14,03,A9,14,8D,00,00,00,00,00,00,00,00,00,0026 00,00,00,00,00,00,00,00,00,00,00,00,00,00,C0,0F,00,E0,1E,00,F0,3Cz6 00,78,78,00,1E,F0,00,03,C0,00,0F,F0,00,1F,78,00,3C,1C,00,78,0E,006 F0,07,00,E0,03,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 7 0A9,00,8D,7E,11,A9,01,85,FD,60,EA,A5,FD,D0,FA,AD,D7Z, 11,CD,95,13,B0,01,60,AD,D7,11,CD,96,13,90,09,AD,1B,D0,09,01,8D,1B, D0,60,AD,1E,D0,8D,94,13,AD,94,13,C9,41,D0,09,A9,01,85,FA,85,FC,4C, E8,13,C9,81,D0,0F,A9,01,85,FB,85,FC,AD,15,D0,29,FE,8D3 63,80,00,66,00,00,3C,00,00,3C,00,00,E6,00,00,06,00,00,00,00,00,00b3 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,003 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0E,003 00,1C,00,00,98,00,00,FF,C0,00,0FE,00,00,7C,00,00,00,00#: 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00k: 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00: 7C,00,00,FE,00,01,FF,00,01,FF,00,01,FF,00,00,FE,00,00,7C,00,00,00:  00,00,00OR LIMITS AND ANGLES **C) 215,222,227,231,212,219,225,229,206,215,222,227,200,210,218,225) 146,139,134,129,151,142,137,132,156,146,139,133,162,152,144,135) 147,152,156,162,166,171,187,192) ** DATA FOR ML ROUTINES *** DE,E3,11,60,15,03,58,60,20,48,14,20,F4,13,AD,70,14,F0J0 03,20,72,14,A5,FC,D0,06,20,AA,13,20,50,13,4C,65,FA,EA,EA,EA,EA,EA0 EA,EA,EA,EA,EA,EA,C0,00,00,C0,00,00,00,00,00,00,00,00,00,00,00,000 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,78,A9,0E,8D,14,03,A9,17,8DR7 15,03,58,60,AD,1F,D0,29,01,F0,0A,A9,00,8D,7E,11,85,FC,4C,65,FA,AD7 D7,11,C9,F0,B0,EF,20,F4,13,4C,65,FA,007 ** SPRITE DATA **7  00,00,00,00,00,00,00,00,00,00,00,00,00,15,D0,60,4C2- 98,13,AD,D7,11,C9,82,90,06,A9,54,8D,F8,1F,60,C9,78,90,06,A9,55,8Dz- F8,1F,60,C9,6E,90,06,A9,56,8D,F8,1F,60,C9,64,90,06,A9,57,8D,F8,1F- 60,C9,5A,90,06,A9,58,8D,F8,1F,60,C9,50,90,06,A9,59,8D,F8,1F,60,C9 . 46,90,06,A9,5A,8D,FC,40,00,1C,00,00,38,00,00,00,00,00:4 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,004 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,E0,78,00,604 E0,00,31,C0,00,1F,00,00,1B,C0,00,30,E0,00,E0,60,00,00,60,00,00,005,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00C;" 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,7C,00;$ 01,FF,00,03,FF,80,03,FF,80,03,FF,80,01,FF,00,00,7C,00,00,00,00,00;& 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0,FE,E3,11,60,AD,E6,11,3D,90,13,8D,E6,11,60,BD,E2,11,D0b* 03,20,08,13,DE,E2,11,60,FE,E2,11,D0,03,20,86,13,60,20,00,13,60,20* 04,13,60,20,12,13,60,20,00,13,4C,2F,13,20,04,13,4C,12,13,20,1E,13* 60,20,00,13,4C,3F,13,20,04,13,4C,3F,13,00,AD,4F,10,00"1 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00j1 00,00,00,00,90,00,00,F0,00,00,60,00,00,90,00,00,00,00,00,00,00,001 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,001 00,00,00,00,00,00,00,00,00,,00,00,00,00,00,00,00,00,00+8  00,00,00,00,00,00,00,00,00,00,00,00,78,00,00,FC,00,00,FC,00,00,78s8 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,008 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,009 00,0 Ѝ!  < ة XL7N`|䧆N3LH1fGJP3W>/f.LOADER53% A0 A1:"FLAG HUNT.ML",8,11 49152PROGRAM V2.0 *s"* (C)1988 DOUBLE L SOFTWARE *&* ALL RIGHTS RESERVED *(*******************************):53296,1*AT679:NATAT22:M:N,M: ,32,180,2,LBB`Cƍ+Ѝ,C B`>?>Ƒii(i@`kȑsi(iiԅ` $ Ѝ!Т ؝hٝ0ڝڝ۩ch0(٩BDžIDžI܅ k` (<<hL~>c<<x8H<<x2==~| LAG UNT BY OHN EDOR|:VO START, BOTH PLAYERS MUST PRESS BUTTON / %:A12:R14:C14:AN(A,R,C):C,R,AQ T14:LO(T),HI(T)::TS5889T01068:X$:4864T,(X$)::T0511:X$:3584T,(X$):%%:FA250:FB251:FC252:FD253:TEM("14CD"):LO("1395"):HILO1:P12816:P2P11:C(1)3:C(2)7:S(1)0:S( JJIJr X) P)ʩ)PP`ЮЭ) x DЮЭ) JE`)) D )ЩЩJЎ ԥ) E  7)""T"....."CT$(T)""::46<"Y$:CU(Y$):CU0CT2:CTCU$EY,0,7,9:" PROJECTILE'S SPEED ":T13:7)""T"....."SP$(T)""::46&Y$:CU(Y$):CU0SP2:SPCU (EY,0,16,9:" SKILL LEVEL OF PLAY ":T13:7)""T"....."TG$(T) 18,10,"ROW":T02:1,18,112T,(T1)::1,19,18,"4""J1,11:1,2,22,"4 3 2 1":1,15:1,24,22,"1 2 3 4":1,5:1,15,23," COLUMNS ",1"L8184,63:1,0#0:1,184,60:1,1,6,0:&"N ** ALTERNATE PLAYER **"PN1(N1):M1(N1)4#RFC,0))P *)) (( ) r  Q­JЍJ ЩLHHIII؍۩H DE`<DEJ`ԩ ԩԩԩe ԩԩ `ʎR(M)LR(M):96%jYS3YC(M)LC(M):112:114S%l1,8:1,PX(M),PY(M),YW$(YS),1:3,40000,1:YS3 1Y%n%p1,8:1,0,8,BL$:3,8000,10:1,31,8,BL$:%rOL((1)YR(M))3:LO,LO(YR(M))OL:HI,HI(YR(M))OL:AAN(M,YR(M),YC(M)):T03:TFA,0:&t *2)0:EY49176:GPGP1:X8184:Y855:W10^T12:LR(T)1:LC(T)1::BL$"":T07:BL$BL$" ":PX(1)31:PX(2)0:PY(1)8:PY(2)8:YW$(1)" ROW ":YW$(2)" COLUMN "CT$(1)"PLAYER CONTROLLED":CT$(2)"COMPUTER CONTROLLED"/SP$(1)"HIGHWAY TRAFF ԭ)ЩЩ`@@Lyũ@ЬІ-ЅF qƦ-ЎЌЮЬІ-ЅG qƦ-ЎЌЭH)I)]>X)R)G)ЅЅ) q q q q qƥХХF-ЭЭ)>""::46% *Y$:CU(Y$):CU0TG1:TGCU@ ,("1470"),(TG3):48Q .1,1400,30:g 0%:4,1:0,1:1,1 2TG2T01:8190T,59: 4 ** DRAW PLAYING GRID ** 6C0:A0179179:CC1:1,C(C)!81,A,160140A,160100A,9740A,970A,160:P1,0:P2,0:4943,(N1):4950,(N1):1,0,8,BL$:1,31,8,BL$:TEMj#T ** COMPUTER SELECTS PROJECTILE'S DESTINATION **{#V136:W1146#XCT2YR(M)((1)4)1:YC(M)((1)4)1:Q(M,YR(M),YC(M))GP88#ZCT2114#\YR(M)LR(M):YC(M)LC(M):112ʎЍЍЍЍ)ЍЍ*Щ 'Щ(ТТТpТx РJРR РР Щ3`ЮЭ)J DJЮЭ)x EJ`܅ЅЅ-Ѕ åI-ФЎЭ܅ЅЅ-Ѕ åI-* MOVE PROJECTILE TO TAKE OFF POINT,FIRE IT **^&v3,8000,60,1,200,105,3:1,0#0:1,X8,Y8:1,1,6,0,0,0:1,A#SP&x ** RUNNING CHECK ON INTERACTIONS **&z136:W1146&|(FA)1,5000,10:76&~(FB)1,15000,10:76%'(FD)3,500,30:0,(IC":SP$(2)"SPEED OF SOUND":SP$(3)"SPEED OF LIGHT"lTG$(1)"AMATEUR":TG$(2)"SEMI-PRO":TG$(3)"PROFESSIONAL"P$(1)"THE RED FORCE":P$(2)"THE BLUE FORCE" ** MAKE GAME SELECTIONS ** &:4,2:0,2:0,1:9)" CONTROL SELECTION ":T12:)I)]?X)R)G)ЅЅ) q q q q qƥХХG-ЭЭ)?h ` Luƅ))ȥ)ʥ),T I-Ѝ` ~<8<<:1,50A,140::&!:U0179179:T13C!<0,34TU,16015T40U,97:T,Uo!>U5:U10:1,2:1,14,0," V A N I S H ",1!@0,0,99U319,99U!BU1U110:UUU1:U3664!DT01:T7,0#0:T7,179T85,145:T7,1,2,0:!FCT276)"H1,12:1, :YS1:108.$^ ** PLAYER SELECTS PROJECTILE'S DESTINATION **U$`JN(M):136:W1146:ՋJN128104q$bJN2(JN2)JN12996$dYSYS1:108:YS2YR(M)(JN127)2:LR(M)YR(M):96$fYS3YC(M)(JN127)2:LC(M)YC(M):114$hYSYS1:108:YS2YФЎ`;;`;)LJ3s/)J%)r PYLr$ )r) ฐf2ð.)$) hq> HQ0VR)H)>: 6)ؐ.*))A hAHOY! JAN.'89612ABOOTSG LANKSPEED SG64 UG EP ɠ SG128 BUG REP II SGLAG UNTSGFLAG HUNT.MLSGVANISH#SGREVOLVEROLOR INISK IN REVOLVE LOADERDDLOGO% DIR 1KREVOLVER DEMOSG128 BASIC SCROLL SGFRACTAL DECODERSGOLVERSGUICKLY ANDOMSGEAM LAYSG TEAM PLAY C-128SGSIMPLE ADDITIONKK CREEN AVERSGCREEN INE EV.SGSCREEN LINE REV.SGSIMPLE RAM DISKSGCOLOR SQUARESSGASY DDRESSSGHIRLPOOL -64SGNE-OUCHKK OLOR ISTSGISK ĠLANK IN UG EP IN BUG REP IN LAG UNT IN VANISH IN REVOLVER INKK REVOLVER DEMO IN 128 SCROLL IN FRACTAL IN OLVER IN UICKLY IN EAM LAY IN TEAM PLAY IN SIMPLE ADD INKK CREEN AVER INCREEN INE INSCREEN LINE INSIMPLE RAM INCOLOR SQUARES INASY DDRESS INHIRLPOOL INNE-OUCH INKK@@ **********************;@ *** REVOLVER ***X@ *** (C) 1988 ***u@ *** BY EARL KANADY ***@ **********************@# X2816 2911: A: X,A:@( "REVOLVE", P2816 P2911:@- 165,134,133,80,165,133,133,81A2@&@ ******************************K@ *** REVOLVER GRAPHICS DEMO ***p@ *** (C) 1988 ***@ *** BY EARL KANADY ***@ ******************************@#1,1:0,1:SA(40),EA(40)@("REVOLVE"@-0,0:0,1:4,1:5,"":C*** WHEELS.DEMO1CC(0)8:C(1)15:C(2)3\C0,1:4,1:1,C(0):2,C(1):3,C(2):3,1qC T0 360 10CNN1:N3N1CN,50,55,22,33,T,T10,,1CN,(0),(1) 50,55C:N3C T0 360 4CNN1:N1N3DN,98,13 3E;F@H10:W9:N3:PH165:PW366 0F,FF,F0,0F,FF,F0165,80,145,250,165,1338BZ 145,252,136,208,245,230,253,230]B_ 251,165,251,201,32,208,235,169~Bd 160,133,216,88,76,77,107,00,00,00,002 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,003 63,80,00,66,00,00,3C,00,00,3C,00 5 SPINNING SPIRAL" Bi8)" "CBn8)" 6 END DEMONSTRATIONS"RBs8)" "wBx8)" PLEASE SELECT ONE "B}A$:(A$)1(A$)6125BA(A$):A1160:45BA2245:45BA3345:45BA4400:45BA5480:45C10E X115:N,PW,PH,PWW,PHH,,15EPHPHH:NN1:N3N1;EZEH10:W25:N1:PH25:PW127|EX115:N,PW,PH,PWW,PHH,,1E"PHPHH:NN1:N1N3E'E,H9:W9:N2:PH25:PW36E1X110:N,PW,PH,PWW,PHH,,1E6PWPWW:NN1:N1N3)1HV((1)200)1:N,H,V:.HN0:CR14:T0 360 4AHNN1:N3N1^HN,55,145,50,27,T,T4,,1xHN,(0),(1) 55,125~HH T0 360 4HNN1:N1N3HN,105,45,40,20,T,T4,,1HN,(0),(1) 105,30HHX1 2816:D1 15:D:KK51,15:2,7:3,2:K1 217K:2816:D1 15:D:KUK?1,15:2,3:3,2:K1 21tKD2816:D1 15:D:K:X:KIX1 40: SA(X):EA(X)KNSA(X)999 KS:KX 351,0,0,9,9,18,18,27,27,36,36,45,45,54,54,63,63,72,72d AHOY! PRESENTS:?n "128 BASIC SCROLLER"dx (C) 1987 BY MR. SHAWN K SMITH ===== ALL RIGHTS DESERVED ===== C-128: 40 AND 80 COLUMN VERSION 15:TC47921:A0 (147)::(18);" 128 BASIC SCROLLER " :"STORING DATA ... ONE MOMENT PLEASE!SS ("1400"):* RELOCATABLE STARTING ADDRESS!xY$::SA,(Y$):CC(Y$):AA1Y$: Y$"EOD":: CTC (18)"**** RECHECK DATA STATEMENTS ****":* HANDLE RELOCATION OF ML CODE N RAM1 S 5120  : RELOCATION REQUESTEDi:"DATA OK. ADJUSTING ML FOR NEW STARTING ADDRESS"o A(D)(((D)32 (D)76 (D)140) ((D2)20 (D2)21)) H(D)(D256): L(D)DH(D)256 TS SAG A(*===================================0M FRACTAL DECODERSx RE-CREATE COMPLEX IMAGES FROM CONCISE DATA. RUPERT REPORT #61  ======== C-128 ONLY ============== ================== GET  AND Y VALUES!NXA(J)XB(J)YE(J);NYC(J)XD(J)YF(J)WXNX: YNY: SAVE THEMu IGNORE FIRST 10 RESULTS JN10 310 XXX XXX : SAVE MIN,MAX XXN XNX" YYX YXY, YYN YNY6 JN: @ MAKE AXXB: YSYCYYD: SCALE PT5"+ CLIP PT & SAVE AS MIN OR MAXZ"0 XSVR XSVR1: XXX XXX": XSVL XSVL1: XNX XNX"D YSVT YSVT1: YXY YXY"N YSVB YSVB1: YNY YNY"X ,XS,200YS : PLOT PT"b KY$ 5,AD,A5,EB,85,AE,A9,2C,A2+% 03,A0,00,20,BA,FF,20,C0,FF,A2O% 2C,4C,C6,FF,A9,2C,20,C3,FF,20s% CC,FF,A5,AD,85,EC,A5,AE,85,EB% 60,A9,00,85,AA,85,16,85,17,20% E4,FF,C9,30,30,30,C9,3A,10,2C% 48,06,16,26,17,A5,16,A4,17,06& 16,26, BC,20,81,92,91,1B,4A,00,4C,6E7" 14,A5,F8,48,A9,00,85,F8,20,62[" 15,A9,11,20,69,92,20,64,50,B0" 06,68,85,F8,4C,30,14,20,B5,15" 86,61,85,62,20,B5,15,D0,0E,A9" 8D,20,69,92,20,69,92,A6,2D,A5" 2E,D0,E9,A0,02,20,B7,15,20,23#  T) ". ";:TB((T1)(T2)256)5120:(T1),L(STB):(T2),H(STB):TT2R::o"STORAGE:";S"-";SA::S10,(828):S12,(829)(S) (18)"128 BASIC SCROLLER ACTIVATED!":"DISABLE/REENABLE: SYS";S "* ML CODE IN HEX DATA ====( 1000 : SELECT IMAGE DATAF JMAX : # OF TRANSFORMSi(PT0 : CUMULATIVE PROBABILITYz2 J1 JMAX< A(J),B(J),C(J),D(J),E(J),F(J),PBFPTPTPBPP(J)PTZd ========= INITIALIZE =======nXN1000: XX100 WINDOW 10% LARGER! JXN(1.1(XN))XN8 TXX(1.1(XX))XXO ^YN(1.1(YN))YNf hYX(1.1(YX))YX r SET UP VIEWPORT & WORLD COORDS |WLXN: WRXX: WBYN: WTYX VL1: VR318: VB1: VT198 XA(VRVL)(WRWL) XBVLXAWL!Y#l : REPEAT IF NO KEYPRESS6#v---------------------------------#{ USE SPACE BAR TO RE-CALIBRATE WINDOW SIZE; ANY OTHER KEY TO END.# KY$" " 1,1: 380# GM : #KY$"": 0: 1: 460 : TYPE 'CONT' TO CONTINUE$ =========17,06,16,26,17,18,65,16'& 85,16,98,65,17,85,17,68,38,E9K& 30,18,65,16,85,16,90,02,E6,17o& E6,AA,D0,C9,A5,AA,60,A0,00,20& EC,42,AA,C8,4C,EC,42,EA& "EOD" : END-OF-DATA MARKER!51,A9,00,85,F4,20,81,92,1B,4A3# 00,68,85,F8,68,58,60,4C,35,14W# 4C,30,14,20,73,15,D0,10,A5,EB{# C5,E4,F0,EF,20,81,92,1B,4B,8D# 00,4C,D5,14,20,62,15,20,64,50#& 90,E0,A6,61,A5,62,E4,2D,D0,18#0 C5,2E,D0,14,20,81,92,1B,49,1B $: 49IDECIMAL FORMAT *? ,OPEN8,8,8,"LS1.ML":GET#8,A$,A$:SYS5120,10,0:STOPc 6 A9,22,A2,14,EC,3D,03,D0,04,A9 @ AD,A2,C6,78,AC,3C,03,8C,33,14 J AC,3D,03,8C,34,14,8D,3C,03,8E T 3D,03,58,60,24,7F,30,0C,78,48 ^ C9,11,F0,0F,C9,91,F0,0B,68,58!0: YN1000: YX1000?xGM(0) : GM5 GM5: SAVE GFX MODEQKY$"": 0,1k"INITIALIZING . . ."| JN1 100 JN;RN(0) RANDOMLY PICK A TRANSFORM J1 JMAXJJJ: P(J)RN JJMAX: JJJ NEXT XC(VTVB)(WTWB)!YDVBYCWB>! ============= MAIN LOOP ====P! 1,1: KY$""_! KY$""k!RN(0)|! J1 JMAX!JJJ: P(J)RN JJMAX!!JJJ!NXA(J)XB(J)YE(J)!NYC(J)XD(J)YF(J)!XNX: YNY"&XSX======================= $ FIRST DATA ITEM IS;$ # OF TRANSFORMSt$ OTHER DATA ITEMS FOR EACH TRANSFORM:$ DATA A, B, C, D, E, F, PROB$ WHERE A-F ARE FROM SOLVER$ AND PROB IS BETWEEN 0 & 1.00% NOTE: SUM OF PROB'S SHOULD% BE 1.00>% ================================T% 4: TRIANGLESl% .5,0,0,.5,0,0,.32% .5,0,0,.5,1,1,.32% .5,0,0,.5,0,2,.32% .125,0,0,.125,.5,1.75,.04%% 2: SPIRAL% .92,-.08,.7,.92,00,AD,10,12,38,E9,02,AA,AD/$D 11,12,E9,00,86,AB,85,AC,A6,2DS$N A5,2E,86,61,85,62,20,B5,15,E4w$X AB,D0,04,C5,AC,F0,05,20,B5,15$b D0,EC,20,81,92,1B,49,00,A0,02$l 20,B7,15,20,23,51,A9,00,85,F4$v 20,81,92,8D,13,00,68,58,60,A5% EC,8h 4C,AD,C6,20,62,15,68,D0,F6,85;!r AF,A5,E4,24,AF,10,02,A5,E5,C5_!| EB,D0,E7,A5,EC,C5,E6,D0,E1,24! D7,30,0B,2C,26,0A,30,03,20,03! C7,20,03,C7,20,49,15,20,81,92! 1B,4A,00,24,AF,10,03,4C,D5,14! 20,73,15,D0,10,A5,EB,C5,E5,F0",.17,.5,.9& -.16,-.05,.05,-.16,.5,.5,.1& [& 2: FOSSIL SNAIL (AMMONOID FROM THE JURASSIC PERIOD)|& .95,-.08,.49,.95,.17,.5,.9& -.25,-.07,.07,-.25,1.3,.7,.1&& 4: SQUARES& .45,0,0,.45,0,0,.25& .45,0,0,.45,.65:" SIMPLE ADDITION":53280,1:53281,1:c ================================== COMMODARES PROBLEM #57-3 : SIMPLE ADDITION ================================== 9, 85, "4,356", "13,765", "759,215"Z $(A$,(B$)1)): : N2@: ====================== === SOLUTION BY WALLACE LEEKER ======================================= X1 5: A$: I(A$,","): SUMSUM1000((A$,I))((A$,I1,3)): : SUMOURT 2 COURT 3 COUR I" SCREEN SAVER":53280,1:53281,1::"PLEASE WAIT...r ================================== COMMODARES PROBLEM #57-4 : SCREEN SAVER SOLUTION BY PAUL CORTEZ  =========================== dSA828:CK0 nA076:D6xSAA,D:CKCKD:]CK11089"*** DATA ERROR ***":|"SCREEN LINE REVERSER":"SYS"SA",ROW,COL,NUMBER OF CHARACTERS"32,155,183,224,25,176,67,134174,32,155,183,224,40,176,58 134,1  d *** LINE REVERSE 128 ***8nSA4864: LOCATABLE^xCK0:I061:D:SAI,D:CKCKD:CK8767"** ERROR IN DATA **":"TO USE: SYS"SA", ROW, COL, # OF CHRS":36,215,48,57,201,25,176,53224,40,176,49,134,175,170,1897 ,0,.25' .45,0,0,.45,.55,.55,.25*' .45,0,0,.45,0,.55,.250'L' 2: NORTHERN LIGHTSf' .99,0,0,.99,0,.2,.8' -.2,-.4,.4,.2,-.2,-.2,.2'o'p 7: HEXAGONS'z .33,0,0,.33,.33,1,.14' .33,0,0,.33,.67,.5,.14' .33,0,0, ==============================kd === SOLUTION BY SARANG GUPTA = =======================================n I1 5: A$: B(A$",",","): CC((A$,B1)(A$,B1)): : Cx: ======================" === SOLUTION BY KEITH KUSHNER =," SIMPLE RAM DISK INSTALLED" 4,"B= :BANK0:FETCH2,4624,4624,B:FETCH 46080,7168,7168,B:BANK15:"(27)"J" 6,"B= :BANK0:STASH2,4624,4624,B:STASH 46080,7168,7168,B:BANK15:"(27)"J"# 8,"B= :BANK0:SWAP2,4624,4624,B:SWAP 4{=======* F$"SCREEN":D8:S8192:E161911u 57812F$,D:780,251:251,S255:252,S256:781,E255:782,E256:62941F DSE}75,166,174,181,217,41,127; 133,194,189,240,236,133,193,24^ 165,175,101,193,133,193,144,2 230,194,169,41,229,175,133,175 24,32,155,183,228,175,144,2 166,175,134,174,160,0,177,193 73,128,145,193,200,196,174,144 245,96,76,726,192,133,196,189,51,192,24<101,175,133,195,144,2,230,196`169,41,229,175,133,175,152,170228,175,144,2,166,175,134,174160,0,177,195,73,128,145,195200,196,174,144,245,96.33,.67,1.5,.14( .33,0,0,.33,1.67,1,.16.( .33,0,0,.33,1,1,.14L( .33,0,0,.33,1.33,.5,.14k( .33,0,0,.33,1.33,1.5,.14q(W(X 4: FERN(b .2,-.26,.23,.22,0,1.6,.07(l .85,.04,-.04,.85,0,1.6,.85(v -.15,.28,.26,.24,0,.44,.06======================================b T1 5: A$: QQ((A$,3))1E3(A$)((A$)3): : Q: ======================, === SOLUTION BY PAUL CORTEZ =======================================6 I1 5: A$: B$((A$)): NN(B)6080,7168,7168,B:BANK15:"(27)"J""RVS64" PRG  "RVS128.LDR" PRG  "RAM DISK" PRG  "COLOR SQUARES" PRG  "EASY ADDRESS" PRG  "WHIRLPOOL 64" PRG  "ONE-TOUCH" PRG$ S0:"":X111:::A$""M "COLOR SQUARES. SEE DOCUMENTATION."uB$"":(27)"M":40)"*";P120::Z$: Z$""110J(2): J020( J1271002S1" ";: 70<" ";F(J2)J2 90PJ(J1),178SAOCK-DAD22:(A$,J,1);"*";:S0:20=ZJJ1:(B$,J,2);"*";:S0:20Rd" ";:S1:20mn" ";: Z$"E""*";xZ$"H""*"; Z$"C""";CL: 5,CL:" *""";CL: 5,CL:" *" PRG  "ONE-TOUCH" PRG( 0,0,0,.16,0,0,.02,0,0,.16,0,0,.027 (147)"LOADING AND CHECKING THE DATA...":J49152TB011:A:A0A25540sJB,A:XXA:B:A:AX50(:"ERROR IN DATA LINE:"(64)256(63):2X0:JJ12:J4945620<198,0:49456,0:A$"Y":B$A$:C$"D":D$"DISK":D8:(147)3F6 (147)"LOADING AND CHECKING THE DATA...":J4864SB011:A:A0A25540rJB,A:XXA:B:A:AX50(:"ERROR IN DATA LINE:"(66)256(65):2X0:JJ12:J521320<208,0:5213,0:A$"Y":B$A$:C$"D":D$"DISK":D8:(147)0F"5+169,198,162,77,141,2,3,142,3,3,224,19,1143\208,7,32,125,255,79,78,0,96,32,125,255,129279,70,70,0,96,162,0,134,251,189,0,2,1053240,19,201,48,144,9,201,58,176,5,133,251,1485232,208,238,134,252,165,251,208,3,76,198,77,2042*  ,93,12982"J20,240,27,165,161,201,212,176,4,165,160,240,1771d"T17,32,65,20,238,32,208,238,1,214,32,225,1322"^255,208,6,32,49,20,76,198,77,232,208,242,1603"h200,208,239,32,66,193,173,95,20,162,96,160,1644"r20,32,189,255,169,0,170,32,104,2 2,51,160,193,32,189,255,169,43,1670I#|166,45,164,46,32,216,255,162,1,189,51,193,1520~#168,200,152,201,58,144,2,169,48,157,51,193,1543#201,48,208,3,202,16,234,32,33,193,76,116,1362#164,206,32,208,169,0,170,168,76,219,255,160,1827$1,1 0,2,240,5,169,1215: 79,141,2,3,76,162,164,169,0,133,2,133,1064q 251,133,252,133,254,24,101,20,69,254,230,254,1975 24,101,21,69,254,170,230,254,164,252,185,0,1724 2,133,253,201,34,208,6,165,2,73,255,133,1465!2,201,32,208,4,165,2,240 "DO YOU WANT AUTOMATIC SAVES (Y/N)";A$::A$"Y"90UP"NO AUTOMATIC SAVES...":150Z49456,1:"DISK OR TAPE (D/T)";C$:C$"D"D1:D$"TAPE"d49457,D:D$D$" DRIVE"::"FILE NUMBER (0-99)";NnN$((N),2):N10N$(48)(N48)(xF$"BAC DO YOU WANT AUTOMATIC SAVES (Y/N)";A$::A$"Y"90RP"NO AUTOMATIC SAVES...":150Z5213,1:"DISK OR TAPE (D/T)";C$:C$"D"D1:D$"TAPE"d5214,D:D$D$" DRIVE"::"FILE NUMBER (0-99)";NnN$((N),2):N10N$(48)(N48)#xF$"BACKUP":169,0,166,235,164,236,133,253,133,254,142,47,1932] 20,140,48,20,24,101,22,69,254,230,254,24,1206 101,23,69,254,170,230,254,164,252,185,0,2,1704 133,251,201,34,208,6,165,253,73,255,133,253,1965 201,32,208,4,165,253,240,8,138,24,101,25155,169,0,13953#|174,94,20,168,32,186,255,169,45,174,16,18,1351f#172,17,18,32,216,255,162,1,189,96,20,168,1346#200,152,201,58,144,2,169,48,157,96,20,201,1448#48,208,3,202,16,234,32,49,20,141,0,2,955#76,183,77,58,59,32,65,20,206,32,20#,160,0,0,65,72,79,89,33,0,0,50048:$$T(A)16:8$ ADDRESS CHECKG$ADEN385Z$BSRBEN390$B256(B40960B49152)B53247395$$ ADDRESS TO HEX$ACAD:A4096:520$A256:520$A16:520$A1:520$%T(A,8,138,24,101,1125@!253,69,254,170,44,198,254,230,252,164,253,208,2349t!"213,138,41,240,74,74,74,74,24,105,129,141,1327!,44,193,138,41,15,24,105,129,141,45,193,162,1230!60,189,43,193,240,12,157,0,4,173,134,2,1147 "@157,0,216,232,208,239KUP"::"FILENAME";F$:F$N$(F$,14):L(F$)W49458,L:J1L:49458J,((F$,J,1)):J:"SAVING DEVICE ** "D$:"STARTING WITH ** "F$:"IS THIS CORRECT (Y/N)";B$:B$"Y"60770,131:771,164:49152: 169,79,32,210,255,162,38,160,1:"FILENAME";F$:F$N$(F$,14):L(F$)P5215,L:J1L:5215J,((F$,J,1)):J:"SAVING DEVICE ** "D$:"STARTING WITH ** "F$:"IS THIS CORRECT (Y/N)";B$:B$"Y"60770,198:771,77:4864:32,58,20,169,41,162,19,236,3,3,208,4,95,16253!69,254,170,44,198,254,230,252,164,251,208,213,2307e!"138,41,240,74,74,74,74,24,105,65,141,88,1138!,20,138,41,15,24,105,65,141,89,20,32,79,769!620,189,85,20,240,6,32,210,255,232,208,245,1742!@174,47,20,172,48,20,24,32,240,255,1738,206,1222,$1,214,169,0,170,168,76,219,255,32,79,20,1403_$169,26,141,0,214,173,0,214,16,251,96,162,1462$0,142,0,255,96,19,18,32,32,32,32,146,804$0,1,0,0,65,72,79,89,33,0,0,0,339$A256:520$A16:520$A1:520$%T(AHIS IS HOY!'S MACHINE LANGUAGE ENTRY PROGRAM FOR OUR ADVENTUROUS READERS WHO LIKE TO TYPE IN THESE PROGRAMS FROM OUR MAGAZINE. - ,169,38,141,2,3,173,1578B"J48,193,240,23,165,161,201,212,176,4,165,160,1748u"T240,13,238,32,208,160,0,32,225,255,208,6,1617"^32,33,193,76,38,192,232,208,242,200,208,239,1893"h32,68,229,169,0,168,174,49,193,32,186,255,1555#r173,50,193,1692,204,3,3,1507?208,10,162,131,160,164,169,70,32,210,255,44,1615n169,78,32,210,255,142,2,3,140,3,3,76,111336,193,32,96,165,134,122,132,123,32,115,0,1180170,240,243,162,255,134,58,144,3,76,150,164,1799 32,107,169,32,121,165,173,CREEN INE EVERSER FROM IPS HOY! IS A -64 ROUTINE THAT LETS YOU REVERSE ANY NUMBER OF SCREEN CHARACTERS ON ANY PROGRAM LINE. 64'S HI-RES SCREEN. DATA LINE. CREEN INE EVERSER IS A -128 ROUTINE FROM IPS HOY! THAT LETS YOU REVERSE ANY NUMBER OF SCREEN CHARACTERS ON ANY PROGRAM LINE. 64'S HI-RES SCREEN. DATA LINE. IMPLE ISK IS A SHORT -128 ROUTINE FROM IPS HOY! THAT LETS YOU USE YOUR 1700 OR 1750 EXPANSION UNIT AS A SIMPLE DISK. 64'S HI-RES SCREEN. DATA LINE. OLOR QUARES 128 FROM IPS HOY! IS A PROGRAM THAT LETS YOU CREATE LOW RESOLUTION GRAPHICS IN THE -128'S 40 OR 80 COLUMN MODE. OYSTICK IN ORT 2 REQUIRED. TA LINE. ASY DDRESS FROM IPS HOY! IS A PROGRAM FOR THE -64 THAT LETS YOU FIND OUT THE LOAD ADDRESS OF ANY PROGRAMS OR FILES THAT ARE ON YOUR DISK. ORT 2 REQUIRED. TA LINE. HIRLPOOL -64 IS A ROUTINE FROM IPS HOY! THAT CREATES AN UNUSUAL HIRLPOOL CREEN EFFECT. SE IT TO ENHANCE DISPLAYS IN YOUR PROGRAMS. RT 2 REQUIRED. TA LINE. NE-OUCH FROM IPS HOY! IS A ROUTINE THAT ELIMINATES THE NEED TO HIT THE KEY ALONG WITH THE KEY TO RESTORE YOUR -64 BACK TO NORMAL. ED. TA LINE. vOLOR IST FROM IPS HOY! IS A PROGRAM THAT LETS YOU ADD COLOR TO YOUR -64 PROGRAM LIST. EY TO RESTORE YOUR -64 BACK TO NORMAL. ED. TA LINE. ISK ĠHECKLIST FROM IPS HOY! IS A PROGRAM THAT WILL PRINT A LIST OF 360 NUMBER AND LETTER- NUMBER COMBINATIONS THAT ARE SUIT- ABLE FOR USE AS DISK 'S. D. TA LINE. b PQRQRPx إ)؅ ePP 멠XLMk  Z198,0'dI0I1:"DDLOGO",8,14i53280,2Gn55,0:56,92:Ux53265,59d53272,120|56576,(56576)25425055,0:56,16053265,2753272,2156576,(56576)1"";:53280,6:53281,0:(14); "OADING  AIN ENU...."< "LOAD";(34);"DIR 1";(34);",8,1"T "RUN":""q 631,13:632,13:198,2: HI(25),LO(25),DU(25),H3(64),L3(64)  54291,134: 54277,136:54284,136  54292,136: 54278,134:54285,134  54290,17: 54 276,17:54283,17& " 54272,00: 54273,33> ,54279,59:54280,33_ 6 X1 25: HI(X),LO(X): Xz @ X1 25: DU(X): X J X1 64: H3(X),L3(X): X T 54296,15 ^B1: X1 25 hAN$:AN$(13)460 r 54272,LO(X): 54273,HI(X) | 54279,LO(X)45:54280,HI(X))  N1 DU(X)G 54286,L3(B):54287,H3(B)Q BB1c  L1 145:k  Ns  X| 350 S54272:I024:SI,0::155  16,195,21,31,25,30  28,49,21,31,28,49  33,135,37,162,25,30  33,135  28,49,33,135,28,49(  25,30,28,49,31,165B  33,135,37,162,28,49]  37,165,33,135,31,165v & 25,30,22,96,18,209 0 4,2,2,3,1,4,4,2,2,8 : 4,2,2,2,2,2,2,2,2,2,2,2,2,2,2 D 8,97,16,195,8,97,16,195,8,97,16,195 N 8,97,16,195,8,97,16,195,8,97,16,1952 X 8,97,16,195,8,97,16,195,8,97,16,195\ b 8,97,16,195,8,97,16,195,8,97,16,195 l 8,97,16,195,8,97,16,195,8,97,16,195 v 8,97,16,195  5,152,11,48,5,152,11,48,5,152,11,48  5,152,11,48  6,71,12,143,6,71,12,143,6,71,12,143( 6,71,12,143,6,71,12,143,6,71,12,143R 6,71,12,143,6,71,12,143,6,71,12,143| 6,71,12,143,6,71,12,143,6,71,12,143,1,4,4,2,2,8 : 4,2,2,2,2,2,2,2,2,2,2,2,2,2,2 D 8,97,16,195,8,97,16,195,8,97,16,195 N 8,97,16,195,8,97,\''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''AAAAaaaAaaaAAAAAAAAAAaaAAAAAAAAAAAAAAAAAaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa   >> ?~ > ?>< |x???????? @|>|>><||??????xxx?qIIyQI" "000qb  $44,,yAAqA??_ 0ఘఘ`aa`aaa̘```8aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaNcefRSWX~ ????????{3????????xxxxxxxχ????㒒OBBB? ``??????8xx"6*"""HIHHH1""????????8,$$, qIIqQ$$D0$y? !!!ఘ``` aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaarrr'''''''''''''''''''''rrrr'''''''''''''''''''''rr !! ?aaa```aa`8????????< <<yAAqAyRR228DDDD8𠐐8I1 ""|q# CbbHHO <FEDpp C!!! 8!!C?xHxPHEDDDDD8򢒉8DDDD88lD D|cL@ DĎb@???~~33 ``  Ƈ0K  Ƈ0```8``|8a`????????8I#IIII$$G8$$8`!!K$H DE($8@`8??HH!qq Dl8p???eg DD((DDDD x>~ఘ333? ``KKKK