w ·L¤ÎÁÂÃÄÅÆÇÈÉÊË€ OKITALIC.BAS› BY DAVID WOLK 1985› U/L TO CIS OCTOBER 1987› FOR OKIDATA 92 USERS››€;@,@› FOR EASY AND QUICK USE›!!!CHANGE P: TO D:FILENAME.EXT›"##TO CREATE A DOS LOADABLE FILE›#THEN USE (C)OPY TO P:›$%%SUBSTITUTE NEW LINE 40 AS BELOW›%%%40 OPEN #1,8,0,"D:OKITALIC.PRT"›'›(##@@P:2 A<"€‚ƒ„…†‡ˆ‰Š‹ŒF$$CHECK FOR DESCENDER CHARACTERS›P€4gApZ€4jApd€4pApn€4qApx€4yAp‚€4_Ap‡??"," IS INVERSE VIDEO TO ALLOW INSERTION IN DATA STATEMENT›Œ €4¬€., Ap–XX(@>:@',%A€>:‚,>:ƒ,>:„,>:…,>:†,>:‡,>:ˆ,>:‰,>:Š,>:‹,>:Œ,  A€ªXX(@>:@',%D€>:‚,>:ƒ,>:„,>:…,>:†,>:‡,>:ˆ,>:‰,>:Š,>:‹,>:Œ,´ @`¾@ÈÒ##************DATA*************›Ü 32, ,0,0,0,0,0,0,0,0,0,0,0›æ""33,!,0,64,0,16,8,4,2,1,0,0,0›ð 34,",0,4,2,1,0,4,2,1,0,0,0›ú''35,#,20,96,28,3,20,96,28,3,20,0,0›%%36,$,0,36,8,98,28,35,8,18,0,0,0›''37,%,2,65,34,17,8,68,34,65,32,0,0›&&38,&,48,8,66,5,72,21,34,80,8,0,0›" 39,',0,0,0,0,2,1,0,0,0,0,0›,!!40,(,0,0,0,56,4,2,1,0,0,0,0›6$$41,),0,64,0,32,17,14,0,0,0,0,0›@''42,*,16,0,84,40,16,40,84,0,16,0,0›J&&43,+,16,0,80,32,16,8,20,0,16,0,0›O??"," IS INVERSE VIDEO TO ALLOW INSERTION IN DATA STATEMENT›T$$44,¬,0,0,64,16,40,16,8,0,0,0,0›^ 45,-,8,0,8,0,8,0,8,0,8,0,0›h$$46,.,0,0,64,32,64,32,0,0,0,0,0›r##47,/,0,64,32,16,8,4,2,1,0,0,0›|&&48,0,56,4,66,0,65,0,33,16,14,0,0›†$$49,1,0,64,0,98,24,70,1,0,0,0,0›$$50,2,64,2,96,1,80,1,72,1,6,0,0›š%%51,3,32,0,65,0,73,0,77,50,1,0,0›¤&&52,4,16,8,16,4,16,98,28,3,16,0,0›®%%53,5,32,6,65,4,65,4,33,24,1,0,0›¸%%54,6,48,8,68,8,66,8,65,48,0,0,0›Â##55,7,1,64,33,16,9,4,1,2,1,0,0›Ì%%56,8,48,70,8,65,8,65,8,33,6,0,0›Ö##57,9,6,64,9,32,9,16,9,6,0,0,0›à$$58,:,0,0,32,20,34,20,2,0,0,0,0›ê$$59,;,0,0,0,16,42,17,10,1,0,0,0›ô##60,<,0,8,16,36,64,2,0,1,0,0,0›þ$$61,=,16,4,16,4,16,4,16,4,0,0,0›##62,>,0,64,0,32,0,1,18,4,8,0,0›""63,?,2,64,1,16,1,8,1,6,0,0,0›''64,@,56,4,66,1,72,17,68,17,14,0,0›&''65,A,64,32,16,8,20,2,17,0,127,0,0›0&&66,B,96,25,70,1,72,1,72,49,6,0,0›:%%67,C,56,68,2,65,0,65,0,33,2,0,0›D''68,D,96,25,70,1,64,1,32,17,14,0,0›N%%69,E,0,96,28,67,8,65,8,65,0,1,0›X""70,F,0,96,28,3,8,1,8,1,0,1,0›b&&71,G,0,56,68,2,65,0,65,40,25,2,0›l$$72,H,96,28,3,8,0,8,96,28,3,0,0›v$$73,I,0,0,64,0,97,24,71,0,1,0,0›€%%74,J,48,64,0,64,1,32,25,6,1,0,0›Š%%75,K,0,96,28,3,8,4,16,34,64,1,0›”%%76,L,0,96,24,70,1,64,0,64,0,0,0›ž%%77,M,96,28,3,0,12,0,98,28,3,0,0›¨%%78,N,96,28,3,4,8,16,96,12,3,0,0›²&&79,O,48,76,2,65,0,65,32,25,6,0,0›¼""80,P,96,24,6,9,0,9,0,9,6,0,0›Æ''81,Q,56,4,66,0,65,16,33,16,78,0,0›Ð%%82,R,96,24,6,1,8,17,40,1,70,0,0›Ú%%83,S,32,70,0,73,0,73,0,49,0,0,0›ä""84,T,1,0,97,24,7,0,1,0,1,0,0›î&&85,U,0,48,76,3,64,0,64,48,12,3,0›ø$$86,V,0,127,0,32,16,8,4,2,1,0,0›''87,W,96,28,35,16,8,16,96,28,3,0,0› &&88,X,64,33,18,4,24,36,66,0,1,0,0›##89,Y,1,2,100,24,0,4,0,2,1,0,0› %%90,Z,64,32,81,0,73,0,69,2,1,0,0›*$$91,[,0,96,24,70,1,64,1,0,1,0,0›4##92,\,0,0,3,12,48,64,0,0,0,0,0›>$$93,],64,0,64,1,96,25,6,1,0,0,0›H 94,^,0,4,0,2,0,1,2,4,0,0,0›R%%95,_,64,0,64,0,64,0,64,0,64,0,0›\ 96,`,0,0,0,1,2,0,0,0,0,0,0›f&&97,a,32,80,4,80,4,80,36,88,0,0,0›p&&98,b,96,24,71,0,68,0,36,24,0,0,0›z$$99,c,48,8,64,4,64,4,64,4,0,0,0›„&&100,d,48,8,64,4,64,4,96,28,3,0,0›Ž((101,e,48,72,20,64,20,64,20,8,0,0,0›˜$$102,f,4,0,100,24,6,0,5,0,1,0,0›¢&&103,g,12,82,0,81,0,49,12,3,0,0,0›¬&&104,h,96,24,7,0,4,0,100,24,0,0,0›¶&&105,i,0,64,0,100,24,68,1,0,0,0,0›À$$106,j,32,0,32,0,25,6,1,0,0,0,0›Ê&&107,k,96,24,6,17,32,72,0,4,0,0,0›Ô%%108,l,0,64,0,96,25,70,1,0,0,0,0›Þ))109,m,100,24,4,96,28,0,100,24,0,0,0›è&&110,n,100,24,4,0,4,96,24,0,0,0,0›ò&&111,o,48,72,0,4,64,0,36,24,0,0,0›ü%%112,p,96,28,3,16,1,16,9,6,0,0,0›''113,q,0,12,18,0,17,0,113,12,3,0,0›##114,r,0,96,28,0,8,4,0,4,0,0,0›''115,s,64,0,72,20,64,20,32,4,0,0,0›$$$116,t,0,4,48,76,3,68,0,4,0,0,0›.''117,u,48,76,0,64,0,64,48,76,0,0,0›8%%118,v,0,124,0,32,0,16,8,4,0,0,0›B))119,w,112,12,32,0,24,32,0,96,28,0,0›L&&120,x,64,0,36,8,16,32,72,0,4,0,0›V$$121,y,1,66,36,16,8,4,2,1,0,0,0›`&&122,z,64,0,100,0,84,0,76,0,4,0,0›j$$123,{,0,8,32,88,6,65,0,1,0,0,0›t$$124,|,0,64,32,16,4,2,1,0,0,0,0›~%%125,},0,64,0,65,48,13,2,8,0,0,0›ˆ!!126,~,2,1,0,1,2,4,0,4,2,0,0›’((127,,0,0,42,85,42,85,42,85,42,0,0›œ!!128,*,0,0,0,0,0,0,0,0,0,0,0›¦##*******END OF DATA***********›°33****DESIGNATE DOWNLINE LOADABLE CHARACTER SET›ºLP. CHR$(27);CHR$(50);›€D2:OKITALIC.BASEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE