10 REM ************** 20 REM Lift Simulator 30 REM By Tim Surtell 40 REM ************** 50 REM NC200 Revised Version 60 REM Downloaded from Tim's NC Users' Site 70 REM http://www.ncus.org.uk 80 CLS 90 PROCSETUP 100 PROCCONTROL 110 PROCMOVE 120 GOTO100 130 DEF PROCSETUP 140 FLOOR=1:X=4:Y=0 150 MOVE0,0:DRAW118,0:DRAW118,66:DRAW0,66:DRAW0,0 160 MOVE3,5:DRAW115,5:DRAW115,10:DRAW3,10:DRAW3,5 170 PRINTTAB(1,8)"Doors : Open" 180 PRINTTAB(1,9)"Floor : G" 190 MOVE199,0:DRAW199,120:DRAW231,120:DRAW231,0:DRAW199,0 200 FORI=0 TO 120 STEP 10:MOVE180,I:DRAW250,I:NEXT 210 MOVE200,0:PLOT102,230,10:MOVE4,6:DRAW4,9 220 ENDPROC 230 DEF PROCCONTROL 240 PRINTTAB(1,12)"Waiting For Call. " 250 TIME=0:T=RND(6)*100:REPEAT:UNTILTIME=T 260 REPEAT 270 C=RND(12) 280 UNTIL C<>FLOOR 290 FORI=1 TO 3:SOUND1,0,255,1:NEXT 300 IF C9 PRINTTAB(9,9);Y/10;" " 480 IF D$="UP" Y=Y+1 ELSE Y=Y-1 490 IF D$="UP" X=X+1 ELSE X=X-1 500 GOTO410 510 MOVE200,Y:PLOT102,230,Y+10 520 MOVE4,6:PLOT102,X,9 530 FLOOR=C 540 PRINTTAB(1,8)SPC15TAB(1,8)"Doors : Open" 550 PRINTTAB(1,9)"Floor : "; 560 IF FLOOR=1 PRINT;"G " ELSE PRINT;FLOOR-1;" " 570 PRINTTAB(1,12)SPC17TAB(1,13)SPC17 580 ENDPROC