home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 56 / 64er_Magazin_Sonderheft_56_19xx_Markt__Technik_de_Side_A.d64 / vereinsverw. (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  1.1 KB  |  35 lines
  1. 10 rem startroutine zum vereinprgramm
  2. 20 rem c/o sandra gallitz
  3. 30 rem waldstr. 5
  4. 40 rem 5206 neunkirchen seelscheid 1
  5. 50 rem
  6. 60 rem im programmteil start wird die
  7. 70 rem sortierroutine -h- , der
  8. 80 rem deutsche zeichensatz -character
  9. 90 rem ram- und das hauptprogramm
  10. 100 rem -m- eingeladen
  11. 110 rem hinweise zu dem zeichensatz
  12. 120 rem siehe sonderheft 4/85 zeichen-
  13. 130 rem editor fuer c-64
  14. 140 rem dem hauptprogramm -m- liegt
  15. 150 rem das programm -instring- aus
  16. 160 rem heft 1/88 vor
  17. 170 rem
  18. 200 ifa=1then230
  19. 210 ifa=0thena=1:load"h",8,1
  20. 220 rem aufruf des hauptprogramms -m-
  21. 230 printchr$(147)chr$(14)chr$(142):poke646,0
  22. 240 poke198,0:poke631,147:poke632,76:poke633,207:poke634,34:poke635,77
  23. 250 poke636,34:poke637,44:poke638,56:poke639,58:poke640,131
  24. 260 poke198,10
  25. 400 rem aufruf des zeichensatzes
  26. 500 fori=828to900:readx:pokei,x:next
  27. 510 data162,8,160,1,32,186,255,169,13,162,115,160,3,32
  28. 520 data189,255,169,0,32,213,255,120,169,51,133,1,169,0
  29. 530 data133,95,133,90,133,88,169,144,133,96,169,240,133,89
  30. 540 data169,160,133,91,32,191,163,169,55,133,1,88,96,67
  31. 550 data72,65,82,65,67,84,69,82,32,82,65,77,0,0
  32. 560 data0,0,0
  33. 600 poke56,144:clr:sys828:poke56,160:clr
  34. 610 poke53272,8:poke56576,peek(56576)and252:poke648,192
  35.