Обо мне
Привет! Меня зовут Лис и это мой блог. Здесь я могу ныть и страдать, писать про код и обо всем.
Блог страдающего Лиса
Lorem ipsum hello dolor sit world amet
09 мая 2025 Пт
Меня продрало на Спектрумский Бейсик
Однажды, давным-давно... в далеком детстве, в далекой-предалекой галактике жил-был один Лис. Но его не звали еще так. Он пытался сделать всякие мелкие программы, и не получилось ничего хорошего.
В общем, сегодня просто с утра решил посмотреть как работает генерация псевдографики, для интереса. Несмотря на небольшую программу, получилось весьма эффектно.
В общем, сегодня просто с утра решил посмотреть как работает генерация псевдографики, для интереса. Несмотря на небольшую программу, получилось весьма эффектно.
BORDER 0: PAPER 0: INK 7: CLS FOR Y=0 TO 20 STEP 2 FOR X=0 TO 30 STEP 2 BRIGHT 0 GO TO #A + 2*INT(RND*4) #A INK 4: PRINT AT Y,X;";,"; PRINT AT Y+1,X;",:";: GO TO #E INK 4: PRINT AT Y,X;",."; PRINT AT Y+1,X;".,";: GO TO #E INK 1: BRIGHT 1: PRINT AT Y,X;"~^"; PRINT AT Y+1,X;"v~";: GO TO #E INK 4: BRIGHT 1: PRINT AT Y,X;"%%"; INK 6: BRIGHT 0: PRINT AT Y+1,X;"||";: GO TO #E #E NEXT X NEXT Y INK 3 LET X=14: LET Y=9 PRINT AT Y,X+1;"O" PRINT AT Y+1,X;"(#\" PRINT AT Y+2,X;"/ \" STOP