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

sw: shave two bytes off

Browse Source
This commit is contained in:
Vince Weaver 2021-02-21 00:57:18 -05:00
parent 62edc0c5b8
commit 98b2178304
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
textmode/mousetext/sw.bas
View File

@ -3,6 +3,6 @@
3FORI=0TO1:COLOR=6-I:FORJ=0TO1 3FORI=0TO1:COLOR=6-I:FORJ=0TO1
4HLIN8,10AT6+J*10+I:HLIN7,11AT8+J*6+I:HLIN6,12AT10+J*2+I:NEXTJ,I 4HLIN8,10AT6+J*10+I:HLIN7,11AT8+J*6+I:HLIN6,12AT10+J*2+I:NEXTJ,I
6VTAB6:HTAB11:?"()" 6VTAB6:HTAB11:?"()"
7FORX=12TO36:POKE1064+X,90:POKE1065+X,91:POKE1066+X,95 7FORX=13TO37:POKE1063+X,90:POKE1064+X,91:POKE1065+X,95
8FORI=1TO200:NEXT:VTAB9:HTABX+1:?" ":NEXT 8FORI=1TO200:NEXT:VTAB9:HTABX:?" ":NEXT
9GOTO7 9GOTO7