dos33fsprogs/basic/appleiibot/stargate.bas

3 lines
254 B
QBasic

1FORI=0TO123:POKE892+I,4*PEEK(2125+I)-192+(PEEK(2249+I/3)-35)/4^(I-INT(I/3)*3):NEXT
2&",=n9D`S0QnZ0Oo6F3QeWoV/Q6QBk=J8QoM:Q9a;X9R1I0NnYlR86nYmYo76nVo8InYaVn76nRmY776`foWB8RmR1I1VhoR]>Rnj$NocnYnb1[Waod1V2Qc@S0CO0S+@*,4L4;6*4,I70.$*'0#Z'?3[0C75+@W=)G&4V&&