home *** CD-ROM | disk | FTP | other *** search
/ RUN Flagazine Extra: Supplement 1: RUNSheet / run-supplement-1.zip / RAAD.BAS < prev    next >
BASIC Source File  |  1989-11-24  |  2KB  |  48 lines
  1. 100 REM OPMERKINGSGAVE
  2. 110 CLS:KEY OFF:COLOR 0,7:CLS:COLOR 7,0
  3. 120 FOR A=2 TO 24:LOCATE A,2:PRINT STRING$(78,255);
  4. 130 NEXT A:RANDOMIZE VAL(RIGHT$(TIME$,2))
  5. 140 FOR A=2 TO 6:LOCATE A,2
  6. 150 PRINT STRING$(78,32);:NEXT A
  7. 160 FOR A=7 TO 18:FOR B=2 TO 18
  8. 170 LOCATE A,B:PRINT CHR$(32);:NEXT B,A
  9. 180 FOR A=18 TO 7 STEP -1:FOR B=60 TO 79
  10. 190 LOCATE A,B:PRINT CHR$(32);
  11. 200 NEXT B,A:FOR A=19 TO 24
  12. 210 LOCATE A,2:PRINT STRING$(78,32);
  13. 220 NEXT A:FOR A=7 TO 18
  14. 230 LOCATE A,30:PRINT STRING$(3,32)::NEXT A
  15. 240 FOR A=7 TO 18
  16. 250 LOCATE A,45:PRINT STRING$(3,32);:NEXT A
  17. 260 FOR A=7 TO 16
  18. 270 LOCATE A,36:PRINT STRING$(6,32);:NEXT A
  19. 280 FOR A=9 TO 11
  20. 290 LOCATE A,23:PRINT STRING$(3,32);:NEXT A
  21. 300 B=0:C=6:FOR A=14 TO 18:B=B+1:C=C-1
  22. 310 LOCATE A,22:PRINT STRING$(B,32);
  23. 320 LOCATE A,25+B:PRINT STRING$(C,32);:NEXT A
  24. 330 B=0:C=6:FOR A=7 TO 11:B=B+1:C=C-1
  25. 340 LOCATE A,51+B:PRINT STRING$(C,32);:NEXT A
  26. 350 B=0:FOR A=10 TO 15:B=B+1
  27. 360 LOCATE A,51:PRINT STRING$(B,32):NEXT A
  28. 370 FOR A=16 TO 18:LOCATE A,51:PRINT STRING$(6,32);:NEXT A
  29. 380 LOCATE 4,20:COLOR 31,0:BEEP
  30. 390 PRINT"Als u 't ziet druk dan op een toets...";:COLOR 7,0
  31. 400 WHILE I$="":I$=INKEY$
  32. 410 A=INT(RND*25):B=INT(RND*80)
  33. 420 IF A<2 OR B<2 THEN 460
  34. 430 IF SCREEN(A,B)=255 THEN LOCATE A,B:PRINT CHR$(254);:P=P+1
  35. 440 T=T+1:IF P=272 THEN 500
  36. 450 LOCATE 21,28:COLOR 15:PRINT"Aantal beeldpunten: ";P
  37. 460 WEND
  38. 470 FOR A=7 TO 18:FOR B=17 TO 59
  39. 480 IF SCREEN(A,B)=255 THEN LOCATE A,B:PRINT CHR$(254);
  40. 490 NEXT B,A
  41. 500 BEEP:LOCATE 22,28:PRINT"Opmerkingsgave: ";
  42. 510 IF T>2000 THEN PRINT "Slecht";
  43. 520 IF T>1000 AND T<1999 THEN PRINT"Voldoende";
  44. 530 IF T>850 AND T<999 THEN PRINT "Goed";
  45. 540 IF T>750 AND T<849 THEN PRINT "Zeer goed";
  46. 550 IF T<750 THEN PRINT "Uitstekend";
  47. 560 COLOR 7,0:WHILE INKEY$="":WEND:END
  48.