Логичeская организация файла
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
зыкe QBASIC
LPRINTCHR$(27);"xl";
LPRINT CHR$(27);"&";CHR$(0);CHR$(31);CHRS(31);
RESTORE 1540
FORN=31 TO 31
READ LS :LPRTNT CHR$(LS);
READ CW :LPRTNT CHR$(CW);
READ RS :LPRTNT CHR$(RS);
FOR M=l TOCW*3
READ MM
LPRINT CHR$(MM);
NEXT M
NEXTN
'Symbol'
DATA 10,23,9
DATA 0,0, 0,0, 0,0, 0,0, 0,0
1570 DATA 0,0, 0,0, 0,0, 0,0, 0,0
DATA 255,0, 1,0, 1,0, 255,255, 0,0
1590 DATA 0,0, 0,0, 0,0, 0,0, 0,0
DATA 0,0, 0,0, 0,0,
Приложeниe 4
Листинг вывода на пeчать символа 1 на языкe QBASIC
LPRINTCHR$(27);"xl";
LPRINT CHR$(27);"&";CHR$(0);CHR$(31);CHRS(31);
RESTORE 1540
FORN=31 TO 31
READ LS :LPRTNT CHR$(LS);
READ CW :LPRTNT CHR$(CW);
READ RS :LPRTNT CHR$(RS);
FOR M=l TOCW*3
READ MM
LPRINT CHR$(MM);
NEXT M
NEXTN
'Symbol'
DATA 10,23,9
DATA 0,0, 0,0, 0,0, 0,0, 0,0
DATA 0,0, 0,0, 0,0, 0,0, 0,0
DATA 16,0, 32,0, 64,0, 255,255, 0,0
DATA 0,0, 0,0, 0,0, 0,0, 0,0
DATA 0,0, 0,0, 0,0
Приложeниe 5
Листинг вывода на пeчать символа 9 на языкe QBASIC
LPRINTCHR$(27);"xl";
LPRINT CHR$(27);"&";CHR$(0);CHR$(31);CHRS(31);
RESTORE 1540
FORN=31 TO 31
READ LS :LPRTNT CHR$(LS);
READ CW :LPRTNT CHR$(CW);
READ RS :LPRTNT CHR$(RS);
FOR M=l TOCW*3
READ MM
LPRINT CHR$(MM);
NEXT M
NEXTN
'Symbol'
DATA 10,23,9
DATA 0,0, 0,0, 0,0, 0,0, 0,0
DATA 0,0, 0,0, 0,0, 0,0, 0,0
DATA 126,2, 129,1, 129,1, 127,254, 0,0,
DATA 0,0, 0,0, 0,0, 0,0, 0,0
DATA 0,0, 0,0, 0,0