Oto krótki program umożliwiający posługiwanie się polskim alfabetem w trakcie pisania własnych programów na komputerach Amstrad 464 (664) 6128.1 SYMBOL AFTER 129:SYMBOL 137,16,8,60,102,96,102,60:SYMBOL 135,0,0,120,12,124,204,118,6 2 SYMBOL 136,0,0,60,102,126,96,60,12:SYMBOL 132,56,24,28,24,56,24,60:SYMBOL 133,4,8,216,102,102,102,102 3 SYMBOL 134,4,8,60,102,102,102,60:SYMBOL 130,4,8,126,76,24,50,126 4 SYMBOL 131,8,0,126,76,24,50,126: SYMBOL 129,16,8,60,96,60,6,124 13 KEY 7,CHR$(135):KEY 8,CHR$(136): KEY 9,CHR$(137): KEY 4,CHR$(132): KEY 5,CHR$(133) 14 KEY 6,CHR$(134):KEY 1,CHR$(129): KEY 2,CHR$(130): KEY 3,CHR$(131):MODE 1 :CLS 15 WINDOW #1,1,40,1,3:PRINT #1," klawisze: f7=A";" f8=E";" f9=C": PRINT #1," f4=L ";" f5=N";" f6=O" 16 PRINT #1," f1=S";" f2=Z";" F3=Z":PRINT #1 17 WINDOW #3,1,40,4,6:PRINT #3," Po skonczeniu pisania programu usun"," linie od 15 do 17 komenda DELETE 15-17" 18 WINDOW #2,1,40,8,25:PRINT #2:WINDOW SWAP 0,2:PLOT 639,399 :DRAWR 0,-48:DRAWR -639,0:DRAWR 0,48: 19 PLOT 8,344:DRAWR 627,0:DRAWR 0,-48:DRAWR -627,0:DRAWR 0,48 Bajtek★ AMSTRAD CPC ★ A voir aussi sur CPCrulez , les sujets suivants pourront vous intéresser... |
|
|