|
|
馬上注冊,結交更多好友,享用更多功能,讓你輕松玩轉社區
您需要 登錄 才可以下載或查看,沒有賬號?立即注冊
×
:9100 (FUP FORMAT : G65 P9100 A=INPUT B=OUT)
0 V; j6 H9 I+ C: W #3003=1
* g& Y4 W5 n- `( q7 u5 s IF[#2*1 LT 100]GOTO3001
! i* b" h- ]: K" X: q) ] GOTO1
1 s. x" k$ \9 ^( o' pN3001
5 ^; l( L* O( q; d- f #3000=1 (OUT DATA ERROR)7 |: P- Y" O# t: V6 |& Q
N1
. W9 w; q+ a3 @ #10=0% H; @8 d( J, n4 u Q
IF[#1 LT 0]GOTO10' {9 O* H4 d1 P: e
IF[#1 GT 0]GOTO20* Z' I1 o w0 g1 H
GOTO99
0 a6 j; G1 @7 Y; G' `1 J( e6 K8 |N10/ z- V4 C6 R; l! V8 f; p
#10=#10-1 P: v0 N- b, u, a' U
IF[#10 LE #1]GOTO993 B( X* y3 J: _
GOTO10
7 x, X9 i1 z( p; M) n- jN20
* Y- [5 _/ A4 K3 L6 l #10=#10+1, G7 d: g, a! c$ z5 J( P
IF[#10 GE #1]GOTO99( Z/ x" a8 ]$ U5 L1 u
GOTO20
6 z- O3 n1 d9 ]N99/ P$ Z9 D3 R( [2 Y7 F y# ?$ K
#[#2]=#109 I! Y) _( Z! I; [5 b0 U2 A
#3003=03 w, j v9 O* s7 {) S# n
M99
% ~+ l0 g2 x- o. s: C
8 H" O/ [- ]' N! [* Y) G" Y' v:9101 (FIX FORMAT : G65 P9101 A=INPUT B=OUT)
, a4 F3 K3 `6 O+ w, N #3003=1
1 B3 c+ v4 X, S' r% l+ I4 h IF[#2*1 LT 100]GOTO3001* X2 ?" A( B& |' ?+ K! H
GOTO13 g# i& D- y; ?8 K! g4 F$ j
N3001
2 f* h7 a6 A+ n! ]4 I #3000=1 (OUT DATA ERROR)
! _3 j- Z$ C1 [# A, { C# q) rN1' W! ]8 w+ U6 K/ o
#10=0
( E0 K1 A- P( u. l6 d1 Q! l IF[#1 LT 0]GOTO10: \- R4 ]1 O* M# Q' k
IF[#1 GT 0]GOTO20
- r# E2 v# h8 U" {$ l1 i& j8 g GOTO99
5 t3 C8 N$ B2 F T; U& j4 VN10
! I/ \; A" K8 O% `6 z2 @( f #10=#10-1; w8 d/ n( y9 v& G3 u
IF[#10 EQ #1]GOTO99
- j! x+ d, R$ V$ Q0 D0 p IF[#10 GT #1]GOTO10% a* T3 p3 B) C! K i+ c
#10=#10+1
2 Q& A4 \& b8 Z3 Z GOTO99
4 q/ r1 a5 g( g/ I! d( v9 o* P5 MN204 t2 X0 ^' I6 @
#10=#10+1
" q' y9 l7 x4 S2 C. L( ~# ]* t. A+ r IF[#10 EQ #1]GOTO99
4 ^& w" E/ T. u/ Q p: O4 C2 V IF[#10 LT #1]GOTO20
9 W2 r$ Y/ E: \ F# A x #10=#10-1
! Y0 Z2 E6 S7 b" t0 H6 X( P% q4 JN99
; |- t- b$ `1 Z; W! f# i #[#2]=#101 b" \" \, g- v- K+ N$ ]. s* [
#3003=00 \* S2 c+ T3 w3 b0 _
M99 |
|