1: SCREEN 12 2: COLOR 7: LOCATE 1, 1: COLOR 15: PRINT "ώ"; : PRINT " -BALL": LOCATE 2, 1: COLOR 10: PRINT "ΫΫΫΫΫΫΫΫ": COLOR 15: LOCATE 2, 10: PRINT "-PADDLE" 3: SLEEP 4: CLS 5: A$ = "ΫΫΫΫΫΫΫΫ" 6: d = 36 7: C = 36 8: COLOR 9 9: LOCATE 1, 1: PRINT "ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»" 10: LOCATE 26, 1: PRINT "ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ" 11: FOR B = 2 TO 25 12: LOCATE B, 1: PRINT "Ί" 13: LOCATE B, 80: PRINT "Ί" 14: NEXT B 15: TOP: 16: DO UNTIL BY > 365 17: LOCATE 27, 1: PRINT BX; BY; C; d 18: COLOR 10 19: LOCATE 3, d: PRINT A$ 20: LOCATE 24, C: PRINT A$ 21: C$ = UCASE$(INKEY$) 22: IF C$ = CHR$(0) + "M" THEN C = C + 1: LOCATE 24, C - 1: PRINT " " 23: IF C$ = CHR$(0) + "K" THEN C = C - 1: LOCATE 24, C + 8: PRINT " " 24: IF C$ = "S" THEN d = d + 1: LOCATE 3, d - 1: PRINT " " 25: IF C$ = "A" THEN d = d - 1: LOCATE 3, d + 8: PRINT " " 26: IF C$ = CHR$(27) GOTO 1111 27: IF C > 71 THEN C = 72 28: IF C < 3 THEN C = 2 29: IF d > 71 THEN d = 72 30: IF d < 3 THEN d = 2 31: LOOP 32: 1111 LOCATE 28, 1: COLOR 15: PRINT "END" 33: 34: SUB DIRR (d) 35: IF d = 0 THEN GOTO U 36: CIRCLE (BK, BY), 5, 0 37: BY = BY - 1 38: CIRCLE (BK, BY), 5 39: GOTO 1 40: U: 41: 1 END SUB 42: |