home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 June / 64er_Magazin_90-06_1990_Markt__Technik_de_Side_A.d64 / mopr2listing1 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  363b  |  13 lines
  1. 1 rem beispielprogramm
  2. 2 rem modulares programmieren (2)
  3. 10 input"dein vorname";n$
  4. 20 print
  5. 30 print"1.verdoppeln"
  6. 40 us$=n$:ux=2:gosub61060:printus$:d$=us$
  7. 50 print:print"2. einfuegen z.b. von 'mitte'"
  8. 60 us$=n$:ui$="mitte":up=int(len(n$)/2+1):gosub61070:printus$:m$=us$
  9. 70 print:print"3.loeschen zweier mittebuchstaben"
  10. 80 us$=n$:up=int(len(n$)/2):uz=2:gosub61100:printus$:z$=us$
  11. 90 print:print n$: print d$,m$,z$
  12. 100 end
  13.