64'er/64ER_CD.iso/89xx/8905.d64/f-maker

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