home *** CD-ROM | disk | FTP | other *** search
/ RUN Flagazine Extra: Special 2 / run-special-2.zip / ABACUS.BAS < prev    next >
BASIC Source File  |  1992-05-31  |  2KB  |  43 lines
  1. 100 SCREEN 1:COLOR 11,1:DIM KRL%(25),BO(1,13):KEY OFF
  2. 102 PRINT:PRINT "Deze demo laat zien hoe de Abacus telt";
  3. 103 PRINT "van 1 tot oneindig. In het Hoofdmenu van";
  4. 104 PRINT "RUN Desktop vindt u een zeer uitgebreid"
  5. 105 PRINT "programma van Koos van Egmond dat u"
  6. 106 PRINT "leert hoe u met het Chinese telraam kunt";
  7. 107 PRINT "optellen, aftrekken en vermenigvuldigen.";
  8. 108 PRINT
  9. 109 PRINT "U toetst <Esc> om deze demo te stoppen"
  10. 110 PRINT "en terug te keren naar RUN Desktop."
  11. 111 PRINT:PRINT:PRINT:PRINT
  12. 112 PRINT "Druk een toets voor de demo..."
  13. 113 WHILE INKEY$="":WEND
  14. 120 CIRCLE(10,10),4,2:PAINT(10,10),2:GET(10,6)-(14,14),KRL%
  15. 130 FOR N=1 TO 11:PUT(10+N,6),KRL%,PSET:NEXT N
  16. 140 LINE(8,9)-(11,10),3,BF:LINE(10,8)-(15,8),3:LINE(16,12)-(21,12),0
  17. 150 LINE -(23,11),0:GET(6,7)-(25,13),KRL%:CLS
  18. 160 FOR N=21 TO 297 STEP 23:LINE(N,6)-(N+1,110),3,B:NEXT N
  19. 170 FOR M=0 TO 1:FOR N=12 TO 288 STEP 23:PUT(N,8+M*8),KRL%,PSET:NEXT N,M
  20. 180 FOR M=0 TO 4:FOR N=12 TO 288 STEP 23:PUT(N,70+M*8),KRL%,PSET:NEXT N,M
  21. 190 LINE(0,0)-(319,116),1,B:LINE(6,6)-(312,40),1,B:LINE(6,46)-(312,110),1,B
  22. 200 PAINT(4,4),3,1:LOCATE 17,3:PRINT "RUN rekencursus op de ABACUS"
  23. 210 LINE(186,122)-(243,140),2,B:LINE(32,164)-(295,178),1,B
  24. 220 GET(12,7)-(31,15),KRL%:FOR N=1 TO 13:BO(0,N)=2:NEXT N
  25. 230 ST=13:HS=0
  26. 240 LOCATE 22,6:PRINT "Dit is"STR$(G):SP=1:GOSUB 330:SP=.01
  27. 250 BO=1:IF BO(1,ST)<5 THEN BP=47:OP=69:GOSUB 350:BO(1,ST)=BO(1,ST)+1:GOTO 300
  28. 260 GOSUB 320:GOSUB 310:HS=4:SP=0:GOSUB 380:BO(1,ST)=0:SP=.01
  29. 270 HS=0:BO=0:BP=7:OP=23:GOSUB 380:BO(0,ST)=BO(0,ST)-1:SP=1
  30. 280 IF BO(0,ST)<>0 THEN 230 ELSE GOSUB 320:GOSUB 310
  31. 290 HS=1:SP=0:GOSUB 350:BO(0,ST)=2:ST=ST-1:HS=0:SP=.01:G=G-1:GOTO 250
  32. 300 G=G+1:IF BO(1,ST)<5 THEN 230 ELSE GOTO 250
  33. 310 LOCATE 22,21:PRINT STRING$(16," "):RETURN
  34. 320 LOCATE 22,6:PRINT STRING$(15," ")"Dat mag niet !!!":SP=2:GOSUB 330:RETURN
  35. 330 T=TIMER+.3:WHILE T>TIMER:WEND
  36. 340 RETURN
  37. 350 FOR AK=0 TO HS:FOR M=OP TO BP STEP -.5-SGN(HS)*.5
  38. 360 PUT(ST*23-11,M+8*(BO(BO,ST)+AK)),KRL%,PSET:NEXT M
  39. 370 SOUND 11000,.05:NEXT AK:RETURN
  40. 380 FOR AK=0 TO HS:FOR M=BP TO OP STEP .3+SGN(HS)*.7
  41. 390 PUT(ST*23-11,M+8*(BO(BO,ST)-AK)-8),KRL%,PSET:NEXT M
  42. 400 SOUND 11000,.05:NEXT AK:RETURN
  43.