BASIC vedel byt velmi elegantny;-)
dve hry pre ATARI Basic, ovladane joystickom ktore sme spachali
GAME 01: -=- ULTRA RIVER RUN -=- 0 GR.0:POKE 752,1:H=3 1 POS.X,23:?"I I",E:X=X-RND(0)*(X>1)+RND(0)*(X<26):LOC.H,4,A:? "<-O": E=E+1:W=STICK(0):H=H-(W=7)+(W=11) 2 on A-31 goto 1
GAME 02: -=- ULTRA ASTEROID FIELD -=- 0 GR.0:POKE 752,1:POKE 710,0 1 LOC.X,4,A:?"<-V":W=STICK(0):E=E+1:X=X+(W=7)*(X<38)-(W=11)*(X>0): POS.RND(0)*38,23:? E:ON A-31 GOTO 1
pri zapisovani treba
"<-" v "<-V" alebo "<-O"
nahradit sekvenciou ESC,CTRL+lava sipka
tu prvni hru jsem nekde videl, dokoncer zkracenou o jeden radek :-) 1+2 jde napsat na jeden radek, Atari BASIC ma limit 120 znaku a zadny IF tam take neni (resp. je schovany ve vyrazech x>1 a x<26 :-)
To mi pripomelo, ze v minulosti existovala soutez (v zahranici) na tvorbu petiradkovych programu v Atari BASICu a vychazely tam hodne zajimave veci. Zkusim ty programky nekde dohledat.
A co takhle jednořádkové hry pro ZX Spectrum? Ale tam byl programátor proti Atari trochu ve výhodě, protože hodnota udávající délku řádku na Spectru byla dvoubajtová… ;-)