--- /dev/null
+;;; casl2 inl.casl ../casl2lib/inl.casl ../casl2lib/outl.casl
+MAIN START
+LOOP CALL INL ; GR1に数値、GR0に文字列の長さ
+ JOV OV
+ AND GR0,GR0
+ JZE FIN
+ CPL GR0,=#FFFF
+ JZE NAN
+ CALL OUTL
+ JUMP LOOP
+OV CPL GR0,=#FFFF
+ JZE LENOV
+ OUT OVMSG,MLEN1
+ JUMP LOOP
+NAN OUT NANMSG,MLEN2
+ JUMP LOOP
+LENOV OUT LENOVMSG,MLEN3
+FIN RET
+OVMSG DC 'Over 65535'
+MLEN1 DC 10
+NANMSG DC 'Not A Number'
+MLEN2 DC 12
+LENOVMSG DC 'Str too long. Stop'
+MLEN3 DC 18
+ END