1: DECLARE SUB Sleepa (T%) 2: SCREEN 0, , 1, 1 3: CLS 4: PRINT "Ailias Maker For DOS QBasic" 5: INPUT "Filename"; FIL$ 6: OPEN FIL$ FOR OUTPUT AS #1 7: PRINT #1, "@ECHO OFF" 8: 10 INPUT "FILE NAME"; file$ 9: FOR q = 1 TO LEN(file$) 10: IF ASC(MID$(file$, q, 1)) > 96 AND ASC(MID$(file$, q, 1)) < 123 THEN y% = POS(0): x% = CSRLIN: LOCATE 1, 1: COLOR 21, 0: PRINT "Must use all capital letters": Sleepa 9999: LOCATE 1, 1: PRINT " ": COLOR 7, 0: LOCATE x%, y% 11: NEXT q 12: INPUT "ALIAS"; ALI$ 13: IF file$ = "" AND ALI$ = "" THEN CLOSE 1: END 14: PRINT #1, "IF "; CHR$(34); "%1"; CHR$(34); "=="; CHR$(34); ALI$; CHR$(34); " "; file$ 15: GOTO 10 16: 17: SUB Sleepa (T%) 18: A = TIMER + T 19: 9 B = TIMER 20: IF B > A THEN EXIT SUB ELSE GOTO 9 21: END SUB 22: |