10 PRINT "USERID: "; \ U=-1 \ GOSUB 1000 \ IF C=-1 THEN 50 \ IF C=-2 THEN PRINT \ GO TO 10 20 U=40*C \ GOSUB 1000 \ IF C=-1 THEN 50 \ IF C=-2 THEN PRINT \ GO TO 10 30 U=U+C \ GOSUB 1000 \ IF C<>-1 THEN PRINT \ GO TO 10 50 PRINT \ OPEN "SY:" AS FILE VF1% FILESIZE 99 \ S=1 \ U=U/1600 75 B=512*S+1024 \ S=VF1(B+1) \ A=VF1(B+3)/2 \ B=B+5 100 IF VF1(B)<1024 THEN 200 \ IF VF1(B)>=2048 THEN IF S<>0 THEN 75 \ PRINT \ GO TO 9999 110 IF U<0 THEN 120 \ C=VF1(B+3) \ IF C<0 THEN C=C+65536 115 C=C/1600 \ IF ABS(C-INT(C)-U)>1.00000E-05 THEN B=B+7+A \ GO TO 100 120 FOR I=1 TO 3 \ W=VF1(B+I) \ IF W<0 THEN W=W+65536 130 W=W/64000 \ C=0 \ FOR J=1 TO 3 \ W=(W-C)*40 \ C=INT(W+5.00000E-03) \ IF C=0 THEN PRINT " "; \ GO TO 160 140 IF C<=26 THEN PRINT CHR$(C+64); \ GO TO 160 150 PRINT CHR$(C+18); 160 NEXT J \ IF I=2 THEN PRINT "."; 170 NEXT I \ PRINT , 200 B=B+7+A \ GO TO 100 1000 C=SYS(4) \ IF C=13 THEN C=-1 \ RETURN 1010 IF C>=65 THEN IF C<=90 THEN C=C-64 \ RETURN 1020 IF C>=48 THEN IF C<=57 THEN C=C-18 \ RETURN 1030 IF C=36 THEN C=0 \ RETURN 1040 IF C=35 THEN C=SYS(-1,-1) \ C=C-256*INT(C/256) \ GO TO 1010 1050 C=-2 \ RETURN 9999 END