Программа "PRIM"

Теперь, наконец, переходим к тексту остальных строк программы "PRIM".

Комментарии потом.

0

REM коды

3

LET W=3: GO SUB 10: GO SUB 7: GO SUB 8: BORDER 1: PAPER 0: INK 6: BRIGHT 0: CLS : PRINT

BRIGHT 1;AT 2,2: "ПРОГРАММА ДЛЯ ОБУЧЕНИЯ СЧЕТУ": PAPER 2; INK 7; INVERSE 1; AT 7,9: "

";AT 8,9; "

P R I M

";AT 9,9;"

"; PAPER 0: INK 2: INVERSE 0:AT

14,6:"АВТОР: АЛЕКСЕЕВ А.Г."

4

PRINT INK 4: BRIGHT 1; AT 17,12;"01,06,92": BEEP .1,26: BEEP .1,20: GO SUB 20: GO TO 100

5

GO SUB 9: SAVE "PRIM" LINE 2: VERIFY "PRIM"

6

GO TO 5

7

.

. см. выше

.

15

20

INPUT ;: PRINT #0; "

НАЖМИТЕ ЛЮБУЮ КЛАВИШУ"

22

LET W=22: GO SUB 10: PAUSE 0

24

IF INKEY$="q" OR INKEY$="Q" THEN GO TO 9999

26

RETURN

30

.

. см. текст программы меню

.

38

40

LET T=0: RETURN

41

LET T=INT (RND*2): RETURN

42

LET T=2: RETURN

43

LET T=INT (RND*2+2): RETURN

44

LET T=INT (RND*4): RETURN