home *** CD-ROM | disk | FTP | other *** search
/ Publication 13 / Publication_13_19xx_Civitas_de_Side_B.d64 / zoomers_amorphis (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  639b  |  19 lines
  1. 10 rem zoomers !!!
  2. 11 rem as seen in a ql amorphis-dentro
  3. 12 rem modified by zeitgeist/civi/wil
  4. 13 rem x must be >1 !!!
  5. 14 rem
  6. 15 x=3:print"":gosub1000:end
  7. 16 rem
  8. 1000 printtab(x)"[149].[145]":forg=1to50:next:printtab(x)"[149][172][145]":forg=1to50:next
  9. 1001 printtab(x)"[151][207][146][145]":forg=1to50:next:printtab(x)"[151] [146][145][145]":forg=1to50
  10. 1002 printtab(x)"[129][164][157][157][167] [146][165][157][157][163][145][145][145]":forg=1to20:next
  11. 1003 printtab(x)"[129][175][157][157][182] [146][181][157][157][183][145][145][145]":forg=1to20:next
  12. 1004 printtab(x-1)"[152][172][162][187][157][157][157][161] [146][161][157][157][157][188][162][146][190][145][145][145]":forg=1to20:next
  13. 1005 printtab(x-1)"[155][207][183][208][157][157][157][165] [167][157][157][157][204][175][186][145][145][145]":forg=1to20:next
  14. 1006 printtab(x-1)"[153]   [157][157][157]   [157][157][157]   [145][145][145][145]":forg=1to20:next
  15. 1007 printtab(x-2)"[172][162][162][162][187][157][157][157][157][157][161]   [146][161][157][157][157][157][157][161]   [146][161][157][157][157][157][157][161]   [146][161][157][157][157][157][157][188][162][162][162][146][190][145]";
  16. 1008 print"[145][145][145][145]":forg=1to10:nextg
  17. 1009 printtab(x-2)"     [157][157][157][157][157]     [157][157][157][157][157]     [157][157][157][157][157]     [157][157][157][157][157]     [145][145][145]"
  18. 1010 forg=1to20:return
  19.