A92: Can somebody check this coding

• To: "assembly-92@lists.ticalc.org" <assembly-92@lists.ticalc.org>
• Subject: A92: Can somebody check this coding
• From: Phelan Wolf <gwatford@worldnet.att.net>
• Date: Thu, 05 Mar 1998 20:29:19 -0800
• Organization: EDCTech, Inc. Web Design
• Reply-To: assembly-92@lists.ticalc.org

If somebody could check to see if this coding works I would be much
abligded.  If it doesn't work could you please tell me what doesn't and
how to fix it.

-Phelan 'Amen' Wolf

Here is my coding:

()
Prgm
Lbl 0
ClrHome
ClrDraw
PxlText "Password:",1,1
PxlText "7 8 9",10,20
PxlText "4 5 6",20,20
PxlText "1 2 3",30,20
PxlText "0",40,30
While 1
getKey()
While Ans=0
getKey()
EndWhile
If Ans=48
Goto 1
Goto Q
EndIf
Lbl 1
PxlText "#",55,20
While 1
getKey()
While Ans=0
GetKey()
EndWhile
If Ans=49
Goto 2
Goto Q
EndIf
Lbl 2
PxlText "##",55,20
While 1
getKey()
While Ans=0
getKey()
EndWhile
If Ans=50
Goto 3
Goto Q
EndIf
Lbl 3
PxlText "###",55,20
PxlText "Password: Accepted...",1,1
Pause
ClrHome
ClrDraw
Stop
EndPrgm

• Prev: Re: A92: ANOUNCEMENT: System Stablizer v0.7 & Error v0.1
• Next: A92: linkport
• Index(es):
  • Main
  • Thread