10 REM ****************************************************** 11 REM *** *** 12 REM *** Hebrew Alef-bet for PANASONIC KX-P1081 Printer *** 13 REM *** *** 14 REM *** Eitan Froumine (19/3/89) *** 15 REM *** *** 16 REM *** eitan@mlacus.oz.au *** 17 REM *** *** 18 REM ****************************************************** 1100 REM *** ALEF ***************************************************** 1110 REM *** ALEF1 1112 LPRINT CHR$(27)+"y"+CHR$(128); 1114 LPRINT CHR$(0)+CHR$(78)+CHR$(48)+CHR$(0)+CHR$(16)+CHR$(8)+CHR$(64); 1116 LPRINT CHR$(12)+CHR$(114); 1200 REM *** BET ******************************************************* 1210 REM *** BET1 1212 LPRINT CHR$(27)+"y"+CHR$(129); 1214 LPRINT CHR$(0)+CHR$(0)+CHR$(66)+CHR$(0)+CHR$(66)+CHR$(0)+CHR$(66); 1216 LPRINT CHR$(60)+CHR$(2); 1300 REM *** GIMEL ***************************************************** 1310 REM *** GIMEL1 1312 LPRINT CHR$(27)+"y"+CHR$(130); 1314 LPRINT CHR$(0)+CHR$(0)+CHR$(2)+CHR$(68)+CHR$(8)+CHR$(72)+CHR$(54); 1316 LPRINT CHR$(0)+CHR$(0); 1400 REM *** DALET ***************************************************** 1410 REM *** DALET1 1412 LPRINT CHR$(27)+"y"+CHR$(131); 1414 LPRINT CHR$(0)+CHR$(64)+CHR$(0)+CHR$(64)+CHR$(0)+CHR$(64)+CHR$(62); 1416 LPRINT CHR$(64)+CHR$(0); 1500 REM *** HEY ******************************************************* 1510 REM *** HEY1 1512 LPRINT CHR$(27)+"y"+CHR$(132); 1514 LPRINT CHR$(0)+CHR$(78)+CHR$(0)+CHR$(64)+CHR$(0)+CHR$(64)+CHR$(0); 1516 LPRINT CHR$(64)+CHR$(62); 1600 REM *** VAV ******************************************************* 1610 REM *** VAV1 1612 LPRINT CHR$(27)+"y"+CHR$(133); 1614 LPRINT CHR$(0)+CHR$(0)+CHR$(0)+CHR$(64)+CHR$(0)+CHR$(64)+CHR$(62); 1616 LPRINT CHR$(0)+CHR$(0); 1700 REM *** ZINE ****************************************************** 1710 REM *** ZINE1 1712 LPRINT CHR$(27)+"y"+CHR$(134); 1714 LPRINT CHR$(0)+CHR$(0)+CHR$(0)+CHR$(64)+CHR$(2)+CHR$(100)+CHR$(24); 1716 LPRINT CHR$(64)+CHR$(0); 1800 REM *** HET ******************************************************* 1810 REM *** HET1 1802 LPRINT CHR$(27)+"y"+CHR$(135); 1814 LPRINT CHR$(0)+CHR$(126)+CHR$(0)+CHR$(64)+CHR$(0)+CHR$(64)+CHR$(0); 1816 LPRINT CHR$(64)+CHR$(62); 1900 REM *** TET ***************************************************** 1910 REM *** TET1 1912 LPRINT CHR$(27)+"y"+CHR$(136); 1914 LPRINT CHR$(0)+CHR$(126)+CHR$(0)+CHR$(2)+CHR$(48)+CHR$(66)+CHR$(0); 1916 LPRINT CHR$(66)+CHR$(60); 2000 REM *** YUD ******************************************************* 2010 REM *** YUD1 2002 LPRINT CHR$(27)+"y"+CHR$(137); 2014 LPRINT CHR$(0)+CHR$(0)+CHR$(0)+CHR$(0)+CHR$(64)+CHR$(0)+CHR$(72); 2016 LPRINT CHR$(48)+CHR$(0); 2100 REM *** KAF_S ***************************************************** 2110 REM *** KAF_S1 2112 LPRINT CHR$(27)+"y"+CHR$(138); 2114 LPRINT CHR$(0)+CHR$(64)+CHR$(0)+CHR$(64)+CHR$(0)+CHR$(64)+CHR$(0); 2116 LPRINT CHR$(64)+CHR$(63); 2200 REM *** KAF ******************************************************* 2210 REM *** KAF1 2212 LPRINT CHR$(27)+"y"+CHR$(139); 2214 LPRINT CHR$(0)+CHR$(66)+CHR$(0)+CHR$(66)+CHR$(0)+CHR$(66)+CHR$(0); 2216 LPRINT CHR$(66)+CHR$(60); 2300 REM *** LAMED ***************************************************** 2310 REM *** LAMED1 2312 LPRINT CHR$(27)+"y"+CHR$(140); 2314 LPRINT CHR$(0)+CHR$(192)+CHR$(0)+CHR$(64)+CHR$(0)+CHR$(66)+CHR$(4); 2316 LPRINT CHR$(72)+CHR$(48); 2320 REM *** LAMED2 2322 LPRINT CHR$(27)+"y"+CHR$(140); 2324 LPRINT CHR$(0)+CHR$(128)+CHR$(0)+CHR$(64)+CHR$(0)+CHR$(66)+CHR$(4); 2326 LPRINT CHR$(72)+CHR$(48); 2330 REM *** LAMED3 2332 LPRINT CHR$(27)+"y"+CHR$(140); 2334 LPRINT CHR$(0)+CHR$(128)+CHR$(64)+CHR$(0)+CHR$(64)+CHR$(2)+CHR$(68); 2336 LPRINT CHR$(8)+CHR$(112); 2400 REM *** MEM_S ***************************************************** 2410 REM *** MEM_S1 2412 LPRINT CHR$(27)+"y"+CHR$(141); 2414 LPRINT CHR$(0)+CHR$(126)+CHR$(0)+CHR$(66)+CHR$(0)+CHR$(66)+CHR$(0); 2416 LPRINT CHR$(66)+CHR$(60); 2500 REM *** MEM ******************************************************* 2510 REM *** MEM1 2512 LPRINT CHR$(27)+"y"+CHR$(142); 2514 LPRINT CHR$(0)+CHR$(78)+CHR$(48)+CHR$(0)+CHR$(34)+CHR$(64)+CHR$(2); 2516 LPRINT CHR$(64)+CHR$(62); 2600 REM *** NUN_S ***************************************************** 2610 REM *** NUN_S1 2602 LPRINT CHR$(27)+"y"+CHR$(143); 2614 LPRINT CHR$(0)+CHR$(0)+CHR$(0)+CHR$(0)+CHR$(64)+CHR$(63)+CHR$(64); 2616 LPRINT CHR$(0)+CHR$(0); 2700 REM *** NUN ******************************************************* 2712 LPRINT CHR$(27)+"y"+CHR$(144); 2710 REM *** NUN1 2714 LPRINT CHR$(0)+CHR$(0)+CHR$(2)+CHR$(0)+CHR$(2)+CHR$(64)+CHR$(2); 2716 LPRINT CHR$(64)+CHR$(62); 2800 REM *** SAMECH **************************************************** 2810 REM *** SAMECH1 2812 LPRINT CHR$(27)+"y"+CHR$(145); 2814 LPRINT CHR$(0)+CHR$(64)+CHR$(56)+CHR$(68)+CHR$(2)+CHR$(64)+CHR$(2); 2816 LPRINT CHR$(68)+CHR$(56); 2900 REM *** AINE ****************************************************** 2910 REM *** AINE1 2912 LPRINT CHR$(27)+"y"+CHR$(146); 2914 LPRINT CHR$(0)+CHR$(0)+CHR$(2)+CHR$(0)+CHR$(2)+CHR$(124)+CHR$(2); 2916 LPRINT CHR$(4)+CHR$(120); 2920 REM *** AINE2 2922 LPRINT CHR$(27)+"y"+CHR$(146); 2924 LPRINT CHR$(0)+CHR$(0)+CHR$(2)+CHR$(0)+CHR$(126)+CHR$(0)+CHR$(2); 2926 LPRINT CHR$(4)+CHR$(120); 3000 REM *** PEY_S ***************************************************** 3010 REM *** PEY_S1 3012 LPRINT CHR$(27)+"y"+CHR$(147); 3014 LPRINT CHR$(0)+CHR$(64)+CHR$(48)+CHR$(64)+CHR$(16)+CHR$(64)+CHR$(0); 3016 LPRINT CHR$(64)+CHR$(63); 3100 REM *** PEY ******************************************************* 3110 REM *** PEY1 3112 LPRINT CHR$(27)+"y"+CHR$(148); 3114 LPRINT CHR$(0)+CHR$(66)+CHR$(48)+CHR$(66)+CHR$(16)+CHR$(66)+CHR$(0); 3116 LPRINT CHR$(66)+CHR$(60); 3200 REM *** ZADIK_S *************************************************** 3210 REM *** ZADIK_S1 3212 LPRINT CHR$(27)+"y"+CHR$(149); 3214 LPRINT CHR$(0)+CHR$(0)+CHR$(64)+CHR$(32)+CHR$(24)+CHR$(7)+CHR$(8); 3216 LPRINT CHR$(112)+CHR$(0); 3220 REM *** ZADIK_S2 3222 LPRINT CHR$(27)+"y"+CHR$(149); 3224 LPRINT CHR$(0)+CHR$(0)+CHR$(64)+CHR$(32)+CHR$(16)+CHR$(8)+CHR$(23); 3226 LPRINT CHR$(96)+CHR$(0); 3300 REM *** ZADIK ***************************************************** 3310 REM *** ZADIK1 3312 LPRINT CHR$(27)+"y"+CHR$(150); 3314 LPRINT CHR$(0)+CHR$(2)+CHR$(64)+CHR$(34)+CHR$(16)+CHR$(10)+CHR$(4); 3316 LPRINT CHR$(10)+CHR$(112); 3400 REM *** KUF ******************************************************* 3410 REM *** KUF1 3412 LPRINT CHR$(27)+"y"+CHR$(151); 3414 LPRINT CHR$(0)+CHR$(64)+CHR$(31)+CHR$(64)+CHR$(0)+CHR$(66)+CHR$(4); 3416 LPRINT CHR$(72)+CHR$(48); 3500 REM *** RESH ****************************************************** 3510 REM *** RESH1 3512 LPRINT CHR$(27)+"y"+CHR$(152); 3514 LPRINT CHR$(0)+CHR$(64)+CHR$(0)+CHR$(64)+CHR$(0)+CHR$(64)+CHR$(0); 3516 LPRINT CHR$(64)+CHR$(62); 3600 REM *** SHIN ****************************************************** 3610 REM *** SHIN1 3612 LPRINT CHR$(27)+"y"+CHR$(153); 3614 LPRINT CHR$(0)+CHR$(124)+CHR$(2)+CHR$(0)+CHR$(6)+CHR$(120)+CHR$(2); 3616 LPRINT CHR$(4)+CHR$(120); 3700 REM *** TAF ******************************************************* 3710 REM *** TAF1 3712 LPRINT CHR$(27)+"y"+CHR$(154); 3714 LPRINT CHR$(0)+CHR$(66)+CHR$(56)+CHR$(70)+CHR$(0)+CHR$(64)+CHR$(0); 3716 LPRINT CHR$(64)+CHR$(62); 8000 REM LPRINT CHR$(31); 8001 REM LPRINT CHR$(10); 8002 REM LPRINT CHR$(10); 8003 REM LPRINT CHR$(13); 8004 REM LPRINT CHR$(31); 8100 REM FOR I=128 TO 154 8120 REM LPRINT CHR$(I); 8140 REM NEXT I 8200 REM FOR I=128 TO 154 8210 REM REM FOR J=1 TO 10 8220 REM LPRINT CHR$(I-1)+CHR$(I)+CHR$(I+1); 8230 REM REM NEXT J 8240 REM NEXT I