home *** CD-ROM | disk | FTP | other *** search
/ RUN Flagazine Extra: The Best Of RUN 1-12 / thebest.zip / GOOCHEL.BAS < prev    next >
BASIC Source File  |  1994-10-01  |  1KB  |  31 lines
  1. 100 REM GEDACHTENLEZEN - MONOCHROOM
  2. 110 A1$ = CHR$(201) + STRING$(37, 205) + CHR$(187)
  3. 120 A2$ = CHR$(186) + STRING$(37, 32) + CHR$(186)
  4. 130 A3$ = CHR$(200) + STRING$(37, 205) + CHR$(188)
  5. 140 CLS : KEY OFF: DEFINT A-Z
  6. 150 LOCATE 5, 35: PRINT "GOOCHELEN"
  7. 160 HO = 150: EE = 1: MA = SQR(HO / 2): Y = 7
  8. 170 LOCATE 12, 22: PRINT "Denk aan een getal tussen 0 en 150"
  9. 180 FOR Q = 1 TO 5000: NEXT Q: BEEP
  10. 190 LOCATE 14, 31: PRINT "Druk op een toets"
  11. 200 I$ = INKEY$: IF I$ = "" THEN 200
  12. 210 KO = 0: GOSUB 360: LOCATE Y, 21
  13. 220 FOR G = EE TO HO
  14. 230 IF (G AND EE) = 0 THEN 260
  15. 240 PRINT USING "####"; G; : KO = KO + 1
  16. 250 IF KO = MA THEN Y = Y + 1: LOCATE Y, 21: KO = 0
  17. 260 NEXT G: PRINT : Y = 7
  18. 270 LOCATE 18, 25: PRINT "Staat uw getal hierbij (j/n)?"
  19. 280 I$ = INKEY$: IF I$ = "" THEN 280
  20. 290 A = INSTR("NnJj", I$): IF A = 0 THEN 280
  21. 300 IF A > 2 THEN NU = NU + EE
  22. 310 EE = EE + EE
  23. 320 IF EE <= HO THEN 210
  24. 330 IF NU > 150 OR NU = 0 THEN CLS : LOCATE 23, 30: PRINT "U bent zelf de tel kwijt geraakt": END
  25. 340 LOCATE 18, 1: PRINT STRING$(79, 32): LOCATE 13, 31
  26. 350 COLOR 31, 0: PRINT "Uw getal is:"; NU: COLOR 7, 0: END
  27. 360 LOCATE 6, 20: PRINT A1$
  28. 370 FOR Z = 7 TO 15: LOCATE Z, 20: PRINT A2$: NEXT Z
  29. 380 LOCATE 16, 20: PRINT A3$: RETURN
  30.  
  31.