Ms-dos Prompt

[Squeak]

If I could remember all my hLIN and vLIN commands from primary school I could produce a pretty picture for you all.

 

[Vindaloo Mat]

what was the name of that little turtle thing ????....

pen down
f 100
r 90
f 100
r 90
f 100
r 90
f 100
pen up

 

[Lensen]

10 PRINT "Lenny rocks"
20 GOTO 10

 

[dr nick]

Originally posted by Squeak
If I could remember all my hLIN and vLIN commands from primary school I could produce a pretty picture for you all.

yeah, what he said

the things we used to do in primary school...

 

[Yianni]

Originally posted by Vindaloo Mat
what was the name of that little turtle thing ????....

pen down
f 100
r 90
f 100
r 90
f 100
r 90
f 100
pen up

It was called LOGO

And that's a nice square you've gone and drawn there...

 

[Vindaloo Mat]

Originally posted by Yianni
It was called LOGO

And that's a nice square you've gone and drawn there...

ah yes that is it...

and thanks ! it is certainly the extent of my artistic abilities !

 

[Mobbs]

CLS

Col%(0) = 11
Col%(1) = 12
Col%(2) = 13

F = 3.423913

SCREEN 12

GetFrame:
LOCATE 30, 1
PRINT "FRAME (Y/N)?"; TAB(40);
AskFrame:
I$ = UCASE$(INKEY$)
IF I$ = "Y" THEN GOTO DoFrame
IF I$ = "N" THEN GOTO GetBorder
GOTO AskFrame

DoFrame:
LINE (1, 1)-(630, 1), Col%(0)
LINE (630, 1)-(630, 460), Col%(0)
LINE (630, 460)-(1, 460), Col%(0)
LINE (1, 460)-(1, 1), Col%(0)

X1 = 9
Y1 = 1

GetBorder:
LOCATE 30, 1
PRINT "BORDER (Y/N)?"; TAB(40);
AskBorder:
I$ = UCASE$(INKEY$)
IF I$ = "Y" THEN GOTO DoBorder
IF I$ = "N" THEN GOTO GetTowns
GOTO AskBorder

DoBorder:
OPEN "I", #1, "BORDER.DAT"
LoadBorder:
IF EOF(1) <> 0 THEN GOTO BorderComplete
INPUT #1, A$
X2 = VAL(A$)
INPUT #1, A$
Y2 = VAL(A$)
LINE (X1 * F, Y1 * F + 55)-(X2 * F, Y2 * F + 55), Col%(2)
X1 = X2
Y1 = Y2
GOTO LoadBorder
BorderComplete:
CLOSE #1

GetTowns:
LOCATE 30, 1
PRINT "TOWNS (Y/N)?"; TAB(40);
AskTowns:
I$ = UCASE$(INKEY$)
IF I$ = "Y" THEN GOTO DoTowns
IF I$ = "N" THEN GOTO DoTowns
GOTO AskTowns

DoTowns:
OPEN "I", #1, "TOWNS1"
INPUT #1, NT%
DIM Name$(NT%)
DIM T(NT%, 10) AS INTEGER
LOCATE 30, 1
PRINT "Please Wait ..."; TAB(20);
FOR T% = 1 TO NT%
INPUT #1, Name$(T%)
FOR U% = 1 TO 10
INPUT #1, T(T%, U%)
NEXT U%
IF T(T%, 9) = 0 OR T(T%, 10) = 0 THEN GOTO DontGraph
IF I$ = "N" THEN GOTO DontGraph
PSET (T(T%, 9) * F, T(T%, 10) * F + 55), Col%(0)
'IF T% > NT% - 115 THEN LOCATE 30, 1
'IF T% > NT% - 115 THEN PRINT "THAT WAS "; Name$(T%); TAB(50);
'IF T% > NT% - 115 THEN SLEEP 1
DontGraph:
NEXT T%
CLOSE #1

GetRoads:
LOCATE 30, 1
PRINT "ROADS (Y/N)?"; TAB(40);
AskRoads:
I$ = UCASE$(INKEY$)
IF I$ = "Y" THEN GOTO DoRoads
IF I$ = "N" THEN GOTO GetPlayers
GOTO AskRoads

DoRoads:
FOR T% = 1 TO NT%
FOR U% = 1 TO 8
IF T(T%, U%) > NT% OR T(T%, U%) = 0 THEN GOTO NotDoneYet
LINE (T(T%, 9) * F, T(T%, 10) * F + 55)-(T(T(T%, U%), 9) * F, T(T(T%, U%), 10) * F + 55)
'IF T% > 370 AND T% < 397 THEN GOTO ShowThisOne
GOTO NotDoneYet
ShowThisOne:
LOCATE 30, 1
PRINT T%; Name$(T%); " - "; Name$(T(T%, U%)); TAB(60);
WHILE INKEY$ = "": WEND
NotDoneYet:
NEXT U%
NEXT T%

GetPlayers:
LOCATE 30, 1
PRINT "PLAYERS (Y/N)?"; TAB(40);
AskPlayers:
I$ = UCASE$(INKEY$)
IF I$ = "Y" THEN GOTO DoPlayers
IF I$ = "N" THEN GOTO AllDone
GOTO AskPlayers

DoPlayers:
NP% = 0
OPEN "I", #1, "PLAYERS.DAT"
INPUT #1, P%
INPUT #1, GoalX%
INPUT #1, GoalY%
CIRCLE (GoalX% * F, GoalY% * F + 55), 3, Col%(0)
FOR T% = 1 TO P%
INPUT #1, P$
P$(T%) = P$
LOCATE 30, 1
PRINT "CURRENT PLAYER : "; P$; TAB(30);
NP% = 0
OPEN "I", #2, P$
LoadBorder1:
NP% = NP% + 1
IF EOF(2) <> 0 THEN GOTO BorderComplete1
INPUT #2, A$
LOCATE 30, 30
SLEEP 1
PRINT A$; TAB(50);
INPUT #2, A$
X2 = VAL(A$)
INPUT #2, A$
Y2 = VAL(A$)
IF NP% <> 1 THEN GOTO NotStart
CIRCLE (X2 * F, Y2 * F + 55), 3, T% + 1
GOTO AfterDrawing
NotStart:
'LINE (X1 * F, Y1 * F + 55)-(X2 * F, Y2 * F + 55), 1
LINE (X1 * F, Y1 * F + 55)-(X2 * F, Y2 * F + 55), T% + 1
AfterDrawing:
X1 = X2
Y1 = Y2
GOTO LoadBorder1
BorderComplete1:
CIRCLE (X2 * F, Y2 * F + 55), 3, T% + 1
CLOSE #2
NEXT T%
CLOSE #1

IF P% > 0 THEN LINE (150, 25)-(200, 25), 2: LOCATE 2, 28: PRINT P$(1)
IF P% > 1 THEN LINE (150, 40)-(200, 40), 3: LOCATE 3, 28: PRINT P$(2)
IF P% > 2 THEN LINE (150, 55)-(200, 55), 4: LOCATE 4, 28: PRINT P$(3)
IF P% > 3 THEN LINE (150, 70)-(200, 70), 5: LOCATE 5, 28: PRINT P$(4)
IF P% > 4 THEN LINE (150, 85)-(200, 85), 6: LOCATE 6, 28: PRINT P$(5)

IF P% > 5 THEN LINE (350, 25)-(400, 25), 7: LOCATE 2, 53: PRINT P$(6)
IF P% > 6 THEN LINE (350, 40)-(400, 40), 8: LOCATE 3, 53: PRINT P$(7)
IF P% > 7 THEN LINE (350, 55)-(400, 55), 9: LOCATE 4, 53: PRINT P$(8)
IF P% > 8 THEN LINE (350, 70)-(400, 70), 10: LOCATE 5, 53: PRINT P$(9)
IF P% > 9 THEN LINE (350, 85)-(400, 85), 11: LOCATE 6, 53: PRINT P$(10)

LOCATE 30, 1: PRINT "Press {F} to finish ...";
AllDone:
A$ = UCASE$(INKEY$)
IF A$ <> "F" THEN GOTO AllDone

RUN "VIC"

 

[otaku]

i really hope you copy and pasted that, rather than typing it all "by hand" (fnor fnor)

 

[Mobbs]

Originally posted by otaku
i really hope you copy and pasted that, rather than typing it all "by hand" (fnor fnor)

I would have written it one day ... but not today, Josephine