May June 1980 - Commodore Computers

More documents

Recommendations

Info

64 COMPUTE. MAY/JUNE. I JUNE, 1980. 198O. ISSUE 4. use li a string siring comparison. When we're readyy to start a new nev\' line, we add this table to (o our main results table, array X$, in lines 200 to 220. To save sorting time, we merge these pre-sorted values into the main a table. . At this point, , our data has thee line number stuck on the end; ; this way, we're handling two values within a single array. Because thee merging g of the two tables mU must St start at the lOp top so that we can make roomm for the new items, thee items are handled in reverse alphabetic order. We print this to the screen so that youu can watch things working. AI At Basic speed, , this program can take quite a while to run; it's nice LO to confirm that thee compuler computer is doing something duringg this period. Final Output. We finish the job stanin startingg al at line 530. It's mostly a question n of breaking the stuck-together stuck-togethcr strings apart again and then checking to see sec if' ii we \..,IC need to stan start a new line. . Do your own thing. The size of array X$ delermines determines how large a program m you can handle. The given value of 500 is aboutt right for 16K machines; on 32KK youu can raise it LO to 1500 or so. lf If you're u ' squeezed for space, change array C to an intergcr interger array C C%. % . As you can see from the cross-reference listing, you'll need to change lines 100,140,150,160, 140, 150, 160, aand 310 - sec see how handy the 'he program is? .'* As mentioned memioned before, , run lime is slow. . A machine language program - or cven even a Basic program with h machine language inserts - would speed things up dramatically. 100 DIM A$(15) A${15),B$(3) , X$(500),C(255) , 110 PRINT"CROSS-REF JJIM BUTTERFIELD" " 120 Q$ =CHR$(34) :S$= " ": B$(l) =Q$: 120 Q$=CHR$(34):S$=" ":B$(1)=Q$: -,B$(3)=CHR$(58) 130 INPUT"VARIABLES OR LINES";Z$:C2=5: : ,IFASC(Z$)=76THENC2=6 -.IFASC{Z$)=76THENC2=6 140 FORJ=1TO255:C(J)=4:NEXTJ:FORJ=48TO57: 140 FORJ=l T0255:C(J)=4:NEXTJ:FORJ=48T057: ,C(J)=6:NEXTJ -.C(J)=6:NEXTJ 150 IFC2=5THENFORJ=65T090 IFC2=5THENFORJ=65TO90:C(J)=5:NEXTJ: ,FORJ=36T038:C(J)=7 -.FORJ=36TO38:C(J)=7:NEXTJ:C{40)=8 : NEXTJ:C(40)=8 160 C(34)=1:C( 143)=2 : C(131)=3 160 C(34)=1:C(143)=2:C(131)=3 170 INPUT"PROGRAM" PROGRA~' NAME";P$:OPENl,8,3,"0: NABE : OPEN1, 8 , 3 ,"0: -." + P$+",P,R" ...," +p$+ 11 ,F,R" 180 GET#l,A$,B$:IFASC(B$)O4THENCL0SEl: #1, , 4THENCLOSE1: ,STOP -.STOP 1901 IFB=0GOT0240 IFB=0GOTO240 200 PRINTL$; PRINTL5;:K=X:FORJ=BTO1STEP-1:PRINT" : : =BT01STEP-1:PRINT" " ; ,A$(J) ^A$(J);:X$=A$(J)+L$ ; $=A $(J)+L$ 210 IFX$(K)>=X$THENX$(K+J)=X$(K):K=K-1: 21 0 IFX$(K» =X$THENX$(K+J)=X$(K) :K=K-1: ,GOT0210 --GOTO210 220 X$(K+J)=X$:NEXTJ:X=X+B:PRINT:B=0 ) : : 230 REM: GET NEXT LINE, TEST END 2400 GET#1,A$,B$:IFLEN(A$)+LEN(B$)=0GOTO5 , , : A$)+LEN(B$)=0GOT0530 250 REB GET LINE NUMBER 250 REM GET LINE NUMBER 260 GET#l,A$ GET#1,A$:L=LEN(A$):IFL=1THENL=ASC(A$) : :IFL=lTHENL=ASC(A$) 270 GET#l, GET#1,A$:A=LEN(A$):IFA=lTHENA=ASC(A$) :IFA=lTHENA=ASC(A$) 280 C=C2:C1=-1:L=A*256+L:L$=STR$(L): $ : ,IFLEN( L$) C1GOTO380 :IFC9>C1GOT0380 320 K=0:IFB=0GOTO360 :IFB=0GOT0360 330 FORJ=lTOB:IFA$(J)=M$GOTO370 =M $GOT03 340 IFA$(J) IFAS(J)6THENC1=C9:GOTO4 ANDC9>6THENC1=C9:GOT0460 6 0 450 IFC2=5THENIFLEN(M$»20RC>0GOT0470 = 5THENIFLEN(M$) >2ORO0GOTO47 0 460 M$=t1$+A$ M$=M$+A$ 470 ONC9+1GOT0190 ONC9+1GOTO190,4 , 480,480,480:GOT0300 80:GOTO30 0 480 B$=B$(C9):C$="" '''' 490 GET#1,A$:IFA$=""GOTO190 ""GOT0190 500 IFA$=B$GOTO300 $GOT0300 510 IFA$=OQ$GOTO490 Q$GOT0490 520 A$=B$:B$=C$:C5=A$:GOTO490 : B$=C$ :C$=A$ : GOT0490 530 CLOSE1 CLOSEl:INPUT"PRINTER";Z$ : 540 C=3:Z=6:IFASC(Z?)=89THENC=4:Z=12 : Z=6:IFASC(ZS) =89THENC=4:Z=1 2 550 OPEN2,C:PRINT#2:PRINT#2,"CROSS , : PRINT#2 ,"CROSS '-i ,REFERENCE -■REFERENCE - PROGRAM ";P$ 560 X$="":FORJ=1TOX:A$=X$(J) FORJ=lTOX : =X$(J) 570 FORK=l FORK=1TOLEN(A$) :IFBID$(A$,K,l) :IFMID$(A$,K,1) 0 " " -. , ,"THENNEXTK -."THENNEXTK:STOP : 580 B$=LEFT$(A$,K-1 B$=LEFT${A$,K-1):C$=MID$(A$,K+1): ) ,K+1): -.IFX$=B$GOTO600 ,IFX$=B$GOT0600 590 PRINT#2:Y=0:X5=B$:PRINT#2,X$;LEFT$(S$/ : X$=B$ : , X$;LEFT$(S$, ,-.5-LEN(X$) 5-LEN(X$)) ) ; 600 Y=Y+1:IFY
MAY/JUNE. MAY/JUNE . 198O 1980 ISSUE ISSUE 44 COMPUTE. 65 65 softside software sOftside SO tware softside software Repeat The Computers Tune as it Grows Solo or MuKi-Player ^j W a. Great Graphics^ d A \ 7 txcrting Actton A -DRIVING ~DRIVING ACE- ~ it * *&2 * ^ANIA 2 ACTION PACKED PACMD VIDEO GAMES^ GAMES-n * C»*79 ""'9 ~ < ATTENTION! A'I=tENTION! ALLA 1,1, PET OWNERS ~ * I Softside Software. £ Softside Software'Nc~ £ presents ~ * ASSEMBLY SYSTEM II ~ iC * ~ Assembly System II is the most af1or- affor bled directly mto into memory lor tor easy lest- test iC dable and most comprehensive mne- ing and access via the built-in TIM "'- iC monic assembler package available monitor. Code can be executed via ::: iC for your PET personal computer or CBM both the SYS and USR calls. Operands are accepted in both decimal and hex professional computer. This package : ~~~~:t~~7~oc~r~~~~~ consists of two programs. ~~ The ~~g~~ Assembler ~~e~:\~~~~O~s~~~%~t~~hI~~ adecimal format. Assembly System II is is the most sophisticcrted sophisticated assembler compcrtible compatible with all 6502 programming iC available in Basic One program allows manuals and books. The Disassembler iC the input. input, editing. editing, saving. saving, recalling. recalling, and can unload from memory and directly iC listing of standard MOS machine lan- from tape or disk. A program does not iC guage programs. A user proof entry sys- have to be in memory for a complete iC tem makes mistakes almost impossible. disassembly to screen or printer. Now iC Relative branches are automcrtically automatically you can take a look at those machine iC computed by the program: program; minimizing language routines that have been hid- ~ user error. Fast and efficient. efficient, this one ing from view. Assembly System II is 't program does it it all. You do not have to available for disk or cassette (spec- '?' go PET/CBM through a 3 program process to to ify) based Commodore comiC * compile your code. All coding is assem- puters for an introductory price of $ iC AS;E .... LER>OO1 ?ooi FOR for 8K PETSSTIU..V PETsStill avail/cue .......... roR k>r $15.95 $t5.95 $25.95. (NEEDS t · ( AT LEAST 16K) • AUTOMATICALLY ANOTHER PET • MOS mos MNEMONICS mnemonics ~ J iC • COMPUTES BRANCHES PROGRAMMING • FULL full DISASSEMBLY disassembly * ~ • FASTEST ASSEMBLER BREAKTHROUGH. • HEX/DECIMAL hex/decimalOPERANOt operand! iC ~ 305 RIVERSIDE DRIVE, NEW YORK, NEW YORK 10025 * iC 305 RIVERSIDE DRIVE, NEW YORK, NEW YORK 10025 ~ iC*************************************** * * * *
Page 1 and 2:
MAY / JUNE 1980 ISSUE 4. $2.00 MAY/
Page 3 and 4:
ow you can add high resolution grap
Page 5 and 6:
MAY/JUNE, I NE. 1980. I960. ISSUE 4
Page 7 and 8:
MAY/JUNE. 1Q80.ISSUE I960. ll. 4 CO
Page 9 and 10:
MAY/JUNE, I JUNE. 1980. ISSUE 4. 4
Page 11 and 12:
Take the mystery lake the mystery o
Page 13 and 14:
MAY/JUNE. I 1980 198O ISSUE .d. &.
Page 15 and 16: MAY MAV/JUNE. I 1980 198O. ISSUE 4.
Page 17 and 18: ' nrnauui J Authorized Dealers APRI
Page 19 and 20: ■ ■ (:: Authorized Dealers •
Page 21 and 22: MAY/JUNE, I 1980, I960. ISSUE 4. CO
Page 23 and 24: MAY/JUNE. I 1980. ISSUE 4. COMPUTE.
Page 25 and 26: MAY/JUNE. 1980 198O ISSUE 4. 4 COMP
Page 27 and 28: THANKS FOR THANKS FOR THE MEMORIES.
Page 29 and 30: MAY/JUNE. I 1960. 198O. ISSUE 4. CO
Page 31 and 32: MAY/JUNE. . 198O. 1980. ISSUE 4. CO
Page 33 and 34: MAY/JUNE, . 1980. ISSUE 4. 4 COMPUT
Page 35 and 36: MAY/JUNE, MAV/JUNE. 1980 , ISSUE 4,
Page 37 and 38: MAY/JUNE. MAV/JUNE. 1980 198O. . IS
Page 39 and 40: MAY/JUNE. WAY/JUNE. 1980. I960. ISS
Page 41 and 42: MAY/JUNE. I lQBO 1980. ISSUE 44. CO
Page 43 and 44: MAY/JUNE, I JUNE. 1980. I960. ISSUE
Page 45 and 46: MAY/JUNE, 1980 ISSUE A COMPUTE. 43
Page 47 and 48: MAY/JUNE. J980 I960. . ISSUE 4. COM
Page 49 and 50: MAY/JUNE. I 1980. 198O. ISSUE 4. CO
Page 51 and 52: MAY/JUNE. , 1980 1960. ISSUE 4. A.
Page 53 and 54: MAY/JUNE. 1980. 198O. ISSUE d. 4. C
Page 55 and 56: MAY/JUNE. 1980 ISSUE 4 COMPUTE. 53
Page 57 and 58: MAY/JUNE. , 1980 198O. ISSUE 4. COM
Page 59 and 60: MAY/JUNE. 1980. 198O. ISSUE 4. 4 CO
Page 61 and 62: MAY/JUNE, MAY/JUNE. 1980 198O ISSUE
Page 63 and 64: , A rt\\>sALL ~\uS'ALL NEW from MIC
Page 65: MAY/JUNE, I 193O 1980. ISSUE 4. COM
Page 69 and 70: MAY/JUNE. MAY/JUNE, 19S0. 198O. ISS
Page 71 and 72: 'VlA MAY/JUNE. Y I 1980 198O ISSUE
Page 73 and 74: MAY/JUNE. MAY/JUNE, 1980. 198O. ISS
Page 75 and 76: MAY/JUNE. 1980 I960 ISSUE 4 COMPUTE
Page 77 and 78: MAY/JUNE. 1980. 198O. ISSUE A. COMP
Page 79 and 80: MAY/JUNE. I 198O. 1980. ISSUE 4. CO
Page 81 and 82: MAY/JUNE. 1980. 198O. IS$UE ISSUE 4
Page 83 and 84: MAY/JUNE. 1980 198O ISSUE 4 A. COMP
Page 85 and 86: MAY/JUNE. . 1980. 198O. ISSUE .SSUE
Page 87 and 88: MAY MAY/JUNE. I lQ8o. 198O. ISSUE 4
Page 89 and 90: MAY/JUNE, I JUNE. 1980 ISSUE 4, 4 C
Page 91 and 92: MAY/JUNE.1980 MAV/JUNE. 198O ISSUE.
Page 93 and 94: MAY/JUNE. I 1980. ISSUE a. 4. COMPU
Page 95 and 96: MAY/JUNE. I 1980. 198O. ISSUE A. 4.
Page 97 and 98: MAY/JUNE. 1980. 198O. ISSUE 4. COMP
Page 99 and 100: MAY/JUNE. . 19So. 198O. ISSUE 4. CO
Page 101 and 102: MAY/JUNE. I 1980 I960. . ISSUE 4. 4
Page 103 and 104: MAY/JUNE. I 1980. 198O. ISSUE 4. A.
Page 105 and 106: MAY/JUNE, I JUNE. 1980. 198O. ISSUE
Page 107 and 108: MAY/JUNE. I 1980. 198O ISSUE 4. COM
Page 109 and 110: Said the Toolkit to the Word Proces
Page 111 and 112: MAY/JUNE. I 1980. 198O. ISSUE 4, 4.
Page 113 and 114: MAY/JUNE. I 1980. ISSUE 4. COMPUTE.
Page 115 and 116: MAY/JUNE. MAY/JUNE, 1980. ISSUE 4.
Page 117 and 118:
MAY/JUNE, I JUNE. 1980. 198O. ISSUE
Page 119 and 120:
■ ■ ' MAY/JUNE, AY/JUNE. 1980 1
Page 121 and 122:
MAY/JUNE, I JUNE. 1980 198O. . ISSU
Page 123 and 124:
COMPUTE. COMPUTE. TM The Journal Fo
Page 125 and 126:
Dear MICRO-ED: Dear MICRO-ED: I wou
Page 127 and 128:
Look To MTU For 6502 System Expansi
show all

May June 1980 - Commodore Computers

You also want an ePaper? Increase the reach of your titles

Delete template?

Save as template?