Trailing-Edge
-
PDP-10 Archives
-
decuslib20-03
-
decus/20-0078/demos/formt.rel
There are no other files named formt.rel in the archive.
xxM?]g&i#$sCannotbeVsorlightSwiththatheight.Musthavename.givennames:surname:nationality:birthyear:BirthyearshouldVbebetween1800and.height:Height0shouldXbebetween10and220cm.weight:Weightshould*bebetween1andh300kg.eyecolour:Acceptedeyecolours:brown,blueandgrey.brownbluegreyDemonstration example of form-fill-in program in SIMULA:Facilities: Initial letters in names are made upper-case, Missing letters in eyecolour are filled in, Several validity checks on each i 8nput value, Move back and forward allowed on screen.Push e.g. "^birth" to correct previous entry. is a citizen, centimeters tall, weighing kilogramsand with eyes.Is this OK to store?
DD
DDDDDDDDDDDDDDDDDDD i>$ Xq [H8`s*s qhp
ekst uG",:yK`Xwh [I=z*z(xhvBbHMR{ |
DG",:t]PX~h [J>*(h~BbHMM
Di7@XH]h HId]
n"
*
8hLejnN@
$
$i7}:X]hHic
k*8hJejnu
D
d*I1j*c^z0YN6nr4kn"hZ+?%Po>[J>[I=[H8`[D\@tF[CG[?[>T
[=X|[=/UMdPK^edRSj21 #T/m^xi]INXxM?PINXxm'H INXxY&:6gg @ $$h< P 0@ (+4g+5 :0-<+ ", ++ "- h f o~ p8 /(h( 2&+ ",,, "- " "+ "- h`h+ "?,",, +h $,Ofh * &h,h[1f +7Fh+h
h *0 , $, $,@ &h $,d0& 0f-gOJ Fh+N "< [,h,, "- "C+ "- ,h(@ H (@ H*, ( H ( H,, Fh5,h(@D H ( H+, (
H ( H,, Fh6, h& ( H ( H,, ( H ( H,, " Fh6 "X, * , $,h4,h@ H ( H-, ( H ( H, ( H (h4 $, HS(W
oX, @ ,M.`L4`M/`, ,<(, Fh7,h ( H ( H0, ( H (@ H, ( H (n H1,, Fh8,h @D H ( H2, (
H ( H, ( H (@ H3,, Fh7,h ( H ( H4, (D" H ( H,5,, 1F|+ Fo~Zo~ Fh8,@(@(`6,, ,`C7,, ,`G8,@, @*o~+@@o~ "- - ,p= ('< "R H ( HZ. HZ. H@ H@ H, , FhOfh h1F|+ Fo~7Fh+S& o~Xo,S& o~Xo,!(h# *?, S& o~Xo,S&c o~Xo,!(h# @ *@, S&j o~Xo,!(h# *A, S&g o~Xo,S&n o~Xo,!(h# *B, S&s o~Xo,S&u o~Xo,!(h# *C, S&z o~Xo,S&| o~Xo,!(h# *D, S& o~Xo,S& o~Xo,S& o~< Xo,@ H ( H, S& o~Xo,!(h# *E, S& o~Xo,+S& o~Xo, ( H, S& o~Xo, ( H, S& o~Xo, ( H, S&! o~Xo, ( H, o~ p3,S&% o~Xo, ( H, S& o~Xo,-*`1 o~ p5Q& "o~-!o|!(f#XZ, S&/ o~Xo,!(h# *F, S&7 o~Xo,-*`> o~ p6Q& "o~-!o|!(f#XZ, S& o~Xo,S&; o~Xo,!(h# *G< @I, S&F o~Xo,-*`M o~ p6Q& "o~-!o|!(f#XZ @, S&J o~Xo,!(h# *H, S&R o~Xo,-*`Y o~ p8Q& "o~-!o|!(f#XZ, S&W o~Xo,!(h# *I, S&_ o~Xo,-*`f o~ p7Q& "o~-!o|!(f#XZ, S&c o~XoA,!(h# *J, S&C o~Xo,S&k o~Xo,!(h# *K, S&r o~Xo,-*`y o~ p8, $,L "o~-!o|@!(n#XZ, S&w o~Xo,!(h# *L< oLzM&-I( kBt^]lYTK2 (
@$Y4oLzM&-I@$M7i]lYTK2i4s7@5O'4[WC6(@6gWh6J@6]%wC2NN@7E'JG@,K7oLz8Kf.08QLza;wS8(RG>t0SkBr@YgR~(WWO$@Tg
~-$W_W$:$ Fm'H $ IM?P$ Oi]Q[wXi7}:@_/~KgR~) @$ 1a;wS8F@" , S&p o~Xo,S& o~Xo,!(h# *M, S& o~Xo,Z. & $, Fh h0F<gO h0H,gOG Fh@*o~+@@o~+] "b,;(E
S&:Ch`@9x"ExS&E_hx#`@D`@ D"`
P(8880PD
P( p4H5p4[@aPp9h!(D"@8!@'`(h-82@8 >hBCD"(CPD`GPHHI0J(N(@px(NpX3*@VP1 4 7lll l(l0l8d@dHdPhXl`Dh 8Tp"U
U* h8T 9 :0B`_ 8DT0 @DPEXJhKpMPUZ[(^*U*E*`@b 0`0a8k@uHPhx'5X5Xo~ B(C0J8M`pl@O*Q*U*`^XQ`]x]X(=XO~_` c8g@jPn`shuxz|*U*U*(0
8PXhp%x)+/; C(J0R8@cHp*U*TPrX`hp
x`Pr`]`V@Da;wK8=G"Y&I9$e[2G?$hiFC@$hg&n9:@$`g&n[i&}`$$M&dS@$$#S:5@$$(bW$j6J@$$,aJMmS2(@$$1I'XzM&dPgg@#\gg}:, FT(@
}a[J>Za[I=Ya[H8`ft+UD"a[=X|bUMdP\`edYeRSj2[e1 #\ve1 #[Je1 #[le1 #Ze1 #Y[D"e1 #WGe1 #W%e1 #Ve1 #Ve1 #U
e1 #T;e/m^`e/m^
e/m^D"e/m^e/m^
Z84@x