home *** CD-ROM | disk | FTP | other *** search
/ RUN Flagazine: Run 12 / run12.zip / HSTEDEN.BAS < prev    next >
BASIC Source File  |  1992-12-24  |  2KB  |  31 lines
  1. 100 REM AARDRIJKSKUNDELES (c) RUN FLAGAZINE CURSUS GWBASIC
  2. 110 CLS:KEY OFF:DIM LAND$(30),STAD$(30),LIJST$(5),Q(10):RANDOMIZE TIMER
  3. 120 DATA ALGERIJE,EGYPTE,FINLAND,ZWEDEN,NOORWEGEN,IERLAND,IJSLAND,PORTUGAL
  4. 130 DATA SPANJE,CHILI,PERU,BULGARIJE,HONGARIJE,ALBANIE,POLEN,ARGENTINIE
  5. 140 DATA NIEUW ZEELAND,DUITSLAND,CANADA,FILIPPIJNEN,JAPAN,BIRMA
  6. 141 DATA LIBIE,BOLIVIE,ECUADOR,KENIA,PAKISTAN,IRAN,IRAK,ROEMENIE
  7. 150 DATA ALGIERS,KAIRO,HELSINKI,STOCKHOLM,OSLO,DUBLIN,REYKJAVIK,LISSABON
  8. 160 DATA MADRID,SANTIAGO,LIMA,SOFIA,BUDAPEST,TIRANA,WARSCHAU,BUENOS AIRES
  9. 170 DATA WELLINGTON,BERLIJN,OTTAWA,MANILA,TOKYO,RANGOON
  10. 171 DATA TRIPOLI,LA PAZ,QUITTO,NAIROBI,ISLAMABAD,TEHERAN,BAGDAD,BOEKAREST
  11. 180 FOR A=1 TO 2:FOR B=1 TO 30:IF A=1 THEN READ LAND$(B) ELSE READ STAD$(B)
  12. 190 NEXT B,A:DEF FN RAND1=INT(RND*30)+1:DEF FN RAND2=INT(RND*5)+1
  13. 200 FOR A=1 TO 10:LOCATE 7,10:COLOR 15,0:PRINT "Vraag:";A:COLOR 14,0
  14. 210 LOCATE 9,10:PRINT "Wat is de hoofdstad van: ";:Q(A)=FN RAND1
  15. 220 COLOR 12,0:PRINT LAND$(Q(A));SPC(8):R=FN RAND2:COLOR 11,0
  16. 230 FOR B=1 TO 5:LIJST$(B)=STAD$(FN RAND1):IF B=R THEN LIJST$(B)=STAD$(Q(A))
  17. 240 LOCATE B+8,50:PRINT B;"- ";LIJST$(B);SPACE$(10):NEXT B
  18. 250 FOR C=1 TO 5:FOR D=C+1 TO 5:IF LIJST$(C)=LIJST$(D) THEN B=0:GOTO 230
  19. 260 NEXT D,C:LOCATE 16,16:COLOR 10,0:PRINT "Toets (1,2,3,4 of 5)?";SPC(15)
  20. 270 I$=INKEY$:IF I$="" OR INSTR("12345",I$)=0 THEN 270
  21. 280 I=VAL(I$):LOCATE 16,16:PRINT "Uw antwoord: ";LIJST$(I);
  22. 290 IF LIJST$(I)=STAD$(Q(A)) THEN S=S+1:PRINT " is correct":GOTO 310
  23. 300 SOUND 500,2:PRINT " is onjuist":T=TIMER+1.5:WHILE T>TIMER:WEND:CLS
  24. 310 NEXT A:CLS:FOR A=1 TO 10:LOCATE A,3:PRINT "De hoofdstad van ";
  25. 330 PRINT LAND$(Q(A));" is: ",STAD$(Q(A)):NEXT A
  26. 340 LOCATE 12,10:PRINT "U beantwoordde";S;"van de";A-1;"vragen correct"
  27. 350 REM /* 25/.4106,4942,4656,4046,4136,4828,4767,3627,4747,3843
  28. 360 REM /*/....3635,3831,4116,3409,4213,3155,3826,4142,2712,3660
  29. 370 REM /*/....4066,4548,4082,2563,5103
  30. 380 REM Checksum...............:  100759
  31.