home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1990 November / 1990-11.d64 / eye-boot (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  837b  |  27 lines
  1. 10 ifa=.thena=1:load"main.ml",8,1
  2. 20 ifa=1thena=2:load"edit.ml",8,1
  3. 30 poke53281,0:poke53280,0:clr
  4. 40 print"[147]"tab(14)"eye-catcher"
  5. 50 print"             copyright 1990"
  6. 51 print"     compute publications int'l ltd."
  7. 52 print"           all rights reserved"
  8. 60 print"1) enter messages":print"2) set time":print"3) start display"
  9. 70 geta$:ifa$="1"thensys8378:goto40
  10. 80 ifa$="2"then150
  11. 90 ifa$="3"then110
  12. 100 goto70
  13. 110 print"[147]how would you like the time shown?"
  14. 120 print"1) shooting colour":print"2) fading":print"3) normal
  15. 130 [133]v:[139]v[177]3[176]v[179]1[167]130
  16. 140 [151]829,v:[158]16640
  17. 150 [133]"printwhat hour is it (1-12)";h$:[139]h$[178]""[167]150
  18. 160 h[178]0:[139][195](h$)[177]1[167]h[178]16
  19. 170 hh[178][197]([201](h$,1)):h[178]h[170]hh:[151]56331,h
  20. 180 [133]"what minute is it (0-59)";m$:[139]m$[178]""[167]180
  21. 190 m[178]0:[139][195](m$)[177]1[167]m[178]16[172][197]([200](m$,1))
  22. 200 mm[178][197]([201](m$,1)):m[178]m[170]mm:[151]56330,m
  23. 210 [133]"what second is it (0-59)";s$:[139]s$[178]""[167]210
  24. 220 s[178]0:[139][195](s$)[177]1[167]s[178]16[172][197]([200](s$,1))
  25. 230 ss[178][197]([201](s$,1)):s[178]s[170]ss:[151]56329,s:[151]56328,0
  26. 240 [137]40
  27.