Added ASCII.BAS, CODE2.BAS and CODE3.BAS.

ASCII-CO/ASCII.BAS

@@ -0,0 +1,23 @@
+10 CLS
+20 A=0:B=1:C=1
+30 LOCATE B,C:PRINT USING"###  ";A;:PRINT CHR$(A)
+40 A=A+1
+50 B=B+1
+60 IF B>21 AND C=1 THEN B=1:C=10
+61 IF B>21 AND C=10 THEN B=1:C=20
+62 IF B>21 AND C=20 THEN B=1:C=30
+63 IF B>21 AND C=30 THEN B=1:C=40
+64 IF B>21 AND C=40 THEN B=1:C=50
+65 IF B>21 AND C=50 THEN B=1:C=60
+66 IF B>21 AND C=60 THEN B=1:C=70
+67 IF B>21 AND C=70 THEN GOSUB 110
+70 IF A=7 THEN A=A+1
+80 IF A=12 THEN A=A+1
+90 IF A>255 THEN LOCATE 23,1:END
+100 GOTO 30
+110 REM Warteschleife
+120 LOCATE 23,1:PRINT" Bitte Taste dr<64>cken, wenn bereit."
+130 A$=INKEY$:IF A$="" THEN 130
+140 B=1:C=1:CLS
+150 RETURN
+

ASCII-CO/CODE2.BAS

@@ -0,0 +1,24 @@
+10 CLS
+20 B=1
+30 C=1
+40 D=3
+50 A=INT(RND(1)*255)
+60 IF A=12 OR A=7 THEN GOTO 50
+70 IF D=2 THEN GOTO 90
+80 LOCATE B,C:PRINT USING"###";A;
+90 IF D=1 THEN GOTO 110
+100 LOCATE B,C+5:PRINT CHR$(A)
+110 B=B+1
+120 IF B>21 AND C=1 THEN B=1:C=10
+130 IF B>21 AND C=10 THEN B=1:C=20
+140 IF B>21 AND C=20 THEN B=1:C=30
+150 IF B>21 AND C=30 THEN B=1:C=40
+160 IF B>21 AND C=40 THEN B=1:C=50
+170 IF B>21 AND C=50 THEN B=1:C=60
+180 IF B>21 AND C=60 THEN B=1:C=70
+190 IF B>21 AND C=70 THEN GOSUB 210
+200 GOTO 50
+210 REM Schleife 001
+220 B=1:C=1
+230 RETURN
+

ASCII-CO/CODE3.BAS

@@ -0,0 +1,12 @@
+10 CLS
+12 LOCATE 1,1:PRINT "MZ"
+20 B=2
+30 C=1
+40 A=INT(RND(1)*255)
+50 IF A=12 OR A=7 OR A=13 OR A=9 THEN GOTO 40
+60 LOCATE B,C:PRINT CHR$(A)
+70 B=B+1
+80 IF B>22 AND C=80 THEN GOTO 20
+90 IF B>23 THEN B=1:C=C+1
+100 GOTO 40
+