Premier programme en QBASIC (1995)

jul1.bas

CLS
LOCATE 12, 1: PRINT STRING$(78, 196)
X = 78
FOR A = 1 TO 40:
LOCATE 11, X: COLOR 1: PRINT CHR$(2)
LOCATE 11, X + 1: PRINT " "
FOR B = 1 TO 500
NEXT B: X = X - 1
NEXT A
LOCATE 13, 40: PRINT "JULIEN"
LOCATE 13, 39: PRINT CHR$(24)
FOR C = 1 TO 3000: NEXT C
LOCATE 10, 35: PRINT "VIVE MOI!"
FOR AA = 1 TO 3000: IF AA = 2000 THEN LOCATE 13, 39: PRINT "        ":
NEXT AA
LOCATE 11, 1: COLOR 2: PRINT CHR$(1)
LOCATE 13, 2: PRINT "ETIENNE"
LOCATE 13, 1: PRINT CHR$(24)
LOCATE 10, 1: PRINT "QUOI!"
FOR BB = 1 TO 3000: NEXT BB
LOCATE 13, 1: PRINT "        ":
LOCATE 10, 1: PRINT "     "
Z = 2
FOR CC = 1 TO 38
LOCATE 11, Z: PRINT CHR$(45)
IF Z > 2 THEN LOCATE 11, Z - 1: PRINT " "
FOR D = 1 TO 200: NEXT D
Z = Z + 1: NEXT CC
LOCATE 11, 39: COLOR 4: PRINT "*"
LOCATE 10, 35: PRINT "         "
W = 1: FOR DD = 1 TO 38
LOCATE 11, W: COLOR 2: PRINT CHR$(1)
IF W > 1 THEN LOCATE 11, W - 1: PRINT " "
FOR AAA = 1 TO 500: NEXT AAA
W = W + 1: NEXT DD
LOCATE 10, 38: PRINT CHR$(1)
LOCATE 11, 38: PRINT " "
FOR BBB = 1 TO 500: NEXT BBB
LOCATE 10, 39: PRINT CHR$(1)
LOCATE 10, 38: PRINT " "
FOR CCC = 1 TO 3000: NEXT CCC
LOCATE 9, 32: PRINT "NON, VIVE MOI!"