May June 1980 - Commodore Computers

MAY/JUNE. J980 I960. . ISSUE 4.
COMPUTE.
45
2005 PRINT : PRINTHD$(N)
2005 PRINT:PRINTHD$(N) 2520
2010 GOSUBI140 GOSUB1140:IFTRO1THENPRINT: ITH :
2530
~ -.PRINT"*** NO MATCH ***""::GOTO2030 GOT02030 2540
2020 PRINT:PRINT"THIS : PRINT"THIS RECORD MATCHES:" " 2550
2030 PRINT:PRINTTR$
2040 :FORJ=CITOG:
:FORJ=C1TOG: 2560
2050 PRINT"GROUP";J;"SUM=";S%(N,J): 2570
2050 PRINT"GROUP" ; J; "SUM=" ; S%(N , J) :
-.DECISIONS; SEE SUBl LISTING ": STOP 2960
24 8 0 :FORJJ=JA+11TOJZ:LL=PEEK(JJ) 297 0
2490 IFLL=58THENJJ=JJ+5:LP$=CHR?(13): 2980
^GOTO2540 ~GOT02540
2990
2500 IFLL255THENPRINT"STRING TOO -.
~L -.LONG-LIMIT
- LII1IT 255":E5=I:GOT02700
= 1:GOTO2700
TR5=TR$+LP$
~NEXTJ:PRINT
-.NEXTJ:PRINT 2580 :FORJJ=J1TOLX+1
2070 IFKS>C0THEN2130 2590
M$ M$=MID$(TR$,JJ,1):KB=KB-(M$="B"):
, JJ,I ) : (M$ =" B") :
2080 K=Cl K=C1:PRINT:FORJ=C1TOG
: : =CI TOG
~KS=KS-(M$="S") -iKS=KS-(M$="S"):P=P-(M$="%")
=" )
2090 PRINT"BIT";(J-Cl)*(K-C1)+C1;: " ; Cl)+Cl ;:
2600
KC KC=KC-(M$=","):L1=L1-(M$="("):
" ) :Ll=Ll- (11$ =" ("):
~ -.PRINTTAB PRINTTAB(7) ;" --> > ";:PRINTTAB(12);
;
~Rl=Rl-(I1$=") ->R1=R1-{M$=") "))
2100 0 ::FORK=C1TOCF:PRINTRIGHT$(STR$(B%(CF FORK=CITOCF : 2610
NEXTJJ
~ -.*(J-C1)+K)) - Cl)+K)) ,1)) ;
2620
PRINT" II B II ";" S ";" % 1/;" ";" , II;" ";" ( "";
2110 ::NEXTK:PRINT" : " 0)AND(KB E1=(KB>0)AND(KBOP) : E2=(KS (KS>0) >0)AND(KS
2150 0 :FORM=I :FORM=1TOCA:PRINT"====";:NEXT
:NEXT
~ -.OP) ::E3=(KS>0)AND(KSOKC) E3=(KS>0)AND(KSOKC): :
2160 PRINT:PRINTTAB(II) PRINTTAB (11) "HIT ANY KEY FOR ~ -i
~E4= -iE4=(LK>Rl) (LI 0 -,HORE"
-.MORE" 2670
0 IFEI IFE1ORE2THENPRINT"* 0RE2THENPRINT "* USE % --(B% OR ~ i
2170 PRINTTAB(6) ) "'Q'" ' Q • TO QUIT AND RERUN -. ~
-.S%) ~S !!": !!":PRINT" USE NOOTHERB OTHER B, , S,
~OPTIONS"
-.OPTIONS"
-, -i %"% "
2180 GET A$ A5:IFA$=""GOTO2180 : IFA$=""GOT02180
2680
IFE3THENPRINT"* "* USE S%(N S%(N,#)FOR , I -i ~
2190 IFA$="Q"GOT02210
IFA$="Q"GOTO2210
■^2-DIM
~2 - ARRAY"
2200 ::NEXTN :REM // II END REC LOOP / I 2690
IFE4THENPRINT IFE4THENPRIMT"* "* ( ) DON'T ' T MATCH:
2210 PRINT"W'TAB(16) "fi++ "TAB(16) "OPTIONS"" :PRINT: -," V';L1;"LEFT,
; Ll ;" LEFT, ANO AND";Rl;"RIGHT"
"; "RIGHT "
2220 PRINT"1. "I. SAME SAI~E TR, , NEW NEI'I DATA -. ~
2700 IFEI IFE1ORE2ORE3ORE4ORE5THENPRINT:
0RE20RE30RE40RE5THENPRINT :
-.STARTING ~STARTING
AT REC";NR+C1
NR+Cl
-.PRINT"TYPE ~PRINT " TYPE 'RUN' ' ' TO FIX":STOP
2230 PRINT"2. . RERUN: : SAME TR AND DATA"
2710
PRINTTAB(5) "HIT ANY KEY TO -i ~
2240 PRINT"3.QUIT"
. -.CONTINUE"
~CONTINUE"
2250 GETD$:IFD$ GETDS:IFD$"3"GOTO2250 "3"GOT02250
2720
PRINTTAB(3)"OR 'STOP'' TO CORREC'l'I CORRECT/CH CH
2260 ONVAL(D$)GOTO2270,1880,2280
ONVAL(D$)GOT02270,1880,2280
-.ANGE" -,ANGE"
2270 N=NR+C1:GOTO1350 N=NR+Cl : GOTOI350
2730 PRINT:PRINTTAB(5) "THEN TYPE 'RUN' ' -i ~
2280 PRINT"W*SURE PRINT"+++SURE ?"
-. TO FIX" PIX "
2290 GETAS:IFA$="N"GOTO2210 GETA$ "N"GOT022 2740 PRINTtPRINT"{EDITING :PRINT " (EDITING AND RE-RUN - RUN i~
2300 IFA$="Y"THEN END: : REM /PROG IPROG END/ ENDI
-.WIPE ~ I'I OUT DATA)" "
2310 GOTO2290 GOT02290
2750 GETA$:IFA$=""THEN2750
: ""THEN2750
2320 REM === --- DATA=FOR SUBR.l . l =======
2760
RETURN
2330
: 2770
REM ============================
== ====== == 23404 0 DATA" OATA"NOT", "","+", "+ ", tI-n, "_", "*n "*",, n/nr "/ ","11, nn , 2780
REM EXAMPLE OF INPUT FOR ONE
V'AND" -, " ANO II
2790
REM LOGICAL RECORD WITH .IITH TEXT
2350 DATA"OR",">","=","END OF DATA
2460 IFPEEK(J)=142THENJZ=J:PRINT"FOUND -. ~
j
2920
REM
-.'RETURN1 ~' '
AT *** "";; JZ:GOT02475
: GOTO2475 2930 REM RE~l xxxx XXXX
2470 :NEXTJ
2940
REM
2475 IFJA=0ORJZ = 0THENPRINT"CAN'T FIND -. 2950 REM
2475 IFJA=00RJZ=0THENPRINT "CAN ' T FIND ~
~DECISIONS; SEE SUB I LISTI NG " :STOP
2480 :FORJJ=JA+IITOJZ : LL=PEEK(JJ)
2490 IFLL=58THENJ J=JJ+5 : LP$=CHR$(13):
2500 IFLL