π Slice

"π Slice" — это простая игра на запоминание первых 100 цифр π в 10 строках с использованием CBM64 BASIC v2 для участия в конкурсе ASCII BASIC GAME 10Liner 2021 года.

Я выбрал Commodore 64, так как я уверенно владею языком BASIC и своим любимым 8-битным компьютером 1980-х годов.

Заявка представляет собой компактную версию моей оригинальной работы  π  для Благотворительного конкурса C64 «Кассета 50» 2021 года. Ее цель — сжать игру до 10-строчной игры для подачи заявки на этот конкурс.

Сюжет

<р>

Э?... Сама по себе сюжетная линия не такая уж большая, однако ее можно рассматривать как образовательную игру, в которой можно научить или выучить первые 100 цифр π. Если вы можете вспомнить все числа по памяти, то это правильно,  однако искать значение в Интернете не рекомендуется.
 
Как запустить
< /п>

Для игры можно использовать эмуляторы VICE или CCS64. В качестве альтернативы также можно использовать настоящий C64.

Эксплуатация

Эта операция в игре довольно проста. Все, что вам нужно, это нажать клавишу от [0] до [9], чтобы угадать число.

Если вы правы, цифра станет зеленой; в противном случае цифра станет красной.
После 100 цифр ваш результат будет отображаться из 100 цифр.

<р>

Кодекс

Ниже приведен простой текст игры в формате PETSCII. Обратите внимание на символы управления экраном, которые содержатся в cu.круговые скобки, очищающие экран; переместите курсор в правильное положение и измените цвет текста по мере необходимости.

Чтобы соответствовать требованию в 10 строк, строка комментария находится в строке 0, а для соблюдения ограничения в 72 символа строки данных для цифр π пропускаются через программу, чтобы соответствовать этому дополнительному требованию.

Для более подробной информации я поставил перед собой дополнительную задачу: убедиться, что все строки соответствуют ограничению в 72 символа, в том числе, когда СПИСОК игры представляет собой ее расширенный код.

0 REM 2021 ASCII BASIC GAME 10 LINE COMP {pi} SLICE - COUT 2021 1 Q=10:S=53280:POKES,0:POKES+1,0:GOSUB7:B=1276:E=9:L=40:V=54272:GOTO3 2 D$=MID$(A$,C,1):T=B+F+C:POKET+V,0:POKET,ASC(D$):R=0:P$="{вниз*5} ":ВОЗВРАЩАТЬСЯ 3 FORA=0TOE:F=A*L:READA$:FORC=1TOQ:GOSUB2:NEXTC,A:J=1:DATA"1415926535" 4 N=2:GOSUB8:H$=CHR$(PEEK(B+K)):IFH$=G$THENR=R+1:N=5:DATA"8979323846" 5 POKEB+K+V,N:J=J+1:IFJ<101THEN4:DATA"2643383279","5028841971" 6 PRINTTAB(13)P$P$"SCORE:"R"{black}":END:DATA"6939937510","5820974944" 7 PRINT"{clear}{white}{down}"TAB(Q)"{pi} SLICE - cout 2O21{down}":PRINTTAB(Q)"{down}{U}{I}{down}{left} {cm w}{down}{left*2}{J}{K}.":return 8 M=INT((J-1)/Q):K=L*M+(J-Q*M):G$="":GETG$:IFG$=""THEN8 9 ВОЗВРАТ: ДАННЫЕ "5923078164", "0628620899", "8628034825", "3421170679"