22 lines
612 B
Text
22 lines
612 B
Text
PROC3dname("BBC BASIC")
|
|
END
|
|
|
|
DEF PROC3dname(name$)
|
|
LOCAL A%, X%, Y%, char%, row%, patt%, bit%
|
|
DIM X% 8 : A% = 10 : Y% = X% DIV 256
|
|
FOR row% = 1 TO 8
|
|
FOR char% = 1 TO LEN(name$)
|
|
?X% = ASCMID$(name$,char%)
|
|
CALL &FFF1
|
|
patt% = X%?row%
|
|
FOR bit% = 7 TO 0 STEP -1
|
|
CASE TRUE OF
|
|
WHEN (patt% AND 2^bit%) <> 0 : PRINT "#";
|
|
WHEN GET$(POS-1,VPOS-1) = "#": PRINT "\";
|
|
OTHERWISE: PRINT " ";
|
|
ENDCASE
|
|
NEXT
|
|
NEXT char%
|
|
PRINT
|
|
NEXT row%
|
|
ENDPROC
|