10 POKE 53280,5 20 POKE 53281,5 30 DIM C$(52):DIM S$(52) 40 PRINT CHR$(147) 50 FOR N=1 TO 243 60 READ M,P 70 POKE 1024+M,P 80 POKE 55296+M,1 90 NEXT 100 PRINT CHR$(158) 110 POKE 780,0: POKE 781,21: POKE 782,6 120 SYS 65520 130 PRINT "PREMI UN TASTO PER INIZIARE" 140 GET A$: IF A$="" THEN GOTO 140 150 PRINT CHR$(147)" "CHR$(28)CHR$(115)" "CHR$(122)" "CHR$(144)CHR$(120)" "CHR$(97)CHR$(13) 160 PRINT " MENTALISMO SU COMMODORE 64"CHR$(13) 170 PRINT CHR$(5) 180 PRINT " PRENDI ALCUNE CARTE E" 190 PRINT " TIENILE A DORSO IN ALTO."CHR$(13) 200 PRINT " IO NE HO SCELTA UNA:" 210 PRINT " RIUSCIRAI A INDOVINARLA?"CHR$(13) 220 PRINT " A PARTIRE DA QUELLA IN CIMA," 230 PRINT " SCRIVI VALORE E SEME DELLE CARTE" 240 PRINT " PREMENDO SPAZIO QUANDO HAI FINITO."CHR$(13) 250 PRINT CHR$(13)CHR$(13)CHR$(13)CHR$(13)CHR$(13)CHR$(13)" A 2 3 4 5 6 7 8 9 1"CHR$(158)"0"CHR$(5)" J Q K" 260 PRINT " C="CHR$(28)CHR$(115)CHR$(5)" Q="CHR$(28)CHR$(122)CHR$(5)" F="CHR$(144)CHR$(120)CHR$(5)" P="CHR$(144)CHR$(97)CHR$(5) 270 POKE 1721,85:POKE 1722,67:POKE 1723,67:POKE 1724,67:POKE 1725,73 280 POKE 55993,1:POKE 55994,1:POKE 55995,1:POKE 55996,1:POKE 55997,1 290 POKE 1761,71:POKE 1765,72 300 POKE 56033,1:POKE 56037,1 310 POKE 1801,74:POKE 1802,67:POKE 1803,67:POKE 1804,67:POKE 1805,75 320 POKE 56073,1:POKE 56074,1:POKE 56075,1:POKE 56076,1:POKE 56077,1 330 FOR N=1 TO 52 340 POKE 780,0:POKE 781,15:POKE 782,0:SYS 65520 350 PRINT " QUAL E' IL VALORE DELLA CARTA N.";N;"? "; 360 GET C$(N):IF C$(N)="" GOTO 360 370 IF C$(N)="A" GOTO 520 380 IF C$(N)="2" GOTO 520 390 IF C$(N)="3" GOTO 520 400 IF C$(N)="4" GOTO 520 410 IF C$(N)="5" GOTO 520 420 IF C$(N)="6" GOTO 520 430 IF C$(N)="7" GOTO 520 440 IF C$(N)="8" GOTO 520 450 IF C$(N)="9" GOTO 520 460 IF C$(N)="1" THEN C$(N)="10": GOTO 520 470 IF C$(N)="J" GOTO 520 480 IF C$(N)="Q" GOTO 520 490 IF C$(N)="K" GOTO 520 500 IF C$(N)=" " GOTO 860 510 GOTO 360 520 POKE 1762,160:POKE 56034,5:POKE 1763,160:POKE 56035,5:POKE 1764,160:POKE 56036,5 530 POKE 780,0:POKE 781,18:POKE 782,18:SYS 65520 540 PRINT CHR$(5)C$(N); 550 POKE 780,0:POKE 781,15:POKE 782,0:SYS 65520 560 PRINT " QUAL E' IL SEME DELLA CARTA N.";N;"? "; 570 GET S$(N):IF S$(N)="" GOTO 570 580 IF S$(N)="C" OR S$(N)="Q" OR S$(N)="F" OR S$(N)="P" THEN GOTO 600 590 GOTO 570 600 POKE 780,0:POKE 781,18:POKE 782,18:SYS 65520 610 IF S$(N)="C" OR S$(N)="Q" THEN PRINT CHR$(28); 620 IF S$(N)="F" OR S$(N)="P" THEN PRINT CHR$(144); 630 PRINT C$(N); 640 IF C$(N)<>"10" THEN PRINT " "; 650 IF S$(N)="C" THEN PRINT CHR$(115); 660 IF S$(N)="Q" THEN PRINT CHR$(122); 670 IF S$(N)="F" THEN PRINT CHR$(120); 680 IF S$(N)="P" THEN PRINT CHR$(97); 690 PRINT CHR$(5) 700 NEXT N 860 N=N-1 870 N=2*(N-2^INT(LOG(N-1)/LOG(2))) 880 IF S$(1)="C" THEN V=115 890 IF S$(1)="Q" THEN V=122 900 IF S$(1)="F" THEN V=120 910 IF S$(1)="P" THEN V=97 920 PRINT CHR$(147)" "CHR$(28)CHR$(115)" "CHR$(122)" "CHR$(144)CHR$(120)" "CHR$(97)CHR$(13) 930 PRINT " MENTALISMO SU COMMODORE 64"CHR$(13) 940 PRINT CHR$(5)CHR$(13)CHR$(13)CHR$(13)CHR$(13) 950 PRINT " A PARTIRE DALLA CARTA IN CIMA (";C$(1);CHR$(V);"):";CHR$(13);CHR$(13); 960 PRINT " 1) METTI UNA CARTA SUL TAVOLO" 970 PRINT " 2) PORTA LA SUCCESSIVA SOTTO IL MAZZO" 980 PRINT " 3) RIPETI LE DUE MOSSE FINCHE' TI" 990 PRINT " RESTA UNA SOLA CARTA IN MANO."CHR$(13) 1000 PRINT " ALLA FINE PREMI LO SPAZIO" 1010 GET A$: IF A$="" GOTO 1010 1020 PRINT CHR$(147)" "CHR$(28)CHR$(115)" "CHR$(122)" "CHR$(144)CHR$(120)" "CHR$(97)CHR$(13) 1030 PRINT " MENTALISMO SU COMMODORE 64"CHR$(13) 1050 PRINT CHR$(13)CHR$(13)CHR$(13)CHR$(13)CHR$(5);" IO AVEVO SCELTO IL "; 1060 IF S$(N)="C" THEN PRINT CHR$(28)C$(N)CHR$(115) 1070 IF S$(N)="Q" THEN PRINT CHR$(28)C$(N)CHR$(122) 1080 IF S$(N)="F" THEN PRINT CHR$(144)C$(N)CHR$(120) 1090 IF S$(N)="P" THEN PRINT CHR$(144)C$(N)CHR$(97) 1100 PRINT CHR$(13)CHR$(5) 1110 PRINT " SE E' LA CARTA CHE TI E' RIMASTA IN" 1120 PRINT " MANO POSSIEDI OTTIME DOTI PSICHICHE"CHR$(13) 1130 PRINT " C O N G R A T U L A Z I O N I"CHR$(13) 1140 PRINT CHR$(13)CHR$(13)CHR$(13)CHR$(5) 1150 PRINT " UN GIOCO A CURA DI MARIANO TOMATIS" 1160 PRINT " PER IL PROGETTO MESMER (2018)" 1170 PRINT " (CC) BY-NC-SA 4.0" 1180 GET A$: IF A$="" GOTO 1180 1190 GOTO 150 1200 DATA 129,123,134,108,135,123,169,160,174,254,175,236,208,225,209,160,214,160,215,126 1210 DATA 248,225,249,160,253,225,254,160,288,254,289,160,293,254,294,97,296,108,297,160 1220 DATA 300,254,301,123,303,108,304,252,306,254,307,123,308,254,309,123,311,98,312,160 1230 DATA 315,252,317,254,318,123,328,160,329,160,332,108,333,160,334,97,335,225,336,236 1240 DATA 337,160,339,225,340,236,341,225,343,254,344,236,345,108,346,160,347,127,348,160 1250 DATA 349,97,350,225,351,236,352,160,354,254,355,160,356,108,357,160,358,97,367,108 1260 DATA 368,160,369,97,372,254,373,160,375,160,376,126,377,160,378,123,379,225,380,252 1270 DATA 381,124,382,108,383,160,384,97,385,254,386,160,387,225,388,160,390,160,391,126 1280 DATA 392,160,393,255,394,160,395,97,396,97,397,160,398,97,407,225,408,160,409,97 1290 DATA 411,108,412,160,413,160,415,160,416,255,419,97,420,160,421,123,422,225,423,160 1300 DATA 424,108,425,160,426,97,427,160,428,236,429,108,430,160,431,255,434,160,435,251 1310 DATA 437,160,438,126,447,97,448,160,449,97,451,255,452,225,453,160,454,225,455,160 1320 DATA 458,225,460,251,461,97,462,254,463,236,464,255,465,160,466,251,467,251,468,97 1330 DATA 469,225,470,236,473,225,474,160,475,97,486,108,487,126,488,160,489,97,490,108 1340 DATA 491,126,492,225,493,160,494,251,495,252,497,108,498,126,500,160,501,252,502,251 1350 DATA 503,160,504,126,505,160,506,236,507,225,508,252,509,251,510,97,513,225,514,160 1360 DATA 526,225,528,124,529,252,530,236,532,225,533,160,534,124,535,160,536,98,537,226 1370 DATA 538,123,539,108,540,160,541,126,542,225,543,236,545,160,546,126,547,160,548,97 1380 DATA 549,225,550,160,551,98,552,126,553,225,554,226,566,97,572,225,573,236,575,124 1390 DATA 576,126,578,226,579,226,580,126,583,126,585,124,587,251,588,252,590,124,591,126 1400 DATA 593,126,605,254,612,225,613,126,627,124,641,123,644,108,645,97,652,225,656,12 1410 DATA 657,5,658,26,659,9,660,15,661,14,662,9,664,4,665,9,667,13,668,5 1420 DATA 669,14,670,20,671,1,672,12,673,9,674,19,675,13,676,15,681,124,682,123 1430 DATA 683,108,684,236,692,225,722,124,723,226,732,124,733,123,735,108,736,123,773,124 1440 DATA 774,127,775,255,776,126