20 lines
316 B
Text
20 lines
316 B
Text
REM https://github.com/Eva-Broccoli/OPL-Rosetta-Code/blob/main/Asciitbl.opl
|
|
PROC main:
|
|
LOCAL i%,j%
|
|
i%=32
|
|
j%=1
|
|
WHILE i%<>48
|
|
WHILE j%<7
|
|
IF i%<100
|
|
PRINT " ";
|
|
ENDIF
|
|
PRINT i%,"-",CHR$(i%);" ";
|
|
i%=i%+16
|
|
j%=j%+1
|
|
ENDWH
|
|
PRINT
|
|
i%=i%-95
|
|
j%=1
|
|
ENDWH
|
|
GET
|
|
ENDP
|