home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh1x
/
sh18a.d64
/
text_grafik
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
227b
|
9 lines
10 REM --- DRUCK EINER SINUSKURVE ---
20 REM --- UND TEXT ---
30 OPEN 1,4
40 PRINT#1,"DAS IST ";
50 PRINT#1,CHR$(27);"*";CHR$(0);CHR$(8);CHR$(0);
60 A$=CHR$(255):FOR I=1 TO 6:A$=A$+CHR$(129):NEXT I:A$=A$+CHR$(255)
70 PRINT#1,A$;
80 PRINT#1,"EIN BEISPIEL"