The_Commodore_128_Subroutine_Library.pdf

220 FDR N1 '1 TO NU-N

A$=US*(N1

240 B$=USS(N1-1)

90 REM US«(N): ARRAY Wi FH I

100 REM

UO REM -

!00 NEXT ITEM

!10 FOR N-1 TO NU

230 A$=USS(N1)

240 BS=USS(N1

250 IF AS- BS THEN GOTO 280

260 USS (NU = B*

270 US* C Nl +1)-A$

2B0 NEXT Nl

290 NEXT N

300 FDR N"1 TD NU

310 PRINT USS(N)

320 NEXT N

330 RETURN

D.BUSCH 60 REM 5UBR0UTIN

G0TD~2

180

190

200

210

220

230

240

250

SORTED 260

MS 270

2B0

290

300

*' 310

32 0

330

FDR 1TEM=1 TO NU

PR1NT"ENTER *'

INPUT USS(ITEM)

NEXT ITEM

FOR N-1 TO NU

FOR N1=1 TO NU-N

AJ=USS(N1)

BS=USS(N1

IF AS- B*

USS (N1)

US* (N1-1)

NEXT N1

NEXT N

FOR N-1 TO NU

PRINT USS(N)

0 REM

>O REM

30 REM

10 REM

;o rem

50 REM

'0 REM

30 REM

100 REM

I tO REM

STRING SORT

340 REM ■•• PROGRAM STARTS HERE ■

♦• VARIABLES ••

NU: NUMBER OF I

USS(N>: ARRAY WITH

350 GOSUB 170

120 REM

130 NU'10

MO DIM USS

150 GOTO

RETURN

340 REM ••• PROGRAM STARTS HERE

ITEMS SORTED^

' WITH ITEMS J

160 REM

350 GDSUB 170

170 FOR IT

160 PRINT

190 INPUT

200 NEXT ITEM

210 FOR N=1 TO NU

220 FDR Nl =1 TO NU-N

230 AS=USS(N1)

240 BS = USS(N1»1 )

250 IF At- BS THEN GOTO 280

260 U5$ (N1 )-9S

270 USS (Nl *1 > =AS

280 NEXT Nl

290 NEXT N

300 FDR N =1 TO NU

310 PRINT US$(N)

320 NEXT N

330 RETURN

10 REM

20 REM

30 REM

10 REM

50 REM

REM

:. ; REM

;ze

*'■ ; ITEM

TEM)

US*

IG SORT

130 NU=10

140 DIM USS(NU)

150 GOTO 350

•• VARIABLES —

NU: NUMBER GF ITEMS SORTED

USJ(N>: ARRAY WITH ITEMS

160 REM SUBROUTINE

170 FOR ITEM-1 TO NU

180 PRINT' 'ENTER /"; ITEM

190 INPUT USS(ITEM)

200 NEXT ITEM

-1 TD NU

1-1 TQ NU-N

(N1 )

•1 )

THEN GOTO 280

INITIALIZE

U-1Q

DIM USS(NU)

GOTO 350

340 REM

PROGRAM STARTS HERE 160 REM SUBROUTINE

350 GOSUB

170 FDR ITEM=1 TO NU

180 PRINT''ENTER »'

190 INPUT USS(ITEM)

?00 NEXT HEM

210 FDR N»1 TD NU

220 FOR Nl -1 TD NU-N

230 AS*US$(N1 )

240 B$=USS(N1-1)

250 IF AS- BS THEN GOTO 280

260 USS (Nl )'B$

270 USS <N1•!)-A*

260 NEXT N1

290 NEXT N

300 FDR N-1 TD NU

310 PRINT USS(N)

320 NEXT N

330 RET

INO SGRT

130 NU

140 DIM U

150 GOTO 3

VARIABLES •-

; NUMBER DF ITEMS SORTED

U5S(N): ARRAY WITH ITEMS

160 REM

ROUTINE

OR [1

180 PRINT*

190 INPUT

200 NEXT I ft

210 FOR N=1

220 FOR N

230 A$=U

240 BS=U

250 IF AS

260 USS (N1)=B*

270 USB (N1+1)«A*

280 NEXT N1

290 NE<~ N - '

ITEM

110 REM

120 REM INITIAL

HEN GOTO 280

130 NU-10

140 DIM USStNU)

150 GOTO 350

ABantamComputerBook

BA NTA M

COMPUTER

BOOKS

340 REM

170 FDR ITEM-1 TO NU

180 PRINT''ENTER *' ITEM

350 GQSUB-170

THE

COMMODORE

128

SUBROUTINE

LIBRARY

Bantam Computer Books

Ask your bookseller for the books you have missed

THE AMIGADOS MANUAL

by Commodore-Amiga, Inc.

THE APPLE //c BOOK

by Bill O'Brien

THE ART OF DESKTOP PUBLISHING

by Tony Bove, Cheryl Rhodes, and Wes Thomas

ARTIFICIAL INTELLIGENCE ENTERS THE MARKETPLACE

by Larry R. Harris and Dwight B. Davis

THE BIG TIP BOOK FORTHE APPLE II SERIES

by Bert Kersey and Bill Sanders

THE COMMODORE 64 SURVIVAL MANUAL

by Winn L. Rosch

COMMODORE 128 PROGRAMMER'S REFERENCE GUIDE

by Commodore Business Machines, Inc.

THE COMMODORE 128 SUBROUTINE LIBRARY

by David D. Busch

THE COMPUTER AND THE BRAIN

by Scott Ladd/The Red Feather Press

EXPLORING ARTIFICIAL INTELLIGENCE ON YOUR APPLE II

by Tim Hartnell

EXPLORING ARTIFICIAL INTELLIGENCE ON YOUR COMMODORE 64

by Tim Hartnell

EXPLORING ARTIFICIAL INTELLIGENCE ON YOUR IBM PC

by Tim Hartnell

EXPLORING THE UNIX ENVIRONMENT

by The Waite Group / Irene Pasternack

FRAMEWORK FROM THE GROUND UP

by The Waite Group / Cynthia Spoor and Robert Warren

HOW TO GET THE MOST OUT OF COMPUSERVE, 2d EDITION

by Charles Bowen and David Peyton

HOW TO GET THE MOST OUT OF THE SOURCE

by Charles Bowen and David Peyton

THE IDEA BOOK FOR YOUR APPLE II

How to Put YourApple II to Work atHome

by Danny Goodman

THE MACINTOSH

by Bill O'Brien

MACINTOSH C PRIMER PLUS

by The Waite Group / Stephen W. Prata

THE NEWin A GUIDE TO IBM'S PCjr

by Winn L. Rosch

ORCHESTRATING SYMPHONY

by The Waite Group / Dan Shafer with Mary Johnson

PC-DOS/MS-DOS

User's Guide to the MostPopular Operating System forPersonal Computers

by Alan M. Boyd

'OWEI

POWER PAINTING: COMPUTER GRAPHICS ON THE MACINTOSH

by Verne Bauman and Ronald Kidd/illustrated by Gasper Vaccaro

SMARTER TELECOMMUNICATIONS

Hands-On Guide to On-Line Computer Services

by Charles Bowen and Stewart Schneider

SWING WITH JAZZ: LOTUS JAZZ ON THE MACINTOSH

by Datatech Publications Corp. / Michael McCarty

UNDERSTANDING EXPERT SYSTEMS

by The Waite Group /Mike Van Horn

USER'S GUIDE TO THE AT&T PC 6300 PERSONAL COMPUTER

by David B. Peatroy, Ricardo A. Anzaldua, H. A. Wohlwend, and Datatech

Publications Corp.

THE

COMMODORE

128

SUBROUTINE

LIBRARY

David D. Busch

BANTAM BOOKS

TORONTO • NEW YORK • LONDON • SYDNEY • AUCKLAND

Plik z chomika:

Inne pliki z tego folderu:

Inne foldery tego chomika: