home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 75 / 64er_Magazin_Sonderheft_75_19xx_Markt__Technik_de_Side_B.d64 / v.d.e. v1 (.txt) < prev   
Encoding:
Commodore BASIC  |  1990-01-01  |  1.1 KB  |  21 lines
  1. 1 a2=53280:gosub8:input"funktion (y=):   peek(ln)[157][157][157][157][157][157][157][157][157][157]";f2$:pokea2,13
  2. 2 print"[144]";f$;f2$:print"run3:[145][145][145][145][145]":poke632,13:poke633,13:poke198,3:end
  3. 3 poke198,0:input"[158]start-zeilennummer:   1000[157][157][157][157][157][157]";zn
  4. 4 input"schrittweite-zeilennummer:   10[157][157][157][157]";zz:fort=0to27:readd
  5. 5 poke49152+t,d:next:input"startwert der laufenden nummer:   0[157][157][157]";ln
  6. 6 input"schrittweite der laufenden nummer:   1[157][157][157]";nz:a=49152
  7. 7 input"gesamtzahl der daten:   100 [157][157][157][157][157][157]";gd:sysa:pokea+2,49:pokea+4,234
  8. 8 md=6:pokea2,0:pokea2+1,0:print"[147]";tab(15);"[158]v.d.e. v1[157][157][157][157][157][157][157][157][157][163][163][163][163][163][163][163][163][163]"
  9. 9 a2$=chr$(34):f$="9 ?"+a2$+chr$(147)+""+a2$+":foraz=0to14:y=":a2=631:return
  10. 10 ln=ln+nz:y$=str$(y):ify<10theny$="00"+right$(y$,1):goto13
  11. 11 ify<100theny$="0"+right$(y$,2):goto13:data 120,169,13,160,192,141,20,3
  12. 12 y$=right$(y$,3):data 140,21,3,88,96,169,2,133,198,169,13,141,119,2,141
  13. 13 g$=g$+y$+",":da=da+1:gd=gd-1:ifgd<=0then17:data 120,2,76,49,234
  14. 14 ifda<>mdthenaz=az-1:next
  15. 15 g$=left$(g$,len(g$)-1):da=0
  16. 16 g$=str$(zn)+" data "+g$:zn=zn+zz:poke646,7:printg$:g$="":next:a=0:goto18
  17. 17 g$=left$(g$,(len(g$)-1)):printstr$(zn)+" data "+g$:a=1
  18. 18 print"[144]8 zn=";zn;"[157]:zz=";zz;"[157]:ln=";ln;"[157]:md=";md;"[157]:nz=";nz;"[157]:gd=";gd
  19. 19 a$="s[217]49152:p[207]198,0:s[217]58692:p[207]646,7:":a2$=chr$(34):ifa=0thenprint"r[213]8":end
  20. 20 print"[144]?c[200](147):?:?:f[207]a=1to20:?a:n[197]:?";a2$;a$;"l[201]:";a2$;":?c[200](19)"
  21.