home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
86xx
/
8611a.d64
/
basic-demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
618b
|
23 lines
100 REM ***************************
110 REM * *
120 REM * DEMO - LAUFSCHRIFT *
130 REM * *
140 REM * VON N.NEBEL 21.2.1986 *
150 REM * *
160 REM ***************************
170 REM
180 POKE56,62:CLR:ZA=53248
190 PRINT"[147]2 TEXTE EINGEBEN, JEWEILS HOECHST. 24 Z."
200 INPUT"1.";A$:INPUT"2.";B$
210 PRINT"[147]"A$:PRINT""B$
220 FORI=15872TO16382:POKEI,0:NEXT
230 POKE56334,0:POKE1,51
240 FORA=0TO7:FORB=0TO2
250 AD=ZA+8*PEEK(1024+A*3+B)
260 A2=ZA+8*PEEK(1104+A*3+B)
270 FORI=0TO7:POKE15911+A*64+B+I*3,PEEK(AD+I)
280 POKE15872+A*64+B+I*3,PEEK(A2+I):NEXT
290 NEXT:NEXT
300 POKE1,55:POKE56334,1
310 POKE53280,0:POKE16383,255:SYS49152