Tiger Disk 18/Tiger_Disk_018_19xx_Tiger-Crew-Disk_de_Side_A.d64/spickergenerator

Commodore BASIC | 2023-02-26 | 2KB | 14 lines

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