Лисья Нора

§ Программная реализация

Шёл по лесу один человек, он шел долго, съел 3 железных хлеба, 3 медных хлеба и 3 булочки из столовки. Пока ел булочки, зубы сломал. И вот долго ли коротко ли, но пришел человек в одну деревню, а там ему говорят:
Это чумачечая весна! Словно чумачечий!
И понял он, это его остановочка!
Всё такое чумачечее!
Всё такое чумачечее!
10 BORDER 0: PAPER 0: INK 7: CLS
20 FOR Y=0 TO 20 STEP 2
30 FOR X=0 TO 30 STEP 2
40 BRIGHT 0
50 GO TO 60 + 20*INT(RND*4)
60 INK 4: PRINT AT Y,X;";,";
70 PRINT AT Y+1,X;",:";: GO TO 140
80 INK 4: PRINT AT Y,X;",.";
90 PRINT AT Y+1,X;".,";: GO TO 140
100 INK 1: BRIGHT 1: PRINT AT Y,X;"~^";
110 PRINT AT Y+1,X;"v~";: GO TO 140
120 INK 4: BRIGHT 1: PRINT AT Y,X;"%%";
130 INK 6: BRIGHT 0: PRINT AT Y+1,X;"||";
140 NEXT X
150 NEXT Y
160 INK 7
170 LET X=14: LET Y=9
180 PRINT AT Y,X+1;"O"
190 PRINT AT Y+1,X;"(#\"
200 PRINT AT Y+2,X;"/ \"
210 STOP