Есть ли утилита по выводу спрайтов из под бейсика?

[TheGWBV]

Нашкрябала на досуге в Бейсике вариант более-менее компактного хранения данных спрайтов в операторе DATA...

10 DATA F765,7FF7
20 GOTO 105
88 REM *** GET HEX DATA WORD ***
89 READ H$
90 D%=ASC(MID$(H$,1,1))
91 GOSUB 103
92 IF D%<8 TH C%=D%*4096 EL C%=(D%-8)*4096-32768
93 D%=ASC(MID$(H$,2,1))
94 GOSUB 103
95 C%=C%+D%*256%
96 D%=ASC(MID$(H$,3,1))
97 GOSUB 103
98 C%=C%+D%*16%
99 D%=ASC(MID$(H$,4,1))
100 GOSUB 103
101 C%=C%+D%
102 RETURN
103 IF D%>64 TH D%=D%-55 EL D%=D%-48
104 RETURN
105 GOSUB 89
106 ? HEX$(C%)
107 ? H$
108 REM *** GET SECOND WORD ***
109 GOSUB 89
110 ? HEX$(C%)
111 ? H$
119 ? FRE(H$)
120 H$=""
122 ? FRE(H$)

Может кому пригодится ещё

[Advertiser]