GOSUB Kullanımı
CLS
GOSUB KARECIZ
PRINT : PRINT
GOSUB KARECIZ
END
KARECIZ:
FOR ADET = 0 TO 79
PRINT CHR$(179);
NEXT
RETURN
GOSUB KARECIZ
PRINT : PRINT
GOSUB KARECIZ
END
KARECIZ:
FOR ADET = 0 TO 79
PRINT CHR$(179);
NEXT
RETURN
Ekranda Ok Tuşlarıyla Hareket Eden Çizği
CLS
x = 1: y = 1
Hareket = 1
DO
SELECT CASE INKEY$
CASE CHR$(0) + CHR$(75)
GOSUB SOLOK
CASE CHR$(0) + CHR$(77)
GOSUB SAGOK
CASE CHR$(0) + CHR$(72)
GOSUB YUKARIOK
CASE CHR$(0) + CHR$(80)
GOSUB ASAGIOK
CASE CHR$(27)
EXIT DO
END SELECT
LOOP
END
SOLOK:
FOR ADET = 0 TO Hareket
x = x - 1
GOSUB CIZ
NEXT
RETURN
SAGOK:
FOR ADET = 0 TO Hareket
x = x + 1
GOSUB CIZ
NEXT
RETURN
YUKARIOK:
FOR ADET = 0 TO Hareket
y = y - 1
GOSUB CIZ
NEXT
RETURN
ASAGIOK:
FOR ADET = 0 TO Hareket
y = y + 1
GOSUB CIZ
NEXT
RETURN
CIZ:
LOCATE y, x
PRINT CHR$(219);
RETURN
x = 1: y = 1
Hareket = 1
DO
SELECT CASE INKEY$
CASE CHR$(0) + CHR$(75)
GOSUB SOLOK
CASE CHR$(0) + CHR$(77)
GOSUB SAGOK
CASE CHR$(0) + CHR$(72)
GOSUB YUKARIOK
CASE CHR$(0) + CHR$(80)
GOSUB ASAGIOK
CASE CHR$(27)
EXIT DO
END SELECT
LOOP
END
SOLOK:
FOR ADET = 0 TO Hareket
x = x - 1
GOSUB CIZ
NEXT
RETURN
SAGOK:
FOR ADET = 0 TO Hareket
x = x + 1
GOSUB CIZ
NEXT
RETURN
YUKARIOK:
FOR ADET = 0 TO Hareket
y = y - 1
GOSUB CIZ
NEXT
RETURN
ASAGIOK:
FOR ADET = 0 TO Hareket
y = y + 1
GOSUB CIZ
NEXT
RETURN
CIZ:
LOCATE y, x
PRINT CHR$(219);
RETURN
