DECLARE SUB Sleepa (T%)
SCREEN 0, , 1, 1
CLS
PRINT "Ailias Maker For DOS QBasic"
INPUT "Filename"; FIL$
OPEN FIL$ FOR OUTPUT AS #1
PRINT #1, "@ECHO OFF"
10 INPUT "FILE NAME"; file$
FOR q = 1 TO LEN(file$)
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%
NEXT q
INPUT "ALIAS"; ALI$
IF file$ = "" AND ALI$ = "" THEN CLOSE 1: END
PRINT #1, "IF "; CHR$(34); "%1"; CHR$(34); "=="; CHR$(34); ALI$; CHR$(34); " "; file$
GOTO 10

SUB Sleepa (T%)
A = TIMER + T
9 B = TIMER
IF B > A THEN EXIT SUB ELSE GOTO 9
END SUB