DIESER TEXT IST ABSICHTLICH NUR
IN GROSSBUCHSTABEN GEHALTEN, DAMIT
ER AUCH AUF DEM C64 GELESEN WERDEN
KANN.

DIESES PAKET ENTHAELT DIE FOLGENDEN
FILES:

WICHTIG.TXT   : DIESER TEXT
ROCKUS1.D64   : 1. DISKETTENSEITE
ROCKUS2.D64   : 2. DISKETTENSEITE
README.TXT    : WICHTIGE HINWEISE
README64.TXT  : WICHTIGE HINWEISE,
                IM C64-FORMAT
ANLEIT.TXT    : DIE SPIELANLEITUNG
ANLEIT64.TXT  : DIE SPIELANLEITUNG,
                IM C64-FORMAT

SOLLTE (WIDER ERWARTEN) AUF DEM C64
KEIN PROGRAMM ZUM LESEN VON TEXTEN
ZUR VERFUEGUNG STEHEN, SO TIPPEN
SIE DIESES KURZE PROGRAMM AB UND
STARTEN ES MIT 'RUN'.
VERGESSEN SIE BEI DER EINGABE AUCH
KEINS DER SONDERZEICHEN!


10 REM TEXTAUSGABE
20 POKE53280,0:POKE53281,0:POKE646,12
30 PRINTCHR$(147);CHR$(18);
40 PRINT"TEXTAUSGABE-PROGRAMM":PRINT
50 PRINT"DATEINAME DES TEXTES:";
60 INPUT A$:PRINT
70 PRINT"DRUCKERAUSGABE ? (J/N)";
80 DR=0:INPUT B$:PRINT
90 IF B$<>"J"THEN 110
100 OPEN 4,4,7:DR=1
110 OPEN 2,8,2,A$+",P,R":Z=0
120 E$=CHR$(13)
130 IF ST<>0 THEN 220
140 GET#2,C$;:PRINTC$;
150 IF DR=1 THEN PRINT#4,C$;:GOTO 130
160 IF C$<>E$ THEN 130
170 Z=Z+1:IF Z<23 THEN 130
180 Z=0:PRINT"<TASTE>":POKE198,0
190 WAIT198,1:POKE198,0
200 PRINTCHR$(145);"       "
210 PRINTCHR$(145);:GOTO 130
220 IF A=1 THEN CLOSE4
230 CLOSE2
240 END


DAS IST NATUERLICH EIN SEHR KLEINES,
LAMES PROGRAMM OHNE ANSPRUCH AUF
DEN NOBELPREIS FUER INFORMATIK.
ICH WOLLTE ES NICHT ZU KOMPLIZIERT
MACHEN - FUER ALL JENE, DIE NOCH NIE
PROGRAMMIERT HABEN.
NATUERLICH MUSS MAN DARAUF ACHTEN,
DASS DER DRUCKER EINGESCHALTET IST,
BEVOR MAN DAS PROGRAMM STARTET.

ABER ES SOLLTE EIGENTLICH LAUFEN.
(WENN AUCH LANGSAM.)

BITTE DARAN DENKEN: ES SIND NATUERLICH
DIE TEXTE IM C64-FORMAT ZU BENUTZEN.

DER PROGRAMMIERER.
ENRICO KUSS

INTERNET: IG-SOFT@UNI.DE
