home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh3x / sh34b.d64 / perspektiven (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  65 lines
  1. 0 POKE56,32:CLR
  2. 1 IFPEEK(850)<>3THENLOAD"SPR",8,1
  3. 2 IFPEEK(24576)<>173THENLOAD"GR23",8,1
  4. 3 POKE26713,173:POKE26714,36:POKE26715,104:REM FEHLERKORREKTUR VON NH
  5. 5 POKE53280,.:POKE53281,.
  6. 6 PRINT"[147][142]GRAFIKPROGRAMM         VERSION 2.1
  7. 7 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
  8. 20 PRINT"GESCHRIEBEN   VON    PETER PREUSSE
  9. 25 [153]"UEBERARBEITET VON NIKOLAUS HEUSLER
  10. 27 PRINT"(C)OPYRIGHT 64'ER SH. 34, M&T 1988
  11. 30 [153]"BITTE WAEHLEN:                          TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
  12. 40 PRINT"<E> INLESEN VON DISKETTE
  13. 42 [153]"<L> ADEN NORMALES HI-EDDI BILD
  14. 50 PRINT"<S> PEICHERN AUF DISKETTE
  15. 60 [153]"<G> RAFIK ERSTELLEN"
  16. 62 [153]"<Z> EIGEN DER GRAFIK
  17. 63 PRINT"<P> ARAMETER FUER RUND INST"
  18. 64 PRINT"<D> RUCKEN (SEIKOSHA GP-500A)
  19. 65 [153]"<H> ILFE
  20. 66 PRINT"<_> PROGRAMMENDE
  21. 67 [153]"DISKETTENSTATUS:":[159]56,8,15
  22. 68 [161]#56,A$:[153]A$;:[139]A$[179][177][199](13)[167]68
  23. 69 [160]56:[153]"
  24. 70 GET A$:IF A$=""THEN70
  25. 90 IF A$="G" THEN SYS 24832
  26. 95 IF A$="D" THEN SYS 28928
  27. 100 IF A$="E" THEN GOSUB 1000
  28. 101 IF A$="L" THEN GOSUB 4000
  29. 105 IF A$="P" THEN GOSUB 500
  30. 110 IF A$="S" THEN GOSUB 2000
  31. 111 IF A$="Z" THEN SYS 24657
  32. 115 IF A$="_" THEN PRINT"[147]SALUT !":END
  33. 116 IFA$="H"THENGOSUB3000
  34. 120 POKE198,.:GOTO6
  35. 500 PRINT"EINE ZAHL     320 <= X <  1000
  36. 505 [153]"FUER <V><^>:  100 <= X <= 1000
  37. 520 INPUT"[145]ZAHL   608[157][157][157][157][157]";X:IFX<100ORX>1000THEN520
  38. 530 Y=X/256
  39. 540 POKE25185,Y:POKE25178,X-256*INT(Y)
  40. 550 RETURN
  41. 1000 PRINT"LESEN: WELCHEN NAMEN HAT DIE DATEI ?
  42. 1010 A$[178]"":[133]"NAME ";A$:[139]A$[178]""[167][142]
  43. 1020 [159]1,8,8,A$[170]",S,R
  44. 1025 SYS28705
  45. 1030 CLOSE1
  46. 1040 RETURN
  47. 2000 PRINT"SCHREIB.: WELCHEN NAMEN HAT DIE DATEI ?
  48. 2010 A$[178]"":[133]"NAME ";A$:[139]A$[178]""[167][142]
  49. 2020 [159]1,8,8,A$[170]",S,W
  50. 2025 SYS28672
  51. 2030 GOTO1030
  52. 3000 PRINT"HILFSBILDSCHIRM - BITTE PROGRAMMDISK    EINLEGEN (TASTE, _ = ABBRUCH)
  53. 3001 [151]198,.:[146]198,1:[161]A$:[139]A$[178]"_"[167][142]
  54. 3002 [151]53281,1:[153]"LOAD":[151]53281,.
  55. 3003 [143] ZEILE 3002: SIEHE BETRIEBSSYSTEM-ARTIKEL IN SONDERHEFT 33
  56. 3004 [158]57812"HILFE1",8,8:[151]780,.:[158]65493:[151]198,.:[146]198,1:[161]A$
  57. 3005 [139]A$[178]"_"[167][142]
  58. 3006 [158]57812"HILFE2",8,8:[151]780,.:[158]65493:[151]198,.:[146]198,1:[161]A$:[142]
  59. 4000 [153]"HI-EDDI LESEN: WIE HEISST DAS BILD ?
  60. 4010 A$="":INPUT"NAME ";A$:IFA$=""THENRETURN
  61. 4020 SYS(57812)A$,8,0:POKE781,.:POKE782,32:POKE780,.:SYS65493:RETURN
  62. 5000 :
  63. 5002 REM WE APOLOGIZE FOR ANY INCONVENIENCES !
  64. 5004 :
  65.