Session end : 12h00m00s | Hide picture Sexe : OFF | ![]() | ![]() | ![]() | ![]() | Donations 2025 : 761.79 € |
510 GOSUB 1500:GOSUB 1520:GOSUB 1570
510 GOSUB 1500:IF FNc3=153 OR FNc3=152 THEN 770
550 GOSUB 1480:GOSUB 1500:GOSUB 1520
550 GOSUB 1480:GOSUB 1500:IF FNc3=153 OR FNc3=152 THEN 770
600 yp=yp-1:GOSUB 1520
600 yp=yp-1:IF FNc3=153 OR FNc3=152 THEN 770
660 yp=yp+1:GOSUB 1520
660 yp=yp+1:IF FNc3=153 OR FNc3=152 THEN 770
700 GOSUB 1580
700 en=en-2:PLOT 38,328,1:DRAW 38,328-(100-(en/ep)):PLOT 40,328:DRAW 40,328-(100-(en/ep)):IF en<1 THEN 1330
720 GOSUB 1520:GOSUB 1500
720 IF FNc3=153 OR FNc3=152 THEN 770
721 GOSUB 1500
960 yp=0:FOR xp=0 TO 31:GOSUB 1460:NEXT:xp=31:FOR yp=0 TO 21:GOSUB 1460:NEXT
960 xp=0:yp=0
961 GOSUB 1460:xp=xp+1:IF INKEY$<>"" THEN 990
962 IF xp<31 THEN 961
963 xp=31:yp=0
964 GOSUB 1460:yp=yp+1:IF INKEY$<>"" THEN 990
965 IF yp<21 THEN 964
970 yp=21:FOR xp=31 TO 0 STEP -1:GOSUB 1460:NEXT:xp=0:FOR yp=21 TO 0 STEP -1:GOSUB 1460:NEXT
970 yp=21:xp=31
971 GOSUB 1460:xp=xp-1:IF INKEY$<>"" THEN 990
972 IF xp>0 THEN 971
973 yp=21:xp=0
974 GOSUB 1460:yp=yp-1:IF INKEY$<>"" THEN 990
975 IF yp>0 THEN 974
1460 GOSUB 1480:FOR a=1 TO 10:NEXT:LOCATE 5+xp,4+yp:PAPER 0:PRINT" ";:IF INKEY$<>""THEN 990
1460 GOSUB 1480:FOR a=1 TO 10:NEXT:LOCATE 5+xp,4+yp:PAPER 0:PRINT" ";