home *** CD-ROM | disk | FTP | other *** search
/ Publication 49 / Publication_49_2002-09-06_Civitas_de_Side_B.d64 / data-master (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  493b  |  12 lines
  1. 0 poke53280,0:poke53281,0:print"[147]";:clr
  2. 1 data"startadresse:","endadresse  :","startzeile  :","schrittweite:":fori=1to4
  3. 2 reada$:print"[154]"a$:next:print"";:fori=1to4:print"";:poke19,1
  4. 3 inputa(i):print:next:poke19,0:print"[147]";:d=0:ifa(1)>a(2)ora(3)<11thenrun
  5. 4 printa(3)"d[193]";:a(3)=a(3)+a(4):fori=1to17:r=peek(a(1)):a(1)=a(1)+1
  6. 5 printmid$(str$(r),2,5)+",";:ifa(1)=a(2)+1thenprint"[157] ":print"g[207]10":goto9
  7. 6 next:print"[157] ":d=d+1:ifd=8thengoto8
  8. 7 goto4
  9. 8 fori=1to4:print":a(";i;")=";a(i);:nexti:print":?c[200](147);:g[207]4":poke198,0
  10. 9 poke631,19:fori=632to640:pokei,13:next:poke198,12:end
  11. 10 print"[147]p[207]43,234:p[207]44,9:list":goto9
  12.