home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh1x
/
sh17b.d64
/
laufedit
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
701b
|
25 lines
1 REM ***************************
2 REM * *
3 REM * EDITOR FUER LAUF- *
4 REM * *
5 REM * SCHRIFT IM RAND *
6 REM * *
7 REM * *
8 REM ***************************
9 REM
10 POKE 56,62:CLR:ZA=53248
20 PRINT"[147]BITTE TEXT EINGEBEN"
25 A$="AUF WIEDERSEHEN!":B$=A$
30 INPUT"1.";A$:INPUT"2.";B$
35 IF LEN(A$)>24 OR LEN(B$)>24 THEN 20
40 PRINT"[147]"A$:PRINT""B$
50 FORI=15872TO16382:POKEI,0:NEXT
60 POKE56334,0:POKE1,51
70 FORA=0TO7:FORB=0TO2
80 AD=ZA+8*PEEK(1024+A*3+B)
90 A2=ZA+8*PEEK(1104+A*3+B)
100 FORI=0TO7:POKE15911+A*64+B+I*3,PEEK(AD+I)
120 POKE15872+A*64+B+I*3,PEEK(A2+I):NEXT:NEXT:NEXT
130 POKE1,55:POKE56334,1
140 POKE53280,0:POKE16383,255:SYS 49152