home *** CD-ROM | disk | FTP | other *** search
/ RUN Flagazine Extra: Special 3 / run-special-3.zip / GOOCHEL.BAS < prev    next >
BASIC Source File  |  1989-11-24  |  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:PRINT "U bent zelf de tel kwijt geraakt":GOTO 390
  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:GOTO 390
  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. 390 WHILE INKEY$="":WEND:END
  31.