47 lines
1.0 KiB
Plaintext
47 lines
1.0 KiB
Plaintext
Name : SK
|
|
Length : $0259 (601)
|
|
Load at : $0801 (2,049)
|
|
|
|
10 HOME
|
|
20 REM THIS PROGRAM WILL SHOW YOU A SKYLINE.
|
|
30 PRINT
|
|
35 PRINT "I HAVE A PICTURE OF A SKYLINE,"
|
|
40 PRINT "DEPENDING ON WHETHER OR NOT YOU WOULD LIKE TO SEE IT,TYPE IN YES OR NO."
|
|
50 INPUT A$
|
|
60 IF A$ = "NO" THEN
|
|
END
|
|
70 GR
|
|
80 COLOR= 3
|
|
90 VLIN 39,0 AT 0
|
|
100 HLIN 0,10 AT 0
|
|
110 VLIN 0,39 AT 10
|
|
120 VLIN 0,25 AT 10
|
|
130 VLIN 10,20 AT 10
|
|
140 HLIN 10,20 AT 10
|
|
150 VLIN 30,20 AT 20
|
|
160 VLIN 10,15 AT 20
|
|
170 VLIN 10,20 AT 20
|
|
180 VLIN 10,30 AT 20
|
|
190 VLIN 10,39 AT 20
|
|
200 VLIN 10,39 AT 20
|
|
210 VLIN 10,0 AT 20
|
|
220 HLIN 20,30 AT 0
|
|
230 VLIN 0,39 AT 30
|
|
240 VLIN 20,30 AT 30
|
|
250 VLIN 39,19 AT 30
|
|
260 HLIN 30,39 AT 19
|
|
270 VLIN 19,39 AT 39
|
|
280 COLOR= 6
|
|
290 PLOT 2,8
|
|
300 PLOT 3,9
|
|
310 PLOT 8,16
|
|
320 PLOT 12,17
|
|
330 PLOT 24,24
|
|
340 PLOT 25,7
|
|
350 PLOT 32,24
|
|
360 PLOT 5,15
|
|
370 PLOT 38,25
|
|
380 PLOT 29,21
|
|
390 PLOT 21,15
|
|
400 PLOT 15,15
|