home *** CD-ROM | disk | FTP | other *** search
/ RUN Flagazine: Run 14 / unpacked-run14.zip / RAADEENS.BAS < prev    next >
BASIC Source File  |  1995-01-01  |  2KB  |  29 lines
  1. 100 REM SPREEKWOORDRAADSEL GW/QBASIC (C) RUN FLAGAZINE
  2. 110 CLS:KEY OFF:DIM S(30),P(9),L$(15):FOR A=1 TO 30:READ S(A):NEXT
  3. 120 DATA 79,77,68,69,87,73,76,76,69,86,65,78,68,69,83
  4. 130 DATA 77,69,69,82,76,73,75,84,68,69,75,65,84,68,69
  5. 140 DATA KRIJG,AFGEMAT,MISDAAD,HUWELIJK,PEEN,ELK,VOORJAAR,SCHIP,IMMER
  6. 150 DATA BEDROG,ZIELIG,LIJN,BOL,VAT,:FOR A=1 TO 15:READ L$(A):NEXT
  7. 160 DATA 82,69,69,76,69,68,78,65,75:FOR A=1 TO 9:READ P(A):NEXT:COLOR 13,0
  8. 170 PRINT CHR$(218)STRING$(40,196)CHR$(191):PRINT CHR$(179)STRING$(30,249);
  9. 180 PRINT " "STRING$(9,"?")CHR$(179):PRINT CHR$(192)STRING$(40,196)CHR$(217)
  10. 190 COLOR 14,0:LOCATE 24,1:PRINT STRING$(80,196);
  11. 200 LOCATE 25,1:PRINT "Geef de synoniemen en completeer het spreekwoord!";
  12. 210 DEF SEG=0:POKE 1047,PEEK(1047) OR 64:LOCATE 4,1:PRINT "Welk synomiem?"
  13. 220 COLOR 15,0:FOR A=1 TO 30:Q=Q+1:LOCATE A+5,1:PRINT L$(A);" - ";
  14. 230 LINE INPUT R$:IF A=14 THEN LOCATE 21,1:PRINT "Toets [Enter]"
  15. 240 IF R$="" OR A=15 THEN 260
  16. 250 GOSUB 290:NEXT
  17. 260 IF VL=0 THEN COLOR 31,0:GOSUB 330
  18. 270 COLOR 14,0:LOCATE 20,1:PRINT "Zend uw oplossing op een briefkaart naar:";
  19. 280 PRINT "RUN Puzzelredaktie, Postbus 338, 2160 AH Lisse.":END
  20. 290 IF A=8 OR A=11 THEN Q=Q+2 ELSE IF A=12 THEN Q=19 ELSE IF A=13 THEN Q=22
  21. 300 R=ASC(LEFT$(R$,1)):IF R<>S(Q) THEN SOUND 555,2:VL=1:RETURN
  22. 310 FOR B=1 TO 30:IF R=S(B) THEN LOCATE 2,B+1:PRINT CHR$(S(Q))
  23. 320 NEXT:RETURN
  24. 330 LOCATE 2,33:FOR A=9 TO 1 STEP -1:PRINT CHR$(P(A));:NEXT:RETURN
  25. 340 REM /* 23/.3550,2543,2532,4501,3852,3880,4178,4117,2679,5729
  26. 350 REM /*/....4506,3372,3921,1234,0916,1884,5536,4368,3756,3533
  27. 360 REM /*/....3276,0857,3723
  28. 370 REM Checksum...............:  78443
  29.