10 PRINT "[CLR/HOME]" 20 POKE 36879,8 30 PRINT "QQ]£#### #### ### ####" 40 PRINT "] # # # # # # #" 50 PRINT "] # # # # # # #" 60 PRINT "] # #### ### ####" 70 PRINT "]# # # # # # #" 80 PRINT "]#### # # # # # #" 81 POKE 36878,5 82 FOR L=1 TO 20 83 FOR M=254 TO 240+INT(RND(1)*10)STEP-1 85 POKE 36876,M 86 NEXT M 87 POKE 36876,0 88 FOR M=0 TO INT(RND(1)1*100)+120 89 NEXT M: NEXT L 91 PRINT "QQQ]]]ENTRA NELLA BISCA" 100 PRINT "Q]]]]]]]PREMI A" 101 PRINT "QQQQ+ F.BIONDI","+ FRKRPS" 110 GETA$:IFA$="" THEN 110 120 IF A$="A" THEN 140 130 GOTO 110 140 PRINT "[CLR/HOME]" 150 PRINT CHR$(5) 160 PRINT "]]]DANTE ALIGHIERI" 170 PRINT "QQ'QUANDO SI PARTE IL GIOCO DE LA ZARA," 180 PRINT "QCOLUI CHE PERDE SI RI-MAN DAOLENTE ," 190 PRINT "QREPETENDO LE VOLTE, E TRISTO IMPARA...'" 200 PRINT "QQ](PURGATORIO VI, 1-9)" 210 PRINT "QQQQ]]]]]]]£PREMI A" 220 GET A$:IF A$="" THEN 220 230 IF A$="A" THEN 250 240 GOTO 220 250 PRINT "[CLR/HOME]" 260 PRINT "ò]]]]]]]]]£ZARA" 270 PRINT "QQELA ZARA E' UN GIOCO D'AZZARDO IN USO NEL MEDIOEVO." 280 PRINT "Q£ + ESI GIOCA CON TRE DADI." 290 PRINT "Q£ + EA TURNO OGNI GIOCA-TORE CHIAMA UN NUMERO DA 3 A 18." 300 PRINT "Q£ + EVINCE CHI PER PRIMO OTTIENE IL PUNTEGGIO PARI AL NUMERO CHIAMA-TO." 305 PRINT "£**********************" 310 A$=" £INVITA I TUOI AMICI E SPICCIA I FIORINI. EMULA I DADI. " 320 FOR S=1 TO 80 330 PRINT MID$(A$,S,21);"òò" 340 FOR R=1 TO 250:NEXT 350 NEXT S 360 GOTO 370 370 PRINT "Q]]]]GIOCA PREMI A" 380 GET A$:IF A$=""THEN 380 385 IF A$="A" THEN 400 390 GOTO 380 400 PRINT "[CLR/HOME]" 411 POKE 36879,8 412 PRINT"£######################" 420 PRINT "Q]]]]£LANCIA I DADI" 430 INPUT "Q]]]]£PREMI RETURN";K$:PRINT 440 PRINT "[CLR/HOME]" 450 FOR I=1 TO 1 460 DL=INT(7*RND(1)) 470 IF DL<1 THEN 460 480 DR=INT(7*RND(1)) 490 IF DR<1 THEN 480 492 DC=INT(7*RND(1)) 494 IF DC< 1 THEN 492 500 PRINT "QQ]]]]£*************" 510 PRINT "]]]]£*";DL;"£*";DR;"£*";DC;"£*" 520 PRINT "]]]]£*************" 530 PRINT 532 A=DR+DL+DC 535 PRINT SPC(66);"HAI TOTALIZZATO ";A 540 NEXT 550 PRINT:CLR:GOTO560 560 PRINT "QQ]]HAI VINTO, PREMI A" 570 PRINT "QQ]]]RITENTA, PREMI B" 580 GET A$:IF A$=""THEN 580 590 IF A$="A" THEN 620 600 IF A$="B"THEN 400 610 GfreOTO 580 620 PRINT "CLR/HOME" 630 FOR X=1 TO 255 640 POKE 36879,X 660 FOR T=1 TO 5:NEXT T 670 NEXT X 680 GOTO 690 690 PRINT"Q]]RITIRA LA VINCITA" 700 POKE 36877,220 710 FOR L=1 TO 0 STEP-1 720 POKE 36878,L 730 FOR M=1 TO 300 740 NEXT M 750 NEXT L 760 POKE 36877,0:POKE 36878,0 770 GOTO 400