home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh24a.d64 / hi-p(itoh8510).l (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  3KB  |  46 lines
  1. 10 REM #### PROGRAMM ZUR ERZEUGUNG #####
  2. 20 REM ## VON HI-P(ITOH8510) AUF DISK ##
  3. 30 REM AUTOR: F.ZIESCHE' AM: 13. 2.85 ##
  4. 40 RESTORE:PS=0:REM DATA'S UEBERPRUEFEN
  5. 50 PRINT"[147] DATA-ZEILEN WERDEN UEBERPRUFT !"
  6. 60 READ BY : IF BY < 0 THEN 80
  7. 70 PS = PS + BY : GOTO 60
  8. 80 IF PS+BY <> 0 THEN PRINT"FEHLER IN DATA-ZEILEN !":LIST160-
  9. 90 INPUT" DISKETTE EINGELEGT   JA[157][157][157][157]";IN$:IFIN$<>"JA"THEN 90
  10. 100 RESTORE : OPEN3,8,3,"HI-P(ITOH8510),P,W"
  11. 110 PRINT#3,CHR$(0);CHR$(13);:REM STARTADRESSE
  12. 120 READ BY : IF BY < 0 THEN 140
  13. 130 PRINT#3,CHR$(BY); : GOTO120
  14. 140 CLOSE3 : PRINT" PROGRAMM WURDE ERZEUGT !"
  15. 150 END
  16. 160 REM DATA-ZEILEN FUER HI-P(ITOH8510)
  17. 170 DATA165,1,72,169,55,133,1,173,87,13,32,186,13,141,170,14,173,107,13,32
  18. 180 DATA186,13,141,223,14,169,0,141,164,14,141,217,14,141,174,13,32,248,13
  19. 190 DATA32,212,13,169,27,32,111,14,169,70,32,111,14,169,0,160,0,32,47,14
  20. 200 DATA169,0,141,148,14,169,0,141,201,14,169,27,32,111,14,169,83,32,111
  21. 210 DATA14,169,0,160,0,32,47,14,169,0,240,16,32,135,14,32,241,14,238,148
  22. 220 DATA14,173,148,14,201,40,144,240,169,0,240,16,32,188,14,32,241,14,238
  23. 230 DATA201,14,173,201,14,201,0,144,240,24,173,164,14,105,64,141,164,14,173
  24. 240 DATA170,14,105,1,141,170,14,24,173,217,14,105,64,141,217,14,173,223,14
  25. 250 DATA105,1,141,223,14,169,13,32,111,14,169,10,32,111,14,238,174,13,169
  26. 260 DATA0,201,25,176,3,76,42,13,104,133,1,96,162,7,221,149,31,240,4,202,208
  27. 270 DATA248,232,138,10,10,10,10,10,96,0,0,0,0,0,0,0,0,24,173,123,13,105,40
  28. 280 DATA56,237,60,13,133,251,169,0,133,252,160,3,6,251,38,252,136,208,249
  29. 290 DATA165,251,164,252,141,80,13,140,82,13,96,169,255,141,3,221,173,2,221
  30. 300 DATA9,4,141,2,221,173,0,221,9,4,141,0,221,162,0,189,27,14,32,111,14,232
  31. 310 DATA224,20,144,245,96,127,27,93,27,78,27,84,49,54,27,102,27,76,48,48
  32. 320 DATA48,27,48,27,62,133,99,132,98,56,162,144,32,73,188,32,221,189,162
  33. 330 DATA1,189,0,1,240,6,232,224,6,144,246,202,202,142,81,14,56,169,4,233
  34. 340 DATA0,240,9,168,169,48,32,111,14,136,208,248,172,81,14,240,12,162,1,189
  35. 350 DATA0,1,32,111,14,232,136,208,246,96,141,1,221,173,0,221,41,251,141,0
  36. 360 DATA221,9,4,141,0,221,173,13,221,41,16,240,249,96,120,165,1,72,41,248
  37. 370 DATA133,1,169,0,133,252,169,0,133,251,160,3,6,251,38,252,136,208,249
  38. 380 DATA24,165,251,105,0,133,251,165,252,105,0,133,252,177,251,153,204,13
  39. 390 DATA200,192,8,144,246,104,133,1,88,96,120,165,1,72,41,248,133,1,169,0
  40. 400 DATA133,252,169,0,133,251,160,3,6,251,38,252,136,208,249,24,165,251,105
  41. 410 DATA0,133,251,165,252,105,0,133,252,177,251,153,204,13,200,192,8,144
  42. 420 DATA246,104,133,1,88,96,160,128,140,4,15,169,0,141,8,15,140,10,15,162
  43. 430 DATA7,189,204,13,41,0,240,7,169,0,9,0,141,8,15,78,10,15,202,16,236,173
  44. 440 DATA8,15,32,111,14,78,4,15,144,215,96
  45. 450 DATA -57076 :REM  PRUEFSUMME
  46.