GWBASIC/L16-5.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
100 REM Program to demonstrate block & half block
110 REM   characters in text mode.
120 SCREEN 0,1:COLOR 2,0,0:WIDTH 40:LOCATE ,,0:KEY OFF:CLS
130 REM Draw edges
140 FOR I=10 TO 30:LOCATE 2,I:PRINT CHR$(220):NEXT
150 FOR I=4 TO 21:LOCATE I,10:PRINT CHR$(221):NEXT
160 FOR I=10 TO 28:LOCATE 22,I:PRINT CHR$(223):NEXT
170 FOR I=3 TO 21:LOCATE I,30:PRINT CHR$(222):NEXT
180 REM Draw long barriers
190 FOR I=3 TO 14:LOCATE I,15:PRINT CHR$(222):NEXT
200 FOR I=10 TO 21:LOCATE I,22:PRINT CHR$(221):NEXT
210 FOR I=15 TO 17:LOCATE I,19:PRINT CHR$(222):NEXT
220 FOR I=7 TO 9:LOCATE I,18:PRINT CHR$(221):NEXT
230 REM Cross barriers
240 FOR I=16 TO 19:LOCATE 14,I:PRINT CHR$(220):NEXT
250 FOR I=18 TO 21:LOCATE 10,I:PRINT CHR$(223):NEXT
260 FOR I=13 TO 19:LOCATE 18,I:PRINT CHR$(223):NEXT
270 FOR I=18 TO 27:LOCATE 6,I:PRINT CHR$(220):NEXT
280 FOR I=10 TO 17:LOCATE 16,I:PRINT CHR$(219):NEXT
290 FOR I=20 TO 30:LOCATE 8,I:PRINT CHR$(219):NEXT
300 FOR I=17 TO 20:LOCATE 12,I:PRINT CHR$(219):NEXT
310 COLOR 7             'Back to white letters
320 LOCATE 25,8:PRINT "PRESS ANY KEY TO CONTINUE";
330 A$=INKEY$:IF A$="" THEN 330 ELSE CLS
340 END