100  REM 


## MELOVAR ##


110  REM CREA VARIABILI
120  REM PER MELOPOLI

130  REM DINOSOFT 8/83


140  HIMEM: 34048: REM $8500
150  LOMEM: 29440: REM $7300
160  REM 

DOS

170 D$ =  CHR$ (4)
180 OP$ = D$ + "OPEN"
190 RD$ = D$ + "READ"
200 WR$ = D$ + "WRITE"
210 CL$ = D$ + "CLOSE"
220 VE$ = D$ + "VERIFY"
230 ER = 29168: REM ERR ROUTINE
240 FI$ = "I" + "": REM IMPREV.
250 BR$ = D$ + "RUN GAME"
260  REM 

HRCG

270 BS$ =  CHR$ (8)
280 CR$ =  CHR$ (13)
290 HI$ =  CHR$ (9): REM INVERSE
300 HN$ =  CHR$ (14): REM NORMAL
310 HO$ =  CHR$ (15): REM OPTION
320 HT$ = HO$ +  CHR$ (20): REM  TRASP.OVERLAY
330 HR$ = HO$ +  CHR$ (18): REM  REVS OVERLAY
340 HA$ =  CHR$ (11): REM UCASE
350 HZ$ =  CHR$ (12): REM LCASE
360 HM$ =  CHR$ (19): REM SHIFT
370 HK$ =  CHR$ (5): REM CEOL
380 HB$ =  CHR$ (2): REM BLOCK
390 HC$ =  CHR$ (3): REM BLK CR
400 HU$ =  CHR$ (22): REM U.WIN
410 HL$ =  CHR$ (23): REM L.WIN
420 HF$ =  CHR$ (25): REM F.WIN
430 HH$ =  CHR$ (16): REM HOME
440 HE$ = D$: REM BLK END
450 HS$ =  CHR$ (1): REM SET
460 H0$ = HS$ + "0"
470 H1$ = HS$ + "1"
480 H2$ = HS$ + "2"
490 H3$ = HS$ + "3"
500 HX$ = HO$ +  CHR$ (25): REM  ROUTINE UTENTE
510  REM 

I/O

520 KB =  - 16384: REM KEYBOARD
530 KS =  - 16368: REM KB STRB
540 CK =  - 16336: REM CLICK
550 B0 =  - 16287: REM BUTTON 0
560  REM 

DADI

570  DIM DA$(6): FOR I = 1 TO 6:J = 4 * I - 4:DA$(I) = HB$ +  CHR$ (36 + J) +  CHR$ (37 + J) + HC$ +  CHR$ (38 + J) +  CHR$ (39 + J) + HE$: NEXT 
580  REM 

MUSICA

590 MU = 28928: REM MUSICA
600 NO = 28931: REM NOTA
610 DU = 28932: REM DURATA
620 TI = 28933: REM TIMBRO
630 ME = 1: REM ENABLED
640 SM$ = "4679:;=>@BDEG" + "": REM SCALA MUSICALE
650  REM 

COEFFICIENTI

660  REM ALBERGHI
670 A0 = 5: REM BASE/
680 A1 = 2.2: REM OGNI ACCESS.
690 A2 = 1.45: REM ALTRI GRUPPO
700 A3 = 1.3: REM MEZZA STAG.
710 A4 = 1.6: REM ALTA STAG.
720  REM TRASPORTI
730 T0 = 8: REM BASE/
740 T1 = 2: REM ALTRI TRASP.
750  REM AGENZIE
760 G0 = 4: REM BASE/
770 G1 = 4: REM ALTRA AG.
780  REM VIA!
790 V0 = 15000: REM BASE
800 V1 = 1.4: REM MEZZA STAG.
810 V2 = 1.8: REM ALTA STAG.
820  REM ACCESSORI
830 C0 = 2: REM BASE/
840 C1 = 1.3: REM INCR.VALORE
850  REM VENDITA
860 V9 = 2 / 3: REM VALORE
870  REM 

VINCITA

880 VV = 1000000: REM BASE
890  REM 

ARRAYS

900  REM STAGIONI
910  DIM ST$(3)
920 ST$(1) = "BASSA" + ""
930 ST$(2) = "MEZZA" + ""
940 ST$(3) = "ALTA " + ""
950  REM 
960  RESTORE 
970  REM 
980  REM COORDINATE CASELLE
990  DIM CX%(40),CY%(40)
1000  FOR I = 1 TO 40
1010  READ CX%(I),CY%(I)
1020  NEXT 
1030  REM TIPO CASELLE
1040  DIM CT%(40)
1050  FOR I = 1 TO 40
1060  READ CT%(I)
1070  NEXT 
1080  REM CONTENUTO CASELLE
1090  DIM CC%(40)
1100  FOR I = 1 TO 40
1110  READ CC%(I)
1120  NEXT 
1130  REM IMMAGINI CONTENUTI
1140  DIM IC%(37)
1150  FOR I = 1 TO 37
1160  READ IC%(I)
1170  NEXT 
1180  REM PRENOMI CONTENUTI
1190  FOR I = 1 TO 9
1200  READ A$
1210 PC$(I) = A$ + ""
1220  NEXT 
1230  REM NOMI CONTENUTI
1240  DIM NC$(37)
1250  FOR I = 1 TO 37
1260  READ A$
1270 NC$(I) = A$ + ""
1280  NEXT 
1290  REM ACCESSORI
1300  DIM AC%(22,2)
1310  FOR I = 1 TO 22
1320  FOR J = 0 TO 2
1330  READ AC%(I,J)
1340  NEXT 
1350  NEXT 
1360  REM NOMI ACCESSORI
1370  DIM NA$(13)
1380  FOR I = 1 TO 13
1390  READ A$
1400 NA$(I) = A$ + ""
1410  NEXT 
1420  REM VALORE CONTENUTO
1430  DIM VC%(37)
1440  FOR I = 1 TO 31
1450  READ VC%(I)
1460  NEXT 
1470  REM GIOCATORE PROPRIETARIO
1480  DIM GC%(37)
1490  FOR I = 1 TO 28
1500 GC%(I) = 0
1510  NEXT 
1520  REM OFFSET PEDINE
1530  DIM OX%(4,5),OY%(4,5)
1540  FOR I = 0 TO 4
1550  FOR J = 0 TO 5
1560  READ OX%(I,J),OY%(I,J)
1570  NEXT : NEXT 
1580  REM 
1590  REM DATI GIOCATORI
1600  DIM NG$(6),SG%(6),LG(6),DG%(6),PG%(6),FG%(6)
1610  FOR I = 1 TO 6::SG%(I) = 0:DG%(I) = 1:PG%(I) = 1:FG%(I) = 0: NEXT 
1620  REM 
1630  REM MESSAGGI
1640  DIM ME$(55)
1650  FOR I = 0 TO 55
1660  READ A$
1670 ME$(I) = A$ + ""
1680  NEXT 
1690  REM MOTIVI
1700  DIM MO$(8)
1710  FOR I = 0 TO 8
1720  READ A$
1730 MO$(I) = A$ + ""
1740  NEXT 
1750  REM 

# DATA PER ARRAYS #

1760  REM COORD. CASELLE

1770  DATA 161,158,147,158,133,158,111,158,97,158,83,158,69,158,49,158,35,158,21,158,0,158,0,144,0,130,0,116,0,96,0,82,0,68,0,48,0,34,0,20,0,0
1780  DATA 21,0,35,0,49,0,70,0,84,0,98,0,119,0,133,0,147,0,161,0,161,20,161,34,161,48,161,62,161,82,161,96,161,110,161,130,161,144
1790  REM 
TIPO CASELLE

1800  DATA 0,1,1,0,1,1,1,0,1,1,0,2,2,2,0,2,2,0,2,2,0,3,3,0,3,3,0,3,3,3,0,4,4,4,0,4,4,0,4,4
1810  REM 
CONTENUTO CASELLE

1820  DATA 34,29,1,23,2,27,3,37,4,5,31,35,6,7,24,8,9,37,10,11,32,12,13,25,14,15,37,16,17,28,33,36,18,19,26,20,21,37,22,30
1830  REM 
IMMAGINI CONTENUTI

1840  DATA 1,1,2,2,2,3,3,3,4,4,4,5,5,5,6,6,6,7,7,7,8,8,10,11,12,13,9,9,14,14,15,16,17,0,0,0,0
1850  REM 
PRENOMI CONTENUTI

1860  DATA "LOCANDA/AL/","+PENSIONE/","+MOTEL/","+ALBERGO/MIRA","+HOTEL/","GRAND/HOTEL/","+SOCIETA'/","+AGENZIA/","TASSA/"
1870  REM 
NOMI CONTENUTI

1880  DATA "OSTARIA/DE LA/VINAZZA","+BETTOLA/FRATTOZZI"
1890  DATA "1TIRATARDI","1PESCATORE","1PELLEGRINO"
1900  DATA "2SERENELLA","2ZIA MARTA","2CASA MIA"
1910  DATA "3AGIP","3AUTOSOLE","3PAVESI"
1920  DATA "4VALLE","4LAGO","4MONTI"
1930  DATA "5POSTA","5STAZIONE","5DUOMO"
1940  DATA "5PRINCIPE","5PLAZA","5CRISTALLO"
1950  DATA "6EXCELSIOR","6HILTON"
1960  DATA "FERROVIE/DELLO/STATO","7ALITALIA","7AUTOSTRADE","7TIRRENIA"
1970  DATA "8MONDOVAI","8GLOBOTOUR"
1980  DATA "9SULLA/SFORTUNA","9DI/SOGGIORNO"
1990  DATA "CAFFE'/AL/TURISTA"
2000  DATA "+IL/MINISTERO//+Per ripartire/devi fare 6,10/o dadi doppi"
2010  DATA "/// Marcia indietro/ fino al via!"
2020  DATA "","","",""
2030  REM 
ACCESSORI

2040  DATA 1,2,3,1,2,3,3,4,5,3,4,5,3,4,5,5,4,6,5,4,6,5,4,6,6,7,8,6,7,8,6,7,8,7,8,9,7,8,9,7,8,9,8,9,10,8,9,10,8,9,10,10,11,12,10,11,12,10,11,12,12,11,13,12,11,13
2050  REM 
NOMI ACCESSORI

2060  DATA "TOILETTE","ESPRESSO","BILIARDO","TELEFONO","PARKING","MUSICA","BAGNO","TV","ASCENSORE","PISCINA","PARCO","SAUNA","GOLF"
2070  REM 
VALORE CONTENUTO

2080  DATA 5,6,8,9,10,12,13,15,17,19,21,23,24,25,27,28,30,32,34,36,40,44,18,19,20,21,14,16,21,12,1
2090  REM 
OFFSET PEDINE

2100  DATA 2,2,14,14,14,2,2,14,8,2,8,14
2110  DATA 2,7,8,14,8,7,1,14,5,8,4,13
2120  DATA 2,2,9,8,9,2,2,8,5,1,6,7
2130  DATA 1,2,8,9,8,3,2,9,5,2,4,8
2140  DATA 6,2,14,8,13,2,7,8,9,1,10,7
2150  REM 
MESSAGGI

2160  DATA "DADI DOPPI: tira ancora "," per tirare "," DADI DOPPI ","ANNULLO","CONFERMO",": perdi il turno."," VIA! "," DOPPIO VIA! "," Incasso: "," BAIA DEL GAMBERO "
2170  DATA "!!!!!!","vendita","Valore: ","Tariffa: ","Importo: ","Consumazione: "," STAGIONE ","Non si fa credito!"," per tornare","Cosa vendi ?"
2180  DATA "BANCA","ASTA","GIOCATORE","Base: ",".  Chi offre di piu' ?","A chi vendi ?","Quanto offre ","Codice (0 annulla) ?","PARTITA.MELOPOLI.","Metti un disco 3.3. "
2190  DATA "Rimetti il MELOPOLI. ","PASSO","GUARDO","VENDO","COMPRO",": FINIAMO","CLASSIFICA:"," Complimenti, ","ERR "," IN LOC "
2200  DATA "ERRORE DEL DISCO!","Quanti giocatori (2-6) ?","Giocatore n.","Va tutto bene ?","stagione","Premi RETURN per cominciare.","Tasti o Paddle ?","RETURN","il pulsante","Premi "
2210  DATA "Una nuova partita ?","Metti il disco 3.3.  ","Non c'e' sul disco.","in","di","ANDIAMO A "
2220  REM 
MOTIVI

2230  DATA "/..,,#*$ ,#*": REM MINISTERO
2240  DATA ";8;8;#6": REM FERMO GIRO
2250  DATA ".,.*,#*$)#'","568:868#:","?=;?#B$D#F": REM STAGIONI
2260  DATA "68:;=#? $?=;:8#6": REM GAMBERO
2270  DATA ",,,##) ": REM SFORTUNA
2280  DATA ":86#;$:86#=$:86#?;:$ :86#;$:86#=$:86#?AB$ #?A#B": REM FINALE
2290  DATA "": REM DUMMY
2300  REM 

IMPREVISTI

2310  DIM IM%(79): REM MAZZO
2320  DIM MI%(29): REM MAZZETTO
2330  PRINT D$"OPEN IX"
2340  PRINT D$"READ IX"
2350  FOR I = 0 TO 79
2360  INPUT IM%(I)
2370  NEXT 
2380  PRINT D$"CLOSE IX"
2390  REM 

SAVE VARS

2400  PRINT "FRE(0)=" FRE (0)
2410  HIMEM: 32512: REM $7F00
2420  REM NUOVA BASE STRINGHE:
2430  POKE 111,0
2440  POKE 112,127: REM $7F
2480  PRINT D$"BSAVE V,A$7300,L$1200"
2490  PRINT D$"BSAVE VP,A105,L12"