17 lines
198 B
Text
17 lines
198 B
Text
PROC PrintInv(CHAR ARRAY a)
|
|
BYTE i
|
|
|
|
IF a(0)>0 THEN
|
|
FOR i=1 TO a(0)
|
|
DO
|
|
Put(a(i)%$80)
|
|
OD
|
|
FI
|
|
RETURN
|
|
|
|
PROC Main()
|
|
Position(2,2)
|
|
|
|
PrintInv("Inverse")
|
|
Print(" video")
|
|
RETURN
|