home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh7x / sh75b.d64 / betrachter (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  65 lines
  1. 100 GOTO120
  2. 110 PRINT"---------------------------------------":RETURN
  3. 120 R=0:F1=0:F2=1:F3=2:F4=3:A(0)=2:A(1)=1:A(2)=0:A(3)=15:Z=4
  4. 130 POKE53280,0:POKE53281,0:PRINT"[155]"
  5. 140 PRINTCHR$(147)
  6. 150 INPUT"FILENAME";NM$:A=LEN(NM$)
  7. 160 LA=12288
  8. 170 HI=INT(LA/256):LO=LA-HI*256
  9. 180 FORI=1TOA
  10. 190 POKE827+I,ASC(MID$(NM$,I,1))
  11. 200 NEXT
  12. 210 POKE781,8:POKE782,0:SYS65466
  13. 220 POKE780,A
  14. 230 POKE781,60:POKE782,3:SYS65469
  15. 240 POKE780,0:POKE781,LO:POKE782,HI
  16. 250 SYS65493
  17. 260 POKE174,PEEK(781):POKE175,PEEK(782)
  18. 270 IFST<>64THENPRINT"FEHLER":END
  19. 280 PRINT"[147]":GOSUB110:PRINT"":GOSUB110
  20. 290 FORI=0TO255
  21. 300 POKE1024+80+I,I
  22. 310 NEXT
  23. 320 PRINT
  24. 330 PRINT"ZEICHENSATZ-BETRACHTER                  ";
  25. 340 PRINT""
  26. 350 PRINT
  27. 360 PRINT"F1 = CBM/STANDARD   F2 = NEU LADEN"
  28. 370 PRINT"F3 = NEUE ZEICHEN   F4 = PROGRAMM ENDE"
  29. 380 PRINT"F5 = MULTICOLOR
  30. 390 [153]"F7 = EXTENDED COLOR
  31. 400 PRINT
  32. 410 PRINT"  1 = RAHMENFARBE (53280)
  33. 420 [153]"  2 = FARBE1      (53281)
  34. 430 PRINT"  3 = FARBE2      (53282)
  35. 440 [153]"  4 = FARBE3      (53283)
  36. 450 PRINT"  5 = FARBE4      (53284)
  37. 460 [153]"  6 = ZEICHENFARBE   0- 63
  38. 470 PRINT"  7 = ZEICHENFARBE  64-127
  39. 480 [153]"  8 = ZEICHENFARBE 128-191
  40. 490 PRINT"  9 = ZEICHENFARBE 192-255
  41. 500 [151]53280,R:[151]53281,F1
  42. 510 [151]53282,F2:[151]53283,F3
  43. 520 [151]53284,F4
  44. 530 [139]Z[177]3[167]570
  45. 540 [129]J[178]0[164]63
  46. 550 [151]55296[170]J[170]80[170](Z[172]64),A(Z)
  47. 560 [130]
  48. 570 [151]198,0:[146]198,1:[161]Z$
  49. 580 [139]Z$[178]"1"[167]Z[178]4:R[178]R[170]1:[139]R[177]15[167]R[178]0:[137]500
  50. 590 [139]Z$[178]"2"[167]Z[178]4:F1[178]F1[170]1:[139]F1[177]15[167]F1[178]0:[137]500
  51. 600 [139]Z$[178]"3"[167]Z[178]4:F2[178]F2[170]1:[139]F2[177]15[167]F2[178]0:[137]500
  52. 610 [139]Z$[178]"4"[167]Z[178]4:F3[178]F3[170]1:[139]F3[177]15[167]F3[178]0:[137]500
  53. 620 [139]Z$[178]"5"[167]Z[178]4:F4[178]F4[170]1:[139]F4[177]15[167]F4[178]0:[137]500
  54. 630 [139]Z$[178]"6"[167]Z[178]0:A(0)[178]A(0)[170]1:[139]A(0)[177]15[167]A(0)[178]0:[137]500
  55. 640 [139]Z$[178]"7"[167]Z[178]1:A(1)[178]A(1)[170]1:[139]A(1)[177]15[167]A(1)[178]0:[137]500
  56. 650 [139]Z$[178]"8"[167]Z[178]2:A(2)[178]A(2)[170]1:[139]A(2)[177]15[167]A(2)[178]0:[137]500
  57. 660 [139]Z$[178]"9"[167]Z[178]3:A(3)[178]A(3)[170]1:[139]A(3)[177]15[167]A(3)[178]0:[137]500
  58. 670 [139] Z$[178]"INPUT"[167][151]53272,21:[151]53265,27:[151]53270,200
  59. 680 [139]Z$[178]"DIM"[167][151]53272,[194](53272)[175]240[176]12:Z[178]4
  60. 690 [139]Z$[178]"READ"[167][151]53270,[194](53270)[175]239[176]16:[151]53265,27
  61. 700 [139]Z$[178]"LET"[167][151]53265,[194](53265)[175]191[176]64:[151]53270,200
  62. 710 [139]Z$[178]"GOTO"[167][138]
  63. 720 [139]Z$[178]"RUN"[167][128]
  64. 730 [137]500
  65.