GWBASIC/ART.BAS at master · Subhankar2000/GWBASIC · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
940 REM The IBM Personal Computer Art
950 REM Version 1.10 (C)Copyright IBM Corp 1981, 1982
960 REM Licensed Material - Program Property of IBM
970 REM Author - Glenn Stuart Dardick
975 DEF SEG
980 SAMPLES$ = "NO"
990 GOTO 1010
1000 SAMPLES$ = "YES"
1010 KEY OFF:SCREEN 0,1:COLOR 15,0,0:WIDTH 40:CLS:LOCATE 5,19:PRINT "IBM"
1020 LOCATE 7,12,0:PRINT "Personal Computer"
1030 COLOR 10,0:LOCATE 10,9,0:PRINT CHR$(213)+STRING$(21,205)+CHR$(184)
1040 LOCATE 11,9,0:PRINT CHR$(179)+"         ART         "+CHR$(179)
1050 LOCATE 12,9,0:PRINT CHR$(179)+STRING$(21,32)+CHR$(179)
1060 LOCATE 13,9,0:PRINT CHR$(179)+"    Version 1.10     "+CHR$(179)
1070 LOCATE 14,9,0:PRINT CHR$(212)+STRING$(21,205)+CHR$(190)
1080 COLOR 15,0:LOCATE 17,4,0:PRINT "(C) Copyright IBM Corp 1981, 1982"
1090 COLOR 14,0:LOCATE 23,7,0:PRINT "Press space bar to continue"
1100 IF INKEY$<>"" THEN GOTO 1100
1110 CMD$ = INKEY$
1120 IF CMD$ = "" THEN GOTO 1110
1130 IF CMD$ = CHR$(27) THEN GOTO 1530
1140 IF CMD$ = " " THEN GOTO 1160
1150 GOTO 1110
1160 DEF SEG=0
1170 IF (PEEK(&H410) AND &H30)<>&H30 THEN GOTO 1300
1180 WIDTH 80:CLS:LOCATE 3,1
1190 PRINT "HOLD IT!"
1200 PRINT "YOU'RE NOT USING THE COLOR/GRAPHICS MONITOR ADAPTER!"
1210 PRINT "THIS PROGRAM USES GRAPHICS AND REQUIRES THAT ADAPTER."
1220 PRINT "PRESS THE SPACE BAR TO CONTINUE."
1230 DEF SEG
1240 IF INKEY$<>"" THEN GOTO 1240
1250 CMD$ = INKEY$
1260 IF CMD$ = "" THEN GOTO 1250
1270 IF CMD$ = CHR$(27) THEN GOTO 1530
1280 IF CMD$ = " " THEN GOTO 1530
1290 GOTO 1250
1300 DEF SEG
1301 ON ERROR GOTO 1304
1302 PLAY "mf"
1303 GOTO 1305
1304 RESUME 1305
1305 ON ERROR GOTO 0
1310 SCREEN 1,0:COLOR 8,0:CLS
1320 LINE (1,1)-(320,200),2,BF
1330 LINE (30,30)-(290,170),0,BF
1340 LINE (30,30)-(1,1),1
1350 LINE (290,30)-(320,1),1
1360 LINE (30,170)-(1,200),1
1370 LINE (290,170)-(320,200),1
1380 LINE (100,179)-(216,193),0,BF
1390 LOCATE 24,16
1391 PRINT " The City ";
1392 LOCATE 2,10
1400 PRINT "press ESC key to exit";
1410 IX1=RND*250+35
1420 IX2=RND*250+35
1430 IX2 = (IX1-IX2)/3 + IX2
1440 IY1=RND*110+55
1450 IY2=165
1460 LINE (IX1,IY1)-(IX2,IY2),RND*2+1,BF
1470 LINE (IX1,IY1)-(IX2,IY2),0,B
1480 LINE (IX1+1,IY1+1)-(IX2-1,IY2-1),0,B
1490 IA = ABS((IX1-IX2)*(IY1-IY2))
1500 IS = (36400!-IA)/360 + 37
1510 SOUND IS,2
1520 K$=INKEY$
1522 IF K$ = "" THEN GOTO 1410
1524 IF K$ <> CHR$(27) THEN GOTO 1410
1530 SCREEN 0,1:IF SAMPLES$ = "YES" THEN CHAIN "SAMPLES",1000
1540 COLOR 7,0,0:CLS:END