Často potrebujeme pri písaní programu aby sme mali pri vstupe potrebných dát do programu zaručene zapnuté veľké znaky a aby sme nemali zapnutú inverziu znakov - inak nebude program správne fungovať. Na to aby všetko zbiehalo tak ako treba nám stačia iba dva POKE príkazy:

POKE 694,0:POKE 702,64

V pôvodnom Atari Basicu ich uložíme do podprogramu ktorý potom budeme volať cez GOSUB adresa.

Príklad:

10 REM program

20 DIM A$ (10)

30 GOSUB 99:?"NAME:";:INPUT A$

40 ?A$:END

99 POKE 694,0:POKE 702,64:RETURN

V Turbo Basicu si vytvoríme napr. procedúru BIG a potom budeme v programe volať túto procedúru.

Príklad:

10 REM program

20 DIM A$ (10)

30 EXEC BIG:?"NAME:";:INPUT A$

40 ?A$:END

99 PROC BIG:POKE 694,0:POKE 702,64:ENDPROC

_____________________________________________________

Vaše hodnotenie, Rate post: