Ich brauchte gerade große ASCII-Buchstaben und von FIGlet gefiel mir keiner der Fonts, also hab ich auf dem CPC ein paar Zeilen BASIC geschrieben, die ich euch nicht vorenthalten möchte:
Code
10 SYMBOL AFTER 0
20 o%=0:REM 0 for screen and 8 for printer
30 c$="#": REM Symbol to be used for pixels
40 s$="CPC-Forum":REM print this string
50 MODE 2
60 a%=&9EFC
70 FOR i%=0 TO 7
80 FOR s%=1 TO LEN(s$)
90 b=PEEK(i%+a%+ASC(MID$(s$,s%,1))*8)
100 FOR j=7 TO 0 STEP -1
110 IF b<(2^j) THEN PRINT#o%, " ";
120 IF b>=(2^j) THEN PRINT#o%, c$;:b=b-(2^j)
130 NEXT j
140 NEXT s%
150 PRINT#o%,""
160 NEXT i%
Alles anzeigen
Auf dem CPC 464 oder 664 oder in Konfigurationen mit irgendwelchen Zusatzroms liegt der Font nach einem "SYMBOL AFTER 0" bestimmt an einer anderen Adresse. Eine intelligentere Lösung lasse ich mal als Aufgabe für den Leser offen.
Und so sieht das Ergebnis dann aus: