home *** CD-ROM | disk | FTP | other *** search
/ Ozsi 10 / Ozsi_10_1998_Tide_Side_A.d64 / lissajous..._rtn (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  598b  |  30 lines
  1. 0 rem"[141][147]tomz/tide/tdr.*
  2. 10 [153] [199](147)
  3. 30 [133]"x frequency";zx
  4. 40 [133]"y frequency";zy
  5. 50 [141] 1000
  6. 60 x[178]1:y[178]1
  7. 70 qx[178]160[170](50[172]([191](x[172](6.28[173]360))))
  8. 80 qy[178]100[170](50[172]([191](y[172](6.28[173]360))))
  9. 90 [141] 2000
  10. 100 x[178]x[170]zx:[139]x[177]360[167]x[178]x[171]360
  11. 110 y[178]y[170]zy:[139]y[177]360[167]y[178]y[171]360
  12. 120 [137] 70
  13. 1000 [143]
  14. 1010 [143]** set up high res screen **
  15. 1020 [151] 53265,[194](53265)[176]32
  16. 1030 [151] 53272,[194](53272)[176]8
  17. 1040 [129] k[178]8192 [164] 16192:[151] k,0:[130] k
  18. 1050 [129] j[178]1024 [164] 2024:[151] j,1:[130] j
  19. 1060 [151] 53280,1:[151]53281,1
  20. 1070 [142]
  21. 2000 [143] **
  22. 2010 [143] ** plot point **
  23. 2020 row[178][181](qy[173]8)
  24. 2030 char[178][181](qx[173]8)
  25. 2040 line[178]qy [175] 7
  26. 2050 bit[178]7[171](qx [175] 7)
  27. 2060 byte[178]8192[170](row[172]320)[170](char[172]8)[170]line
  28. 2070 [151] byte,[194](byte)[176] 2[174]bit
  29. 2080 [142]
  30.