mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-11-01 01:06:33 +00:00
10 lines
950 B
QBasic
10 lines
950 B
QBasic
0REM/ G O'!7 $'&.%&%!! %&2 % ! "%#%!"%35!"%88!"%!!#$%77#$%"%%&%36%&%&/'(-/DKO-..OO-0C)L-CD%@-..OO-@@'(-12'(--/+6-+-*0)--OO).1MN)//KL)33KL)02IJ)00EH)//7D)..9:),,34)++/0)**)*)/2%&)00'.)..)*)//+,)11-2)0156
|
|
1REM)2734)5678)449:)55;<)8956):;78)8:;<)88=>)::AB)37'()9>)*)>?#$)DF#$)?@%&)??'()AB'()CC%&)EE%&)DD'()BB)*)DD/8)EE=@)DDCD)CCEF)DDGG)EEKL)AA9: -.58 +,+, ++-. ,,13 ..12 99=@ @@OO EFMO BBIK DDIJ ABCF BC?@ CDAB
|
|
2REM DE;< EE9: AA78 AA/2 CD14 DD56 @A+, AA)* DD), EF+. GG-0 45+. 78+. 55)* 88)*/55+,/88+,%;@;L%<@9:/<?;J%AAGL%<<MD%>>MD%@@MD 3434 4512 7812 8934
|
|
6GR:POKE49234,0:DEFFNP(X)=PEEK(2054+I*5+X)-32:DEFFNQ(X)=PEEK(2260+I*5+X)-32:DEFFNR(X)=PEEK(2466+I*5+X)-32
|
|
7FORI=0TO39:COLOR=FNP(0):FORY=FNP(3)TOFNP(4):HLINFNP(1),FNP(2)ATY:NEXTY,I
|
|
8FORI=0TO39:COLOR=FNQ(0):FORY=FNQ(3)TOFNQ(4):HLINFNQ(1),FNQ(2)ATY:NEXTY,I
|
|
9FORI=0TO27:COLOR=FNR(0):FORY=FNR(3)TOFNR(4):HLINFNR(1),FNR(2)ATY:NEXTY,I
|
|
10 FORI=0TO1000:NEXTI:POKE49235,0:HOME:?"MEH MEH ME MEH MEH-MEH?"
|
|
|