home *** CD-ROM | disk | FTP | other *** search
/ RUN Flagazine Extra: Supplement 1: RUNSheet / run-supplement-1.zip / KANKAN.BAS < prev    next >
BASIC Source File  |  1989-11-24  |  2KB  |  58 lines
  1. 100 REM KANNETJES-PUZZEL - MONOCHROOM
  2. 110 A1$=CHR$(221)+STRING$(10,32)+CHR$(222)
  3. 120 A2$=CHR$(221)+STRING$(10,220)+CHR$(222)
  4. 130 A3$=CHR$(221)+STRING$(10,32)+CHR$(222)
  5. 140 KEY OFF:CLS:INPUT "Maximale hoeveelheid ( <22 ) in kan 1";K1
  6. 150 IF K1>21 THEN SOUND 1000,1:GOTO 140
  7. 160 LOCATE 24,25:PRINT CHR$(222)STRING$(12,220)CHR$(221);
  8. 170 LOCATE 23,25:PRINT CHR$(222):LOCATE 23,38:PRINT CHR$(221)
  9. 180 FOR A=22 TO 24-K1 STEP -1
  10. 190 LOCATE A,26:PRINT A1$:NEXT A:GOSUB 650
  11. 200 LOCATE 1,1:INPUT "Maximale hoeveelheid ( <23 ) in kan 2";K2
  12. 210 FOR I=23 TO 2 STEP -1:LOCATE I,22:PRINT CHR$(179);:NEXT I
  13. 220 FOR I=23 TO 2 STEP -1:LOCATE I,20:PRINT USING "##";24-I;
  14. 230 LOCATE I,23:PRINT CHR$(223);:NEXT I
  15. 240 IF K2>22 OR K2<=K1 THEN SOUND 1000,1:GOTO 200
  16. 250 LOCATE 24,39:PRINT CHR$(222)STRING$(12,220)CHR$(221);
  17. 260 LOCATE 23,39:PRINT CHR$(222):LOCATE 23,52:PRINT CHR$(221)
  18. 270 FOR A=22 TO 24-K2 STEP -1
  19. 280 LOCATE A,40:PRINT A1$:NEXT A:GOSUB 650
  20. 290 LOCATE 1,1:INPUT "Hoeveel liter moet er worden afgemeten:"; W
  21. 300 X=K1:Y=K2
  22. 310 IF Y=0 THEN GGD = X : GOTO 340
  23. 320 IF X>Y THEN X=X-Y ELSE Y=Y-X
  24. 330 GOTO 310
  25. 340 GOSUB 650:LOCATE 1,1
  26. 350 IF INT(W/GGD) <> W/GGD THEN PRINT "Onmogelijk";:GOSUB 640:GOTO 140
  27. 360 IF K1>K2 THEN MAX=K1 ELSE MAX=K2
  28. 370 IF W>MAX THEN LOCATE 25,1:PRINT"Te veel";:GOSUB 640:GOTO 140
  29. 380 V1=0:V2=0
  30. 390 GOSUB 410
  31. 400 BEEP:LOCATE 1,1
  32. 401 WHILE INKEY$="":WEND:END
  33. 410 IF V1=W OR V2=W THEN RETURN
  34. 420 IF V1>0 AND V2=K2 THEN V2=0:GOSUB 650:LOCATE 1,30:                              PRINT "Kan 2 legen";:GOSUB 640:GOSUB 620:GOTO 530
  35. 430 IF V1=0 THEN 500
  36. 440 L=K2-V2
  37. 450 IF V1<L THEN G=V1 ELSE G=L
  38. 460 V1=V1-G
  39. 470 V2=V2+G
  40. 480 GOSUB 650:LOCATE 1,30:PRINT "Kan 1 naar Kan 2";
  41. 490 GOSUB 640:GOSUB 580:GOTO 530
  42. 500 V1=K1
  43. 510 GOSUB 650:LOCATE 1,30:PRINT "Kan 1 uit kraan vullen";
  44. 520 GOSUB 640:GOSUB 550
  45. 530 LOCATE 25,26:PRINT"Kan 1:";V1,"Kan 2:";V2;
  46. 540 GOTO 410
  47. 550 FOR A=23 TO 24-V1 STEP -1
  48. 560 LOCATE A,27:PRINT STRING$(10,219);
  49. 570 NEXT A:RETURN
  50. 580 FOR A=2 TO 23-V1
  51. 590 LOCATE A,27:PRINT STRING$(10,32);:NEXT A
  52. 600 FOR A=23-V1 TO 24-V2 STEP -1
  53. 610 LOCATE A,41:PRINT STRING$(10,219);:NEXT A:RETURN
  54. 620 FOR A=2 TO 23
  55. 630 LOCATE A,41:PRINT STRING$(10,32);:NEXT A:RETURN
  56. 640 FOR I=1 TO 2000:NEXT I:RETURN
  57. 650 LOCATE 1,1:PRINT STRING$(79,32):RETURN
  58.