KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK  PROBLEM #24-3 :3 FRACTIONAL FUNE SOLUTION BYX TOM GANTNER^"NON-REPEATING DIGITS: 0.";A$(" REPEATING DIGITS: ";B$2 B$"" B$"0"<L(A$):M(B$)F LM9 "TOO MANY DIGITS": 30 PP(A$B PROBLEM #24-4 :2 SECTOR STATUSD SOLUTION BYX BARRY PARRIS^ 15,8,15,"I0":"TRACK, SECTOR";T,S15,"M-R"(4T(S8)1)(7):#15,A$:15A(A$(0)): (A 2(S 7)) "UNUSED":("USED"  PROBLEM #24-4 :2 SECTOR STATUSJ ERROR CHECKING BY^ JIM SPEERSd} ADD THESE LINES TO THE PREVIOUS PROGRAM  T36 S17 20 S20 T35 50 S17 T30 50 S18 T24 50  S49152:E49940- 53281,0: 53280,0U" PATIANCE IS A VIRTUE...."lISE: A: I,A:"SYS ";S;" :REM **** START IT UP ****"Z 120,173,21,3,201,192,240,35,141,164,194,173,20,3,141,163 194,169,192,141,21,3,169,2,201,17,208,18,165,214,201,24,208^ 227,32,149,192,32,174,192,32,59,193,76,68,192,201,145,208 16,165,214,208,207,32,149,192,32,203,192,32,50,193,76,68 192,201,133,208,6,32,149,192,76,148,193,201,134,208,181,32  149,192,76,195,193,16240,246,32,57,194,208,241,165,97T  133,95,165,98,133,96,240,37,169,2,133,99,198,99,48,21  32,33,193,16,247,169,0,141,165,2,32,129,233,165,217,9  128,133,217,48,231,169,1,141,146,2,32,122,194,24,96,166 ! 214,232,224,25,176,10,181,217,16,,176,46,233,47@" 133,99,165,21,133,100,201,25,176,39,165,20,10,38,100,10|" 38,100,101,20,133,20,165,100,101,21,133,21,6,20,38,21" 165,20,101,99,133,20,144,195,230,21,176,191,165,20,5,21" 96,169,0,96,78,165,194,32,122,166,169,249,160,194601$ 4,162,0,132,99,189,168,194,240,18,177,95,240,236,221,168s$ 194,240,5,164,99,200,208,233,232,200,208,233,169,147,32,210$ 255,162,10,160,0,32,240,255,32,122,194,165,20,141,166,194$  165,21,141,167,194,32,174,192,32,174,192,32,174,192,(& 133,98,32,107,194,208,224,169,1,56,96,160,0,177,95,170e& 200,177,95,134,95,133,96,177,95,96,160,2,177,95,133,20& 200,177,95,133,21,173,0,3,72,173,1,3,72,169,154,141& 0,3,169,194,141,1,3,76,189,166,104,141,1,3,104,141 ' 0,3,96,0,25 255,255,0,0,255,255,0,0,255,19,83,69,65,82,67,72O( 32,70,79,82,58,0,19,78,79,84,32,70,79,85,78,68d( 32,32,13,0,255 200,177,95,133,21,173,0,3,72,173,1,3,72,169,154,141& 0,3,169,194,141,1,3,76,189,166,104,141,1,3,104,141 ' 0,3,96,0,25$)(A$):Q$""(Z I1 M:Q$Q$"9": I8d L0 120Tn I1 L:Q$Q$"0": IhxQ(Q$):AP:BQQU(AB):RMABQU RM0 DB: 160AB:BRM: 130PPD:QQD:"0."A$"'"B$"' =";P;"/";QK> S18 T17 5082"IMPROPER TRACK OR SECTOR NUMBER" FRACTIONAL FUNFRACTIONAL FUN2SECTOR STATUSERROR CHECK45,141,20,3,169,0,141,165,194_ 141,168,194,169,255,141,166,194,141,167,194,88,96,173,165,194 208,21,169,1,141,165,194,169,192,72,169,80,72,8,72,72 72,108,163,194,78,165,194,173,13,220,104,168,104,170,104,64 165,198,240,240,173,119,9,1,133,204,165,207,240,12,165,206,174\ 135,2,160,0,132,207,32,19,234,169,0,133,198,96,169,25 133,214,32,33,193,48,18,32,68,193,240,246,32,57,194,208 241,32,107,194,240,3,32,122,194,24,96,169,255,133,214,32  15,193,176,57,32,68,193,247,160,0,32,240,255,24K! 96,166,214,202,48,11,181,217,16,249,24,160,0,32,240,255! 74,96,24,162,0,160,0,32,240,255,96,24,162,24,160,0! 32,240,255,96,169,0,133,20,133,21,168,192,40,176,61,177" 209,200,201,32,240,245,201,48,144,50,201,58,32,303# 171,32,96,165,162,0,134,122,32,124,165,162,0,189,0,2r# 157,168,194,240,3,232,208,245,169,43,133,95,169,0,133,96# 76,218,193,78,165,194,32,122,166,173,166,194,133,20,173,167# 194,133,21,32,57,194,240,2,176,74,32,107,194,240,69,132,2034%  192,76,51,194,169,6,160,195,32,30,171,169,255,141,166,194q%  141,167,194,78,165,194,108,2,3,169,0,133,97,133,98,165%  43,133,95,165,44,133,96,165,21,160,3,209,95,144,27,208%  9,165,20,136,209,95,144,18,240,16,165,95,133,97,165,96 5,255,0,0,255,190,0,0,255,255,0,0A' 255,255,0,0,255,255,0,0,255,255,0,0,255,255,0,0w' 255,255,0,0,255,255,0,0,255,255,0,0,255,255,0,0' 255,255,0,0,255,255,0,0,255,255,0,0,255,255,0,0' 255,255,0,0,255,255,0,0,255,191,0,0,255,255,0,0(KK RUCT LARGE CHARACTERS -------- ; --- (4) CONTROL CHARACTER VALUES ---------- ; --- .UPPER CASE U (UPSIDE DOWN ON) --- ; --- .LOWER CASE U (UPSIDE DOWN OFF) -- ; --- .UPPER CASE I (INVERSION ON) -- IN $6E OR $6F TXA ;PROCESS BYTE TO A-R ASLA ;SHIFT LEFT ONE POSITI AND#$03 ;SET TO ZERO IF WAS 2* STA_$70 ;SAVE MOD PROCESS BYTE RTS ;DONE ===> RETUONLYONE STA_$6E ;SET BOTH COLORS STA_$6F ; TO SAME VALUE RTS ;DONE ===>  PROBLEM #23-2 :4 ROOTING ROUTINEF SOLUTION BY` STEPHAN FASSBENDERfy "INTEGER ";XUG(X256) NUG X( N(N1)X N2 X,"INTEGER SQUARE ROOT = ";N< 10 ENTRY DEC_$F4 ; TO THIS ROUTINE EXITDEC CLV ;DONE -- CLV AND RETU R EJTЀ ; ---- SUBROUTINE- PROCESS COLOR CONTROL CHARACTR ---- ; ---- AT EXIT N FLAG SET IF NOT CLR CNTRL ---- ; ---- N FLAG CLEARED IF WAS CLR CNTRL  PROBLEM #24-1 :: PRINTING PERMUTATIONSL SOLUTION BYa ALLAN FLIPPINh.d: N:C(N1): I1 N:S$S$(48I):nIN1: S$,xS$(S$,I1)(S$,NI)(S$,I,1)C(I)C(I)1: C(I)NI 110 C(I)0: I1  ENTRY INC_$F4 ; TO THIS ROUTINE EXITINC CLV ;DONE -- CLV AND RETU R; ; ---- SUBROUTINE- DECREASE SCREEN/COLOR POINTERS ---- ; SCRDEC STA_$FF ;SAVE INCREMENT SEC ;CARRY ON FOR SUBTRA LDA_$D1 ;DECREMENT SCREEN POINTR SBC_$F  PROBLEM #24-2 :7 PYRAMIDAL PRINTOUTI SOLUTION BY[ RON WEINERa 4,3:"OUTPUT TO SCREEN OR PRINTER (S/P) S";A$: A$"S" 30 4 : 4,4 "ENTER ANY WORD WHICH HAS SAME FIRST AND LAST LETTERS";W$ (4  THE ORA#$01 ; HARDWARE INTERRUPT  STA$DC0E RTS ;DONE ====> RETU EJTЀ ; ---- SUBROUTINE- INCREASE SCREEN/COLOR POINTERS ---- ; SCRINC STA_$FF ;SAVE INCREMENT CLC ;CARRY OFF FOR ADDITI LDA_$D1 ;INCREMENT SCREEN POINTR ADC_$F80A1 POKE BYT$206C7B627CE1FFFE7E7F61FCE2FBECA0 CTLVAL BYT$D555C949CCD2CF4FC3 ORVAL BYT$400020001008040000 ANDVAL BYT$E7A7E7C7978FFFFB00 EJTЀ / RIGHT) ---- ; --- .UPPER CASE O (OVERLAY ON) ------- ; --- .LOWER C  << CD28-4 >>0 PROBLEM #24-2 :J PYRAMIDAL PRINTOUTb COMAL SOLUTION BYw LONNIE WELCH} : W$: PAGE: L:(W$)(: T:1 L1 2: AT T,21T: W$(T)<: AT T,19T: W$(T)F:  ; --- .LOWER CASE I (INVERSION OFF) -- ; --- .UPPER CASE L (ROTATE LEFT) ----- ; --- .UPPER CASE R (ROTATE RIGHT) ---- ; --- .UPPER CASE O (OVERLAY ON) ------- ; --- .LOWER C RETUNEXTCLR DEX ;DECREMENT TABLE OFFS BPLCLRCK ;BRANCH IF MORE COLORS RTS ;NO MATCH ====> RETU; ; ; --- TABLES: (1) CHARACTER ------------------------- ; --- (2) CONVERT TO SCREEN CODE ------------ ; --- (3) CONST  PROBLEM #24-3 :3 FRACTIONAL FUNE SOLUTION BYZ RONALD JORDAN` "DECIMAL";N$: ((N$,1)".") 10:L(N$):IL 11R$(N$,I):R(R$):L$(N$,IR,R): L$R$ F$(N$,2,LRR1):F(F$): F2 II1:  ---- ; CHEKCLR LDX#15 ;CHECK 16 COLOR CODES CLRCK CMP$E8DA,X ;SEE IF COLOR CODE BNENEXTCLR ;BRANCH NOT COLOR CODE TXA ;SAVE COLOR IN A-R LDX_$70 ;X=COLOR PROCESS BYTE BEQONLYONE ;BRANCH IF ONLY 1 COLOR STA_$6E-1,X ;SAVE  II1 : 120a.TAG BUG REPELLENT INSTA BUG 64VIC BUG REPFLANKSPEED COMETCATCHER BITMAPPER F ; BY THE AMOUNT STA_$D1 ; THAT WAS IN THE BCSCLRDEC ; A-REG AT ENTRY DEC_$D2 ; TO THIS ROUTINE SCLRDEC LDA_$F3 ;DECREMENT COLOR POINTR SBC_$FF ; BY THE AMOUNT STA_$F3 ; THAT WAS IN THE BCSEXITDEC ; A-REG AT{,(W$)1)(W$,1)H 2I2 (W$)1:4,(W$)I)(W$,I,1)I23)(W$,I,1)u <: I1 (W$):4,(W$,I,1)" ";::4:4 F ; BY THE AMOUNTf STA_$D1 ; THAT WAS IN THE BCCCLRINC ; A-REG AT ENTRY INC_$D2 ; TO THIS ROUTINE CCLRINC LDA_$F3 ;INCREMENT COLOR POINTR ADC_$FF ; BY THE AMOUNTf STA_$F3 ; THAT WAS IN THE BCCEXITINC ; A-REG AT 20/(D(10R1)10F:N(R$)(F$)(10R1)m2 I2 41: NI(NI) DI(DI) NNI:DDI: 50{<: N"/"D< TP: CURS L,21L6Z: T:1 L W$(T)," ", ASE O (OVERLAY OFF) ------ ; --- .UPPER CASE C (CLEAR CONTROL) -- ; --- (5) OR VALUES FOR CONTROL BYTE ------ ; --- (6) AND VALUES FOR CONTROL BYTE ------ ; CHRTBL BYT$0020406080A0C0FF EORTBL BYT$8000402040C0 00!WD1D8DI,D,7:?!XCH$;:"FILENAME";F$:SA(DI1):D8SA4`!ZD8DI1F$"@0:"F$",S,W"{!\D8DI2F$F$",S,R"!^DI,D,SA,F$:68!`DI1:86:1,BR","BC:I0BR!aJ0BC:1,V(J,I)","Q$;V$(J,I);Q$:J,I!b1:!lDI2:86:2, 2(V(MC,MR),V$(MC,MR):76:BL$"":I12W:BL$BL$" "::CH$""BL$""p(BL$(BL$,CW):84:Q$(34):54273,68:54272,149:54277,64(54278,128:54296,15(I1W1:CR$CR$"":CD$CD$"":( PLACE FUNCTION DEF. HERE(B68:PL65520:CL( MI:F$(V)%0II1:N$(OL$,I,1):IOL922,%2N$")"816X%4II1:N$(OL$,I,1):N0:N$""N(N$)a%6910%z34:CR0BR:CC0BC:900%|84:CC,CR:36:%V$(CC,CR)""%(V$(CC,CR))61%B$"V("(CC)","(CR)")"%OL$V$ C(MCNC)LCMCNC,76:68:1100,A$""1172@,CC0:CR0:LC0:TR0:76:68:84:1100M,5:1100S,\ w,(43)256(44):L1SB5:L2L143,IL1L2:A:I,A:CKCKA:I,CK4734"ERROR IN DATA STATEMENTS -- CHECK YOUR PROGRAM":,-( II1(T$):II$(T$,II,1):II$":"462+II$")"48<,:48R.T$(T$,II1):30b0R2R:C2C:w2CH$" ";:LL,2W3V$(CC,CR)"#"V(CC,CR)"";:V(CC,CR):684" "Q$;V$(CC,CR);Q$"";:V$(CC,CR):900:686"WAIT":890:76:68:848  CHARACTER IMAGES* STA_$01 LDY#7 ;Y-REG = INDIRECT OFFSET NXTCHIM LDA($6A),Y ;GET CHAR IMAGE BYTE STA$61,Y ;AND SAVE IN $61-$68 DEY ;DECREMENT FOR NEXT BY BPLNXTCHIM ;BRANCH IF MORE TO GET EJTЀ ; ----- NOW PROCESS ANY CHARACTER M BR,BC$"nI0BR:J0BC:2,V(J,I),V$(J,I):J,I5"p2:76:68:O"xDI2:86:34:38:900y"zCRR1R2:CCC1C2:62:2,T$;::2:"|2:36:"~34:38:CRR1R2:CCC1C2:V$(CC,CR)"":V(CC,CR)0:CC,CR"36:76:68:#A$"FROM?":16:T$(T$ 43)5(44)256 )LA$:A$""1100H)NA(A$):(A132A141)A13254,50,126,130,96,108,120,140Z)PA$""1112i)RCR01172)TCRCR1:CRTRTRTR1:76)V1134)XA$""1120)ZCRMR1172)\CRCR1:CRTRNRTRTR1:76)^1134)` (CC,CR):OL(OL$)&F$(OL$,1):F(F$):I2P&N$(OL$,I,1):N(N$):(F64F91)(N47N58)914m&F$"@"T$(OL$,I):800&B$B$F$:F$N$:FN:II1:IOLB$B$F$:924&908&CF65:R((OL$,I))1:F$"V("(C)","(R)")":B$B$F$&"DATA ENTERED CORRECTLY -- DELETE ANY LINE BUT 0 AND CONTINUE ENTERING JCALC"y-2165,122,141,112,3,165,123,141,113,3,165,10,133,122,169,2,133,123,32,121-<197,165,10,133,122,169,2,133,123,32,165,201,173,112,3,133,122,173,113,3NR)TRMRNR+L CA0ICACACW1:I,(I)127:(:84:68I>T$V$(CC,CR):T$""T$BL$:n@(T$)39T$((T$,2)BL$,CW):BT$(BL$((100V(CC,CR).5)100),CW):D62:782,3(CCLC)CW:781,4CRTR:783,0:65520 F""T$""CH$;V$(CC,CR);:V$(CC,CR) S RIG BVCROTATE ;AND THEN ROTATE LEFTQ CHEKRGH LSRA ;SET BIT 3  BIT_$BF ;SEE IF SHIFT RIGHT% BEQCOLORIN ;BRANCH NOT SHIFT RIGHT ADC#$7F ;SET OVERFLOW ONj ROTATE LDY#7 ;BYTES IN OLD IMAGE NEXTSET LDX#7 ;BYTES IN NEW IMA ,6):39:RSR1:CSC12#A$"TO?":16:T$(T$,4):39:TR$(TR$,1)u#CC2C11:RR2R11:V$(C,R)V$(CS,RS):V(C,R)V(CS,RS):R,C}#54#A$"QUITTING -- ARE YOU SURE?":16:T$(T$,28,1)#T$""T$"Y""":#68:# CM$(T$,3):T$(T$ A$""1128*bCC01172 *dCCCC1:CCLCLCLC1:76**f1134<*hA$""1136L*jCCMC1172n*lCCCC1:CCLCNCLCLC1:76|*n56:1100*pA$"'"1142*rSLCW:16*tV$(CC,CR)T$:1154*vA$"="1148*xSL2W:16*zV$(CC,CR) II1:IOL924$'F$(OL$,I,1):F(F$):(F47F58)9169'IOLII1:908F'B$B$F$'XX512:I1(B$):F$(B$,I,1):F(F$):F32XX,F:XXXX1'I:XX,0:CL:'W40:NC3:NR17:MC15:MR30:SO1024:LC0:TR0:CW9:LL213:36876,200:10,0 ANIPULATIONS ----- ; BIT_$BF ;SEE IF UPSIDE DOWN% BVCCHEKINV ;BRANCH NOT UPSIDE DOWNQ LDX#0 ;X-REG = FIRST FOUR LDY#3 ;Y-REG = LAST FOUR UPNEXT LDA_$61,X ;GET FIRST BYTE PHA ; SAVE ON STA LDA$65,Y ;GET LAST BY "#"V(CC,CR); H"";:# L"":::34] N""7);(LC65);:ILC1LCNC:CW);(I65);::"" PCRTRTRNR:""(BL$(CR1),3)""; RCCLCLCNC:62:T$;::::CA0:36: TCASO3W(4CRTR)CW(CCLC): VCH$;:"DEVICE#";D:D011 OFf STA_$6A ; ROM IMAGES TO GET LDA_$6B ; ADDRESS OF THIS ADC_$FE ; CHARACTER IMAGEf STA_$6B ; IN $6A-$C2 ; ; ------ MOVE SCREEN IMAGE TO WORK AREA $61-$68 ------ ; CHRIMAG LDA_$01 ;THIS FLIPS IN THE ROM AND#$FB ; ,5):40$"SU0:AV0:MA1E20:MI1E20:K0D$$IIR1R2:JJC1C2:V$(JJ,II)""812]$&(V$(JJ,II))39812$(VV(JJ,II):SUSUV:KK1:MAVMAV$*MIVMIV$,JJ,II:K0AVSUK$.V(CM$"SUM")SU(CM$"AVG")AV(CM$"MAX")MA(CM$"MIN") T$:1154 +|(A$"0"A$"9")A$"-"1160+~SLW:16;+V$(CC,CR)"#":V(CC,CR)(T$)R+10:900:68:1100d+A$">"1168+SLW:A$"GOTO?":16:T$(T$,6):30:CCC:CRR+(CC(LCNC))(CR(TRNR))LCCC:TRCR+TR(MRNR)TRMRNR+L B$""16B$(13)G""B$"";:T$T$B$:((T$)SL)5:18WT$""5:w C(T$)65:R((T$,2))1:"HCCC:HRCR:$CCHC:CRHR:&CH$;:A$"RANGE?":16:T$(T$,7)'T$""R1CR:R2CR:C1CC:C2CC:(30:R1R:C1C"* 50,126,130,96,108,120,140)PA$""1112 )RCR01172?)TCRCR1:CRTRTRTR1:76I)V1134[)XA$""1120k)ZCRMR1172)\CRCR1:CRTRNRTRTR1:76)^1134)`A$""1128)bCC01172)dCCCC1:CCLCLCLC1:76)f1134) :39:RSR1:CSC1/#A$"TO?":16:T$(T$,4):39:TR$(TR$,1)r#CC2C11:RR2R11:V$(C,R)V$(CS,RS):V(C,R)V(CS,RS):R,C#C2BCBCC2#R2BRBRR2#54#A$"QUITTING -- ARE YOU SURE?":16:T$(T$,28,1)#T$""T$"Y""":#  DISKETTE NOTE CREATOR3 BY TIM GERCHMEZQ53281,0:53280,15:646,1z" DISKETTE NOTE CREATOR"#"YOU CAN USE THE WHOLE SCREEN AS A "("SCRIBBLING PAD. (EXCEPT THE TOPMOST "-"AND BOTTOMMOST LINE)." 2:"PRESS RE :"FILENAME";FI$:FI$FI$".N"::"PRESS RETURN TO START."B F198,0T KA$:A$""75e P"";:65487 U15,8,15,"I0":15,"S0:"FI$ Z15:2,8,2,FI$",P,W" _2,(0)(1); dT256514:CTT:2,(2);: iA:A256115 nCTCT1:2,(A);:105,76,116,164,256:FI$FI$".N"::"PRESS RETURN TO START."B F198,0T KA$:A$""75e P"";:65487 U15,8,15,"I0":15,"S0:"FI$ Z15:2,8,2,FI$",P,W" _2,(0)(1); dT256514:CTT:2,(2);: iA:A256115 nCTCT1:2,(A);:105 V(CC,CR); H"";: L"":::34Z N""7);(LC65);:ILC1LCNC:CW);(I65);::"" PCRTRTRNR:""(BL$(CR1),3)""; RCCLCLCNC:62:T$;::::CA0:36: TCASO3W(4CRTR)CW(CCLC): VCH$;:"DEVICE#";D:D01100 (C)","(R)")":B$B$F$'II1:IOL924C'F$(OL$,I,1):F(F$):(F47F58)916X'IOLII1:908e'B$B$F$'XX512:I1(B$):F$(B$,I,1):F(F$):F32XX,F:XXXX1'I:XX,0:CL:(W22:NC1:NR17:MC15:MR30:SO4096:LC0:TR 68:$ CM$(T$,3):T$(T$,5):409$"SU0:AV0:MA1E20:MI1E20:K0c$$IIR1R2:JJC1C2:V$(JJ,II)""812|$&(V$(JJ,II))39812$(VV(JJ,II):SUSUV:KK1:MAVMAV$*MIVMIV$,JJ,II:K0AVSUK%.V(CM$"SUM")SU(CM$"AVG") hA$""1136*jCCMC1172%*lCCCC1:CCLCNCLCLC1:763*n56:1100E*pA$"'"1142S*rSLCW:16j*tV$(CC,CR)T$:1154|*vA$"="1148*xSL2W:16*zV$(CC,CR)T$:1154*|(A$"0"A$"9")A$"-"1160*~SLW:16*V$(CC,CR)"# :TR0:76:68:84:1100,5:1100 ,\ .,(43)256(44):L1SB5:L2L143N,IL1L2:A:I,A:CKCKA:I,CK4734"ERROR IN DATA STATEMENTS -- CHECK YOUR PROGRAM":,("DATA ENTERED CORRECTLY -- DELETE ANY LINE BUT 0 AND CONTINUE ENTERING J p2:76:68:xDI2:86:34:38:900FzCRR1R2:CCC1C2:62:2,T$;::2:S|2:36:~34:38:CRR1R2:CCC1C2:V$(CC,CR)"":V(CC,CR)0:CC,CR36:76:68:A$"FROM?":16:T$(T$,6):39:RSR1:CSC1A$"TO?":16:T$(T$,4):39 !WD1D8DI,D,7::"THE CURSOR COLOR IN USE WHEN RETURN IS" ?"PRESSED WILL BE THE ONE USED WITH THE":"NOTEFILE." @:"YOU LOAD THE NOTEFILE WITH A ,8,1"7 A ! sCTCT1:CT20402,((CT));:115( x28 }"DONE."[ :"ANOTHER FILE (Y/N)":198,0n A$:A$""135| A$"Y" A$"N"2048 135 160,0,173,134,2,153,0,216,153,0,217,153,0,218,153,0,219 200,208,241,169,19,32,210,255 AV(CM$"MAX")MA(CM$"MIN")MI:F$(V):%0II1:N$(OL$,I,1):IOL922K%2N$")"816w%4II1:N$(OL$,I,1):N0:N$""N(N$)%6910%z34:CR0BR:CC0BC:900%|84:CC,CR:36:%V$(CC,CR)""%(V$(CC,CR))61&B$"V(" 0:CW9:LL213:36876,200:10,0Q(V(MC,MR),V$(MC,MR):76:BL$"":I12W:BL$BL$" "::CH$""BL$""p(BL$(BL$,CW):84:Q$(34)( PLACE FUNCTION DEF. HERE(B68:CL(43)5(44)256(LA$:A$""1100(NA(A$):(A132A141)A13254, ":V(CC,CR)(T$) +10:900:68:1100+A$">"1168L+SLW:A$"GOTO?":16:T$(T$,6):30:CCC:CRRw+(CC(LCNC))(CR(TRNR))LCCC:TRCR+TR(MRNR)TRMRNR+LC(MCNC)LCMCNC+76:68:1100+A$""1172+CC0:CR0:LC0 BC!"nI0BR:J0BC:2,V(J,I),V$(J,I):J,I2"p2:76:68:L"xDI2:86:34:38:900v"zCRR1R2:CCC1C2:62:2,T$;::2:"|2:36:"~34:38:CRR1R2:CCC1C2:V$(CC,CR)"":V(CC,CR)0:CC,CR"36:76:68:#A$"FROM?":16:T$(T$,6)CALC"0-2165,122,141,112,3,165,123,141,113,3,165,10,133,122,169,2,133,123,32,121}-<197,165,10,133,122,169,2,133,123,32,165,201,173,112,3,133,122,173,113,3NR)TRMRNR+LC(MCNC)LCMCNC+76:68:1100+A$""1172+CC0:CR0:LC0 A0ICACACW1:I,(I)127:%:84:68F>T$V$(CC,CR):T$""T$BL$:k@(T$)39T$((T$,2)BL$,CW):BT$(BL$((100V(CC,CR).5)100),CW):D62:782,3(CCLC)CW:781,4CRTR:783,0:65520 F""T$""CH$;V$(CC,CR);:V$(CC,CR)"#" (CC)","(CR)")"&OL$V$(CC,CR):OL(OL$)8&F$(OL$,1):F(F$):I2o&N$(OL$,I,1):N(N$):(F64F91)(N47N58)914&F$"@"T$(OL$,I):800&B$B$F$:F$N$:FN:II1:IOLB$B$F$:924&908'CF65:R((OL$,I))1:F$"V(" `xǍ1Э)ЩX`Ѝ) XL18ɒ )ЩLEǭ) Щ1L芠@ٙ/ڈ` Y Xȩ  `ڰɑ ‘----- 53280,12:53281,11M" FLANKSPEED LISTING CREATOR ";~ " CONVERTS MEMORY TO FLANKSPEED LISTING "" CREATED BY G. F. WHEAT "" COPR. 1986, ION INTERNATIONAL INC. "(:"PROGRAM NAME";C$ 2 ͽ`mm`  ) ƩЍ!ЍЩ'Ѝ Щ(Ѝ *Щ&Ѝ,Щ.Щ+Щ -ЩЩЍ ^ Kǩ%Щ4Щȝ (ƩԩԩKԩ#@   꾀    꾀 ENDING ADDRESS: "B$:4/ }4,"SYS TO START: "D$:4` ACAD:3010:C$B$": ":CKAD((AD256)256) B07:AC(ADB):CKCKAC:CK255CKCK255 3030:C$C$B$" ":ADBEN500 B:ACCK:3030:C$C$B$ 4,C$:ADAD8:130 ACCK:3030:C Z#Z!p\ww^FFDw@~~VV 6: ADRESS CHECK ADENB0:H B256(B40960B49152)B53247B0N c ADDRESS TO HEXz B$"":A4096:3070 A256:3070:3035 B$"" A16:3070 A1:3070 T(ACA):T9A$(T55):3090  A$(T48)  B $|D88((8OB _w_B 2zp{q z{ yť z{ ɭpzq{`H(8);(14):1000l36878,15:TT150::36878,0:} CCBCBCCC CRBRBRCRCH$;A$;"";:T$A$B$:B$""18(B$(20))((T$)1)T$(T$,(T$)1):B$;"";"";:18  ::::: ߑۑۑۑۑב ߑ  HI:  AIR RESCUE  SCORE: SHIPS: BOMBS: MEN: MISSION: <?><;;<>;;f<  @  ~~00HH U UhhЮefРLh))8@ %ee %miee 3($lh(3$  ŭ8$ KǢ ĩ Zƭ)?Ѝ   Yĭ)LW" -ЍТ2 ζL " -ЍТ ζL!LWЍ L5!Х!ТK ĩ-Ѝ * 88, <(3@  ϟ??ϟ??ϟ??????X8|bf 0fF @@@  MЍ)Ѝ Щ Ѝ`Ѝ ԍ` `í8Ѝ ԍ԰&MЍЭ) ो8q*Щ Ѝ``8ͨ 8ͩ     ͽ"  ͽ   ͽ  ͽ    ͽ$  3($l,,W3$m ζ 3ƭL0ɂ"%)L % ZƭL 1L 3 tL ! (ƥ ũ!Lάϩ ŭL ЍЊH 3hMЍЩ8-ЍЭ` ɠ )`ܪ)  h3($((3$@@ ̳3333333333v>8pffffggffffccXX8pf~~f????ϟ?? Lé MЍ ο iK `&) ЍЩ8Щ%ЭIЭm&Эi`y5)m8e Ѝ Э8 Щ ЍЩ,Э 8 а4)ߍЩ ЩP Э Щ,Щ ЍЭiʎ8 ABpnj1?Ǐpo\:]kvvsxnn??ϟ??ϟ????ϟ?? k/UTAUUCW}@@}@d֧/iT^k/UTAUUCW}@@}@d֧/iT^k/UTAUUCW}@@}@P]}]}T}}}}WP4WT.A i`@UU}U_G}AiAA TUAU}@@}@P>Y:TUt5tT?5TP}@@U@6w]u}U}u]~U}}}U}w}wT}U?U7}@@U@6w]u}U}u]~U}}}U}w}wT}U?U7}@@U@6w]u}U}u]~U}}}U}w} ;::}7.ø>.+:+΀ j`j`9; j* Z )W +; tTU}@@}@d_jUWo}o}jioUTtTU}@@}@d_jUWo}o}jioUTtTU}@@}@d_jUWo}o}jioUTtTU}@@}@u/}u}}}}}:9;9l gmp+z꺨४f* h::  :+j꺩::>..6 +껦j::`:0TU@אUUUkVjVf}Zߩ[VAAAAAPABTUT}@UUUgYeYUwi֕ZiPMe@@@U@@UP}@UTtYddt_PyP@@@@@@PidUTU@UTtYddt=ZPPW@y@m@@PPUTuY/>T`@mUT* @/]@Uw@/vww@eo@` @ @/]@Uw/PexuPo@%`~@.EP eTP_d9p5P%}e@ @Z@U@.[@.[@nPUP à@}@U@e@@g@@m@@TiUU@U@e@@g@|[@my@@֐UP]Z}eUUT]_@U@e@@g@@m@_@TZ@U@]@U@e@@g@@[@@u@@U@iUTf XV@T Qm@U}P)u=ilU\ UXitV@veUPUTTAi@U}Vz׭_iiaUIUAiAאAATAAUAUwATAi@U}Tz׭_iiAUAi@*UAdAAATgATAi@U}Vz׭_iiaUIAUAUPZZPZZPYUPPPP ^PUPPPQPYUPYUfYVPYVP*(  ***( (  *ATAA{AUAUT.A i`@U}VwKi@*UATAAAUAUT.A i`@UU}Uogb}AiAAATAwAݕVT.A i`@U}V_AA}U@אATAAgAٕV@P QY`o@@_P klW\ }XYDn@VwT}U?U7}@@U@6w]u}U}u]~U}}}U}w}wT}U?U7}@@}@e[ZT/UZT\W/\}@@}@d֧/iT^k/UTAUUCW}@@}@d֧/iT^ j* [߬ n :$ ;j+  ; $  ; j+ n h l 9l&٠y^PUPPWT?W}@@}@VڟڗTiUTUAU}@@}@VڟڗTiUTUAU}@@}@VڟڗTiUTUAU}@@}@VڟڗTiU껦j&>.**: .*+* ln à.iA:ì û: ð ` à;}UUu@UTtYddt_PyP@@@@@@PjPUPu@UTtYddt[PPV_]fUPidUTT@PUTeV}egyfUUPאզe@i@U@[@kP'f}@@}@d_jUWo}o}jioUTi p }&>ꂫ@i i <6:@ i i;* @  }A9l;@)}@UUUgegWWYUe[i[ViYqfPUPUTi@UUU{VzV}VU]AuA A AAC\TPY~@UUU_VzV}Vjڕ[AA A AAP AUTe@PUUUkVjV}VުU]AuA A`AAP5CP'ATAAUAUwTAi@UU}Uz׭_iiAUAUi@ אUP-AxAAVA EPyUV}Ph]9i|5UP%Ui YU/^@+[@UP_@@UPtmywtP/:@@iUP}`_@UPd } wt   **+8,0 (*.($(8( .ꪪ*8 UPdUTZ@@U@y߀m@PTiU} @@U@}ow`݀[ TyU`Pu@UPY@d Pd`Pu@UP wߐ~@-Y] SELECT FIGURE UP/DOWN - SELECT FUNCTIONTEST : TEST FIGUREMANUAL : MOVE BY STICKEDITOR : ENTER PROGRAM EDITORTOYBOX : ENTER TOYBOX GRID : DESIGN PLAYFIELDSACTION : START ALL FIGURESCREATE YOUR OWN GAMES WITH THECREATED BY .......ACTIONAUTS BBS WHEN DONE2201 - 36 - DA49PLEASE INCLUDE YOUR REGISTRATION NUMBERREGISTER THIS PROGRAM AND RECEIVECOMPLETE ACTIONAUT INSTRUCTION MANUAL.SEND $3.00 TO:PLEASE INCLUDE YOUR REGISTRATION NUMBERWE HOPE YOU ENJOY THIS SAMPLEOF OUR WORK. ALL REGISTEREDUSERS REC WUUefifYeVYUUUUUymViYfUPPUTU@@UUTiiiUieYeUTUPiEQEUNAA@A@PAPAEUTPU@@UUUieiUieYeUTUPiQMqU@@E@A@APAPAUTUTU@@UUiiiUieYUYTUQiQEUNAAG@A@BAPAQUTTU@ PROGRAM TO MAKE A COPY OF THIS PROGRAM :1) REMOVE DISK FROM DRIVE2) INSERT ANOTHER BLANK DISK3) PRESS "C" KEY ON KEYBOARD4) WAIT 2 MINUTESTHE PROGRAM COPIED SUCCESSFULLY. TO RUN PROGRAM FROM C64 BASIC, TYPELOAD "ACTION",8,1F1/F7=INFOC1985APT!eeiieYeiiTUPiiEQFIQ@A@A@A@AtU@}@WiiiiieYiiYdUYPiiGqVOAE@B@APAPGGtPU@}@WYiiiYeYiiYdUPiQiOVEaV@E@A@BAPAPAGWtU@@}VVYfZeVfUUW\WYdifUPPU@@WfddddddddddddddddddddddddddddvhhwEFFFFFFFFFFVabbbbbbbbbb~EFFFFFFFFFFFFFFVabbbbbbbbbbbbbb~EFFFFFFFFFFFFFFFFFFVabbbbbbbbbbbbbbbbbb~EFFFFFFFFFFFFFFFFFFFFFFVabbbbbbbbbbbbbbbbbbbbbb~@AB^_`INSERTDELETE CLEARRETURNFIGUREFRONTRIGHTBACK LEFT FACINGSETUP SELECTROBCCCCCCCCCCCCCCCCCCCCCCCCCCX]CKSCX]C"KS@ABCCCCKIHHHHHHH[CCCCCCRHHHHHHH\]CCCC@ABUSC@ABCCCKIHHHHH[CCCCCCRHHHHH\]CCC@ABCXYRHTSCC@ABCCKIHHH[CCCCCCRHHH\]CC@ABCCXZH[CKIHHTSCC@ABCKI172 CC0:CR0:LC0:TR0:76:68:84:11005:1100 \ D(43)256(44):L1SB5:L2L143dIL1L2:A:I,A:CKCKA:ICK4734"ERROR IN DATA STATEMENTS -- CHECK YOUR PROGRAM":("DATA ENTERED CORRECTLY -- DELETE ANY LINE BUT 0 ACCC CCC CCC CCC CCC CCC CCC CC"CCXZHTSCKIH\]CXZHTSCRH\J ]CCKJ IH[RH[CXSCXSCXSCRH[RHZHTZHTZHTZHTH[C(C(C(C(C(CRH[@@TZdddddiPP@@@@@@PPPUPU@@TZdddddfV]f@UPUTU@@Tg}effYUUVT5դ_g@eiU@PPW}}@UUUkUgeYgkUUU}VVA `CAPA' NOW ONLINE .... ...NOW FORMATTING DISK@0:ACTIONEIVE THE ACTIONAUTMANUAL AND NEWSLETTERS.ADVANCED PROGRAM TECHNOLOGYP.O. BOX 50246PALO ALTO, CA 94303ROB FULOP PROGRAM DESIGNLON RICHTER GRAPHICS AND ANIMATIONALL RIGHTS RESERVEDCOPYRIGHT 1985PLACE JOYSTICK IN PORT 2LEFT/RIGHT - @UUUYiiUieYUYTUPiqEUMV@Q@A@APAQUTUTU@@TYUUiZeeYUUUUZUyjmvVi@e@@UPPTUTU@@TZddddiPP@@@@@@PPPUPU@@TZdddZdP Pj@i@i@f@@U@PtUTU!! W A R N I N G !!!A DISK DRIVE ERROR HAS OCCURED.CHECK TO MAKE SURE THE CORRECT DISKIS PROPERLY SET IN THE DRIVE.PRESS JOYSTICK BUTTON TO CONTINUE ...PRESS JOYSTICK BUTTON TO RESUME PLAY... NOW SAVING TO DISKUSE STAMPER TO CHANGE GRIDPRESS SPACE BAR f@f@@V@i@@T@U@U@@Wf@f@@Zjpii@@U@_P__UTU@@Wf@f@@V@i@@dT@U@U@@Wf@f@@V@@u@Z@U@@UTU@@OT MOBOT DROID ACROBOTRABBIT NONE SELECT FILE TO LOADDISK ERROR NUMBER LOADING LOAD GAMELOAD FIGURESAVE GAMESAVE FIGUREDELETE A FILERETURNSELECT A FUNCTION GAME NAMED FILE TO DELETE ? DELETE FIGURE NAMED COPYH[CCCCCCRH\]C@ABCCXZHH\]CCCCKIHHHTSCCCX[CCCCCCRSCCCXZHHH\]CCCCCCCCCCCCKIHHHHH[CCCCCCRHHHHH\]CCCCCCCCC.U@}@WiiiiieYeiieUPiiGMAV@A@@BA@APtU@}@WiND CONTINUE ENTERING JCALC"F2165,122,141,112,3,165,123,141,113,3,165,10,133,122,169,2,133,123,32,121<197,165,10,133,122,169,2,133,123,32,165,201,173,112,3,133,122,173,113,3NR)TRMRNRLC(MCNC)LCMCNC76:68:1100A$""1CCRHJ"H[CCRHC"H[CCRHC"H[CCRHC"H[CCRH"H[CCRH[CC(C(C(CRH[CCRHJH[CCRHCH[CCRHH[CCRH[CC(C(C(C"C!CKSC"X]CKSCX]CCCCCCCCCC}@UUUkUgeYgkUUf}VA p APAPA'u@UUUkUgeYg[UUU}敕VAVC` à PAAF7}_@UUUkUgeYgZUUW}斕VAC CpCAPAAV_@_@UTz_}YvYVmZUUWYdiPUPC(C(C(C CCC CCC CCC CCC CCC CCC CCC CCC CCC ,32,303 171,32,96,165,162,0,134,122,32,124,165,162,0,189,0,2r 157,168,194,240,3,232,208,245,169,43,133,95,169,0,133,96 76,218,193,78,165,194,32,122,166,173,166,194,133,20,173,167 194,133,21,32,57,194,240,2,176,74,32,107,194,240,69,1 132A141)A13254,50,126,130,96,108,120,140'PA$""11126RCR01172UTCRCR1:CRTRTRTR1:76_V1134qXA$""1120ZCRMR1172\CRCR1:CRTRNRTRTR1:76^1134`A$""1128bCC01172dCCCC1:CCLCLC5,255,0,0,255,190,0,0,255,255,0,0A 255,255,0,0,255,255,0,0,255,255,0,0,255,255,0,0w 255,255,0,0,255,255,0,0,255,255,0,0,255,255,0,0 255,255,0,0,255,255,0,0,255,255,0,0,255,255,0,0 255,255,0,0,255,255,0,0,255,191,0,0,255,255,0,0 240,246,32,57,194,208,241,165,97T  133,95,165,98,133,96,240,37,169,2,133,99,198,99,48,21  32,33,193,16,247,169,0,141,165,2,32,129,233,165,217,9  128,133,217,48,231,169,1,141,146,2,32,122,194,24,96,166  214,232,224,25,176,10,181,217,16,p2:76:68:xDI2:86:34:38:900FzCRR1R2:CCC1C2:62:2,T$;::2:S|2:36:~34:38:CRR1R2:CCC1C2:V$(CC,CR)"":V(CC,CR)0:CC,CR36:76:68:A$"FROM?":16:T$(T$,6):39:RSR1:CSC1A$"TO?":16:T$(T$,4):39"7);(LC65);:ILC1LCNC:CW);(I65);::""T PCRTRTRNR:""(BL$(CR1),3)""; RCCLCLCNC:62:T$;::::CA0:36: TCASO3W(4CRTR)CW(CCLC): VCH$;:"DEVICE#";D:D01100 WD1D8DI,D,7: XCH$;:"FILENAME";F 601 4,162,0,132,99,189,168,194,240,18,177,95,240,236,221,168s 194,240,5,164,99,200,208,233,232,200,208,233,169,147,32,210 255,162,10,160,0,32,240,255,32,122,194,165,20,141,166,194  165,21,141,167,194,32,174,192,32,174,192,32,174,192,R1R2:JJC1C2:V$(JJ,II)""812*&(V$(JJ,II))39812R(VV(JJ,II):SUSUV:KK1:MAVMAVa*MIVMIVz,JJ,II:K0AVSUK.V(CM$"SUM")SU(CM$"AVG")AV(CM$"MAX")MA(CM$"MIN")MI:F$(V)0II1:N$(OL$,I,1):IOL9222 255,255,0,0,255,255,0,0,255,19,83,69,65,82,67,72O 32,70,79,82,58,0,19,78,79,84,32,70,79,85,78,68d 32,32,13,0,255 200,177,95,133,21,173,0,3,72,173,1,3,72,169,154,141 0,3,169,194,141,1,3,76,189,166,104,141,1,3,104,141  0,3,96,0,25247,160,0,32,240,255,24K  96,166,214,202,48,11,181,217,16,249,24,160,0,32,240,255  74,96,24,162,0,160,0,32,240,255,96,24,162,24,160,0  32,240,255,96,169,0,133,20,133,21,168,192,40,176,61,177 209,200,201,32,240,245,201,48,144,50,201,58$(OL$,I,1):N(N$):(F64F91)(N47N58)914:F$"@"T$(OL$,I):800kB$B$F$:F$N$:FN:II1:IOLB$B$F$:924t908CF65:R((OL$,I))1:F$"V("(C)","(R)")":B$B$F$II1:IOL924F$(OL$,I,1):F(F$):(F47F$" "::CH$""BL$""=BL$(BL$,CW):84:Q$(34):54273,68:54272,149:54277,64V54278,128:54296,15}I1W1:CR$CR$"":CD$CD$"": PLACE FUNCTION DEF. HEREB68:PL65520:CL(43)5(44)256LA$:A$""1100NA(A$):(A32,2034  192,76,51,194,169,6,160,195,32,30,171,169,255,141,166,194q  141,167,194,78,165,194,108,2,3,169,0,133,97,133,98,165  43,133,95,165,44,133,96,165,21,160,3,209,95,144,27,208  9,165,20,136,209,95,144,18,240,16,165,95,133,97,165,96LC1:76f1134 hA$""1136jCCMC1172;lCCCC1:CCLCNCLCLC1:76In56:1100[pA$"'"1142irSLCW:16tV$(CC,CR)T$:1154vA$"="1148xSL2W:16zV$(CC,CR)T$:1154|(A$"0"A$"9")A$"-"1160~SL:TR$(TR$,1)BCC2C11:RR2R11:V$(C,R)V$(CS,RS):V(C,R)V(CS,RS):R,CJ54A$"QUITTING -- ARE YOU SURE?":16:T$(T$,28,1)T$""T$"Y""":68: CM$(T$,3):T$(T$,5):40"SU0:AV0:MA1E20:MI1E20:K0$II,176,46,233,47@ 133,99,165,21,133,100,201,25,176,39,165,20,10,38,100,10| 38,100,101,20,133,20,165,100,101,21,133,21,6,20,38,21 165,20,101,99,133,20,144,195,230,21,176,191,165,20,5,21 96,169,0,96,78,165,194,32,122,166,169,249,160,194$:SA(DI1):D8SA4- ZD8DI1F$"@0:"F$",S,W"H \D8DI2F$F$",S,R"\ ^DI,D,SA,F$:68| `DI1:86:1,BR","BC:I0BR aJ0BC:1,V(J,I)","Q$;V$(J,I);Q$:J,I b1: lDI2:86:2,BR,BC nI0BR:J0BC:2,V(J,I),V$(J,I):J,I N$")"816%4II1:N$(OL$,I,1):N0:N$""N(N$).6910Mz34:CR0BR:CC0BC:900b|84:CC,CR:36:vV$(CC,CR)""(V$(CC,CR))61B$"V("(CC)","(CR)")"OL$V$(CC,CR):OL(OL$)F$(OL$,1):F(F$):I2N( 133,98,32,107,194,208,224,169,1,56,96,160,0,177,95,170e 200,177,95,134,95,133,96,177,95,96,160,2,177,95,133,20 200,177,95,133,21,173,0,3,72,173,1,3,72,169,154,141 0,3,169,194,141,1,3,76,189,166,104,141,1,3,104,141  0,3,96,0,25W:16V$(CC,CR)"#":V(CC,CR)(T$)10:900:68:11001A$">"1168bSLW:A$"GOTO?":16:T$(T$,6):30:CCC:CRR(CC(LCNC))(CR(TRNR))LCCC:TRCRTR(MRNR)TRMRNRLC(MCNC)LCMCNC76:68:1100A$""1 58)916IOLII1:908B$B$F$SXX512:I1(B$):F$(B$,I,1):F(F$):F32XX,F:XXXX1fI:XX,0:CL:W40:NC3:NR17:MC15:MR30:SO1024:LC0:TR0:CW9:LL213:36876,200:10,0V(MC,MR),V$(MC,MR):76:BL$"":I12W:BL$BL4 53280,6:53281,6:TB$(150):""(14):DI8:C1q8,DI,8,": DIRECTORY ":15,DI,15:15,EN$,ED$,ET$,ES$8,DN$:EN$"00"8:15:310(8,TB$(C):ST66702((TB$(C),1))10TB$(C)(TB$(C),(TB$(C))1):50<CC1:40* F8:15:MAHOY! APRIL 86 2A .TAG ACTIONAUTS AIR RESCUE AIR RESCUE BOOT BIGCHR BOOT BIGCHR.O BIGCHR.S BITMAPPER BUG REPELLENT CHRONO-BOOT CHRONO-WEDGE COMETCATCHER ERROR CHECK FLANKSPEED FRACTIONAL FUN FRACTIONAL FUN2 HIDDEN CAVERN INSTA BUG 64 JCALC 64 LMA1:90 AC:90B (B$)M"???":C11500::A$(20):210 53281,6:53280,14:"LOAD"(34)TB$((B$))(34)",8,1"  PRINTRIGHT$(STR$(DI),LEN(STR$(DI))-1) """:198,4:631,13:632,82:633,213:634,13: ,"WAIT"(0  A0A1:"AIR RESCUE",8,1, 49152. A0A1:"BIGCHR.O",8,1* 327682" A0A1:"CHRONO-WEDGE",8,1. 49152 "PYRAMIDAL COMAL" PRG m  "FRACTIONAL FUN" PRG  "FRACTIONAL FUN2" PRG  "SECTOR STATUS" PRG  "ERROR CHECK" PRG "SCREEN WINDOW" PRG a "ACTIO C1:TB$(C)"":L1$"":C140:L1$L1$" ":> PL1$L1$"":A1q Z53281,1:"";:C14:L1$;::C12:""L1$;} _:""; d7)"IRECTORY SSISTANCE V64"11)" "; i" "12)" (C) ON NT'L NC. "59)""DN$8)LISTING MENU C-64 MR. MYSTO V2.0 NOTEMAKER PRINTING PERM PYRAMIDAL COMAL PYRAMIDAL PRINT ROOTING ROUTINE SCREEN WINDOW SECTOR STATUS SHORT FORM 1040A VIC BUG REP VIC JCALC TORY AIR RESCUE BOOTBIGCHR BOOT 68,DI,0,"$0":C18:#8,A$::C1:DN$"":C116b @#8,A$:DN$DN$A$::#8,A$:#8,A$:DN$DN$" ":#8,A$ JDN$DN$A$:#8,A$:DN$DN$A$:#8,A$:#8,A$:DN$DN$" "A$ T#8,A$:DN$DN$A$:#8,A$:C1 ^A14:#8,A$::PN$"":TY$"" h#8,A$:ST (8);(14):1000<54276,17:TT150::54276,16:M CCBCBCCC^ CRBRBRCRd{CH$;A$;"";:T$A$B$:B$""18(B$(20))((T$)1)T$(T$,(T$)1):B$;"";"";:18B$""16B$(13) ""B$"";:T$T$ S49152:E49940- 53281,0: 53280,0U" PATIANCE IS A VIRTUE...."lISE: A: I,A:"SYS ";S;" :REM **** START IT UP ****"Z 120,173,21,3,201,192,240,35,141,164,194,173,20,3,141,163  194,169,192,141,21,3,169,B$:((T$)SL)5:18$ T$""5:D C(T$)65:R((T$,2))1:V "HCCC:HRCR:h $CCHC:CRHR: &CH$;:A$"RANGE?":16:T$(T$,7) 'T$""R1CR:R2CR:C1CC:C2CC: (30:R1R:C1C *II1(T$):II$(T$,II,1):II$":"46 +II$")"1$;< xCAA14:""(" "(C),5)" "TB$(C)29(TB$(C)));T " ";::L1$;x A12:""L1$;::(L1$,40)"" 9)"1 = CONTINUE LISTING"19)"3 = CREATE DIRECTORY"; 19)"5 = EXIT PROGRAM":2023,160:56295,6:198,0:B$"" 2,201,17,208,18,165,214,201,24,208^  227,32,149,192,32,174,192,32,59,193,76,68,192,201,145,208  16,165,214,208,207,32,149,192,32,203,192,32,50,193,76,68  192,201,133,208,6,32,149,192,76,148,193,201,134,208,181,32  149,192,76,195,193,160450 rA$""450|(A$)34360B#8,A$:(A$)34PN$PN$A$:390[#8,A$:(A$)32400}TY$TY$A$:#8,A$:A$""410(TY$,3)"PRG"350(PN$,1)" "350TB$(C)PN$:CC1:ST03508:15,DI,15,"S: DIRECTORY ":48 ,:48 .T$(T$,II1):30/ 0R2R:C2C:D 2CH$" ";:LL,2Ws 3V$(CC,CR)"#"V(CC,CR)"";:V(CC,CR):68 4" "Q$;V$(CC,CR);Q$"";:V$(CC,CR):900:68 6"WAIT":890:76:68:84 8CA0ICACACW1:I,(I)127: :84:68 > 45,141,20,3,169,0,141,165,194_  141,168,194,169,255,141,166,194,141,167,194,88,96,173,165,194  208,21,169,1,141,165,194,169,192,72,169,80,72,8,72,72  72,108,163,194,78,165,194,173,13,220,104,168,104,170,104,64  165,198,240,240,173,119,T$V$(CC,CR):T$""T$BL$:; @(T$)39T$((T$,2)BL$,CW):h BT$(BL$((100V(CC,CR).5)100),CW): D62:782,3(CCLC)CW:781,4CRTR:783,0:65520 F""T$""CH$;V$(CC,CR);:V$(CC,CR)"#"V(CC,CR); H"";: L"":::34* N"A$:A$""160 (A$)132608 A$""240:" F1 ******U A$""300:" F3 ****** A$""53280,3:"RUN"::" F5 ****** (A$)20B$"":" ":B$"":160 A$"0"A$"9"(B$)3160 B$B$A$:""B$:160 C9,1,133,204,165,207,240,12,165,206,174\  135,2,160,0,132,207,32,19,234,169,0,133,198,96,169,25  133,214,32,33,193,48,18,32,68,193,240,246,32,57,194,208  241,32,107,194,240,3,32,122,194,24,96,169,255,133,214,32  15,193,176,57,32,68,193,154Z$"":8,DI,8,": DIRECTORY ,S,W":8,DN$_A1C1:C$Z$:B1C1:C$TB$(B)490qC$TB$(B):DB:8,C$:TB$(D)Z$::8::10" "A$ T#8,A$:DN$DN$A$:#8,A$:C1 ^A14:#8,A$::PN$"":TY$"" h#8,A$:STA   l AHOY! APRIL862AMENU C-64.TAG BUG REPELLENT INSTA BUG 64VIC BUG REPFLANKSPEED COMETCATCHER BITMAPPER KKSHORT FORM 1040A BIGCHR.S BIGCHR.O AIR RESCUE LISTING HIDDEN CAVERN' ROOTING ROUTINE PRINTING PERMKK PYRAMIDAL PRINT PYRAMIDAL COMAL FRACTIONAL FUNFRACTIONAL FUN2SECTOR STATUSERROR CHECK SCREEN WINDOW ACTIONAUTSaKK CHRONO-WEDGEMR. MYSTO V2.0 NOTEMAKER JCALC 64 VIC JCALC DIRECTORY AIR RESCUE BOOTBIGCHR BOOTKKCHRONO-BOOTKKKKK  4....0H`(@º   #"":53280,0:53281,6:646,1U" BUG REPELLENT INSTALLED "| X 49152 49488 : Y: X,Y:: 32, 161, 192, 165, 43, 133, 251, 165, 44, 133 252, 160, 0, 132, 254, 32, 37, 193, 234, 177  251, 208, 3, 76, 1380, 254, 32, 37, 193B  234, 165, 253, 160, 0, 76, 13, 193, 133, 253v  177, 251, 208, 237, 165, 253, 41, 240, 74, 74  74, 74, 24, 105, 65, 32, 210, 255, 165, 253  41, 15, 24, 105, 65, 32, 210, 255, 169, 13  32, 220, 192, 230, 63, 208240, 6, 2016  80, 208, 245, 230, 254, 32, 210, 255, 169, 4j  166, 254, 160, 255, 32, 186, 255, 169, 0, 133  63, 133, 64, 133, 2, 32, 189, 255, 32, 192  255, 166, 254, 32, 201, 255, 76, 73, 193, 96  32, 210, 255, 173, 141, 2, 41, 1, 113, 251, 69, 254, 170, 138, 76, 88, 192, 0O 0, 0, 0, 230, 251, 208, 2, 230, 252, 96 170, 177, 251, 201, 34, 208, 6, 165, 2, 73 255, 133, 2, 165, 2, 208, 218, 177, 251, 201 32, 208, 212, 198, 254, 76, 29, 193, 0, 169 13, 76 SA49152EI100148:ZZ0:J18:A:SA,A:SASA1:ZZZZA:JeA: ZZA CKCKZZ: I:50(" ERROR IN LINE #";I:2 SACK1377 49152:d 169,90,141,2,3,169,192,141,907e 3,3,160,0,185,37,192,240,820 f 6,32,210,255,200,2, 192, 230, 251, 208, 2E  230, 252, 76, 43, 192, 76, 73, 78, 69, 32u  35, 32, 0, 169, 35, 160, 192, 32, 30, 171  160, 0, 177, 251, 170, 230, 251, 208, 2, 230  252, 177, 251, 32, 205, 189, 169, 58, 32, 210  255, 169, 0, 133, 253, 23, 2, 230, 64, 230>  251, 208, 2, 230, 252, 76, 11, 192, 169, 153p  160, 192, 32, 30, 171, 166, 63, 165, 64, 76  231, 192, 96, 76, 73, 78, 69, 83, 58, 32  0, 169, 247, 160, 192, 32, 30, 171, 169, 3  133, 254, 32, 228, 255, 201, 83,  208, 2491  96, 32, 205, 189, 169, 13, 32, 210, 255, 32c  204, 255, 169, 4, 76, 195, 255, 147, 83, 67  82, 69, 69, 78, 32, 79, 82, 32, 80, 82  73, 78, 84, 69, 82, 32, 63, 32, 0, 76  44, 193, 234, 177, 251, 201, 32, 240, 6, 138!, 210, 255, 0, 0, 0, 205, 189, 169, 13, 32, 210, 255, 32c  204, 255, 169, 4, 76, 195, 255, 147, 83, 67  82, 69, 69, 78, 32, 79, 82, 32, 80, 82  73, 78, 84, 69, 82, 32, 63, 32, 0, 76  44, 193, 234, 177, 251, 201, 32, 240, 6, 138! 08,245,169,13254 g 1,133,251,169,8,133,252,165,1112V h 0,141,167,2,96,18,32,73,529x i 78,83,84,65,78,84,32,66,570 j 85,71,32,82,69,80,69,76,564 k 76,69,78,84,32,13,0,40,392 l 104,170,104,168,104,76,131,164,1021 m 160,0,177,251,24 160,2,177,251,197,254,240,6,1287D u 32,105,193,24,144,239,200,177,1114l v 251,197,255,240,6,32,105,193,1279 w 24,144,226,169,1,133,254,169,1120 x 0,133,255,165,251,24,105,4,937 y 133,251,165,252,105,0,133,252,1291 z 169,0,160,0,169 ,208,8,173,167,2,73,8664 255,141,167,2,173,167,2,208,1115[ 12,177,251,201,32,208,6,198,1085 254,138,76,187,192,138,113,251,1349 69,254,170,138,76,187,192,169,1255 160,141,0,4,169,186,141,1,802 4,160,0,185,127,193,240,6,908,2,1215! 230,252,96,173,134,2,160,0,1047I 153,0,216,200,192,21,144,248,1174n 96,160,0,177,251,170,32,84,970 193,177,251,133,252,138,133,251,1528 96,0,0,0,0,0,0,160,256 140,137,142,133,160,163,160,0,103527,193,240,6,9 ""*" BUG REP INSTALLED "N X 828 1023 : Y: X,Y:: 169, 0, 133, 63, 133, 64, 165, 43, 133, 251 165, 44, 133, 252, 160, 0, 132, 254, 32, 228 3, 234, 177, 251, 208, 3, 76, 208, 3, 230  251, 208, 2, 230, 258, 113, 251, 69, 254, 170K  138, 133, 253, 177, 251, 208, 226, 165, 253, 41{  240, 74, 74, 74, 74, 24, 105, 65, 32, 210  255, 165, 253, 41, 15, 24, 105, 65, 32, 210  255, 169, 13, 32, 210, 255, 173, 141, 2, 41  1, 208, 249, 230, 63# 32, 35  32, 0, 0, 0, 0, 08, 133, 253, 177, 251, 208, 226, 165, 253, 41{  240, 74, 74, 74, 74, 24, 105, 65, 32, 210  255, 165, 253, 41, 15, 24, 105, 65, 32, 210  255, 169, 13, 32, 210, 255, 173, 141, 2, 41  1, 208, 249, 230, 6353280,12:53281,11M" FLANKSPEED ";~ " MISTAKEPROOF ML ENTRY PROGRAM "" CREATED BY G. F. WHEAT "" COPR. 1984, ION INTERNATIONAL INC. "A5427254296:A,0:/ ((2)T(1)161 ZB$"ENDING ADDRESS IN HEX":2010:ENBC _2510:B080j `254,T(2)T(1)16:BT(4)1T(3)16 aB255BB255:254,(254)1 b253,B: d GET HEX LINE n3010:": ";:A08 xB01:210 }B A%(A)T(1)T(0)16:ADA 4100 A$(135)" ":45001 A$(136)" ":4700W A$"@"A$"G"T(B)(A$)55:250} A$"/"A$":"T(B)(A$)48:250 1100:210 A$""; 125 A0280 A1:B1290 140 B0(20);(20);:AA1 AA1 "0,1,96,200,11252 n 177,251,240,1,96,104,104,76,1049V o 63,192,72,152,72,138,72,8,769} p 165,157,208,3,76,63,192,169,1033 q 1,133,251,169,8,133,252,169,1116 r 0,133,254,133,255,165,20,133,1093 s 254,165,21,133,255,32,72,192,1124 t,0,141,167,806. { 2,240,38,133,255,177,251,208,1304S | 27,165,255,41,240,74,74,74,950w } 74,24,105,129,141,2,4,165,644 ~ 255,41,15,24,105,129,141,3,713  4,76,15,193,230,254,32,84,888 193,165,255,160,0,170,177,251,1371 201,3415 153,4,4,200,208,245,234,165,1213C 20,133,99,165,21,133,98,162,831i 144,56,32,73,188,32,221,189,935 162,0,189,1,1,240,10,41,644 63,9,128,157,12,4,232,208,813 241,169,160,157,12,4,32,91,866 193,76,63,192,230,251,2(20);:140 , LAST LINE0 6" ":TAD((AD256)256)V @B0A1:TTA%(B):T255TT255\ Ju TA%(A)T1010:110 ^B0A1:ADB,A%(B): h:"YOU ARE FINISHED!":4000  BELL AND ERROR MESSAGES :"LINE ENTERED INCORRECTLY"::2, 169, 244, 160, 3, 32I  30, 203, 160, 0, 177, 251, 170, 230, 251, 208|  2, 230, 252, 177, 251, 32, 205, 221, 169, 58  32, 210, 255, 169, 0, 133, 253, 230, 254, 32  228, 3, 234, 165, 253, 160, 0, 170, 177, 251  201, 32, 240, 6, 13, 208, 2, 230, 64, 230A  251, 208, 2, 230, 252, 76, 74, 3, 169, 236q  160, 3, 32, 30, 203, 166, 63, 165, 64, 32  205, 221, 169, 13, 32, 210, 255, 96, 230, 251  208, 2, 230, 252, 96, 0, 76, 73, 78, 69  83, 58, 32, 0, 76, 73, 78, 69,1100#:"INPUT A 4 DIGIT HEX VALUE!":1100T:"ENDING IS LESS THAN STARTING!":B0:1100:"ADDRESS NOT WITHIN SPECIFIED RANGE!":B0:1100:"NOT ZERO PAGE OR ROM!":B0:1100$"?ERROR IN SAVE":1100."?ERROR IN LOAD":1100854272,4:54273,48:54277,0:54278,249:54296,15H FA680699:B:A,B:s K169,251,166,253,164,254,32,216,255,96 L169,0,166,251,164,252,32,213,255,96 PB$"STARTING ADDRESS IN HEX":2010:ADB:SRB U2520:B080 V251,T(4)T(3)16:252,T 1EN310 " ";0 A:TAD((AD256)256):" "T A07:TTA%(A):T255TT255Z s A%(8)T1010:110 A07:ADA,A%(A)::ADAD8:110 GET HEX INPUT A$:A$""210 A$(20)270 A$(133)4000 A$(134) @@ << COMETCATCHER >>B@ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=`@ - COMET CATCHER -~@ RUPERT REPORT #28@ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=@ A REAL-WORLD SIMULATION@ OF ASTRONOMICAL PROPORTIONSA =========== EXT COLOR!B( (27)"M" : NO SCROLLBB2 0,22,39,24 : TEXT WINDOWdB< 1,160,100,1 : DRAW SUNBFSD606024 : # SECONDS/DAYBPAU1.496E11 : 1 ASTRONOMICAL UNIT IN METERSBZG6.67E11 : GRAV. CONSTANT CdM1.99E30 : VX1.255E4 DVY02D ================================YDDTTMSD : TIME INCREMENT (SEC)DSF200HYAU : PLOTTING SCALE FACTORDXX0AU : YY0AU : CONVERT AU TO METERSD ******** MAIN LOOP *************EDD2 : INITIA ,PX,PY : PLOT THE POINTFTTTDTDF^VE(2GRM)1E3 : ESCAPE VELOCITYaFh "VE= ####.## KM/S";VE{FrVT(VXVXVYVY)1E3F| "V = ####.## KM/S";VTF "R = ####.## AU";RAU;F 25) : "T= #####.# DAYS"; TSDFDD1 :  ********************************5H ,0,22,"VE= "(VE)" KM/S"VH ,0,23,"V = "(VT)" KM/S"wH ,0,24,"R = "(RAU)" AU"H& ,25,24,"T= "(TSD)" DAYS"H0 ,0,0," --- BACK TO 80 COLUMN MODE ---": 5TSDFDD1 : ' =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=J =-= BITMAPPER =-=j C-64 BIT MAP GRAPHICS RUPERT REPORT #28 ====== FOR C-64 ONLY! ======= USE -- GOSUB 1000 - TO INITIALIZE BIT MAP MODE  USE -- GOSUB 2000 ::"END OF ML AREA":"L54276,17:54276,16:B15,8,15:15,A,A$:15:A$:[ GET FOUR DIGIT HEXj:B$;:T$(T$)41020:2010A14:A$(T$,A,1):2060:T(A)161020:2010:B(T(1)4096)(T(2)256)(T(3)16)T(4):  A$ A1:3070 % T(ACA):T9A$(T55):30904 A$(T48)I A$;:ACACAT:aA$"**SAVE**":4200w1,T,1,A$:680:1ST01060:T812004000A$"**LOAD**":420061,T,0,A$:690:1@ST64110J1070:TCAN AT ADDRESS":2010:ADBa2515:B04700$b:4740ZfB07:AC(ADB):3030:ADBENADSR:1080:110gk" ";:Bup:ADAD8zB$:B$(136)1103010:": ";:4710"**LOAD**":420061,T,0,A$:690:1@ST64110J1070:T<' A *********************************O B LINES 440 THROUGH 485 ARE FOR USEo C WITH COMET CATCHER D *********************************  SD0 A$(13)  A$"" 270  A$(13) 3000 : (147) :   A$"" 49======================;A << WRITTEN FOR COMMODORE 128 >>cA =================================A 2,1,22 : STANDARD SPLIT SCREEN GRAPHICS - TEXT AT LINE 22A 0,1 : 1,2 : TEXT BACK GROUND AND BIT-MAP FOREGROUNDB 5,2 : T MASS OF SUN (KG)0CnKGM : FORCE CONSTANTWCx ==== INITIAL PARAMETERS ========~CTM10 : TIME INCREMENT (DAYS)CHY4 : HT. OF SCREEN IN AUC: INITIAL POSITION (AU)CX03CY01.2C: INITIAL VELOCITY (M/S)DL TIME DIVISORER2XXYY : R(R2)KEAXKR2XR : AYKR2YR : ACCELERATIONoE"VXVXAXDTDD : VYVYAYDTDDE,XXVXDT : YYVYDT : POSITIONE6PX160SFX : PY100SFY : PLOT VALUESE@ PX0 PX320 PY0 PY200 340FJTIME DIVISORG A$ : CHECK KEYBOARD@G STOPS PROGRAM ...uG ((13)"PSF",A$) 520,460,470,480,490,500G 270G A$ : : PAUSEG& : G% : GDTDT1.1 : : SPEED UPGDTDT.9 : : SLOW DOWNH0 : 270  A$"" 500 : 2704  A$"P" 270M  A$ : A$"" 480W  270~  ********************************   >>> INITIALIZE BIT MAP MODE <<<   SET & RESET BIT FUNCTIONS  SB(N)(MM) 2N  RB(N) - TO PLOT POINT AT LOCATION PX,PYR  USE -- GOSUB 3000 - TO RETURN TO TEXT MODEz ---------------------------------- 1000  -- DRAW SUN -- (OR ANY CIRCLE OF RADIUS R) R2 : TH0 2 .5 (PX160R(TH) 2PY100R(TH) "@"A$"G"T(A)(A$)55:-A$"/"A$":"T(A)(A$)48:; T(A)16:N ADRESS CHECK^ ADEN1030r BSRBEN1040 B256(B40960B49152)B532471050  ADDRESS TO HEX ACAD:A4096:3070 A256:3070 A16:307081200T4100h" ":14)A$*r:A$"":"FILENAME";A$:wA$""4210S|:"TAPE OR DISK?":yB$:T1:B$"D"T8:A$"@0:"A$:B$"T"4230B$"CONTINUE FROM ADDRESS":2010:ADB2515:B04500:110\B$"BEGIN S(MM) (2552N)+ VV53248 : VIC-II REGISTER 0u : >>> PUT BIT MAP AT 8192 <<< (SET BIT 3 OF VIC REGISTER 24) MMVV24 : MM,SB(3) : >>> SELECT BIT MAP MODE <<< (SET BIT 5 OF VIC REGISTER 17) $MMVV17 : MM,SB(5) ,BCKCKB= CK5133 "DATA ERROR IN LINES 4060 - 4110" : J 828: e 76,68,3,0,32,31,64,0 173,63,3,133,251,173,64,3 133,252,174,65,3,160,0,173 67,3,136,145,251,208,251,230 252,202,48,7,208,244,172,66  "FORM 1040A CALCULATOR"D"COPYRIGHT 1986 CHERYL PETERSON""PRINT AN INSTRUCTION LIST FOR FILLING OUT 1040A WHEN FINISHED?"("YES OR NO";Q$- Q$"Y"902"TO SCREEN OR PRINTER";Q2$Z INPUT STATEMENTS d"HOW MANY  "FEDERAL INCOME TAX WITHHELD";F: "EARNED INCOME CREDIT";CE L 2100N t""} ~"ENTER ";GI;"ON LINE 10 OF THE TAX FORM." "ENTER ";X2;"ON LINE 11 OF THE TAX FORM." "ENTER ";TN;"ON LINE 12 OF THE TAX FORM." "LOOK UP THE AMOUNT OF TA 900 "YOUR TOTAL REFUND IS $";R@ "ENTER THIS AMOUNT ON LINE 17."S  CL1 1799] 4:4c  "YOU SEEM TO HAVE COME OUT EVEN." "ENTER 0 ON LINES 17 AND 18." i CL1 1799 j4:4 k lRTTTP v"YOU OWE THE GOVERNM8A.""ENTER";D;"IN BOX NUMBER 8B.">"ENTER";Z;"IN BOX NUMBER 8C."a"ENTER";E;"IN BOX NUMBER 8D.""ENTER";Y;"IN BOX NUMBER 8E.""ENTER";GI;"IN BOX NUMBER 10.""ENTER";X2;"IN BOX NUMBER 11.""ENTER";TN;"IN BOX NUMBER 12." Q2$"P" CL1! COMPUTATIONS=4ZID:YZE: Y0 Y0JGIWYUXX21000Xe` TNGIX2r TPPFCx ( TTTDA ;GI;"IN BOX NUMBER 10.""ENTER";X2;"IN BOX NUMBER 11.""ENTER";TN;"IN BOX NUMBER 12." * *bigchr * org $8000 * color equ $10 colmap equ $8400 * base equ $a000 * victrl equ $d011 ci2pra equ $dd00 * ciadir equ $dd02 * vicmem equ $d018 * hmax equ 320 hmid equ 160-4 * vmid equ 100-4 * * scrlen equ 8000 maplen equ 1000 * tempa equ $fb tempbu prodl+1 * filval equ prodh+1 * r6510 equ $0001 newadr equ $8800 chrbas equ $d000 ciacre equ $dc0e * tablen equ $800 * mvsrce equ $61 mvdest equ mvsrce+2 bytptr equ mvdest+2 * lenptr equ $9000 chcode equ lenptr+2 hptr equ chcode+2 onebyt equ hptr+1 coun .BASE8192 : START BIT MAP MEMORY8 8: >>> CLEAR BIT MAP <<<C B 4000h L: > SELECT COLORS C1 AND C0 < VC11 : C00 : CC16C1 C0 `: FILL SCREEN MEMORY WITH COLOR j MM1024 2023: MM,CC: t ~:  =========================================! MMVV17 : MM,RB(5)C RESTORE SCREEN MEMORY BASE^ MMVV24 : MM,RB(3)d jx: CLEAR BIT MAP SCREEN  M828 82843 B : M 3,208,239,96=! MMVV17 : MM,RB(5)C RESTORE SCREEN MEMORY BASE^ MMVV24 : MM,RB(3)d jx: CLEAR BIT MAP SCREEN  M828 82843 B : MEXEMPTIONS ARE YOU CLAIMING";X; "INCOME FROM W-2 FORMS";Wa ,"INTEREST COLLECTED THIS YEAR";I "DIVIDENDS COLLECTED THIS YEAR";D "EXCLUSIONS";E X"TAXABLE UNEMPLOYMENT COMPENSATION";U "CONTRIBUTIONS TO POLITICIANS THIS YEAR";P XES DUE"& "ON $";TN;"IN THE TAX TABLES."M "TAXES DUE ACCORDING TO TABLE";TDt x"ADVANCED EARNED INCOME CREDIT";A  2600 ""  Q2$"P" Q$"N" 1930 " Q2$"P" 1921 @ TPTT RTPTT r TPTT 1800 | TPTT 1ENT $";R# {"ENTER THIS AMOUNT ON LINE 18."6 } CL1 1799@ ~4:4F W  Q$"Y" c 4,4:4 "FILL OUT QUESTIONS 1-5 AS APPROPRIATE." "ENTER";X;"IN BOX NUMBER 6." "ENTER";W;"IN BOX NUMBER 7." "ENTER";I;"IN BOX NUMBER "ENTER";P;"IN BOX NUMBER 13A."8"ENTER";F;"IN BOX NUMBER 13B."\"ENTER";C;"IN BOX NUMBER 13C.""ENTER";TP;"IN BOX NUMBER 14.""ENTER";TD;"IN BOX NUMBER 15A.""ENTER";A;"IN BOX NUMBER 15B.""ENTER";TT;"IN BOX NUMBER 16." fini rts * *16-bitmultiplicationroutine * mult16 lda #0 sta prodl sta prodh ldx #17 clc mult ror prodh ror prodl ror mprh ror mprl bcc ctdown clc lda mpdl adc prodl sta prodl lda mpdh adc prodh sta prodh ctdown dex bne mult rts * *p equ tempa+2 * tabptr equ tempa tabsiz equ $02a7 * hpsn equ tabsiz+2 vpsn equ hpsn+2 char equ vpsn+1 row equ char+1 line equ row+1 byte equ line+1 bitt equ byte+2 * mprl equ bitt+1 mprh equ mprl+1 mpdl equ mprh+1 mpdh equ mpdl+1 prodl equ mpdh+1 prodh eqt equ onebyt+2 * jmp start * *blockfillroutine * blkfil lda filval ldx tabsiz+1 beq partpg ldy #0 fullpg sta (tabptr),y iny bne fullpg inc tabptr+1 dex bne fullpg partpg ldx tabsiz beq fini ldy #0 partlp sta (tabptr),y iny dex bne partlp =========" > TURN ON PIXEL AT (PX,PY) <<<G ==============================ZBIT7(PX 7)MMBASE320(PY8)8(PX8)(PY 7) MM,SB(BIT): ========================== >>> RESET BIT MAP MODE <<< ====== #tablen sta lenptr+1 * *startmove * ldy #0 ldx lenptr+1 beq mvpart mvpage lda (mvsrce),y sta (mvdest),y iny bne mvpage inc mvsrce+1 inc mvdest+1 dex bne mvpage mvpart ldx lenptr beq mvexit mvlast lda (mvsrce),y  mid sta vpsn * lda #1 ;'a' sta chcode jsr getadr * *anestedloop: * *(xistheoutsideloop) * ldx #8 * *setupcounterfor2vertlines * setlin lda #2 sta count * drawln ldy #0 lda (bytptr),y sta onebyt * *theinsideloop: * *(yiszeroa jsr plot * *retrievexandyregisters * pla tay pla tax * noshow inc hpsn bne leap inc hpsn+1 * leap iny cpy #8 bcc rshift * inc vpsn * lda hptr sta hpsn lda hptr+1 sta hpsn+1 * *2vertlinesdoneyet? * dec count bne drawln * inc bytp  2061xآ 6)ܩ ܭ)Щ؍Э) Э) ݩ U ߩ  /  U  "  %O  F k L)  !ЩЭ)Щhhh@"Ɂ 4L+ Q z  n Ƣɕ| 0ɩLG̺̎Ɍɤݧ:LḼ̎Ʌ rŮ̊ HH` eƩɠ eƢP̝ LG$LT LGP4 5 e%D89 ڠ ečLQLL?/lotroutine * *row=vpsn/8(8-bitdivide) * plot lda vpsn lsr a lsr a lsr a sta row * *char=hpsn/8(16-bitdivide) * lda hpsn sta tempa lda hpsn+1 sta tempa+1 ldx #3 dloop lsr tempa+1 ror tempa dex bne dloop lda tempa sta char * *line=vpsa #>hmax sta mpdh jsr mult16 lda mprl sta tempa lda mprl+1 sta tempa+1 * *addproducttobase * clc lda #base adc tempa+1 sta tempa+1 * *multiply8*char * lda #8 sta mprl lda #0 sta mprh lda char sta+1 sta tempb+1 * *pokebyte,peek(byte)or2^bit * ldx bitt inx lda #0 sec square rol dex bne square ldy #0 ora (tempb),y sta (tempb),y rts * *calculatechcode'saddress * getadr lda #0 sta chcode+1 lda chcode clc asl a rol chcode+1 asl ak2 * lda ciadir ora #3 sta ciadir * lda ci2pra and #252 ora #1 ;bank2 sta ci2pra * *clearbitmap * lda #0 sta filval lda #base sta tabptr+1 lda #scrlen sta tabsiz+1 jsr blkfil * *seticout * lda r6510 and #$fe sta r6510 * *switchi/ooff,charromon * lda r6510 and #$fb sta r6510 * *copycharactersintoram * lda #chrbas sta mvsrce+1 * lda #newadr sta mvdest+1 * ldasta (mvdest),y iny dex bne mvlast mvexit * *switchi/obackin * lda r6510 ora #4 sta r6510 * *turntimerbackon * lda ciacre ora #1 sta ciacre * *drawacharacter * lda #hmid sta hpsn+1 sta hptr+1 lda #vtstart) * rshift lda onebyt asl a sta onebyt bcs show * inc hpsn bne itsok inc hpsn+1 itsok jmp noshow * *displaybit * *savexandyregisters * show txa pha tya pha * jsr plot * *nowdoitagain * inc hpsn bne noinc inc hpsn+1 * noinc Jtr bne okmsb inc bytptr+1 okmsb dex bne setlin * inf jmp inf * end * e itsok inc hpsn+1 itsok jmp noshow * *displaybit * *savexandyregisters * show txa pha tya pha * jsr plot * *nowdoitagain * inc hpsn bne noinc inc hpsn+1 * noinc L+ ) /ɈɅ ` w`  ~ z t ` , !Щ Ѝ%Щۙۙۈ= p( h Y Z  [  \ ] ^ _ ` a b  c  [ W ТJA Z e e=̅ $ eLL o   eƭ o ̍ ̭̊ `LOƢ i Ȣtʎ̪ ̮ ߭ҩf e`)`8`̪ ̠ nand7 * lda vpsn and #7 sta line * *bitt=7-(hpsnand7) * lda hpsn and #7 sta bitt sec lda #7 sbc bitt sta bitt * *byte=base+row*hmax+8*char+line * *firstmultiplyrow*hmax * lda row sta mprl lda #0 sta mprh lda #newadr sta bytptr+1 rts * *mainroutinestartshere * start lda vicmem ora #8 sta vicmem * lda victrl ora #32 sta victrl * *useban bkgandlinecolors * lda #color sta filval lda #colmap sta tabptr+1 lda #maplen sta tabsiz+1 jsr blkfil * *turnoffkbinterrupttimer * mvchrs lda ciacre and #$fe sta ciacre * *switchbasT -*- AHOY!'S CHRONO-WEDGE VER 1.0 -*- SYSTEM ERROR: DATE-STAMPER CANNOT LOCATE FILE, PLEASE CHECK DIRECTORY. PRINTER MUST BE 4 OR 5, PLEASE RE-KEY. DRIVE MUST    830 Q$(500),YN$(500)JB$" "i(D$""2S$""<DB$D$B$B$B$B$D$FYN$(0)"Y":Q$(0)"NOTHING":Q$Q$(0)P MR. MYSTO 1-16-85 : C-64 VERSION 2.06 Z" OU WANT ME TO SPEAK?":1140:TK$A$f DB$" PICK A WORD AND I WILL TRY",,"TO DEDUCE","WHAT IT IS."{ I03000::650 R0:GU$YN$(0):TA$YN$(0) (YN$(R))(TA$) YN$(R)TA$RRR:1110:650:220 RNRR1:190 230 1140 :240 TS$Q$(RR):TL(TS$)I "DB$"TYPE A QUESTION THAT WILL HELP ME TELL",] ,AA$" FROM "TS$t 6650:"";QQ$ @(QQ$,1)"?"QQ$QQ$"?" JDB$"ENTER THE ANSWER FOR ",,AA$;" (Y/N)":650 T1140:NN1:P$(TA$,(TA$)1) ^TS$Q$(R`8`ɠ`&- `̽0ɩ`{ ȭABu u © eƢ) ,  ΍Hʭ΍Iʩ> eƩ` e  i í=ʎ ©̩̍ LGɅ̅` "" ̩̄ `î̽ Ĭ̹ΪΠ ̠ ɩ ̌=ʢ0̍= Ʃ Lƭ:̹#? * 8``ɠɐؽɠ8`H ) )@>, ,* h) Le +,Äĭ%,     2ɢ0   LJ|Le ;Ʃ̝Y YL!ɍ ) ` 5 LM ̭ ƭLŝ`̹' Ȣ: Ȣ  Ǣ/ȹ 4ɍ 0:ٍɍ`  ȍ̭ mmɍ ܭ  ȍ̭ m̍ ܩ ܍`  ȍ̭ m̍ɭ  ȍ̭ m̍ɩL `80`)i` ̨ ̨   1ɢ    CURRENT TIME: U1:2 0 18 11 0 2:P-Bĝ9~18 0 036147258 DOS VER.= FILENAME TYP BLK LAST UPDATE¢bB" DEVICE IS OFFLINE OR IS NOT PRESENTREL DEL PRG SEQ USR AM OR PM (A/P/CR) CURRENT HOURS (0BE 8 OR 9, PLEASE RE-KEY. --:-- --/-- FILENAME MUST INCLUDE "0:" FOR DATE STAMPER TO WORK, PLEASE RE-KEY. CHRONO-WEDGE V1.0 (C) COPYRIGHT 1985 DENNY MUSCATELLI BYE STAMPING: 197)41020420' ******SAVE TO DISK******;DB$"SAVING "O$[1,8,2,"@0:"O$",S,W":1,NW0N:1,YN$(W):1,Q$(W)::1: ******DRAW FACE******""S$""F16:S$""S$"":&S$"Ϸз"," MR. MYSTO",," BY FRANK DINUNZIO 1/16/1985"h d:"AN EXPERIMENT IN ARTIFICIAL INTELLIGENCE" n,"S-START A NEW CATEGORY",,"G-GET AN EXISTING ONE " xA$:A$"S"A$"G"120 "WHICH CATEGORY";O$ A$"G"770 520:DB$"DO Y: TA$TA$A$:190D A$"Y"DB$"I AM RIGHT AGAIN!":650:T1999::410 DB$"I AM SORRY BUT I DO NOT KNOW THE ANSWER,PLEASE TELL ME WHAT IT IS." S1:650 "";AA$:(AA$)18280 DB$"ANSWER MUST BE LESS THAN 18 LETTERS.":I0999: R):Q$(RR)QQ$ hX$"N":Z$"Y"/ rA$"N"X$"Y":Z$"N"P |YN$(N)P$X$:Q$(N)TS$:NN1l YN$(N)P$Z$:Q$(N) AA$ BUBU1:BU10BU0:1160 DB$"TRY ANOTHER?":650:"" A$ A$"N"S1480: A$"N" A$"Y"160 ( H h̢  ?í uɭ̮ ɩ BL   L© `ʝ̠")"0 ʎ`tʌ̪ é Eì̈`H " h` Tİ'̽ɠ  `%;.- Y 3/" G̭) ; LLGLO 0 eLG Yᥐ@Lh LG eLJ(: ʊ" "̩Ʌ̅` L |L̠o ̠  Ȣ `LeH h NJJJJJ) 0L  Ȣ: Ǣ ǭ`֠ e Ǡʩ e hh`AP۩,ɠʩ e 03 0:܍ɠʩ e 06 0:܍`˩ e 0J2Fɍ 03ٍɍɠ˩# e 0Ν̩ Lu`̢̎ ̠ݜɭɐ̭ɍɰ,0)̮=̝#莸̮ `˩=LeƩ̠` L`ABORTED  d'^/%@_!#$0:<>L( DISK: DISK-(8):0000 TODAY IS: 00/00  1-12) CURRENT MINUTES (00-59) CURRENT MONTH (01-12) CURRENT DAY (01-31) -*- AHOY!'S CHRONO-WEDGE VER 1.0 -*- SYSTEM ERROR: DATE-STAMPER CANNOT LOCATE FILE, PLEASE CHECK DIRECTORY. PRINTER MUST BE 4 OR 5, PLEASE RE-KEY. DRIVE MUST 2zp{q z{ y z{ pzq{`H(8);(14):1000m54276,17:TT150::54276,16:~ CCBCBCCC CRBRBRCRCH$;A$;"";:T$A$B$:B$""18(B$(20))((T$)1)T$(T$,(T$)1):B$;"";"";:18  " 0F16:S$""S$"":%:S$" "=DS$" "TNS$" "jXS$" "bS$" "lS$""S$"MR. MYSTO"vS$"OO"S$""D$S$"";:TK$"N , 33 : 54273,RNI I::S24,0::5 ******LOAD ROUTINE******J 1,8,2,O$",S,R"t15,8,15:15,A$:A$"00"15:1:820 "LOADING "O$:1,N*W0N:1,YN$(W),Q$(W)::1:4"SORRY-CAN'T FIND "O$" ON THIS DISK":I13000::>" ME TOGUESS THE WORD. IF I DON'T GET IT RIGHT THE FIRST";oz" TIME, I WILL ASK YOU ONE MORE QUESTION AND THEN I GUARANTEE THAT YOU"WON'T FOOL ME ON THAT WORD ANY MORE." TO BEGIN YOU ARE ASKED TO CHOOSE IF YOU WANT TO USE PREVIOUSLY";- CA0ICACACW1:I,(I)127:&:84:68G>T$V$(CC,CR):T$""T$BL$:l@(T$)39T$((T$,2)BL$,CW):BT$(BL$((100V(CC,CR).5)100),CW):D62:782,3(CCLC)CW:781,4CRTR:783,0:65520 F""T$""CH$;V$(CC,CR);:V$(CC,CR)"#M JUST TYPE 'N'";3" WHEN ASKED 'ANOTHER' AND THE COMPILED KNOWLEDGE ";c"WILL BE SAVED TO DISK FOR FUTURE USE."REMEMBER - I AM NO SMARTER THAN THE USERWHO GIVES ME INFORMATION.,," ";A$:A$""1000(Q$(R),1)"?"Q$(R):j"IS YOUR WORD "Q$(R)"?":6tA$:A$"Y"A$"N"1140<~[ ******SORT ROUTINE******qSN:DB$"SORTING"~S(S2)S11220FR(0)(((0))0)65535:FR1200"MEMORY LOW - START A NEW FILE":480B$""16B$(13)E""B$"";:T$T$B$:((T$)SL)5:18UT$""5:u C(T$)65:R((T$,2))1:"HCCC:HRCR:$CCHC:CRHR:&CH$;:A$"RANGE?":16:T$(T$,7)'T$""R1CR:R2CR:C1CC:C2CC:(30:R1R:C1C *I!WD1D8DI,D,7:=!XCH$;:"FILENAME";F$:SA(DI1):D8SA4^!ZD8DI1F$"@0:"F$",S,W"y!\D8DI2F$F$",S,R"!^DI,D,SA,F$:68!`DI1:86:1,BR","BC:I0BR!aJ0BC:1,V(J,I)","Q$;V$(J,I);Q$:J,I!b1:!lDI2:86:2,BR  HIDDEN CAVERN2 BY JAMES C.HILTYD52,48:56,48`"":53281,15:53280,0v TITLE SCREEN:4)"    ߒ  ߒ  ߒ  "4)"       ߒ   ߒ    ߐ  "/ 4)"  "V(CC,CR); H"";:! L"":::34[ N""7);(LC65);:ILC1LCNC:CW);(I65);::"" PCRTRTRNR:""(BL$(CR1),3)""; RCCLCLCNC:62:T$;::::CA0:36: TCASO3W(4CRTR)CW(CCLC): VCH$;:"DEVICE#";D:D01100":S54272:ESS28:E,0:?L110: "";:"ͯ";MJ150:`"";x ******SOUND******54296, 10 :54277, 85 :54278, 245P((0)5)I0P : INFLECTIONRN((0)6): PITCH 54276 MR. MYSTO3H"A STUDY IN SEMI-ARTIFICIAL INTELLIGENCE"uR" THINK OF A WORD AND I WILL TRY TO GUESS WHAT IT IS ";\"BY PROCESS OF LOGIC.f" YOU WILL BE ASKED SOME CLUE QUESTIONSTHAT MUST BE ANSWERED ";#p"IN ORDER FOR             "s 4)"               " 4)"              " 4)"               "9 "" STORED DATA FROM DISK OR TO START A NEW SET OF DATA.I SUGGEST";n" THAT A SEPERATE FORMATTED DISKBE USED FOR THE DATA FILES." AS THE PROGRAM RUNS IT BECOMES WISER WITH EACH QUESTION ASKED.";" WHEN YOU ARE FINISHED WITH THE PROGRA ******EDIT ROUTINE******!"","C=CHANGE - N=NEXT"@ZZ0N:ZZ;Q$(ZZ),"(C/N)"^A$:A$"C"A$"N"1050o$A$"N"1090."CHANGE "Q$(ZZ)8"TO ";Q$(ZZ)BZZN:"":480:20LV ******IS IT A QUESS*****`DB$;::K0S:IKNSSJI:T$YN$(IS):TT$Q$(IS)3(T$)(YN$(J))1270UYN$(JS)YN$(J):Q$(JS)Q$(J)iJJS:J11240YN$(JS)T$:Q$(JS)TT$::1180BZZN:"":480:20LV ******IS IT A QUESS*****`DB$;:I1(T$):II$(T$,II,1):II$":"460+II$")"48:,:48P.T$(T$,II1):30`0R2R:C2C:u2CH$" ";:LL,2W3V$(CC,CR)"#"V(CC,CR)"";:V(CC,CR):684" "Q$;V$(CC,CR);Q$"";:V$(CC,CR):900:686"WAIT":890:76:68:848  "!" "T49522,2:49523,0:49524,38:49525,5:49526,22V39,3:V40,10:V41,13:V42,13:V43,13:V44,13V45,7:V46,12040,192:2041,192:2042,196:2043,1962044,197:2045,197:2 7,4:50438,0:50439,4:50440,0,50441,4:50442,0:50443,4:50444,0T50445,0:50446,0:50447,0:50448,0z" "SC" "SH:""33)ML5427254295:L,0:54287,15:54284,160:54285,25254280,80:54279,40:54283,129W1 0049152SCSC1:" "SC50448,0:50688,128-SC500491526200D, FIRE_0X(V14)20:Y(V15)}2V12,X:V13,Y:V21,255350445,255:50688,64:50432,646C(V12):C323207W1(V30):(V30)643308