home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / sin-source / copmaker.bas (.txt) < prev    next >
AmigaBASIC Source Code  |  1995-03-17  |  905b  |  39 lines
  1.  nt=1
  2.  OPEN "df2:cop.s" FOR OUTPUT AS 1
  3.  
  4. FOR g=&H2c TO &Hc7
  5. LOCATE 1,1
  6. PRINT INT((g-&H2c)/(&Hc7-&H2c)*100);"%   "
  7. READ a$
  8. IF a$="ffff" THEN RESTORE: READ a$
  9.  
  10.  
  11. PRINT #1, "dc.w $";HEX$(g);"09,$fffe,$180,";
  12. PRINT #1,"$";a$;",$186,$";a$;",$184,$";
  13.  
  14. a=VAL("&h"+a$)
  15. a1=INT(a/256)
  16. a=a-a1*256
  17. a2=INT(a/16)
  18. a=a-a2*16
  19. a3=INT(a/2)
  20. a1=INT(a1/2)
  21. a2=INT(a2/2)
  22. a=a1*256+a2*16+a3
  23. a$=HEX$(a)
  24.  
  25. IF nt=0 THEN PRINT #1,a$
  26. IF nt=1 THEN PRINT #1,"0"
  27.  nt=1-nt
  28. NEXT g
  29. CLOSE
  30.  
  31.  
  32. DATA 1f,2f,3f,4f,5f,6f,7f,8f,9f,af,bf,cf,df,ef,ff
  33. DATA fe,fd,fc,fb,fa,f9,f8,f7,f6,f5,f4,f3,f2,f1,f0
  34. DATA 1f0,2f0,3f0,4f0,5f0,6f0,7f0,8f0,9f0,af0,bf0,cf0,df0,ef0,ff0
  35. DATA fe0,fd0,fc0,fb0,fa0,f90,f80,f70,f60,f50,f40,f30,f20,f10,f00
  36. DATA f01,f02,f03,f04,f05,f06,f07,f08,f09,f0a,f0b,f0c,f0d,f0e,f0f
  37. DATA e0f,d0f,c0f,b0f,a0f,90f,80f,70f,60f,50f,40f,30f,20f,10f,f
  38. DATA ffff
  39.