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