1 PRINT"[147]  PUBLIC DOMAIN - SPICKER GENERATOR":PRINT"  AUTOR: PHILIPP KOEHN":PRINT"         DREIBERGSTR. 5":PRINT"         D-8520 ERLANGEN":POKE198,0:WAIT198,1:POKE198,0:POKE53281,0:POKE53280,0:POKE646,1:PRINT"[147]           SPICKER-GENERATOR":PRINT"MOMENT BITTE !":DIMA$(255)
2 READA$:IFA$="..."THEN10
3 PRINTA$;:A=ASC(A$):FORI=0TO4:A%(I)=128:NEXTI:FORI=0TO4:READA$:FORJ=0TO3:IFMID$(A$,J+1,1)="*"THENA%(J)=A%(J)+2^I
4 NEXTJ,I:FORI=0TO3:A$(A)=A$(A)+CHR$(A%(I)):NEXTI:GOTO2:DATAA:DATA***.:DATA*.*.:DATA***.:DATA*.*.:DATA*.*.:DATAB:DATA**..:DATA*.*.:DATA**..:DATA*.*.:DATA**..:DATAC:DATA***.:DATA*...:DATA*...:DATA*...:DATA***.:DATAD:DATA**..:DATA*.*.:DATA*.*.:DATA*.*.:DATA**..:DATAE:DATA***.:DATA*...:DATA**..:DATA*...:DATA***.:DATAF:DATA***.:DATA*...:DATA**..:DATA*...:DATA*...:DATAG:DATA***.
5 DATA*...:DATA*.*.:DATA*.*.:DATA***.:DATAH:DATA*.*.:DATA*.*.:DATA***.:DATA*.*.:DATA*.*.:DATAI:DATA***.:DATA.*..:DATA.*..:DATA.*..:DATA***.:DATAJ:DATA..*.:DATA..*.:DATA..*.:DATA*.*.:DATA.*..:DATAK:DATA*.*.:DATA*.*.:DATA**..:DATA*.*.:DATA*.*.:DATAL:DATA*...:DATA*...:DATA*...:DATA*...:DATA***.:DATAM:DATA*.*.:DATA***.:DATA*.*.:DATA*.*.:DATA*.*.:DATAN:DATA***.:DATA*.*.:DATA*.*.
6 DATA*.*.:DATA*.*.:DATAO:DATA***.:DATA*.*.:DATA*.*.:DATA*.*.:DATA***.:DATAP:DATA***.:DATA*.*.:DATA***.:DATA*...:DATA*...:DATAQ:DATA***.:DATA*.*.:DATA*.*.:DATA***.:DATA.**.:DATAR:DATA***.:DATA*.*.:DATA**..:DATA*.*.:DATA*.*.:DATAS:DATA***.:DATA*...:DATA***.:DATA..*.:DATA***.:DATAT:DATA***.:DATA.*..:DATA.*..:DATA.*..:DATA.*..:DATAU:DATA*.*.:DATA*.*.:DATA*.*.:DATA*.*.:DATA***.:DATAV
7 DATA*.*.:DATA*.*.:DATA*.*.:DATA*.*.:DATA.*..:DATAW:DATA*.*.:DATA*.*.:DATA*.*.:DATA***.:DATA*.*.:DATAX:DATA*.*.:DATA*.*.:DATA.*..:DATA*.*.:DATA*.*.:DATAY:DATA*.*.:DATA*.*.:DATA.*..:DATA.*..:DATA.*..:DATAZ:DATA***.:DATA..*.:DATA.*..:DATA*...:DATA***.:DATA" ":DATA....:DATA....:DATA....:DATA....:DATA....:DATA".":DATA....:DATA....:DATA....:DATA.**.:DATA.**.:DATA0:DATA***.:DATA*.*.
8 DATA*.*.:DATA*.*.:DATA***.:DATA1:DATA..*.:DATA..*.:DATA..*.:DATA..*.:DATA..*.:DATA2:DATA***.:DATA..*.:DATA***.:DATA*...:DATA***.:DATA3:DATA***.:DATA..*.:DATA.**.:DATA..*.:DATA***.:DATA4:DATA*...:DATA*.*.:DATA***.:DATA..*.:DATA..*.:DATA5:DATA***.:DATA*...:DATA***.:DATA..*.:DATA***.:DATA6:DATA**..:DATA*...:DATA***.:DATA*.*.:DATA***.:DATA7:DATA***.:DATA..*.:DATA..*.:DATA..*.
9 DATA..*.:DATA8:DATA***.:DATA*.*.:DATA***.:DATA*.*.:DATA***.:DATA9:DATA***.:DATA*.*.:DATA***.:DATA..*.:DATA..*.:DATA"..."
10 PRINT"[147]MIT DIESEM PROGRAMM KANNST DU DIR":PRINT"(FALLS DU SOWAS JE BENOETIGEN SOLLTEST!)":PRINT"MIT DEN EBEN GEZEIGTEN ZEICHEN":PRINT"KLEINE SPICKZETTEL DRUCKEN. -":PRINT"SCHALTE NACH DIESER ANWEISUNG DEINEN":PRINT"DRUCKER EIN UND GIB NACH 'TEXT' EIN,"
11 PRINT"WAS GEDRUCKT WERDEN SOLL.":PRINT"WENN DU FERTIG BIST, DRUECK EINFACH":PRINT"        R E T U R N":PRINT"    DRUCKER EINSCHALTEN UND                     TASTE DRUECKEN!":POKE198,0:WAIT198,1:POKE198,0:PRINT"[147]";:OPEN4,4:PRINT#4,CHR$(8):PRINT"HOECHTENS 2 ZEILEN TEXT EINGEBEN !"
12 A$="":INPUTA$:IFA$=""THENPRINT#4:CLOSE4:PRINT"[147][144]":END
13 CMD4:FORI=1TOLEN(A$):PRINTA$(ASC(MID$(A$,I,1)));:NEXTI:PRINT#4:GOTO12