10GR:COLOR =4
20VLIN 0, 39 AT 10
21VLIN 10, 15 AT 9
22VLIN 10, 15 AT 31
23VLIN 11, 14 AT 8
24VLIN 11, 14 AT 32
25VLIN 12, 13 AT 7
26VLIN 12, 13 AT 33
30VLIN 0, 39 AT 30
40HLIN 10, 30 AT 0
50HLIN 10, 30 AT 39
51COLOR =3
52FOR x=12 TO 28 STEP 2
53VLIN 1, 6 AT x:NEXT:COLOR =7
60COLOR =7
70VLIN 30, 35 AT 14
80VLIN 30, 35 AT 26
90HLIN 14, 26 AT 35
100FOR x=18 TO 22
110VLIN 16, 24 AT x:NEXT x
111COLOR =0:PLOT 18, 16:PLOT 22, 16:PLOT 18, 17:PLOT 22, 17:COLOR =7
120FOR x=13 TO 16
130VLIN 9, 12 AT x:NEXT
131COLOR =0:PLOT 14, 11:COLOR =7
140FOR x=24 TO 27
150VLIN 9, 12 AT x:NEXT
151COLOR =0:PLOT 25, 11
156HOME
160FOR d=0 TO 1000:NEXT
165IF PDL(7)=1 THEN GOTO 170
166GOTO 165
170COLOR =0
180FOR x=24 TO 27
190VLIN 9, 12 AT x:NEXT
195? CHR$(7)
196HOME:?:HTAB 12:? "HI SWEETIE"
200FOR d=0 TO 1000:NEXT
210COLOR =7:GOTO 140
