home *** CD-ROM | disk | FTP | other *** search
/ Sauce 'n' Code 2 / sauce-n-code-02.adf / ASCII_Source / CReset.asc < prev    next >
Encoding:
Text File  |  1995-07-02  |  802 b   |  28 lines
  1. '*************************************************** 
  2. '*                   KReset.AMOS                   * 
  3. '*            ©1992 by Volker Stepprath            * 
  4. '*                 Do a Cold Reset                 * 
  5. '*  All viruses will be destroyed by this program  * 
  6. '*************************************************** 
  7. '
  8. For I=0 To 109 : Read N : N$=N$+Chr$(N) : Next I
  9. '
  10. Call Varptr(N$)
  11. '
  12. Data 51,252,64,0,0,223,240,154,44,120
  13. Data 0,4,32,86,145,252,0,0,2,118
  14. Data 48,60,33,0,66,152,81,200,255,252
  15. Data 32,124,0,0,0,0,48,60,0,254
  16. Data 66,152,81,200,255,252,61,124,170,170
  17. Data 0,36,45,124,204,204,204,204,0,38
  18. Data 45,124,0,48,0,0,0,62,45,124
  19. Data 0,222,0,0,0,78,45,124,187,187
  20. Data 187,187,0,82,45,124,221,221,221,221
  21. Data 2,42,32,124,1,0,0,0,34,124
  22. Data 0,255,255,236,36,81,145,202,78,208
  23.  
  24.  
  25.  
  26.  
  27.  
  28.