home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 August / 64er_Magazin_91-08_1991_Markt__Technik_de_Side_A.d64 / typing (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  21 lines
  1. 1 poke53280,0:poke53281,0:data1,52,27,26,53,26,80,9:ze$="[193][194][195][196][197][198][199][200][201][202][203][204][205][206][207][208][209][210][211][212][213]"
  2. 2 ze$=ze$+"[214][215][216][217][218]abcdefghijklmnopqrstuvwxyz!#$%&'()*+,-./:;<=>?@[\]^_1234567890"
  3. 3 print"[147]"tab(17)"[212]yping"tab(49)"[146][159](w) 1991 by [204].[194]ischofs"
  4. 4 print"[158]     1) [199]ross- und [203]leinschreibung"tab(45)"2) [203]leinschreibung
  5. 5 [153]"     3) (NULL)eichen"[163]45)"4) (NULL)ahlen"
  6. 6 [161]a$:[139]a$[179][177]"1"[175]a$[179][177]"2"[175]a$[179][177]"3"[175]a$[179][177]"4"[137]6
  7. 7 ze[178]7:[133]"openon(NULL)ie viele (NULL)eilen (vorgegeben:7)";ze:[139]ze[179]1[137]7
  8. 8 [153]"load":b[178][198](a$)[171]48:[129]a[178]1[164]b:[135]t,a1:[130]a
  9. 9 ti$[178]"000000":[129]z[178]1[164]ze:te$[178]"":l[178]0:s[178]0:a$[178]ti$
  10. 10 i[178][181]([187](x)[172]7)[170]1:l[178]l[170]i[170]1:[129]a[178]1[164]i
  11. 11 te$[178]te$[170][202](ze$,[181]([187](x)[172]a1)[170]t,1):[130]a:te$[178]te$[170]" ":[139]l[179]39[137]10
  12. 12 te$[178][200](te$,39):[153]"sys"te$"":ti$[178]a$
  13. 13 [161]a$:a$[178]a$[170]"":b[178][198](a$):[139]b[179]31[176]b[178]34[176]b[177]96[175]b[179]193[176]b[177]218[137]13
  14. 14 a$[178][200](a$,1):[153][163]s)"conton"[202](te$,s[170]1,1)
  15. 15 [139]a$[178][202](te$,s[170]1,1)[167][153][163]s)""a$"on":[137]17
  16. 16 [153][163]s)""a$"on":fe[178]fe[170]1
  17. 17 s[178]s[170]1:[139]s[179]39[137]13
  18. 18 [153]"":[130]z:se[178][181](ti[173]60):[153]"cont(NULL)eit:wait "[202](ti$,3,2)":"[201](ti$,2);
  19. 19 [153]" (NULL)inuten printascehleranzahl:wait"fe:[153]"sysatnnschlaege/(NULL)inute";
  20. 20 [153]":wait"[181]((ze[172]39[173]se)[172]60)"open(NULL)eichen:wait"ze[172]39:[151]198,0:[146]198,1:[138]
  21.