Flop Magazin 32/Flop_Magazin_32_1994_06_Raster_cs_Side_A.atr/sptest.lb

Text File | 2023-02-26 | 2KB | 1 lines

10 OPEN #3,8,0,"P:"¢20 ? #3;"        krok 1  - pismo PICA, ELITE a CONDENSED"¢25 ? #3;¢30 ? #3;"ABCDEFGHIJKLMNOPQRSTUVWXYZ"¢40 ? #3;CHR$(27);"M";¢50 ? #3;"ABCDEFGHIJKLMNOPQRSTUVWXYZ"¢60 ? #3;CHR$(27);"P";CHR$(15);¢70 ? #3;"ABCDEFGHIJKLMNOPQRSTUVWXYZ"¢80 ? #3;CHR$(18)¢100 ? #3;"        krok 2  - dvojita sirka znaku"¢110 ? #3;"Draft PICA - normalni sirka"¢120 ? #3;CHR$(14);¢130 ? #3;"Draft PICA - dvojita sirka"¢140 ? #3;"M";¢150 ? #3;"Draft ELITE - normalni sirka"¢160 PUT #3,14¢170 ? #3;"Draft ELITE - dvojita sirka"¢180 ? #3;CHR$(14);¢190 ? #3;"Draft ELITE - ";CHR$(20);"dvojita sirka"¢195 ? #3¢200 ? #3;"        krok 3  - superscripts a subscripts  ( indexy )":? #3¢210 ? #3;"Draft PICA - normalni vyska"¢220 ? #3;"S0";¢230 ? #3;"      superscript  ";¢240 ? #3;"S1";¢250 ? #3;"    Subscript";¢260 ? #3;"T";¢270 ? #3;"Zpatky"¢280 ? #3¢300 ? #3;"        krok 4  - podtrzeni textu":? #3¢310 ? #3;"Liza je ";¢320 ? #3;"-1";¢330 ? #3;"velmi hezka divka";¢340 ? #3;"-0";¢350 ? #3;" skutecne."¢390 ? #3¢400 ? #3;"        krok 5  - vertikalne zdvojene pismo":? #3¢410 ? #3;"E";¢420 ? #3;"Emphasized pismo";¢430 ? #3;"F";¢440 ? #3;"   zpatky na normalni."¢490 ? #3¢500 ? #3;"        krok 6  - horizontalne zdvojene pismo":? #3¢510 ? #3;"G";¢520 ? #3;"Double strike pismo";¢530 ? #3;"H";¢540 ? #3;"   zpatky na normalni."¢590 ? #3¢600 ? #3;"        krok 8  - horizontalni tabulator":? #3¢610 ? #3;"TAB 1";¢620 ? #3;CHR$(9);¢630 ? #3;"TAB 2";¢640 ? #3;CHR$(9);CHR$(9);¢650 ? #3;"TAB 4"¢660 ? #3;"0123456789111111111122222222223333333333"¢670 ? #3;"          012345678901234567890123456789"¢680 ? #3;"D";CHR$(10);CHR$(20);CHR$(30);CHR$(40);CHR$(50);CHR$(0);¢682 ? #3;"TAB 0";¢684 ? #3;CHR$(9);"TAB 1";¢686 ? #3;CHR$(9);CHR$(9);"TAB 3"¢690 ? #3¢700 ? #3;"        krok 9  - nastaveni leveho a praveho okraje":? #3¢710 ? #3;"012345678911111111112222222222"¢720 ? #3;"          01234567890123456789"¢730 ? #3;"l";CHR$(10);¢740 FOR I=32 TO 78¢745 ? #3;CHR$(I);¢748 NEXT I¢750 ? #3¢760 FOR I=79 TO 127¢765 ? #3;CHR$(I);¢768 NEXT I¢770 ? #3¢775 ? #3;"l";CHR$(0)¢810 ? #3;"01234567891111111111"¢820 ? #3;"          0123456789"¢830 ? #3;"Q";CHR$(15);¢840 FOR I=32 TO 127¢845 ? #3;CHR$(I);¢848 NEXT I¢850 PUT #3,155¢875 ? #3;"Q";CHR$(80)¢900 ? #3;"        krok 10 - tisk grafiky":? #3¢910 ? #3;"K";CHR$(9);CHR$(0);CHR$(48);CHR$(72);CHR$(132);CHR$(66);CHR$(33);CHR$(66);CHR$(132);CHR$(72);CHR$(48)¢950 ? #3;"Konec uvodniho testu"¢10000 CLOSE #3¢