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