64'er 1989 November/64er_Magazin_89-11_1989_Markt__Technik_de_Side_A.d64/micro-writer+

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

1 input"[147]name of your letter : ";n$:open1,8,2,n$+",p,w":data1,8:fora=1to326
2 readx:poke32766+a,x:print#1,chr$(x);:next:poke204,0:poke32837,129:poke650,128
3 poke32869,128:poke32876,96:poke32867,238:sys32787:print"[147]"+chr$(14)+chr$(8);
4 poke198,0:wait198,1:geta$:ifa$="[140]"thenprint#1,chr$(0):close1:print"[147]ende":end
5 poke205,4:wait207,1,1:printa$;:print#1,a$;:poke216,0:goto4:by ludger baeumer
6 data17,8,197,7,158,50,48,54,55,32,39,76,85,73,39,0,0,0,169,0,141,32,208,141
7 data33,208,120,169,50,133,176,141,18,208,169,179,133,1,160,0,185,0,208,153
8 data0,56,185,0,209,153,0,57,169,3,153,0,60,153,0,61,153,0,62,200,208,230,185
9 data14,9,153,8,58,153,32,58,200,192,24,144,242,169,183,133,1,169,30,141,24
10 data208,173,17,208,41,127,141,17,208,169,201,160,8,141,20,3,140,21,3,169,1
11 data141,13,220,141,26,208,88,160,21,132,2,160,0,162,0,134,216,185,65,9,240,66
12 data201,133,208,4,162,48,134,2,201,134,208,4,162,32,134,2,201,135,208,4,162
13 data16,134,2,162,2,134,205,166,207,208,252,232,134,204,32,210,255,152,72,166
14 data2,160,0,132,204,140,24,212,200,208,250,202,208,247,72,168,200,208,187,238
15 data129,8,76,123,8,76,198,8,169,1,141,25,208,173,22,208,73,1,141,22,208,165
16 data176,201,246,240,11,24,105,4,133,176,141,18,208,76,129,234,169,50,133,176
17 data141,18,208,160,0,185,8,58,106,144,2,9,128,153,8,58,185,32,58,42,144,2,9
18 data1,153,32,58,200,192,24,144,229,76,49,234,29,29,29,29,29,29,29,0,102,24
19 data126,24,102,0,0,0,128,192,96,56,12,6,2,0,160,0,185,0,48,153,0,160,200,208
20 data247,238,42,9,238,45,9,173,45,9,201,208,144,234,76,19,8,147,14,8,5