https://github.com/roymasad/virtuality
QBasic graphic demos collection from the 90s msdos program
https://github.com/roymasad/virtuality
basic demo msdos retro visualization
Last synced: 4 months ago
JSON representation
QBasic graphic demos collection from the 90s msdos program
- Host: GitHub
- URL: https://github.com/roymasad/virtuality
- Owner: roymasad
- License: gpl-2.0
- Created: 2021-03-02T06:00:30.000Z (over 5 years ago)
- Default Branch: main
- Last Pushed: 2023-10-11T10:19:53.000Z (over 2 years ago)
- Last Synced: 2025-08-04T04:02:08.819Z (10 months ago)
- Topics: basic, demo, msdos, retro, visualization
- Language: BASIC
- Homepage:
- Size: 362 KB
- Stars: 1
- Watchers: 1
- Forks: 0
- Open Issues: 0
-
Metadata Files:
- Readme: README.BAS
- License: LICENSE
Awesome Lists containing this project
README
PCOPY 0, 2
SCREEN 0, , 2, 2
RANDOMIZE TIMER
COLOR 10
OPEN "README.TXT" FOR INPUT AS #1
REDIM A$(22)
REDIM B$(3000)
LOCATE 23, 1: PRINT SPACE$(80)
FOR T = 1 TO 22
LINE INPUT #1, A$(T)
FOR TT = 1 TO LEN(A$(T))
B$(TT + (T * 80)) = MID$(A$(T), TT, 1)
IF B$(TT + (T * 80)) = "" THEN B$(TT + (T * 80)) = " "
NEXT TT
NEXT T
CLOSE
DO
K$ = INKEY$
IF K$ = CHR$(27) THEN ERASE A$, B$: GOSUB HELL: CLS : SCREEN 0: SYSTEM
X = INT(RND * 80) + 1
Y = INT(RND * 22) + 1
LOCATE Y, X, 0: PRINT B$(X + (Y * 80))
LOOP
HELL:
FOR T = 1 TO 10000
X = INT(RND * 80) + 1
Y = INT(RND * 22) + 1
LOCATE Y, X, 0: PRINT " "
NEXT T
RETURN