## X-07 BASIC FILE.
##
## NAME: JUDOKA
##
 0 FSET 13:GOSUB 9300
 1 '**************
 2 '*   JUDOKA   *
 3 '*HEBDO No:128*
 4 '**************
 10  FONT$ (128)="0,0,0,12,16,32,64,64
 12  FONT$ (129)="0,0,240,12,0,16,32,32
 14  FONT$ (130)="0,0,0,0,128,64,32,32
 16  FONT$ (131)="0,0,0,0,0,32,16,16
 18  FONT$ (132)="128,128,128,128,64,64,36,16
 20  FONT$ (133)="124,96,252,16,124,128,252,128
 22  FONT$ (136)="252,0,252,0,252,124,128,128
 24  FONT$ (137)="252,0,252,0,252,248,4,4
 26  FONT$ (138)="248,24,252,32,248,4,252,4
 28  FONT$ (139)="0,0,0,0,0,0,128,0
 30  FONT$ (144)="12,16,60,4,4,4,12,240
 32  FONT$ (145)="252,0,252,0,0,28,224,0
 34  FONT$ (146)="252,0,252,0,4,12,204,44
 36  FONT$ (147)="252,0,252,0,128,192,192,220
 38  FONT$ (148)="252,0,252,0,0,96,152,4
 40  FONT$ (149)="192,32,240,128,128,128,128,252
 42  FONT$ (150)="32,32,24,4,4,0,0,0
 43 CLS:PRINT 
 44 PRINT "  808182 83","  8485";"  ","    ";
 46 A$="Pourrez-vous sauver la princesse du temple du diable ?..."
 50 FOR H=1 TO 80
 52 LOCATE 0,0:PRINT MID$(A$,H,20)
 54 IF INKEY$=""THENNEXT:GOTO50
 100 CLS:CONSOLE ,,,0,0:DEFINTA-Z:A=RND(0)*100+1:I=4
 102 GOSUB 9100
 104 FORR=15TO 19:PAINT R,3,132:NEXT
 105 CONSOLE 0,4
 106 LOCATE 15,2:PRINT "8484"+CHR$(140)+"8484";
 107 LOCATE 15,1:PRINT "8484848484":LOCATE 15,0:PRINT "8081828382"
 108 LINE (0,0)-(0,31):LINE (1,31)-(1,0)
 110 LINE (2,0)-(2,31):LINE (3,31)-(3,0)
 112 LINE (85,0)-(85,31):LINE (86,31)-(86,0)
 114 LINE (87,0)-(87,31):LINE (88,31)-(88,0)
 500  FONT$ (128)="0,0,0,0,0,60,64,72"
 502  FONT$ (129)="0,100,148,144,148,160,188,96
 504  FONT$ (130)="0,128,128,192,32,160,160,32
 506  FONT$ (131)="44,28,12,0,0,0,0,0"
 508  FONT$ (132)="192,204,8,132,136,144,96,128
 510  FONT$ (133)="4,8,8,16,12,0,0,0
 512  FONT$ (136)="12,48,240,28,252,12,12,0
 514  FONT$ (137)="192,0,0,0,128,64,32,16
 516  FONT$ (138)="8,132,96,24,4,0,0,0
 518  FONT$ (139)="0,0,128,64,32,208,56,56
 520  FONT$ (144)="192,0,0,252,0,0,124,128
 522  FONT$ (145)="0,12,12,252,28,32,192,0
 524  FONT$ (146)="204,48,68,136,16,32,64,128
 526  FONT$ (147)="112,192,0,0,0,0,0,0
 528  FONT$ (148)="0,0,0,0,0,48,48,240
 530  FONT$ (149)="140,144,144,144,72,72,120,240
 532  FONT$ (150)="0,0,0,0,0,0,12,16
 534  FONT$ (151)="32,76,68,60,0,0,0,0
 536  FONT$ (152)="0,100,232,4,136,144,96,128
 538  FONT$ (224)="136,80,4,8,0,16,72,128
 540  FONT$ (153)="0,64,128,184,116,4,8,0
 542  FONT$ (154)="0,0,0,0,0,0,0,0
 544  FONT$ (156)="0,24,36,48,48,144,96,0
 546  FONT$ (157)="0,0,0,0,0,0,0,0
 548  FONT$ (225)="0,0,0,0,48,12,0,0
 550  FONT$ (228)="0,0,0,0,0,0,192,252
 552  FONT$ (229)="24,36,36,36,20,28,112,136
 554  FONT$ (231)="0,0,0,0,0,0,128,192
 556  FONT$ (233)="32,28,0,0,0,0,0,4
 558  FONT$ (236)="0,240,32,60,60,64,128,32
 560  FONT$ (237)="160,208,144,224,96,152,128,128
 562  FONT$ (239)="8,16,16,16,16,16,28,56
 564  FONT$ (240)="48,80,136,132,128,128,0,0
 566  FONT$ (241)="128,128,64,32,144,80,112,224
 568  FONT$ (242)="24,36,36,36,20,28,16,40
 570  FONT$ (244)="0,0,252,0,0,0,0,0
 572  FONT$ (245)="0,28,240,220,0,0,0,4
 574  FONT$ (246)="64,136,16,252,60,64,128,32
 576  FONT$ (247)="160,208,156,224,0,128,128,128
 578  FONT$ (249)="48,72,72,72,56,76,196,132
 580  FONT$ (251)="0,0,0,0,0,192,64,64
 582  FONT$ (252)="32,28,0,0,4,4,0,0
 584  FONT$ (253)="32,228,28,248,4,8,252,56
 586  FONT$ (254)="128,128,120,4,224,24,4,0
 588  FONT$ (155)="0,0,0,0,192,48,204,60
 590  FONT$ (158)="12,16,228,248,4,4,0,0
 592  FONT$ (159)="32,100,156,248,4,8,252,60
 900 PAINT 2,1,150:PAINT 3,1,129:PAINT 4,1,130
 901 PAINT 2,2,151:PAINT 3,2,152:PAINT 4,2,137
 902 PAINT 3,3,149:PAINT 4,3,138:PAINT 5,3,139
 904 IFINKEY$=""THEN904
 912 GOSUB 8500
 1000 L=J:J=STICK(0):IFL=JTHENJ=0
 1002 ON J GOSUB 2300,2000,2400,2100,2200
 1050 IFC<>0AND(ET=0ORET=2)THENLOCATE X,Y:PRINT "  ";
 1052 ON ET+1 GOSUB 3000,3200,3100,3200
 1100 IFS=1THENS=0:LOCATE 2,0:PRINT "    ";:GOTO1102
 1101 IFJ=0ANDC<>0THEN1000
 1102 GOSUB 10000
 1103 PAINT 2,1,150:PAINT 3,1,129:PAINT 4,1,130
 1104 PAINT 2,2,151:PAINT 3,2,152:PAINT 4,2,137
 1105 PAINT 3,3,149:PAINT 4,3,138:PAINT 5,3,139
 1106 GOTO1000
 2000 S=1
 #repos.
 2002 LOCATE 2,3:PRINT "    ";:LOCATE 2,2:PRINT "85 "
 2004 LOCATE 2,1:PRINT "8384":LOCATE 2,0:PRINT "808182"
 2005 RETURN 
 2100 S=1
 2102 LOCATE 2,3:PRINT "    ";:LOCATE 2,2:PRINT "85 "
 2104 LOCATE 2,1:PRINT "8384":LOCATE 2,0:PRINT "808182":RETURN 
 2200 S=1
 2202 LOCATE 2,3:PRINT "    ";:LOCATE 2,2:PRINT "85"
 2204 LOCATE 2,1:PRINT "8384":LOCATE 2,0:PRINT "808182":RETURN 
 2300 LOCATE 4,3:PRINT "  ";:LOCATE 4,2:PRINT ""
 2302 LOCATE 5,1:PRINT "":RETURN 
 2400 LOCATE 4,3:PRINT "  ";:LOCATE 4,2:PRINT "":RETURN 
 3000 IFC=0THENX=12:Y=RND(A)*4:C=1
 3002 X=X-1:IFX>5THEN3020
 3003 IFX>5THEN3020
 3004 IFY=3THENIFJ=2ORJ=4THENY=Y-1
 3005 IF(Y=3ANDJ=5)OR(Y=2ANDJ=5)OR(Y=1AND(J=4ORJ=1))OR(Y=0ANDJ=2)THEN3012
 3006 IFY=0AND(J=0ORJ=1ORJ=3)THENY=Y+1
 3008 IFSCREEN(X,Y)=32THENX=X-1:GOTO3006
 3009 LOCATE X,Y:PRINT "";:BEEP-1,7:C=0:V=V+1:PRESET (1,V)
 3010 PRESET (2,V)
 3011 FORH=0TO 500:NEXT:IFV=30THEN9000:ELSE RETURN 
 3012 LOCATE X+1,Y:PRINT "";:BEEP-2000,5:FORH=0TO 500:NEXT
 3013 LOCATE X+1,Y:PRINT "  ";:GOSUB 10000
 3014 C=0:O=O+2:PRESET (86,O):PRESET (87,O):PRESET (86,O-1)
 3015 PRESET (87,O-1)
 3016 IFO<30THENRETURN 
 3018 LINE (87,O)-(87,30):LINE (86,O)-(86,30):GOTO8000
 3020 LOCATE X,Y:IFD=1THEND=0:PRINT "";:ELSE PRINT "";:D=1
 3022 RETURN 
 3026 IFO<30THENRETURN 
 3100 IFX<8THEN3000
 3200 IFC=0THENZ=RND(A)*4+1:ON ZGOSUB 3300,3304,3308,3312
 3202 C=C+1
 3204 ON Z GOTO 3206,3208,3208,3210
 3206 X=1
 3207 IFJ=3THEN3220:ELSE IFC=ITHEN3232:ELSE RETURN 
 3208 X=2:IFJ=3THEN3220:ELSE IFC=ITHEN3232:ELSE RETURN 
 3210 X=3:IFJ=5THEN3220:ELSE IFJ=2ORJ=4ORC<ITHENRETURN:ELSE 3232
 3220 LOCATE 6,X:PRINT "";:BEEP-2000,5:FORH=0TO 500:NEXT
 3222 LOCATE 6,X:PRINT " ";:C=0
 3224 O=O+2:PRESET (86,O):PRESET (87,O)
 3225 PRESET (86,O-1):PRESET (87,O-1)
 3226 IFO<30THENRETURN 
 3228 LINE (87,0)-(87,30):LINE (86,0)-(86,30):LOCATE 7,1
 3230 PRINT "   ":LOCATE 7,2:PRINT "   ":LOCATE 7,3
 3231 PRINT "    ";:GOTO8000
 3232 IFSCREEN(4,X)=32THENY=3:A$="   ":ELSE Y=4:A$="  "
 3234 LOCATE Y,X:PRINT A$:BEEP-1,7:C=0
 3235 FORR=0TO 500:NEXT
 3236 V=V+1:PRESET (1,V):PRESET (2,V)
 3238 IFV=30THEN9000:ELSE RETURN 
 3300 PAINT 6,1,225:PAINT 7,1,228:PAINT 8,1,229:PAINT 9,1,231
 3301 PAINT 7,2,233:PAINT 8,2,236:PAINT 9,2,237
 3302 PAINT 7,3,239:PAINT 8,3,240:PAINT 9,3,241:PAINT 10,3,32
 3303 RETURN 
 3304 PAINT 7,1,32:PAINT 7,2,242:PAINT 7,3,231
 3305 PAINT 6,2,244:PAINT 7,2,245:PAINT 8,2,246:PAINT 9,2,247
 3306 PAINT 7,3,239:PAINT 8,3,240:PAINT 9,3,241
 3307 RETURN 
 3308 PAINT 7,1,32:PAINT 8,1,32:PAINT 9,1,32:PAINT 10,1,32
 3309 PAINT 6,2,225:PAINT 7,2,228:PAINT 8,2,249:PAINT 9,2,251
 3310 PAINT 7,3,252:PAINT 8,3,253:PAINT 9,3,254:PAINT 10,3,155
 3311 RETURN 
 3312 PAINT 7,1,32:PAINT 8,1,32:PAINT 9,1,32:PAINT 10,1,32
 3313 PAINT 7,2,32:PAINT 8,2,249:PAINT 9,2,251
 3314 PAINT 6,3,244:PAINT 7,3,158:PAINT 8,3,159:PAINT 9,3,254
 3315 PAINT 10,3,155:RETURN 
 8000 ET=ET+1:O=0
 8002 LOCATE 17,2:PRINT CHR$(140+ET);
 8004 GOSUB 8500
 8006 IF ET=3 THEN8600 :ELSE IF ET=2 THEN8010
 8008 RETURN 
 8010  FONT$ (153)="0,0,4,248,200,20,28,0
 8012  FONT$ (154)="0,0,224,24,48,16,8,252
 8014  FONT$ (156)="0,28,20,8,112,108,0,0
 8016  FONT$ (157)="252,8,16,48,112,192,0,2
 8018 RETURN 
 8500 OUT &HF4,255
 8502 OUT &HF3,0
 8504 FOR H=255 TO 0 STEP-1
 8506 OUT &HF2,H
 8510 NEXT:RETURN 
 8600 CLS:PRINT "BRAVO !!  Vous avez VAINCU ! et";
 8601 PRINT "sauve la princesse !!!"
 8610 IFINKEY$=""THEN8610:ELSE 9001
 9000 CLS:PRINT "Desole !","Vous avez perdu...":GOTO8610
 9001 CLS:PRINT ,"DESIREZ VOUS REJOUER"
 9002 IFTKEY("O")THEN RUN
 9003 IFTKEY("N")THEN END
 9004 IFINKEY$=""THEN 9004
 9006 GOTO 9002
 9100  FONT$ (128)="252,252,196,188,196,248,132,252
 9102  FONT$ (129)="252,252,196,188,188,188,196,252
 9104  FONT$ (130)="252,252,140,116,4,124,132,252
 9106  FONT$ (131)="252,252,204,180,180,180,180,252
 9108  FONT$ (132)="252,252,252,252,252,252,252,252
 9112  FONT$ (140)="236,204,236,236,236,236,196,252
 9114  FONT$ (141)="196,184,248,228,220,188,128,252
 9116  FONT$ (142)="196,184,248,224,248,184,196,252
 9118  FONT$ (143)="244,228,212,180,128,244,244,252
 9120 RETURN 
 9300 FORR=7964TO 7989:READA$:A$="&H"+A$
 9310 POKE R,VAL(A$):NEXT
 9320 DATACD,CC,FF,1C,7B,32,B9,0,CF,2C,CD,CC,FF,1C,7B,32
 9330 DATAB8,0,CF,2C,CD,CC,FF,7B,EF,C9
 9340 POKE 154,28:POKE 155,31:RETURN 
 10000 FORR=2TO 6:FORH=0TO 3:PAINT R,H,32:NEXTH,R:RETURN 
