K O N T O

Konto originally started as one of my very first programs on the Commodore C-64. I have later excavated the original version in C-64 BASIC. It is posted here just for purely archealogical pleasure:

  5 POKE 53280,0
  6 POKE 53281,0
  7 PRINT CHR$(147)
  9 PRINT "   VELKOMEN TIL"
 10 PRINT "     K O N T O"
 11 PRINT
 12 PRINT
 13 PRINT
 14 PRINT
 15 PRINT
 20 INPUT " HVAD ER DIT NAVN";N$
 30 INPUT " OKAY HVOR MANGE PENGE HAR DU";P
 40 PRINT "ALLRIGHT ";N$;" JEG FIKSER LIGE EN MENU TIL DIG"
 45 PRINT "KASSEBEHOLDNING ";P;" KR."
 50 INPUT "I=S£T IND H=H£V S=SLUT";M$
 60 IF M$="I" THEN GOTO 100
 70 IF M$="H" THEN GOTO 200
 80 IF M$="S" THEN END
 90 GOTO 45
100 INPUT " HVOR MANGE";S
110 P=P+S
150 GOTO 45
200 INPUT "HVOR MANGE";H
210 P=P-H
250 GOTO 45