Keskustelu: Koodit: QB: Tekstin kirjoitus ja tallennus

ON ERROR GOTO vika
toimi:
CLS
LOCATE 1, 1: PRINT "ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÜKimmon EDITÜÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
LOCATE 2, 1: PRINT "ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛTallennaÛÛAvaaÛÛTietoa ohjelmasta KEDITÛÛLopetaÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
PRINT "Komento suoritetaan kirjoittamalla KEDIT-(Komento merkkitarkasti, ei sulkuja)"
IF A = 0 THEN INPUT "Mikä polku ja tiedostonimi. Kirjoita polku ja tiedostonimi"; tiedosto$
IF tiedosto$ = "KEDIT-Avaa" THEN GOTO toimi
IF tiedosto$ = "KEDIT-Lopeta" THEN GOTO loppu
IF tiedosto$ = "KEDIT-Tietoa ohjelmasta KEDIT" THEN GOTO tietoa
IF tiedosto$ = "KEDIT-Näytä" THEN GOTO naytto
LET A = 1
CLS
OPEN tiedosto$ FOR OUTPUT AS #1
PRINT #1, ""
CLOSE #1
kirjoitus:
OPEN tiedosto$ FOR INPUT AS #1
LOCATE 1, 1: PRINT "ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÜKimmon EDITÜÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
LOCATE 2, 1: PRINT "ÛÛÛÛÛÛÛÛÛÛÛÛNäytäÛÛÛÛÛÛÛÛÛAvaaÛÛTietoa ohjelmasta KEDITÛÛLopetaÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
LOCATE 3, 1: INPUT b$
IF b$ = "KEDIT-Avaa" THEN GOTO toimi
IF b$ = "KEDIT-Lopeta" THEN GOTO loppu
IF b$ = "KEDIT-Tietoa ohjelmasta KEDIT" THEN GOTO tietoa
IF b$ = "KEDIT-Näytä" THEN GOTO naytto
IF b$ = "KEDIT-Tulosta" THEN LET p = 1
IF p = 1 THEN GOTO tulostus
LET teksti$ = teksti$ + b$ + "                   "
CLOSE #1
tallennus:
OPEN tiedosto$ FOR OUTPUT AS #1
PRINT #1, teksti$
LOCATE 3, A: PRINT "                                                                               "
CLOSE #1
GOTO kirjoitus
tietoa:
LOCATE 1, 1: PRINT "KEDIT 1.0 (C) Kimmo Merikivi 2002"
SLEEP
GOTO kirjoitus
naytto:
CLOSE #1
INPUT tiedosto$
OPEN tiedosto$ FOR OUTPUT AS #1
PRINT #1,
FOR A = 1 TO 1000 STEP 1
NEXT A
SLEEP
CLOSE #1
SLEEP
GOTO toimi
loppu:
CLOSE #1
END
tulostus:
LET p = 0
PRINT "Tulostus ohjelmasta."
CLOSE #1
OPEN tiedosto$ FOR OUTPUT AS #1
LPRINT 1
CLOSE #1
GOTO kirjoitus
vika:
BEEP: BEEP: BEEP: BEEP: BEEP
LOCATE 6, 1: PRINT "ERROR!"
PRINT "Tässä tuli vähän ongelmia."
PRINT "Tarkista että tekstissä ei ole pilkkuja. QBASIC ei hyväksy niitä. Älä tee myöskään liian pitkiä rivejä, KEDITissä ei ole automaattista rivinvaihtoa. Jos ongelma ilmenee jossain muussa niin lähettäkää sähköpostia kimmo.merikivi@pp1.inet.fi . Poluissa ei saa olla ääkkösiä, ja ne eivät saa olla olemattomalla kiintolevyllä. Muuten KEDIT luo kansion. Nyt joudut aloittamaan tämän rivin kirjoituksen alusta."
FOR A = 1 TO 10000 STEP 1
NEXT A
SLEEP
GOTO kirjoitus