TIB: Re: IM DUMB, BIG FAVOR (LC-2)


[Prev][Next][Index][Thread]

TIB: Re: IM DUMB, BIG FAVOR (LC-2)




\START82\
\COMMENT=Program file dated 01/22/98, 17:51
\NAME=STORE
\FILE=C:\SERE\STORE.82P
:ClrHome
:2\->\Y
:7\->\dim \L1\:Fill(0,\L1\)
:Output(1,1,"MARLEYS PIR8 STORE")
:Output(2,1,"CUTLAS")
:Output(3,1,"RAPIER")
:Output(4,1,"CANON")
:Output(5,1,"G. P. LECHUCK")
:Output(Y,16,"<")
:Repeat K=21
:getKey\->\K
:If K=105:Then:\L1\(Y-1)+1\->\\L1\(Y-1):End
:If K=25:Then:Output(Y,16," "):Y-1\->\Y:If
Y<2:Then:5\->\Y:End:Output(Y\#\
,16,"<"):End
:If K=34:Then:Output(Y,16," "):Y+1\->\Y:If
Y>5:Then:2\->\Y:End:Output(Y\#\
,16,"<"):End
:End
\STOP82\


References: