home *** CD-ROM | disk | FTP | other *** search
/ RUN Flagazine: Run 12 / run12.zip / REAGEER.BAS < prev    next >
BASIC Source File  |  1994-02-13  |  2KB  |  35 lines
  1. 100 REM CONCENTREREN & REAGEREN GW/QBASIC (C) RUN FLAGAZINE
  2. 110 CLS:KEY OFF:SCREEN 0,0:DIM J$(12),O$(12),D$(26),P$(100):RANDOMIZE TIMER
  3. 120 DEF FN R=INT(RND*25)+1:S$=STRING$(3,219):FOR A%=1 TO 26:D$(A%)=CHR$(64+A%)
  4. 130 NEXT:COLOR 12,0:LOCATE 3,5:PRINT CHR$(218)STRING$(41,196)CHR$(191)
  5. 140 FOR A%=4 TO 22:LOCATE A%,5:PRINT CHR$(179):LOCATE A%,47:PRINT CHR$(179)
  6. 150 NEXT:LOCATE 23,5:PRINT CHR$(192)STRING$(41,196)CHR$(217):COLOR 15,0
  7. 160 LOCATE 10,55:PRINT CHR$(201)STRING$(12,205)CHR$(187)
  8. 170 FOR A%=11 TO 15:LOCATE A%,55:PRINT CHR$(186)SPC(12)CHR$(186):NEXT
  9. 180 LOCATE 16,55:PRINT CHR$(200)STRING$(12,205)CHR$(188):COLOR 14,0
  10. 190 GOSUB 260:LOCATE 18,56:PRINT "Scan  :":LOCATE 19,56:PRINT "Poging:"
  11. 200 LOCATE 20,56:PRINT "Bingo :":GOSUB 260:GOSUB 290
  12. 210 COLOR 15,12:LOCATE 1,35:PRINT" RUN Flagazine ";
  13. 220 COLOR 10,0:LOCATE 4,50:PRINT "Druk op een toets als het blok"
  14. 230 LOCATE 5,50:PRINT  "op een van de letters in het":LOCATE 6,50:LOCATE 6,50
  15. 240 PRINT "kleine kader staat.":T=TIMER+5:WHILE T>TIMER:WEND:SOUND 1111,5
  16. 250 COLOR 15,0:FOR Q=1 TO 10:LOCATE 18,64:PRINT Q:GOSUB 310:NEXT Q:END
  17. 260 W=0:V=9:FOR A%=1 TO 3:V=V+2:FOR B%=1 TO 4:W=W+1:D=D+1:O$(W)=D$(FN R)
  18. 270 J$(W)=STR$(V)+STR$(B%+(2*D)+54):LOCATE V,B%+(2*D)+54
  19. 280 PRINT O$(W):NEXT B%:D=0:NEXT A%:COLOR 15,0:RETURN
  20. 290 Z=0:G=2:FOR A=1 TO 10:H=4:G=G+1:FOR B=1 TO 10:Z=Z+1:H=H+4:LOCATE A+G,H
  21. 300 P$=D$(FN R):PRINT P$:P$(Z)=P$:NEXT B,A:RETURN
  22. 310 Z=0:G=2:FOR A=1 TO 10:H=3:G=G+1:FOR B=1 TO 10:H=H+4:Z=Z+1
  23. 320 GOSUB 330:NEXT B,A:RETURN
  24. 330 LOCATE A+G,H:PRINT S$:T=TIMER+.1:WHILE T>TIMER:WEND
  25. 340 IF INKEY$<>"" THEN Y=Y+1:LOCATE 19,64:PRINT Y:GOSUB 360
  26. 350 P$=D$(FN R):LOCATE A+G,H:PRINT CHR$(32);P$;CHR$(32):P$(Z)=P$:RETURN
  27. 360 FOR I%=1 TO 12:IF P$(Z)=O$(I%) THEN O$(I%)=S$:GOSUB 380:I%=12
  28. 370 NEXT I%:RETURN
  29. 380 TEL=TEL+1:LOCATE 20,64:PRINT TEL:IF TEL=12 THEN GOSUB 390:END
  30. 390 LOCATE VAL(MID$(J$(I%),2,2)),VAL(RIGHT$(J$(I%),2)):PRINT CHR$(32):RETURN
  31. 400 REM /* 29/.4130,4119,3931,4065,3984,3007,3743,3647,4208,2956
  32. 410 REM /*/....3063,4355,4923,4957,3927,3823,2898,3047,4026,2775
  33. 420 REM /*/....3232,1624,3361,3280,4012,3282,0967,3747,4250
  34. 430 REM Checksum...............:  103339
  35.