Откройте Америку!

8 'Line27.

t2! = TIMER - t1! 'Line28.

IF t2! = 0! THEN GOTO 5 'Line29.

PRINT n% 'Line30. Prints number of cycles between changes

nc% = nc% + 1 'Line31.

IF nf% > mf% AND n% > 5 GOTO 9 'Line32.

IF n% = 5 THEN GOTO 13 ELSE GOTO 12 'Line33.

GOTO 1 'Line34.

9 'Line35.

PRINT "NChanges=";nc% 'Line36. Prints number of changes in trial

INPUT "result";res% 'Line37. Input of the result of the bet

IF res% = 9 THEN GOTO 10 ELSE GOTO 11 'Line38.

10 'Line39.

OPEN "new" FOR RANDOM AS #1 'Line40. Opens new file

PUT #1,1,k% 'Line41.

..................................................................................................................................................

PUT #1,30,k% 'Line70. Lines 41-70 put 30 records in new file

CLOSE 'Line71.

KILL "new" 'Line72.

11 'Line73.

PRINT "Press Ctrl + Pause to start over" 'Line74.

INPUT "Start over";start% 'Line75.

12 'Line76.

nf% = 0 'Line77. Counter of consecutive "fives"

GOTO 1 'Line78.

13 'Line79.

nf% = nf% + 1 'Line80. Counter of consecutive "fives"

GOTO 1 'Line81.

___________________________________________________________________________________________________

ПРИМЕЧАНИЕ. Программа была модифицирована для второй части демонстрации, в которой она работала непрерывно при температуре 62 градуса по Фаренгейту (16,7 Цельсия).

Число сложений в основном цикле (add%, Line2) было изменено на 5461,

и критерии предсказания были:

1) для последней попытки nc% > 45;

2) для предыдущей попытки nc% < 19.