Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-05-28 01:48:28 +00:00
Code Issues Projects Releases Wiki Activity

mousetext: sw: fits in tweet

Browse Source
This commit is contained in:
Vince Weaver 2021-02-21 00:47:13 -05:00
parent f7a222268f
commit 62edc0c5b8
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
textmode/mousetext/sw.bas
View File

@ -1,9 +1,8 @@
1HOME:POKE49167,0
2FORX=0TO64:POKE1024+RND(1)*999,174:NEXT
3FORI=0TO1:COLOR=6-I:HLIN8,10AT6+I:HLIN7,11AT8+I:HLIN6,12AT10+I:HLIN8,10AT16+I:HLIN7,11AT14+I:HLIN6,12AT12+I:NEXT:VTAB6:HTAB11:?"()"
4FORX=12TO36:POKE1064+X,90:POKE1065+X,91:POKE1066+X,95
5FORI=1TO200:NEXT:VTAB9:HTABX+1:?" ":NEXT
6GOTO4
3FORI=0TO1:COLOR=6-I:FORJ=0TO1
4HLIN8,10AT6+J*10+I:HLIN7,11AT8+J*6+I:HLIN6,12AT10+J*2+I:NEXTJ,I
6VTAB6:HTAB11:?"()"
7FORX=12TO36:POKE1064+X,90:POKE1065+X,91:POKE1066+X,95
8FORI=1TO200:NEXT:VTAB9:HTABX+1:?" ":NEXT
9GOTO7