home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 4: Phase Four / 17Bit_Phase_Four.iso / files / 3034.dms / 3034.adf / digital.AMOS / digital.amosSourceCode
Encoding:
AMOS Source Code  |  1993-02-25  |  1.0 KB  |  46 lines
  1. 'converted from an old stos listing
  2. Screen Open 0,640,256,16,Lowres
  3. 10 Curs Off : Hide On : Double Buffer 
  4. 20 Palette 0,$10,$70
  5. 30 Wait Vbl 
  6. 40 Dim X(9,7)
  7. 50 Restore 380
  8. 60 For N=0 To 9
  9. 70 For L=1 To 7
  10. 80 Read X(N,L)
  11. 90 Inc X(N,L)
  12. 100 Next L
  13. 110 Next N
  14. Rem**t=digits ,,,s=size    
  15. 130 For T=9 To 0 Step -1
  16. 140 OX=128 : OY=5 : S=6 : Gosub 200
  17. 150 Screen Swap : Wait Vbl 
  18. Wait 15
  19. 160 Next T
  20. 170 Goto 130
  21. 200 X=OX : Y=OY
  22. 210 C=1
  23. 220 For L=0 To 3
  24. 230 Ink X(T,C)
  25. 240 Inc C
  26. 250 Polygon X,Y To X+S,Y+S To X+S,Y+(S*8) To X,Y+(S*9) To X-S,Y+(S*8) To X-S,Y+S
  27. 260 X=X+(S*10) : If X=128+(S*20) Then X=128 : Y=Y+(S*11)
  28. 270 Next L
  29. 280 X=OX : Y=OY
  30. 290 For L=0 To 2
  31. 300 Ink X(T,C)
  32. 310 Inc C
  33. 320 Polygon X+S,Y To X+(S*2),Y-S To X+(S*8),Y-S To X+(S*9),Y To X+(S*8),Y+S To X+(S*2),Y+S
  34. 330 Y=Y+(S*10)
  35. 340 Next L
  36. 350 Return 
  37. 380 Data 1,1,1,1,1,0,1
  38. 390 Data 0,1,0,1,0,0,0
  39. 400 Data 0,1,1,0,1,1,1
  40. 410 Data 0,1,0,1,1,1,1
  41. 420 Data 1,1,0,1,0,1,0
  42. 430 Data 1,0,0,1,1,1,1
  43. 440 Data 1,0,1,1,1,1,1
  44. 450 Data 1,1,0,1,1,0,0
  45. 460 Data 1,1,1,1,1,1,1
  46. 470 Data 1,1,0,1,1,1,1