home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / general / tumbler.amos / tumbler.amosSourceCode
Encoding:
AMOS Source Code  |  1993-02-25  |  659 b   |  20 lines
  1. 'converted from an old stos listing
  2. Screen Open 0,320,200,16,Lowres
  3. 100 Curs Off : Flash Off : Hide On : Cls 0
  4. 110 F1$="(777,5)(777,5)(777,5)(700,5)(700,5)(700,5)"
  5. 120 For I=1 To 6 : Flash I,F1$ : F1$=Right$(F1$,7)+Left$(F1$,Len(F1$)-7) : Next I
  6. 130 F2$="(700,5)(700,5)(700,5)(777,5)(777,5)(777,5)"
  7. 140 For I=1 To 6 : Flash 15-I,F2$ : F2$=Right$(F2$,7)+Left$(F2$,Len(F2$)-7) : Next I
  8. 150 Y=100 : DY=1 : C=1
  9. 160 Ink C : Paper 0 : Bar 0,Y To 319,Y+DY
  10. 170 Y=Y+DY : DY=DY+1
  11. 180 Inc C : If C=7 Then C=1
  12. 190 If Y+DY<199 Then Goto 160
  13. 200 Gr Writing 3
  14. 210 Rem  
  15. 220 Rem  
  16. 230 X=10 : DX=8
  17. 240 Rem  
  18. 260 Rem
  19. 270 X=X+DX : If X<10 or X>320-64-10 Then DX=-DX
  20. 280 Goto 240