home *** CD-ROM | disk | FTP | other *** search
/ RUN Flagazine Extra: Supplement 1: RUNSheet / run-supplement-1.zip / PRIEMGEN.BAS < prev    next >
BASIC Source File  |  1989-11-24  |  930b  |  20 lines
  1. 100 REM PRIEMGETALLENGENERATOR - MONOCHROOM
  2. 110 KEY OFF:DIM Z(16):I=5:CLS:A$="######":B$="####.#####"
  3. 120 LOCATE 5,1:PRINT STRING$(80,196);
  4. 130 LOCATE 23,1:PRINT STRING$(80,196);
  5. 140 FOR A=1 TO 100000! STEP 2
  6. 150 FOR B=2 TO INT(SQR(A)+1)
  7. 160 IF INKEY$<>"" THEN END
  8. 170 LOCATE 1,20:PRINT USING A$;A;:PRINT" gedeeld door";
  9. 180 PRINT USING A$;B;:PRINT" = ";
  10. 190 C=A/B:LOCATE 1,48:PRINT USING B$;C;
  11. 200 IF C<>INT(C) THEN Q=1:NEXT B:Q=0
  12. 210 IF C=INT(C) THEN LOCATE 2,20:PRINT USING A$;A;:PRINT" is deelbaar door";:PRINT USING A$;B;
  13. 220 IF Q<>1 THEN W=W+1:P=P+1:Z(P)=A:LOCATE 3,20:PRINT USING A$;A;:SOUND 1000,1:PRINT" is een priemgetal!";
  14. 230 LOCATE 24,1:PRINT"Totaal:";W;
  15. 240 LOCATE 24,70:PRINT"Pagina";O;
  16. 250 IF P=13 THEN I=I+1:GOSUB 270:IF I>=22 THEN I=5
  17. 260 NEXT A
  18. 270 IF I=6 THEN FOR U=6 TO 22:LOCATE U,1 :PRINT STRING$(80," ");:NEXT U:O=O+1
  19. 280 LOCATE I,1:FOR Q=1 TO 13:PRINT USING A$;Z(Q);:NEXT Q:P=0:RETURN
  20.