home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 April / 64er_Magazin_86-04_1986_Markt__Technik_de.d64 / dokument (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  639 b   |  23 lines
  1. 10 rem ****** dokument ******
  2. 20 poke53280,0:poke53281,0:diman$(16),as$(16),ae$(16),ad$(16)
  3. 30 input"[147]geraetenummer 3=bild,4=drucker ";g
  4. 40 input"startmodul:";sm
  5. 50 input"endmodul:";em:print"[147]";
  6. 60 fori=smtoem:gosub 500
  7. 70 open 1,g:i$=str$(i)+")  "
  8. 80 print#1,left$(i$,4);:a$=" "
  9. 100 for k=1toab:ifk<>1thena$="     "
  10. 110 print#1,a$;an$(k)"        "as$(k)" - "ae$(k)"     "ad$(k)
  11. 120 next
  12. 130 print#1,"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]":close1
  13. 135 if g=3thenprint"         weiter mit taste !!":poke198,0:wait198,1:print
  14. 140 next
  15. 150 ifg=3then60
  16. 160 end
  17. 500 rem **** subr. parameter holen ****
  18. 505 na$=mid$(str$(i),2,4)+"modul,s,r"
  19. 510 open 1,8,3,na$
  20. 520 input#1,ab$:ab=val(ab$)
  21. 530 for k=1 to ab
  22. 540 input#1,an$(k),as$(k),ae$(k),ad$(k):next:close1:return
  23.