home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol142 / ykw1.bas < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  1.8 KB  |  27 lines
  1. 10 ' "My Other Computer Is An...YKW" Version 1.1, courtesy of Kelly Smith, CP/M-Net
  2. 20 ' For Osborne I Computers ONLY!!!  (C) 1982, YKW - Void Where Prohibited By Law
  3. 30 TEST=1  ' Intensity flag initialization: Added by Dave Grenewetzki, 16-oct-82
  4. 40 E$=CHR$(27):'   Escape Character
  5. 50 CLS$=CHR$(26):' Clear Screen
  6. 60 HOME$=CHR$(30):'  Home cursor
  7. 70 DY$=E$+")":'   DIM Display On
  8. 80 DN$=E$+"(":'   DIM Display Off
  9. 90 UY$=E$+"l":'   Start Underlining
  10. 100 UN$=E$+"m":'   End Underlining
  11. 110 PRINT CLS$
  12. 120 PRINT:PRINT:PRINT:PRINT TAB(13);DY$;"My other computer is an...";DN$:PRINT:PRINT:PRINT
  13. 130 PRINT TAB(8);UY$;"     ";UN$;" ";UY$;"             ";UN$;"  ";UY$;"     ";UN$;"       ";UY$;"     ";UN$
  14. 140 PRINT TAB(8);UY$;"     ";UN$;" ";UY$;"              ";UN$;" ";UY$;"      ";UN$;"     ";UY$;"      ";UN$
  15. 150 PRINT TAB(8);" ";UY$;"   ";UN$;"   ";UY$;"   ";UN$;"       ";UY$;"   ";UN$;"  ";UY$;"      ";UN$;"   ";UY$;"      ";UN$
  16. 160 PRINT TAB(8);" ";UY$;"   ";UN$;"   ";UY$;"            ";UN$;"   ";UY$;"       ";UN$;" ";UY$;"       ";UN$
  17. 170 PRINT TAB(8);" ";UY$;"   ";UN$;"   ";UY$;"            ";UN$;"   ";UY$;"   ";UN$;" ";UY$;"       ";UN$;" ";UY$;"   ";UN$
  18. 180 PRINT TAB(8);" ";UY$;"   ";UN$;"   ";UY$;"   ";UN$;"       ";UY$;"   ";UN$;"  ";UY$;"   ";UN$;"  ";UY$;"     ";UN$;"  ";UY$;"   ";UN$
  19. 190 PRINT TAB(8);UY$;"     ";UN$;" ";UY$;"              ";UN$;" ";UY$;"     ";UN$;"  ";UY$;"   ";UN$;"  ";UY$;"     ";UN$
  20. 200 PRINT TAB(8);UY$;"     ";UN$;" ";UY$;"             ";UN$;"  ";UY$;"     ";UN$;"   ";UY$;" ";UN$;"   ";UY$;"     ";UN$
  21. 210 PRINT E$+"="+CHR$(57)+CHR$(32);   'move cursor off-screen
  22. 220 PRINT:PRINT:PRINT:PRINT:FOR I=1 TO 500:NEXT I
  23. 230 'Reverse definition of intensity every other time
  24. 240 IF TEST=1 THEN TEST=0:DY$=E$+"(":DN$=E$+")":GOTO 260
  25. 250 IF TEST=0 THEN TEST=1:DY$=E$+")":DN$=E$+"("
  26. 260 PRINT HOME$:GOTO 120
  27.