Можно ли сохранить любой символ PETSCII в строке оператора DATA в Commodore BASIC?

Краткий ответ: Нет. И вы сказали, почему: символ двойной кавычки внутри строки генерирует ошибку: нет символов, экранирующих кавычки. Для каждого значения «Другое» вы могли бы вставить что-то в свои строки оператора DATA, а затем просто никогда больше не трогать эти строки с помощью редактора C64 BASIC, но двойные кавычки вас убьют.

Лучшее и самое быстрое решение, которое мне еще предстоит придумать, - это проклятие бедняка. Это работает следующим образом:

1. Возьмите каждый двоичный байт. Разделите его на две шестнадцатеричные цифры (/16 и сохраните остаток для второй цифры).
2. Для каждой шестнадцатеричной цифры возьмите двоичное значение и добавьте 48.
3. Теперь у вас есть два символа в наборе (0,1,2,3,4,5,6,7,8,9,:,;,‹,=,>,?), которые представляют один байт.
4. Эти два символа входят в строку оператора данных.

Обратный процесс, чтобы прочитать их и вытолкнуть их.

Есть способ сделать это, вы можете POKE байт прямо в ОЗУ. Однако это немного далеко, и вам нужно знать, куда вы POKE отправляете байты. Однако вы можете отказаться от множества нулей в выражении DATA, например:

    0 FOR I=0 TO 7
    1 READ A(I)
    2 NEXT I
    3 PRINT A(0), A(4)
63998 PRINT "FIN"
63999 DATA ,,,,4,,7,8

Мы знаем, что 2048 — это начало области BASIC (если только вы не переместили указатели), поэтому можно предположить, что можно сделать так:

    0 DATA" "," "," "," "," "

Затем POKE примерно в 2050 или 2051 году с персонажем, которого вы бы узнали, а затем перечислите его. Если вы видите символ, добавленный между двойными кавычками, вы выиграли. Конечно, после этого вам нужно рассчитать каждую позицию между котировками. Когда вы закончите, измените номер строки и продолжите программирование. Я не уверен, как вы могли бы POKE поставить двойную кавычку между двойными кавычками, поскольку, насколько мне известно, в Commodore BASIC нет понятия экранирования строки.

Я бы лично просто использовал цифры.

Я сохранил следующий оператор данных, каждый элемент в виде строки, в программе C64. Я выбрал CHR$(172) - CHR$(190) и два выше CHR$(4000).

100 data "©","ª","«","¬"," ","®","¯","¶","¼","½","¾","™","ח","⦁"

И я запустил следующий код:

10 FOR X=1 TO 14
20 READ A$
30 PRINT ASC(A$)
40 NEXT X
100 data "©","ª","«","¬"," ","®","¯","¶","¼","½","¾","™","ח","⦁"

Результаты были смешанными. Я знал, что он не распознает ничего выше 255. Но вместо этого CHR$(173) печатается как 32:

RUN
 169 
 170 
 171 
 172 
 32 
 174 
 175 
 182 
 188 
 189 
 190 

?SYNTAX  ERROR IN 100
READY.

Я сопротивлялся программе, и мой оператор DATA теперь выглядит так:

100 DATA "©","ª","«","¬"," ","®","¯","¶","¼","½","¾",""","",""

Используя другой диалект BASIC, более современный и написанный в последние несколько лет, я вывел CHR$ от 172 до 190:

The ASCII value of A is:  65 
The ASCII value of A should be 65, like it is on a PC.
If it is not 65, then a conversion table must be loaded
and the results converted to match the PC so code

CHR$ VALUES
—————————————————

CHR$(169)=©  CHR$(170)=ª  CHR$(171)=«  CHR$(172)=¬  CHR$(173)=­        
CHR$(174)=®  CHR$(175)=¯  CHR$(176)=°  CHR$(177)=±  CHR$(178)=²  
CHR$(179)=³  CHR$(180)=´  CHR$(181)=µ  CHR$(182)=¶  CHR$(183)=·  
CHR$(184)=¸  CHR$(185)=¹  CHR$(186)=º  CHR$(187)=»  CHR$(188)=¼  
CHR$(189)=½  CHR$(190)=¾  

Для C64 BASIC вы либо должны использовать строку чисел, либо вам придется использовать шестнадцатеричные значения и сохранять фактические символы, как я сделал в своем исходном операторе C64 DATA.

Я не знаю точно, сколько места, по вашему мнению, вы собираетесь сэкономить, но в лучшем случае это будет минимально, поскольку C64 не может превысить CHR$ (255).

Однако на другом диалекте, который я использовал, SmartBASIC, я вышел за пределы CHR$(20480).

Надеюсь, это поможет.