32 lines
775 B
Plaintext
32 lines
775 B
Plaintext
DataSection
|
|
DT_Start:
|
|
Data.b 0,3,1,7,5,9,8,6,4,2
|
|
Data.b 7,0,9,2,1,5,4,8,6,3
|
|
Data.b 4,2,0,6,8,7,1,3,5,9
|
|
Data.b 1,7,5,0,9,8,3,4,2,6
|
|
Data.b 6,1,2,3,0,4,5,9,7,8
|
|
Data.b 3,6,7,4,2,0,9,5,8,1
|
|
Data.b 5,8,6,9,7,2,0,1,3,4
|
|
Data.b 8,9,4,5,3,6,2,0,1,7
|
|
Data.b 9,4,3,8,6,1,7,2,0,5
|
|
Data.b 2,5,8,1,4,3,6,7,9,0
|
|
EndDataSection
|
|
|
|
Procedure.i Adr(Row,Col) : ProcedureReturn ?DT_Start+Row+10*Col : EndProcedure
|
|
|
|
Procedure.b CheckDamm(Value.s)
|
|
*ipc.Character=@Value : it=0
|
|
While *ipc\c
|
|
it=PeekB(Adr(*ipc\c-'0',it)) : *ipc+SizeOf(Character)
|
|
Wend
|
|
ProcedureReturn Bool(it)
|
|
EndProcedure
|
|
|
|
If OpenConsole()
|
|
Repeat
|
|
Print("Check Damm: ") : i$=Input()
|
|
If CheckDamm(i$) : PrintN(Space(12)+"FALSE") : Else : PrintN(Space(12)+"TRUE") : EndIf
|
|
Until i$=""
|
|
EndIf
|
|
End
|