🚀 go-pugleaf

Checksum: 4152434181 (verify with brik -cv)
Submitted-by: Fatri <fatri@turing.u-strasbg.fr>
Posting-number: Volume 8, Issue 14
Archive-name: fatutils.fat

BEGIN_DOC fatutils.doc
*******************************************************************************

                             fatutils

                    Checksum : #5BD8 Bytes 670.5


There is nothing very interesting, but some may find these utils usefull.

fatutils is a directory that contains five programs:

CRYPT UPCASE VIEW PRINT and print.

CRYPT : $1 $2 --> $1'
encode the first string using the second as a key.
to decode it back : $1' $2 --> $1

UPCASE : $ --> $'
convert $ to uppercase. e.g. "ABCD 1993 abcd" --> "ABCD 1993 ABCD"

VIEW : object -->
Display an object page per page, press a key to skip the pages.

PRINT : object -->
scroll the screen and display the object on 8th line.
if the object is longer than 1 line, the screen scrolls up.
If the object is longer than 8 lines, it is displayed page per page.
little example of use : << 1 50 FOR i i PRINT NEXT >>

print : object -->
same as PRINT but it is printed in the 3x5 font.


Thanks to Detlef Muller for its great RPL48 package.

These programs are freeware, so feel free to do anything you want with it.

   ***************************************************************
   * WARNING : Thought these programs work fine on my HP48 Rev E *
   * I cannot guarantee they will work on another ROM Rev.       *
   * Nor can I be taken for responsible for any kind of damage.  *
   * I however tested them seriously and didn't notice any bug   *   
   *************************************************************** 

Any comments ? Feel free to email me.

Fatri. ( fatri@turing.u-strasbg.fr )
*******************************************************************************
END_DOC


BEGIN_ASC fatutils.asc
%%HP: T(1);
"69A20FF7254000000050072796E64750D9D202BA8145126A217013B51FC2E4C2
093FEF30FC4362A17090236FD336D9D207A72108F11CF146A1D4612040F2911C
CD20B50008FB9760201B655071423441000CA13034CC000CA131342700015371
50716F17FCE5FE8F2D760142164808C67B46ADB46FD62153621FEF3067B46976
116B316BE8260E516350407FE30442309404091D30CB916D9D20E1B207300040
0001200000A8C8000077555DDD100055540000001948100053621FEF302BB469
761156F1485230536212BB46ADB46FD62144230B2130B21305E1704423079470
F2293B21308B10050052594E44550D9D202BA8145126A217013B51FC2E4C2093
E9056FC4362A17090236FD336D9D207A721CCD20B50008FB9760201B65507142
3441000CA1303401100CA13134670001537150716F17FCE5FE8F2D7601421648
08C6B316BE8260E516530407FE3044230B204091D30CB916D9D20C2A2051000D
2D2D6F62756D2D2BC42156F1485230B2130BC421B21305E1707947044230F229
3B213073100406594547540D9D202BA8145126A217013B51CA031FC2E4B12932
A170A6405350403C3707A72108F11CF146A1D4653040F291155621FEF3012270
B20402CE30976114337056F1485230902368C17044230B21307A000605505341
4355460D9D202BA812BF81D0040D9D2075660CCD20160008FB9760143131174A
F014334500008A253EA81CD8CD17414B31169E25131A79E6C03102B6A149171C
D5BD8D34150B2130B2130E900050342595054550D9D20D8A812BF81D0040D9D2
03223096C26CCD203A0008FB976014313034A0000CA10016414234500008A226
EA101174143131174143EAD8D31748A9041198A740D3118CB13414A14F0E6A10
A14F0E62112B6A149CDCDE7E717160CF8F2D760174E78D465D2B2130B21308DB
5"
END_ASC

BYTES: #5BD8h 670.5

BEGIN_UU fatutils.uue
begin 644 fatutils.bin
M2%!(4#0X+466*O!_4@0````%<')I;G0%G2T@JQA4(:82!S%;\2Q.+)#S_@//
M-"8:!PDR]CUCG2UP>A*`'\$?9!I-%@($+QG!W`);`("_>08"L58%%R1#%`#`
M&@-#S`#`&A-#<@`0-1<%%_9QSU[O^-)G$"1AA(!LMV3:2_9M$C4F\?X#=DN6
M9Q&V$[:.8N`5-@4$]SY`)`-)0)#1`[P9UMD"'BMP`P`$`!`"``"*C```=U75
MW0$`544```"1A`$`-2;Q_@.R2Y9G$64?A"4#-28ANV3:2_9M$D0RL!(#*S%0
M'@=$,G!)!R^2LQ(#N`%0`"65Y$15T-D"LHI!%6(J<1"S%<_BQ`(YGE#V3&.B
M<9`@8]\SUMD"IR?!W`);`("_>08"L58%%R1#%`#`&@-#$`'`&A-#=@`0-1<%
M%_9QSU[O^-)G$"1AA(!L.V'K*`9>835`<.\#1#*P`@09/<";89TMP*("%0#0
MTM+V)E?6TK),$F4?A"4#*S&P3!(K,5`>!Y=T0"0#+Y*S$@,W`4!@E51T1=#9
M`K**015B*G$0LQ6L,/$L3AN2(QH':@0U!03#<W!Z$H`?P1]D&DU6`P0O&5%E
M$N\_$"('*T`@[`-Y%D$S!V4?A"4#"3*&'`=$,K`2`Z<`8%`%-10T5630V0*R
MBB'[&`U`T-D"5V;`W`)A`("_>09!$Q-QI`]!,U0``*A2XXK!C=QQ%+038>E2
M,:&7;@P3(&L:E''!7=O80U&P$@,K,>`)``5#4EE05`6=+="H&+*/T0`$G2TP
M(@-I+,;<`J,`@+]Y!D$3`T,*`,`:`&$4)$,%`(`J8JX!$4=!$Q-Q%#2NC3UQ
MA)I`$8EZ!#T1R!M#01KTX*8!&O3@)A&RID')S>WG%Q<&_/C29Q!'?MADU;(2
$`RLQ`"LQ
`
end
sum -r/size 41167/969 section (from "begin" to "end")
sum -r/size 15428/679 entire input file
END_UU