home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 84xx / 8410.d64 / funkt.tast (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  48 lines
  1. 100 REM"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
  2. 110 [143]"(null) FUNKTIONSTASTENBELEGUNG (null)
  3. 120 REM"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]
  4. 130 [143]"(null) BY M.KLOSS  DUESSELDORF (null)
  5. 140 REM"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]
  6. 150 [143]"(null)NN,MM:LAUFVARIABLE       (null)
  7. 160 REM"[221]Q1   :READVARIABLE       [221]
  8. 170 [143]"(null)Q2   :AENDERUNGSVARIABLE (null)
  9. 180 REM"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]
  10. 190 [143]"(null)Q1$  :LOESCHVARIABLE     (null)
  11. 200 REM"[221]Q2$():BEFEHLSFELD        [221]
  12. 210 [143]"(null)Q3$  :ANTWORTVARIABLE    (null)
  13. 220 REM"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]
  14. 230 [143]"(null) BELEGUNG DER F.FTASTEN  (null)
  15. 240 REM"[221] MIT STRINGS BIS 9 BYTE  [221]
  16. 250 [143]"(null) LAENGE.INITIALISIERUNG  (null)
  17. 260 REM"[221] DURCH RUN/STOP RESTORE  [221]
  18. 270 [143]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP
  19. 280 PRINT"[147]MOMENT BITTE":GOSUB450:PRINT"[147]"
  20. 290 FORNN=0TO7:READQ2$(NN):NEXTNN:PRINT"[147]":Q1$="                   [145]"
  21. 300 PRINTSPC(5)"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
  22. 310 PRINTSPC(5)" FUNKTIONSTASTENBELEGUNG "
  23. 320 PRINTSPC(5)"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
  24. 330 PRINTSPC(5)"JETZIGE BELEGUNG"
  25. 340 FORNN=0TO7:READQ1:PRINTSPC(5)"F"Q1"  "Q2$(NN):NEXTNN
  26. 350 PRINTSPC(5)"AENDERUNGEN ERWUENSCHT (J)";:INPUTQ3$
  27. 360 IFQ3$<>"J"THENPOKE58,255:END
  28. 370 PRINT"[147]":FORNN=0TO7:READQ1
  29. 380 PRINTSPC(3)"FUNKTIONSTASTE "Q1" "Q2$(NN):PRINT"[145]"TAB(20);
  30. 390 INPUTQ2$(NN):IFLEN(Q2$(NN))>9THENPRINT"[145]"TAB(20)Q1$:PRINTTAB(20);:GOTO390
  31. 400 NEXTNN
  32. 410 PRINTSPC(3)"EINGABEN KORREKT (J)";:INPUTQ3$:IFQ3$<>"J"THENRUN
  33. 420 Q2=49262:FORNN=0TO7:FORMM=1TOLEN(Q2$(NN))
  34. 430 POKEQ2+MM,ASC(MID$(Q2$(NN),MM,1)):NEXTMM
  35. 440 FORMM=LEN(Q2$(NN))+1TO9:POKEQ2+MM,0:NEXTMM:Q2=Q2+10:NEXTNN:POKE58,255:END
  36. 450 FORNN=49152TO49343:READQ1:POKENN,Q1:NEXTNN:SYS49152:RETURN
  37. 460 REM * DATASTATEMENTS *
  38. 470 DATA120,169,78,141,0,3,169,192,141,1,3,169,23,141,20,3,169,192,141,21
  39. 480 DATA3,88,96,36,157,16,48,169,133,141,94,192,165,215,141,93,192,173,93
  40. 490 DATA192,205,94,192,240,12,238,94,192,173,94,192,201,141,240,20,208,236
  41. 500 DATA56,173,93,192,233,133,10,170,189,96,192,168,189,95,192,32,30,171
  42. 510 DATA76,49,234,120,169,23,141,20,3,169,192,141,21,3,88,76,139,227,10,141
  43. 520 DATA111,192,121,192,131,192,141,192,151,192,161,192,171,192,181,192,82
  44. 530 DATA85,78,0,0,0,0,0,0,0,76,73,83,84,0,0,0,0,0,0,76,79,65,68,0,0,0,0,0
  45. 540 DATA0,83,65,86,69,0,0,0,0,0,0,86,69,82,73,70,89,0,0,0,0,79,80,69,78,0
  46. 550 DATA0,0,0,0,0,67,76,79,83,69,0,0,0,0,0,67,79,78,84,0,0,0,0,0,0,0,RUN,LIST
  47. 560 DATALOAD,SAVE,VERIFY,OPEN,CLOSE,CONT,1,3,5,7,2,4,6,8,1,3,5,7,2,4,6,8
  48.