64'er 1989 May/64er_Magazin_89-05_1989_Markt__Technik_de.d64/f-maker

Commodore BASIC | 2022-10-26 | 1KB | 21 lines

1 forx=49152to49308:reada:pokex,a:next:poke53280,0:poke53281,0:print"[147]";
2 printtab(16)"[153]f-maker":print:printtab(10)"[154]by boris schaedler"
3 print:forx=0to7:a$=""
4 print:print"befehl fuer [150]f"x+1"eingeben !":input"max 9 zeichen";a$:iflen(a$)>9then4
5 iflen(a$)=0thena=49309+10*x:r=0:goto8
6 input"m[146]it oder o[146]hne >return< ";r$:a=49309+10*x
7 fory=1tolen(a$):pokea,asc(mid$(a$,y,1)):a=a+1:next:r=13:ifr$="o"thenr=0
8 pokea,r:nextx
9 print:input"[154]filenahme ";n$:
10 open3,8,1,n$:print#3,chr$(0);chr$(192);
11 forx=49152to49392:print#3,chr$(peek(x));:nextx
12 close3:end
13 data120,169,13,141,20,3,169,192,141,21,3,88,96,173,142,2,208,30,165,197
14 data201,4,240,50,201,5,240,56,201,6,240,62,201,3,240,68,169,0,141,255,207
15 data76,49,234,0,0,0,0,165,197,201,4,240,25,201,5,240,31,201,6,240,37,201
16 data3,240,43,169,0,141,255,207,76,49,234,160,0,76,114,192,160,10,76,114
17 data192,160,20,76,114,192,160,30,76,114,192,160,40,76,114,192,160,50,76
18 data114,192,160,60,76,114,192,160,70,76,114,192,173,255,207,208,35,162
19 data1,185,157,192,240,17,157,118,2,201,13,240,5,200,232,76,121,192,134
20 data198,76,149,192,202,134,198,76,149,192,169,1,141,255,207,76,49,234