aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2024-11-04 20:28:54 -08:00
parent 52a6ef48dd
commit 157b70a810
604 changed files with 14253 additions and 2100 deletions
Download patch file Download diff file Expand all files Collapse all files

14
Task/Pinstripe-Display/QBasic/pinstripe-display.basic Normal file
View file

@ -0,0 +1,14 @@
SCREEN 12
w = 640: h = 480
h = h \ 4
y2 = h - 1
FOR ps = 1 TO 4
col = 0
FOR x = 0 TO (w - ps - 1) STEP ps
LINE (x, y1)-(x + ps - 1, y2), col, BF
col = 15 - col ' col alternate between 0 (black) and 15 (white)
NEXT x
y1 = y1 + h: y2 = y2 + h
NEXT ps