ÿöa :�ÛThis program entered into the public domain on 11 February 1984=b:�Ûby William van Riper. It runs on the Osborne EXECUTIVE but mayƒb:�Ûbe altered to run on the Osborne 1. Its use is intended to beÊb(:�Ûinstructional and is COPYRIGHTED as such. Please respect this.c2:�ÛAny bugs or fixes in this or the accompanying set of programs mayWc<:�Ûbe sent to me c/o MBINEX - 617-423-6985 - username VANRYPER._c=:�Ûgc>:�Û¤cE:�ÛMakes a function to direct-cursor-address the screen:ÐcF˜ ÓP$(X,Y)ðÿ–()ò"="òÿ–(Yò )òÿ–(Xò )ÙcP¡ ÿæcZ‘ ÿ–()îc_:�Ûdd‘ ÓP$(,);"*** FINDCHAR MENU ***"Idn‘ ÓP$(,);"1. Look at one character at a time"{dx‘ ÓP$(, );"2. Run through characters 0-255"Ÿd‚‘ ÓP$(, );"3. Exit to MBASIC"ÏdŒ‘ ÓP$(,);"Please enter you selection: ";æd–X$ðÝ:‹ X$ð"" Ï –ûd ‹ X$ð"1" Ï ‰ Teª‹ X$ð"3" Ï ¡ P:‘ ÿ–():Æ:�:e´‹ X$ð"2" Ï ‰ ¾ :¢ ‰ –Be¸:�ÛJe¹:�ÛŠeº:�Ûthis runs through the characters sequentially from 1-255Úe»:�Ûnote the bank-switching stuff which is needed on the EXEC - the OUT 0,65'f¼:�Ûshadows in video memory in bank 7 - the OUT 0,1 shadows it out so theAf½:�Ûsystem won't hang!Nf¾‘ ÿ–()†fÈ‘ ÿ–()òÿ–(.)òÿ–(0)::�Ûthis turns off the cursor¾fÌ‘ ÓP$(, );"When poking directly to video memory,"ýfÒ‘ ÓP$(,);"HIT ANY KEY TO CONTINUE, FOR MENU..."; gÜ‚ Ið Î ÿgæ� ,A%gð™ (G�,I/gú� ,gg‘ ÓP$(,);I;ÓP$(,);"ASCII: ";ÓP$(#,);"=";zg ‹ Iñ Ï ‰ ·g ‘ ÓP$( ,);"BUT PRINT CHR$(";I;") yields: ";:‘ ÿ–(I);ÎgX$ðÝ:‹ X$ð"" Ï äg‹ ÿ•(X$)ð Ï @ìg"ƒ I-h,‘ ÓP$(,);" "sh1‘ ÓP$( ,);" "}h6‰ ÜÂh@‘ ÿ–()òÿ–(.)òÿ–(2)::�Ûthis turns the cursor back on again...ÌhJ‰ ZÔhL:�ÛÜhM:�Û'iN:�Ûthis allows you to check on the character that will be written whensiO:�Ûyou poke it to video memory - it's not always what you might think -ÀiP:�Ûthis is because you have a choice of graphics and standard charactersèiQ:�Ûin both normal and reverse videoðiR:�ÛjT‘ ÿ–():‘:‘:‘:‘7j^‘ ÓP$(,);:… "Enter ASCII value desired: ",Xojh‘ ÓP$(,);" "zjr� ,Aˆj|™ (G�,X’j†� ,±j�‘ ÓP$(, );"ASCII VALUE"Îjš‘ ÓP$($, );"CHARACTER"âj¤‘ ÓP$(,);X;!k®‘ ÓP$(,);"HIT ANY KEY TO CONTINUE, FOR MENU....";8k¸X$ðÝ:‹ X$ð"" Ï ¸Wk‘ ÓP$(,);" "okÌ‹ ÿ•(X$)ð Ï ‰ ZykÖ‰ ^kà�ONTINUE, FOR MENU....";8k¸X$ðÝ:‹ X$