C64'er/C64'er.iso/sh6x/sh65b.d64/micro-writer+

Commodore BASIC | 1995-03-30 | 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