TI-99/4A Threaded Pattern v6 (cross patch, TI BASIC)

Channel:

Jason Doucette

Subscribers:

826

Published on March 22, 2021 2:51:25 AM ● Video Link: https://www.youtube.com/watch?v=ACqS03PTBvs

Duration: 0:57

131 views

2

V6. Simple test of diagonal cross patch pattern.

100 CALL CHAR(65,"EAF5EAD5AA57AF5F")
110 CALL CHAR(66,"EAF5FAFDFE7FBF5F")
120 CALL CHAR(67,"AF478301000182C5")
130 CALL CHAR(68,"AF478301000182C5")
140 FOR Y=1 TO 24
150 FOR X=1 TO 32
160 GOSUB 230
170 NEXT X
180 NEXT Y
190 X=1+INT(RND*32)
200 Y=1+INT(RND*24)
210 GOSUB 230
220 GOTO 190
230 T=X+Y
240 I=T-INT(T/2)*2
250 C=65+I*2+INT(RND*2)
260 CALL HCHAR(Y,X,C)
270 RETURN

Emulated with Classic 99, Recorded with default Cinepak codec.


My playlists:
--------------------
- Voxel: https://youtu.be/watch?v=XCVWEuhCCDM&list=PLjnbT4UISq0bQF1g85tE9jTrKfEtdRYlY
- Road: https://youtu.be/watch?v=ck5ALX11YU4&list=PLjnbT4UISq0bnfd1RC3M4PgTgkmhlkikV
- Ray Casting 3D: https://youtu.be/watch?v=zjswXUTMP2o&list=PLjnbT4UISq0YcFtRFjFQqK0g6ONNCtrvY
- Side-Scroll Shmup: https://youtu.be/watch?v=fF4X8zN-Raw&list=PLjnbT4UISq0Y_7IAN_zUzxgZnfhXxo_0Q
- MonoGame Tutorial: https://youtube.com/watch?v=WW1dJnfXWb0&list=PLjnbT4UISq0adw__Y9B2eXA0LL35TyORU

My websites:
---------------------
- my GitHub: https://github.com/JDoucette
- my company: http://xona.com
- my Blog: http://thefirstpixel.com