home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 69 / 64er_Magazin_Sonderheft_69_19xx_Markt__Technik_de_Side_B.d64 / zweidim (.txt) < prev   
Encoding:
Commodore BASIC  |  1990-01-01  |  397 b   |  14 lines
  1. 5 rem dimensionierung mit dim
  2. 6 rem zweidimensional
  3. 7 rem ----------------------------
  4. 10 print"[147]"
  5. 20 fori=1to38:ln$=ln$+"[192]":next
  6. 30 eg=7:df=4:dimeg$(eg,df)
  7. 40 df$(1)="[206]ame":df$(2)="[211]trasse":df$(3)="[215]ohnort":df$(4)="[212]elefon"
  8. 50 fori=1toeg:forj=1todf:printdf$(j);:inputeg$(i,j)
  9. 52 ifeg$(i,j)=""theneg=i:goto60
  10. 59 nextj:print:nexti
  11. 60 print"[147]":fork=1todf:printtab(1)df$(k):nextk:printtab(1)ln$
  12. 70 fori=1toeg:forj=1todf:printtab(1)eg$(i,j):next:print:next
  13. 1000 poke198,0:wait198,1:end
  14.