1
0
mirror of https://github.com/mbirth/gwbasic.git synced 2024-12-25 03:54:07 +00:00

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

This commit is contained in:
Markus Birth 1995-12-14 19:05:28 +01:00
parent 10a56d6288
commit fd74baacfd
Signed by: mbirth
GPG Key ID: A9928D7A098C3A9A
3 changed files with 59 additions and 0 deletions

23
ASCII-CO/ASCII.BAS Normal file
View File

@ -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


24
ASCII-CO/CODE2.BAS Normal file
View File

@ -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


12
ASCII-CO/CODE3.BAS Normal file
View File

@ -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