dos33fsprogs/graphics/gr/bitmap/potion.bas

7 lines
283 B
QBasic
Raw Normal View History

2021-03-23 01:26:54 +00:00
1GR:FORI=0TO135:C=PEEK(2161+I)-35:IFI<8THENA(I)=C:NEXT
4FORX=XTOX+1:COLOR=A(C-INT(C/8)*8):VLIN2*INT(I/8),33ATX+12:C=C/8:NEXT:X=X*(X<15):NEXT:"*2(%/',+#########+4%#####3#%######5##>>###4##>>##35##;&##5%%#;&##-%3#>>#3-%#=>>#3,%#=>>&3,OP<>>&9/OP]bbZ9HHO]bbYYMG8bbYYY95]bYYYYYbbYYYY