Basic-Uhr auf dem Duinomite

10 OPEN “com3:9600″ AS #3
20 PRINT #3, CHR$(254);CHR$(1);
30 zeit$=TIME$
40 PAUSE 10
50 PRINT #3, CHR$(254);CHR$(128+0);
60 PAUSE 10
70 PRINT #3, TIME$;
80 PAUSE 10
90 PRINT #3, CHR$(254);CHR$(128+64);
100 PAUSE 10
110 PRINT #3, DATE$;
120 IF zeit$ = TIME$ THEN GOTO 120
130 GOTO 30

Kommentieren

Sie müssen angemeldet sein, um kommentieren zu können.