home *** CD-ROM | disk | FTP | other *** search
/ C64'er / C64'er.iso / sh6x / sh69b.d64 / zweidim (.txt) < prev   
Commodore BASIC  |  1995-03-30  |  397b  |  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.