home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 69 / 64er_Magazin_Sonderheft_69_19xx_Markt__Technik_de_Side_B.d64 / eindim (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  289 b   |  14 lines
  1. 5 rem dimensionierung mit dim
  2. 6 rem eindimensional
  3. 7 rem ----------------------------
  4. 10 print"[147]"
  5. 20 fori=1to38:ln$=ln$+"[192]":next
  6. 30 eg=20:dimeg$(eg)
  7. 40 df$(1)="[206]ame"
  8. 50 fori=1toeg:printdf$(1);:inputeg$(i)
  9. 52 ifeg$(i)=""then60
  10. 59 next
  11. 60 print"[147]":printtab(1)df$(1):printtab(1)ln$
  12. 70 fori=1toeg:printtab(1)eg$(i):next
  13. 1000 poke198,0:wait198,1:end
  14.