|
Comodore C64 Startbildschirm in einer Box
Autor: Werner Zenk
Nutzungsgebühr: Frei
zur Demo
<script language="JavaScript">
// REM Das Script stammt von Werner Zenk
// REM eMail: webmaster@javatop.de
// REM Homepage: www.javatop.de
// REM Das Script darf frei genutzt werden,
// REM Bitte entfernen Sie den Vermerk nicht!
// REM Array erzeugen
function macheArray()
{ this.length = macheArray.arguments.length
for (var i = 0; i < this.length; i++)
this[i+1] = macheArray.arguments[i]
} var AS = new macheArray;
AS[0]=' * * * * COMMODORE 64 BASIC V2 * * * * \n 64K RAM SYSTEM 38911 BASIC BYTES FREE\n\nDAS SCRIPT ERINNERT AN DEN C64, DIE LEGENDAERE BROTKISTE...\n '
AS[1]=' '
AS[2]='1 for r=1 to 5\n2 print="C64 " ;\n3 next r\n\nrun _ \n\nC64 C64 C64 C64 C64\n\nready. '
AS[3]=' '
AS[4]='ready.\nSYS64738 '
AS[5]=' '
var x = 1 , y = 0 , GOSUB = AS[y];
function POKE() {
if (x == GOSUB.length+1) {
for (var z=0; z < 70000; z++);
y+=1;
if (y > 5) y = 0; // REM Hier die Länge des Arrays eingeben (Aktuell endet er bei 5)
document.GOTO.PRINT.value = ' ';
GOSUB = AS[y];
x=0;
}
document.GOTO.PRINT.value = GOSUB.substring(0,x);
x+=1;
setTimeout("POKE() ",100); // REM Geschwindigkeit (100)
}
</script>
</head> <body onLoad="POKE()">
<form name="GOTO"> <table border=10 cellpadding=20 bgcolor=#66ccff align=center>
<tr>
<td bordercolor=#66ccff>
<textarea wrap="physical" rows="11" cols="47" name="PRINT" style="background-color:#0000ff; font-family:Arial; font-weight:bold; color:#66ccff; border:0; padding:2px; overflow:auto" scrolling=no></textarea>
</td>
</tr>
</table>
</form>
</body></html>
|