|
|
馬上注冊,結交更多好友,享用更多功能,讓你輕松玩轉社區
您需要 登錄 才可以下載或查看,沒有賬號?立即注冊
×
:9100 (FUP FORMAT : G65 P9100 A=INPUT B=OUT)
7 Z" b% s4 |" _2 D #3003=1
" t" ^" P& C0 g! D! D IF[#2*1 LT 100]GOTO3001
( K) C) A# ]0 f# ~2 k8 J GOTO1 U. I/ I2 R' A
N30016 R2 ]( y$ _! ~. I2 o& E4 l% ]
#3000=1 (OUT DATA ERROR)" L, l x5 x- q0 a @) ^4 T4 Q7 G
N11 d$ K& f- E, G% R
#10=0* i. ]! ~9 h) G8 h( ?9 ] p
IF[#1 LT 0]GOTO10
: u! S1 T9 e( C IF[#1 GT 0]GOTO20
- m# }6 F f9 z& j GOTO99" z5 C9 q% A. }! \& u" e
N10
9 [1 N* M4 A {$ Q! k #10=#10-17 j. ]0 X' {, c( I/ t+ j( D1 d( ^' c
IF[#10 LE #1]GOTO99
2 ]9 d0 ~; o Y% a6 c# o GOTO10
: }& |8 u- b2 E9 zN20
# D; _$ A1 r i( P6 [: _& k5 ]! _/ d #10=#10+19 i3 w$ S4 \/ j% d( s) Y' m3 A
IF[#10 GE #1]GOTO996 z" b7 N, K l; k9 x( b( |+ c* B8 R9 s
GOTO20% a5 E; o* U; p0 ^( i. \
N99% B, y7 E# H; c% h I! t- w% Z) {) X
#[#2]=#10# Q+ x& j! {5 H7 S
#3003=0
9 Z) g% e/ M1 J% y" l' A$ ?# WM99- ?7 M, |" i6 y5 {3 x
: @" ~! l6 k9 L+ [* Z) [" @- M
:9101 (FIX FORMAT : G65 P9101 A=INPUT B=OUT)
/ W2 k% C6 a/ T. U# F, E& } #3003=11 Y# O4 L; a3 X8 Q' K& N% g, T' k1 D
IF[#2*1 LT 100]GOTO3001: K6 z1 ?. T$ N0 T: Q7 ^8 A
GOTO1: v# ^/ `+ m) J' g
N30016 A/ P2 \! t' y4 w$ f# F# n
#3000=1 (OUT DATA ERROR)
: L' g7 e/ E; p5 @9 C9 y# v- `' b- oN1" V4 d) t( l# b# \( k; v. w* }
#10=0
5 _+ Z, c `5 B! z- w IF[#1 LT 0]GOTO10
, T' m. h8 k2 ?; I3 A" c e IF[#1 GT 0]GOTO20
& ?) j( [- T: a8 Y q0 w GOTO990 W2 J5 M9 j3 x8 l8 P
N102 B0 h* {2 c6 S4 ~0 U$ g$ \5 C' z' R( m
#10=#10-1
7 S) ^; x1 P& A8 y; { IF[#10 EQ #1]GOTO994 w( a! t! l: r! \
IF[#10 GT #1]GOTO108 Z6 A- ?9 Q. Z9 T3 y
#10=#10+1
8 o. v; l! k) M' T0 C6 N4 P GOTO99
. V" X0 T/ g+ m5 c1 W$ D% {8 EN209 F( [% v! [' ^! v
#10=#10+1* l6 \! n" X( Z Z9 y3 x* V
IF[#10 EQ #1]GOTO99
* O, v9 S4 B- y }# b0 E IF[#10 LT #1]GOTO20: T. J. {$ k/ P$ `3 H" W4 M. V7 ?
#10=#10-1
1 b+ F; `' ~. x: J- b6 }N997 K* t) i9 \1 L/ w$ j2 _4 v
#[#2]=#10
7 O1 G. ^/ l4 E, ] #3003=0
& I0 G7 _# I% G" KM99 |
|