1: SCREEN 2 2: CLS 3: PRINT "QBasic cracking system!" 4: INPUT "Cracking filename"; cfk$ 5: OPEN cfk$ FOR INPUT AS #1 6: LINE INPUT #1, file$ 7: CLS 8: PRINT "File:"; file$ 9: 10 LINE INPUT #1, a$ 10: IF a$ = "---" THEN ELSE PRINT a$: GOTO 10 11: INPUT "Choice"; ch$ 12: IF ch$ = "" THEN END 13: ch$ = ch$ + ":" 14: DO UNTIL b$ = ch$ 15: LINE INPUT #1, b$ 16: LOOP 17: INPUT #1, flip 18: INPUT #1, n$ 19: IF LEFT$(n$, 1) = "<" THEN PRINT "Must be"; LEN(n$); "charectars long": INPUT "CHANGE TO "; n$ 20: CLOSE #1 21: OPEN file$ FOR BINARY AS #1 22: PUT #1, flip, n$ 23: END 24: erre: 25: CLOSE #1 26: OPEN cfk$ FOR INPUT AS #1 27: RESUME NEXT 28: |