Бейсик-помощь

[ZEman]

А разве Remы так много занимают ?
:v2_dizzy_aaaaa
Я их использую для разделения программы на части чтоб не путаться, где, что.

[Advertiser]

[Bedazzle]

А разве Remы так много занимают ?
:v2_dizzy_aaaaa
Я их использую для разделения программы на части чтоб не путаться, где, что.

каждая буква текста - один байт (их набегает 1231 символ), плюс сами REMы (113 штук), плюс бейсиковская информация по каждой строке - номер, длина, возврат каретки (113 штук * 5 байт = 565)

итого 1909 байт

чутка наврал, что больше 2кб

-----
вот это тоже на машкоде реализовать совсем легко, места займёт меньше, а выполняться будет мгновенно:

4002 CLS 
4003 PRINT INK 0; FLASH 1;AT 3,3;"Please wait 40 seconds !"
4005 LET adr=20672: LET peek=0: LET ra=61830
4007 LET di=adr+63
4009 FOR g=adr TO di
4011 LET peek=PEEK ra
4013 POKE g,peek
4015 LET ra=ra+1
4017 NEXT g

цикл копирования

LD HL, 61830	; 3 байта
LD DE, 20672	; 3 байта
LD BC, 64	; 3 байта
LDIR		; 2 байта
RET		; 1 байт

итого: 12 байт

ну и вызов процедурки через rand usr val "...." - 10 байт,
что в итоге даст размер меньший, чем бейсиковское сообщение "подождите 40 сек"