mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-11-01 16:04:55 +00:00
3 lines
279 B
QBasic
3 lines
279 B
QBasic
|
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:"%)1#2*(###########+55$###+-,,4$##4,#4,-#,-$.E-4,,-#>4$4,4,####,-4,$##+,-M-,,,,48Q95555UX@@VYYANNF@@N@NN?ANF@N?@N>AP?FPN>YY>VA>H@P@>YH>NO
|