Below you'll find the source for the GWBasic file CODE.BAS.
I've been in doubt if I'd republish this file again. Mainly for a few reasons;
1. The stuff I made as a kid is very childish (which kinda makes sense)
2. Times have changed; what was funny/innovative or sharable in 1996 doesn't meet standards in 2024.
3. Most of the code doesn't run natively anymore on modern operating systems.
4. It's in the Dutch language, where most of my shared content is in English.
Still, I've decided to share this file. Keep in mind the age of this content though.
1 Code$ = "CODE" 'De code mag geweizigd worden Ps. Dit programma let op
2 'HOOFD- en kleine letters!
3 '════════════════════════════════════════════════════════════════════════════
4 Foutje$ = ""
5 Boot$ = CHR$(234) + CHR$(240) + CHR$(255) + CHR$(0) + CHR$(240)
6 OPEN "BOOT.COM" FOR OUTPUT AS #1
7 PRINT #1, Boot$
8 CLOSE #1
9 CLS
10 PRINT "Code: ";
11 FOR a = 1 TO LEN(Code$)
12 a$ = MID$(Code$, a, 1)
13 b$ = INPUT$(1)
14 IF a$ = b$ THEN GOTO 16 'Nexting
15 Foutje$ = "*"
16 'Nexting:
17 PRINT "*";
18 NEXT a
19 PRINT
20 IF Foutje$ = "*" THEN SHELL "BOOT.COM"
21 KILL "BOOT.COM"
22 SYSTEM
23 '
24 'CODE.BAS voor GWBASIC en QBASIC door Stefan Thoolen Software
25 ' -Address removed-
26 ' 48** ** Breda
27 ' Nederland
28 ' 076 - 5 ** ** **