mbirth/gwbasic
1
0
Fork 0
mirror of https://github.com/mbirth/gwbasic.git synced 2024-09-19 16:53:26 +01:00
Code Issues Releases Wiki Activity

Added CM2010.BAS to METEX.

Browse Source
This commit is contained in:
Markus Birth 2003-03-14 00:44:00 +01:00
parent 871c0defb1
commit f755cf54db
Signed by: mbirth
GPG Key ID: A9928D7A098C3A9A
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
METEX/CM2010.BAS Normal file
View File

@ -0,0 +1,11 @@
10 KEY OFF
20 CLS
25 PRINT "™ffne..."
30 OPEN "com2:9600,N,8,1,rs,cd,ds,cd" AS #1
35 PRINT "Lese..."
40 IN$ = INPUT$(34,#1)
45 PRINT "Gebe aus..."
50 FOR I=1 TO 34
60 PRINT ASC(MID$(IN$,I,1));", ";
70 NEXT