_____ 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
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
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
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
ANDROMEDA SRL - Via Umbria,16 - 42100 REGGIO EMILIA - Tel. (0522) 511212 - Tlx. 532317 - Fax (0522) 513404
Top Related