home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / c128 / util / kds128v2.sfx / phone-file.bat < prev    next >
DOS Batch File  |  1990-12-08  |  407b  |  8 lines
  1. FAST:UP$=CHR$(145)+CHR$(145)+CHR$(145):PRINTCHR$(147);
  2. PRINT UP$ "*** ╔═╨╧╥╘┴╬╘ ╨╚╧╬┼ ╬╒═┬┼╥╙ *** (PRESS ANY KEY)":WAIT208,1:POKE208,0
  3. PRINT UP$ "╨OLICE DEPARTMENT (EMERGENCIES):      911":WAIT208,1:POKE208,0
  4. PRINT UP$ "╨OLICE DEPARTMENT (BUSINESS):    555-1111":WAIT208,1:POKE208,0
  5. PRINT UP$ "╨IZZA HOTLINE (DELIVERIES):      555-2222":WAIT208,1:POKE208,0
  6. PRINT UP$:SLOW:POKE153,0:DCLOSE ON U(PEEK(186))
  7.  
  8. é