1  GOSUB 1000
 2 A =  USR (1): & WINDOW0,40,0,24: HOME : TEXT :A =  USR (0)
 5  DIM KA%(8),KB%(8),KC%(8),OB$(9),OB%(9,6)
 10  &  READ "PLAYER": INPUT NM$,NA%,NU%,CY%,CX%,CL%,RA%
 20  FOR I = 1 TO 8: INPUT KA%(I),KB%(I),KC%(I): NEXT I
 30  INPUT GP%,XP%,AR%,PA%,PR%,EN%,OB%,LP%
 40  IF OB% = 0 THEN 70
 50  FOR I = 1 TO OB%: INPUT OB$(I): FOR J = 1 TO 6: INPUT OB%(I,J): NEXT J: NEXT I
 70  &  END 
 90  HOME 
 100  INVERSE : PRINT "GROS BILL";: NORMAL : PRINT " : Fix de Muryaden"
 110  PRINT : PRINT "Gros Bill permet de gonfler au maximum  les caract{ristiques et les objets de   votre personnage..."
 120  PRINT : PRINT : PRINT : PRINT "MODIFICATIONS EN COURS...";
 130  IF OB% = 0 THEN 500
 140  FOR I = 1 TO OB%
 145  IF OB%(I,1) >  = 40 THEN 400
 150 OB%(I,2) = 9999:OB%(I,3) = 0:OB%(I,4) = 0
 160  IF OB%(I,1) = 3 THEN OB%(I,6) = 0: GOTO 400
 170  IF OB%(I,1) = 10 THEN OB%(I,5) = 99:OB%(I,6) = 0: GOTO 400
 190  IF OB%(I,1) < 10 THEN OB%(I,5) = 99:OB%(I,6) = 99: GOTO 400
 200  IF OB%(I,1) >  = 20 THEN OB%(I,1) = 30:OB%(I,5) = 0:OB%(I,6) = 5 *  INT ((OB%(I,6) - 1) / 5): IF OB%(I,6) = 0 THEN OB%(I,6) = 1
 400  NEXT I
 500  GOSUB 1000
 505  &  DEL "PLAYER": &  DEF "PLAYER",2: &  PRINT "PLAYER"
 510  PRINT NM$: PRINT NA%: PRINT NU%: PRINT CY%: PRINT CX%: PRINT CL%: PRINT RA%
 520  FOR I = 1 TO 24: PRINT "99": NEXT I
 530  PRINT "8000": PRINT "8000": PRINT AR%: PRINT PA%: PRINT PR%: PRINT EN%: PRINT OB%: PRINT LP%
 540  IF OB% = 0 THEN 600
 550  FOR I = 1 TO OB%: PRINT OB$(I): FOR J = 1 TO 6: PRINT OB%(I,J): NEXT J: NEXT I
 600  &  END 
 700  PRINT : PRINT : PRINT "RETOURNE AU MENU (O/N):";
 710  GET A$
 720  IF A$ = "O" THEN  GOSUB 2000: &  RUN "MAIN.MENU",24576
 730  IF A$ = "N" THEN  HOME : CALL 50688
 740  GOTO 710
 1000  &  READ "PLAYER": INPUT NF$: &  END 
 1010  IF NF$ = "*START*" OR NF$ = "*BLANKPLAYER*" THEN  HOME : VTAB 10: HTAB 9: PRINT "INSEREZ LE PLAYER, SVP": WAIT  - 16384,128: POKE  - 16368,0: HOME : GOTO 1000
 1020  RETURN 
 2000  &  READ "PLAYER": INPUT NF$: &  END 
 2010  IF NF$ <  > "*START*" THEN  HOME : VTAB 10: HTAB 9: PRINT "INSEREZ LA FACE DE BOOT": WAIT  - 16384,128: POKE  - 16368,0: HOME : GOTO 2000
 2020  RETURN