10 PRINT "PLEASE SAY HELLO" \ PRINT \ C=SYS(4) 20 IF SYS(4)<>13 THEN 20 \ IF C<>72 THEN C=SYS(0) \ GO TO 10 100 N=-1 \ PRINT \ PRINT "USERID: "; \ GOSUB 1000 \ IF C<>13 THEN 240 110 C=SYS(3) \ PRINT "PASSWORD:"; \ GOSUB 1000 \ P=SYS(2) \ IF C<>13 THEN 240 200 PRINT \ PRINT \ OPEN "PASWRD.B00" AS FILE 1 RECORDSIZE -1 210 C=SYS(4,1) \ IF C<=0 THEN 240 \ IF C<>32 THEN 210 \ P=SYS(4,1) 220 FOR I=0 TO N \ IF C(I)<>SYS(4,1) THEN 230 \ NEXT I \ GO TO 300 230 IF SYS(4,1)<>13 THEN 230 \ GO TO 210 240 CLOSE \ C=SYS(0) \ PRINT \ PRINT "INVALID ENTRY -- TRY AGAIN" \ GO TO 100 300 CLOSE \ OPEN "NOTICE.B00" AS FILE 1 RECORDSIZE -1 310 C=SYS(4,1) \ IF C<=0 THEN 400 \ IF C<>34 THEN 310 320 C=SYS(4,1) \ PRINT CHR$(C); \ IF C<>10 THEN 320 \ GO TO 310 400 IF C(1)<>44 THEN C=SYS(-1,256*C(1)+C(0)) \ GO TO 420 410 C=SYS(-1,C(0)) 420 IF P=39 THEN C=SYS(-2) 430 C=SYS(7)+SYS(5) 1000 I=N \ FOR N=N+1 TO 10 \ C=SYS(4) \ C(N)=C \ IF C=13 THEN C(N)=44 \ RETURN 1010 IF C=127 THEN N=N-1 \ IF N>I THEN N=N-1 1020 IF C=21 THEN N=I 1030 NEXT N \ RETURN