MASSIMO

(continua a pagina /24)

1111111.

RODOLFIBY

cura di Tommaso Pantuso

primi sei giri armonici e per ottenere tuttigli altri basterà premere un tasto.Commenti

Questo programma sarà certamente ap-prezzato da chi sta imparando la chitarra enello stesso tempo si diletta con il compu-ter. Gli accordi selezionati si presentanocome quelli descritti sui manuali pratici,viene cioè visualizzata la prima parte del

'" GOT02200

DESIDERATO"

''''GOTOII10

PREMI UN TASTO

!!!!!!"!!!!!! .-:-~" ,

~I,rlllllllll~ !!!!J~".:..•••• l , I I I I l I l l I I;:~ ~~" >

~ .---;-:1",!!!!!!"

4 REM **********.*****5 REM .' ACCORDI PER •6 REM *- CHITARRA •7 REM •• *•••••••••••••8 K$="~M~.l"; 8$=" •••••••••• 1"9 cs=". I I I ì ì ì I ì I j" , 0$=" ••••••••••••••• 1"10 PRIt'H":1": POKE36879~ 25 PRINT"."12 PRINT":lI ACCORDI PER CHITARRA !!!"13 PRIIH"~ BY RODOLFI t1ASSI Mo:ohal" ,14 PRINT""l:r" "l!!!"15 PRINT":r" "l!!!:r" "l!!!"16 PRIIH"::l17 PRINT":lI18 PRINT"::l13 PRItH":;l20 PRIt~T"~21 PRIIH"::l22 PRINT"::l23 PRItH"::l24 PRlt~T""'~ !!!!!P""'~!!!!!!IJ"""2~ PRINT" "11III;;1 ~"

26 PRINT'PRINT'PRINT";l30 GETA$' I FA$= ,••,THEN3031 AA$="::lSCRIVI IL NU'lERO32 88$=":01LISTA ACCORDI DI33 X$=" ••+:a••••• -:o ••• Il 6:0 •••• 7U •• 1 ••7+0 •••• I. 7,...5+) .•••••••• -7:.. ••••• Il 5+'dI •• a. I. OIt'l.••.•.."34 Y$=" + :d1~ :016:111I17:917+).: •• 17/~+·Q1 ••• 1-7 Qal5+ ;(1.0 I1'1•••••• 1"35 M$:="OO)!lIaI<:ElIIa"lI :d.FR) •• r30L~."•• LA~•• 13I ~ •••••• IJ l R1 ARr'10NI CI U ••••••• ENO••40 PRINT"::l"50 PRINT"::l LISTA DELLE t~OTE60 PRINT"l::n'.MlOO"'GOSU8115a070 PRINT ••~tlllOO"TAB( 11 )"1$80 PRItH":ollOO"AA$140 INPUTZ145 IFZ(10RZ>9THEN140150 ONZGOT01000, 2000, 3131313.,4ea0, 5'21130,6000 7012108'211313,900900 PRINT":"):IAO' :ollOOO1"910 PRINT"SPERO DI ESSERTI STATO:OJJTILE'" END1000 PRINT"::l"; BB$; "00 :.lOll!l"GOSUBI10G01010 PRINT"_l" FORI~IT09 PRINTTAB(II)"DO" t~E){T GOSUBI020 GOTOI12\31020 PRINT"~~"TA8(13)·.,.$1100 PRItH"JllOD!l"AA$1110 HWUTZ1115 IFZ(10RZ>9THEt-lPRltH":'11117 GOSUBI00001118 RETURN1120 ONZGOTOI200,1250,1300,1350,14e0,14S0,1500,ISS0,160\31200 PRINTLEFT$(8$,7)"OO+",1210 PRINTRIGHTS(K$, 2); LEFT:f.(OS, S)" lQ."; RIGHTS(K$, 3) ".I2.d1•• :ot3.Q"" GOT019981250 PRINTLEFU(B$, 7) "00-",1260 PR I NTRI GHU (K$, 2) ; LEFT$ (0$, 4) " 1•••• :012 •••• ..,14 .•••• :•• 13•••• " GOTO19981300 PRItHLEFH(B$, 7) "006";131121PRINTRIGHTS(K$, 4).: LEFTS(OS, 8>" 1:"." i RIGHTs(K$, 3) "U2l!•••••. GOT019981350 PRINTLEFH(B$, 7) "007",1360 PRINTRIGHTS(K$", 4>.; LEFTS(O$, 8>" 1:•• "".; RIGHT$(K$, 3> ".t2':I!!.")!.I3) ••• ~ ••~I4" GOTO19981400 PRINTLEFT:f(SS,7)"007+";1418 PFH+l~.eH~~~, HJ·-2 •••• :uI3'1!••• 'l --€iOffil""99S1450 PRINTLEFT$(BS,7)"007/5+",1460 PRINTRIGHT$(K$, 4); LEFTS(O$, 11) "ln •• ", RIGHT$(K$, 3) ".I2Q""T1I"'"'t3"Tn"~I4" GOT019981~00 PRINTLEFTS(SS,7)"OO-7",1510 PRINTRIGHT$(K$, 2)., LEFTS(O$, 9) "B" ,RIGHT$(B$, 3) "4):1 •• ):l:iUQl):t!•• " .1520 PRINT")IOO";RIGHT$(O$, 5> "e"., RIGHT$(C$, 5) "11l.Q"" GOT0199815~0 PRINTLEFT$"(Bs-,7)"D05+",1560 PRIt-lTRIGHTs-(K$, 4); RIGHT$(O$", 9) "2:d1••UI1A.••• :..I3 .•••• " GOT019981600 PRINTLEFT$(B$,7) "DO OIM",1610 PRINTRIGHH(K$, 2), RIGHT$(D$, 9) "4 •••••••• I2:O••• ~.I3 •••• :•••• I1•••• " GOTOl9981998 GETZ$' IFZ$=" "THEtH9981999 GOT0402000 PRINT"::l",BB$,"RE "GOSUBI0S002010 PRINT"~"' FORI=l T018' PRlt-lTTAB" 11) "RE" t-lEXT:GOSlJe2~320 GOT022102020 PRItn"~I"TAB( 13»{$;Y$.2190 PRItHAA$2200 INPUT"!!!",Z2205 IFZ<IORZ>18THEt,PRItH'"2206 GOSUBI00002207 RETURN2210 IFZ>9THENZ=Z-9 GOT022302220 ONZGOT02300,2325,2350,2375,240e,2425,24S0,2475,2S0a2230 ONZGOT02525,2~~0,2575,26e0,2625,265e,2675,27e0,27252300 PRINTLEFT$(B$,7)"RE ~+",2305 PRINTR IGHT:$(t($, 2).; RIGHT$(O$., 11) "81·••• :•• I2):."~.II •• " ••• D!13).""" GOT01998232~ PRINTLEFT$(8:S, 7)"RE ~ -",2330 PRINTRI GHTS(K$, 4) , RI GHT$(0$ , 8) "3)" •• :1•• 11:•••••.• t2:..••• " GOTO199823~0 PRINTLEFT$(BS-,7)"RE ••6",23~5 PRINTRIGHT$(K$, 2), RIGHT$(O$, 4) "4·l!.••• :ll":.RIGHT:$(O$.' 5)" l.1!11"~.I3:l!!.":"'I2·l!"." GOT01998237~ PRINTLEFT$(B$, 7) "RE" 7";

Anche questo mese una rubrica benforni-ta: ben quattro programmi.

Con il primo avrete a disposizione unbuon numero di accordi per imparare a suo-nare la chitarra mentre con il secondo potre-te dilettarvi a giocare a bowling. li terzo èuna trascrizione per il Vic dell'adventure"La piramide di lunnuh" e l'ultimo vi aiute-rà a tenere in ordine il vostro archivio diprogrammi.

IAccordi per chitarradi Massimo Rodolfi - Bergamo

Mi chiamo Massimo Rodolfi e sono unappassionato lettore della vostra rivista. Viscrivo per inviarvi un programma per il Vic20 dotato di un'espansione di 8K (o 16K).

Non si tratta del solito videogame, ma diun utile ausilio per chi vuole imparare unbuon numero di accordi per chitarra che,come molti sanno, sono tantissimi ed èabbastanza difficile tenerli a mente tutti,specialmente quando si è alle prime armi.Per questo motivo mi sono dedicato allastesura di questo programma che consenteuna facile consultazione di ben 108 accor-di.

L'uso è molto semplice. Dopo il consue-to Run apparirà una schermata di presen-tazione che, se crea difficoltà, potrà esseretralasciata in fase di copia tura (linee da 12a 30). Premendo un tasto qualsiasi si passaal menu principale che comprende le settenote, i giri armonici e l'End che consente diuscire dal programma. Un esempio: volen-do ricercare l'accordo "La?" non si devefar altro che scegliere l'opzione "La" corri-spondente alla pressione del tasto contras-segnato dal numero "6" e premere Return.Compiuta tale operazione, comparirà sul-lo schermo un secondo menu contenente lalista di tutti gli accordi di "La" disponibilie quindi si potrà selezionare il "La?" pre-mendo il numero corrispondente, cioè il"13". Premendo ancora il Return verrà vi-sualizzato l'accordo selezionato.

Voglio specificare che l'accordo è visua-Iizzato cosi come lo vede chi imbraccia lachitarra e la piccola legenda specifica qualidita sono interessate e quali corde devonoessere premute per ottenerlo. Per tornare almenu principale basterà premere un tastoqualunque; scegliendo l'opzione 8 di talemenu si otterrà una schermata contenente i

MCmicrocomputer n. 39 - marzo 1985 123

81998

6425

PP

ltIT

LE

FT

S(8

$:,

7)"L

A"

7/5+

";64

313

PP

It~T

PIG

HT

$(K

$.2)

,R

IGH

T$(

O$,

13)

"B·'!

iOO

Il1I

!"."

lIlG

":O

l2U

"II"

,R

IGH

TS

(CS

..6)

".:-

1113

":G

OT

01998

6451

21P

PIt

HL

EF

T$r

B:t

·7)

"LA

"-7

••••

1".,

:GO

T04

510

6475

PR

It~T

LE

FT

$:(8

$..7

)"L

A"

5+1.

1",

'GO

T01

'560

6501

3P

PIt

-lT

LE

FT

$(B

$,7)

"LA

••O

It·l•

•I"

,'0

0T02

7313

6525

PR

IHT

LE

FT

$(8:

f.7)

"LA

+",

6530

PP

INT

RIG

HT

$(K

S.'

4),

RIG

HT

S(O

S,

6)"3

:".)

I.l2

l."."

UJ!

"."

.GO

T01

398

6550

PR

ltIT

LE

FT

$(8$

,7)

"LA

-"T

1",

:GO

T03

5313

6575

PR

It~T

LE

FT

$(B

$..7

)"L

A6

•••

I";

GO

T04

510

6601

3P

RIt

HL

EF

T$(

B$,

7)"L

A7

••••

I".,

GO

TO

G38

066

25P

PIN

TL

EF

T$(

B$.

7)"L

A7+

••••

I"·

GO

T06

405

6650

PR

It~T

LE

FT

$(8$

.,7)

••LA

7•...

.5+••

••I"

,G

OT

0643

e66

75P

RIt

ITL

EF

T$(

B$,

7)"L

A-7

11";

:OO

T02

355

6701

3P

RIt

~T

LE

FT

$(B

:L7)

"LA

5+••

I",

GO

T02

48a

6725

PR

INT

LE

FT

:f(B

$,7)

"LA

DIM

"..

OO

T01

610

7000

PR

lt~T

":.J

";88

S,

"SI

"GO

SU

B10

500

7121

10P

PIH

T"!

:Ul"

FO

RI=

lT01

8P

PIN

TT

AB

(11)

"SI"

:t~E

XT

:GO

SU

B20

2e'G

OT

0721

572

15IF

Z)9

TH

Et~

Z=

Z-9

'G

OT

0723

072

2'21

Otl

;:O

OT

073a

0..7

325,

7350

.737

5.74

~3e

,·74

25,

7451

2'·7

475,

7~00

-;"2

30O

t~:;

:nO

T07

5::5

>755

0,75

75,

760(

L76

25,

7650

,76

75,

77('1

1),7

725

7312

113PP

INT

LE

FT

$(B

S.

7)"S

I"+

",73

05P

PIt

ITR

IGH

T$(

K:t

:..2)

,PIG

HT

$(D

J;,

Il)

"B1'

~""

II"

;RIG

HT

$(K

$,8)

"•••

•rT

le,.I

2,.

••~I3

.,••

,.t4

"C

iOT

0199

873

25P

RIt

-IT

LE

FT

$(8:

t..7)

"SI

"-",

7330

.P

RIt

ITR

IOH

T$(

KS

,2)

,P

IGH

TS

(OS

,Il

)"B

l:."

II"

,RIG

HT

$(K

:t:,

8)"•

••.•

;R1G

HT

$(C

$,7)

"2••

•••

"':U

."·~

"13U

"":

GO

T01

99S

7358

PP

H~T

LE

FT

S(8

$,7)

"$1

••6"

,73

55P

PIt

HR

IGH

T:t

:(K

:t:.'

2),

PIO

HT

:f;(

O:t

:,7)

"B4:

l!"•

•ld

••:~

~••

)lt!•

••:~

".;R

IGH

TS

(OS

,5)

"U

ta."

1G

OT

0199

873

75P

PIt

HL

EF

T$(

B:t

:,7)

"SI"

n••

••I"

;'G

OT

0638

07~

:8~3

PP

INT

RIO

HT

:t(K

$,2)

,R

IGH

TS

«(1$

,7)

"8:l

1OO

1n••~

••:t

tdI•

•••

,;R

IGH

TS

(CS

,6)

".:-

1112

"1G

OT

0199

74en

JP

RH

~T

LE

FT

$(E

:$,

7)"S

I"7+

";74

05P

PIH

TR

IOH

T$(

K$

..2)

>R

IGH

T$(

OS

..12

)"8

1)••

•11

"jR

IGH

T;f

:(K

S,8

)"•

•••

rT1e

,.I3'

••I"

,74

1'11

PR

ltIT

"••

...•1

2.n.

,.I4"

OO

T01

998

7425

PR

INT

LE

FT

S(B

;f:.

7)"S

I"7/

5+••

••1"

.,:G

OT

0643

074

50P

RH

~T

LE

FT

$(B

S,

7)"S

I.-7

11";

GO

T02

355

7475

PR

IHT

LE

FT

$(B

:t,

7)"S

I"5H

.I".

;'G

OT

0248

075

00P

RIt

~T

LE

FT

:t(B

$,7)

"SI"

DIt

1"

;'G

OT

0161

075

25P

RIN

TL

EF

T$(

B$,

7)"5

1+••

••1"

,.G

OT

0730

'5_Z

55a.

PRTU

.1'L

EFT

...:t~

:.B$-

.'.+;

..!'S

-1__

••••

"j

CO

T073

3075

75P

RIt

~T

LE

FT

$(B

$,7)

"SI6

••••

1".'

.GO

T07

3~5

7600

PR

ItIT

LE

FT

:t(8

$,7)

"817

";76

(15

PR

INT

RIG

HT

;f:(

K$.

2),

PIG

HT

$(O

$,6)

"4"t

!•••

:.1I!

Id13

)1.•••

U••

ID!••

•·0

l2n

••"

GO

T01

998

7625

PR

ItIT

LE

FT

$(8S

,7)

"SI7

+••

••I"

.'0

0T07

405

765'

21P

RIt

nLE

FT

$:(8

$,7)

"517

/5+

",76

55P

RIN

TR

IGH

T$(

K$,

6),

PIO

HT

$(O

$,9)

"3:O

"U••

I1:"•

•0I

2:J.

1IIe

",76

70P

Rlt

-IT

RIG

HT

$':C

$.,9

'"•

••n.•

•"

GO

TO1

:.~98

7675

PP

INT

LE

FT

t"(8

:t..7

)"$

1-7"

,76

80P

PT

tHP

lmIT

$(K

$.2)

.PIG

HT

..f;'·

O$,

8)"B

l.II!

!.••

:.••l2

n"J!

IdI

•••

:1II

11!l

lllM

l""

'GO

T01

998

7700

PP

ItH

L.E

FT

S(8

:t.,

7)"$

15+

";R

IGH

TS

(8$,

6),

GO

T02

480

77::

5P

PIN

TL

EF

T$

o:8$

,7)

"SI

oI1

'1".

.G

OT

0273

e~:(

100

PR

ItIT

":J:

:~L

I:::

TA

GIR

IA

Pf1

0NIC

I80

10P

PIN

T"O

O=

OO

+::

LA

-.P

E-:

SO

L?:

"I."

80'2

0P

PT

NT

"PE

.=R

E••

.•:

SI

••-.

MT

••-:

::L

A1.

7.~"

8030

PR

It~T

"PE

=P

E+

:::

SI-

.1'

11-:

::L

A7~

D!.

"80

4121

PP

ItlT

"t1I

••-f

H••

+:

00-.

FA

-:::

SI

l.7)

D!.

"::

:050

PP

IIIT

"NI=

t'lI+

:00

#-.

FA

#-::

8I?:

8111

."80

60P

PIt

lT"F

A=

"FA

+::

:P

E-.

::;O

L-:

D07

'I!I!

.":3

0-;"

1)P

PIt

H"~

PP

EM

IP

EP

CO

llT

It-I

UA

RE

".:3

'080

GE

T2S

:T

F:!

$="

"TH

EI~

8030

8'2'

190

PF

'ItH

":.J

~L

I'~:T

AG

IPI

AR

MO

tUC

I81

00P

Ptt

IT"F

A#=

FA

#+:

MI

••-.

LA

••-:

:R

El.

7:1!

.":3

110

PP

ItlT

"SO

L=

SO

L+

:::

1'11

-.L

A-:

RE

7·,,1

1ll"

"81

2121

PP

INT

"LA

l.=

LA

••+

:F

A-.

SI

••-:

.':"1

1••

7"11

I."

~:1

313

PP

ItIT

"LA

=L

A+

:::F

A••

~.

.;T-=

t1I7l

tl!.

l.."

814(

tP

PIt

H"-

:;T

••=

SI

l.+:

::S

OL

-.00-:

::rA

7.•

•..•"

8151

ZfP

PIt

IT"'

:::;

I=S

I+::

:S

OL

tt-.

OOM-

:::F

A#?

"81

';0P

F'It

n";:

,~P

PE

t'lI

PE

PC

'OtI

TIt

lUA

RE

".31

-;"0

c.E

T2'

..rIF

Z$=

""T

HE

t~:;

:l-;

"11

81

::::

0f·

I)T

04

010

121(

113PP

TtIT

":1~

EiJ

EN

DA

"

36aa

3625

3651

336

7:5

~36

saO

3700

337

25()

4001

3Ò

4alO

()

4130

o42

003

4210

'D42

513

C42

6'21

~43

0043

1a:J

430:

:;(1

W43

60<D

441<

10

4410

344

50Ol

446a

N<1

500

O45

tlZ

t45

50<D

460l

JO:

J46

11.3

U1

5(1V

l050

10~P

l2ù

5t~O

r.;;

:'lìl

-1

PR

INT

LE

FT

S(B

'S.·

7)"L

A"

7+",

PR

INT

RIG

HT

$(K

:t,.

2'.R

IGH

T:t

:(D

:t,

l(l)

"B.ll

Ul:

d.)I

I!.•

••l!

tl!.•••

••I"

;R

IGH

TS

(C$,

6)".

:--1

3":

GO

TO

ot~Z

GO

T06

3e0·

6325

·63'

50',

6375

..64~

J~3.

6425

,64

50,

6475

,65

1210

'ot

IZG

OT

0652

5,65

'50,

6575

,660

0,66

25,

6650

·66

75,6

700,

672'

5P

PIt

~T

LE

FT

:to;.B

$,7'

)"L

Al.

+••

••1"

,G

OT

0421

0P

PIt

nLE

FT

'S(B

S,

7)"L

Al.

-••

••1"

...G

OT

0426

0P

PIt

HL

EF

T$(

B$.

,7)"

LA

1.61

1";

.GO

T04

5H'3

PP

INT

LE

FT

$(B

S,7

)"L

A1.

7",

PP

ItIT

RIO

HT

:t:(

KJ>

,2);

RIG

HT

'S(O

S,

Il)

"8:.0

01"'.

•••·

l!D

!••

•)I:

[l1.••

••I"

;R

IOH

T$(

CS

,6)

"."1

3":G

OT

019

3G

OI

622'

362

2563

00G

OI6

325

6350

6375

6381

398

6413

121

64'2

15

2(."

lrue

dapa

gina

/23)

23

80

PR

INT

RI

GH

Ts(

KS

.'2

).•

RIG

HT

$(O

$,

4)

••4

).•

••)1

";R

IGH

T$

<D

$.•5)

"ll

•••»••

t3~")

•••

r2J!

.""

T0

19

98

2400

PR

HnL

EF

T$(

BS

.•7)

"RE

~7+

";2

40

5P

RIN

TR

IQH

T$

(KS

.•2

);R

IGH

T$

<O

$,

12

)"B

IQ")

lQ"·

~""

..RIG

HT

:t:(

B::

t:.

3)

,,·II1

3·lI!

•••:0

I4:l•

••.•

TO

l998

24

25

PR

IHT

LE

FT

$(B

$.•

7)"

RE

11

7/5

+",

OO

T0

14

60

2450

PR

HH

LE

FT

$(B

S.•7

)"R

E11

-7"

.•00

T01

'510

2475

PR

ItH

LE

FU

(B$,

7)"R

E.5

+";

2430

PR

INT

RIG

HT

S(K

$.2)

;R

IGH

TSo.

:OS

.•Il

)''

l)(l

l")l

II3).

").t2)!

1."

Ut4

)••

•••

00T

0199

82:

5aa

PR

INT

LE

FT

S(B

$,7)

"RE

•O

IM";

·G

OT

Ol6

1a25

2'5

PRIN

TLEF

TS(B

S,7)

"RE+

";2

'=5

30

PR

INT

RIQ

HT

:f;(

K$

:.•

2);

RIG

HT

:S(O

S.•

6)

"2'G

":0I3

)l."

d1

••I1

""""

GO

T0

19

98

:25'

50PR

INTL

EFT:

f;(B

S.7)

"RE-

",2'

555

PR

INT

RIG

HT

:S(K

S.•2

);R

IGH

TS

(O::

t:.•8)

"1"

"":O

••I3

"'II

"'Q

1••

I2'd

1I11

"00T

0199

825

75PR

INTL

EFTS

(BS

..7)"

RE6"

;25

80P

RIN

TR

IGH

TS

(K$,

2);

RIG

HT

:S(O

'S,6

)"3

Q••

·0l4

l.•

••·Q

••l2

l••

·II0

0dU

:d."

GO

T01

938

26aa

PR

ItH

LE

FU

(B$,

7)"R

E7~

.I".

Go3

T02

33a

262~

PR

INT

LE

FT

S(B

$,7)

"RE

7+";

263a

PR

ItH

RIG

HU

(K$,

2);R

IGH

U(0

3$,8

)"B

Il.''

mJI

''mJI

''''

GO

TO1

998

26~0'

PR

INT

LE

FT

$(B

$,7)

"RE

7,..

..5+"

;:2

6~5

PR

INT

RIG

HT

S(K

S,

4);

RIO

HT

~(O

S,

Il)''

1:d

•••r

r...

...•12

)D.O

O••13

:d••

"G

OT

Ol?

:?8

267'

5P

RIN

TL

EF

TS

(BS

,7)"

RE

-7";

2680

'P

RIN

TR

IGH

TS

(KS

,2)

;R

IGH

T'S

(O$,

9)"

l).•

••·~.

•I1.

".•••

:OI2

:d••

"G

OT

0199

S27

0'0

PR

INT

LE

FT

$(B

$,7)

"RE

5H••

•I"

,G

OT

0248

027

25P

RH

HL

EF

TS

(BS

.,7)"

RE

OIM

";27

30P

RIN

TR

IGH

TS

(KS

.'2)

.;R

IGH

TS

(OS

,Il

)"2

:a"~

"11)

.""

GO

T01

998

300'

0'P

RIN

T":

:1";

BB

S;

"MI

":G

OS

UB

l0'S

0a3a

laP

RIN

T"~

"·F

o3R

I=lT

OI8

·PR

INT

TA

B(l

I)"M

I"·N

EX

TG

08U

B2a

2a·G

OT

0321

532

15IF

Z>

9TH

EN

Z=

Z-9

:GO

T03

23e

3220

'm

~Z

GO

T03

30'0

',33

2'5,

3350

.,33

75..34

00,

3425

.,34

50.

3475

.,35

0~Z

t32

30O

NZ

GO

T03

525,

3550

,357

5,3€

00',3

625,

3650

,367

5,37

eO,3

725

330'

0'P

RIN

TL

EF

TS

(BS

,7)

"MI

l.+

••••

1••,

GO

T02

305

3325

PR

INT

LE

FU

(B$,

7)"M

I.-

'TI"

,·G

OT

OI3

6a33

~0

PR

INT

LE

FT

S(B

$,7)

"MI

1.61

1",

'OO

T01

5.1e

tT.

.17'

5P

RlN

lLU

fs(.

t:eS

,7)"

t'1l

1.7

",33

Ba

PR

INT

RIG

HT

$(K

$,2)

;R

IGH

TH

o3$,

6)"4

U"U

"I2U

""l3

l.":l

l".R

IGH

U(0

3$,

5)"

Il••

•..

GO

TO

1998

34aa

PR

INT

LE

FU

(B$,

7)"M

I.7+

",34

a:5

PR

ItH

RIG

HU

(K$,

2);

RIG

HU

(O$,

B)

"B3l

•••

U'

••m

JI••

.•••

•••

II:•

•••

"•G

OT

Ol9

9834

2~P

RIN

TL

EF

TS

(BS

,7)"

MI

1.7/

5+",

3430

PR

INT

RIG

HT

S(K

:t:,

2);

RIG

HT

S(O

'S,

9)"3

:~""

:'''

••I2

)l1•

•:eI''•

•I4

·d'':

J.l''

;R

IGH

T'S

(O$,

7)"l

n••

".1

30T

Ol9

9834

50'

PR

INT

LE

FT

$(B

$,7)

"1'1

l1.

-7",

3455

PR

INT

RIG

HU

(K$.

2);

RIG

HU

(O$.

9)"3

:0>

1••:••

I2:••

••••

••·••

••·.J

".:R

IGH

U(O

~.

5)"

1·••

••"

.Go3

To3

I998

3475

PR

INT

LE

FT

:$(B

$,7)

"MI

l.5H

•••

I";

.GO

T02

480

3500

PR

INT

LE

FT

S(B

S,

7)"M

Il.

OIt

'11.

1",

:GO

T01

610

352:

5P

RIN

TL

EF

T$(

BS

,7)"

1'1I

+";

3530

PR

It~T

RIG

HT

S(K

S,

6);

RIO

HT

S(O

S,

3)"

ln.:O

I3""

:J"~

n••

":O

OT

0199

335

50P

RIN

TL

EF

T$(

8$,7

)"M

I-";

3:55

:5P

RH

HR

IGH

U(K

$,8)

;R

IGH

T$(

O$,

6)"3

.•••

•UI2

:•••

•"

.GO

TO

l998

.3~7~

PR

INT

LE

FT

S(B

S,

7)"M

I6••

•I"

;'G

OT

0151

121

PR

INT

LE

FT

S(B

S,

7)"f

1I7)

OO

";'G

OT

0235

5P

RIN

TL

EF

T$(

B$,

7)"~

1I7+

:~O

O";'O

OT

0156

eP

RIN

TL

EF

TS

(8$,

7)"M

I7/5

+1.

I";

'GO

T01

560

PR

INT

LE

FU

(B$,

7)"M

I-7"

;P

RH

HR

IGH

T$(

KS

,10

);R

IGH

TS

(OS

,7)

"2)1

1••

":i

30T

0199

8P

RIt

~T

LE

FT

:f(B

$,7)

"t1I

5+";

GO

T01

56e

PR

INT

LE

FT

:r(B

=l',

7)"M

IO

It1•

•I"

,'G

OT

0161

0P

PIN

T":

)",

BB

S,

"FA

ltll

l~"

GO

SU

B11

000

PR

IHT

":=

IlII

llD

!'OO

"F

OR

I=l

T09

·P

PIt

ITT

AB

(Il

)"F

A":

t~E

XT

'GO

SU

B10

20:

GO

T04

130

OtC

GO

T04

200,

4250

,43

00,

4351

3.44

el~L

4450

,45

00,

4551

3,46

1313

PR

INT

LE

FT

$(B

S,7

)"F

A+

";P

RIt

HR

IGH

T't(

K$:

,2>

,R

IGH

T~',O

S.

8)"

1).•

••:"

1IU

)1I••01

2••

••)•

•I3·

Q1••

"G

OT

0199

8P

F'H

HL

EF

TS

(8S

,7)

"FA

·-";

PP

lt-n

PIG

HT

~,K

$,2)

.RIG

HT

$(O

$,9)

"81:

~""

)1"

.•••

·~.•

•"t

!"••

13)"

."O

OT

0199

3P

PIt

~T

LE

FT

$'B

1=,7

'"F

A6.

1".

GO

T02

6S0

PP

It~T

PIO

HT

$fI<

$,2)

,R

IGH

TS

l0$

,8)"

1"t!••

•·l

I.l1

·lI.•••

:QI2

)!11•

•"

GO

T01

998

PP

IHT

LE

FT

S(8

~,7

)"F

A7"

;P

PIt

-HP

IGH

T${

I<"'

$,2)

.PIG

HT

$'O

:f,:

3)"B

1.!I.•

••).

•U:e.••

•:o

l'2n

••G

••un

••":G

OT

O199

8P

PIN

TL

EF

T.t(

BS

,7)

"FA

7+"

,P

RIt

~T

PIG

HT

S(.

$,4)

.RIG

HT

$(Q

S.

9)"

1~.,,

'l!J"

I2)"

"f!J

Il3'

l!."

"O

OT

0199

8P

Rlt

-.lT

LE

FT

.tr8$

,7)

"FA

-;",

'5+

",P

RIt

~T

f:'IG

HT

$~I<

"$,2'

.RIC

,HT

:f(O

J;·1

2)"8

jl!

J.")

"13:

1!II

".~1I

12Q

1••

.m1l

••""

GO

T01

393

PP

ItlT

LE

FT

$(8:

f,7)

"FA

-7"·

PP

ItlT

PIG

HT

$:'

•.$,

2">

,RIC

.HT

.r,0

1>.1

0)"8

1•.

•••·

~II

I.11

.·It

!l'.1

I••

)ld

••"

GO

T01

998

PP

It~T

LE

FT

J;l

8"&

,7)

"FA

5H.I

",G

OT

0248

eP

RIt

HL

EF

T.r

(S:f

,7'

"FA

DIt

1".

00T

0273

eP

RIN

TR

IGH

T..&

(f"S

,2)

.RIG

HT

$(O

S,

Il,)

"2!1

.":,,

1~1I

I"11

·1II

.1e"G

OT

0199

8P

PIN

T":

.J".

BB

..r."

SO

L"

GO

SU

8105

0aP

RIt

~T

"::i

l!l"

FO

Pl=

1TO

l:3

PP

ItH

TA

8"t1

'''S

OL

''t~

E~<

TP

PIH

T".

:r~I~

l"T

AB

{14)

>':$

.'r'~

,"I

l"O

liS

IIB

2190

GO

T05

215

PR

ItIT

"II"

AF

I$It

lPU

T"!

!"Z

~ I\)

.j:>.

che non è affatto semplice realizzare unostrike. Quando si realizza uno spare (diecipunti con due tiri) o uno strike il punteggioviene aggiornato, com'è noto, dipendente-mente dai punti totalizzati con i successivitiri. Il gioco è reso più piacevole dalla pre-senza del rumore che simula quello dei bi-rilli colpiti dalla boccia .

IPiramide di Iunnuhdi Michele Morini - Monza (MI)

Sul programma non c'è molto da dire senon che esso è la traduzione fedele dell'ad-venture "Piramide di lunnuh" realizzatoda Aristide Torrelli e apparso su MC n. 33.Tuttavia qualche riga ve la scrivo lo stesso,in quanto ho voluto correggere quelle chemi sono parse delle imperfezioni (o miapignoleria?).

Le modalità di comunicazione e dialogocol computer sono rimaste immutate percui rimando all'articolo citato per ulteriorichiarimenti.

Questa traduzione, o trascrizione, girasu un Vic espanso con un minimo di 8KRAM e, contrariamente a quanto accadesul Texas, rimangono liberi circa 1600 byteper aggiunte di comandi, luoghi, scherma-te, suoni, ecc. Il tutto è ovviamente tra-sporta bile su C 64 senza modifiche, se e-scludiamo quella relativa alla Poke per set-tare il colore del video.

Ma veniamo alle modifiche: sono statiaggiunti due comandi, HELP e AIUTOche, contrariamente a quanto può sembra-re, ottengono effetti diversi. Il primo forni-sce l'elenco delle abbreviazioni dei coman-di impartibili al computer e AIUTO ... nonve lo dico.

Se si vogliono aggiungere dei nuovi co-mandi non sorgono eccessivi problemi inquanto il programma è ben strutturato: èsufficiente cambiare il valore della variabi-le NV (in testa al programma), aggiungerein coda ai data in linea 535 le abbreviazionidei nuovi comandi e in riga 55 porre ilnumero di linea delle routine che li eseguo-no.

Le altre modifiche riguardano la routineche esegue i comandi POSA, LASCIA,DAI: nella versione originaria essi nonfunzionavano per alcuni oggetti se non indeterminati luoghi. Adesso tutti gli oggettiricevono democraticamente lo stesso trat-tamento. Sono stati poi cambiati i nomi dialcune variabili poiché il Vic accetta identi-fica tori di due caratteri significativi e lavariabile ST è riservata al S.O.; altri cam-biamenti sono dovuti alla traduzione degliiL then ... else ed all'eliminazione dei datausati per definire le minuscole. Infine unanota per le famigerate "abbreviazioni" de-gli statement CBM: in questo programmaci sono linee che richiedono il loro uso, inparticolare la linea 266 è zeppa come unuovo e abbreviata contiene 88 caratteri.

CommentiIl programma proposto dal nostro ami-

co rispecchia fedelmente le regole del giocovero (la dinamica della caduta dei birilli èinvece un po' diversa!) ed il punteggio vie-ne calcolato in base ad esse. Giocando inpiù di una persona compaiono delle pistein diversi colori, a seconda di chi sta tiran-do; i birilli sono visti in pianta in fondo allapista, cioè vengono visualizzati come dellepalline sistemate a triangolo. Dall'altraparte vedremo un'altra pallina che spazi atrasversalmente (cioè nel verso della lar-ghezza) da una parte all'altra della pista eper lanciare questa pallina - che rappre-senta la boccia - contro i birilli, bisognapremere un tasto al momento opportuno,cioè quando essa è il più possibile in prossi-mità del centro della pista: vi assicuriamo

IBowlingdi Giorgio Matelerkamp - VareseSono un ragazzo di 15 anni e vi invio un

programma che penso possa interessarvi:si tratta del gioco del bowling ed è scrittoper un Vic 20 in configurazione base.

Dato il Run, appare una schermata ini-ziale che chiede in quanti si vuoi giocare edopo aver digitato il numero di giocatoriviene chiesto di inserire il nome di ognuno:a questo punto comincia il gioco vero epropno.

Sulla parte superiore dello schermo so-no indicate le varie giocate, dieci in tutto,suddivise, come indicato nella riga imme-diatamente successiva, in due lanci ciascu-na. Se al primo tiro si fa centro e si buttanogiù tutti i birilli (facendo cosÌ strike), sipassa al tiro della giocata successiva (se sigioca da soli), oppure la "mano" passa adun altro giocatore (se si gioca in più diuno). Giocando, comunque, tutto risulteràmolto semplice.

Sotto i numeri delle giocate verrà indica-to il punteggio dei singoli lanci e per tiraresi può utilizzare qualsiasi tasto. Quando siarriva all'ultimo lancio viene concesso unbonus di un tiro se nella giocata precedentesono stati totalizzati dieci punti (cioè sonostati abbattuti tutti i birilli) oppure di duetiri se è stato realizzato uno strike.

"N"Nal:J<"ooI-

WZ

"N'.Dol-o,~

ol-oo

o>"'".,

•':l~=•':l"r.".••~••I-IoCL

o>".,".,ol-oo

••I-IoCL

i•i~_: (,..I~.".o00>•.•..I-l,J)if)O(')

e' o•• I-U ~o

~;~,~, I I,J)-.J.J,LOO

())(/'J

',jr....-"\-.1'. l'_••':';:1pt~

"UD•• vv- ....II-I-:::"lL.LL-UJUJ::t:: •.. L..J-1-1-=zz.:t::JXu:..::.a..a..

w O~ J<l: O WJ Z ~J " ~Z - <l:<l: r all l l

fl) ~ al

r +W .J~

I~~5 rl'rl'

O ~W Or u

~I IN ,

I-:0:: I-UJ )(

z~

W •....•H

1- •..•1-1-zoz=_1-_>-1Ct::1!'u..Ci:..ll. •..•c...G.

""ì •..• (Ti ~"IC. Ci:.. c' C·I- ':' I- I--IJ.-Il l'I·-1- •.....•...•ù..:v:L1.li..OlJ.JC' où..ZLLl.1.

.-=~ .;-'~~=

o>".,,,",C·l-o,~

••'o,t

••IJ.I-Z

~!::

....

l'~

"••IJ.

Il~

I

Il. ,:;.f'- CIor ".lì' li1

c ,:::;:,C, 1(' ': ,:;. ,::s;:, CI ~-, ':' c' ,:::;:,.::;,~•...•fj t'I ~r .,. ~~; ,[) r-. r. (I;i C, .•..•':' ,::;:,':::' ':' (:, 's' 1:;' '::s;:, C, CI c' ,:;: ~-, li~' ':::' il"!::: ':. '!' ,=, ~ CI o a c:'CI Cl r:i::' •...••..•....••..•..• __ ...•...•...•...•.....•....•.....•....•...•

----------- softwaremanico della chitarra rivoltato; in altre pa-role le corde indicate, dall'alto verso il bas-so, sono le seguenti: Mi (cantino), Si, Sol,Re, La, Mi (basso). Le corde da premerenelle esatte posizioni sono evidenziate daun pallino nero con accanto un numeroindicante il dito interessato ed il barrè èindicato da una B, posta in alto sulla filache va premuta. Il programma si presentamolto bene, semplice da usare, elegante econtrollando un buon numero degli accor-di descritti non abbiamo riscontrato errori.Per com'è scritto esso gira anche sul C64sul quale bisogna però modificare l'outputsullo schermo e la poke della linea lO checambia il colore del fondo .

MCmicrocomputer n. 39 - marzo 1985 125

l I • '. • 1 ••l I l l 1 1. 1 1. 1. 1

Bowllng

10 POKE36378. 15 L( 1)=7747 L(2)=7791 L(",3):=7835 C$:( 1 )="~nml:I!!OO:l!!U:MQ ••••• I"11 CS(2)=C$( 1 )+ .., •••••••••• 1" C$•..3)=C$( 1)+"~" CS=C$( 1)12 3C=36879 CO=30720,V1=36876 8C(1)=152 8C(2)=10 SC(3)=12620' POKESC ..2730 PRIt~T":'l::"C$"~ECiWLIt4GI Il

40' PRINT")lJIf!MI'!@1113 PRINT":-l3'1 0.t'1. 30FT <C)1984"111 PRINT" _112 PR ItlT")!1olJ!tJOOJUANTI GIOCATORI (1-3)113 GETAS"A=VAL(AS) IFA(10RA>3THEN113118 PRIt~T":'IQ3CRI'·/ETE IL VOSTRO NO-"Q1E "'1'1A~<. :l5~ CARATTERI)"12121 FORX=lTOA121 PRIHT""!OCiIOCAT. "X":",122 It~PUTA$(X)123 A:t(X)=LEFT$(AS(X);5)'NEXT128 PPHlT":T1:Cl :2 3 4 5 6 ;" 8 9 10 ~ "; FOR}<:""lT010 PRINT";U!!2...· t~EXT:PRINT •• :!iI3I!!l1t1

CommentiDobbiamo cercare una piramide nel de-

serto, penetrarvi, trovare i tesori nascosti eportarli via! Naturalmente noi staremo co-modamente seduti davanti alla tastiera e alTv ad essa collegato ed il computer sarà inostri occhi e i nostri orecchi. Dovremo, inbase alle informazioni forniteci dalla mac-china sul teleschermo, impartire delle ade-guate istruzioni che ci aiutino ad esplorarel'ambiente circostante e a superare tutte ledifficoltà che si presentano. I luoghi acces-sibili sono 24 ed i vocaboli riconosciuti dalcomputer, tra verbi e sostantivi, sono circasettanta. I comandi vengono impartiti scri-vendo un verbo seguito da un articolo opreposizione di due lettere e da un sostanti-vo, ad esempio "prendi la torcia". Alcunicomandi possono essere forniti in formaabbreviata (l'elenco è ottenibile conHELP) mentre altri possono essere impar-titi in maniera diretta, cioè non nel conte-sto di una frase. Ad esempio ''l'' rendel'inventario degli oggetti raccolti durante ilpercorso, "ARRENDO" dichiara la resadel giocatore che non riesce a trovare lasoluzione ed altri come "GUARDA" e"PUNTEGGIO". Le parole che la mac-china è in grado di recepire sono le seguen-ti:

torcia, chiave, trave, scritta, porta, flau-to, teschio, collana, scheletro, altare, ben-da, scure, batteria, droga, cobra, zaffiro,spada, vaso, sarcofago, maschera, mum-mia, sabbia, stanza, geroglifici, sala, corri-doio, cunicolo, scala, nord, sud, est, ovest,n, s, e, o, su, giù, sopra, sotto, punteggio,arrendo, inventario, i, guarda, vai, corri,cammina, esamina, prendi, piglia, posa, la-scia, dai, apri, ., suona, leggi, ondeggia,mangia, bevi, chiudi, rompi, sfonda, ac-cendi, spegni, salta_

Il listato di questo programma per mag-giore chiarezza viene riportato in caratterimaiuscoli e minuscoli per evitare i caratterigrafici poco comprensibili al posto dellemaiuscole. Le linee da 2 a 7 producono unaschermata di presentazione che, anche se dinon difficile interpretazione, può anche es-sere omessa.

Per digitare il programma conviene por-re il computer in modo "maiuscolo/ minu-scolo" premendo i tasti Shift e Commodo-re.

ILista programmidi Dino Ticli - Lecco (eO)

Lista programmi è una utility per ordi-nare il proprio software ed ottenerne l'e-lenco su carta o su schermo. Ciò permettedi tenere sempre sott'occhio i programmiposseduti insieme ad altre informazioni u-tili quali, ad esempio, una breve descrizio-ne sul funzionamento, l'espansione neces-saria, il linguaggio usato, la collocazione,ecc. Vediamo rapidamente il funziona-mento.

..........

TOM:

132 PRINT":: ---------~.o1 ----------''''ON-(A=I)GOTOI38134 PRIHT")I,r-l---------" ON-(,R=2.H)OT0138136 PRItH":.'rl---------138 PR ItHLEFH (CS, I Il +AS (Il "146 IFA>l THEHPRINTTAB< 10)+",n"+AS(2)" .150 IFA>2THENPRINTAS(3)" "154 PRItHLEFH(CS, Il) "mc~---------O[lIImIoI""lo1"---------_'I"160 FORQ=I T010166 FORZ9=ITOA,POKESC,SC(Z9)167 FOR><=1T010 REAOV POKE'v' , 81 :POKE'· .••+CO,6 NEXT RESTORE169 .J=0 0=0170 GOSUB430 GOSUB556,P=L<Z9):GOSU81000:L(Z9)=P172 GOSUB1200174 ON-':L(Z9)/2=INT(L(Z9)/2) )GOT0169175 IF(PEEK(L(29)-1 )=47At~OQ=la)=0THEN195178 PRINTLEFTS(Ct:, 11 )+":.m~moo"+AS(Z9)+", FAI ti

179 PRINT"ANCORA l TIRO"1 :200 FORX= 1T030~310 : t-.lE>::T182 PRItHLEFT$(Ct:, 11 )+":oot!~"+"183 PRINT"184 FORX=l TOU3' REAO'v" POKEV, 81' POKEV+CO, 6 <t~EXT RESTORE1~0 J=0 GOSU8430 GOSUB550'T(Z9)=T(Z9)+J PRINTCS(Z9);T(Z9)192 K=3+48'IFJ+PEEK(L(Z9)-1)-224==10THENK=47193 IFK=58THENK=152194 POKEL(Z9),K,POKEL(ZS)+CO,4:GOT0225195 U=0· I F(PEEK(L (29) -2) == 152A~~OQ=le) =0THEN22~198 PRINTLEFT$(CS, 11 )+")1'11!Il!llIl!OOI!1"+A$(29)+". FAI"199 PRINT"ANCORA 2. TIRI"202 FORX=lT03000:NEXT203 PRINTLEFTS(CS, Il )+":.II!nMmOO"+"205 PRINT"206 L(Z9)=L(Z9)-1207 FORX=lT010'REAOY·POKEV,81:POKEY+CO,6·NEXT:RESTORE209 J=0:GOSUB430'GOSUB550'T(Z9)=T(Z9)+J PRINTC$(Z9);T(29)210 K=J+176 IFK=186THENK=152211 POKEL(Z9),K POKEL(Z9)+CO,4 L(Z9)=L(Z9)+1213 IFPEEK(L(Z9)-I)=152THENFORX=ITOI0-REAOV-POKEV,81'POKEV+CO,6 NEXT'RESTORE214 U=U+l'ONUGOT0209,22522~ NEXTZ9:NEXTQ230 GOT0882430 ~~=8123 1=22

- 44~' f>OR~;~,T~=R+t, I1'N<7Si1>M~t<)-8-124THE':tH;;-1460 POKEN+30720, 0-(PEEK(SC)=10) 'POKEN, 81' OETAS m~-(AS="" )GOT0440' RETUR~~550 N=t~+ 1 . GETA$~S4 IFPEEK(N)<>8ITHEN59S5S8 Q2=N-GOSUB610~60 POKEVI,I~0'POKEN-I,32 POKEN+CO,0-(PEEK(SC)=10) 'POKEN,81 'POKEVI,0S62 FORW=IT03~66 IFPEEK(N-21*W)=81 THENQ2=N-21~l,.l: GOSUB61121569 l FPEEK (N+23.W:;' =81 THEt-.lQ2=N+23*~<l : GOSUB610~7'2 t-.lEXT~95 H=H+l-POKEVI.150 POKEN-I,32'POKEN+CO,0-(PEEK(SC)=10) POKEN,81-POKEVI,0597 IFH= 18THE~~6 12.600 FORSS~ lTOS0 t~EXT GOTOS50610 J=J+I POKEVI,210-POKEQ2,32 FORK.IT050-NEXT'POKEVI,0'FORK~IT040 ~~EXT'RETURN612 H=0 POKEN,32 POKEN-I,32 RETURN882 PRItHCs; "m"OO>!1FINAL SCORES)ll1:"883 PRIt4T" •••••• "AS( I). T< I) -IFA>lTHE'~PRINT ".IO".'''AS(2); T(2)884 IFA=3THE~~PR 1NT" o•••••";AS (3) ,T< 3)887 PRItH"U •• f\NCORA (S/N)?"894 GETAs, IFAS~" "THEN 894895 IFAs="S"THENRUN896 PRINT":')"'POKE36879,27'ENO1000 G=J IFP/2<>INT<P/2>THENG=G+1761002 IFG=186THENG=1~21004 IFP/2=INT(P,";;:)THENO=G+48101216 I FG+PEEK (P-l) -224= 10THEt<lG=471012 POKEP,G POKEP+CO,4 IFG=152THENP=P+l 0=:001100 P=P+l:RETURN1200 REM1201 T(Z~)=T(Z9)+J1205 T(Z9)=TeZ9)-J*<PEEK(L(29)-2)=47)121121T(Z9)=T(Z9)-10*(PEEK(L<Z9)-3)=47A~~OPEEK(L(Z9)-2)=1~2)1220 IFL(Z9)=77460RLe29)=77900RL<Z9)=7834THEN12ge122~ T(Z9)=T(29)-J+.(PEEKeL(Z9)-4)=152)1227 T(29)=T(29)-J+.(PEEKeL(29)-3)=152)1228 T(Z9)=T(Z9)-J*«PEEK(L(Z9)-~)=1~2ANOPEEK<L(Z9)-3)=152»1230 T(Z9)=T(Z9)-J*(PEEK(L(Z9)-6)=152ANOPEEK(L(Z9)-4)=1~2ANOPEEK(L(Z9)-2)~152)1290 PRINTCS(Z9);T(Z9)1300 RETURN2200 DATA8007, 8028.8049,812151,807'121,812172,8093.< 809~ ..6116, 8139

126 MCmicrocomputer n_39 - marzo 1985

70(1

Pira

mid

edi

lunn

uh

as i r: CD

90t

(con

tinua

apa

gina

118)

fnç.

()·1

then

Pri

nt"n

onsc

herz

.aor

e"90

to40

fob(

1)<

>-1

t.he

nPt'"

lnt."

""cc

endo

co::

·":"

90to

40f

tf'

t.he

npt'"

.it'"

,t"

e'"

9la.

'a,

eces

a"90

t,04

0ri

nt"o

K."

t-P

=l

:90t

o31

fno<

>lt

henP

rint

"sF

'iega

t~l

me9

11o"

90tc

A~3

fob"

:1

)(>

-1th

enpt

'"'in

t"n

onpo

sso"

90t-

040

ftP

=13

t."'

,enP

rlnt

"e'"

91';'

,'"=

Pen

t-~.,,

"90

to·h

)rl

nt."

oK."

t.p=

O90

t040

ifeP

<>

20t·

het'"

,Pt'"

·int

:"H

t-I'?e

t"go

to4~

:ti

fcP

=20

"'.n

deob

(3)(

>-1

t.he

nPt'"

intd

$S

lc,t-0

100

Pr·

it'"

,t"N

onf.

;,o'

:cci

c'f.

;o.t

ie"'

.P

et'"

nld

la.

l"9o

t:-:

,40

t'"'€

'sto

ref'$(

1)=

"nel

dese

t'"to

"'p

$(2)

=p$

~1)

p$(3

)=p$

(1~'

p$'4

)=p:

!:o:

'1}

p$(5

)="n

el.jes

E't'

"to

dift

'"on

tea

un""

F'lt'"

;'.ri

llde

"p$

(6)=

"t'"

lell

"an

t.lc

ar"e

t-a

del

l.;..

plt

'"a[

illd

edI

Iunn

uh"

ft$=

"nel

mut

'"o

c-'e

-'in

'=.a

o.st

c.n

.••.to

uno

za,f

fit'"

o"p.

;t;(

7)::

:"in

un~

st.a

nza.

tt'"

i",n

901"

,t'"

e"P

1"(:

3)=

"ln

un"

:=30

.1."

,bI.

aonc

Oo

"+ft

$

422

424

42

74

30

433

436

439

222

6l

fno

=4c

,,-no

=50

rno=

90t-

·t'"

,o=

100t

-nc.

=15

,:.t'"t'"

,0=

19th

enP

rint

"non

esse

t'"'e

sel

occo

"go

t~o4

1322

9if

no:>

20th

enf't'"

lnt,"n

onf:

;,re

lo~ce

mol

"90

t040

23:'

lf

zz}4

then

Pt'"

'lnt:

"no

t'"I

t'"ies

coa

Po

t'"ta

.re

nien

t~a

1tt'"

o"90

t04~

:t23

5i

fc:p

=20

"'.n

dno=

3t:.he

nF':t

<:'2

0)=

",O

:t+

"'l,J$

~'l(

20,

1)=

1323

8l

fcP

=15

"".t'"

,dt'"

lc'=1

6:;,

ndc2

then

F'

t-'l

nt"

il

cobt

'"a

r(ll

ham

ot'"

·so

l"90

to10

024

1zz

""zz

+l

Pt'"

lnt"

oV."

ob'n

o)=

-190

t,04

0,2

4424

7i

fno

=B

the

n213

225

01f

ob'

no)"

,:)-

1t:.he

nPt'"

-lnt

"nc,

nl"

'ho

con

rfIe

-"90

t040

25:::

:lf

no<

:''>

3",n

dno<

>7-

i<nd

no-(

)11

then

ob":

no)=

cP90

t026

82

54

~f

no1:

:,'n

o=3a

ndc:

P=

20)

U-,

en25

825

6P

t'"1n

t:."

l'J':O

ldlc'

t'"~

Po.

::so

".nd

~.r

ea

sud

f=-",ss

;;'.n

dosu

lla

tr··

.••.ve"

90s'

.lb9

00;

:ilo

s,ub

9012

1

271

274

ifn

o<>

5the

nPt'"

lnt.

"uhu

'Jl''

90t.04

027

7if

cp()

Sth

enP

t'"lt

'",t"q

l..-

llno

t'",

C:'

e't'"

ll..-

lll"

,.da

~I'=

't'"'

ire"

g,:o

to40

280

lfc1

=0t

henP

rlnt

"ma

e",

Per

-'t"

,."

goto

4~3

2:::

:3if

ot,(

2)()

-1th

enP

t'"in

t"n

onhc

·nl

_lIl

a.f'et

'"·

far

lo"

9ot.04

028

6P

t'"in

t"oK

."c1

=0

p1(5

.'1)

""'6

'90

sl.,l

b900

·90

t031

28

9

:'-58

lfnot

.:.no

=7

"".n

dcP

=10'

,t

hen2

622

59

Pt"

lnt"

losc

hele

't.t'"

c.$.""

lori

lett

e::

.ul1

esr

:-"'

.lle

eP

OI

t.ir

aun

a.le

va.

eun

.••.

SC

.••.1

.••.;'

257

F;(

20)=

",,0

$+a:

::$

f'1

<20

,1)=

23ob

(3)=

O

355

358

ifn

o<>

14at

'",d

no<

>16

.oo.

ndno

<>

2the

nPt'"

·int

,"nc

.nri

llP

Iace

!"90

to40

361

ifob

(14)

=-1

ot'"

'(c,

b(14

)=cp

)the

nPrl

nt"o

K."

9':o

sub9

0090

..::.ub

900

Pr'ln

t",~

;.9h

hhhl

"c.

1(10

364

Pri

nt"o

K."

Pt'"

'int"

non

h.".

unbu

ot'"

1=.

.~.p

.:.t'"

.E'''

c.t.o'

t'",c

.}=

0go

;:·u

b9~30

90to

31367

370

Pt'"

·int

."qu

E's

tat'"

,c,r

",rt

,ela

.be

','o"

goto

40373

-376

Pri

t'"lt

,"m

e911

01"

'.sC

la;-

-et

•..•tt

-c'

'".p

et'"

to,

non

=1

s·a

[r,a

l"90

t040

379

332

Pt'"

int"

seti

pla

,ce

sfa:

=.c

i"".

re...

...;..1

'"91

0c·:

;..r

e';'

.91

ia.

t'"'c

"'.d

e"g'

:ot0

40335

388

391

394

39

7 4"" 4"3

4"6

4"9

412

41

54

18

421

292

1fno

<)6

t:.h

en~T

lnt."e

h''''!''

9c.t.o

4029

5if

cp<

::C

15th

enP

t'"in

t"no

n.a

o.ce

-;..j

enu

lla.

"90

to40

2.9:

;:lf

ob{6

:·<

>-l

t·he

-nP

t'"1t

'"lt

"a.n

cot'"

·ano

nP

osso

far-

·lo'

·90

to40

~(I

1r'

t'"lnt

-"f

unz

ion

·".

Il

cobt

'",."

,si

""Il

ont

.••.n.:."

ob(

15)

""'0

c2=

e90

sub9

00'

90t.03

130

4-:

~1-

"3;-lfno

=4o

-.nd

cp=

4the

nPt'"

int

"dic

ef'O

t'"·t

"".r

equ

ii

te-:

:or

-'i

"S

loto

4031

:::;

::i

fno=

16a,

ndeo

b"-

16)=

-1th

o?nP

r-'in

t"d

iC

E-

onde

ggI"

".'"

l"9c

,t,:04

0'3

1631

9it

-no<

)16t

henP

t'lt-

.t"n

c·n

·=aF

-i~co

"9o

t-c·

4E1

:322

1f

cf-

·....)8

tt-

,enF

't'"int

"ne

onsu

cco?

den

1en

te"

90t.o4

032

4ìf

not'~

ot.(

16)-

=-1

)90t

0328

325

F't'

"lnt

"ItK

PE

DIB

ILE

I11

Ulu

rc.

SI

1l

lum

in"

,.e

aPP

are

unP

assa

ggio

326

F't'

"int

"ehe

r-.-

,,...t

--.

-11

sott

o"P

1(8,

5)""

'16

323-

ft:t

="

c"e'

"un

Pas

sC<

.99i

och

eP

':'t'"

t••

di,~

otto

'"33

1P

$(S

)=m

id$(

Pt(

8),1

,19

)+ft

t33

490

sub9

00:

90su

b900

.gos

ub90

090

to.3

1337

340

if

no<

>22

••.nd

cP)5

the-

nPt'"

.int

"uh

u""

l''90

sub9

0090

t,03

134

3i

fno<

)22t

henP

rin

t"h

oso

lc'

leti

,arH

J=-e

t'"sc

avar

-·e

co:=

:i=

,c·~

.'v'c

,1"

sabb

I","

90tc

.40

346

Pri

t'",t"s

c.•

•.vo

con

ler"

.;l.nl

E'..

."

gO~.,.

.-It

.900

·gos

ub9~

:t0

90su

b900

349

ifcP

=2t

henP

t'"in

t"t;

.t'"

ovo

qu""

lcos

20,"

ob'·.2

)=2

9-:'=

·'.lt.90

eg,

:ot.c.

3135

2P

rint

"non

tt'"

·ovo

m.~

ll",

"90

to40

260

Pt'"

int"

scen

de-

da.l

:=.o

ffit

to"

262

ifn

o--=

7.ao

.ndc

:P=

10th

enP

1.:'1

0,4)

""12

ot,$

(9)"

"fg$

'ob

(?)=

0'~.u

=1

:zz=

zz-l

'90t

o40

265

ift'"

,o""

11",

ndt:

m""

1i:t

-,en

Pt'"

lnt

:"

L20

.mU

rt,U

ll·"

.Pt'"

ende

lebe

nde

e=·

ene

va"

ob(2

1)=

0ob

(11

)=0

tm""

090

to26

:326

6i

f(n

o=3

.•.ndc

F'

<:>

20)0

t'"(n

o=?a

.ndc

P(>

1~:t

)ot'"

(no=

11~.n

dtri

l=~:t

)t.t-,

enob

(no

)=cP

.268

z:;:

=zz

-lS

lo.::·

ub90

090

t031

if

tlc·

..,,-

Bth

en20

2lf

0b{n

o'=

-ltt

-,en

~'t-

lnt"

cel

ho91

"'·

con

rtle

"90

to40

lT,:,t.o

"t'"

I.:o

)<>

cPt.he

nPt'"

lnt"

non

·...'

edo

",n1

$;"

q'-~

lin

torn

O"'

90t0

40

;fn

o=(l

t.he

nPrl

nt"u

h-:,n

90t.o4

0lf

nJ:'$

<:>"

"",nd

no=

Ot.he

nPt'"

1nt

"no

nco

nosc

oq'

_leS

tap

<!o.t

'".o

1a"

90t0

40i

ft·l

'y:~

:':::

7".n

dno(

-'5"

~he

nPt'"

1n+

~"no

nt

ic"

'.Pl

sco"

90to

40i

t-no

>34

t;he

nno=

no-6

Jfc

F'

=5a

ndnc

.=5.

::.•

.ndcl

=0t

l--,

et'"

,~'t'

"lnt

"01'

."cP

:::P

1(c

p,1)

90t0

31.:

fcP

=8)

ndno

=27

"'.n

dP2t

he-n

Pt'"

Int"

OV

.."cp

:p1

(cp,

5)90

to31

1fe

P=

1.0·

",t'"

ldno

=28

and:

=ut

he-n

Pt'"

lnt

"0"-

,."cP

=P

1(c

P_4

)9e

<to

31If

t'"IC

,(29

then

Pt'"

lnt

"anc

:.;:

:.r.

;.no

npc

,::·

:=o

f20,

-lo"

90to

40no

-=ne

,-24

if'

no+

1')

2ond

pdt,he

nPt'"

lntd

$90

t:01

00l

fpl

(cP

-'n,

:.)=

Oth

e-nP

rln

1-lm

$90

to40

c~,=

plo:

cp_n

e<)

90t0

31

1fno

=O

thet

'IF

't'"l

nt"n

.:.n

conO

:=C

0l.•

•P

",t'"

ola

"n1j

;:90

to40

::.f'.

no=

4:;.nd

c~'

=4

)c'

t'"(n

o=16

""nd

ob(

16)

=-1

)th

enP

t'"lnt

"c

~e'

:SC

t-·i

tto

qual

cosa

",9

0to4

01

fc:,'''''2

4"n

dno"

"19t

henP

t'"ln

T"'

ledo

qua

lco

:=.a

"ob

(20)

=24

90su

b901

3'90

to31

f'[

lnt

"non

''e

donu

ll",

dI:=

·Pec

l'"le

"90

t040

Pt'"

'lnt"

rlal

t'"",

9giu

nto

Il

Prl

nt",

:,v."

9c,to1

1:t3

ifo

b(,

8)=

-1th

ende

=dE

'+1

ir

ob{

12)=

-1t.he

nde=

d.;.+

lif

ob'

18)=

-1+

hend

e=de

+1

lfob

(20)

=-1

t-he

nde=

de+

lP

t'"in

t-de

t25

".,;"

lf-

C:P

=4a

ndde

=4

tt-

,€,n

Pt'"

1nt

·'·b

t'"a'

,!O

,"

end

if

I:f=

'=1th

c·ne

nd9

c<~

.:,4

0

de=O

Pr

1nt

"t-,

o'=

01'"

1r"e

"9:

:::=

~:t

zz=

Ofo

t'"'i=

1to

lolf

ob{

i)=

-1t-

t--,

enP

r-ln

tc.b

$(i)

9s=

9s+

1zz

=zz

+l

ne

>(t

lf

9.-;

=O

then

r't'"

lnt

"n>

IlI,

,"90

t.-,

40

53p

,-i

nti

nF'u

t":

:lco

:;:."

.:l'?'

._'o

fat

e":

cr••

f;p

t'"l

ntC

l.-

.r':t

o=o"

"'..

'b-t

=""

'.'b=

(1·n

o=O

fl=

O64

lc=

len,

'c[i

,,t)

fO'-l=

lt·o

lcif

r"id

j;'C

fo-t

:·,

1.'

1)=

""t

t-,e

-t'"

,i=

lc'9

0t07

0E

7'·bt

="b

:t+

r"id

:t(c

r,,$

,i.,

1)70

ne>~

'::73

"1$~

"t,.$

'}b$

=m

ld:f

:{vl

$,1,

4)fC

·t-'l=

lt·o

n',"

if·.

-,b$

(l)=

vb$t

henv

b=i

i=nv

+1:

fl=

176

ne>

'tl

ff

lth

en82

79vb

=6

nF'$

=,

'bS

·90

t08:

3:3

2fl

=O

ifle

n('..

.'1$)

+1>

len(

·=m

$)th

enno

=0

t'"€'

t.ur

n:3

5nP

$=fi

lid$

·~cr

•.•$.

,le

n<v1

$)+

5·1e

n(cr

r,$:

)-4-

let'"

I{'

..J1$

»:3

:;::

nl$=

nP$

nP$=

ruld

$(nP

j:,1

,4:J

fot'"

i=lt

.c,n

nlf

nP$=

no:t

(i)t

h€,n

~P

=i

i~nn

+l

fl=

l91

ne,t:

lffl

t,he

n97

94t'"

,c""

"Ot'"

et'_

,n-n

97no

=.•

•.Pt-

et.u

l-n

100

f='r-l

ntP

t'"ln

t."s

ono

[;).

:,rt

:o'"

Pt-

lnt

fp=

1

1p

,",f

'-e

36

87

9,1

11

F'r-ln

tc:h

r·.t

(1

4~

2?t

'ir,t"

~'."

,::w••••

•••••

IIPt

RA

NIO

El"

-.~

·t""

tnt"

';:Il

DI

1;W•••

••••••

•1

IUN

HlJ

Hl"

4P

r-"l

nt"

.,t

';.l''

5f't

'"lI'

'',t''

~co

P·'r1

9ht.

-:-1

98

46

Prl

nt"

i~b:.-'"

~p

t'i

nt"rr

::JI•

•'"

l''''

E:.;

;_of

t.loJ

.:or-

'e(.=

~."

890

:>:I.

~b1

0(11

)

.~F

'dc=

ljE

-U=

;Jtr

,-,=

l3'tP

""0

pl""

0cl

"l.=

2=1-

c:p=

=1

r,.1

=1

nn=

40lo

=40:n

v=

30

i$=

"Son

oIl

lOdi

r"F

-:t(

24".

Pl

(24,

5~"..:

,b:t

(40)

.ob

'40

,'"·A

:::.$(

n'_,

."no

:t(4

0)Il

g,:,:

:o.u

t,427

1'3

pd$=

"cw

-·"

E'

buoi

Pe

st.

o'

EP

E-t

"lco

lo$·o

rflu

ove

rSl

alla

cie

ca

"22

irll:t

~"t

',Q

n1=

'0::

::::

.0"n

d~.t'"

·€,

d~qu

ella

F-;.,t'"

te"

'::5

gf·f

.;:"

I.::

-F

'ot'"

t:"'

.€o

ehlu

:=:.",

."ge

:t=

"la,

Pot

'"t

.••

e'

.••Pet

'"t"

,"28

d:t:

:;";

::ot

-,,:o

e",d

t~t:

Co

em

iS

Ot,O

t'".:,tt-

c_l~

t€'.:

:,t~

"~:

190

:::.u

b5':,

(1:3

4lf

tm~he

nob'

21)=

cl=

'::

;-lrt

r"t

he'n

r',-

lnt"

1.00-.

fi",

UM

ill-

::-fi,l

::::

e9u€

'"40

:Jo'

:l,~b

""::;

::4]

Il:',,b~

8':'.

ndnl

='$

""""

",nd

"b<

>16

and'

.Jb<

~'2

9"nd

·..'b

C;-

3~jt

t-,e

nPt'"

·lnt

CU

t:f:

;"co

sa?"

90to

404~

~~

,'nF

':t<

>""

."n,

j'.<

'b=

6ot'"

',b""

';-c'

,-vb

=8)

andn

o=0t

het'"

,Pri

nt.

"non

t'IO

caP

ito

l''

90to

404'

;!i

f·'t.~

12th

en55

52on

"b':l

01:o

Hj6

·t'

3614

2<

142,

::31

,160

·160

.-16

0,19

9.21

4.,2

14.2

4455

c,n'

A::

o-12

9ot:

0244

244,

271,

31,2

89,3

04,3

16,3

37,3

55>

367,

373,

379,

379.

_38

5,41

30,

415,

600

lC"1-7

<10

611

39112

11

51

18

121

124

127

13

0L

32133

136

139

142

14

5148

151

15

4157

160

1':;

3166

16:.::

:'172

17

5178

1~:1

18

41

87

.190 19::::

:19

6199

;;::0

22(

-5::c

-(t:3

~.l.1

,;-~1

4217

220

I\)

•I

223

--J3 ~ N O c.o CO U1~ w c.o$: o 3 o Ò () o 3 u c ai ~

577

10313 Pr-lr-,t "Lo? .;.ntlcho;;:< le99o?t"t,j,? dlcor-,o er,·? -,,·1 F'l€'n:-. c11 t",:=:. 01'" l mi< ne;:.>=·ul', il'A"O"

1040 Pr"lnt"che;"bbl.;' c.:;.r-,::o.te, .:j1 s"el"r"n"'" 11 :=:~-"gt.::-t. e r;;·".l torr,~t'c, indi~:ttc."1(-150 Pr- Int"Per r-"'.cçc,r-,t."t'" le,."11360 pr-lnt" Io :5::o.te. Per te OCCI"",l .? ,:,r"e":::ct-,. e."1(-170 F'r-ir-,t"Il t.ue, c':'ri,F'lt.:o o? dl P':.rt"r "1. '"'ltt. i t",,~,:::,r-i ,.;::h•.:;· l,. r'ir-,)llllde

580 Pr-·lnt"Pe,:;:so"_nd,,,.r-e583 f or- l =Ot05586 1fp 1 (cF'.· i ><:>at.ho?nPr-lntddf( 1)589 ne)~t590 r-.:,tur-n6013 f.;:.r·'i=lt.;:.n":=teP2 Pr-lnt.',!b-f:'~l' "b_t"l-!l' t,e. t6113 9r.,t.,::.4(1700 Pr-lnt "::t-.le.=.suno Puo ;..l ut-=-.r-t i." Pr'lnt "E: •.•,::,n,:. fc,r-t,UI-, " "71121 F'r-in1-"tlo? h,,.i b1:"o9n·:, ... "720 g.:,t: o4~391313 for-zo=lto1200 nE:' t: r-'Ò'Lur t,1130~3 pr lnt"::t:t:l[r->?tur-'nJ Pel" 1ni.: l .r.:?"101~) 9€'t.t~$ ift$<>chr--f:' 13 )·thenlI31.01820 F'r"lnt":=s:I:I",. '=l,_pl·=I"",·?F',;.r"'t€o n.-"l de"".:"r"t,(";, .:11 ·c.~' ], ;!r")n=(k' F"lt""illide di [unnIJh."

b,524 d"'t .•..:::"'ff ,:;.F·.:;.d."'}';-'::;'C:' ,::;,.:ot"C ,ma.=.c526 d"",.t.-2',s",bb,' ::;.t;ò.n.. ger-o .. :=:,"1~.., COl'"r cun i ::o..:",l ' nor"d,::ud ' <?:=- t ' o')es ' :; u ' SIl q . , e., o . :=.oF'r" ::;ott529 f or"' l := 1t.o40 r-€'-2',dr-,o$'~1 ne)~1:532 d';;'.t.,:;,.PlWI1:·""'.rre. l ,9U';'.r-",),),l'COr-t c"""rMI"es~rl"Pr·E:'n,pi91 ,POi:.~' ,l"'se,.-:b1,.,:-Pr-l,t·suor-,533 d<iot· .••.1",,99 . on,j<:;-., ~'="'.'}-, I<,.••.ng, b>?',li535 dat"'.chi'.l. r'or((J:' :;:.fon, .;.cce, ~.Pe9, :=.,,1 t,I"",<:;-lp ;. jqt~3:;::: for-i=lton',1 r-o:-.:od'lb$( i) ne t541 d,,, t.." nor-·d.' ::;.u.j, e:=.t, ,O',I>?::::t, '::,OPt"O<,:::::01:t ()544 f-::.r-i=(1t,:,5 r"o?",ddd,t,- l:' ne,,·t545 ro?t .•.wn550 Pr-ir-It"~".

'"553 ifcp=17.O<.ndob(21 )(>Other-,tm=1556 l f'" ob' 1) (>-l·:'r-t,F·=~)):o.r ,dcP>~,th'-"nPt- i nt pd:.t pd=l l' •.•t '.wr-,559 Pr-lnt.·i.f; F'$(cP) pd=0562 1f(c~=60rcP=18)andtm=1tho?nPr-1nt,"AIUTOI L" riIUlMI'l·" "t+;".C.::"I" 90tol~~H)565 uc$=" ",'€od,:'>56:3 for-i=lt.e,lo 1fob' l'=cpt~heI"lPIII,t.',) •.:t,obt(i '.'c$=""571 ne>~t.574 ifcP=5"ndclth>?nFT1ntgft 90t.;:.5";"575 i fcP=S"",.ndc 1=l3th>?r-,Pr- l nt.g.:,$

Innanzitutto è necessaria un'espansionedi almeno l6K Ram per poter gestire circa200 programmi. Dopo il Run verrannosottoposte due scelte: iniziare una nuovalista o leggerne una vecchia per aggiornar-la o stamparla. In fase di aggiornamento odi descrizione verrà richiesto, dopo la com-parsa del numero progressivo: il nome,massimo 22 caratteri, la descrizione, mas-simo 70 caratteri, i codici, massimo 12 ca-ratteri; in quest'ultima voce io ho inserito idati relativi all'espansione di memoria ne-cessaria, al linguaggio usato, alla colloca-zione. Ad esempio: l6K-BA-DOOl, va in-terpretato come l6K di espansione, pro-gramma in Basic, disco n. 001.

Nella descrizione si possono usare i duepunti e la virgola, pur essendo in fase diInput, grazie a un piccolo trucco facilmen-te comprensibile osservando la linea 29: ledue Poke servono per aprire le virgolettecosicché virgola e due punti che eventual-mente seguissero non sono più consideratisegni di punteggiatura utili al Basic, maelementi della stringa. Non è necessariochiudere le virgolette alla fine.

Sempre in questa fase si possono notare,nella parte alta dello schermo, delle opzio-ni: col tasto ''j'' si passerà alla registrazio-ne dei dati, con "@" al menu principale econ" <-" all'ordinamento alfabetico deglistessi.

Il menu principale dà la possibilità dirivedere le voci inserite ed eventualmentedi correggerle molto agevolmente; inoltresi può passare in fase di stampa, registra-zione o tornare a quella di creazione lista.

Come detto, è possibile inserire circa 200record, ma questa cifra dipende solo dallamemoria utilizzata per ciascun dato. Menoci si avvicina ai limiti indicati riguardo alnumero di caratteri e più dati è possibileinserIre.

Tengo a precisare che il programma de-scritto gira perfettamente anche sugli altrimodelli Commodore e cioè CM, PLUS4(su cui si potrà aumentare la dimensionedelle matrici) e Cl6 (su cui la diminuire-mo). Vanno naturalmente modificate an-che le linee 17 e 44.

Per finire, il programma prevede l'usodel disk driver, ma sostituendo le linee da102 a 118 con quelle del listato presentato aparte, è possibile utilizzare il registratore.

b", t: t. . dr-ç,g , co

Questo programma è disponibile su cassetta pres-so la redazione. Vedere l'elenco dei programmidisponibili e le istruzioni per l'acquisto a pago 157.

cono€,. "108~3 Pr" int."ffiUOt-.lA FORTUtH'i f l''1090 Pt~lnt"N.? ~'·-'t'"·"'l bisogn':' ...• "11013 Pr- int "::t: •••• ~r-erlll lU' t ••.-':t·:· " ,1110 getr$ 1fr'$=""thenl11011213 r".?tlU-n

3 (segue da pagina /27)440 P$(9)="ln un~ nIcchia"442 p$(10)="in un ,::ot"t'""ldc·ic," P.f<11>",,"ln un:· ~,;._l_;. t'.:.::::;.,," ~·'t·:·12)="ln un"" :::,,::olett.,,-"44'~: P$( l:3)="nella s.;'.l~. del l "let-.imi:=:t .•."445 p$(14)="no?ll~. :=;··,,1,", dell lf(,b)l.~<.<.rf,,,,t.ot'"e" p:fO::151="nell·;:. .:::.a,l,;. dI IAtWHO"448 p:f( 16)=" in un tunnel"449 pS(17)="in un t.l...lnnel.Una .=.ct"itt ..;,o.';::.1.-11flllUO di.c.e- non entt"·,,,t-E- rr,,:.1'"lt··).i"451 1='$( 18:)=1=-$( 16) p$( 19)=" in un." .d:,."nz<.< ,).;;,t-de"454 .••.L.r$="çOI"'", Ut'", fosso t.r-oP p c.' 1·;.,1'"90 P .?r".:::t-,o? POS::;·OJo. ",·,.1 t ·"t" lo"455 az$:::"con un<Ò'. t,-,;..,,!€, eh·:· f.:.. da ~·.::• .::,s.:o.g9io"457 .••.0:!'''''' " in un cut"'l,::c·lo lun90 €' str".;.t.t.o·"460 p$(20)=.,d21$+ .••.loJ$463 p$(21)="nella '-'E'cchia :;O.l'"rller"l,;'." p:t(22)·~"nell.:;.. :=::;..1·::-del ger-c<:~lif-ic1"466 p;t("23 )="nell .•• :5:.;'.1.=.di h~n1Ve" p t'24 '="nell ~ '.;::"F'Pell,~ +'W'0i2I""'r-i .••,"46::1 dat.a2,4,,2, 1,.0 ..0.,2, 3·3,. 1 13,0,2,5 2,·t,O·~]472 d .••t"'.1,.5·3,4,.O,O,4 ..l),::: 0,0 1],5 10,7 :;:::,(1 O475 dat-oo.(1, 10,0.,6 (1 e,e 9.6.,1),13,(1.:;::,(1.10,0.(1.0478 data6.0.7.9.e,0,0.13,14.0,O,O n.l~ 11.(1,0.10.11,15.14.12,00.11.(1,0.13·0·0481 deot.:o,13·0.C1, 1;;::.'21 ~3.0,~3,.17 ~)':::"),~3 1),1:3, 16,(1,(1 ~.:.1.21 t::', 17.1)·~34:34 da t..:O.O' O ' O .. 18, \.). (1, 121-' 20 . 21 • O, O, O, 18. (1 . 22 2(1 O, (1 ,(1 f-'l.(1,.21 \.). (1487 da t ,:;.21) , 24., O, e, ~3.·O' 23· ~3.'O .. ~3, O· ~349~: for-·i==lt.o24 for-j=(H:.o5 r-e·"dPl l .i) net he t499 da.t .••.'_H"'a t.c:'r·C1,,. ... un .•• ,=hi~."~< un:- tr'~,"e dl l'",9no un,) scr-itt •.:, P.:,r"tc" 'll"l tl''''_Jto502 f9$="uno :5:cheletro eont.ent •...,"585 d.:ot.a,un t e:=:çl"",ir.,, "'-Wl'" +COLLAtH"1 D OF'Ot" ,uno $,ch'?letl'-o test::,.,I_.m ,lt".r-,,,,:;'.g'.J i n .••te,

_586_ di; t"at;"=-t-.d,? Pl.ll) t,.~,508 d';'.t -ti, ",-n'",." ·.·3CUF'E O OPC!"t'" .' b';'.t.ter- l E:' e~.r- 1çh'?, dr-'o9h.?:W1 cobr-·,," "'_m,:, +'ZAFF IPO +-"511 d·" t-:. l_.ln.•.. ::':-p.••d .••. r-·ott. .••. "ur, +-AUTICO '·..•11:30.•." 1,,11,~."r"cof·;.go ".P.?r-to, "un.::, ,.'t'1ASCHEPA [IORO"'''512 d .••t"",.lw"". r"lUMI,i.:;.. c,:,n le bende s:,F',:,r-..:rle514 forl""lto21 re .••.dob:t'(i> ne·,t517 da t ..:o,1 , e. 3 .. 4, 5, 6 . 8, 51, lO 1 1 L 1 11. 12 1:]. 15, 15, 16, 2~~, 24, \.}, 17520 fQr"i""l t.o21 r",;:·:o.do:,too'i', ne:"t.523 d.;-.t"",.t.r.,r-c, eh1 .••. tric"',," :;:cr- 1 ,F'()r"t ,f l·"u, t€-~c ,coll, ,"-che, :-.1t" .. b.~nd

102 PRItH":J:l!! ItISERI:;:CI IL NASTRQ li flEL P:EGI:3TP:ATQRE103 PRltiT"~W~ E PREllI UI·I TASTQ"104 OET>($ IFX$=" "THEIH1)4105 PRltiT" ),llt:XHE F I LE CERCQ""" HlPUTF 1$11)6 QPENI.I.I).FI$ J=I1.)7 HlPUT#J. I108 FQRT=1TQI : ItIPUT#J. fU (T) : ItIP'UT#J. "113$(T) ItIF·UT#.J. DE$ '.n ItIPUT#J.' EX$(T) GQ:3UBI l8 '·IE:·<T109 CLOSEJ V=I+l,OOT017110 PRItH":J~~ REGISTF:AZIOt·IE D"T! _Il I PRItH"mEEI SICURQ ?"112 GETX$ IFX$=""THENI12113 IFX$()"S"THEN32114 HIF'UT":01·IQI1E FILE". FI$115 QPE'·I!.!." FU J=I116 PRltiT#J. I FQRT=I TOI F·RHIT#J. fl$(T) PRItIT#J. ,.iQ$(T): PRItH#J. DE$(T) PRHiT#J ..Di$(T)117 OQSUBl18 flEXT CLQSE.;: OOTQ9118 PRItIT "*m,m'.!'.!'M>IIDJ:I"SPC( 17) "#". T' RETURt·1Linee sostitutive per usare il registratore nel programma" LISW prugrammi"

CommentiIl programma è molto ben strutturato e

non ha bisogno di ulteriori commenti. Sipuò passare da una sezione all'altra moltoagevolmente ed altrettanto agevole è effet-tuare delle correzioni; inoltre i messaggiche compaiono sullo schermo di volta involta non lasciano dubbi sul modo di ope-rare.

Quando si procede alla registrazione delfile su disco, viene conservilto il numerodell'ultimo record inserito per cui, dopoun'eventuale lettura, il puntatore del fìlerelativo verrà posizionato automatica-mente in coda all'ultimo record inserito.

128 MCmicrocomputer n. 39 - marzo 1985

6 71RE

M+••

•+•

•~."~

*+•••*.

~2

RE

r.,.:

+'~~

Et'1

J~'L

ISTA

PR

O(,P

AI'H

',I

•4

REr

H'

,.5R

EM+*

+.~*

**.+

.**+

~•••+

as i r: CD

Me

.•rL

EH

(OE

$(T

»>

70

TH

EN

GO

SU

B1

49

78

IFa

.J::

t="C

"TH

EN

IHP

UT

":O

::O

DIC

I"-'

E~

<$

(T)

IFL

Et'~

(E~

<$

(T)

»1

2T

HE

t4G

OS

UB

14

87

9T

=T

-1R

ET

UR

t-l

8'2

1IF

j..J$

="O

"TH

EN

INP

lJT

":~

J-.l0

f'1E

".'

t40

$(T

)IF

LE

t-.l'

.HO

$~

:T>

>)-

22

TH

Et-

.lGO

SU

B1

5e

81

IF~

'J:$

="O

"TH

EN

PR

ItH

"l![

)ES

CR

I2Io

t-.lE

"P

OK

E6

31

..3

4P

OK

E1

98

.,1

:It

4P

UT

OE

$(T

)8

2IF

LE

H([

IE$

(T)

»7

L:3

TH

Et·

1G

OS

U8

14

98

3IF

a.l$

="O

"TH

Et-

-Ilt-

.lPU

T":

OC

OO

ICI"

.;E

~<

:$(T

)IF

LE

H(E

~<

$(T

)»

12

TH

EtK

iOS

IJB

14

8=

34

IF

t,J$

="

[l''

TH

Et'~

79

85

GO

T0

73

86

PR

ltH":

J~C

OR

RE

ZIO

t--lE

DA

TI

~l"

It4

PU

T"

tKIN

ER

O"

,T::

:7IF

T(1

0R

T)-

ITH

EH

86

:38

PR

lt4T

"~l!!

:r~

"N$

(T)

:PR

It-.

lT":

::1

!I]"

t40

::t(

T)

PF

~It

-.lT

DE

$(T

)P

Rlt·

HE

K$

(T)

IFIJ

=:lT

HE

NU

=1

2l

GO

T0

10

08

3P

RI

t·H

"):

r~x!

!!!C

PE

RC

OR

F~

EG

GE

RE

"9

0P

Rltn

"):r

~:f

="!

!!!!

CP

ER

FIN

IRE

"9

1G

ET

',!$

IF

V$

="

••T

HE

N9

19

2I

FV

::t=

"C

"T

HE

t'~9

59

3IF

V$

="F

"TH

EN

48

94

GO

T0

91

35

PR

INT

":1

!1-.

lUl'l

ER

O~

"tU

(T)

96

It·~

PU

T":

a=

-.l0

t'1E

",N

(l$

(T)

IFL

EH

(NO

$(T

»>

22

TH

Et·

1G

OS

UB

15

~3

97

PP

lt·H

":d

:iES

CR

IZIO

NE

";P

OK

E6

31

,:3

4P

OK

E1

:.~

8,

1IN

PIJ

TD

E:t

:(T

)IF

LE

t-.l(

OE

$(T

»>

7IZ

lTH

EN

GO

SU

B1

49

98

It-W

UT

":l!!

t::O

DIC

I",

EK

J;(T

):IF

LE

t~O

::E

;:':$

(T»

)1

2T

HE

t·m

o-:

:UB

.14

8

1'2

10

GE

T'./

1=

IF,,

/$=

""T

HE

HH

3(1

10

1G

OT

04

81

13

2P

RIt

4T

":"

l"::

t!!!

!!INS

ER

IS

CI

IL

DI

SC

ON

EL

~L

ET

TO

RE

FL

OP

P',,

'••

1(1

3P

RIN

T":

l!!tl!

!:rllIl

!!t~

EP

RE

f'11

UN

TA

ST

O"

10

4G

ET

:'UIF

X$

="

"TH

EtH

04

10

5P

RH

4T

")U

l!!C

XH

EF

ILE

CE

RC

O:I

IIJ!

!!!"

It-~

PU

TF

I$1

06

OP

Et~

15

.,=

3,

15

.'"l''

CL

OS

E1

5O

PE

N2

,8

,2

,"O

"+F

I$+

",~

3,R

"J=

21

07

INP

UT

#J

..I

10

8F

OR

T=

lTO

IIt

..fP

UT

#J,

t·U

(T)

It~

PU

T#

J.,t

KI:

$(T

>IN

PU

T#

J·O

E::

t(T

)It

4P

UT

#J,

E~

<:$

<T

)'O

OS

U8

11

8H

E;:<

:T1

(-1

9C

LO

SE

~T

'./=

I+

1G

OT

01

71

1(1

PP

ltH":

"l"~

::~

RE

GI':

:TR

AZ

lot·

~E

DA

TI

•.•

11

1P

RIt

H")

'I!1

l!!1

3E

I~

;IC

UR

O?

"1

12

GE

TX

$IF

X$

=""

TH

EN

11

21

13

IF~

<:t

(>"S

"TH

EH

32

11

4It

4P

UT

":II

!IO

-.l0

f'1E

FIL

E".

,F

I:f.

:1

15

OP

EN

15

,8,1

5-,

"I"

PR

lt4T

#1

5,"

S,"

FI$

:CL

OS

E1

5'O

PE

N2

,8,2

-,"O

"+F

I$+

",S

,W"

J=2

11

6P

RIt

-.lT

#J

..I

FO

RT

=lT

OI

PR

IHT

#J,

N$

(T)

PR

ItH

#J,

t·m

$(T

)P

Rn

H#

,J,[

lE$

(T)

PR

IHT

#J,

E~

<$

(T) 1

17

CiO

SU

81

1~

:'H

E~

<T

'CL

OS

E.J

GO

T0

91

18

PP

It-.

lT"~

~:r

l!!'ll

!!llU

l!!ll!

!l:!I

.oo

l:II!

OO

:::~

"SP

C(

17

)"#

"..

TR

ET

UR

N1

19

PP

U-H

":-l::

{JO

RO

It~

At'1

Et-

no

PE

CO

PO

S::

"1

20

:P

RI

l'H"

:~l~

tl!!lt

!tl!!

tll!F

tTT

Et·

·IDI

UN

AT

TH

'lO•.

.:t

!1"

12

1:'<

=-1

-1N

=i<

1.,;'

.,,;:

I=r'1

/~1

23

t-1

=lt.

.jT(T

>1

24

IFt1

=~

jTH

EtH

*:3

12

5K

=~

<-f

'l126

J=l

127

Z=

)1

2::

=L

=Z

+f'l

12

9P

OV

E3

68

79

.24

+S

S1

:30

SS

:=:=

:;~

::+1

IF

:;S

=8

TH

Et~

SS

=0

13

1IF

NO

S(Z

)(=

NO

SO

::L

)TH

EN

13

71

:;=

2N

O::

t=tK

l$(Z

)D

E$

=D

E$

"2

)E

>:$

=E

X$

(Z)

1:3

3N

OS

(Z)=

tlO$

(L)

DE

$(Z

)=D

E$

CL

)E

X::

t(Z

)=E

X$

~L

)1

34

NO

$(L

)=N

O$

DE

$(L

)=(I

E$

E::

<:$

(L)=

E;:

<$

13

5Z

=Z

-N1

36

IF

Z>

=1

TH

Et-

.l12

81

37

J=J+

ll::

::::

:IF

J>K

TH

Et-

.l12

2

13

9G

OT

01

27

14

0F

OP

Z=

1T

OI-

11

41

IF

2/2

<>

It·

n(2

.-'2

)T

HE

t·~

14

61

42

PO

t<E

36

87

9,

27

PR

H-.

lT"~

:i:::

.{!!

F'R

Ef'l

IU

t-~

TA

ST

O"

PR

INT

"iii:

C1

(RE

TU

Rt-

l)1

43

GE

T~

,UI

Fto

.l$=

""T

HE

tH4

31

44

IFD

=l

TH

Et·

m=

00

0T

04

81

45

IF

l.J$

=C

HP

$(

13

)T

HE

t-.l4

81

46

PP

It·

H"

!I!l:

::..

l"N

$·Z

)P

RIN

T"

~l"

t·jO

:t•.

.z·,

PP

INT

DE

::f:

O::

Z)

F'F

'INT

E~

<$

O::

Z)

t4E

}<:T

Z1

4-;

-"[1

=1

[,O

T0

14

2

14

8E

~<

$T

)="i

i:::·

l:lL

TF

.:E

12

CA

RA

TT

ER

Il:"

'PE

TU

Rt~

14

9D

E$

T)=

"tl::

:-l)L

TR

E7

0C

AR

AT

TE

RI

!::"

F~

ET

UP

t-.l

15

~3

NO

:!:

T)=

"•.

:::lJ

LT

RE

22

CA

RA

TT

ER

Il::

"P

ET

UR

t·l

99U=

l00

T088

2

::!!

!".

00

T0

55

GO

T0

9

16"/

=1

17

1:~

:

19

PF

'Itn

":1

:!!l:

::~

f'1E

NU

PR

IHC

IPA

LE

"'"

49

PR

It-.

lT":

1!l:

1!li

i~l~

.••

RE

'./I~

;IO

t~E

TO

TA

LE

"5

0P

PIt

-.lT

":!!

rl!l.

l:::-

li~~

.••

RE

VIS

IOH

EP

AR

ZIA

LE

"5

1P

RIt

-H"

:l!1

~~

=:=

!!!!•.•

ST

Al'1

PA

(lE

ID

AT

I"

52

PR

HH

"'1

!1:l!

!l:::

-lii4

:2!!

!.•.

RE

GI:

=:,

TR

AZ

Iot4

ED

AT

I"'5

3P

F'lt

jT":

~:li

B::

!!!!

•.•

CR

EA

ZIO

HE

LIS

TA

"5

4P

Rlt·

n"l

:l!lIl

!l:::

~5

5G

ET

>::

$I

F::

<$

="

"TH

Et·

~5

5'5

6I

F~

<$

="

1"T

HE

N6

25

7IF

~"-

:$=

"2"T

HE

N8

65

8IF

X$

="3

"TH

EN

I=I-

1'O

OT

03

35S

~IF

>::t~

"4"T

~IC

1II=

11

('OT

011~

16

0IF

~<

:$=

"5"T

HE

t~I=

I-l

OO

T0

82

61

FO

~'I=

',/T

02

00

PR

ItH

":1

:!lJ

::~

.•C

REA

ZIO

I'~E

LI:

:;T

A:+

:!!!

I!I"

PRlt~

T"::

-l~

l=:!

!!!!

REG

I::::T

PAZ.

OA

TI)!

1"F'

F.:lt

lT"

~:t

:!::

!!!

t'1Et

-.lU

PRlt-

1CIP

ALE

"2

0P

PltH

"-l!!

l::.f

~O

RD

IHA

t·1

.R

LF

A8

ET

ICO

";;:

:1t~

$(

I",

="(;C

1"+R

IGH

T$(S

TR:t(

1),1

)22

IFI>

~TH

Etn

"$(

I',=

"O"+

RIG

HT

.f(S

TR

:t(1)

·2)

23

IFI)

99

TH

Et-

HU

(I

)=F

'IGH

T$

(';T

R$

(1),

3)

;';::4

F'P

ItH

":!

!n!lK

lt'1

ER

O~

~"H

$(

I)::

:5I

t-.t

PU

T"

:~O

f'1E

"t·

W:!

"o::I)

IF

LE

t-.I

(tK

I$o::

I)

)>

22

TH

Et-

.lGO

':;:U

B1

50

F'F

'IN

TtK

I$o::

T)

.GO

T0

25

2C

IFt'~

O$

(I)=

"1

""A

ND

I:;

1T

HE

t-.lI

=I-

1G

OT

Oll(

12

7IF

NO

$(I

)~"@

"AN

DI>

lTH

EN

48

2:;

':IF

t~O

$(

I)=

"~"A

ND

l>l

TH

EtU

19

29

p~

:It·

n"

.l'!l)

E':;

;CR

IZIO

t·IE

":P

OK

E6

31

,:::

4F

'01

<E

19

8,

1It

4P

UT

OE

$(

I)3

0IF

LE

t'~(D

E:t

(I

)'>7

0T

HE

t-.lO

OS

UB

14

9P

PIt

nD

E:t

"(T

}G

OT

02

9;':

1It

-.lP

UT

":!I

!lCO

DIC

I••

.,E

X:r

'~I)

LH

=L

Et-

.l(E

;:';$

(I)

",IF

U·0

12

TH

EN

GO

SU

B1

48

PR

ItH

E::

-:;$

(T)

GO

T0

31

32

tjE

~-=

:TIG

OT

04

83

3P

RI

HT

":'I

l'Il::

:~*

ST

At'1

PA

LI

ST

A"!

!!!"

·34

It'~

PU

T"N

OM

EL

IST

A"

·L$

U·~

=L

Et·

~,

L$

)IF

U4

>4

0T

HE

t·l:3

33

5L

=It

H(

'~8

0:-

2"U

·P,·

'·::)

L2

=A

SC

'-P

IGH

T:f

.:(S

TR

:f(L

).·

1:»

Ll=

48

::;:

:6IF

L>

9T

HE

t'~L

1=

AS

CJ·

tlI[l:t

(,:·

TP

$I.

L>

,~,

1)

L2

=A

SC

(RIG

HT

$(S

TR

S(L

).'

1»

'37

OP

EN

4-,

43

::;:

PR

IHT

#4

·C

HR

$(

14

"'C

-HP

$'~

16

).·

(:H

R~

:t(L

l)C

HR

$(L

2);

L$

,C

HR

$(

15

)3

::'

PF

~IH

T#

4.,

""

4(-

1P

PIt

n#

4.

"_

41

FO

RT

=lT

OI

PR

INT

#4

PP

ltH#

4,t

U(T

),4

2P

RIt

IT#

4,

CH

R$

(1

4)C

HR

$(

1(:

)"(

16

"HO

$(T

),P

RIN

T#

4.

CH

P$

(1

5)C

HP

::t(

'1

6)

"68

"EX

:S(T

)4

-~P

PIt

-H#

4..

CH

R$

(lE

,:o

"(1

6"D

E::

t(T

)

44

FO

R~

<=

1T

0'3

IFT

=2

0:+

=~

<T

HE

t·tF

OR

H=

lT0

1'~

:P

PIt

H#

4t·

~E

::<

TH

:GO

T0

46

45

t-.lE

:--~

T::

<

46

NE

~<

TT

47 4::;:8

[rI

l'n,IO

$:<2

(H])

"H

$"

2(0

).O

E:t

("~

OO

).E

::':.t

(:2

(0)

;PO

KE

65

0.

12:::

:;:.

PR

INT

":T

:l!!l:

:#A

RC

HIV

IOP

RO

GR

Ar'H

'll+

!!!I

!I"

10P

RltH

"J'!I

!!!iU

l!1I!

!!I!

J~

~;:

:H!!

!!!!

::--

CR

EAZI

Ot-.

lELI

STA

"1

1p

F.:

nH

".!

!!!f

I!1

J!l::

.f:t

2~

-L

ET

TU

RA

L1

8T

A"

12P

RH

n"-

lItlll

!!!l!

1l1

!lUll!

l::~

D.

T.

'::;O

FT

l":;:

C.ED

':;$"

IFX

$=""

THEt

-.l13

14SC

='..·

'AL

...~<

$)

IF;::

C<

10

P';C

)2T

HE

N9

15O

t-i::;

CG

OTO

16,

102

62

FO

RT

=lT

OI

PP

lt-.lT

":":

];::

·U"t

·U'(T

)P

Rlt-

.lT":

l!l!!

!C"H

O$

(T)

PR

IHT

OE

$(T

)P

RIH

TE

>·:

$(T

)6

3P

Plt·

H":

elii

~::

~P

EF

'C

OF

'RE

Zlo

t'~I"

64

PR

nH

"l!li

i:-

F!C

PE

RF

It-lIR

E"

65

PR

IN

T"

:l!!li

i~

<!!

!!t:

IN

OI

ET

RO

I~::

:-{>

!!!!

CAV

At-

.lTI

"66

PR

ltH

67

GE

TO

$IF

()$

="

"TH

Et'1

67

68

IFQ

$=

"F"T

HE

t·j4

86

9IF

O$

="C

"TH

Et4

GO

SU

B7

27

0IF

Q$

=",

"TH

EtH

=T

-2IF

T(O

TH

EtH

=(j

-71

t·~

Ei<

:T·G

OT

04

=3

72

PP

UH

"A•.

•t·

mf'l

E"

PR

ItH

"8••

•O

ES

CR

IZI0

t4E

"P

RIt

H"C

•••

CO

DIC

I"P

RIt

H"D

.••

TU

TT

I"7

3G

En

,l::t

:lF

lo.l$

=""

TH

EN

73

74

IF~

J$=

"D"T

HE

t'18

07

5IF

~I:

:t=

"A"T

HE

t-lIN

PU

T"1

.1-K

1f'1

E"·

NO

::t(

T)

IFL

EN

(t-.

lO$

(T

))-

22

TH

Et·

mO

S1

J81

50

76

IF

a.J

$=

"8

"T

HE

tIP

RI

HT

".ll

.I)E

·;C

RI

ZIO

NE

",P

OK

E6

31

.3

4P

OK

E1

9:3

..1

It-

.lPU

TO

E$

(T)

~ N <Ds: o 3 o o o o 3 "O C ~ <O CD U13 OJ N o::J W <O

Vostro figlio può utilizzare il PS 80per la trigonometria, realizzando ;se-ni, coseni e qualunque tipo di grafico.

Se qualcuno, in famiglia, ha l'hobbydell'elettronica sappiate che il PS 80disegna anche circuiti stampati.

Ciascuno può avere un buonmotivo personale per utilizzarequesto nuovissimo plotter.E tutti hanno un ottimo motivoin comune per acquistarlo:a parità di prestazioni, il PS 80ha il prezzo più basso di tutti!

• Disegna e scrive (caratteri damm. 1,2 a 7,5 cm.) a 4 colori sucarta, cartoncino fino a 21 cm. dilarghezza (formato ~4).• Adattabilissimo! E con portaparallela e quindi applicabile atutti gli Home e PersonalComputer. Può disegnare sufoglio singolo formato A4 oppuresu carta rullo.• Di serie porta parallela -optional seriale RS 232.• Disponibilità di interfacce perVIC 20, C 64, Apple Il e Applecompatibile .• Garanzia di un anno(gruppo scrivente6 mesi).• Assistenza e ricambigarantiti dalla reteVendita ACS.

P5-80: IL PLOTTERDI FAMIGLIAe

Si cercanoRAPPRESENTANTInelle seguenti zone:

zona lzona 2zona 3zona 4zona 5zona 6

PS - AN - MC - APFO - RA - FE - BOMO - RE - PRPV - PC - CRMI - CO - VALI - LU - PI - MS

Requisiti:

- Conoscenza tecnico commercialenel settore Personal Computer

- Inviate curriculum scritto (non tele-fonare!) all'indirizzo ACS di S. Mari-no

- Indicare zona di preferenza.

l'alta tecnologia del Giapponenella Repubblica di San Marino

ADVANCED COMPUTER SYSTEMSVia Nonagualdaria, 24

47031 Cailungo Repubblica di San Marino