100  REM # IMPREVISTI MELOPOLI #
110  REM # BY DINOSOFT 10/1983 #


120  REM 

INIT

130 FI$ = "I": REM IMPREVISTI
140 FX$ = "IX": REM INDICE

150 D$ =  CHR$ (4)
160 OP$ = D$ + "OPEN"
170 WR$ = D$ + "WRITE"
180 CL$ = D$ + "CLOSE"
190  PRINT :IN = 0: REM INDICE
200  PRINT OP$FI$: PRINT OP$FX$
210  REM 

MAIN

220  RESTORE 
230 V$ =  CHR$ (34): REM "
240  FOR I = 1 TO 80
250  PRINT WR$FX$
260  PRINT IN
270  PRINT WR$FI$
280  REM 

290  READ A$
300  PRINT V$A$V$
310 IN = IN +  LEN (A$) + 3
320  READ A$
330  PRINT A$
340 IN = IN +  LEN (A$) + 1
350  READ A$
360  PRINT V$A$V$
370 IN = IN +  LEN (A$) + 3
380  READ A$
390  PRINT A$
400 IN = IN +  LEN (A$) + 1
410  READ A$
420  PRINT A$
430 IN = IN +  LEN (A$) + 1
440  NEXT 
450  PRINT CL$
460  END 
470  REM 

DATA

480  REM 50 ENTRY:

490  REM STRINGA DA STAMPARE
500  REM LIRE DA PAG/INCASS
510  REM MUSICA DA SUONARE
520  REM CASELLA DESTINAZ.
530  REM N.ROUTINE SPECIALE
540  REM 
0

550  DATA "/    BEL COLPO!// Vai fino al VIA."
560  DATA 0,,1,0
570  REM 
1

580  DATA "/ FERRO DI CAVALLO// Vai fino al VIA."
590  DATA 0,,1,0 
600  REM 
2

610  DATA "/   DIMENTICANZA//  Torna indietro/  fino al VIA."
620  DATA 0,,-1,0
630  REM 
3

640  DATA "/    VENERDI 17//  Un gatto nero/  attraversa/  la tua strada."
650  DATA 0,,-2,0
660  REM 
4

670  DATA "+      RADUNO/   DEGLI ALPINI// Vai all'Ostaria/ de la vinazza."
680  DATA 0,,3,0
690  REM 
5

700  DATA "/  GARA DI PESCA// Vai alla Locanda/ al pescatore."
710  DATA 0,,9,0
720  REM 
6

730  DATA "+   LA FAMIGLIA/   IN VACANZA//Vai alla Pensione/zia Marta."
740  DATA 0,,14,0
750  REM 
7

760  DATA "/ VIAGGIO D'AFFARI// Vai al Motel/ dell'Autosole."
770  DATA 0,,19,0
780  REM 
8

790  DATA "+     GITA SUL/  LAGO DI GARDA// Vai all'albergo/ Miralago.
800  DATA 0,,23,0
810  REM 
9

820  DATA "/ ASPETTI UN AMICO// Vai all'Hotel/ della stazione."
830  DATA 0,,28,0
840  REM 
10

850  DATA "+    CONFERENZA/    DELL'OPEC//  Vai all'Hotel/  Principe."
860  DATA 0,,33,0
870  REM 
11

880  DATA "/  CALCIOMERCATO// Vai all'Hilton."
890  DATA 0,,39,0
900  REM 
12

910  DATA "/ LICENZA SCADUTA// Vai a rinnovarla/ al Ministero."
920  DATA 0,,21,0
930  REM 
13

940  DATA "+     DECRETO// In base al D.M./ 4832 del 3.9.1914/ comma 27, vai/ al Ministero."
950  DATA 0,,21,0
960  REM 
14

970  DATA "/   COFFEE BREAK//  Vai al bar per/  un buon caffe'."
980  DATA 0,,11,0
990  REM 
15

1000  DATA "/   LO SPUNTINO//  Vai al bar per/  la colazione."
1010  DATA 0,,11,0 
1020  REM 
16

1030  DATA "+     COMITIVA//Un pullman scarica/un gruppo di/turisti americani./+INCASSO: 25000"
1040  DATA 25000,,0,0
1050  REM 
17

1060  DATA "+     COMITIVA//Un pullman scarica/un gruppo di/turisti tedeschi./+INCASSO: 10000"
1070  DATA 10000,,0,0
1080  REM 
18

1090  DATA "+     COMITIVA//Un pullman scarica/un gruppo di/turisti scozzesi./+INCASSO: 2000"
1100  DATA 2000,,0,0
1110  REM 
19

1120  DATA "+ISPEZIONE FISCALE//Da un esame dei/registri risulta/un'irregolarita'/+MULTA: 15000"
1130  DATA -15000,,0,0
1140  REM 
20

1150  DATA "+ISPEZIONE FISCALE//Da un esame dei/registri risulta/tutto regolare."
1160  DATA 0,,0,0
1170  REM 
21

1180  DATA "+ LO ZIO D'AMERICA//muore e ti lascia/le azioni dei suoi/pozzi petroliferi./+GUADAGNO: 20000"
1190  DATA 20000,,0,0
1200  REM 
22

1210  DATA "+ LO ZIO D'AMERICA//muore e ti lascia/la foto della sua/mucca preferita."
1220  DATA 0,,0,0
1230  REM 
23

1240  DATA "+ LO ZIO D'AMERICA//muore e ti lascia/le sue cambiali/da pagare./+IMPORTO: 10000"
1250  DATA -10000,,0,0
1260  REM 
24

1270  DATA "+    TOTOCALCIO// Hai giocato con/ gli amici e/ hai fatto 12./+ VINCITA: 5000"
1280  DATA 5000,,0,0
1290  REM 
25

1300  DATA "+    TOTOCALCIO// Hai giocato con/ gli amici e/ hai fatto 13./+ VINCITA: 18000"
1310  DATA 18000,,0,0
1320  REM 
26

1330  DATA "+    TOTOCALCIO// Hai giocato con/ gli amici e/ hai fatto 11./+ SCHEDINA: 2000"
1340  DATA -2000,,0,0
1350  REM 
27

1360  DATA "+   RACCOMANDATO// dal Touring Club:/ vengono da te/ molti turisti./+ UTILE: 6000"
1370  DATA 6000,,0,0
1380  REM 
28

1390  DATA "+*** TRE STELLE ***// sulla Michelin:/ vengono da te/ molti buongustai./+ UTILE: 9000"
1400  DATA 9000,,0,0
1410  REM 
29

1420  DATA "/    UNA TANTUM//Pro Ente Invalidi/Guerre Puniche./+PAGA: 12000"
1430  DATA -12000,,0,0
1440  REM 
30

1450  DATA "/    UNA TANTUM// Ente Abolizione/ Enti Inutili./+ PAGA: 18000"
1460  DATA -18000,,0,0
1470  REM 
31

1480  DATA "+     RIMBORSO// IVA eccedente/ pagata nel 1958/+ IMPORTO: 7000"
1490  DATA 7000,,0,0
1500  REM 
32

1510  DATA "+     RIMBORSO// Danni di guerra/ subiti nel 1917/+ IMPORTO: 1000"
1520  DATA 1000,,0,0
1530  REM 
33

1540  DATA "+     RIMBORSO//  Assicurazione/  per incendio/+  IMPORTO: 16500"
1550  DATA 16500,,0,0
1560  REM 
34

1570  DATA "+     LOTTERIA//Il cavallo del/tuo biglietto/ha vinto la corsa./+VINCITA: 21000"
1580  DATA 21000,,0,0
1590  REM 
35

1600  DATA "+     LOTTERIA//Il cavallo del/tuo biglietto/ha vinto la corsa/ma e' stato/squalificato."
1610  DATA 0,,0,0
1620  REM 
36

1630  DATA "/ GRANDE CONCERTO//Paghi l'orchestra./+CONTO: 7000"
1640  DATA -7000,,0,0
1650  REM 
37

1660  DATA "/   SALA GIOCHI//Fai ottimi affari./+INCASSO: 4500"
1670  DATA 4500,,0,0
1680  REM 
38

1690  DATA "+   RENDITA BOT//La banca ti paga/la rendita dei tuoi/Buoni del Tesoro./+INCASSO: 3500"
1700  DATA 3500,,0,0
1710  REM 
39

1720  DATA "/   SALA GIOCHI// Ti diverti molto/ con i video-game.// Fermo un giro."
1730  DATA 0,,0,1
1740  REM 
40

1750  DATA "/  SENZA BENZINA//  Spingi, spingi,/  passa un giro."
1760  DATA 0,,0,1
1770  REM 
41

1780  DATA "/    IL CONDONO//Se hai debiti,/ti sono condonati."
1790  DATA 0,,0,2
1800  REM 
42

1810  DATA "/    IL CONDONO//Se hai debiti,/ti sono condonati."
1820  DATA 0,,0,2
1830  REM 
43

1840  DATA "+   TASSA SUGLI/     ALBERGHI//  Paga 5000 per/  ogni albergo/  che possiedi."
1850  DATA -5000,,0,3
1860  REM 
44

1870  DATA "+   TASSA SUGLI/    ACCESSORI// Paga 2000 per/ ogni accessorio/ dei tuoi alberghi."
1880  DATA -2000,,0,4
1890  REM 
45

1900  DATA "+    VERSAMENTO/      IRPEF//  Paga il 25%/  dei tuoi soldi."
1910  DATA .25,,0,5
1920  REM 
46

1930  DATA "+    VERSAMENTO/       IVA//  Paga il 18%/  dei tuoi soldi."
1940  DATA .18,,0,5
1950  REM 
47

1960  DATA "/   LA SCOMMESSA// Hai vinto:/ incassa 25000/ da un giocatore/ a tua scelta."
1970  DATA 25000,,0,6
1980  REM 
48

1990  DATA "/   LA SCOMMESSA//  Hai perso:/  paga 25000/  a un giocatore/  di tua scelta."
2000  DATA -25000,,0,6
2010  REM 
49

2020  DATA "/    PASSAPORTO//Vai nella casella/che piu' ti piace."
2030  DATA 0,,0,7
2040  REM 
50

2050  DATA "/    PASSAPORTO//Vai nella casella/che piu' ti piace."
2060  DATA 0,,0,7
2070  REM 
51

2080  DATA "/    PASSAPORTO//Vai nella casella/che piu' ti piace."
2090  DATA 0,,0,7
2100  REM 
52

2110  DATA "/    PASSAPORTO//Vai nella casella/che piu' ti piace."
2120  DATA 0,,0,7
2130  REM 
53

2140  DATA "/    PASSAPORTO//Vai nella casella/che piu' ti piace."
2150  DATA 0,,0,7
2160  REM 
54

2170  DATA "/    PASSAPORTO//Vai nella casella/che piu' ti piace."
2180  DATA 0,,0,7
2190  REM 
55

2200  DATA "/    PASSAPORTO//Vai nella casella/che piu' ti piace."
2210  DATA 0,,0,7
2220  REM 
56

2230  DATA "/    PASSAPORTO//Vai nella casella/che piu' ti piace."
2240  DATA 0,,0,7
2250  REM 
57

2260  DATA "/    PASSAPORTO//Vai nella casella/che piu' ti piace."
2270  DATA 0,,0,7
2280  REM 
58

2290  DATA "/    PASSAPORTO//Vai nella casella/che piu' ti piace."
2300  DATA 0,,0,7
2310  REM 
59

2320  DATA "+ PRANZO DI NOZZE//  Gli invitati/  affollano la/  sala./+  INCASSO: 3300"
2330  DATA 3300,,0,0
2340  REM 
60

2350  DATA "     FESTA DI/    COMPLEANNO//  Gli amici si/  abbuffano/  senza ritegno./+  INCASSO: 2400"
2360  DATA 2400,,0,0
2370  REM 
61

2380  DATA "+     SERVIZIO/    ECCELLENTE// Il cliente e'/ molto contento./+ MANCIA: 2500"
2390  DATA 2500,,0,0
2400  REM 
62

2410  DATA "/ LA FATTUCCHIERA// Ti ha lanciato/ il malocchio."
2420  DATA 0,,-2,0
2430  REM 
63

2440  DATA "/   DIETRO-FRONT// Inverti il tuo/ senso di marcia."
2450  DATA 0,,0,8
2460  REM 
64

2470  DATA "/   DIETRO-FRONT// Inverti il tuo/ senso di marcia."
2480  DATA 0,,0,8
2490  REM 
65

2500  DATA "/    L'UBRIACO//si compra ancora/un'altra bottiglia//INCASSO: 900"
2510  DATA 900,,0,0
2520  REM 
66

2530  DATA "+   PRENOTAZIONE// La famiglia/ Rossi prenota/ la solita stanza/+ CAPARRA: 2400"
2540  DATA 2400,,0,0
2550  REM 
67

2560  DATA "/    LA PARTITA//   Naturalmente/   a MELOPOLI./+   Fermo un giro."
2570  DATA 0,,0,1
2580  REM 
68

2590  DATA "+  GIOCA LA JUVE//  Il tuo albergo/  e' affollato/  dai tifosi./+  INCASSO: 5800"
2600  DATA 5800,,0,0
2610  REM 
69

2620  DATA "/  LUNGO VIAGGIO// Vai a prenotare/ una cuccetta/ delle FS."
2630  DATA 0,,4,0
2640  REM 
70

2650  DATA "/     VIAGGIO/   NEGLI STATES//  su un DC-9/  dell'Alitalia."
2660  DATA 0,,15,0
2670  REM 
71

2680  DATA "/  MACCHINA NUOVA//  Vai subito/  a provarla/  in autostrada."
2690  DATA 0,,24,0
2700  REM 
72

2710  DATA "/    SETTIMANA/ ALL'ISOLA D'ELBA// Vai a prendere/ il traghetto."
2720  DATA 0,,35,0
2730  REM 
73

2740  DATA "+      SAFARI/    FOTOGRAFICO//   organizzato/   dall'agenzia/   Mondovai."
2750  DATA 0,,6,0
2760  REM 
74

2770  DATA "+     TREKKING/   IN PATAGONIA//   Un programma/   dell'agenzia/   Globotour."
2780  DATA 0,,30,0
2790  REM 
75

2800  DATA "/      CHIODI/   SULL'ASFALTO//  Buchi 2 gomme./  Fermo 2 giri."
2810  DATA 0,,-2,9
2820  REM 
76

2830  DATA "/    IL CONDONO//Se hai debiti,/ti sono condonati."
2840  DATA 0,,0,2
2850  REM 
77

2860  DATA "/    IL CONDONO//Se hai debiti,/ti sono condonati."
2870  DATA 0,,0,2
2880  REM 
78

2890  DATA "+    AVVENTURA/  NEL CASTELLO!// Giochi per/ tutta la notte./ Fermo un giro."
2900  DATA 0,,0,1
2910  REM 
79

2920  DATA "/     CASTELLI/     DI SABBIA//   Vai alla Baia/   del Gambero."
2930  DATA 0,,31,0