Algoritmo político de España, versión Sinclair Spectrum BASIC

gistfile1.txt

5 OVER 1
10 REM Primero los POKEs, por lo que pudiera pasar
20 REM Vidas infinitas
30 POKE 50437,1
40 REM Dinero infinito
50 POKE 51181,24
60 REM No morir de hambre
70 POKE 60298,201
80 REM Ahora, al tajo
90 LET VIDAS=3
100 LET DINERO=1000
110 LET HAMBRE=0
120 PRINT "Votan al PP"
130 LET DINERO=DINERO-100
140 LET HAMBRE=HAMBRE+1
150 PRINT "Lo hacen regular, asi";CHR$ 8;"' que, por las dudas, lo votan de vuelta"
160 LET DINERO=DINERO-400
170 LET HAMBRE=HAMBRE+49
180 PRINT "Lo han hecho fatal. Votan al PSOE"
190 LET DINERO=DINERO-100
200 LET HAMBRE=HAMBRE+1
210 PRINT "Lo hacen regular, asi";CHR$ 8;"' que, por las dudas, lo votan de vuelta"
220 LET DINERO=DINERO-400
230 LET HAMBRE=HAMBRE+49
240 PRINT "Lo han hecho fatal. Votan al PP"
250 LET VIDAS=VIDAS-1
260 GOTO 130