Pořád se něco děje, jinak by nebyly dějiny.

A něco se děje i na QL scéně.

Jednak za velikých bolestí vzniká adaptér pro připojení Ethernetu.

Když už si můžou sítě užívat emulátoristi na svých PC noteboocích, když už je Ethernet konektor i na novém klonu Q68, snad se přiblíží doba, kdy se ethernetového připojení dočká i klasické černé QL.

Objevilo se pár nových prográmků.

Už je to nějaká doba, kdy nás oblažila simulační hra QBPandemic.

Sice je stále v procesu vzniku a k dispozici je zatím jen hratelná demoverze, ale je vidět, že si s tím někdo dal práci.

Stáhnout se dá ke starší verzi i manuál s komentovaným výpisem Basicu.

Ten někdo, když už byl v tom, nám nachystal další hry – sice taky v podsattě ještě ve vývoji, ale hratelné.

QBTTT, respektive QBits Tic Tac Toe, jsou klasické Tic Tac Toe.

Doplňují je QBits Tiles, což je vlastně hlavolam patnáctka s obrázky.

K oběma najdete opět pěkně zpracovaný návod s komentovaným výpisem, samozřejmě je vše vytvořeno zase v Basicu.

Aby toho nebylo málo, vše doplňuje poměrně komplexní obchodní hra QBits Trader.

I na ní se sice ještě pracuje, ale můžete už vesele zkoušet, a opět se začíst do manuálu.

Vynikajícím počinem je program NameCheck.

SuperBasic na QL je snadno rozšiřitelný pomocí různých toolkitů a jiných rozšíření a může se snadno stát, že dostanete program, který používá některý s doplňujících povelů a vy potřebujete vědět, které z mnoha rozšíření, která se nabízí k dispozici, máte vlastně k programu nahrát.

To provede NameCheck.

Vyhledá (v Basicu, nebo v tokenizovaném Basicu, označeném zde _sav) použité rozšiřující příkazy nebo funkce, uvede, v jakých rozšířeních se nachází, a zobrazí čísla řádků, na kterých je dané jméno (příkazu nebo funkce) použito.

O noirové detektivní textovce s obrázky P.I. Cole jsem už psal.

Teď tu máme pokračování.

P.I. Cole 2 – The Invisible Case je k dispozici ke stažení a hraní.

Akce comp.sys.sinclair Crap Games Competition 2021 nám taky přináší nějaký ten software, i když tady jde spíš o zábavu.

Jako ve hře Dont shoot the QL nebo v hříčce Invaders.

Ostatní příspěvky jsou pohříchu pro počítače se Zilogem – ZX Spectrum, ZX81 a Jupiter Ace.

Pokud zvládnete poslouchat angličtinu s německým přízvukem (případně u toho koukat na titulky) a chcete něco vědět o moderní verzi operačního systému pro Sinclair QL, tedy o SMSQ/E, pak vězte, že server m68k.info natočil prezentaci jednoho z nejzasvěcenějších.

Dipl. Inf. Marcel Kilgus je autorem běhového prostředí QPC2 (on to není úplně emulátor), autorem připojení SD karty ke QL, autorem úprav Toolkitu 2 a častým přispěvatelem k vývoji SMSQ/E.

Jeho prezentaci najdete ve videu ZDE.

A aby bylo QL taky trochu užitečné, jdu se svou trochou do mlýna.

Připravil jsem si malou astronomickou pomůcku.

Jak jinak, než v Basicu, v jazyce „programujících doktorů a učitelů“?

Program po zadání základních parametrů dalekohledu zobrazí jeho světelnost (takže hned vidíte, zda není například nesmyslně krátká), doporučená zvětšení (takže hned vidíte, zda výrobce nepřehání a nepřisuzuje optice něco, co už je za jejími možnostmi) a jaké okuláry jsou na daná zvětšení potřeba (takže hned vidíte, zda nevychází třeba s nesmyslně krátkou ohniskovou vzdáleností).

A protože jde taky o program v Basicu, snadno se upraví pro ZX Spectrum, Apple ][ nebo třeba pro Atari.

Text si klidně vykopírujte a jednoduše nahrajte do QL – programy v Basicu na QL totiž mohou být normální textové soubory a nepotřebují hlavičku pro spustitelné soubory.

V úvodu sice aktivuju Toolkit 2 kvůli přepnutí na více znaků na řádek (příkazem WTV bez parametru), takže by se dal pro výpis číselných hodnot použít příkaz toolkitu PRINT_USING, ale kvůli přenositelnosti jsem nechal kompatibilnější tvar výpočtů.

10 TK2_EXT: WTV
15 CLS
20 PRINT "*** Vypocet parametru dalekohledu ***":PRINT
25 INPUT "Prumer apertury (mm):";o
30 INPUT "Ohniskova vzdalenost objektivu (mm):";l
35 PRINT: PRINT o;"/";l;" f/";INT(10*(l/o))/10
40 PRINT: PRINT "Zvetseni:"
45 RESTORE 100
50 READ a$:IF a$="." THEN GOTO 999
55 READ d
60 PRINT a$;") ";INT(o*d);"x s okularem ";(INT(10*l/(o*d)))/10;" mm"
65 GOTO 50
100 DATA "minimalni (D/6",0.16
110 DATA "mirne (D/3",0.33
120 DATA "stredni (D/2",0.5
130 DATA "optimalni (0.7D",0.7
140 DATA "velke (1D",1
150 DATA "rozlisovaci (1.4D",1.4
160 DATA "maximalni (2D",2
170 DATA "."
999 PRINT

Například pro Apple ][ můžete provést následující modifikaci (a vyzkoušet třeba online v javascriptovém interpretu Applesoft Basicu):

15 HOME
20 PRINT "*** Vypocet parametru dalekohledu ***":PRINT
25 INPUT "Prumer apertury (mm):";o
30 INPUT "Ohniskova vzdalenost objektivu (mm):";l
35 PRINT: PRINT o;"/";l;" f/";INT(10*(l/o))/10
40 PRINT: PRINT "Zvetseni:"
45 RESTORE
50 READ a$:IF a$="." THEN GOTO 999
55 READ d
60 PRINT a$;") ";INT(o*d);"x s okularem ";(INT(10*l/(o*d)))/10;" mm"
65 GOTO 50
100 DATA "minimalni (D/6",0.16
110 DATA "mirne (D/3",0.33
120 DATA "stredni (D/2",0.5
130 DATA "optimalni (0.7D",0.7
140 DATA "velke (1D",1
150 DATA "rozlisovaci (1.4D",1.4
160 DATA "maximalni (2D",2
170 DATA "."
999 PRINT