home *** CD-ROM | disk | FTP | other *** search
/ RUN Flagazine Extra: Special 1 / run-special-1.zip / HURKLE.BAS < prev    next >
BASIC Source File  |  1992-03-05  |  3KB  |  43 lines
  1. 100 REM HURKLE GWBASIC NIET GRAFISCH (C) NICO BAAIJENS
  2. 110 CLS:KEY OFF
  3. 120 RANDOMIZE -TIMER:LS1$=CHR$(205)+CHR$(209)+CHR$(205)
  4. 130 LS2$=CHR$(196)+CHR$(197)+CHR$(196):LS3$=CHR$(205)+CHR$(207)+CHR$(205)
  5. 140 H$=CHR$(222)+CHR$(220)+CHR$(221):S$=CHR$(219):GOSUB 390
  6. 150 COLOR 13,0:FOR A=20 TO 0 STEP -1:LOCATE A+1,3:PRINT USING "##";A:NEXT A
  7. 160 LOCATE 22,5:PRINT "0  1  2  3  4  5  6  7  8  9  10";
  8. 170 PRINT " 11 12 13 14 15 16 17 18 19 20":LOCATE 3,71:PRINT "HURKLE"
  9. 180 LOCATE 5,68:PRINT H$;" -- HURKLE";:LOCATE 7,69:PRINT S$;"  -- Speler"
  10. 190 G=16:Q=1:WHILE INKEY$="":A=INT(G*RND(1))+1:B=INT(G*RND(1))+1
  11. 200 LOCATE A+1,(B*3)+4:COLOR 31,0:PRINT H$:COLOR 7,0:GOSUB 450
  12. 210 PRINT "Demo: HURKLE op";A;",";B;" -- Spelen: Druk een toets"
  13. 220 SOUND INT(RND*1500)+50,1:GOSUB 390:WEND
  14. 230 T=INT(G*RND(1))+1:U=INT(G*RND(1))+1:LOCATE 12,67:PRINT "Beurt --  ";Q
  15. 240 LOCATE 25,1:PRINT "Toets <Return> voor einde";
  16. 250 GOSUB 450:PRINT "Waar zit de HURKLE (denk aan de komma!)";:INPUT X,Y
  17. 260 IF X=0 THEN 370
  18. 270 Q=Q+1:IF X<0 OR X>20 OR Y<0 OR Y>20 THEN BEEP:GOSUB 450:GOTO 250
  19. 280 GOSUB 390:COLOR 10,0:LOCATE X+1,(Y*3)+5:PRINT S$:IF Y=T AND X=U THEN 350
  20. 290 IF Y>T THEN LOCATE X+1,(Y*3)+4:COLOR 31,0:PRINT CHR$(27)
  21. 300 IF Y<T THEN LOCATE X+1,(Y*3)+6:COLOR 31,0:PRINT CHR$(26)
  22. 310 IF X>U THEN LOCATE X,(Y*3)+5:COLOR 31,0:PRINT CHR$(24)
  23. 320 IF X<U THEN LOCATE X+2,(Y*3)+5:COLOR 31,0:PRINT CHR$(25)
  24. 330 IF P/5=INT(P/5) THEN LOCATE 20,30:PRINT "HURKLE  vlucht":DELAY 2:GOSUB 390:GOTO 230
  25. 340 COLOR 7,0:LOCATE 12,67:PRINT "Beurt --  ";Q:GOSUB 450:GOTO 250
  26. 350 BEEP:LOCATE X+1,(Y*3)+4:COLOR 29,0:PRINT H$:GOSUB 450
  27. 360 PRINT "HURKLE gevonden op";U;",";T;"in";Q-1;"beurten"
  28. 370 COLOR 15,0:LOCATE 25,50:PRINT "Toets <Esc> voor RUN Desktop";
  29. 380 IF INKEY$<>""  THEN CHAIN "MAIN.TBC" ELSE 380
  30. 390 COLOR 14,0:LOCATE 1,5:PRINT CHR$(201)CHR$(205);:FOR A=7 TO 62 STEP 3
  31. 400 LOCATE 1,A:PRINT LS1$;:NEXT A:PRINT CHR$(205)CHR$(187)
  32. 410 FOR A=2 TO 20:LOCATE A,5:PRINT CHR$(199)CHR$(196);:FOR B=7 TO 62 STEP 3
  33. 420 PRINT LS2$;:NEXT B:PRINT CHR$(196)CHR$(182):NEXT A:P=Q-1
  34. 430 LOCATE 21,5:PRINT CHR$(200)CHR$(205):FOR A=7 TO 62 STEP 3
  35. 440 LOCATE 21,A:PRINT LS3$;:NEXT A:PRINT CHR$(205)CHR$(188):COLOR 7,0:RETURN
  36. 450 IF INKEY$=CHR$(27) THEN CHAIN "MAIN.TBC"
  37. 460 COLOR 14,0:LOCATE 23,1:PRINT SPACE$(79);:LOCATE 23,10:RETURN
  38. 470 REM /* 36/.0736,3031,3807,3046,4008,1841,3160,4063,3595,3355
  39. 480 REM /*/....4181,2372,4124,3478,4766,0797,3593,4160,3234,3233
  40. 490 REM /*/....3140,3232,5101,3664,3162,3919,4266,2487,3812,3240
  41. 500 REM /*/....3946,3406,3168,4419,2349,3653
  42. 510 REM Checksum...............:  121544
  43.