home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8504a.d64 / cp-80x (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  64 lines
  1. 100 REM *******************************
  2. 101 REM * HARDCOPY MIT SIMON'S BASIC  *
  3. 103 REM *        AUF CP-80X           *
  4. 104 REM *                             *
  5. 105 REM * 1-1985 BY  STEPHAN ARNDT    *
  6. 106 REM *            SUEDWESTKORSO 62 *
  7. 107 REM *            1000 BERLIN 41   *
  8. 108 REM *                             *
  9. 109 REM *******************************
  10. 110 :
  11. 120 : REM HARDCOPY DER HIRES - SEITE
  12. 130 : REM  MIT ' SYS 32000 '
  13. 140 :
  14. 150 FOR I = 32000 TO 32293 STEP 8
  15. 160 S = 0
  16. 170 FOR K = 0 TO 7
  17. 180 READ A : S = S + A
  18. 190 POKE I+K , A
  19. 200 NEXT K
  20. 210 READ R : IF S = R THEN 230
  21. 220 PRINT " FEHLER IN ";300+N*10 :END
  22. 230 N=N+1:NEXT I
  23. 240 :
  24. 250 SYS 32284
  25. 260 :
  26. 300 DATA  76, 64,125,  0,224, 64,225,128, 906
  27. 310 DATA 226,192,227,  0,229, 64,230,128,1296
  28. 320 DATA 231,192,232,  0,234, 64,235,128,1316
  29. 330 DATA 236,192,237,  0,239, 64,240,128,1336
  30. 340 DATA 241,192,242,  0,244, 64,245,128,1356
  31. 350 DATA 246,192,247,  0,249, 64,250,128,1376
  32. 360 DATA 251,192,252,  0,254,  0,  0,  0, 949
  33. 370 DATA   0,  0,  0,  0,  0, 25,  8, 40,  73
  34. 380 DATA 234,169,  4,133,186,169, 96,133,1124
  35. 390 DATA 185,169,  0,133,183,169,  1,133, 973
  36. 400 DATA 184, 32,192,255,166,184, 32,201,1246
  37. 410 DATA 255,169, 27, 32,210,255,169, 51,1168
  38. 420 DATA  32,210,255,169, 22, 32,210,255,1185
  39. 430 DATA 162,  0,142, 61,125,174, 61,125,850
  40. 440 DATA 138, 10,170,189,  3,125,133,251,1019
  41. 450 DATA 189,  4,125,133,252,160, 20,169,1052
  42. 460 DATA  32, 32,210,255,136,208,250,169,1292
  43. 470 DATA  27, 32,210,255,169, 76, 32,210,1011
  44. 480 DATA 255,169, 64, 32,210,255,169,  1,1155
  45. 490 DATA  32,210,255,162,  0,142, 63,125, 989
  46. 500 DATA 160,  0,140, 62,125,120,120,165, 892
  47. 510 DATA   1, 41,253,133,  1, 41,253,234, 957
  48. 520 DATA 172, 62,125,177,251,162,  0,234,1183
  49. 530 DATA  10, 62, 53,125,232,224,  8,208, 922
  50. 540 DATA 246,172, 62,125,200,140, 62,125,1132
  51. 550 DATA 192,  8,208,227,165,  1,  9,  2, 812
  52. 560 DATA 133,  1, 88,160,  0,185, 53,125, 745
  53. 570 DATA  32,210,255,200,192,  8,208,245,1350
  54. 580 DATA 234, 24,165,251,105,  8,133,251,1171
  55. 590 DATA 165,252,105,  0,133,252,174, 63,1144
  56. 600 DATA 125,232,142, 63,125,224, 40,208,1159
  57. 610 DATA 167,169, 13, 32,210,255,174, 61,1081
  58. 620 DATA 125,232,142, 61,125,224, 25,240,1174
  59. 630 DATA   3, 76,109,125,234,169, 27, 32, 775
  60. 640 DATA 210,255,169, 50, 32,210,255, 32,1213
  61. 650 DATA 204,255, 88, 96,169,125,141,155,1233
  62. 660 DATA 129, 76, 10,128,  0,  0,  0,  0,343
  63. 670 :
  64.