home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 18 / Tiger_Disk_018_19xx_Tiger-Crew-Disk_de_Side_A.d64 / spickergenerator (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  2.2 KB  |  14 lines
  1. 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. 2 reada$:ifa$="..."then10
  3. 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. 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. 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. 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. 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. 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. 9 data..*.:data8:data***.:data*.*.:data***.:data*.*.:data***.:data9:data***.:data*.*.:data***.:data..*.:data..*.:data"..."
  10. 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. 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. 12 a$="":inputa$:ifa$=""thenprint#4:close4:print"[147][144]":end
  13. 13 cmd4:fori=1tolen(a$):printa$(asc(mid$(a$,i,1)));:nexti:print#4:goto12
  14.