T603-0
·
Table of Contents
T603-0.af #
All Program List
P0
24 Min0F AC 2 * ( ( ( 3 + 4 * ( ( 5 + 4 ) / 3 ) ) / 5 ) + 9 ) = X=F "# ok!" HLT
AC
P1
"Enter X" HLT
Min00
LBL0 "X=[AR00]" DSZ GOTO0
P2
AC 1 + PI = Min0F AC 1 + EXP = X=F "# ok!" HLT
AC
P3
12 DMS 34 DMS 56.78 DMS SDMS HLT
"w=#"
P4
99 Min00
LBL0 MR00 IND Min00 DSZ GOTO0
1 +/- + + Min1F = Min2F = Min3F = Min4F = Min5F = Min6F = Min7F = Min8F = Min9F
AC
P5
PI PRT SEXE
ENG ENG PRT SEXE
SDMS PRT SEXE
"[PI ]=#" PRT SEXE
P6
"ABCDEFGHIJKLMNOPQ" AC ";RST"
P7
"ABCDEFGHIJKLMNOPQ" PRT FEXE
";RST" PRT FEXE
P8
"ABCDEFGHIJKLMNOPQ" AC ";RST" PRT FEXE
P9
( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( 1 + 1 ) + 1 )
+ 1 ) + 1 ) + 1 ) + 1 ) + 1 ) + 1 ) + 1 ) + 1 ) + 1 ) + 1 ) + 1 ) + 1 ) + 1 ) +
1 ) + 1 ) + 1 ) + 1 ) + 1 ) + 1 ) + 1 ) + 1 ) + 1 ) + 1 ) + 1 ) + 1 ) + 1 ) + 1
) + 1 ) + 1 ) + 1 ) + 1 )
P10
AC 57.3040 Min0F AC HLT
X=F "Ok!"
P11
AC 1 Min00
LBL0 "[AR00]" HLT
ISZ GOTO0
P12
AC 123 Min0F AC "Enter 123" HLT
X=F "Ok"
P13
AC PI "#" PRT SEXE
ENG ENG "#" PRT SEXE
SDMS "#" PRT SEXE
"[PI ]=#" PRT SEXE
P14
AC PI "#" PRT FEXE
ENG ENG "#" PRT FEXE
SDMS "#" PRT FEXE
"[PI ]=#" PRT FEXE
P15
AC PI "[PI ]=#" PRT SEXE
ENG ENG "[PI ]=#" PRT FEXE
PRT SEXE
SDMS "[PI ]=#" PRT SEXE
P16
DEG "Co[RTA]Bg/Rotation?" 0 HLT
Min00 "South-1" MR01 HLT
Min01 "East-1" MR02 HLT
Min02
LBL0 "South-2" MR03 HLT
Min03 "East-2" MR04 HLT
Min04 GSBP17
MR21 SDMS "[AR20]" HLT
X=0 GOTO1
MR00 X=0 GOTO0
LBL1 MR03 Min01 MR04 Min02 GOTO0
P17
MR03 - MR01 = R>P ( MR04 - MR02 = FIX3 Min20 X<>Y Min21 180 - MR21 = Min21
END