aUCBLogo Demos and Tests / persistencetest

to persistencetest
   setUpdateGraph true
;   savePicture "test.zip
;   cs
;   loadPicture "test.zip
;stop
   a=1234
   b=1235
   c=1236
   d=3.1415
   e=3.1416
   f=1+2i
   g="Hallo,World
   h=[1 2 3 4 5 6 7 8 9 10]
   i=[[[1][2][3]4]5]
   j={1 2 3 4 5 6}
   k=IntArray {10 11 12}
   l=Int16Array {13 14 15}
   m=FloatArray {1.2 2.3 3.4}
;   n=newTurtle
   cs
   GraphicStart
   box
   abox=GraphicEnd
   o=Struct [[a int 1234][b word hallo][c float 3.141592]]
   p=BitCopy 150 150
   q=DynamicLibrary "user32
;   openRead "test.txt
;   setReader "test.txt
;   w=readWord
;   show Nodes
;   openUpdate "test.txt
;   setWriter "test.txt
;stop
   ht
   perspective
   cs
   setLightAmbient "white
   coin1=loadImage "coin1_64x64.png
   coin1tex=Texture coin1
   entex

   frametest_f=(Frame [][MyFrame4]
      wxDefault_Frame_Style
      [100 600][260 300]
      [noname])
   frametest_g=(Graph frametest_f
      wxDefault_Frame_Style+wxFull_Repaint_on_Resize+wxStay_on_Top
      [0 0][250 250][Graph])

   forever
;   until [repcount > 20]
   [
      pr repcount

      cs
      coin1=loadImage "coin1_64x64.png
      coin1tex=Texture coin1
      entex

      setfc random intmax
      fillrect [0 0][100 100]
      updateGraph
      (GC true)
      waitms 500
      if key? [break]
   ]
;   setWriter []
;   close "test.txt
   pr [OK]
end