home *** CD-ROM | disk | FTP | other *** search
/ RUN Flagazine: Run 2 / run2.zip / RATELSL.BAS < prev    next >
BASIC Source File  |  2014-09-03  |  1KB  |  32 lines
  1. 100 REM
  2. 110 DEF SEG=0:POKE 1047,PEEK(1047) OR 32
  3. 120 CLS:Q=400:KLM=400:Q=Q-100:KEY OFF:SCREEN 2:A$=CHR$(170)+CHR$(85)
  4. 130 LINE (18,20)-(625,20):LINE (625,20)-(625,190)
  5. 140 LINE (625,190)-(18,190):LINE (18,190)-(18,20)
  6. 150 A$=A$+A$+A$+A$:LOCATE 1,34:PRINT "Score 000"
  7. 160 X=321:Y=111:CIRCLE (X,Y),14:PAINT (X,Y),A$
  8. 170 FOR S=1 TO KLM:NEXT:X$=INKEY$
  9. 180 IF X$="8" THEN R$="o":GOTO 230
  10. 190 IF X$="4" THEN R$="l":GOTO 230
  11. 200 IF X$="6" THEN R$="r":GOTO 230
  12. 210 IF X$="2" THEN R$="b":GOTO 230
  13. 220 IF A=0 THEN 170
  14. 230 IF R$="o" THEN Y=Y-12
  15. 240 IF R$="l" THEN X=X-26
  16. 250 IF R$="r" THEN X=X+26
  17. 260 IF R$="b" THEN Y=Y+12
  18. 270 A=1:IF POINT(X,Y)=1 THEN 330
  19. 280 IF X>625 OR X<13 OR Y>194 OR Y<20 THEN 330
  20. 290 CIRCLE (X,Y),14:PAINT (X,Y),A$:IF M=1 THEN 310
  21. 300 SOUND 500,1:FOR R=1 TO Q:NEXT R
  22. 310 SC=SC+100:LOCATE 1,39:PRINT SC:KLM=KLM-20
  23. 320 GOTO 170
  24. 330 FOR R=1 TO 14:CIRCLE (X,Y),R:NEXT
  25. 340 FOR S=1000 TO 40 STEP -10
  26. 350 SOUND S,S/1000:NEXT
  27. 360 LOCATE 25,27:PRINT "Nog een keer spelen (j/n)?";
  28. 370 X$=INKEY$:IF X$="j" OR X$="J" THEN SC=0:GOTO 120
  29. 380 IF X$="n" OR X$="N" THEN 400
  30. 390 GOTO 370
  31. 400 CLS:DEF SEG=0:POKE 1047,PEEK(1047) AND 223:END
  32.