Last active
September 16, 2022 11:37
-
-
Save amigojapan/53ce6e4860ea5e64de1cf8322203ebbc to your computer and use it in GitHub Desktop.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 1 REM PASSWORD GENERATOR FOR SHARP PC-G801 BY AMIGOJAPAN | |
| 2 RANDOMIZE | |
| 10 PRINT "ENTER LENGTH OF PASSWORD:"; | |
| 20 INPUT L | |
| 30 FOR C=1 TO L | |
| 39 REM FOLLOWING GENERATES A RANDOM NUMBER BETWEEN 33 AND 126 | |
| 40 R=INT((126-33+1)*RND(1)+33) | |
| 50 IF CHR$(R)="¥" THEN GOSUB 500 | |
| 90 PRINT CHR$ (R); | |
| 100 NEXT C | |
| 110 END | |
| 499 REM THE FOLLOWING IS THE CHARACTER FOR \ | |
| 500 R=239 | |
| 510 RETURN |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment