home *** CD-ROM | disk | FTP | other *** search
/ RUN Flagazine Extra: Supplement 2: Soundwriter / run-supplement-2.zip / REVERS.BAS < prev    next >
BASIC Source File  |  1991-08-02  |  2KB  |  34 lines
  1. 1000 REM REVERS MSX2/GWBASIC MONOCHROOM (C) NICO BAAIJENS
  2. 1010 COMMON MENUFL%:KEY OFF:SCREEN 0:CLS
  3. 1020 DIM A(20):R=9:N=9:B=17:RANDOMIZE -TIMER
  4. 1030 A(1)=INT((N-1)*RND(1)+2):L1$=CHR$(205)+CHR$(209)+CHR$(205)+CHR$(205)
  5. 1040 L2$=CHR$(205)+CHR$(207)+CHR$(205)+CHR$(205):FOR K=2 TO N
  6. 1050 A(K)=INT(N*RND(1)+1):FOR J=1 TO K-1:IF A(K)=A(J) THEN 1050 ELSE NEXT J,K
  7. 1060 LOCATE 3,21:COLOR 11,0:PRINT " 1   2   3   4   5   6   7   8   9"
  8. 1070 COLOR 10,0:LOCATE 1,29:PRINT "ALLE NEGEN OP EEN RIJ"
  9. 1080 PRINT CHR$(218)STRING$(75,196)CHR$(191):FOR W=3 TO 16:LOCATE W,1
  10. 1090 PRINT CHR$(179):LOCATE W,77:PRINT CHR$(179):NEXT
  11. 1100 PRINT CHR$(192)STRING$(75,196)CHR$(217)
  12. 1110 COLOR 14,0:LOCATE 4,20:PRINT CHR$(201)CHR$(205)CHR$(205);
  13. 1120 FOR A=1 TO 8:PRINT L1$;:NEXT:PRINT CHR$(205)CHR$(187)
  14. 1130 LOCATE 5,20:PRINT CHR$(186):FOR A=1 TO 8:B=B+4:LOCATE 5,B
  15. 1140 PRINT STRING$(3,32)CHR$(179);:NEXT A:PRINT STRING$(3,32)CHR$(186)
  16. 1150 LOCATE 6,20:PRINT CHR$(200)CHR$(205)CHR$(205);:FOR A=1 TO 8:PRINT L2$;
  17. 1160 NEXT:PRINT CHR$(205)CHR$(188):GOSUB 1250
  18. 1170 M=M+1:LOCATE 11,21:SOUND 800,1:PRINT "Hoeveel cijfers (vlnr) omdraaien?"
  19. 1180 LOCATE 8,21:PRINT STRING$(9,32):LOCATE 9,21:PRINT "Beurt: ";M
  20. 1190 I$=INKEY$:IF I$="" THEN 1190 ELSE IF INSTR("123456789"+CHR$(27),I$)=0 THEN 1170 ELSE IF I$=CHR$(27) THEN 1300
  21. 1200 R=VAL(I$):V=INT(R/2):T=T+1:FOR K=1 TO V:Z=A(K):A(K)=A(R-K+1):A(R-K+1)=Z
  22. 1210 NEXT K:GOSUB 1250:FOR K=1 TO N:IF A(K)<>K THEN GOSUB 1270:GOTO 1170
  23. 1220 NEXT:GOSUB 1270:GOSUB 1290:LOCATE 13,21:PRINT "Gelukt in";M;"beurten"
  24. 1230 LOCATE 15,21:PRINT "Toets <Esc>"
  25. 1240 I$=INKEY$:IF I$="" THEN 1240 ELSE IF I$=CHR$(27) THEN 1300
  26. 1250 GOSUB 1290:B=17:FOR K=1 TO R:B=B+4:LOCATE 5,B:PRINT A(K);:SOUND 1250,.3
  27. 1260 LOCATE 7,B+1:PRINT CHR$(24):FOR C=1 TO 500:NEXT C,K:RETURN
  28. 1270 B=17:FOR T=1 TO 9:B=B+4:IF A(T)=T THEN LOCATE 5,B:COLOR 28,9:PRINT A(T);
  29. 1280 NEXT:COLOR 14,0:RETURN
  30. 1290 LOCATE 7,20:PRINT STRING$(40,32):RETURN
  31. 1300 CLS:SCREEN 0:IF MENUFL% THEN 120
  32. 1310 END
  33. 20000 REM EIND REVERS
  34.