S O F T W A R E(QJ~ll~~-----a · un Commodore 128 corredato di disk drive e monitor in 80 colonne....

5
_____ S_O_F_T_W_A_R_E(QJ~ ll~~-----a -cur-a d-i T-om-ma-so-Pa-ntu-so 8;ngol '90 di Marco Leoni - Roma Bingol '90 è un programma dedicato all'omonimo gioco del quotidiano spor- tivo « Il Corriere dello Sport Stadio». Bingol '90 può funzionare soltanto su un Commodore 128 corredato di disk drive e monitor in 80 colonne. Avviato il programma, dopo la fase di presentazione, si giunge al menu prin- cipale del tipo del DOS SHELL. Tramite le frecce si possono selezione le varie opzioni che sono: 1) CREAZIONE FILE SCHEDE 2) AGGIUNTA FILE SCHEDE 3) BINGOL '90 QUOTIDIANO 4) BINGOL '90 SETIIMANALE 5) VISUALIZZAZIONE SCHEDE Nell'utilizzare il programma bisognerà selezionare la prima opzione che con- sente di memorizzare le schede del gioco, necessarie al funzionamento del programma, in un apposito file su disco denominato FILE SCHEDE. Una volta inseriti i 12 numeri che compongono ogni card del gioco il programma richie- derà anche il codice della scheda. Que- sto codice risulta necessario per il gio- co infrasettimanale denominato Bingol '90 sorpresa. Terminata la fase di inse- rimento delle schede premere una vol- ta ancora il tasto ENTER e il program- ma passerà direttamente alla fase di memorizzazione nel file sequenziale dei dati inseriti. La seconda opzione del menu princi- 238 pale consente di ampliare il FILE SCHEDE nel caso in cui si sia entrati in possesso di altre cardo Per questa op- zione il programma utilizza gli stessi sottoprogrammi della precedente, ma il file delle schede viene aperto in AP- PEND tramite l'utilizzo di un flag SW. Tramite la terza opzione si entra nel vivo del gioco. Si procede nell'inseri- mento dei 35 numeri quotidianamente pubblicati sul giornale e il computer procederà alla verifica delle schede pre- cedentemente trasferite in memoria. Se la nostra cartella ha almeno 7 dei 35 numeri inseriti abbiamo vinto Inol- tre, solo per i vincitori del giorno, nella settimana in un giorno a caso viene pubblicato il gioco sorpresa, dove le lettere del codice, formato da 6 carat- teri numerici e da 2 alfanumerici, assu- mono un valore numerico. Se somman- do i numeri e i valori delle lettere del codice si ottiene 90 si vince anche un premio supplementare. Quindi nel caso in cui si è vinto il gioco quotidiano il programma richiede se c'è il gioco a sorpresa. Nel caso in cui la risposta sia affermativa il programma richiede il va- lore delle lettere del codice della card vincente. La quarta opzione consente di parte- cipare al gioco settimanale. Dal lunedì alla domenica sono pubblicati sul gior- nale dei tagliandi con dei numeri abbi- nati ai simboli delle città dei mondiali. Per vincere è necessario che siano ab- binati ai numeri della card 7 simboli di città diverse. Con questa opzione il pro- gramma richiederà i 35 numeri raccolti durante la settimana abbinati ad altret- tanti simboli di città. Automaticamente si procede alla verifica ·delle cardo La quinta opzione del programma consente di visualizzare le schede me- morizzate su disco. Il programma tramite l'utilizzo di un flag w2 procede alla lettura dei dati e al loro trasferimento in memoria una sola volta e, quindi, si possono utilizzare più opzioni senza leggere il file più volte. Buona fortuna. Descrizione programma Sottoprogrammi Riga 10-220 Presentazione Riga 230-510 Menu principale Riga 520-2140 Sottoprogramma utilizzato dalle pri- me due opzioni e che consente di crea- re ed effettuare delle aggiunte al FILE SCHEDE. Questo sottoprogramma uti- lizza altre subroutine per effettuare le correzioni, i trasferimenti, le scritture delle schede. Riga 2150-3620 Sottoprogramma utilizzato dalla terza opzione che consente di inserire i valori giornalieri e ottenere i risultati del gioco. Riga 3630-3710 Sottoprogramma utilizzato dalla quin- ta opzione che consente di visualizzare le schede del gioco memorizzate sul FILE SCHEDE. Riga 3720-4350 Sottoprogramma utilizzato dalla quarta opzione che consente di inserire i dati per il gioco settimanale e ottenere i risultati relativi. Tracciati record File Schede Campi n. 13 CDEFGHM NOPQRS$ I primi 12 campi sono numerici e contengono i 12 valori di ogni cardo Il campo S$ è stringa e contiene il codice della card composto da 6 caratteri nu- merici e da 2 caratteri alfanumerici. È disponibile, presso la redazione, il disco con il programma pubblicato in questa rubrica. Le istruzioni per l'acquisto e l'elenco degli altri programmi disponibili sono a pago 247. MCmicrocomputer n. 92 - gennaio 1990

Transcript of S O F T W A R E(QJ~ll~~-----a · un Commodore 128 corredato di disk drive e monitor in 80 colonne....

Page 1: S O F T W A R E(QJ~ll~~-----a · un Commodore 128 corredato di disk drive e monitor in 80 colonne. Avviato il programma, dopo la fase di presentazione, si giunge al menu prin- ...

_____ S_O_F_T_W_A_R_E(QJ~ll~~-----a-cur-ad-i T-om-ma-so-Pa-ntu-so

8;ngol '90di Marco Leoni - Roma

Bingol '90 è un programma dedicatoall'omonimo gioco del quotidiano spor-tivo « Il Corriere dello Sport Stadio».

Bingol '90 può funzionare soltanto suun Commodore 128 corredato di diskdrive e monitor in 80 colonne.

Avviato il programma, dopo la fase dipresentazione, si giunge al menu prin-cipale del tipo del DOS SHELL. Tramitele frecce si possono selezione le varieopzioni che sono:1) CREAZIONE FILE SCHEDE2) AGGIUNTA FILE SCHEDE3) BINGOL '90 QUOTIDIANO4) BINGOL '90 SETIIMANALE5) VISUALIZZAZIONE SCHEDE

Nell'utilizzare il programma bisogneràselezionare la prima opzione che con-sente di memorizzare le schede delgioco, necessarie al funzionamento delprogramma, in un apposito file su discodenominato FILE SCHEDE. Una voltainseriti i 12 numeri che compongonoogni card del gioco il programma richie-derà anche il codice della scheda. Que-sto codice risulta necessario per il gio-co infrasettimanale denominato Bingol'90 sorpresa. Terminata la fase di inse-rimento delle schede premere una vol-ta ancora il tasto ENTER e il program-ma passerà direttamente alla fase dimemorizzazione nel file sequenziale deidati inseriti.

La seconda opzione del menu princi-

238

pale consente di ampliare il FILESCHEDE nel caso in cui si sia entrati inpossesso di altre cardo Per questa op-zione il programma utilizza gli stessisottoprogrammi della precedente, ma ilfile delle schede viene aperto in AP-PEND tramite l'utilizzo di un flag SW.

Tramite la terza opzione si entra nelvivo del gioco. Si procede nell'inseri-mento dei 35 numeri quotidianamentepubblicati sul giornale e il computerprocederà alla verifica delle schede pre-cedentemente trasferite in memoria.Se la nostra cartella ha almeno 7 dei35 numeri inseriti abbiamo vinto Inol-tre, solo per i vincitori del giorno, nellasettimana in un giorno a caso vienepubblicato il gioco sorpresa, dove lelettere del codice, formato da 6 carat-teri numerici e da 2 alfanumerici, assu-mono un valore numerico. Se somman-do i numeri e i valori delle lettere delcodice si ottiene 90 si vince anche unpremio supplementare. Quindi nel casoin cui si è vinto il gioco quotidiano ilprogramma richiede se c'è il gioco asorpresa. Nel caso in cui la risposta siaaffermativa il programma richiede il va-lore delle lettere del codice della cardvincente.

La quarta opzione consente di parte-cipare al gioco settimanale. Dal lunedìalla domenica sono pubblicati sul gior-nale dei tagliandi con dei numeri abbi-nati ai simboli delle città dei mondiali.Per vincere è necessario che siano ab-binati ai numeri della card 7 simboli dicittà diverse. Con questa opzione il pro-gramma richiederà i 35 numeri raccoltidurante la settimana abbinati ad altret-

tanti simboli di città. Automaticamentesi procede alla verifica ·delle cardo

La quinta opzione del programmaconsente di visualizzare le schede me-morizzate su disco.

Il programma tramite l'utilizzo di unflag w2 procede alla lettura dei dati e alloro trasferimento in memoria una solavolta e, quindi, si possono utilizzare piùopzioni senza leggere il file più volte.

Buona fortuna.

Descrizione programma

SottoprogrammiRiga 10-220PresentazioneRiga 230-510Menu principaleRiga 520-2140Sottoprogramma utilizzato dalle pri-

me due opzioni e che consente di crea-re ed effettuare delle aggiunte al FILESCHEDE. Questo sottoprogramma uti-lizza altre subroutine per effettuare lecorrezioni, i trasferimenti, le scritturedelle schede.

Riga 2150-3620Sottoprogramma utilizzato dalla terza

opzione che consente di inserire i valorigiornalieri e ottenere i risultati delgioco.

Riga 3630-3710Sottoprogramma utilizzato dalla quin-

ta opzione che consente di visualizzarele schede del gioco memorizzate sulFILE SCHEDE.

Riga 3720-4350Sottoprogramma utilizzato dalla quartaopzione che consente di inserire i datiper il gioco settimanale e ottenere irisultati relativi.Tracciati record

File SchedeCampi n. 13C D E F G H M N O P Q R S$

I primi 12 campi sono numerici econtengono i 12 valori di ogni cardo Ilcampo S$ è stringa e contiene il codicedella card composto da 6 caratteri nu-merici e da 2 caratteri alfanumerici.

È disponibile, presso la redazione, il discocon il programma pubblicato in questarubrica. Le istruzioni per l'acquisto el'elenco degli altri programmi disponibilisono a pago 247.

MCmicrocomputer n. 92 - gennaio 1990

Page 2: S O F T W A R E(QJ~ll~~-----a · un Commodore 128 corredato di disk drive e monitor in 80 colonne. Avviato il programma, dopo la fase di presentazione, si giunge al menu prin- ...

270

NE

XT

280

PR

INT

"(B

LU)

10n,

ST

,DIM

VA

(SO

,12

),D

IMV

(3S

),D

IIIT

$(S

O)

,W2-

0,D

IMV

$(3S

)20

CO

LOR

O,l

,CO

LOR

4,l

30D

OU

NT

ILJ-

7,R

EA

DA

$,A

$-"

"+A

$,P

RIN

T"

(CLR

)(W

IIT)

lDO

WN

)lD

OW

N)(

DO

WN

)(DO

WN

)(D

OW

N)(

DO

WN

)lDO

WN

)(D

OW

N)(

DO

WN

)(D

OW

N)"

,J-J

+1

40C

OLO

RS,

13,P

RIN

T"

(UP

)"A

$,G

OS

UB

190

SO

CO

LOR

S,1

5,P

RIN

T"(

UP

)"A

$,G

OS

UB

190

50C

OLO

RS

,2,P

RIN

T"(

UP

)"A

$,G

OS

UB

200,

IFJ-

10R

J-4T

IlEN

GO

SU

B20

070

CO

LOR

S,1

5,P

RIN

T"(

UP

)"A

$,G

OS

UB

190

80C

OLO

R5,

13,

PR

INT

"(U

P)

"A$

,GO

SU

B19

090

CO

LOR

5,12

,PR

INT

"(U

P)

"A$,

GO

SU

B19

010

0C

OLO

R5,

16,P

RIN

T"(

UP

)"A

$,G

OS

UB

190

110

LOO

P,S

CN

CLR

,CO

LOR

5,2,

GO

T02

2012

0D

AT

ALE

ON

IM

AR

CO

130

DA

TA

SO

FT

WA

RE

140

DA

TA

PR

ES

EN

T.

150

DA

TA

BIN

GO

L'9

015

0D

AT

A"

WR

ITT

EN

IN19

8917

0D

AT

AB

YLE

ON

IM

AR

CO

180

DA

TA

TE

L06

/481

8424

190

SLE

EP

.5,

RE

TU

RN

200

SLE

EP

2,R

ET

UR

N21

0R

ET

UR

N22

0S

CN

CLR

230

CO

LOR

5,12

,CO

LOR

5,2

240

CH

AR

1.O

,O,"

(RV

S)

BIN

GO

L'90

BY

LEO

NI

MA

RC

OS

FT

W/

SC

EG

LIC

OL

CU

RS

OR

EE

PO

IP

RE

MI

EN

TE

R(O

FF

)"

250

FO

RI-

lT04

250

PR

INT

"(B

LU)

(RV

S)

(OF

F)

"

340

PR

INT

"(R

VS

)(O

FF

)"

350

TB

$(1

)-"

CR

EA

ZIO

NE

FIL

ES

CH

ED

E",

TB

$(2

)-"

AG

GIU

NT

AF

ILE

SC

HE

DE

350

TB

$(3

)-"

BIN

GO

L'9

0Q

UO

TID

IAN

O"

,TB

$(4

)-"

SU

PE

RB

ING

OL

'90

370

TB

$(5)

-"V

ISU

ALI

ZZ

AS

CH

ED

E",

TB

$(6)

-"F

INE

380

I-O

390

GO

SU

B52

040

0IF

I-1T

IlEN

W-0

,GO

T07

8041

0IF

I-2

TIlE

NW

-1,G

OT

0780

420

IFI-

3TIlE

NW

-0,G

OT

0215

043

0IF

I-4T

IlEN

W-0

,GO

T03

nO44

0IF

I-5

TIlE

NW

-0,

GO

T03

530

450

CO

LOR

5,l,C

OLO

R5,

245

0S

CN

CLR

470

PR

INT

"BIN

GO

L'9

0..

480

PR

INT

''''49

0P

RIN

T"F

lNE

!"S

OO

SLO

W51

0E

ND

520

RE

M*lt

ltS

CE

LTA

OP

ZIO

NE

S30

CO

LOR

5,7

540

C-1

0,R

-2,1

-155

0C

HA

R1.

10,

2,T

B$

(I)

550

GE

TK

EY

A$

S70

IFA

$-C

HR

$(1

4S)

TIlE

NG

OT

O70

058

0IF

A$-

CH

R$

(17)

TIlE

NG

OT

051O

S90

IFA

$-C

HR

$(13

)TIlE

NR

ET

UR

N50

0G

OT

0550

510

RP

-R,C

P-C

,IP

-I52

0IF

R<

>4T

IlEN

R-R

+1

d-l+

l.GO

T05

S0

.53

0R

-254

0IF

C-1

0TIlE

NC

-44,

I-4,

ELS

EC

-10,

I-l

550

PR

INT

"(R

VS

)";

550

CH

AR

1.C

P,R

P,T

B$

(lP)

570

PR

INT

"(O

FF

)";

580

CH

AR

1.C

,R,T

B$

(I)

590

GO

T05

5070

0R

P-R

,CP

-C,IP

-I

AG

GIU

NT

AF

ILE

SC

HE

DE

Cf) O ~I~

NP co:J

J m

",C

H

",R

ET

UR

N

REM

***

CORR

EGGI

GO

SU

B13

60C

HA

Rl,1

5,1

9,"

lFR

<>

2TIlE

NR

-R-1

,1-

1-1

,GO

T05

50R-

4IF

C-lO

TIlE

NC

-44,

I-6,

ELS

EC

-10,

1-3

GO

T05

5OIF

C-lO

TIlE

NC

-44,

1-6,

ELS

EC

-10,

1-3

GO

T06

20

(con

cmua

apd

g.24

UJ

710

no 730

740

750

760

770

780

RE

M**

*C

RE

AZ

ION

E/A

GG

IUN

TA

FIL

ES

CH

ED

E79

0G

OS

UB

1920

800

IFW

-OT

IlEN

CH

AR

1,14

,16,

"(R

VS

)IN

SE

RIR

EU

ND

ISC

OP

ER

LAC

RE

AZ

ION

ED

EL

FIL

ES

CH

ED

E(O

FF

)",E

LSE

CH

AR

1,15

,15,

"(R

VS

)IN

SE

RIR

EIL

DIS

CO

PE

RLA

AG

GIU

NT

AA

LF

ILE

SC

HE

DE

(OF

F)"

810

CH

AR

1,32

,18,

"(R

VS

)PR

EM

IU

NT

AS

TO

(OF

F)"

820

GE

TI<

EY

A$

830

CH

AR

1,14

,16,

"A

R1,

32,1

8,"

840

CO

LOR

5,12

850

CH

AR

1.32

,8,

"(R

VS

)IN

SE

RIM

EN

TO

DA

TI

(OF

F)

"85

0C

OLO

RS

,787

0I-

O,S

W-O

880

DO

UN

TIL

SW

-189

01-

I+l.L

-O,S

W-O

900

PR

INT

"(H

OM

E)l

DO

WN

)lD

OW

N)l

DO

WN

)lD

OW

N)(

DO

WN

)(D

OW

N)(

DO

WN

)(D

OW

N)lD

OW

N)l

DO

WN

)(D

OW

N)

(DO

WN

)(D

OW

N)(

DO

WN

)(D

OW

N)(

DO

WN

)(D

OW

N)

910

PR

INT

"I

l"92

0P

RIN

T"

IN

UM

ER

Ol''

930

PR

INT

"I

t-----

----.

"94

0P

RIN

T"

~--

----

--~

'"95

0P

RIN

T"

Il"

960

PR

INT

"~

~--

---~

---'"

970

CH

AR

I.40

.Il

."

.----

----

--98

0C

HA

RI.

40.1

2."l

,..

---

----

----

--99

0C

HA

R1.

40,1

3,"I

I,--

----

----

1000

CH

AR

1,40

,14,

"111

CA

RT

ELL

A,

l"10

10C

HA

R1,

40,1

5,"1

11l"

1020

CH

AR

1.40

,16,

"111

'"10

30C

HA

R1.

40,1

7,"1

11l"

1040

CH

AR

1,40

,18

,"1

11,"

1050

CH

AR

1.40

,19,

"'I

Il''

1050

CH

AR

1,40

,20,

""

'"10

70C

HA

R1.

40,

21."

'"10

80LU

-210

90G

OS

UB

1210

,GO

SU

B12

90,IF

SW

-1T

IlEN

LOO

P,G

OS

UB

1S70

,GO

T02

2011

00C

HA

R1,

44,1

6,IP

$,H

-44

1110

FO

RJ-

lT05

1120

GO

SU

B12

10,G

OS

UB

1290

,H-H

+3.

CH

AR

1.H

,16.

1PS

1130

NE

XT

J11

40H

-41

1150

FO

RJ-

1T

0511

60G

OS

UB

1210

,GO

SU

B12

90,H

-H+

3,C

HA

R1

,H,

18,IP

$11

70N

EX

TJ

1180

LU-8

,CH

AR

1,7

,19,

"CO

DIC

E"

,GO

SU

B12

10,G

OS

UB

1320

,C

HA

R1,

44,

20,

IP$

1190

GO

SU

B20

5012

00LO

OP

1210

RE

M**

*R

OU

TIN

ED

IIN

PU

T**

*12

20X

-15,

Y-1

9,G

OS

UB

1420

,B-V

AL(

IP$)

1230

IFIP

S-"

"TIlE

NS

W-1

,R

ET

UR

N12

40E

R$-

"VA

BE

NE

(S/N

)?",

GO

SU

B13

4012

50G

ET

KE

YA

$12

50IF

A$-

"N"T

IlEN

GO

SU

B13

80,G

OT

0122

012

70R

ET

UR

N12

8012

90L-

L+1,

VA

(I,L

)-B

-13

00G

OS

UB

1380

,RE

TU

RN

1310

1320

T$(

I)-I

P$

1330

GO

SU

B13

80,R

ET

UR

N13

40R

EM**

*C

AN

CEL

LA13

50P

RIN

T"

(HO

ME

)lD

OW

N)(

DO

WN

)lDO

WN

)(D

OW

N)(

DO

WN

)lDO

WN

)lD

OW

N)l

DO

WN

)lD

OW

N)(

DO

WN

)(D

OW

N)(

DO

WN

)(D

OW

N)(

DO

WN

)(D

OW

N)(

DO

WN

)(D

OW

N)(

DO

WN

)(D

OW

N)(D

OW

N)lD

OW

N)(

DO

WN

)(R

GH

T)

(RG

HT

)(R

GH

T)

(RG

HT

)(R

GH

T)

(RG

HT

)(R

GH

T)

(RG

HT

)(R

GH

T)

(RG

HT

)(R

GH

T)

(RG

HT

)(R

GH

T)"

,ER

$,R

ET

UR

N13

50E

R$-

"",

GO

SU

B13

50,R

ET

UR

N'

1370

1380

1390

1400

SU

PE

R

VIS

UA

LIZ

ZA

SC

HE

DE

(OF

F

FlN

E(O

FF

)"

CR

EA

ZIO

NE

FIL

ES

CH

ED

E

BIN

GO

L'9

0Q

UO

TID

IAN

O

290

PR

INT

"(U

P)

(UP

)(U

P)

(UP

)(R

VS

)B

ING

OL

'90(

OF

F)"

300

PR

INT

"(R

VS

))" 31

032

033

0

PR

INT

"(R

VS

)C

OLO

R5,

12P

RIN

T"

(DO

WN

)(D

OW

N)(

RV

S)

----

----

----

(OF

F)

"

<.o <.o O N W <.o~ () 3 Ci Ò () o 3 u c ~ :::J <.o N <.O <D :::J :::J Q) 6

Page 3: S O F T W A R E(QJ~ll~~-----a · un Commodore 128 corredato di disk drive e monitor in 80 colonne. Avviato il programma, dopo la fase di presentazione, si giunge al menu prin- ...

REM

***

CONT

ROLL

OVI

TIO

RIA

***

J-O

DO

UN

TIL

J-35

J-J+

!IF

VA

(I.L

)-V

(J)T

IiEN

LE-L

E+

l:J-3

5LO

OP

RE

11JR

N

REM

***

VISU

AL

SCH

EDA

._•.

GO

SU

BI9

20C

HA

R1.

40.

11•.

.r,

--------

~

CH

AR

1.40

,12,

..I

,~--

----

--~

CH

AR

1.40

,13

."I

lr,

--------

~C

HA

R1,

40,1

4,"1

11C

AR

TE

LLA

l''C

HA

R1.

40,

15,.

.II

II.

.C

HA

R1,

40.1

6,"1

11l''

CH

AR

1.40

.17,

"111

l''C

HA

R1.

40.1

8."1

11l''

CH

AR

1.40

.19.

"'11

l''C

HA

R1.

40•2

0."

,I

I..

CH

AR

1.40

.21.

..,"

IPS

-ST

RS

(I)

,CH

AR

1.56

.14.

IPS

H-4

0F

OR

L-1T

06,

IPS

-ST

RS

(VA

(I.

L))

,H-H

+3,

CH

AR

l.H.

16.

IPS

,N

EX

TH

-40

FO

RL-

7T01

2,IP

S-S

TR

S(V

A(

I.L»

,H-H

+3,

CH

AR

1.H

.18.

IPS

,NE

XT

IPS

-TS

(I)

,CH

AR

1.44

.20

.IP

SR

E11

JRN

018,

-n

~~ ~ :J

J m

SCHE

DE**

*

L-L+

!,V

A(I

.L

)-M

L-L+

l,VA

(I.L

)-N

L-L+

1,V

A(I

.L)

-OL-

L+!

,VA

ll.

L)-P

L-L+

!,V

A(I

.L)-

QL-

L+l

,VA

(I.L

)-R

T$

(I)

-SS

RE

TU

RN

RE

M••

•V

ER

IFIC

AG

OS

UB

3120

,LE

-OF

OR

L-1T

012

GO

SU

B30

40N

EX

TG

OS

UB

3330

RE

TU

RN

2870

2880

2890

2900

2910

2920

2930

2940

2950

2960

2970

2980

2990

3000

3010

3020

3030

3040

3050

3060

3070

3080

3090

3100

3110

3120

3130

3140

3150

3160

3170

3180

3190

3200

3210

3220

3230

3240

3250

3260

3270

3280

3290

3300

3310

3320

3330

RE

M••

•R

ISU

LTA

TO

QU

OT

IDIA

NO

3340

RS

-ST

RS

(LE

)33

50C

HA

R1.

2.12

."R

ISU

LTA

TO

QU

OT

IDIA

NO

,"+

RS

3360

IFLE

<7

TIiE

NC

HA

R1.

2.14

."P

EC

CA

TO

NO

NH

AI

VIN

TO

",C

HA

R1.

2.16

."P

RE

MI

UN

TA

ST

O",

GE

TK

EY

AS,

RE

TU

RN

3370

CH

AR

1.2.

14.

"CO

MP

LIM

EN

TI

VIN

CIT

OR

E"

3380

CH

AR

1.2

.16.

"BIN

GO

L'9

0S

OR

PR

ES

A(S

IN)"

3390

GE

TI<

EY

AS

3400

IFA

S-"

N"T

IiEN

RE

TU

RN

3410

CS

-MID

S(T

S(I

).7

.1)

,DS

-MID

S(T

S{I

).8

.Il34

20C

HA

R1.

2.16

•..

3430

PR

INT

"(H

OM

E)(

DO

WN

)(D

OW

N)(D

OW

N)(

DO

WN

)(oO

WN

)(D

OW

N)(

oOW

N)(

DO

WN

)(O

OW

N)(D

OW

N)(

00W

N)(

oOW

N)(

DO

WN

)(DO

WN

)(D

OW

N)(D

OW

N)(

oOW

N)

3440

PR

INT

"I

l''34

50P

RIN

T"

IN

UM

ER

Ol''

3460

PR

INT

"I

I~----

3470

PR

INT

"~

----

----

~l''

3480

PR

INT

"I

l''34

90P

RIN

T"

,..

3500

LU-2

,TT

-035

10C

HA

R1.

7.19

."C

OD

."+

CS

3520

GO

SU

B12

10,T

T-T

T+

B,G

OS

UB

1380

3530

CH

AR

1.7.

19."

CO

D.

"+D

S35

40G

OS

UB

1210

,TT

-TT

+B

,GO

SU

B13

8035

50F

OR

K-1

T06

,CS

-MID

S(T

$(I)

.K.Il

,C-V

AL(

CS

),T

T-T

T+

C,N

EX

T35

60F

OR

K-1

7T02

3,C

HA

R1.

2.K

."",

NE

XT

3570

GS

-ST

RS

(TT

),C

HA

R1.

2.16

."R

ISU

LTA

TO

BIN

GO

L'9

0S

OR

PR

ES

A,

"+G

S35

80IF

TT

-90

TIiE

NC

HA

R1.

2.18

."C

OM

PLI

ME

NT

ID

OP

PIA

VIT

TO

RIA

",E

LSE

CH

AR

1.2,

18.

"PE

CC

AT

ON

ON

HA

IV

INT

OLA

SO

RP

RE

SA

"35

90C

HA

R1.

2.20

."P

RE

MI

UN

TA

ST

O"

3600

GE

TI<

EY

AS

3610

RE

TU

RN

1410

,14

20R

EM

••111

'V

AL

OR

EIN

PlIT

1t*

1r

1430

XS

-"(H

OM

E)(

RG

lIT)

(RG

lIT)

(RG

lIT)

(RG

lIT)

(RG

lIT)

(RG

lIT)

(RG

lIT)

(RG

lIT)

(RG

lIT)

(RG

lIT)

(RG

lIT)

(RG

lIT)

(RG

lIT)

(RG

lIT)

(RG

lIT)

(RG

lIT)

(RG

lIT)

(RG

lIT)

(RG

lIT)

(RG

lIT)

(RG

lIT)

(RG

lIT)

(RG

lIT)

(RG

lIT)

(R

GlIT

)(R

GlIT

)(R

GlIT

)(R

GlIT

)(R

GlIT

)(R

GlIT

)(R

GlIT

)(R

GlIT

)(R

GlIT

)(R

GlIT

)(R

GlIT

)(R

GlIT

)..

,YS

-"(D

OW

N)(

DO

WN

)(DO

WN

)(D

OW

N)(o

OW

N)(

DO

WN

)(DO

WN

)(D

OW

N)(D

OW

N)(

DO

WN

)(DO

WN

)(D

OW

N)(D

OW

N)(D

OW

N)

(DO

WN

)(DO

WN

)(O

OW

N)(D

OW

N)(

DO

WN

)(DO

WN

)(DO

WN

)(DO

WN

)..14

40P

RIN

TLE

FT

$(X

S.X

+1)

LEIT

S(Y

S.Y

),14

50,L

K-O

dPS

-...

.14

60P

RIN

T"_

(LE

FT

)",

1470

GE

TI<

EY

AS

1480

IFA

SC

(AS

)-1

3TIiE

NP

RIN

T"

",R

E11

JRN

1490

lFA

SC

(AS

)-2

0AN

DLK

<>

OT

IiEN

LK-L

K-1

,IP

S-L

EF

T$

(lPS

.LK

),P

RIN

T"

(LE

FT

)(L

EF

T)

",,G

OT

0146

015

00lF

AS

C(A

S)

-20A

ND

LK-O

TIiE

N14

6015

10A

S-A

SC

(AS

)15

20IF

AS

-170

RA

S-1

450R

AS

-157

0RA

S-2

90R

AS

-147

TIiE

NI4

6015

30IF

LK-L

UT

HE

NG

OT

0146

015

40P

RIN

TA

S;,

LK-L

K+

1,IP

S-I

PS

+A

S,

IFLU

-1T

IiEN

PO

KE

842

.13,

PO

KE

208.

115

50G

OT

0146

015

6015

70R

EM

***

SC

RIT

nlR

AS

CH

ED

E••

•15

80C

RS

-CH

RS(

13)

1590

FO

RH

-9T

023

1600

CH

AR

1.0.

H."

1610

NE

XT

1620

IFW

-OT

IiEN

DO

PE

N*2

."~

FlL

ES

CH

ED

E".

DO

.U8.

W,E

LSE

AP

PE

ND

*2.

"FIL

ES

CH

ED

E".

DO

.U8

1630

GO

SU

B21

1016

40G

OS

UB

1980

1650

I-O

1660

DO

UN

TIL

l-50

1670

1-1+

1,L-

016

80G

OS

UB

1730

1690

LOO

P17

00D

CLO

SE

*2,G

OS

UB

1920

1710

lFW

-OT

IiEN

W2-

1,E

LSE

W2-

0,R

ET

UR

N17

20,

1730

RE

M._

.TR

AS

FER

IME

NTI

1740

L-L+

1,C

-VA

(I.L

)17

50IF

C-O

TIiE

NI-

50,

RE

11JR

N17

60L-

L+1

,D-V

A(l.

L)17

70L-

L+1,

E-V

A(I

.L)

1780

L-L+

1,F

-VA

(I.L

)17

90L-

L+!

,G-V

A(I

.L)

1800

L-L+

1,H

-VA

(I.L

)18

10L-

L+1,

M-V

A(I

.L)

1820

L-L+

1,N

-VA

(I.L

)18

30L-

L+1,

0-V

A(I

.L)

1840

L-L+

1,P

-VA

(I.L

)18

50L-

L+l:Q

-VA

(I.L

)18

60L-

L+1,

R-V

A(I

.L)

1870

SS

-TS

(I)

1880

PR

INT

*2.C

;CR

S;D

;CR

S;E

;CR

S;F

;CR

S;G

,CR

S;H

;CR

S;M

,CR

S;N

;CR

S;O

;CR

S;P

,CR

S,Q

,CR

S;R

;CR

S;S

S18

90G

OS

UB

2110

1900

RE

11JR

N19

1019

20RE

M.*.

CLEA

RSC

HERM

O**

*19

30F

OR

K-9

T02

319

40C

HA

R1.

0.K

."

1950

NE

XT

1960

RE

TU

RN

1970

1980

RE

M**

*W

AIT

***

1990

GO

SU

Bl9

2020

00C

HA

R1.

31.1

6•.

.(R

VS

)SC

RIT

TU

RA

SC

HE

DE

,(O

FF

)..

2010

CH

AR

1.35

.18

•..

(RV

S)

AT

TE

ND

ER

E(O

FF

)..

2020

RE

TU

RN

2030

,20

40R

EM.,.

*..

CO

NFE

RM

A•.•

.•.20

50E

RS

-"C

ON

FE

RM

I(S

IN)"

,GO

SU

B13

4020

60G

ET

KE

YA

S20

70G

OS

UB

1360

2080

lFA

S-"

N"T

IiEN

I-I-

120

90R

ET

UR

N21

00

(seg

ueda

pago

239)

(Q C1l ::J ::J Cl Cif'J .,. o (O (O O~ o 3 n' Ò () o 3 -o c ~ ::J (O f'J

Page 4: S O F T W A R E(QJ~ll~~-----a · un Commodore 128 corredato di disk drive e monitor in 80 colonne. Avviato il programma, dopo la fase di presentazione, si giunge al menu prin- ...

REM

***

VISU

ALSC

HEDE

***

GO

SU

B19

20C

OLO

R5,

12,

CH

AR

1,29

,8,

"(R

VS

)V

ISU

ALI

ZZ

AZ

ION

ES

CH

ED

E(O

FF

)",

CO

LOR

5,7

IFW

2-0

TH

EN

GO

SU

B24

80,G

OS

UB

2620

FO

RI-

lTO

NC

GO

SU

B31

20,C

HA

R1,

2,16

,"P

RE

MI

UN

TA

ST

O",

GE

TK

EY

AS

NE

XT

W2-

1,G

OT

O22

0

U1

O -n0

~M

eN

»

RE

AD

Y,

00::IJ m

VA

LOR

IS

ET

TlM

AN

A(O

FF

)",C

OLO

R5,

7

SETT

IMA

NA

LE••

*

VS

(I)-

IPS

GO

SU

B13

80R

ET

UR

N

REM

***

BIN

GO

LSE

TI'IM

AN

A.L

E**

*C

OLO

R5,

12,C

HA

RI,2

6,8,

"(R

VS

)IN

SE

RIM

EN

TO

GO

SU

Bl9

20G

OS

UB

3820

IFW

2-0

TH

EN

GO

SU

B24

80,G

OS

UB

2620

I-O

FO

RI-

1TO

NC

GO

SU

B40

60,N

EX

TW

2-1

GO

T02

20

J-O

DO

UN

TIL

J-35

J-J+

1IF

VA

(l,L)

-V(J

)TH

EN

GO

SU

B42

20,J

-35

LOO

PR

ET

UR

N

REM

.•.•

."C

ON

TRO

LLO

GO

SU

B31

20LE

-OF

OR

L-1T

012

GO

SU

B41

50N

EX

TG

OS

UB

4300

RE

TU

RN

IFLE

-OT

HE

NLE

-LE

+I,D

S(L

E)-

VS

(J)

,RE

TU

RN

FL-

OF

OR

K-lT

OLE

IFC

$(K

)-V

S(J

)T

HE

NK

-LE

,F

L-1

NE

XT

IFF

L-O

TH

EN

LE-L

E+1

,D$(

LE)-

V$(

J)R

ET

UR

N

3620

3630

3640

3650

3660

3670

3680

3690

3700

3710

3720

3730

3740

3750

3760

3770

3780

3790

3800

3810

3820

RE

M••

•1N

SE

RlM

EN

TO

VA

LOR

IS

ET

T••

•38

30G

OS

UB

1920

3840

PR

INT

"(H

OM

E)(

OO

WN

)(D

OW

N)(

DO

WN

)(O

OW

N)(

DO

WN

)(D

OW

N)(

DO

WN

)(oO

WN

)(oO

WN

)(oO

WN

)(00

WN

)(D

OW

N)(

oOW

N)(

oOW

N)(

DO

WN

)(D

OW

N)(

oOW

N)

~---

----

-~"

3850

PR

INT

"1

l''38

60P

RIN

T"

1N

UM

ER

Ol"

3870

PR

INT

"1

1--

----

->"

3880

PR

INT

"~-

~---

---~

l"38

90P

RIN

T"

1l"

3900

PR

INT

"'"

3910

I-O

3920

FO

RK

-9T

015

3930

H--

1139

40F

OR

J-lT

0539

50C

S-"

",C

HA

R1,

7,19

,"N

UM

ER

O",

GO

SU

B24

00,C

S-C

S+I

PS

+"",

IFV

(I)<

IOT

HE

NC

S-C

S+"

"39

60LU

-8,C

HA

R1,

7,19

,"C

ITT

A'

",G

OS

UB

1210

,GO

SU

B40

20,C

S-C

S+I

PS

,H-

H+l

5,C

HA

R1,

H,K

,CS

3970

NE

XT

J39

80N

EX

TK

3990

l-l,G

OS

UB

2040

,IF

I-O

TH

EN

3830

4000

RE

TU

RN

4010

4020

4030

4040

4050

4060

4070

4080

4090

4100

4110

4120

4130

4140

4150

4160

4170

4180

4190

4200

4210

4220

4230

4240

4250

4260

4270

4280

4290

4300

RE

M••

•R

ISU

LTA

TO

SE

TT

IMA

NA

LE••

•43

10R

S-S

TR

S(L

E)

4320

CH

AR

1,2

,12,

"RIS

ULT

AT

OS

ET

TIM

AN

ALE

,"+

RS

4330

IFLE

<7T

HE

NC

HA

R1.

2,14

,"P

EC

CA

TO

NO

NH

AI

VIN

TO

",C

HA

R1,

2,16

,"P

RE

MI

UN

TA

ST

O",

GE

TK

EY

AS

,R

ET

UR

N43

40C

HA

R1,

2,14

,"C

OM

PLI

ME

NT

IH

AI

VIN

TO

!"43

50C

HA

R1,

2,1

6,"P

RE

MI

UN

TA

ST

O",

GE

TK

EY

AS

,RE

TU

RN

2110

RE

M••

•C

ON

TR

OLL

OE

RR

OR

ES

/R21

20IF

DS

>OT

HE

NP

RIN

TD

SS

,ST

OP

2130

RE

TU

RN

2140

2150

RE

M••

•B

ING

OL

'90

QU

OT

IDIA

NO

2160

CO

LOR

5,12

2170

CH

AR

1.28

,8,

"(R

VS

)IN

SE

RIM

EN

TO

VA

LOR

IG

IOR

NO(

OF

F)

"21

80C

OLO

R5,

721

90P

RIN

T"

(HO

ME

)(D

OW

N)(

DO

WN

)(D

OW

N)(

DO

WN

)(D

OW

N)(

DO

WN

)(D

OW

N)(

DO

WN

)(oO

WN

)(D

OW

N)(

00W

N)(

OO

WN

)(D

OW

N)(

DO

WN

)(O

OW

N)(

DO

WN

)(D

OW

N)

2200

PR

INT

"1

l''22

10P

RIN

T"

IN

UM

ER

Ol''

2220

PR

INT

"1

~I--

--22

30P

RIN

T"

~---

----

-~l''

2240

PR

INT

"1

l"22

50P

RIN

T"

'"22

60H

-13,

I-0

2270

FO

RJ-

lT01

222

80G

OS

UB

2400

,H-H

+4,C

HA

R1,

H,1

1,IP

S22

90N

EX

T23

00H

-l323

10F

OR

J-1T

012

2320

GO

SU

B24

00,H

-H+4

,CH

AR

1,H

,13,

IPS

2330

NE

XT

2340

H-l3

2350

FO

RJ-

lT01

123

60G

OS

UB

2400

,H-H

+4,C

HA

R1,

H,1

5,IP

S23

70N

EX

T23

80l-l

,GO

SU

B20

40,

IFI-

OT

HE

NG

OS

UB

l920

,G

OT

0219

023

9o

GO

T02

510

2400

RE

M•.

••.•

INP

lff

***

2410

X-1

7,Y

-19,

LU-2

,GO

SU

B14

2024

20E

RS

-"V

AB

EN

E(S

/N)?

",G

OS

UB

1340

2430

GE

TK

EY

AS

2440

IFA

S-"

N"T

HE

NG

OS

UB

1380

,GO

T02

410

2450

1-1+

1,V

(l)-V

AL(

IPS

)24

60G

OS

UB

1380

,RE

TU

RN

2470

2480

RE

M**

-W

AIT

2**

*24

90G

OS

UB

1920

,C

HA

R1,

32,1

6,"

(RV

S)

LET

TU

RA

SC

HE

DE

,(O

FF

)",

CH

AR

1,35

,18,

"(R

VS

)A

TT

EN

DE

RE

(OF

F)

",R

ET

UR

N25

0025

10R

EM

•••

CO

NT

RO

LLO

QU

OT

IDIA

NO

•••

2520

GO

SU

B19

2025

30A

L-O

2540

IFW

2-0

TH

EN

GO

SU

B24

80,G

OS

UB

2620

2550

I-O

2560

FO

RI-

1TO

NC

2570

GO

SU

B29

6025

80N

EX

T25

90W

2-1

2600

GO

T02

2026

1026

20R

EM

•••

LET

TU

RA

SC

HE

DE

2630

DO

PE

Nt2

,"F

ILE

SC

HE

DE

"26

40G

OS

UB

2110

2650

LS-O

2660

I-O

2670

DO

UN

TIL

LS-1

2680

1-1+

126

90IN

PU

Tt2

,C,D

,E,F

,G,H

,M,N

,O,P

,Q,R

,SS

2700

RS

-ST

2710

GO

SU

B21

1027

20L-

O27

30G

OS

UB

2800

2740

IFR

S-6

4TH

EN

LS-1

2750

LOO

P27

60D

CLO

SE

t227

70N

C-I

2780

RE

TU

RN

2790

2800

RE

M••

•C

AR

ICA

SC

HE

DA

2810

L-L+

1,V

A(I

,L)-

C28

20L-

L+l.V

A(I

.L)-

D28

30L-

L+1,

VA

(I,L

)-E

2840

L-L+

1,V

A(I

,L)-

F28

50L-

L+1,

VA

(I,L

)-G

2860

L-L+

1,V

A(I

,L)-

H

N ~ ~(Cl

(1) ::J ::J Q) 6 ~ (D (D o$: n 3 ('i' o () o 3 D c ~ ::J (D N

Page 5: S O F T W A R E(QJ~ll~~-----a · un Commodore 128 corredato di disk drive e monitor in 80 colonne. Avviato il programma, dopo la fase di presentazione, si giunge al menu prin- ...

ANDROMEDA SRL - Via Umbria,16 - 42100 REGGIO EMILIA - Tel. (0522) 511212 - Tlx. 532317 - Fax (0522) 513404