2014-10-12

Back to … BASIC

Ein kleiner Wochenendend-Spaß. Als die Pixel noch groß wie Bauklötzchen waren.
 10 LET FARBE = 2  
 11 MODE(1) : COLOR FARBE,0  
 12 LET X = 64  
 13 LET Y = 32  
 20 IF X < 0 THEN LET X = 127  
 21 IF X > 127 THEN LET X = 0  
 22 IF Y < 0 THEN LET Y = 63  
 23 IF Y > 63 THEN LET Y = 0  
 24 SET(X,Y)  
 40 LET A$ = INKEY$  
 41 IF A$ < "1" OR A$ > "4" THEN GOTO 50  
 42 LET FARBE = ASC(A$) - 48  
 43 COLOR FARBE  
 44 GOTO 20  
 50 IF A$ = "A" THEN LET X = X - 1 : GOTO 20  
 51 IF A$ = "S" THEN LET X = X + 1 : GOTO 20  
 52 IF A$ = "W" THEN LET Y = Y - 1 : GOTO 20  
 53 IF A$ = "Z" THEN LET Y = Y + 1 : GOTO 20  
 98 IF A$ = " " THEN GOTO 999  
 99 GOTO 40  
 999 END  
Screenshot des Emulators VZEM
Das Malprogramm in Aktion
Ja, damals (1983) konnte man sich als 13-Jähriger gut damit die Zeit vertreiben. Dem Familien-Farbfernsehgerät die drei öffentlich-rechtlichen Kanäle genommen, stattdessen ein Ding namens Homecomputer daran angeschlossen. Und eine völlig neue Welt entdeckt.

No comments:

Post a Comment