home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1987 April / 1987-04.d64 / time.64 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  389b  |  14 lines
  1. 10 fori=679to733:reada:x=x+a:pokei,a:next
  2. 20 ifx<>7836thenprint"data statement error.":stop
  3. 30 data 120,169,180,141,20,3,169,2,141,21
  4. 40 data 3,88,96,198,162,165,162,201,255,208
  5. 50 data 28,198,161,165,161,201,255,208,20,198
  6. 60 data 160,165,160,201,255,208,12,169,79,133
  7. 70 data 160,169,25,133,161,169,255,133,162,32
  8. 80 data 188,246,76,52,234
  9. 90 print"[147]"
  10. 100 sys 679
  11. 110 ti$="000100"
  12. 120 print"";ti$
  13. 130 if ti$<>"000000" then 120
  14.