1 REM FREEWARE - 17.04.1995 BY ALEX ZOP
2 REM AMSELWEG 1, D-85293 REICHERTSHSN.
3 REM ROCKFORD-FD SERIE VC20-DISK 033.1
4 REM
8 PRINTCHR$(142)
10 PRINT"[155][147][144]";:POKE53280,0:POKE53281,0  :
118 PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
120 PRINT"    VC20 PET-ASCII-TEXT-ANZEIGER V2     "
122 PRINT"  SPEZIELL FUER DEN 40 ZEICHEN HACK!"
125 :
130 PRINT"     WELCHEN TEXT SOLL ICH LESEN   "
140 INPUT"           ";B$
150 :
160 PRINT"  WO SOLL DER TEXT AUSGEGEBEN WERDEN??"
170 PRINT"   <B>ILDSCHIRM"SPC(3)"<D>RUCKER"SPC(3)"<E>NDE"
190 GETG$:IFG$=""THEN190
200 IFG$="E"THEN470
210 IFG$="B"GOTO240
220 IFG$<>"D"THEN190
230 OPEN1,4,7:Q=1
240 OPEN5,8,5,B$+",S,R":GOSUB420
245 PRINT"[155]":POKE53280,0:POKE53281,0
250 PRINT"      [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
260 PRINT"           [214][195]20 [211][197][209]-[212][197][216][212][201] [214]2      "
261 PRINT"      [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
270 PRINT"          [211][208][193][195][197] = [208]AUSE UND [199]O    "
280 PRINT"              '[209]' = [197][206][196][197]          "
290 PRINT"      [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
292 IFG$="B" GOTO 298
293 IFG$="D" GOTO 294
294 PRINT"":PRINT"        [201]CH DRUCKE, BITTE WARTEN"
296 GOTO 300
298 FOR T=1 TO 3000:NEXTT
299 PRINT"[147][144]"
300 GET#5,F$
310 IFST=0THEN330
320 IFST=64THEN440
330 IFQ<>1THENPRINTF$;:GOTO350
340 PRINT#1,F$;
350 GETA$
360 IFA$<>""THENGOSUB380
370 GOTO300
380 IFA$="Q"THEN440
390 GETA$:IFA$=""THEN390
400 IFA$="Q"THEN440
410 RETURN
420 CLOSE15:OPEN15,8,15:INPUT#15,D,E$,F,G
430 RETURN
440 Q=0:CLOSE1:CLOSE5:FORW=1TO5000:NEXTW:RUN
470 PRINT"	[145]":GOTO8