MLA Formatter

Community Forums/Showcase/MLA Formatter

Zacho (Posted 2009) [#1]

This is a MLA Formatter program. It's the first complete program I made and it is used for Works Cited pages in MLA papers. Sorry I don't have a link to a site but here's the code: Normal Version: '------------------------------------------------------- 'Graphics 640, 480 '------------------------------------------------------------- 'Strict 'Global ScreenWidth = 900 'Global ScreenHeight = 700 'Global ColorRes = 16 'Graphics ScreenWidth, ScreenHeight', 16 ''------------------------------------------------------ 'SetBuffer BackBuffer() SeedRnd MilliSecs() Type Info Field title$ Field title2$ Field yearofpublication$ Field yearofpublication2$ Field authorfirst$ Field authorlast$ Field secondAfirst$ Field secondAlast$ Field thirdAfirst$ Field thirdAlast$ Field format$ Field publisher$ Field publisher2$ Field placeofpublication$ Field placeofpublication2$ Field translator$ Field translator2$ Field edition$ Field volume$ Field day$ 'source was posted/revised Field month$ 'source was posted/revised Field year$ 'source was posted/revised Field editorfirst$ Field editorlast$ Field government$ Field agencyorsubdivision$ Field numberofcongress$ Field numberofsession$ Field urladdress$ Field dateaccessed$ Field artistfirst$ Field artistlast$ Field speakerfirst$ Field speakerlast$ Field recipientofemail$ Field titleofarticle$ Field titleofonlinepublication$ End Type AppTitle="MLA Formatter by ZaChO" Rem ;FORMATS ;1=Book ;2=Book with one author (This format is the same as 1) ;3=Book with 2 authors ;4=Book with more than 2 authors ;5=Two Or more books by the same author ;6=Bible ;7=Government publication ;8=Pamphlet ;9=Dissertation (Speech) ;10=Entire website ;11=Page on website ;12=Image ;13=Article in a web magazine/web magazine ;14=E-mail ;15= End Rem While Not KeyHit(27) Print "This is the [BETA] MLA Formatter! Created by ZaChO." Delay 2000 Print "This may not be reproduced, distributed, or sold without consent and permission from ZaChO" Delay 3000 Print "Type capital letters for names/publishers/translators etc." Delay 2000 Print "Format 1 Book with one author " Delay 1000 Print "Format 3 Book with 2 authors" Delay 1000 Print "Format 4 Book with more than 2 authors" Delay 1000 Print "Format 5 Two or more books by the same author" Delay 1000 Print "Format 6 Bible " Delay 1000 Print "Format 7 Government publication" Delay 1000 Print "Format 8 Pamphlet" Delay 1000 Print "Format 9 Dissertation (Speech) " Delay 1000 Print "Format 10 Entire Website" Delay 1000 Print "Format 11 Page on website" Delay 1000 Print "Format 12 Image" Delay 1000 Print "Format 13 Article in a web magazine" Delay 1000 Print "Format 14 E-mail" Delay 1000 Print "" format$=Input("What format are you using? ") '---------------------------------------------------------------------- If format <> 13 title$=Input("What is the title/site? ") Delay 1 EndIf If format <> 7 If format <> 4 If format <> 3 If format <> 1 If format <> 6 If format <> 8 If format <> 9 If format <> 10 If format <> 12 If format <> 13 If format <> 14 title2$=Input("What is the second title? ") Delay 1 EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf If format <> 10 If format <> 11 If format <> 13 If format <> 14 yearofpublication$=Input("What is the year of publication? ") Delay 1 EndIf EndIf EndIf EndIf If format <> 9 If format <> 7 If format <> 4 If format <> 3 If format <> 1 If format <> 6 If format <> 8 If format <> 10 If format <> 11 If format <> 12 If format <> 13 If format <> 14 yearofpublication2$=Input("What is the second year of publication? ") Delay 1 EndIf EndIf EndIf EndIf EndIf If format <> 5 If format <> 12 day$=Input("What is the day that the source was posted/revised? ") Delay 1 month$=Input("What is the month that the source was posted/revised? ") Delay 1 year$=Input("What is the year that the source was posted/revised? ") Delay 1 EndIf If format <> 10 If format <> 11 If format <> 13 If format <> 14 artistfirst$=Input("What is the artist's first name? ") Delay 1 artistlast$=Input("What is the artists's last name? ") Delay 1 EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf If format <> 10 If format <> 7 If format <> 6 If format <> 8 If format <> 12 If format <> 9 authorfirst$=Input("What is the author's first name? ") Delay 1 authorlast$=Input("What is the author's last name? ") Delay 1 If format <> 4 If format <> 1 If format <> 5 If format <> 11 If format <> 13 If format <> 14 secondAfirst$=Input("What is the second author's first name? ") Delay 1 secondAlast$=Input("What is the second author's last name? ") Delay 1 If format <> 3 thirdAfirst$=Input("What is the third author's first name? ") Delay 1 thirdAlast$=Input("What is the third author's last name? ") Delay 1 EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf If format <> 7 If format <> 12 If format <> 9 If format <> 13 If format <> 14 publisher$=Input("Who is the publisher?(Most of the time it is a company) ") Delay 1 EndIf EndIf EndIf If format <> 11 If format <> 9 If format <> 4 If format <> 3 If format <> 1 If format <> 6 If format <> 8 If format <> 10 If format <> 13 If format <> 14 publisher2$=Input("Who is the second publisher? ") Delay 1 EndIf EndIf EndIf EndIf EndIf EndIf If format <> 8 If format <> 12 If format <> 5 If format <> 6 If format <> 10 If format <> 1 If format <> 13 If format <> 14 translator$=Input("Who is the first translator? ") Delay 1 translator2$=Input("Who is the second translator? ") Delay 1 EndIf EndIf EndIf EndIf EndIf EndIf If format <> 10 If format <> 1 If format <> 13 If format <> 14 editorfirst$=Input("What is the editor's first name? ") Delay 1 editorlast$=Input("What is the editor's last name? ") Delay 1 EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf If format <> 9 If format <> 10 If format <> 11 If format <> 13 If format <> 14 placeofpublication$=Input("Where is the place of publication? ") Delay 1 EndIf EndIf EndIf EndIf If format <> 4 If format <> 3 If format <> 1 If format <> 6 If format <> 7 If format <> 8 If format <> 10 If format <> 11 If format <> 12 If format <> 13 If format <> 14 placeofpublication2$=Input("Where is the second place of publication? ") Delay 1 EndIf EndIf EndIf EndIf EndIf EndIf EndIf If format <> 5 If format <> 8 If format <> 13 If format <> 14 If format <> 11 If format <> 12 If format <> 10 government$=Input("What government created this source? ") Delay 1 agencyorsubdivision$=Input("What agency or subdivison was the author of this source? ") Delay 1 numberofcongress$=Input("What was the number of congress? ") Delay 1 numberofsession$=Input("What was the number of session? ") Delay 1 EndIf EndIf EndIf If format <> 7 If format <> 11 If format <> 12 If format <> 10 edition$=Input("What is the edition of the book? ") Delay 1 volume$=Input("What volume is the book?(Add the suffix in your answer| ex. 'rd 'st. ") Delay 1 EndIf EndIf EndIf EndIf EndIf EndIf If format <> 14 urladdress$=Input("What is the URL address of the website? ") Delay 1 dateaccessed$=Input("When did you access the site? Day Month Year ") Delay 1 EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf If format <> 1 If format <> 2 If format <> 3 If format <> 4 If format <> 5 If format <> 6 If format <> 7 If format <> 8 If format <> 10 If format <> 11 If format <> 12 If format <> 13 If format <> 14 speakerfirst$=Input("What is the speaker's first name? ") Delay 1 speakerLast$=Input("What is the speaker's last name? ") Delay 1 EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf If format <> 1 If format <> 2 If format <> 3 If format <> 4 If format <> 5 If format <> 6 If format <> 7 If format <> 8 If format <> 9 If format <> 10 If format <> 11 If format <> 12 If format <> 13 recipientofemail$=Input("Who recieved the e-mail?(First name then Last name) ") Delay 1 EndIf If format <> 14 titleofarticle$=Input("What is the title of the article? ") Delay 1 titleofonlinepublication$=Input("What is the title of the online publication? ") Delay 1 EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf '------------------------------------------------------------------------------------- Print "--Remember that the title in this citation MUST be underlined!--" Print "--This program is uncapable of underlining words--" Delay 1800 Print "CONFIGURING MLA CITATION" Delay 2000 Print "Your MLA citation is this: " Print "" If format$ = 1 'Book Print authorlast$ + ", " + authorfirst$ + ". " + title$ + ". " Print placeofpublication$ + ": " + publisher$ + ", " + yearofpublication$ + "." Print "-------------------------------------------------------------------------------------" EndIf If format$ = 3 'Book with 2 authors Print authorlast$ + ", " + authorfirst$ + ", and " + secondAfirst$ + "[]" + secondAlast$ + ". " Print title$ + ". " + placeofpublication$ + ": " + publisher$ + ", " + yearofpublication$ + "." Print "" Print "The [] in the above citation is a SPACE" Print "-------------------------------------------------------------------------------------" EndIf If format$ = 4 'Book with more than 2 authors Print authorlast$ + ", " + authorfirst$ + ", et al. " + title$ + ". " Print placeofpublication$ + ": " + publisher$ + ", " + yearofpublication$ + "." Print "-------------------------------------------------------------------------------------" EndIf If format$ = 5 'Two or more books by the same author Print authorlast$ + ", " + authorfirst$ + ". " + title$ + ". " + placeofpublication$ Print ": " + publisher$ + ", " + yearofpublication$ + ".---. " + title2$ + ". " Print placeofpublication2$ + ": " + publisher2$ + ", " + yearofpublication2$ + "." Print "-------------------------------------------------------------------------------------" EndIf If format$ = 6'Bible Print title$ + ". " + editorfirst$ + "[]" + editorlast$ + ", gen. ed. " Print placeofpublication$ + ": " + publisher$ + ", " + yearofpublication$ + "." Print "" Print "The [] in the above citation is a SPACE" Print "Note: |gen. ed.|<- means general editor (I think), replace/remove this if you need to" Print "-------------------------------------------------------------------------------------" EndIf If format$ = 7 'Government Publication Print government$ + ". " + agencyorsubdivision$ + ". " + title$ + ". " + numberofcongress$ Print "., " + numberofsession$ + placeofpublication$ + ": GPO, " + yearofpublication$ + "." Print "" Print "The stuff between the title and place of publication are the number of congress and session." Print "Include this if you can, if you can't, add the place of publication right after the title" Print "and don't include the number of congress or session." Print "-------------------------------------------------------------------------------------" EndIf If format$ = 8 'Pamphlet Print title$ + ". " + placeofpublication$ + ": " + publisher$ + ", " + yearofpublication$ + "." Print "-------------------------------------------------------------------------------------" EndIf If format$ = 9 'Dissertation (Speech) Print speakerlast$ + ", " + speakerfirst$ + ". " + title$ + ". Diss. ____ University , " + yearofpublication$ Print "" Print "Fill the ____ in with the name of a university. Change University to College or something" Print "else if the source is not found in a university. <- Common Sense :p" Print "THE TITLE OF THIS DISSERTATION (SPEECH) IS IN QUOTES, NOT UNDERLINED!" Print "-------------------------------------------------------------------------------------" EndIf If format$ = 10 'Entire Website Print title$ + ". " + day$ + "[]" + month$ + ". " + year$ + ". " + publisher$ Print dateaccessed$ + " <" + urladdress$ + ">" Print "" Print "The [] in the above citation is a SPACE" Print "-------------------------------------------------------------------------------------" EndIf If format$ = 11 'Page on website 'TITLE$ HERE MEANS THE PAGE NAME And TITLE2$ MEANS THE SITE NAME 'The page name is in quotes And the site name is underlined Print authorlast$ + ", " + authorfirst$ + ". " + title$ + ". " + title2$ + ". " Print day$ + "[]" + month$ + ". " + year$ + ". " + publisher$ Print dateaccessed$ + " <" + urladdress$ + ">" Print "" Print "The [] in the above citation is a SPACE" Print "-------------------------------------------------------------------------------------" EndIf If format$ = 12 'Image 'title$ = name of artwork || yearofpublication$ = when the art was made 'placeofpublication$ = where the art was made Print artistlast$ + ", " + artistfirst$ + ". " + title$ + ". " + yearofpublication$ + ". " Print placeofpublication + ". " + dateaccessed$ + " <" + urladdress$ + ">" Print "" Print "The building in which the image is stored/held is written after the creation date followed" Print "by a comma" Print "-------------------------------------------------------------------------------------" EndIf If format$ = 13 'Article on a website/web magazine 'Title of Article [IS IN QUOTES] Print authorlast$ + ", " + authorfirst$ + ". " + titleofarticle$ + ". " + titleofonlinepublication$ + ". " Print day$ + "[]" + month$ + ". " + year$ + ". " + dateaccessed$ + " <" + urladdress$ + ">" Print "" Print "The [] in the above citation is a SPACE" Print "Note: if there is more than one author, write the other authors' names like in format 3" Print "-------------------------------------------------------------------------------------" EndIf If format$ = 14 'E-mail 'title$ is in quotes Print authorlast$ + ", " + authorfirst$ + ". Re: " + title$ + ". " + "E-mail To " + recipientofemail$ + ". " Print day$ + "[]" + month$ + ". " + year$ + "." Print "" Print "The [] in the above citation is a SPACE" Print "The title of this citation is in QUOTES not UNDERLINED!!!" EndIf If format$ = 15 Print "" EndIf If format$ = 16 Print "" EndIf If format$ = 17 Print "" EndIf If format$ = 18 Print "" EndIf If format$ = 19 Print "" EndIf If format$ = 20 Print "" EndIf If format$ = 21 Print "" EndIf If format$ = 999 Print "!!!!YOU JUST HACKED THIS PROGRAM AND BYPASSED IT'S SECURITY (IT HAS NONE)!!!!" ' Delay 1700 ' Print " /---------------\ " ' Print " / \ " ' Print " / ----\ /---- \ " ' Print " / /--\ /--\ \ " ' Print " / |oT| |To| \ " ' Print " | \--/ \--/ | " ' Print " | / | __ " ' Print " | /__ | / | " ' Print " | | | \ " ' Print " \ \ / / ____\ \_____ " ' Print " \ \ / / /_____ \____ " ' Print " \ \______/ / \----- | " ' Print " \ / /_____ ________| " ' Print " \---------------/ \__________/ " ' Delay 3000 End EndIf Delay 30 Print "" Flip Wend End [Type 999 for format to exit then hit enter for each field] Faster Version: '------------------------------------------------------- 'Graphics 640, 480 '------------------------------------------------------------- 'Strict 'Global ScreenWidth = 900 'Global ScreenHeight = 700 'Global ColorRes = 16 'Graphics ScreenWidth, ScreenHeight', 16 ''------------------------------------------------------ 'SetBuffer BackBuffer() SeedRnd MilliSecs() Type Info Field title$ Field title2$ Field yearofpublication$ Field yearofpublication2$ Field authorfirst$ Field authorlast$ Field secondAfirst$ Field secondAlast$ Field thirdAfirst$ Field thirdAlast$ Field format$ Field publisher$ Field publisher2$ Field placeofpublication$ Field placeofpublication2$ Field translator$ Field translator2$ Field edition$ Field volume$ Field day$ 'source was posted/revised Field month$ 'source was posted/revised Field year$ 'source was posted/revised Field editorfirst$ Field editorlast$ Field government$ Field agencyorsubdivision$ Field numberofcongress$ Field numberofsession$ Field urladdress$ Field dateaccessed$ Field artistfirst$ Field artistlast$ Field speakerfirst$ Field speakerlast$ Field recipientofemail$ Field titleofarticle$ Field titleofonlinepublication$ End Type AppTitle="MLA Formatter by ZaChO" Rem ;FORMATS ;1=Book ;2=Book with one author (This format is the same as 1) ;3=Book with 2 authors ;4=Book with more than 2 authors ;5=Two Or more books by the same author ;6=Bible ;7=Government publication ;8=Pamphlet ;9=Dissertation (Speech) ;10=Entire website ;11=Page on website ;12=Image ;13=Article in a web magazine/web magazine ;14=E-mail ;15= End Rem While Not KeyHit(27) Print "This is the [BETA] MLA Formatter! Created by ZaChO." 'Delay 2000 Print "This may not be reproduced, distributed, or sold without consent and permission from ZaChO" 'Delay 3000 Print "Type capital letters for names/publishers/translators etc." 'Delay 2000 Print "Format 1 Book with one author " 'Delay 1000 Print "Format 3 Book with 2 authors" 'Delay 1000 Print "Format 4 Book with more than 2 authors" 'Delay 1000 Print "Format 5 Two or more books by the same author" 'Delay 1000 Print "Format 6 Bible " 'Delay 1000 Print "Format 7 Government publication" 'Delay 1000 Print "Format 8 Pamphlet" 'Delay 1000 Print "Format 9 Dissertation (Speech) " 'Delay 1000 Print "Format 10 Entire Website" 'Delay 1000 Print "Format 11 Page on website" 'Delay 1000 Print "Format 12 Image" 'Delay 1000 Print "Format 13 Article in a web magazine" 'Delay 1000 Print "Format 14 E-mail" 'Delay 1000 Print "" format$=Input("What format are you using? ") '---------------------------------------------------------------------- If format <> 13 title$=Input("What is the title/site? ") 'Delay 1 EndIf If format <> 7 If format <> 4 If format <> 3 If format <> 1 If format <> 6 If format <> 8 If format <> 9 If format <> 10 If format <> 12 If format <> 13 If format <> 14 title2$=Input("What is the second title? ") 'Delay 1 EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf If format <> 10 If format <> 11 If format <> 13 If format <> 14 yearofpublication$=Input("What is the year of publication? ") 'Delay 1 EndIf EndIf EndIf EndIf If format <> 9 If format <> 7 If format <> 4 If format <> 3 If format <> 1 If format <> 6 If format <> 8 If format <> 10 If format <> 11 If format <> 12 If format <> 13 If format <> 14 yearofpublication2$=Input("What is the second year of publication? ") 'Delay 1 EndIf EndIf EndIf EndIf EndIf If format <> 5 If format <> 12 day$=Input("What is the day that the source was posted/revised? ") 'Delay 1 month$=Input("What is the month that the source was posted/revised? ") 'Delay 1 year$=Input("What is the year that the source was posted/revised? ") 'Delay 1 EndIf If format <> 10 If format <> 11 If format <> 13 If format <> 14 artistfirst$=Input("What is the artist's first name? ") 'Delay 1 artistlast$=Input("What is the artists's last name? ") 'Delay 1 EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf If format <> 10 If format <> 7 If format <> 6 If format <> 8 If format <> 12 If format <> 9 authorfirst$=Input("What is the author's first name? ") 'Delay 1 authorlast$=Input("What is the author's last name? ") 'Delay 1 If format <> 4 If format <> 1 If format <> 5 If format <> 11 If format <> 13 If format <> 14 secondAfirst$=Input("What is the second author's first name? ") 'Delay 1 secondAlast$=Input("What is the second author's last name? ") 'Delay 1 If format <> 3 thirdAfirst$=Input("What is the third author's first name? ") 'Delay 1 thirdAlast$=Input("What is the third author's last name? ") 'Delay 1 EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf If format <> 7 If format <> 12 If format <> 9 If format <> 13 If format <> 14 publisher$=Input("Who is the publisher?(Most of the time it is a company) ") 'Delay 1 EndIf EndIf EndIf If format <> 11 If format <> 9 If format <> 4 If format <> 3 If format <> 1 If format <> 6 If format <> 8 If format <> 10 If format <> 13 If format <> 14 publisher2$=Input("Who is the second publisher? ") 'Delay 1 EndIf EndIf EndIf EndIf EndIf EndIf If format <> 8 If format <> 12 If format <> 5 If format <> 6 If format <> 10 If format <> 1 If format <> 13 If format <> 14 translator$=Input("Who is the first translator? ") 'Delay 1 translator2$=Input("Who is the second translator? ") 'Delay 1 EndIf EndIf EndIf EndIf EndIf EndIf If format <> 10 If format <> 1 If format <> 13 If format <> 14 editorfirst$=Input("What is the editor's first name? ") 'Delay 1 editorlast$=Input("What is the editor's last name? ") 'Delay 1 EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf If format <> 9 If format <> 10 If format <> 11 If format <> 13 If format <> 14 placeofpublication$=Input("Where is the place of publication? ") 'Delay 1 EndIf EndIf EndIf EndIf If format <> 4 If format <> 3 If format <> 1 If format <> 6 If format <> 7 If format <> 8 If format <> 10 If format <> 11 If format <> 12 If format <> 13 If format <> 14 placeofpublication2$=Input("Where is the second place of publication? ") 'Delay 1 EndIf EndIf EndIf EndIf EndIf EndIf EndIf If format <> 5 If format <> 8 If format <> 13 If format <> 14 If format <> 11 If format <> 12 If format <> 10 government$=Input("What government created this source? ") 'Delay 1 agencyorsubdivision$=Input("What agency or subdivison was the author of this source? ") 'Delay 1 numberofcongress$=Input("What was the number of congress? ") 'Delay 1 numberofsession$=Input("What was the number of session? ") 'Delay 1 EndIf EndIf EndIf If format <> 7 If format <> 11 If format <> 12 If format <> 10 edition$=Input("What is the edition of the book? ") 'Delay 1 volume$=Input("What volume is the book?(Add the suffix in your answer| ex. 'rd 'st. ") 'Delay 1 EndIf EndIf EndIf EndIf EndIf EndIf If format <> 14 urladdress$=Input("What is the URL address of the website? ") 'Delay 1 dateaccessed$=Input("When did you access the site? Day Month Year ") 'Delay 1 EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf If format <> 1 If format <> 2 If format <> 3 If format <> 4 If format <> 5 If format <> 6 If format <> 7 If format <> 8 If format <> 10 If format <> 11 If format <> 12 If format <> 13 If format <> 14 speakerfirst$=Input("What is the speaker's first name? ") 'Delay 1 speakerLast$=Input("What is the speaker's last name? ") 'Delay 1 EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf If format <> 1 If format <> 2 If format <> 3 If format <> 4 If format <> 5 If format <> 6 If format <> 7 If format <> 8 If format <> 9 If format <> 10 If format <> 11 If format <> 12 If format <> 13 recipientofemail$=Input("Who recieved the e-mail?(First name then Last name) ") 'Delay 1 EndIf If format <> 14 titleofarticle$=Input("What is the title of the article? ") 'Delay 1 titleofonlinepublication$=Input("What is the title of the online publication? ") 'Delay 1 EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf '------------------------------------------------------------------------------------- Print "--Remember that the title in this citation MUST be underlined!--" Print "--This program is uncapable of underlining words--" 'Delay 1800 Print "CONFIGURING MLA CITATION" 'Delay 2000 Print "Your MLA citation is this: " Print "" If format$ = 1 'Book Print authorlast$ + ", " + authorfirst$ + ". " + title$ + ". " Print placeofpublication$ + ": " + publisher$ + ", " + yearofpublication$ + "." Print "-------------------------------------------------------------------------------------" EndIf If format$ = 3 'Book with 2 authors Print authorlast$ + ", " + authorfirst$ + ", and " + secondAfirst$ + "[]" + secondAlast$ + ". " Print title$ + ". " + placeofpublication$ + ": " + publisher$ + ", " + yearofpublication$ + "." Print "" Print "The [] in the above citation is a SPACE" Print "-------------------------------------------------------------------------------------" EndIf If format$ = 4 'Book with more than 2 authors Print authorlast$ + ", " + authorfirst$ + ", et al. " + title$ + ". " Print placeofpublication$ + ": " + publisher$ + ", " + yearofpublication$ + "." Print "-------------------------------------------------------------------------------------" EndIf If format$ = 5 'Two or more books by the same author Print authorlast$ + ", " + authorfirst$ + ". " + title$ + ". " + placeofpublication$ Print ": " + publisher$ + ", " + yearofpublication$ + ".---. " + title2$ + ". " Print placeofpublication2$ + ": " + publisher2$ + ", " + yearofpublication2$ + "." Print "-------------------------------------------------------------------------------------" EndIf If format$ = 6'Bible Print title$ + ". " + editorfirst$ + "[]" + editorlast$ + ", gen. ed. " Print placeofpublication$ + ": " + publisher$ + ", " + yearofpublication$ + "." Print "" Print "The [] in the above citation is a SPACE" Print "Note: |gen. ed.|<- means general editor (I think), replace/remove this if you need to" Print "-------------------------------------------------------------------------------------" EndIf If format$ = 7 'Government Publication Print government$ + ". " + agencyorsubdivision$ + ". " + title$ + ". " + numberofcongress$ Print "., " + numberofsession$ + placeofpublication$ + ": GPO, " + yearofpublication$ + "." Print "" Print "The stuff between the title and place of publication are the number of congress and session." Print "Include this if you can, if you can't, add the place of publication right after the title" Print "and don't include the number of congress or session." Print "-------------------------------------------------------------------------------------" EndIf If format$ = 8 'Pamphlet Print title$ + ". " + placeofpublication$ + ": " + publisher$ + ", " + yearofpublication$ + "." Print "-------------------------------------------------------------------------------------" EndIf If format$ = 9 'Dissertation (Speech) Print speakerlast$ + ", " + speakerfirst$ + ". " + title$ + ". Diss. ____ University , " + yearofpublication$ Print "" Print "Fill the ____ in with the name of a university. Change University to College or something" Print "else if the source is not found in a university. <- Common Sense :p" Print "THE TITLE OF THIS DISSERTATION (SPEECH) IS IN QUOTES, NOT UNDERLINED!" Print "-------------------------------------------------------------------------------------" EndIf If format$ = 10 'Entire Website Print title$ + ". " + day$ + "[]" + month$ + ". " + year$ + ". " + publisher$ Print dateaccessed$ + " <" + urladdress$ + ">" Print "" Print "The [] in the above citation is a SPACE" Print "-------------------------------------------------------------------------------------" EndIf If format$ = 11 'Page on website 'TITLE$ HERE MEANS THE PAGE NAME And TITLE2$ MEANS THE SITE NAME 'The page name is in quotes And the site name is underlined Print authorlast$ + ", " + authorfirst$ + ". " + title$ + ". " + title2$ + ". " Print day$ + "[]" + month$ + ". " + year$ + ". " + publisher$ Print dateaccessed$ + " <" + urladdress$ + ">" Print "" Print "The [] in the above citation is a SPACE" Print "-------------------------------------------------------------------------------------" EndIf If format$ = 12 'Image 'title$ = name of artwork || yearofpublication$ = when the art was made 'placeofpublication$ = where the art was made Print artistlast$ + ", " + artistfirst$ + ". " + title$ + ". " + yearofpublication$ + ". " Print placeofpublication + ". " + dateaccessed$ + " <" + urladdress$ + ">" Print "" Print "The building in which the image is stored/held is written after the creation date followed" Print "by a comma" Print "-------------------------------------------------------------------------------------" EndIf If format$ = 13 'Article on a website/web magazine 'Title of Article [IS IN QUOTES] Print authorlast$ + ", " + authorfirst$ + ". " + titleofarticle$ + ". " + titleofonlinepublication$ + ". " Print day$ + "[]" + month$ + ". " + year$ + ". " + dateaccessed$ + " <" + urladdress$ + ">" Print "" Print "The [] in the above citation is a SPACE" Print "Note: if there is more than one author, write the other authors' names like in format 3" Print "-------------------------------------------------------------------------------------" EndIf If format$ = 14 'E-mail 'title$ is in quotes Print authorlast$ + ", " + authorfirst$ + ". Re: " + title$ + ". " + "E-mail To " + recipientofemail$ + ". " Print day$ + "[]" + month$ + ". " + year$ + "." Print "" Print "The [] in the above citation is a SPACE" Print "The title of this citation is in QUOTES not UNDERLINED!!!" EndIf If format$ = 15 Print "" EndIf If format$ = 16 Print "" EndIf If format$ = 17 Print "" EndIf If format$ = 18 Print "" EndIf If format$ = 19 Print "" EndIf If format$ = 20 Print "" EndIf If format$ = 21 Print "" EndIf If format$ = 999 Print "!!!!YOU JUST HACKED THIS PROGRAM AND BYPASSED IT'S SECURITY (IT HAS NONE)!!!!" ' 'Delay 1700 ' Print " /---------------\ " ' Print " / \ " ' Print " / ----\ /---- \ " ' Print " / /--\ /--\ \ " ' Print " / |oT| |To| \ " ' Print " | \--/ \--/ | " ' Print " | / | __ " ' Print " | /__ | / | " ' Print " | | | \ " ' Print " \ \ / / ____\ \_____ " ' Print " \ \ / / /_____ \____ " ' Print " \ \______/ / \----- | " ' Print " \ / /_____ ________| " ' Print " \---------------/ \__________/ " ' 'Delay 3000 End EndIf 'Delay 30 Print "" Flip Wend End [Type 999 for format to exit then hit enter for each field]