Код:
script_04:
; Задать адрес загружаемого кодового сегмента
DB SET_CS ;Установить адрес кодового скрипта
DB LOW ADR_S1,HIGH ADR_S1 ;адрес кодового скрипта
DB LOW LEN_S1,HIGH LEN_S1 ;длина кодового скрипта
; 1 CLEAR 24831 (6100h-1)
DB K1,KX,K2,K4,K8,K3,K1,KCR
; 2 LET a=24832 (6100h)
DB K2,KL,KA,EQV,K2,K4,K8,K3,K2,KCR
script_as: ;Читать из памяти ASM-script
; 6 LET r=a
DB K6,KL,KR,EQV,KA,KCR
; 7 IF IN 55791 = 0 THEN RANDOMIZE USR r
DB K7,KU,EXT,SS+KI,K5,K5,K7,K9,K1,EQV,K0,SS+KG,KT,EXT,KL,KR,KCR
; 8 PRINT AT 0,0; a-r;
DB K8,KP,SS+KI,K0,ZPT,K0,TZP,KA,MNS,KR,TZP,KCR
; 9 POKE a,IN 55535: LET a=a+1: GOTO 7
DB K9,KO,KA,ZPT,EXT,SS+KI,K5,K5,K5,K3,K5,DVT,KL,KA,EQV,KA,PLS,K1,DVT,KG,K7,KCR
; RUN
DB KR,KCR
DB 0FFh ;конец скрипта
Здесь скан-коды обозначены их мнемоникой.