10REM Numerical Password System 20REM By Andrew P Snodgrass 30REM v1.01 1st June 1993 40REM This is PD software 50REM -- 8 Bit Software -- 60: 70MODE1 80TIME=0 90ONERRORMODE1:COLOUR3:REPORT:PRINT" at ";ERL:END 100PROCdefine 110PROCmain 120END 130: 140DEFPROCdefine 150VDU23;8202;0;0;0; 160GCOL32,0 170MOVE1280,0:PLOT85,0,1024:PLOT85,128 0,1024 180VDU28,16,17,22,14:CLS:VDU26 190*FX11,0 200N%=0:X=17 210GCOL64,0 220MOVE512,450:DRAW487,425:PLOT85,512, 575:PLOT85,487,600:PLOT85,740,575:PLOT85 ,765,600:PLOT85,740,450:PLOT85,765,425:P LOT85,512,450:PLOT85,487,425 230GCOL0,1:MOVE512,450:DRAW512,575:DRA W740,575:DRAW740,450:DRAW512,450:DRAW487 ,425:DRAW487,600:DRAW512,575:MOVE487,600 :DRAW765,600:DRAW740,575:MOVE765,600:DRA W765,425:DRAW740,450:MOVE765,425:DRAW487 ,425 240PROCdis(257,700,1,"You have seco nds to go") 250ENDPROC 260: 270DEFPROCmain:COLOUR135 280PRINTTAB(17,15)"00000" 290READno% 300REPEAT:COLOUR135:COLOUR0:*FX11,0 310T%=60-TIME/100:IFT%>=10PRINTTAB(17, 10);T%ELSEPRINTTAB(17,10)"0";T% 320IFN%>=10000ANDN%<100000PRINTTAB(17, 15)"";N% 330IFN%>=0ANDN%<10PRINTTAB(17,15)"0000 ";N% 340IFN%>=10ANDN%<100PRINTTAB(17,15)"00 0";N% 350IFN%>=100ANDN%<1000PRINTTAB(17,15)" 00";N% 360IFN%>=1000ANDN%<10000PRINTTAB(17,15 )"0";N% 370COLOUR1:COLOUR128:PRINTTAB(X,16)CHR $139 380IFINKEY-122ANDX<21X=X+1:PRINTTAB(X- 1,16)" " 390IFINKEY-26ANDX>17X=X-1:PRINTTAB(X+1 ,16)" " 400IFX=17ANDINKEY-42N%=N%-10000 410IFX=17ANDINKEY-58 N%=N%+10000:IFN%> 90000N%=N%-100000 420IFX=18ANDINKEY-42N%=N%-1000 430VDU28,9,11,35,9:COLOUR1:PRINTTAB(11 ,1)w$:VDU26 440IFX=18ANDINKEY-58N%=N%+1000 450IFX=19ANDINKEY-42N%=N%-100 460IFX=19ANDINKEY-58N%=N%+100 470IFX=20ANDINKEY-42N%=N%-10 480IFX=20ANDINKEY-58N%=N%+10 490IFX=21ANDINKEY-42N%=N%-1 500IFX=21ANDINKEY-58N%=N%+1 510UNTILINKEY-74ORTIME/100>=60 520IFN%=no%PRINT"ACCESS GRANTED!" ELSE PRINT"ACCESS DENIED!":REM Hard Break 530DATA12345:REM Access code 540ENDPROC 550: 560DEFPROCdis(x,y,c,w$) 570VDU5:GCOL0,c:MOVEx-20,y-50:MOVEx-20 ,y-5:PLOT85,x+(LENw$*32)-20,y-50:PLOT85, x+(LENw$*32)-20,y-5 580VDU24,x-4;y-33;x+(LENw$*32);y+16;:C LG:VDU26:MOVEx,y:PRINTw$ 590MOVEx-4,y-33:DRAWx-4,y+16:DRAWx+(LE Nw$*32),y+16:DRAWx+(LENw$*32),y-33:DRAWx -4,y-33:VDU4:ENDPROC