home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 3 / FREEWARE.BIN / towns_os / egcg / g41.bas < prev    next >
BASIC Source File  |  1980-01-02  |  319b  |  12 lines
  1. 100 ' G41 T.WAKAMATSU
  2. 110 CLS
  3. 120 FOR K=1 TO 5
  4. 130   Y=238:READ A,C,F,E:DATA 11,5,5,1,9,4,5,3,10,4,8,5,4,1,9,4,0,0,0,0
  5. 140   FOR X=2 TO 318 STEP 4
  6. 150     LINE(X,Y)-(636-X,476-Y)        ,PSET,C,B
  7. 160     LINE(320-X,239-Y)-(316+X,237+Y),PSET,E,B
  8. 170     Y=Y-3:C=A-C:E=F-E
  9. 190   NEXT X
  10. 220 NEXT K
  11. 230 CD PAUSE
  12.