vineri, 22 ianuarie 2016

BASIC Love



5 LET PLACE = HERE
10 PRINT “THERE’S NO LOVE HERE”; U$
20 LET LOVE = N
30 IF N = 0 THEN ADD LOVE
40 LET LOVE = EXIST
50 PRINT “LOVE EXISTS”; U$
60 NEXT I
70 LET CLEM = UNIQUE
80 PRINT “CLEM HAS APPEARED”; U$
90 LET LOVE = N
100 IF N = 1 THEN ADD LOVE UNTIL N = INFINITY
110 LET LOVE = INFINITY
120 PRINT “LOVE IS INFINITE”; U$
130 NEXT I
140 IF LOVE = INFINITY THEN GO TO CLEM
150 PRINT “TRANSFERING LOVE TO CLEM”; U$
160 LET LOVE = CLEM
170 NEXT I
180 LET PLACE = HERE
190 PRINT “LOVE IS HERE”; U$
200 PRINT “LOVE IS CLEM”; U$
210 IF LOVE = INFINITY TO CLEM THEN GO TO REALITY
220 THEN ADD HAPPINESS
230 ELSE GO TO 5
240 END