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

Subscribers:
826
Published on ● Video Link: https://www.youtube.com/watch?v=f8oy2LK6PpI



Duration: 1:07
117 views
1


V5. Simple test of diagonal cross patch pattern.

100 CALL CHAR(65,"2810204182050810")
110 CALL CHAR(66,"2810080582412010")
120 CALL CHAR(67,"2844820100018244")
130 CALL CHAR(68,"2844820100018244")
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