10 DIM A$(1):C1=1›20 XY=12:YY=18:XN=24:YN=18:PLAYER=1:XE=10›95 GRAPHICS 0:SETCOLOR 2,8,2:SETCOLOR 4,8,2›130 POSITION XY,XE:PRINT "DO YOU LOVE ME?"›150 GOSUB 1000›190 POSITION XE-7,XN-2›200 IF A$="Y" THEN PRINT "     SHUCKS, I LOVE YOU TOO."›210 IF A$="N" THEN PRINT "WELL, I LOVE YOU ANYWAY. (SNIFFLE)"›220 FOR DELAY=1 TO 1000:NEXT DELAY›240 GOTO 95›1000 POKE 752,C1:A$="Y"›1010 POSITION XY,YY:? "ΩΕΣ";:POSITION XN,YN:? "NO";›1020 IF STICK(PLAYER-C1)=11 THEN 1000›1030 IF STICK(PLAYER-C1)=7 THEN A$="N":POSITION XY,YY:? "YES";:POSITION XN,YN:? "ΞΟ";:GOTO 1020›1040 IF STRIG(PLAYER-C1) THEN 1020›1050 RETURN ›