TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 15th Sep 2011 08:33

Modified: 1st Jan 1970 01:00

Author: Brux

Summary

This program allows you to document your program automatically

Full Description

This program allows you to document your program automatically<br /> You Can use REMARKS to provide better description<br /> what your program is doing , creating a text file

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

Rem *************************************************

Rem ............... Sorry for my English ............

Rem REM MAKER

Rem E. Manzoni

Rem < ITALY >

Rem

Rem This program allows you to document your program

Rem You Can use REMARKS to provide better description

Rem what your program is doing automatically!

Rem *************************************************

Sync On

Sync Rate 50

Dim tuoTesto$(20)

Rem First Line

tuoTesto$(1)="*******************************************************"

COUNT=1

FLAG=0

MAXTESTO=600

POSY=50

Set Text Font "arial"

Rem Zoom Effect

Repeat

Cls

Set Text Size MAXTESTO

Center Text 320,420,"REM Text MAKER"

Dec MAXTESTO,5

Sync

Until MAXTESTO<50

Rem Draw First Line on the screen

Ink Rgb(255,255,255),0

Set Text Size 20

Text 150,POSY,tuoTesto$(1)

Inc POSY,12

testo:

Set Cursor 10,350 :Input "Your Text: (type 'End' to finish) ";yourText$

CLEAR_SCREEN

COUNT=COUNT+1

If COUNT>20

COUNT=20

EndIf

If yourText$="end" Or yourText$="End"

TERMINA(POSY,tuoTesto$(1))

FLAG=1

tuoTesto$(COUNT)=tuoTesto$(1)

EndIf

Rem Press RETURN ?

If yourText$=chr$(13)

Inc POSY,12

If CHECK(POSY)=1

TERMINA(290,tuoTesto$(1))

tuoTesto$(COUNT)=tuoTesto$(1)

Goto _WRITE_FILE

EndIf

If FLAG=0

Inc POSY,12

Rem Max 20 lines

If CHECK(POSY)=1

TERMINA(290,tuoTesto$(1))

tuoTesto$(COUNT)=tuoTesto$(1)

Goto _WRITE_FILE

EndIf

Text 10,POSY,">" :Text 10,POSY+12,">"

Center Text 320,POSY,yourText$

LUN=Len(yourText$)

DIFF=54-LUN

C$=""

For I=1 To DIFF/2

C$=C$+" "

Next I

yourText$="*"+c$+yourText$+c$

tuoTesto$(COUNT)=Left$(yourText$,54)+"*"

Goto testo

EndIf

Rem Write File Text

_WRITE_FILE:

If File Exist("Rem-Testo.txt") Then Delete File "rem-Testo.txt"

Open To Write 1,"Rem-Testo.txt"

For I=1 To COUNT

tuoTesto$(I)="Rem "+tuoTesto$(I)

Write String 1,tuoTesto$(I)

Next I

Close File 1

Rem Clear Screen and finish

CLEAR_SCREEN

Set Cursor 10,350 : Print "FINISH. Press any key"

Wait Key

Cls

End

Rem Functions

Function CHECK(POSY)

RES=0

If POSY>290

RES=1

POSY=290

EndIf

EndFunction RES

Function TERMINA(POSY,T$)

Inc POSY,12

If CHECK(POSY)=1 Then POSY=290

Ink Rgb(255,255,255),0

Text 150,POSY,T$

EndFunction

Function CLEAR_SCREEN

Ink Rgb(0,0,0),0

Box 1,350,639,385

Ink Rgb(255,255,255),0

EndFunction

Download

Please login to download

Comments

No comments yet.

CodeBase - REM MAKER

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments

Author Name:	Brux
CodeBase Entries:	33