User:
Title: PSEUDO BASIC
Content:
10 CLEAR SCREEN
20 CURSOR 0,0
30 PRINT "WELCOME NOOB CHALLENGER"
41 POKE 1024,7 (Ersetze WELCOME with GIZMORE)
42 POKE 1025,9
43 POKE 1026,26
44 POKE 1027,13
45 POKE 1028,15
46 POKE 1029,18
47 POKE 1030,5
50 INPUT "WHAT IS THE MAGIC WORD"; $A (sollte in Zeile 2 stehen)
55 HIDE LISTING (irgendwie kann man doch das listing verstecken)
60 SETUP RC4 (CIPHERTEXT = 100DATA, KEY = $A, OUTPUT = addr 1024(TEXT BUFFER))
70 OUTPUT SHALL GO TO 1024 (RENDER OUTPUT IN SCREEN)
100 DATA (THE CIPHERTEXT) (der verschlüsselte plaintext)