home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / CMLN1285.ZIP / ZBASIC1.LTG < prev    next >
Encoding:
Text File  |  1986-02-27  |  256 b   |  11 lines
  1. zbasic.rvw Listing 1
  2. ì
  3. 1░ DEFIN╘ A-Z
  4. 2░ PRIN╘ TIME$
  5. 3░ A$="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  6. 4░ FO╥ I=▒ T╧ 10000
  7. 5░ MID$(A$,4,1)="X"
  8. 6░ B$=LEFT$(A$,3):B$=B$+"C":C$=MID$(A$,5):A$=B$+C$
  9. 7░ NEX╘ I
  10. 8░ PRIN╘ TIME$
  11.