А если еще и коментарии будут то вообще будет супер...Сообщение от elf/2
10 BORDER 1: PAPER 1: CLS
20 REM SCREEN
100 LET B$=" "
110 LET A$=B$+"PROGRAM: B.STROKA... *** DEMO ***"
120 LET A$=A$+" UP....Q, DOWN....A, LEFT....O, "
130 LET A$=A$+"RIGHT....P, FIRE....M, END....E"
140 LET A$=A$+" AUTHOR: Petrow Iwan 1993"
150 LET A$=A$+" PRESS ANY KEY TO CONTINUE"
160 LET A$=A$+B$
200 FOR N=1 TO LEN A$31
210 PAUSE 7: IF INKEY$<>"" THEN GO TO 300
220 LET B$=A$(N TO N+31)
230 PRINT #0;AT 1,0; INK 6;B$
240 NEXT N
250 GO TO 200
Обычная бегущая строка...
Просто мне так проще понять работу команд питона... В циклах мне такой подходздорово помог...Сообщение от elf/2
А нету адреса где ее скачать можно???Сообщение от elf/2




Ответить с цитированием