программа для теста beta-disk
 

Нужна простенькая программа на басике, создает файл на дискете. Файл с какими нибудь значениями - например 111111111111111. Нужно для проверки на ошибки чтения с флопа. Ощущение что данные считываются битые.

SAVE "TEST" CODE 0, 16384

VERIFY "TEST" CODE 0, 16384

10 PRINT "1111111111111111111111111"

SAVE "TEST" CODE 0, 16384

VERIFY "TEST" CODE 0, 16384

:)

10 FOR N=1 TO 6911
20 POKE 16384+N,1
30 NEXT N
40 RANDOMIZE USR 15619:REM: SAVE "TEST" CODE 16384,6912
50 RANDOMIZE USR 15619:REM: VERIFY "TEST" CODE 16384,6912

а чтобы файл был размером 128 кб - т.е. всю оперативку тестануть.

Засланец! Вот он засланец! Афтар жошь! Пей йад! Засланцы не пройдут!

+1

Вы чего. А что я такого спросил.

SAVE "TEST" CODE 16384, 131072
:-))))

спецификации TR-DOS почитай, про число секторов на диске, число секторов на файл, узнаешь много нового и интересного :)

Имхо смеяться не здесь %)
Чувак, определись че те надо- протестить диск или протестить память.
А то получается "дайте попить, а то есть так хочется, аж переночевать негде" %)