Below you'll find the source for the GWBasic file ASCII.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 CLS
2 a$ = INKEY$
3 IF a$ = CHR$(27) THEN 24
4 COLOR 23
5 LOCATE 1, 1: PRINT "_"
6 COLOR 7
7 IF a$ = "" THEN 2
8 LOCATE 1, 1
9 PRINT "Informatie over het teken ";
10 COLOR 7, 6, 0: PRINT a$; : COLOR 7, 8, 0: PRINT " of "; a$
11 LOCATE 2, 1
12 COLOR 7, 6, 0: PRINT a$; : COLOR 7, 8, 0
13 PRINT " is ASCII-code"; ASC(a$)
14 COLOR 7, 6, 0: PRINT a$; : COLOR 7, 8, 0
15 IF LEN(a$) <> 1 THEN PRINT " is van een lengte van"; LEN(a$); "tekens"
16 IF LEN(a$) = 1 THEN PRINT " is van een lengte van"; LEN(a$); "teken"
17 COLOR 7, 6, 0: PRINT a$; : COLOR 7, 8, 0
18 PRINT " is"; LEN(a$) * 8; "vakjes breed"
19 COLOR 23, 8, 0
20 PRINT "_"
21 COLOR 7, 8, 0
22 a$ = INPUT$(1)
23 GOTO 1
24 LOCATE 1, 1
25 PRINT "Informatie over het teken ";
26 COLOR 7, 6, 0: PRINT CHR$(27); : COLOR 7, 8, 0: PRINT " of "; CHR$(27)
27 LOCATE 2, 1
28 COLOR 7, 6, 0: PRINT CHR$(27); : COLOR 7, 8, 0
29 PRINT " is ASCII-code"; ASC(a$)
30 COLOR 7, 6, 0: PRINT CHR$(27); : COLOR 7, 8, 0
31 PRINT " is van een lengte van 1 teken"
32 COLOR 7, 6, 0: PRINT CHR$(27); : COLOR 7, 8, 0
33 PRINT " is 8 vakjes breed"
34 PRINT "Druk op Esc. om te stoppen of op een andere toets om verder te gaan";
35 COLOR 23
36 PRINT "_"
37 COLOR 7
38 a$ = INPUT$(1)
39 IF a$ = CHR$(27) THEN SYSTEM
40 GOTO 1
41 '
42 'ASCII.BAS voor GWBASIC en QBASIC door Stefan Thoolen Software
43 ' -Address removed-
44 ' 48** ** Breda
45 ' Nederland
46 ' 076 - 5 ** ** **