...

Author: chitselb

doc/picchipbasic.txt

@@ -0,0 +1,26 @@
+list
+
+ 1 sys 40960:!re
+ 2 deffnq(x)=int(rnd(x)*x)
+ 3 q1=1:q2=319:q3=3:q4=199:q5=5:q6=19:q7
+=29                              :goto5
+ 4 goto100
+ 5 fori=.to.step.:x=fnq(q2):y=fnq(q6)+q3
+:!fw:x=fnq(q7)+q5:y=fnq(q4):!wf:next
+ 10 def fnr( r ) = int( rnd(.) * r + 1 )
+
+ 100 for i = 0 to 1 step 0
+ 110 x = fnr( 319 )
+ 120 y = fnr( 19  ) + 3
+ 130 !fw
+ 140 x = fnr( 29 ) + 5
+ 150 y = fnr( 199 )
+ 160 !wf
+ 170 next i
+ 9999 !co
+ready.
+
+
+
+
+