home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib20b.dsk / CONVERT.bas < prev    next >
BASIC Source File  |  2023-02-26  |  2KB  |  30 lines

  1. 10  REM  ************************
  2. 20  REM  *       CONVERT        *
  3. 30  REM  * BY MICHAEL GRUENTHAL *
  4. 40  REM  *  COPYRIGHT (C) 1984  *
  5. 50  REM  *  BY MICROSPARC, INC  *
  6. 60  REM  *  LINCOLN, MA. 01773  *
  7. 70  REM  ************************
  8. 75  IF  PEEK(64448) = 224  AND  PEEK(64447) = 0  THEN  PRINT "PROGRAM WILL NOT WORK WITH ENHANCED IIE.": END 
  9. 80 A$ = "C081 C081 D000<D000.FFFFM D7D2G": FOR I = 1 TO  LEN(A$): POKE 511 +I, ASC( MID$ (A$,I,1)) +128: NEXT : POKE 72,0: CALL  -144
  10. 90  DIM A(146),B(14),L(14),C(146):D = 1
  11. 100  FOR I = 1 TO 146
  12. 110  READ A(I):CA = CA +A(I): NEXT 
  13. 120  FOR I = 1 TO 14
  14. 130  READ B(I):CB = CB +B(I): READ L(I):CL = CL +L(I): NEXT 
  15. 140  IF CA < >19422  THEN  PRINT "CHECKSUM ERROR IN LINES 100-110": PRINT "TOTAL IS ";CA;" AND SHOULD BE 19422": END 
  16. 150  IF CB < >43867  THEN  PRINT "CHECKSUM ERROR IN LINE 130.": PRINT "TOTAL IS ";CB;" AND SHOULD BE 43867": END 
  17. 160  IF CL < >146  THEN  PRINT "CHECKSUM ERROR IN LINE 130": PRINT "TOTAL IS ";CL;" AND SHOULD BE 146": END 
  18. 170  FOR I = 1 TO 14
  19. 180 A = D:O =  -1
  20. 190  FOR Q = A TO L(I) +(A -1)
  21. 200 O = O +1:D = D +1
  22. 210 C(Q) = B(I) +O +61440
  23. 220  NEXT : NEXT 
  24. 230  FOR I = 1 TO 146
  25. 240  POKE C(I),A(I): NEXT 
  26. 250  PRINT  PEEK( -16256)
  27. 260  DATA  215,173,93,192,173,95,192,208,208,204,197,169,40,133,33,12,234,234,234,234,234,234,234,234,234,234,234,234,234,164,36,165,37,72,32,36,252,32,158,252,160,0,104,105,0,197,35,144,240,176,202,165
  28. 270  DATA  34,133,37,160,0,132,36,240,228,165,34,72,32,36,252,165,40,133,42,165,41,133,43,164,33,136,104,105,1,197,35,176,13,72,32,36,252,177,40,145,42,136,16,249,48,225,160,0,32,158,252,176,134,164,36
  29. 280  DATA  169,160,145,40,200,196,33,144,249,96,230,78,208,2,230,79,44,0,192,16,245,145,40,173,0,192,44,16,192,12,133,50,223,234,234,234,234,234,234
  30. 290  DATA  2047,1,2677,6,2826,4,2897,4,2979,1,2995,13,3138,32,3184,56,3355,19,3376,1,3394,2,3459,1,3759,1,3781,5