From rhialto@mbfys.kun.nl Sun Jun  4 02:41 EET 1995
Return-Path: <rhialto@mbfys.kun.nl>
Received: from septimius.mbfys.kun.nl by stekt.oulu.fi (5.x/SMI-SVR4)
	id AA11574; Sun, 4 Jun 1995 02:40:46 +0300
Received: from dontcare by septimius.mbfys.kun.nl via severus.mbfys.kun.nl [131.174.82.78] with SMTP 
	id BAA05998 (8.6.10/2.4); Sun, 4 Jun 1995 01:40:59 +0200
Date: Sun, 4 Jun 1995 01:40:59 +0200
From: Olaf Seibert <rhialto@mbfys.kun.nl>
Message-Id: <199506032340.BAA05998@septimius.mbfys.kun.nl>
To: jopi@stekt.oulu.fi, rhialto@mbfys.kun.nl
Subject: Re: Question about PET
Content-Type: text
Content-Length: 2218
Status: RO

Oh, here is the basic program that prints the square keyboard layout :)
It does a bit more too, and assumes  80 columns.  That funny POKE loop
in the end toggles between uppercase and lowercase mode.

Should be convertable to the 64 without much trouble.

begin 644 ascii 15,prg
M`00;!&0`CR`J*BH@0TA!4E-%5"!04DE.5$52`"8$;@"9(I..(CL`.P3(`($@<
M22"R(#,R(*0@,S*J,34`1@32`(T@,3`P,`!,!-P`@@!2!.8`F0!I!"P!422R'
MQR@S-"DZF2(3(CI4LC0P`)T$-@&9HU0I.R(@H2"B(*,@I""E(*<@IB#<(*@@[
MJ2#?("`@(!+3DB`2T9(@$MV2(!+4D@#7!$`!F:-4*3LB("$@(E$D420BG2`C.
M("0@)2`G("8@7"`H("D@7R`@("`24Y(@$E&2(!)=DB`25)(`W01%`9D`"05*_
M`9FC5"D[(B#1(-<@Q2#2(-0@V2#5(,D@SR#0(/\@("`@MR"X(+D@KP`U!50!E
MF:-4*3LB(%$@5R!%(%(@5"!9(%4@22!/(%`@7B`@("`W(#@@.2`O`#L%7@&9L
M`&D%:`&9HU0I.R(@P2#3(,0@QB#'(,@@RB#+(,P@NB`2S9(@("`@M""U(+8@%
MJ@"7!7(!F:-4*3LB($$@4R!$($8@1R!(($H@2R!,(#H@$B"2("`@(#0@-2`V:
M("H`N@5\`9FC5"D[(B`@("`@("`@("`@("`@("`@("`@(!(@D@#H!88!F:-4$
M*3LB(-H@V"##(-8@PB#.(,T@K""[(+\@$B"2("`@(+$@LB"S(*L`%@:0`9FC"
M5"D[(B!:(%@@0R!6($(@3B!-("P@.R`_(!)-DB`@("`Q(#(@,R`K`!P&F@&9P
M`$P&I`&9HU0I.R(@4R`2TI(@P"#;(-T@4U-0(+P@OB`2PY(@4R`@(""P(*X@6
MK2"]`'P&K@&9HU0I.R(@2"`24I(@0"!;(%T@04-%(#P@/B`20Y(@2"`@("`PI
M("X@+2`]`(8&N`&9(A$1$0"F!O0!ER`U.30V."PQ,CH@@2!)LC$@I"`Q-3`PS
M.B""`,8&_@&7(#4Y-#8X+#$T.B"!($FR,2"D(#$U,#`Z(((`T`8(`HD@-3`P*
M`-8&YP.``/8&Z`.923NC-2D[QRA)*3O'*"A)JC$R."FO,C4U*3L`#P?R`XL@5
M2;(S-""G()G'*#,T*2*=("([`#X'_`.9HS$P*3M)JC$V.Z,Q-2D[QRA)JC$VM
M*3O'*"A)JC$VJC$R."FO,C4U*3L`;0<&!)FC,C`I.TFJ,S([HS(U*3O'*$FJ5
M,S(I.\<H*$FJ,S*J,3(X*:\R-34I.P";!Q`$F:,S,"D[2:HT.#NC,S4I.\<H&
@2:HT."D[QR@H2:HT.*HQ,C@IKS(U-2D`H0<:!(X````[J
``
end
size 932

-Olaf.
--
HAVE *YOU* EXPORTED A CRYPTO SYSTEM TODAY? --> http://dcs.ex.ac.uk/~aba/x.html
-------------------------------------8<-------------------------------------
#!/usr/local/bin/perl --#export-a-crypto-system sig, Diffie-Hellman 2 lines:
($g,$e,$m)=@ARGV;$_=unpack('B*',pack('H*',1&length$e?"0$e":$e));s/^0+//;
s/1/0lG*lm%/g;s/0/d*lm%/g;print `echo 16i\U$g"\nSG$m\Esm1Io$_"p|dc`
-------------------------------------8<-------------------------------------
___              Copyright 1995 Olaf 'Rhialto' Seibert. All Rights Reserved.
\X/    You are not allowed to read this using any kind of Micro$oft product.

