home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
s85xx
/
s8507b.d64
/
char-generator
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
1KB
|
40 lines
10 DATA169,0,141,14,220,169,51,133,1,169,32,133,252,169,216,133,254,160,0,132
20 DATA251,132,253,162,7,177,253,145,251,200,208,249,230,254,230,252,202,16
30 DATA242,169,55,133,1,169,1,141,14,220,96
40 FORI=828TO876:READA:POKEI,A:NEXT
50 PRINT"[147] CHAR-GENERATOR V1.0 (C) MARIO WECK
60 [153]"1) GROSS/KLEIN":[153]"2) GROSS/GRAFIK":[153]"3) NICHTS
70 INPUT"UEBERNEHMEN";A
80 IFA=2THENPOKE842,208
85 IFA<3THENSYS828
90 POKE53272,25:PRINT"[147]":FORI=0TO127:POKE55296+I,14:POKE1024+I,I:NEXT
91 POKE214,11:PRINT:PRINT,,"Q - SETZEN":PRINT,,"W - LOESCHEN
92 [153],,"N - NEUES ZEICHEN":[153],,"R - INVERTIEREN
93 PRINT,,"C = ZCHN LOESCHEN":PRINT,,"S - SAVEN
100 [151]55296[170]NR,14:[133]"STOPNR.:";NR:[151]55296[170]NR,0:[139]NR[179]0[176]NR[177]127[167]100
110 [151]214,10:[153]:[153]"ORTANTANTANTANTANTANTANTAN^":[129]I[178]1[164]8:[153]"(null)WAIT (null)":[130]
120 [153]"/TANTANTANTANTANTANTANTANEXP
130 FORJ=8192+NR*8TOJ+7:ZW=128:FORI=0TO7
140 IFPEEK(J)ANDZWTHENPOKE1505+40*(JAND7)+I,160
150 ZW=ZW/2:NEXTI,J
160 KO=1505+40*Y+X:P=PEEK(KO):POKEKO,42:BY=8192+NR*8+Y:POKEKO,P
170 GETA$:IFA$=""THEN160
180 IFA$=""THENX=(X+1)AND7
190 IFA$="[157]"THENX=(X-1)AND7
200 IFA$="[145]"THENY=(Y-1)AND7
210 IFA$=""THENY=(Y+1)AND7
220 IFA$="N"THEN100
230 IFA$="Q"THENPOKEKO,160:POKEBY,PEEK(BY)OR2^(7-X)
240 IFA$="W"THENPOKEKO,32:POKEBY,PEEK(BY)ANDNOT2^(7-X)
250 IFA$="C"THENFORI=BYAND16376TOI+7:POKEI,0:NEXT:GOTO110
260 IFA$="R"THENFORI=BYAND16376TOI+7:POKEI,255-PEEK(I):NEXT:GOTO110
270 IFA$="S"THENINPUT"SICHER";B$:IFB$<>"J"THEN100
280 IFA$="S"THEN400
299 GOTO160
400 INPUT"[154][147]NAME";A$
405 FORI=0TO1023:POKE9216+I,255-PEEK(8192+I):NEXT
410 PRINT"[147]SAVE"+CHR$(34)+A$+CHR$(34)+",8
420 [153]" NACH SAVEN BITTE 'RESET' ! "
430 [151]198,2:[151]631,19:[151]632,13
440 [151]43,0:[151]44,32:[151]45,0:[151]46,40