Osmibitové počítače #1 (semigrafika)
Už je to nějaký ten pátek, kdy ve světě výpočetní techniky vládli počítače, jejichž výkon by se dal srovnat s kdejakou dnešní levnou digitální hrou. Tento zážitek vás vrátí v čase cca o 40let zpět.
To však nic nemění na tom, že počítače měli svoji duši. Jejich systém byl velmi jednoduchý a přehledný. Lze tvrdit, že s nimi mohl pracovat téměř každý, kdo si to jen umanul.
Proto jsem pro vás dnes připravil zajímavou mysterku, kde vás vyzkouším ze základních dovedností v oblasti programovacího jazyka BASIC.
Jde o vytvoření tzv. semigrafiky (pseudografiky), tedy zobrazení obrazce na obrazovce pomoci speciálních (semigrafických) znaku počítace v dobách, kdy ještě jemná grafika na počítačích neexistovala.
Nebojte se nic. Nebude to nic složitého. Budu po vás chtít jen opsat malý prográmek, který vygeneruje na vaši obrazovku QR kód se souřadnicemi fyzické keše.
Prográmek je napsaný v jazyce BASIC pro 8 bitový počítač Commodore PET a jeho výborný emulátor, který vytvořil Thomas Skibo v roce 2014.
Dokáži si představit, že pro někoho může být řešení úkolu nad jeho síly. Zejména pak odpůrce počítačové techniky. Pro takového člověka to může být určitá výzva, stejně jako pro nějakého fyzičkou nepolíbeného kačera, který by rád získal bod na nějaké “T” pětce. Težko tedy určit obtížnost této mysterky. Pro někoho hračka, pro někoho ...?
K emulátoru bych prozradil jen dva příkazy, se kterými si jistě vystačíte.
LIST - potvrdit klávesou RETURN (pomalé prohlížení – drž klávesu OFF RVS)
- vypíše se vlákno vašeho zápisu na obrazovce emulátoru (pro kontrolu tohoto zápisu)
RUN - potvrdit klávesou RETURN
- spustí vámi zapsaný program v emulátoru, čímž zjistíte souřadnice fyzické keše
Do emulátoru se program zapisuje tak jak ho vidíte před sebou. Každý řádek programu je nutné potvrdit klávesou RETURN. Některé znaky není možno vypsat klávesnicí počítače či mobilního telefonu. Je třeba využít přiložené originální klávesnice. Milovníkům dotykových placiček bych určitě doporučil využít osobního počítače. Práce s ním, je v tomto případě na zcela jiné úrovni.
10 PRINTCHR$(147)
20 FORA=0TO533
30 READB
40 POKE32768+A,B
50 NEXTA
60 DATA236,226,226,226,224,224,236,226,226,236,226,226,226,97
70 DATA32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32
80 DATA32,32,97,236,226,97,252,252,97,252,98,97,236,226,97,97
90 DATA32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32
100 DATA32,32,97,97,32,97,252,108,224,225,108,97,97,32,97,97
110 DATA32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32
120 DATA32,32,97,226,226,126,97,255,97,255,123,97,226,226,126,97
130 DATA32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32
140 DATA32,32,236,226,226,236,226,108,236,252,251,251,251,251,251,97
150 DATA32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32
160 DATA32,32,97,225,224,226,124,97,123,251,225,255,226,255,32,97
170 DATA32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32
180 DATA32,32,236,252,124,236,97,226,123,97,251,124,226,225,255,97
190 DATA32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32
200 DATA32,32,97,98,126,255,98,226,252,251,252,123,255,127,254,97
210 DATA32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32
220 DATA32,32,97,252,255,255,124,32,123,98,32,226,226,124,123,97
230 DATA32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32
240 DATA32,32,236,226,226,226,97,236,124,251,123,236,97,123,126,97
250 DATA32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32
260 DATA32,32,97,236,226,97,236,254,123,226,32,226,126,225,224,97
270 DATA32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32
280 DATA32,32,97,97,32,97,97,127,224,127,108,254,254,255,123,97
290 DATA32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32
300 DATA20,20,61,E2,E2,7E,61,61,62,7F,62,7F,62,E1,7C,61
310 DATA20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20
320 DATA20,20,E2,E2,E2,E2,E2,E2,E2,E2,E2,E2,E2,E2,E2,7E
330 GETA$:IFA$=""THEN330
Asi se budete divit, co je to za zvláštní kódy od řádku 300? Jedná se o zápis nikoliv v decimalní soustavě DEC (desítkové), nýbrž v hexadecimální HEX (šestnáctkové). To jest číselná soustava nejvíce oblíbená u těchto počítačů. Rádi s ní pracují, velice ji milují. Každý znak je zapsán v tak zvané ASCII tabulce pod svým jedinečným kódem.
Od řádku 300 jsou tedy číselné kódy nepřevedeny do správné číselné soustavy. Hádáte správně, je to záměr z mé strany. Vše je tedy jen na vás, jak si s převodem poradíte. Pro převod je nejlépe použít nějaký kalkulátor. I běžné modely za pár set korun touto funkcí disponují. PC kalkulátory také umí s těmito soustavami pracovat. Stačí je přepnout do programátorského módu. Emulátor nabízí také možnost uložení vaší práce, pokud by vám vypisování programu zabralo hodně času, a chtěli jste tak programovat na etapy.
Stránky emulátoru zde:
https://www.masswerk.at/pet/
Přeji hodně zábavy. Na prvního nálezce čeká malá odměna ;)