Code
10 PRINT"{CLR}";:T$="{40 SPACE}"
11 READN$:IFN$=""THENRESTORE:GOTO11
12 T$=MID$(T$,2)+LEFT$(N$,1):PRINT"{HOME}"T$:N$=MID$(N$,2):ON-(N$="")GOTO11:GOTO12
13 :
14 DATA "MIT EIN WENIG KNOBELEI IST MIR NOCH DIESE METHODE HIER EINGEFALLEN: "
15 DATA "DIE ZEICHEN WERDEN EINFACH AUS MEHREREN GROESSEREN ZEICHENKETTEN "
16 DATA "EINZELN IN DEN SCROLLER KOPIERT, SO LANGE BIS DIE JEWEILIGE "
17 DATA "QUELLE 'AUFGEBRAUCHT' IST. ES IST ALSO NICHT NOETIG, EIN FELD MIT "
18 DATA "EINZELZEICHEN VORZUHALTEN, WELCHES IM UEBRIGEN AUCH SPEICHERMAESSIG "
19 DATA "RECHT INEFFIZIENT IST: 4-FACHER BEDARF MIT V2 WEGEN DESKRIPTOR "
20 DATA "UND ZEICHEN SELBST, 6-FACHER AB BASIC 3.5 WEGEN DES BACKDESKRIPTORS. "
21 DATA "UND JETZT DAS ALLERBESTE: HIER STEHT KEIN EINZIGER POKE MEHR DRIN, "
22 DATA "UND WENN MAN T$ AM ANFANG AUF 22 ZEICHEN VERKUERZT, LAEUFT DIE "
23 DATA "CHOSE AUCH AUF DEM VC20! :) FUER DEN FALL, DASS ES SICH BEI DER "
24 DATA "LAUFSCHRIFT ABER WIEDERUM NICHT UM DAS EINZIGE DATA-FELD HANDELT, "
25 DATA "KANN MAN JA PROBLEMLOS WIEDER AUF RESTORE LI ZURUECKGREIFEN. ;) "
26 DATA "UND WIEDER LOOPT DER TEXT GENAU MIT EINEM LEERZEICHEN HINTER DEM "
27 DATA "PUNKT. ",""
Alles anzeigen